Nama : Muhammad Iqbal
Kelas : IV F
1.
Dengan BDE komponen
Tampilan from
Atur komponen SBB:
KOMPONEN
|
NAME
|
CAPTION
|
FORM1
|
FORM1
|
BDE KOMPONEN
|
EDIT1-EDIT5
|
EDIT1-EDIT5
|
KOSONGKAN
|
BUTTON1
|
BUTTON1
|
TAMBAH
|
BUTTON2
|
BUTTON2
|
SIMPAN
|
BUTTON3
|
BUTTON3
|
BATAL
|
BUTTON4
|
BUTTON4
|
EXIT
|
BUTTON5
|
BTN1
|
EDIT
|
BUTTON7
|
BTN2
|
UPDATE
|
BUTTON8
|
BTN3
|
HAPUS
|
TABEL
|
TABEL1
|
-
|
DATASOURCE
|
DATASOURCE1
|
-
|
-
Tulis
SCRIP Procedure berikut
public
procedure tampil ;
procedure kosong ;
procedure mati ;
procedure hidup ;
procedure cari;
procedure .cari ;
if Button2.Enabled = True then
begin
if Edit1.Text ='' then
ShowMessage('Tidak Boleh Kosong')
else if Table1.FindKey([Edit1.Text])
then
begin
ShowMessage('Data Sudah Ada');
Exit;
end
else
begin
hidup;
Edit1.Enabled := False ;
Form1.ActiveControl := Edit2;
end
end
else
begin
if not Table1.FindKey([Edit1.Text])
then
begin
ShowMessage('Data Belum Ada');
Exit;
end
else
begin
hidup;
tampil;
Edit1.Enabled := False ;
Form1.ActiveControl := Edit2;
end
end
end;
procedure .tampil ;
edit1.Text := table1['kode_barang'];
edit2.Text := table1['nama_barang'];
edit3.Text := floattostr(
table1['harga_beli']);
edit4.Text := floattostr(
table1['harga_jual']);
edit5.Text := floattostr( table1['stok']);
procedure .mati ;
edit1.enabled := false;
edit2.enabled := false;
edit3.enabled := false;
edit4.enabled := false;
edit5.enabled := false;
procedure .hidup ;
edit1.enabled := true;
edit2.enabled := true;
edit3.enabled := true;
edit4.enabled := true;
edit5.enabled := true;
procedure .kosong ;
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '';
edit5.Text := '';
-
Tulis
SCRIP pada edit1. KEYPRESSS
if Key = #13 then
begin
cari;
-
Tulis
SCRIP pada button tambah
mati;
Edit1.Enabled := True ;
Button2.Enabled := True ;
Form1.ActiveControl := Edit1 ;
kosong;
-
Tulis
SCRIP pada button batal
kosong;
Table1.First ;
tampil ;
mati;
Button2.Enabled := False ;
btn2.Enabled := False ;
BTN3.Enabled := False ;
-
Tulis
SCRIP pada button simpan
Table1.Append ;
Table1['kode_barang'] := Edit1.Text ;
Table1['nama_barang'] := Edit2.Text ;
Table1['harga_beli'] :=
StrToFloat(Edit3.Text) ;
Table1['harga_jual'] :=
StrToFloat(Edit4.Text) ;
Table1['stok'] :=
StrToFloat(Edit5.Text) ;
Table1.Post;
mati;
-
Tulis
SCRIP pada button exit
Table1.Close;
close;
-
Tulis
SCRIP pada button edit
Button2.Enabled := false ;
Edit1.Enabled := True ;
btn2.Enabled := True ;
btn3.Enabled := True ;
Form1.ActiveControl := Edit1 ;
KOSONG;
-
Tulis
SCRIP pada button update
Table1.Edit ;
Table1['kode_barang'] := Edit1.Text ;
Table1['nama_barang'] := Edit2.Text ;
Table1['harga_beli'] :=
StrToFloat(Edit3.Text) ;
Table1['harga_jual'] :=
StrToFloat(Edit4.Text) ;
Table1['stok'] :=
StrToFloat(Edit5.Text) ;
Table1.Post;
mati;
-
Tulis
SCRIP pada button hapus
Table1.Delete ;
MATI;
Table1.First ;
2.
Dengan
ADO komponen
Tampilan From
Atur komponen SBB:
KOMPONEN
|
NAME
|
CAPTION
|
FORM2
|
FORM2
|
ADO KOMPONEN
|
EDIT1-EDIT5
|
EDT1-EDT5
|
KOSONGKAN
|
BUTTON1
|
BTN4
|
TAMBAH
|
BUTTON2
|
BTN5
|
SIMPAN
|
BUTTON3
|
BTN6
|
BATAL
|
BUTTON4
|
BTN7
|
EXIT
|
BUTTON5
|
BTN1
|
EDIT
|
BUTTON7
|
BTN2
|
UPDATE
|
BUTTON8
|
BTN3
|
HAPUS
|
ADO CONNECTION
|
CON1
|
-
|
DATASOURCE
|
DS1
|
-
|
QUERY1-QUERY3
|
QRY12-QRY3
|
-
|
-
Tulis
SCRIP Procedure berikut
public
procedure kosong ;
procedure mati ;
procedure hidup ;
procedure cari;
procedure tampil ;
procedure sqry1;
procedure con;
procedure .con ;
con1.ConnectionString := 'Provider=MSDASQL.1;Persist Security
Info=False;Data Source=IQbalDb2';
con1.LoginPrompt := False ;
con1.Connected := True;
qry1.Connection := con1;
qry1.SQL.Add('select *from barang');
qry1.Active := True;
qry2.Connection := con1;
qry2.SQL.Add('select *from barang');
qry2.Active := True;
qry3.Connection := con1;
qry3.SQL.Add('select *from barang');
qry3.Active := True;
ds1.DataSet :=qry2;
dbgrd1.DataSource :=ds1;
procedure .sqry1;
with qry1 do
begin
SQL.Clear;
SQL.Add('select * from barang where
kode_barang="'+edt1.Text+'"');
Open;
if not eof then
begin
edt1.Text :=
fieldvalues['kode_barang'];
edt2.Text := fieldvalues['nama_barang'];
edt3.Text := fieldvalues['harga_beli'];
edt4.Text := fieldvalues['harga_jual'];
edt5.Text := fieldvalues['stok'];
end;
end;
procedure .cari ;
sqry1;
if btn5.Enabled = True then
begin
if edt1.Text ='' then
ShowMessage('Kode Barang Tidak Boleh
Kosong')
else if edt1.Text =
qry1.fieldvalues['kode_barang'] then
begin
ShowMessage('Data Sudah Ada');
Exit;
end
else
begin
hidup;
edt2.Text := '';
edt3.Text := '';
edt4.Text := '';
edt5.Text := '';
edt1.Enabled := False ;
Form2.ActiveControl := edt2;
end
end
else
begin
if edt1.Text ='' then
ShowMessage('Kode Barang Tidak Boleh
Kosong')
else if
qry1.fieldvalues['kode_barang'] = edt1.Text then
begin
hidup;
btn2.Enabled := True ;
edt1.Enabled := False ;
Form2.ActiveControl := edt2;
end
else
begin
ShowMessage('Data Belum Ada');
Exit;
end
end;
procedure .mati ;
edt1.enabled := false;
edt2.enabled := false;
edt3.enabled := false;
edt4.enabled := false;
edt5.enabled := false;;
procedure .hidup ;
edt1.enabled := true;
edt2.enabled := true;
edt3.enabled := true;
edt4.enabled := true;
edt5.enabled := true;
procedure .kosong ;
edt1.Text := '';
edt2.Text := '';
edt3.Text := '';
edt4.Text := '';
edt5.Text := '';
procedure .tampil ;
with qry3 do
begin
SQL.Clear;
SQL.Add('select * from barang');
Open;
if not eof then
begin
edt1.Text :=
fieldvalues['kode_barang'];
edt2.Text :=
fieldvalues['nama_barang'];
edt3.Text := fieldvalues['harga_beli'];
edt4.Text := fieldvalues['harga_jual'];
edt5.Text := fieldvalues['stok'];
end;
end
-
Tulis
SCRIP pada edit1.KEYPRESSS
if Key = #13
then
begin
cari;
end;
-
Tulis
SCRIP pada button tambah
mati;
edt1.Enabled :=
True ;
btn5.Enabled :=
True ;
Form2.ActiveControl := edt1 ;
kosong;
-
Tulis
SCRIP pada button batal
kosong;
qry3.First ;
tampil ;
mati;
btn5.Enabled := False ;
btn2.Enabled := False ;
BTN3.Enabled := False ;
-
Tulis
SCRIP pada button simpan
with qry1 do
begin
sql.Clear;
sql.Add('insert into barang values ("'+ edt1.Text +'","'
+edt2.Text + '", "' +edt3.Text +'", "' +edt4.Text +'",
"' +edt5.Text +'")');
ExecSQL;
end;
qry2.Close;
qry2.open;
ds1.DataSet :=
qry2;
mati;
-
Tulis
SCRIP pada button exit
qry1.Close;
qry2.Close;
qry3.Close;
close;
-
Tulis
SCRIP pada button edit
btn5.Enabled := false ;
edt1.Enabled := True ;
btn3.Enabled := True ;
Form2.ActiveControl := edt1 ;
KOSONG;
-
Tulis
SCRIP pada button update
with qry1 do
begin
sql.Clear;
sql.Add('update barang set (nama_barang="' +edt2.Text +
'",harga_beli= "' +edt3.Text +'",harga_jual= "' +edt4.Text
+'",stok= "' +edt5.Text +'" where kode_barang = "'+
edt1.Text +'",)');
ExecSQL;
end;
qry2.Close;
qry2.open;
ds1.DataSet := qry2;
mati;
-
Tulis SCRIP pada button hapus
tampil;
qry3.Delete ;
MATI;
qry3.First ;
tampil;
qry2.Close;
qry2.open;
ds1.DataSet := qry2;
Tidak ada komentar:
Posting Komentar