Delphi 7 ( Tiket Kereta Api )

Coding/Listing :


unit Data_Transaksi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids, StrUtils;

type
  TFTransaksi = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    eno: TEdit;
    etanggal: TEdit;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    enmcustomer: TEdit;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    enmkereta: TEdit;
    ejurusan: TEdit;
    ekelas: TEdit;
    eharga: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    ejumlah: TEdit;
    etotal: TEdit;
    ebayar: TEdit;
    ekembali: TEdit;
    binput: TButton;
    bsave: TButton;
    bcancel: TButton;
    bexit: TButton;
    Timer1: TTimer;
    DataSource1: TDataSource;
    tabel_transaksi: TTable;
    DBGrid1: TDBGrid;
    tabel_tiket: TTable;
    tabel_customer: TTable;
    ekdtiket: TEdit;
    ekdcustomer: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure binputClick(Sender: TObject);
    procedure ekdtiketKeyPress(Sender: TObject; var Key: Char);
    procedure ekdcustomerKeyPress(Sender: TObject; var Key: Char);
    procedure bsaveClick(Sender: TObject);
    procedure bcancelClick(Sender: TObject);
    procedure ejumlahKeyPress(Sender: TObject; var Key: Char);
    procedure ebayarKeyPress(Sender: TObject; var Key: Char);
    procedure bexitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
    procedure nomor;
  end;

var
  FTransaksi: TFTransaksi;

implementation

uses Menu_Utama;

{$R *.dfm}

procedure TFTransaksi.aktif;
begin
eno.Enabled := true;
etanggal.Enabled := true;
ekdtiket.Enabled := true;
enmkereta.Enabled := true;
ejurusan.Enabled := true;
ekelas.Enabled := true;
eharga.Enabled := true;
ekdcustomer.Enabled := true;
enmcustomer.Enabled := true;
ejumlah.Enabled := true;
etotal.Enabled := true;
ebayar.Enabled := true;
ekembali.Enabled := true;
end;

procedure TFTransaksi.nonaktif;
begin
eno.Enabled := false;
etanggal.Enabled := false;
ekdtiket.Enabled := false;
enmkereta.Enabled := false;
ejurusan.Enabled := false;
ekelas.Enabled := false;
eharga.Enabled := false;
ekdcustomer.Enabled := false;
enmcustomer.Enabled := false;
ejumlah.Enabled := false;
etotal.Enabled := false;
ebayar.Enabled := false;
ekembali.Enabled := false;
end;

procedure TFTransaksi.bersih;
begin
eno.Text := '';
ekdtiket.Text := '';
enmkereta.Text := '';
ejurusan.Text := '';
ekelas.Text := '';
eharga.Text := '0';
ekdcustomer.Text := '';
enmcustomer.Text := '';
ejumlah.Text := '0';
etotal.Text := '0';
ebayar.Text := '0';
ekembali.Text := '0';
end;

procedure TFTransaksi.nomor;
var c:string;
    a:integer;
begin
if tabel_transaksi.RecordCount = 0 then
begin
eno.Text := '0001';
exit;
end
else
begin
tabel_transaksi.Last;
c:=tabel_transaksi['Notrans'];
a:=strtoint(c)+1;
if a<10 then
eno.Text := '000'+(inttostr(a))
else if a<100 then
eno.Text := '00'+(inttostr(a))
else if a<1000 then
eno.Text := '0'+(inttostr(a))
else
eno.Text := inttostr(a);
end;
end;


procedure TFTransaksi.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
binput.Enabled := true;
bsave.Enabled := true;
bcancel.Enabled := true;
bexit.Enabled := true;
binput.SetFocus;
end;

procedure TFTransaksi.Timer1Timer(Sender: TObject);
begin
etanggal.Text := formatdatetime('dd-mmmm-yyyy', now());
etanggal.Enabled := false;
end;

procedure TFTransaksi.binputClick(Sender: TObject);
begin
aktif;
bersih;
nomor;
eno.Enabled := false;
etanggal.Enabled := false;
ekdtiket.SetFocus;
binput.Enabled := false;
bsave.Enabled := true;
bcancel.Enabled := true;
bexit.Enabled := true;
end;

