Gan, misal di edit box mau input harga, misal 1000, nah pas di tekan tombol nol yg ketiga maka akan mjd spt ini 1,000. Itu gmn ya? Auto insert separator gitu.
Thanks gan ane coba dlu. Btw, kalau mau menggabungkan dua tabel kedalam dbgrid gmn ya kalau pke query? Apakah perlu komponen query tambahan buat menampung hasil join dr tabel?
gan, kalau scroll mouse itu eventnya dimana ya? pada saat scroll mouse. . . dan juga bila di klik panah scrollbar dbgrid baik yang di atas ataupun di bawah itu nama eventnya apa ya? Uploaded with ImageShack.us
@agan sinarPurnama thanks gan tambahannya. . . :D :2thumbup ==============edit============== udah mau...
gan, misal ada 3 user: 1. Super Admin 2. Admin 3. User biasa misal Logikanya kaya gini: - jika SuperAdmin maka bisa mengakses semuanya. - jika Admin maka boleh mengakses semuanya, kecuali menambah dan menghapus anggota. - jika user biasa maka hanya boleh melihat ataupun melakukan transaksi saja. ...
setelah ane liat komen ente, ternyata emang mau pas ane coba bikin new application baru, tapi pas ane pake mainmenu di project ane ternyata gak mau... setelah dicari-cari apa penyebabnya, ternyata gara-gara Border style form menggunakan bsDialog, :capedes setelah di ganti menjadi yang lain, baru...
thanks gan, tapi karena buat tugas kuliah jadi tanpa harus menggunakan komponen tambahan, tapi udah sesuai harapan walaupun tetap menggunakan file *.bmp. btw, kalau menggunakan CoolBar, kan mainmenu tidak tampil, nah, gimana caranya agar CoolBar dan MainMenu tampil keduanya?
gan, kalau ada banyak label (misal 50), trus ane pengennya pada saat form onshow semua posisi top dari label tersebut adalah 10, nah gimana caranya agar kodingan seperti ini dibikin menjadi lebih singkat, atau dioptimalkan. label1.top:= 10; label2.top:= 10; label3.top:= 10; ... ... ... label50.t...
oke mod, ane googling dlu. Thanks. Btw, bgm kalo ky gini.... with ZQuery1 do begin Active := False; Close; SQL.Clear; if CaseSencitive = True then begin SQL.Text:= 'SELECT * FROM tkaryawan WHERE nama = :nama'; ParamByName('nama').AsString := edCari2.Text; end else begin SQL....
gan, agar case censitive gimana ya? with ZQuery1 do begin Active := False; Close; SQL.Clear; SQL.Text:= 'SELECT * FROM tkaryawan WHERE nama LIKE ' + QuotedStr('%' + edCari.Text + '%'); Active := True; Open; end;