CONTOH PROGRAM APLIKASI DENGAN MENGGUNAKAN DELPHI 7.0

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; Label1: TLabel; Button1: TButton;
Button2: TButton; Button3: TButton;
Button4: TButton; Label5: TLabel;
Label6: TLabel; Label2: TLabel;
procedure Databarang1Click(Sender: TObject);
procedure Keluar1Click(Sender: TObject);
procedure DataAnggota1Click(Sender: TObject);
procedure PenjualanBarang1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private { Private declarations } public { Public declarations } end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.LOGIN1Click(Sender: TObject);
begin
form2.ShowModal;
end;
procedure TForm1.EXIT1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Data jurusan1Click(Sender: TObject);

begin
Form3.ShowModal;
end;
procedure TForm1.DATA mahasiswa1Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.Button1Click(Sender: TObject); begin FORM2.Show;
form2.show.enabled:=true;
form2.show.enabled:=true;
end;
procedure TForm1.Button4Click(Sender: TObject); begin Application.Terminate; end; end.



PROGRAM UNTUK LOGIN:
procedure TForm1.LOGIN1Click(Sender: TObject);
begin
form2.ShowModal;
end;
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Buttons;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
BitBtn4: TBitBtn;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label5: TLabel;
Label6: TLabel;
ADOConnection1: TADOConnection;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}