procedure TFTransaksi.ekdtiketKeyPress(Sender: TObject; var Key: Char);
begin
ekdtiket.CharCase := ecUpperCase;
if key = #13 then
begin
if tabel_tiket.FindKey([ekdtiket.Text])then
enmkereta.Text := tabel_tiket['Nmkereta'];
ejurusan.Text := tabel_tiket['Jurusan'];
ekelas.Text := tabel_tiket['Kelas'];
eharga.Text := tabel_tiket['Harga'];
ekdcustomer.SetFocus;
end;
end;

procedure TFTransaksi.ekdcustomerKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if tabel_customer.FindKey([ekdcustomer.Text]) then
enmcustomer.Text := tabel_customer['Nm_customer'];
ejumlah.SetFocus;
end;
end;

procedure TFTransaksi.bsaveClick(Sender: TObject);
begin
tabel_transaksi.Append;
tabel_transaksi['Notrans']:= eno.Text;
tabel_transaksi['Tanggal_transaksi']:= etanggal.Text;
tabel_transaksi['Kd_customer']:= ekdcustomer.Text;
tabel_transaksi['Kd_tiket']:= ekdtiket.Text;
tabel_transaksi['Nm_kereta']:= enmkereta.Text;
tabel_transaksi['Jurusan']:= ejurusan.Text;
tabel_transaksi['Kelas']:= ekelas.Text;
tabel_transaksi['Harga']:= eharga.Text;
tabel_transaksi['Jumlah']:= ejumlah.Text;
tabel_transaksi['Total']:= etotal.Text;
showmessage('Data Telah Tersimpan!');
tabel_transaksi.Post;
tabel_transaksi.Last;
nonaktif;
end;

procedure TFTransaksi.bcancelClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Membatalkan Penginputan..?!','Question',4+32)=6)then
begin
nonaktif;
bersih;
end;
binput.Enabled := true;
bsave.Enabled := false;
bcancel.Enabled := false;
bexit.Enabled := true;
end;

procedure TFTransaksi.ejumlahKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
etotal.Text := floattostr(strtofloat(ejumlah.Text) * strtofloat(eharga.Text));
etotal.Enabled := false;
ebayar.SetFocus;
end;
end;

procedure TFTransaksi.ebayarKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
ekembali.Text := floattostr(strtofloat(ebayar.Text)-strtofloat(etotal.Text));
nonaktif;
bsave.SetFocus;
end;
end;

procedure TFTransaksi.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Kembali Menuju Menu Utama..?!','Question',4+32)=6)then
begin
FTransaksi.Hide;
FMenuUtama.show;
end;
end;

end.

Read More

Delphi 7 ( Form Login )

Tampilan Desain

Tampilan Setelah Dijalankan

Coding/Listing :



implementation

uses Unit2;
{$R *.dfm}

procedure TForm1.bloginClick(Sender: TObject);
begin
if(euser.Text = Tabel1.FieldByName('User_Name').AsString) and (epassword.Text = Tabel1.FieldByName('Password').AsString) then
begin
messagedlg('Silakan Masuk!',MTWarning, [MBOK],0);
Form2.Show;
Exit;
end;
messagedlg('Maaf User atau Password Anda Salah!', MTWarning, [MBOK],0);
euser.Text := '';
epassword.Text := '';
euser.SetFocus;
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar Dari Program Ini..?!','Question',4+32)=6)then
close;
end;

procedure TForm1.epasswordKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
blogin.Click;
end;

procedure TForm1.bregisterClick(Sender: TObject);
begin
Form1.Hide;
FUser.show;
end;

end.

Read More

Delphi7 (Membuat Menu Utama)

Tampilan Form

MainMenu(Menus)

1. Tambahkan Form Baru, dari Toolbars Standart Tampilkan object Mainmenu(Menus).
2. Klik kanan pada object Mainmenu(Menus), pilih Menu Designer
3. Pada jendela MainMenu1, ketik isi dari menu di Propeties pada Caption

Jendela MainMenu1

Listing/Coding :

implementation

uses Data_User, Data_Customer, Transaksi;

{$R *.dfm}

procedure TForm4.Barang1Click(Sender: TObject);

begin

Form1.Show;

end;

procedure TForm4.Customer1Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm4.Transaksi1Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm4.Exit1Click(Sender: TObject);

begin

close;

end;

Read More

Delphi 7 (Tabel User)

Coding/Listing :



  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
    procedure tampil;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
