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

Read More

Visual Basic ( Transaksi Voucer Pulsa )

Komponen Yang Dipakai :1. Microsoft ADO Data Control 6.0 (OLEDB)2. Microsoft DataGrid Control 6.0 (OLEDB) LIsting Module : Public conn As New ADODB.Connection Public rstransaksi As New ADODB.Recordset Public Sub koneksi() Set rstransaksi = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Voucer.mdb" End Sub Listing/Coding...

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

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

Read More

Visual Basic ( Pra UTS )

Komponen Yang Dipakai : 1. Microsoft ADO Data Control 6.0 (OLEDB) 2. Microsoft DataGrid Control 6.0 (OLEDB) Listing Modul : Public conn As New ADODB.Connection Public rsbuku As New ADODB.Recordset Public Sub koneksi() Set conn = New ADODB.Connection Set rsbuku = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Adam\Desktop\Visual...

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

Read More