Tips & Trik Tombol Save (Bahasa Pemrograman)
Tips & Trik yang saya maksudkan kali ini adalah membuat Button Save untuk menghindari kerangkapan data, di database biasanya Primary Key, namun jika kita membuat Primary Key di database dan kita koneksikan dengan program aplikasi yang kita buat, maka hasilnya akan error pada saat menginput data yang sama (debug), khususnya pada field yang kita beri Primary key, nah untuk menghindari hal tersebut saya akan berbagi Tips & Trik untuk sobat sekalian...
Tips ini bisa di gunakan untuk banyak jenis bahasa pemrograman.
Pertama, jangan buat Primary key di Database.
Selanjutnya, buatlah tombol save dengan format sbb :
Koding Searching + Koding Save
Contoh Delphi >>>
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from buku where kode = '''+ edit4.Text +''' ');
// Cari Kode pada table buku
adoquery3.open;
if not adoquery1.Eof then
// Jika ada
begin
MessageDlg('Kode Buku Sudah Ada...!!!',mtwarning,[mbOK],0);
edit4.SetFocus;
end
{ searching }
else
// Jika tidak ada
if edit4.Text <> '' then
// Kode tidak boleh kosong
begin
adoquery3.SQL.Clear;
adoquery3.SQL.Add('insert into buku values ('''+ edit4.Text +''','''+ edit5.Text +''','''+ edit6.Text +''','''+ combobox1.Text +''','''+ combobox2.Text +''','''+ edit7.Text +''','''+ edit8.Text +''')');
adoquery3.ExecSQL;
{ save }
refresh3;
end
else
// Jika data kode kosong
edit4.SetFocus;
end;
Logikanya sbb :
Cari data kode yang di input di database table buku jika ada, muncul pesan, jika tidak ada lanjut pada koding save dengan syarat data kode tidak boleh kosong, karna kode adalah Primary key...
Semoga bermanfaat...
Tips ini bisa di gunakan untuk banyak jenis bahasa pemrograman.
Pertama, jangan buat Primary key di Database.
Selanjutnya, buatlah tombol save dengan format sbb :
Koding Searching + Koding Save
Contoh Delphi >>>
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from buku where kode = '''+ edit4.Text +''' ');
// Cari Kode pada table buku
adoquery3.open;
if not adoquery1.Eof then
// Jika ada
begin
MessageDlg('Kode Buku Sudah Ada...!!!',mtwarning,[mbOK],0);
edit4.SetFocus;
end
{ searching }
else
// Jika tidak ada
if edit4.Text <> '' then
// Kode tidak boleh kosong
begin
adoquery3.SQL.Clear;
adoquery3.SQL.Add('insert into buku values ('''+ edit4.Text +''','''+ edit5.Text +''','''+ edit6.Text +''','''+ combobox1.Text +''','''+ combobox2.Text +''','''+ edit7.Text +''','''+ edit8.Text +''')');
adoquery3.ExecSQL;
{ save }
refresh3;
end
else
// Jika data kode kosong
edit4.SetFocus;
end;
Logikanya sbb :
Cari data kode yang di input di database table buku jika ada, muncul pesan, jika tidak ada lanjut pada koding save dengan syarat data kode tidak boleh kosong, karna kode adalah Primary key...
Semoga bermanfaat...
Comments
Post a Comment
Terimakasih telah berkunjung dan berkomentar disini...