| Author |
Message |
arjuna_1982 |
| Location: |
|
Post subject: TChecklistBox g bs tampilin data
 Posted: 01/Feb/2009 16:37
|
|
onIntermediate
Joined: 08-Apr-2008
Posts: 51
Status: Offline
|
|
tuuuulooonnnggg para pujangga2.
sy bkin program tp g klwr2 tuh datax.
logikanya simplex ky gni
(saat Dblookup sy klik mk nanti akan keluar detailx pada TCheckListBox berdasarkan Kode_Pemeriksaan pada dblookup)
disini sy pake komponen SQLQuery1,SQLQuery2,DbLookup1 dan TCheckListBox dan sy pkai 2 tabel
.tbl jenis_pemeriksaan
(Kode_jenis_periksaan,kode_pemeriksaan,nama_jenis_pemeriksaan,batas_normal)
.tbl pemeriksaan
(Kode_pemeriksaan,nama_pemeriksaan)
>>DblookUp propertisx sya setting sbg brkut:
keyvlue :Kode_pemeriksaan
Listview :kode_pemeriksaan;nama-periksaan
ListSurce :saya arahkan ke SQLQuery2
>>(Dblookup bs keluar data tbl_pemeriksaan)
>>pada OnClink DblookUp sy beri coding
With ModulRsalRamelan.SQLQuery1 Do
Begin
SQL.Clear;
Kode_Jenis_Pemeriksaan');
SQL.Add('SELECT * FROM Jenis_Pemeriksaan WHERE Kode_Jenis_Pemeriksaan="'+DBLookup.keyvalue+'"');//keyvalue/listfield :jg g' bs
ExecSQL;
Active := True;
End;
CbListJenisPemeriksaan.Items.Clear;
ModulRsalRamelan.SQLQuery1.First;
While Not ModulRsalRamelan.SQLQuery1.Eof Do
Begin
CbListJenisPemeriksaan.Items.Add(ModulRsalRamelan.SQLQuery1.Fields[0].AsString+' '+ModulRsalRamelan.SQLQuery1.Fields[2].AsString );
ModulRsalRamelan.SQLQuery1.Next;
End;
>>Tp hasilnya tidak klwr pdhl pd tabel ini jg ada Kode_pemriksaan
mohon pencerahanya bang2,om2,neng2,mbak2,mz,bpk2,ibu2,engkong,makkong,
plz |
|
|
| |
|
|
|
 |
|
arjuna_1982 |
| Location: |
|
|
Post subject: gmn cara tampilin data di Checklistbox
Posted: 02/Feb/2009 06:29
|
|
onIntermediate
Joined: 08-Apr-2008
Posts: 51
Status: Offline
|
|
mohon bantuanya buat teman-teman.
sy bkin program tp g klwr2 tuh datax pd checklistbox.
logikanya simplex ky gni
(saat ,DbLookuplistbox sy klik mk nanti akan keluar detailx pada CheckListBox berdasarkan Kode_Pemeriksaan pada ,DbLookuplistbox)
disini sy pake komponen
SQLQuery1,SQLQuery2,DbLookuplistbox dan CheckListBox dan sy pkai 2 tabel
.tbl jenis_pemeriksaan
(Kode_jenis_periksaan,kode_pemeriksaan,nama_jenis_pemeriksaan,batas_normal)
.tbl pemeriksaan
(Kode_pemeriksaan,nama_pemeriksaan)
>>,DbLookuplistbox propertisx sya setting sbg brkut:
keyvlue :Kode_pemeriksaan
Listview :kode_pemeriksaan;nama-periksaan
ListSurce :saya arahkan ke SQLQuery2
>>(,DbLookuplistbox bs keluar data tbl_pemeriksaan)
>>pada OnClink ,DbLookuplistbox sy beri coding
With SQLQuery1 Do
Begin
SQL.Clear;
SQL.Add('SELECT * FROM Jenis_Pemeriksaan WHERE Kode_Pemeriksaan="'+Quotedstr(,DbLookuplistbox.ListField)+'"'); //keyfield/listfield :jg g' bs klwr datax di cheklistbox
ExecSQL;
Active := True;
End;
CheckListBox.Items.Clear;
SQLQuery1.First;
While SQLQuery1.Eof Do
Begin
CheckListBox.Items.Add(SQLQuery1.Fields[0].AsString+' '+SQLQuery1.Fields[2].AsString );
SQLQuery1.Next;
End;
>>Tp hasilnya tidak klwr pdhl pd tabel ini jg ada Kode_pemriksaan
mohon bantuanya |
|
|
| |
|
|
|
|
|
|
|
Post subject: RE: gmn cara tampilin data di Checklistbox
Posted: 02/Feb/2009 10:14
|
|
onMage
Joined: 06-Feb-2006
Posts: 2401
|
|
@arjuna_1982: cukup buat 1 thread utk masalah serupa.
Thread anda saya merge! |
_________________
Dude, if you don't understand the basics and just want to get someone else write the code for you, it means you really shouldn't study computer science. Find a different field.
 http://delphiexpert.wordpress.com
|
| |
|
|
|
|
|
arjuna_1982 |
| Location: |
|
|
Post subject: delphiexpert
Posted: 02/Feb/2009 11:29
|
|
onIntermediate
Joined: 08-Apr-2008
Posts: 51
Status: Offline
|
|
| jangan dimerger hapus aja.... |
|
|
| |
|
|
|
|
|
arjuna_1982 |
| Location: |
|
|
Post subject: delhpiexpert
Posted: 02/Feb/2009 11:30
|
|
onIntermediate
Joined: 08-Apr-2008
Posts: 51
Status: Offline
|
|
tapi yang atas ae...
coz codingya pada keliru semua |
|
|
| |
|
|
|
|
|
|
|
Post subject: Re: delphiexpert
Posted: 02/Feb/2009 11:32
|
|
onMage
Joined: 06-Feb-2006
Posts: 2401
|
|
|
arjuna_1982 wrote:
jangan dimerger hapus aja....
peraturan tidak membenarkan hal tersebut, anything will keep recorded  |
_________________
Dude, if you don't understand the basics and just want to get someone else write the code for you, it means you really shouldn't study computer science. Find a different field.
http://delphiexpert.wordpress.com
|
| |
|
|
|
|
|
|
