unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; GroupBox1: TGroupBox; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; DataSource1: TDataSource; Table1: TTable; DBGrid1: TDBGrid; procedure Edit4Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit4Change(Sender: TObject); begin edit5.Text := inttostr(strtoint(edit4.Text)*strtoint(edit3.Text)); end; procedure TForm1.Button1Click(Sender: TObject); begin table1.Append ; table1['kode']:=edit1.Text ; table1['nama_brg']:=edit2.Text ; table1['harga_sat']:=edit3.Text ; table1['jum_beli']:=edit4.Text ; table1['total']:=edit5.Text ; end; procedure TForm1.Button2Click(Sender: TObject); begin if(application.MessageBox('Yakin akan Menghapus Data ini ?','KONFIRMASI', mb_yesno or mb_iconwarning)=idyes) then table1.Delete; end; procedure TForm1.Button4Click(Sender: TObject); begin close; end; procedure TForm1.Button3Click(Sender: TObject); begin edit1.Text:=''; edit2.Text:=''; edit3.Text:='0'; edit4.Text:='0'; edit5.Text:='0'; edit1.SetFocus; end; end. |
The Best Gaming Blogger Template
إرسال تعليق