eid.Enabled := true;
enama.Enabled := true;
epass.Enabled := true;
ealamat.Enabled := true;
etelepon.Enabled := true;
rbadmin.Checked := true;
rbkasir.Checked := true;
end;

procedure TForm1.nonaktif;
begin
eid.Enabled := false;
enama.Enabled := false;
epass.Enabled := false;
ealamat.Enabled := false;
etelepon.Enabled := false;
rbadmin.Checked := false;
rbkasir.Checked := false;
end;

procedure TForm1.bersih;
begin
rbadmin.Checked := false;
rbkasir.Checked := false;
eid.Text := '';
enama.Text := '';
epass.Text := '';
ealamat.Text := '';
etelepon.Text := '';
end;

procedure TForm1.tampil;
begin
if Tabel1['Level'] = rbadmin.Caption then
rbadmin.Checked := true
else
rbkasir.Checked := true;
eid.Text := Tabel1['Id_user'];
enama.Text := Tabel1['Nm_user'];
epass.Text := Tabel1['Password'];
ealamat.Text := Tabel1['Alamat'];
etelepon.Text := Tabel1['Telp'];
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
bersih;
nonaktif;
badd.Enabled := true;
bsave.Enabled := false;
bedit.Enabled := false;
bcancel.Enabled := false;
bdelete.Enabled := false;
bexit.Enabled := true;
badd.SetFocus;
end;

procedure TForm1.beditClick(Sender: TObject);
begin
aktif;
tampil;
eid.Enabled := false;
enama.SetFocus;
bsave.Caption := '&Update';
badd.Enabled := true;
bedit.Enabled := false;
bsave.Enabled := true;
bcancel.Enabled := true;
bexit.Enabled := true;
bdelete.Enabled := true;
end;

procedure TForm1.bsaveClick(Sender: TObject);
begin
if bsave.Caption = '&Save' then
begin
Tabel1.Append;
Tabel1['Id_user'] := eid.Text;
Tabel1['Nm_user'] := enama.Text;
Tabel1['Password'] := epass.Text;
Tabel1['Alamat'] := ealamat.Text;
Tabel1['Telp'] := etelepon.Text;
if rbadmin.Checked = true then
Tabel1['Level'] := rbadmin.Caption
else
Tabel1['Level'] := rbkasir.Caption;
showmessage('Data Telah Tersimpan');
Tabel1.Post;
Tabel1.Next;
nonaktif;
end
else
begin
Tabel1.Edit;
Tabel1['Id_user'] := eid.Text;
Tabel1['Nm_user'] := enama.Text;
Tabel1['Password'] := epass.Text;
Tabel1['Alamat'] := ealamat.Text;
Tabel1['Telp'] := etelepon.Text;
if rbadmin.Checked = true then
Tabel1['Level'] := rbadmin.Caption
else
Tabel1['Level'] := rbkasir.Caption;
Tabel1.Post;
nonaktif;
showmessage('Data Telah Diperbaharui');
bsave.Enabled := true;
bsave.Caption := '&Save';
bsave.Enabled := false;
badd.Enabled := true;
bdelete.Enabled := true;
bcancel.Enabled := true;
bexit.Enabled := true;
bedit.Enabled := true;
end;
end;

procedure TForm1.bcancelClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Membatalkan Penginputan..?!','Quesiton',4+32)=6)then
nonaktif;
bersih;
Tabel1.First;
badd.Enabled := true;
bsave.Enabled := false;
bedit.Enabled := false;
bdelete.Enabled := false;
bcancel.Enabled := false;
bexit.Enabled := true;
bsave.Caption := '&Save';
end;

procedure TForm1.bdeleteClick(Sender: TObject);
var del:string;
begin
Tabel1.IndexName :='';
del:= (Inputbox('Pencarian','Masukan ID Yang Mau Dihapus',''));
if Tabel1.FindKey([del]) then
begin
bersih;
nonaktif;
Tabel1.Delete;
end
else
showmessage('Data Tidak DiTemukan');
badd.Enabled := true;
bsave.Enabled := false;
bedit.Enabled := true;
bdelete.Enabled := true;
bcancel.Enabled := true;
bdelete.Enabled := true;
bsave.Caption := '&Save';
end;

