:D makasi gan .. sudah bisa.. tapi bisa minta di jelasin gk BOF sama VK_UP tu mksudnya apa?? biar paham :Peace:
gk bisa gan.. koneksi ane pakai mydac.. koding ane gini gan procedure Tjual.dbnamaKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var a:string; begin id.Text:=qprodukid.AsString; a:=snama.Text; qkosong.SQL.Clear; qkosong.SQL.Add('select min(id) from produk where nama LIKE "...
tanya lagi ya om :Peace: gini ada edit terus bawahnya ada dbgrid.. di dbgrid ada 3 data a a a b b b c c c jika di tekan tombol atas pas di data yg paling atas setfocus pindah ke edit gmn ya ? ane coba di dbgrid keyup pas di data ke 2 pindah ke 1 udah lansung ke edit. bukan dari data ke 1 ke edit :D
gan kode ascii arah bawah apa ya ?? 40 kok gk bisa ya procedure Tjual.snamaKeyPress(Sender: TObject; var Key: Char); begin if key=#40 then begin dbnama.SetFocus; end; end; pakai keydown belum arah bawah udah ke dbgridnya :nohope:
domba kumal hadir disini mengasuh domba2 lucu :)™ tapi gk bisa tu gan :D panggil lewat browser aja gk nongol
tanya lagi om :hammers kalau koneksikan pakai wlan gmn ya ?? kalau LAN kan sudah lancar .. nah kalau WLAN gmn ya ?? :D
ow ya alclient yg belum :D :Peace: tapi gini gan form kadang geser tu kenapa ya ?? misal abis preview laporan > di close previewnya form nya geser dikit ke kanan.. di kasih koding left := 0; malah tambah geser kanan :capedes
tanya lagi ya om :Peace: biar form tetep pas waktu di buka di notebook / pc dkk gmn ya ?? ane coba di form activate self.height:=screen.height - 10; self.widht:=screen.widht- 10; hasilnya form ke potong + tetep lebih besar dari ukuran layar kalau di NB :D