PROGRAM UNTUK MENGEDIT DATA ADALAH SEBAGAI BERIKUT:
procedure TForm2.Button2Click(Sender: TObject);
begin
ADOTable1.edit;
ADOTable1.FieldByName('Nama').AsString:=edit2.Text;
ADOTable1.FieldByName('Harga').AsString:=edit3.Text;
ADOTable1.FieldByName('Stock').AsString:=edit4.Text;
ADOTable1.Post;
ShowMessage('Data Telah Diedit');
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if ADOTable1.Locate('Kode_barang',edit1.Text,[locaseinsensitive]) then
begin
Edit2.Text:=ADOTable1.fieldbyname('Nama').AsString;
Edit3.Text:=ADOTable1.fieldbyname('Harga').AsString;
Edit4.Text:=ADOTable1.fieldbyname('Stock').AsString;
end
else
begin
MessageDlg('data tidak di temukan!',mtInformation,[mbOK],0) ;
edit1.clear;
edit1.SetFocus;
end;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
ADOTable1.edit;
ADOTable1.FieldByName('Nama').AsString:=edit2.Text;
ADOTable1.FieldByName('Harga').AsString:=edit3.Text;
ADOTable1.FieldByName('Stock').AsString:=edit4.Text;
ADOTable1.Post;
ShowMessage('Data Telah Diedit');
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
procedure TForm2.BitBtn4Click(Sender: TObject);
begin
close;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
if not ADOTable1.Locate('Kode_Barang',edit1.Text,[loCaseInsensitive])then
begin
ADOTable1.Append;
ADOTable1.FieldByName('Kode_Barang').AsString:=edit1.Text;
ADOTable1.FieldByName('Nama').AsString:=edit2.Text;
ADOTable1.FieldByName('Harga').AsString:=edit3.Text;
ADOTable1.FieldByName('Stock').AsString:=edit4.Text;
ADOTable1.Post;
ShowMessage('Data Telah Disimpan');
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end
else
begin
ShowMessage('Kode Barang Sudah Pernah Digunakan'+chr(13)+'Tekan Tombol Edit Untuk Mengedit Data');
end;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
ADOTable1.Delete;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
BitBtn4: TBitBtn;
Button2: TButton;
Button1: TButton;
Button3: TButton;
Label5: TLabel;
Label6: TLabel;
Button4: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
if not ADOTable1.Locate('no_anggota',edit1.Text,[loCaseInsensitive])then
begin
ADOTable1.Append;
ADOTable1.FieldByName('no_anggota').AsString:=edit1.Text;
ADOTable1.FieldByName('Nama').AsString:=edit2.Text;
ADOTable1.FieldByName('alamat').AsString:=edit3.Text;
ADOTable1.FieldByName('telepon').AsString:=edit4.Text;
ADOTable1.Post;
//ShowMessage('Data Telah Disimpan');
{ edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear; }
end
else
begin
ShowMessage('Kode Anggota Sudah Pernah Digunakan'+chr(13)+'Tekan Tombol Edit Untuk Mengedit Data');
end;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1.FieldByName('Nama').AsString:=edit2.Text;
ADOTable1.FieldByName('alamat').AsString:=edit3.Text;
ADOTable1.FieldByName('telepon').AsString:=edit4.Text;
ADOTable1.Post;
ShowMessage('Data telah di edit');
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
ADOTable1.Delete;
end;
procedure TForm3.BitBtn6Click(Sender: TObject);
begin
try
ADOTable1.Delete;
except
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
ADOTable1.edit;
ADOTable1.FieldByName('no_anggota').AsString:=edit1.Text;
ADOTable1.FieldByName('Nama').AsString:=edit2.Text;
ADOTable1.FieldByName('alamat').AsString:=edit3.Text;
ADOTable1.FieldByName('telepon').AsString:=edit4.Text;
ADOTable1.Post;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
if not ADOTable1.Locate('no_anggota',edit1.Text,[loCaseInsensitive])then
begin
ADOTable1.Append;
ADOTable1.FieldByName('no_anggota').AsString:=edit1.Text;
ADOTable1.FieldByName('Nama').AsString:=edit2.Text;
ADOTable1.FieldByName('alamat').AsString:=edit3.Text;
ADOTable1.FieldByName('telepon').AsString:=edit4.Text;
ADOTable1.Post;
end
else
begin
ShowMessage('Kode Anggota Sudah Pernah Digunakan'+chr(13)+'Tekan Tombol Edit Untuk Mengedit Data');
end;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
if ADOTable1.Locate('no_anggota',edit1.Text,[locaseinsensitive]) then
begin
Edit2.Text:=ADOTable1.fieldbyname('Nama').AsString;
Edit3.Text:=ADOTable1.fieldbyname('alamat').AsString;
Edit4.Text:=ADOTable1.fieldbyname('telepon').AsString;
end
else
begin
MessageDlg('data tidak di temukan!',mtInformation,[mbOK],0) ;
edit1.clear;
edit1.SetFocus;
end;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
ADOTable1.Delete;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids;
type
TForm4 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
GroupBox3: TGroupBox;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Label6: TLabel;
Edit6: TEdit;
Edit7: TEdit;
GroupBox4: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOTable2: TADOTable;
Label8: TLabel;
Edit8: TEdit;
Label9: TLabel;
Edit9: TEdit;
Label10: TLabel;
Edit10: TEdit;
Button1: TButton;
Button2: TButton;
ADOTable3: TADOTable;
Label7: TLabel;
Label11: TLabel;
ADOConnection1: TADOConnection;
procedure BitBtn2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
// if key=#13 then
if ADOTable1.Locate('kode_barang',Edit2.Text,[loCaseInsensitive]) then
begin
Edit8.Text:=ADOTable2.FieldValues['nama'];
Edit9.Text:=ADOTable2.FieldValues['harga'];
Edit10.Text:=ADOTable2.FieldValues['stock'];
end
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
ADOTable1.Append;
ADOTable1.FieldByName('No_Faktur').AsString:=Edit1.Text;
ADOTable1.FieldByName('No_Anggota').AsString:=Edit3.Text;
ADOTable1.FieldByName('Kode_Barang').AsString:=Edit2.Text;
ADOTable1.FieldByName('Jumlah').AsString:=Edit4.Text;
ADOTable1.FieldByName('Total').AsString:=Edit5.Text;
ADOTable1.Post;
ADOTable3.Filter:='Kode_barang ='+QuotedStr(Edit2.Text );
ADOTable3.Filtered :=true;
ADOTable3.Edit;
ADOTable3.FieldByName('Stock').Value :=ADOTable3.fieldbyname('Stock').Value -
StrToInt(Edit4 .Text );
ADOTable3.Post;
end;
procedure TForm4.Button2Click(Sender: TObject);
var
harga,jumlah,total,stock : integer;
begin
try
harga :=StrToInt(Edit9.Text);
jumlah :=StrToInt(Edit4.Text);
stock :=StrToInt(Edit10.Text);
if (jumlah>stock) then
begin
total :=harga*jumlah;
Edit5.Text:=IntToStr(total);
ShowMessage('stock barang yang tersedia'+' ' + Edit10.Text);
end
else
begin
total :=harga*jumlah;
Edit5.Text :=IntToStr(total);
end;
except
Edit5.Text:=' ';
end;
end;
procedure TForm4.Edit6Change(Sender: TObject);
var
t,u,k :integer;
begin
try
t:=StrToInt(Edit5.Text );
u :=StrToInt(Edit6.Text );
k :=u-t;
Edit7.Text:=IntToStr(k);
except
Edit7.Text :=' ' ;
end;
end;
procedure TForm4.Edit4Change(Sender: TObject);
var
harga,jumlah,total,stock : integer;
begin
try
harga :=StrToInt(Edit9.Text);
jumlah :=StrToInt(Edit4.Text);
stock :=StrToInt(Edit10.Text);
if (jumlah>stock) then
begin
total :=harga*jumlah;
Edit5.Text:=IntToStr(total);
ShowMessage('stock barang yang tersedia'+' ' + Edit10.Text);
Edit4.Text :=Edit10.Text;
end
else
begin
total :=harga*jumlah;
Edit5.Text :=IntToStr(total);
end;
except
Edit5.Text:=' ';
end;
end;
end.