procedure TForm1.baddClick(Sender: TObject);
begin
aktif;
bersih;
eid.SetFocus;
badd.Enabled := false;
bdelete.Enabled := true;
bsave.Enabled := true;
bedit.Enabled := true;
bcancel.Enabled := true;
bexit.Enabled := true;
bsave.Caption := '&Save';
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar Dari Program Ini..?!','Quesiton',4+32)=6)then
Tabel1.Close;
close;
end;

end.

Read More

Delphi 7 (Form Penyimpanan Barang)

Coding/Listing :




  public
  procedure tampil;
  procedure bersih;
  procedure nonaktif;
  procedure aktif;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
ekdbarang.Enabled := true;
enmbarang.Enabled := true;
ebeli.Enabled := true;
ejual.Enabled := true;
estok.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
ekdbarang.Enabled := false;
enmbarang.Enabled := false;
ebeli.Enabled := false;
ejual.Enabled := false;
estok.Enabled := false;
end;

procedure TForm1.bersih;
begin
ekdbarang.Text := '';
enmbarang.Text := '';
ebeli.Text := '0';
ejual.Text := '0';
estok.Text := '0';
end;

procedure TForm1.tampil;
begin
ekdbarang.Text := Tabel1['Kdbarang']; enmbarang.Text := Tabel1['Nmbarang']; ebeli.Text := floattostr(Tabel1['Hrgbeli']); ejual.Text := floattostr(Tabel1['Hrgjual']); estok.Text := floattostr(Tabel1['Stok']);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
tampil;
nonaktif;
bsimpan.Enabled := false;
end;

procedure TForm1.btambahClick(Sender: TObject);
begin
aktif;
bersih;
bsimpan.Enabled := true;
ekdbarang.SetFocus;
end;

procedure TForm1.ekdbarangKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
if Tabel1.FindKey([ekdbarang.Text]) then
begin
showmessage('Data Sudah Ada');
tampil;
nonaktif;
exit;
end
else
begin
if(application.MessageBox('Data Tidak Ada, Anda Ingin Menambah Data..?!','Pesan', 4+32)=6)then
begin
aktif;
ekdbarang.Enabled := false;
enmbarang.SetFocus;
end
end
end;

procedure TForm1.bsimpanClick(Sender: TObject);
begin
Tabel1.Append;
Tabel1['Kdbarang']:= ekdbarang.Text;
Tabel1['Nmbarang']:= enmbarang.Text;
Tabel1['Hrgbeli']:= strtofloat(ebeli.Text);
Tabel1['Hrgjual']:= strtofloat(ejual.Text);
Tabel1['Stok']:= strtofloat(estok.Text);
nonaktif;
end;

procedure TForm1.bbatalClick(Sender: TObject);
begin
bersih;
nonaktif;
Tabel1.First;
tampil;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
tampil;
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar..?!','Pesan',4+32)=6)then
Tabel1.Close;
Close;
end;


procedure TForm1.bawalClick(Sender: TObject);
begin
Tabel1.First;
showmessage('Sudah Diawal Record!');
tampil;
end;

procedure TForm1.bakhirClick(Sender: TObject);
begin
Tabel1.Last;
showmessage('Sudah Diakhir Record!');
tampil;
end;

procedure TForm1.bsebelumClick(Sender: TObject);
begin
Tabel1.Prior;
tampil;
if Tabel1.Bof then
showmessage('Sudah Diawal Record!');
end;

procedure TForm1.bsesudahClick(Sender: TObject);
begin
Tabel1.Next;
tampil;
if Tabel1.Eof then
showmessage('Sudah Diakhir Record!');
end;


end.

Read More

Delphi 7 ( Pra UTS )

Coding/Listing :



  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
etanggal.Enabled := true;
ejam.Enabled := true;
eno.Enabled := true;
esks.Enabled := true;
ejumlah.Enabled := true;
etobi.Enabled := true;
enama.Enabled := true;
cbgelombang.Enabled := true;
eharga.Enabled := true;
rbpagi.Enabled := true;
rbmalam.Enabled := true;
etambahan.Enabled := true;
etobay.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
etanggal.Enabled := false;
ejam.Enabled := false;
eno.Enabled := false;
esks.Enabled := false;
ejumlah.Enabled := false;
etobi.Enabled := false;
enama.Enabled := false;
cbgelombang.Enabled := false;
eharga.Enabled := false;
rbpagi.Enabled := false;
rbmalam.Enabled := false;
etambahan.Enabled := false;
etobay.Enabled := false;
end;

