View source for Sistem Basis Data:Tugas Delphi 1

*Kode program

 unit UMAHASISWA;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
 
 type
   TMAHASISWA = class(TForm)
     TBMHS: TADOQuery;
     DSMHS: TDataSource;
     DBGMHS: TDBGrid;
     EDNIM: TEdit;
     EDNAMA: TEdit;
     EDKELAS: TEdit;
     BTSIMPAN: TButton;
     procedure FormActivate(Sender: TObject);
     procedure BTSIMPANClick(Sender: TObject);
   private
     { Private declarations }
   public
     PROCEDURE KOSONG();
   end;
 
 var
   MAHASISWA: TMAHASISWA;
 
 implementation
 
 {$R *.dfm}
 
 PROCEDURE TMAHASISWA.KOSONG();
 BEGIN
  EDNIM.Text := '';
  EDNAMA.Text := '';
  EDKELAS.Text := '';
  EDNIM.SetFocus;
 END;
 
 procedure TMAHASISWA.FormActivate(Sender: TObject);
 begin
  KOSONG()
 end;
 
 procedure TMAHASISWA.BTSIMPANClick(Sender: TObject);
 begin
  TBMHS.SQL.Text := 'INSERT INTO MAHASISWA VALUES (' + QUOTEDSTR(EDNIM.Text) + ',' + QUOTEDSTR(EDNAMA.Text) + ',' + QUOTEDSTR(EDKELAS.Text) + ')';
  TBMHS.ExecSQL;
  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
  TBMHS.Open;
  KOSONG();
 end;
 
 end.