Arsip: tanya tentang logika peminjaman

 
user image
more 12 years ago

ricky_seldjatem

jadi sy lagi buat program penggajian yg didalamnya ada field pinjaman, cuma saya lagi bingung ketika saya tekan tombol simpan yang didalamnya berisi perintah insert untuk penggajian dan update untuk peminjaman data memang bisa disimpan (ini berlaku kalau edit box kd_pinjam,dan jml_pinjam terisi) tetapi kalau tidak terisi maka tidak bisa disimpan dan yang muncul message insert conflicted with cloum foreign keyconstraint FK_GAJI_PINJAMAN tombol save : procedure TFGaji.SaveData; //procedure simpan tabel gaji begin FrMenu.ADOCommand1.CommandText:='insert into gaji values ('''+(edit1.Text)+''','''+FormatDateTime('mm/dd/yyyy',DateTimePicker1.Date)+''','''+(edit3.Text)+''','''+(edit4.Text)+''',''' +(edit5.Text)+''','''+(edit6.Text)+''','''+(edit7.Text)+''','''+(edit8.Text)+''','''+(edit9.Text)+''')'; FrMenu.ADOCommand1.Execute; RefreshQueryPinjaman; end; procedure TFGaji.RefreshQueryPinjaman;//procedure update tabel pinjaman begin FrMenu.ADOCommand1.CommandText:='update pinjaman set jml_pinjam = jml_pinjam - '+edit6.text+' where kd_pinjam = '''+edit5.Text+''''; FrMenu.ADOCommand1.Execute; end; procedure TFGaji.BtnSimpanClick(Sender: TObject);//procedure Tombol Simpan begin SaveData; MessageBox(Handle,'Data Gaji Pegawai Sudah Disimpan','Data Gaji',MB_ok + MB_ICONExclamation); end; bagaimana caranya supaya ketika edit box yang berisi kd_pinjaman dan jml_pinjaman tidak terisi data tetap bisa disimpan.terima kasih
user image
more 12 years ago

boediman

waduh... postingnya panjang amat. tp tetap saya msh bingung maksud anda...hehehe. edit1.text itu fields apa y, trus edit3.text apalagi tuh, lainny apaan...hehehe. coba kemukakan dengan jelas, biar orang yg baca postingan anda jg jelas dan bs membantu anda. coba anda buat seleksi kondisi misalnya seperti ini : procedure TFGaji.RefreshQueryPinjaman; begin if (edit5.text<>'') or (edit6.text<>'') then begin FrMenu.ADOCommand1.CommandText:='update pinjaman set jml_pinjam = jml_pinjam - '+edit6.text+' where kd_pinjam = '''+edit5.Text+''''; FrMenu.ADOCommand1.Execute; end semoga membantu...!!
user image
more 12 years ago

yayaretina

sebelum proc refresh query tambahkan code dari boediman

f (edit5.text<>'') or (edit6.text<>'') then
begin
   RefreshQueryPinjaman;
end ;
user image
more 12 years ago

budihermanto

terang aja conflict key ... lha untuk ngiri dbedit kan data source harus dalam keadaan Append / Insert/ Edit Mode data yang gantung ada 1 di isi lagi pake data update dari query ke DB kan dobel jadinya ... makanya kata db server conflict primary key aturan primary key := data hrs unique
user image
more 12 years ago

muktaf

kok saya bingung yaa membacanya ? :D
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com