procedure TForm1.bersih;
begin
eno.Text := '';
esks.Text := '0';
ejumlah.Text := '0';
etobi.Text := '0';
enama.Text := '';
cbgelombang.Text := '--Silakan Pilih--';
eharga.Text := '0';
rbpagi.Checked := false;
rbmalam.Checked := false;
etambahan.Text := '0';
etobay.Text := '0';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cbgelombang.Items.Add('Gelombang 1');
cbgelombang.Items.Add('Gelombang 2');
cbgelombang.Items.Add('Gelombang 3');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
etanggal.Text := datetostr(now);
ejam.Text := timetostr(now);
end;

procedure TForm1.bbersihClick(Sender: TObject);
begin
aktif;
bersih;
eno.SetFocus;
etanggal.Enabled := false;
ejam.Enabled := false;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar.?!','Pesan', 4+32)=6) then
close;
end;

procedure TForm1.ejumlahKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
etobi.Text := floattostr(strtofloat(ejumlah.Text) * strtofloat(esks.Text));
end;


procedure TForm1.cbgelombangClick(Sender: TObject);
begin
if cbgelombang.Text = 'Gelombang 1' then
begin
eharga.Text := '1000000';
end
else if cbgelombang.Text = 'Gelombang 2' then
begin
eharga.Text := '2000000';
end
else
begin
eharga.Text := '2500000';
end;
end;

procedure TForm1.rbpagiClick(Sender: TObject);
begin
etambahan.Text := '0';
end;

procedure TForm1.rbmalamClick(Sender: TObject);
begin
etambahan.Text :='200000';
end;

procedure TForm1.bhitungClick(Sender: TObject);
begin
etobay.Text := floattostr(strtofloat(etobi.Text) + strtofloat(eharga.Text) + strtofloat(etambahan.Text));
nonaktif;
end;

end.

Read More

Delphi 7 ( Bioskop RST )

Coding/Listing :



public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
etanggal.Enabled := true;
ejam.Enabled := true;
cbid.Enabled := true;
enama.Enabled := true;
cbkode.Enabled := true;
ejudul.Enabled := true;
ejenis.Enabled := true;
rbvip.Enabled := true;
rbreguler.Enabled := true;
rbekonomi.Enabled := true;
eharga.Enabled := true;
ejumlah.Enabled := true;
ebayar.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
etanggal.Enabled := false;
ejam.Enabled := false;
cbid.Enabled := false;
enama.Enabled := false;
cbkode.Enabled := false;
ejudul.Enabled := false;
ejenis.Enabled := false;
rbvip.Enabled := false;
rbreguler.Enabled := false;
rbekonomi.Enabled := false;
eharga.Enabled := false;
ejumlah.Enabled := false;
ebayar.Enabled := false;
end;

procedure TForm1.bersih;
begin
cbid.Text := '--Silakan Pilih--';
enama.Text := '';
cbkode.Text := '--Silakan Pilih--';
ejudul.Text := '';
ejenis.Text := '';
rbvip.Checked := False;
rbreguler.Checked := false;
rbekonomi.Checked := false;
eharga.Text := '0';
ejumlah.Text := '0';
ebayar.Text := '0';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ejam.Text := formatdatetime('H:M:S', now);
etanggal.Text := formatdatetime('dddd, dd-mm-yyyy', now);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
cbid.Items.Add('ID001');
cbid.Items.Add('ID002');
cbkode.Items.Add('KF001');
cbkode.Items.Add('KF002');
cbkode.Items.Add('KF003');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

procedure TForm1.cbidClick(Sender: TObject);
begin
if cbid.Text = 'ID001' then
begin
enama.Text := 'Dessy Octaviantry'
end
else
enama.Text := 'Aji';
end;

procedure TForm1.blagiClick(Sender: TObject);
begin
aktif;
bersih;
etanggal.Enabled := false;
ejam.Enabled := false;
end;

procedure TForm1.cbkodeClick(Sender: TObject);
begin
if cbkode.Text = 'KF001' then
begin
ejudul.Text := 'Rambo Marah2';
ejenis.Text := 'Action';
end
else if cbkode.Text = 'KF002' then
begin
ejudul.Text := 'Rambo Ngesot';
ejenis.Text := 'Horor';
end
else
begin
ejudul.Text := 'Rambo Sedih';
ejenis.Text := 'Drama';
end;
end;

