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