Disini saya hanya ingin berbagi saja,tidak maksud untuk mengurui atau apapun,karena ilmu itu datang nya dari allah jadi sebagai orang yang baik,boleh dong bagi bagi,,ckckckck silakan dah di pelajari buat nt nt yang suka oprek-oprekkan hahaha
Table Barang
Table Transaksi
private
{ Private
declarations }
public
procedure bersih;
procedure aktif;
procedure
nonaktif;
procedure auto;
procedure awal;
procedure tampil;
{ Public
declarations }
end;
var
Form1: TForm1;
var isi:Boolean;
implementation
{$R *.dfm}
procedure TForm1.aktif;
var c:integer;
begin
for c:=0 to ComponentCount -1 do
if Components[c] is TEdit then
TEdit(Components[c]).enabled:=true;
begin
for c:=0 to ComponentCount -1 do
if Components[c] is TButton then
TButton(Components[c]).enabled:=true;
end
end;
procedure TForm1.bersih;
var c:integer;
begin
for c:=0 to ComponentCount -1 do
if Components[c] is TEdit then
TEdit(Components[c]).text:='0';
begin
edit1.Clear;
edit3.Clear;
ComboBox1.Text:='-PILIH-';
end
end;
procedure TForm1.nonaktif;
var c:integer;
begin
for c:=0 to ComponentCount -1 do
if Components[c] is TEdit then
TEdit(Components[c]).enabled:=false;
begin
for c:=0 to ComponentCount -1 do
if Components[c] is TButton then
TButton(Components[c]).enabled:=false;
end
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
awal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
isi:=true;
bersih;
aktif;
ComboBox1.enabled:=true;
auto;
ComboBox1.SetFocus;
end;
procedure TForm1.auto;
begin
edit1.text:='T001';
if table2.RecordCount >=9 then
edit1.Text:='T0'+IntToStr(Table2.RecordCount+1)
else
if table2.RecordCount >=1 then
edit1.Text:='T00'+IntToStr(Table2.RecordCount+1)
end;
procedure TForm1.Button3Click(Sender: TObject);
var x:string;
begin
x:=InputBox('Pencarian','Masukkan No.Transaksi yang ingin
dicari','');
if Table2.FindKey([x]) then
begin
isi:=false;
ComboBox1.Enabled:=false;
ShowMessage('Data Ditemukan');
tampil;
end
else
begin
ShowMessage('Data Tidak Ditemukan');
end
end;
procedure TForm1.tampil;
begin
edit1.Text:=table2['Notrans'];
edit2.Text:=table2['Tgltrans'];
ComboBox1.Text:=table2['Kdbrg'];
edit4.Text:=table2['Hrg'];
edit5.Text:=table2['Jumbel'];
edit7.Text:=table2['Total'];
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
if (Application.MessageBox('Yakin Mau
Keluar?','Info',MB_ICONQUESTION+MB_YESNO)=IDYES) then
close
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if isi=true then
begin
table2.append;
table2['Notrans']:=edit1.Text;
table2['Tgltrans']:=edit2.Text;
table2['Kdbrg']:=ComboBox1.Text;
table2['Hrg']:=edit4.Text;
table2['Jumbel']:=edit5.Text;
table2['Total']:=edit7.Text;
table2.Post;
ShowMessage('Data Telah Tersimpan');
awal;
end
else
begin
table2.edit;
table2['Notrans']:=edit1.Text;
table2['Tgltrans']:=edit2.Text;
table2['Kdbrg']:=ComboBox1.Text;
table2['Hrg']:=edit4.Text;
table2['Jumbel']:=edit5.Text;
table2['Total']:=edit7.Text;
table2.Post;
ShowMessage('Data Telah Teredit');
awal;
end
end;
procedure TForm1.awal;
begin
bersih;
nonaktif;
ComboBox1.enabled:=false;
Button1.Enabled:=true;
Button6.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=DateToStr(date);
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key:
Char);
begin
if key=#13 then
edit6.Text:=FloatToStr(StrToFloat(edit4.text)*
StrToFloat(edit5.text));
edit7.Text:=FloatToStr(StrToFloat(edit6.text)+
StrToFloat(edit7.text));
edit8.SetFocus;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
awal;
end;
procedure TForm1.Edit8KeyPress(Sender: TObject; var Key:
Char);
begin
if key=#13 then
if StrToFloat(edit8.text)< StrToFloat(edit7.text) then
begin
ShowMessage('Maaf Uang Anda Kurang (-.-!)!!!');
edit8.Text:='0';
edit8.SetFocus;
end
else
begin
edit9.Text:=FloatToStr(StrToFloat(edit8.text)-StrToFloat(edit7.text));
ShowMessage('Terima Kasih(^_^)...');
edit9.SetFocus;
end
end;
procedure TForm1.Button5Click(Sender: TObject);
var x:string;
begin
x:=InputBox('Pencarian','Masukkan No.Transaksi yang ingin
dicari','');
if Table2.FindKey([x]) then
begin
tampil;
if (Application.MessageBox('Yakin Mau
Dihapus?','Info',MB_ICONQUESTION+MB_YESNO)=IDYES) then
table2.Delete;
ShowMessage('Data Telah Terhapus');
awal;
end
else
begin
ShowMessage('Data Tidak Ditemukan');
end
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
table1.First;
while not table1.Eof do
begin
ComboBox1.Items.add(Table1['Kdbrg']);
table1.Next;
end
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Table1.FindKey([ComboBox1.Text]) then
edit3.Text:=Table1['Nmbrg'];
edit4.Text:=Table1['Hrg'];
edit5.SetFocus;
end;
end.
sumber : http://bumiayu.indonesianforum.net/
