SCRIPT TAMBAH
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='ZIT-'+FormatDateTime('yyyy',Now)+
'-'+IntToStr(ADOQuery1.RecordCount+1);
end;
SCRIPT SIMPAN
procedure TForm1.Button1Click(Sender: TObject);
var kode, nama, harga:String;
begin
kode:=Edit1.Text;
nama:=Edit2.Text;
harga:=Edit3.Text;
if (Edit1.Text<>'')and(Edit2.Text<>'')and(Edit3.Text<>'') then
else
begin
MessageDlg('Data Belum Ada !',mtWarning,[mbOK],0);
Exit;
end;
with ADOQuery1 do
begin
Active:=False;
SQL.Clear;
SQL.Text:='select * from tbarang where kode_barang='+QuotedStr(Edit1.Text);
Active:=True;
if RecordCount>0 then
begin
MessageDlg('Terjadi Duplikasi Kode Barang',mtWarning,[mbOK],0);
with ADOQuery1 do
begin
Active:=False;
SQL.Clear;
SQL.Text:='select * from tbarang';
Active:=True;
end;
Exit;
end;
end;
with ADOQuery1 do
begin
SQL.Clear;
SQL.Text:='insert into tbarang(Kode_barang,nama_barang,harga_satuan)values('+
QuotedStr(Kode)+','+
QuotedStr(nama)+','+
QuotedStr(harga)+')';
with ADOQuery1 do
ExecSQL;
MessageDlg('Data sudah tersimpan.',mtinformation,[mbOK],0);
begin
Active:=False;
SQL.Clear;
SQL.Text:='select * from tbarang';
Active:=True;
end;
end;
end;
SCRIPT CARI
procedure TForm1.Button4Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Active:=False;
SQL.Clear;
SQL.Text:='select * from tbarang where kode_barang='+QuotedStr(Edit4.Text);
Active:=True;
end;
if ADOQuery1.RecordCount=0 then
begin
MessageDlg('Data Tidak Ditemukan.',mtInformation,[mbOK],0);
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from tbarang';
ADOQuery1.Active:=True;
end
else
begin
DBGrid1.SetFocus;
end;
end;
SCRIPT EDIT DATA
procedure TForm1.Button3Click(Sender: TObject);
begin
DBGrid1.SetFocus;
With ADOQuery1 do
begin
form2.Edit1.Enabled:=true;
form2.Edit2.Enabled:=true;
form2.Edit3.Enabled:=true;
form2.Edit1.Text:=FieldValues['Kode_Barang'];
form2.Edit2.Text:=FieldValues['Nama_Barang'];
form2.Edit3.Text:=FieldValues['Harga_Satuan'];
form2.Edit1.Enabled:=false;
form2.Edit2.Enabled:=false;
form2.Edit3.Enabled:=false;
end;
form2.Show
end;
Tambahkan komponen ADOQuery dan setting propertiesnya menjadi seperti yang sudah saya paparkan
diatas.
Lalu setelah itu kembali ke form pertama dan dobel klik di button edit. Setelah itu, masukan coding
berikut:
procedure TForm1.Button3Click(Sender: TObject);
begin
DBGrid1.SetFocus;
With ADOQuery1 do
begin
form2.Edit1.Enabled:=true;
form2.Edit2.Enabled:=true;
form2.Edit3.Enabled:=true;
form2.Edit1.Text:=FieldValues['Kode_Barang'];
form2.Edit2.Text:=FieldValues['Nama_Barang'];
form2.Edit3.Text:=FieldValues['Harga_Satuan'];
form2.Edit1.Enabled:=false;
form2.Edit2.Enabled:=false;
form2.Edit3.Enabled:=false;
end;
form2.Show
end;
Setelah itu, kembali lahi ke form kedua dan focuskan ke formnya lalu pilih tab event pada properties lalu
dobel klik di oncreate seperti yang terlihat pada gambar dibawah ini:
Dan masukan coding dibawah ini:
procedure TForm2.FormCreate(Sender: TObject);
begin
Button2.Enabled:=False;
Button3.Enabled:=False;
end;
Masih di form kedua. Dobel klik di button edit lalu masukan coding dibawah ini:
procedure TForm2.Button1Click(Sender: TObject);
begin
Edit2.Enabled:=True;
Edit3.Enabled:=True;
Button2.Enabled:=True;
Button3.Enabled:=True;
Edit2.SetFocus;
end;
Lalu setelah itu dobel klik di button perbaharui dan masukan coding dibawah ini:
procedure TForm2.Button2Click(Sender: TObject);
begin
Edit1.Enabled:=True;
with Form1.ADOQUERY1 do
begin
Close;
SQL.Text := 'UPDATE tbarang SET Nama_Barang="'+Edit2.Text+'", Harga_Satuan="'+edit3.Text+'" WHERE
kode_Barang='+QuotedStr(Edit1.Text);
ExecSQL;
MessageDlg('Data Berhasil DiPerbaharui ...',mtinformation,[mbok],0);
SQL.Text := 'SELECT * FROM tbarang';
Open;
end;
Form2.Close;
end;
Terakhir dobel klik pada butto ulang di form 2 dan masukan coding dibawah ini:
procedure TForm2.Button3Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tbarang where Kode_Barang='+QuotedStr(Edit1.Text));
open;
end;
Edit2.Text:=ADOQuery1['Nama_Barang'];
Edit3.Text:=ADOQuery1['Harga_Satuan'];
Edit2.SetFocus;
end;
Coding Hapus Data
Setelah selesai membuat edit data selanjutnya adalah membuat coding hapus data. Pindah ke Form
pertama, lalu dobel klik pada button hapus dan masukan codingnya dibawah ini:
procedure TForm1.Button5Click(Sender: TObject);
begin
if Application.MessageBox('Apakah anda yakin ingin menghapus data yang
dipilih','konfirmasi',MB_YESNO or MB_ICONINFORMATION)=idyes then
begin
ADOQuery1.Delete;
end;
end;
