dari beberapa thread validasi comboboxnya ngga ada ya... hanya bisa nampilin data aja ... kalo nampilin data di combobox aku tahu .. tapi validasinya ??? saya gunakan delphi 7 misal kalo user ngetik nama departemen keu... jadi langsung keuangan memang bisa kalo di upercase (bisa seperti itu) tapi kalo di lowercase ngga bisa langsul mencul? supaya bisa gimana? validasi kedua kalo diketik sembarang masih bisa.. terimakasih, mohon bantuannya

mungkin ini bisa dicoba: if length(Combo1.text>0) then begin adoquery1.text := 'select * from Pegawai where departemen like :departemen'; adoquery1.param.parambyname(:departemen).value := '%' + Combo1.text + '%'; //cari kriteria yg mirip atau sama dg yg ada pd combo box adoquery1.open; if adoquery1.recordcount > 0 then //jika ada ada dlm database begin //tampilkan item tsb ke dalam combobox for i := 1 to adoquery1.recordcount do begin combo1.items.add(adoquery1['departemen']) end; end; end; jadi pada saat kita mengetik misalnya 'keu' akan muncul semua kriteria yg mirip seperti keuangan, keuntungan, dsb.. pada combobox tsb... selamat mencoba...

terimakasih sebelumnya ------------------------- itu sih sama ya pada intinya dg kode2 sebelumnya tapi masih saja kalo combobox di ketik sembarang masih mau

@snip3r: mungkin ini bisa dicoba: if length(Combo1.text>0) then begin adoquery1.text := 'select from Pegawai where departemen like :departemen'; adoquery1.param.parambyname(:departemen).value := '%' + Combo1.text + '%'; //cari kriteria yg mirip atau sama dg yg ada pd combo box adoquery1.open; if adoquery1.recordcount > 0 then //jika ada ada dlm database begin //tampilkan item tsb ke dalam combobox for i := 1 to adoquery1.recordcount do begin combo1.items.add(adoquery1['departemen']) end; end; end; jadi pada saat kita mengetik misalnya 'keu' akan muncul semua kriteria yg mirip seperti keuangan, keuntungan, dsb.. pada combobox tsb... selamat mencoba...

cara mas snip3r hampir sama kaya yang setiap hari ane bikin program database sederhana. ane biasa pake adoquery.sql.add('select from tabelnya where fieldnya = "'+combobox1.text+'"'); sebenernya kalo mo valid kedatabase cuma hapal perintah SQL aja. benr ga? pasti salaah maklum ga pernah kuliah, tapi banyak anak kuliah minta bikin program heran.... :?:

@belix: tapi banyak anak kuliah minta bikin program heran.... :?:

validasi ... if combobbox1.text=' ' then bla-bla... saya paham kebetulan saya dapat kode seprti ini

procedure Tfinputtransaksi.Tampil(Sender: TObject; var Key: Char);
var
  Found: boolean;
  i,SelSt: Integer;
  TmpStr: string;
begin
  { first, process the keystroke to obtain the current string }
  { This code requires all items in list to be uppercase}
  if Key in  then Dec(Key,32); {Force Uppercase only!}
  with (Sender as TComboBox) do

saya di delphi 5 jalan dengan baik tapi didelphi 7 tidak support

lanjutan kode diatas karena tidak muat...

  begin
    SelSt := SelStart;
    if (Key = Chr(vk_Back)) and (SelLength <> 0) then
     TmpStr := Copy(Text,1,SelStart)+Copy(Text,SelLength+SelStart+1,255)
    else if Key = Chr(vk_Back) then {SelLength = 0}
     TmpStr := Copy(Text,1,SelStart-1)+Copy(Text,SelStart+1,255)
    else {Key in }
     TmpStr := Copy(Text,1,SelStart)+Key+Copy(Text,SelLength+SelStart+1,255);
    if TmpStr = '' then Exit;
    { update SelSt to the current insertion point }