procedure TForm1.rbvipClick(Sender: TObject);
begin
eharga.Text := '30000';
ejumlah.SetFocus;
end;

procedure TForm1.rbregulerClick(Sender: TObject);
begin
eharga.Text :='20000';
ejumlah.SetFocus;
end;

procedure TForm1.rbekonomiClick(Sender: TObject);
begin
eharga.Text := '10000';
ejumlah.SetFocus;
end;

procedure TForm1.ejumlahKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
ebayar.Text := inttostr(strtoint(eharga.Text) * strtoint(ejumlah.Text));
nonaktif;
end
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Mau Keluar?','Info',4+32+256)=6)then
close;
end;

end.

Read More

Delphi 7 ( Toko Komputer XYZ )

Coding/Listing :



public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
lbtanggal.Enabled:= true;
lbjam.Enabled:= true;
ckode.Enabled:= true;
ljenis.Enabled:= true;
eharga.Enabled:= true;
ejumbel.Enabled:= true;
esubtotal.Enabled:= true;
eppn.Enabled:= true;
etobay.Enabled:= true;
ebayar.Enabled:= true;
ekembali.Enabled:= true;
end;

procedure TForm1.nonaktif;
begin
lbtanggal.Enabled:= false;
lbjam.Enabled:= false;
ckode.Enabled:= false;
ljenis.Enabled:= false;
eharga.Enabled:= false;
ejumbel.Enabled:= false;
esubtotal.Enabled:= false;
eppn.Enabled:= false;
etobay.Enabled:= false;
ebayar.Enabled:= false;
ekembali.Enabled:= false;
end;

procedure TForm1.bersih;
begin
ckode.Text:='--Silakan Pilih--';
ljenis.Clear;
eharga.Text:= '0';
ejumbel.Text:= '0';
esubtotal.Text:= '0';
eppn.Text:= '0';
etobay.Text:= '0';
ebayar.Text:= '0';
ekembali.Text:= '0';
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
lbtanggal.Caption:= datetostr(now);
lbjam.Caption:= timetostr(now);
end;

procedure TForm1.binputClick(Sender: TObject);
begin
aktif;
bersih;
end;

procedure TForm1.ckodeClick(Sender: TObject);
begin
if ckode.ItemIndex = 0 then
begin
ljenis.Clear;
ljenis.Items.Add('Flash Disk 4GB');
ljenis.Items.Add('Flash Disk 8GB');
end
else if ckode.ItemIndex = 1 then
begin
ljenis.Clear;
ljenis.Items.Add('Hardisk 200GB');
ljenis.Items.Add('Hardisk 250GB');
end
else
begin
ljenis.Clear;
ljenis.Items.Add('Keyboard Joystick');
ljenis.Items.Add('Keyboard Logitech');
end;
eharga.Text:= '0';
end;

procedure TForm1.ljenisClick(Sender: TObject);
begin
if ckode.ItemIndex = 0 then
begin
if ljenis.ItemIndex = 0 then
eharga.Text:= '80000'
else
eharga.Text:= '125000';
end
else if ckode.ItemIndex = 1 then
begin
if ljenis.ItemIndex = 0 then
eharga.Text:= '300000'
else
eharga.Text:= '400000';
end
else
begin
if ljenis.ItemIndex = 0 then
eharga.Text:= '75000'
else
eharga.Text:= '100000';
end;
ejumbel.SetFocus;
end;

procedure TForm1.bhitungClick(Sender: TObject);
begin
esubtotal.Text:= inttostr(strtoint(eharga.Text)*strtoint(ejumbel.Text));
eppn.Text:= floattostr(0.1*strtofloat(esubtotal.Text));
etobay.Text:= inttostr(strtoint(esubtotal.Text)+strtoint(eppn.Text));
ebayar.SetFocus;
end;

procedure TForm1.ebayarKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
ekembali.Text:= inttostr(strtoint(ebayar.Text) - strtoint(etobay.Text));
nonaktif;
end;
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar Dari Program Ini..?!','Question',4+32)=6)then
close
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ckode.Items.Add('001');
ckode.Items.Add('002');
ckode.Items.Add('003');
end;

end.

Read More

Delphi 7 ( Toko Komputer ABC )

Coding/Listing :



