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;  ...

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...

Read More

Delphi7 (Membuat Menu Utama)

Tampilan Form MainMenu(Menus) Tambahkan Form Baru, dari Toolbars Standart Tampilkan object Mainmenu(Menus). Klik kanan pada object Mainmenu(Menus), pilih Menu Designer 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...

Read More