latihan mengolah delpi

 bumiayu hacker,

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/