public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
cbmerk.Enabled := true;
cbtipe.Enabled := true;
eharga.Enabled := true;
rbdistributor.Enabled := true;
rbinternasional.Enabled := true;
egaransi.Enabled := true;
chwin7.Enabled := true;
eos.Enabled := true;
ejumbel.Enabled := true;
esubtotal.Enabled := true;
epotongan.Enabled := true;
etotal.Enabled := true;
ebayar.Enabled := true;
ekembali.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
cbmerk.Enabled := false;
cbtipe.Enabled := false;
eharga.Enabled := false;
rbdistributor.Enabled := false;
rbinternasional.Enabled := false;
egaransi.Enabled := false;
chwin7.Enabled := false;
eos.Enabled := false;
ejumbel.Enabled := false;
esubtotal.Enabled := false;
epotongan.Enabled := false;
etotal.Enabled := false;
ebayar.Enabled := false;
ekembali.Enabled := false;
end;

procedure TForm1.bersih;
begin
cbmerk.Text := '--Silakan Pilih--';
cbtipe.Text := '--Silakan pilih--';
eharga.Text := '0';
rbdistributor.Checked := false;
rbinternasional.Checked := false;
egaransi.Text := '0';
chwin7.Checked := false;
eos.Text := '0';
ejumbel.Text := '0';
esubtotal.Text := '0';
epotongan.Text := '0';
etotal.Text := '0';
ebayar.Text := '0';
ekembali.Text := '0';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cbmerk.Items.Add('ACER');
cbmerk.Items.Add('DELL');
cbmerk.Items.Add('TOSHIBA');
end;

procedure TForm1.cbmerkClick(Sender: TObject);
begin
if cbmerk.Text = 'ACER' then
begin
cbtipe.Text := '--Silakan Pilih--';
cbtipe.Items.Add('AC11R');
cbtipe.Items.Add('AC12R');
end
else if cbmerk.Text = 'DELL' then
begin
cbtipe.Text := '--Silakan Pilih--';
cbtipe.Items.Add('DE13L');
cbtipe.Items.Add('DE14L');
end
else if cbmerk.Text = 'TOSHIBA' then
begin
cbtipe.Text := '--Silakan Pilih--';
cbtipe.Items.Add('TO15A');
cbtipe.Items.Add('TO16A');
end
end;

procedure TForm1.cbtipeClick(Sender: TObject);
begin
if cbtipe.Text = 'AC11R' then
eharga.Text := '1100000'
else if cbtipe.Text = 'AC12R' then
eharga.Text := '1200000'
else if cbtipe.Text = 'DE13L' then
eharga.Text := '1300000'
else if cbtipe.Text = 'DE13L' then
eharga.Text := '1400000'
else if cbtipe.Text = 'TO15A' then
eharga.Text := '1500000'
else
eharga.Text := '1600000'
end;

procedure TForm1.rbdistributorClick(Sender: TObject);
begin
if rbdistributor.Checked = true then
egaransi.Text := '200000'
else
egaransi.Text := '0';
end;

procedure TForm1.rbinternasionalClick(Sender: TObject);
begin
if rbinternasional.Checked = true then
egaransi.Text := '400000'
else
egaransi.Text := '0';
end;

procedure TForm1.ejumbelKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
esubtotal.Text := floattostr((strtofloat(eharga.Text)*strtofloat(ejumbel.Text))+strtofloat(egaransi.Text)+strtofloat(eos.Text));
if strtofloat(ejumbel.Text)>= 5 then
epotongan.Text := floattostr(0.5*strtofloat(esubtotal.Text))
else if strtofloat(ejumbel.Text)>= 2 then
epotongan.Text:= floattostr(0.1*strtofloat(esubtotal.Text))
else
epotongan.Text:=floattostr(0);
etotal.Text := floattostr(strtofloat(esubtotal.Text)-strtofloat(epotongan.Text));
end;

procedure TForm1.ebayarKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
ekembali.Text := floattostr(strtofloat(ebayar.Text)-strtofloat(etotal.Text));
nonaktif;
end
end;

procedure TForm1.bbersihClick(Sender: TObject);
begin
bersih;
aktif;
end;

procedure TForm1.chwin7Click(Sender: TObject);
begin
if chwin7.Checked = true then
eos.Text := '600000'
else
eos.Text := '0';
ejumbel.SetFocus;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar Dari Program Ini...?!','Question', 4+32)=6)then
close
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

end.

Read More