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;
    BTCARI: TButton;
    BTEDIT: TButton;
    BTHAPUS: TButton;
    procedure FormActivate(Sender: TObject);
    procedure BTSIMPANClick(Sender: TObject);
    procedure BTCARIClick(Sender: TObject);
    procedure BTEDITClick(Sender: TObject);
    procedure BTHAPUSClick(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
TBMHS.Close;
TBMHS.SQL.Text := 'DELETE FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
TBMHS.ExecSQL;
TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
TBMHS.Open;
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;

procedure TMAHASISWA.BTCARIClick(Sender: TObject);
begin
 TBMHS.Close;
 TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
 TBMHS.Open;
 EDNAMA.Text := TBMHS['NAMA'];
 EDKELAS.Text := TBMHS['KELAS'];
 TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
 TBMHS.Open;
end;

procedure TMAHASISWA.BTEDITClick(Sender: TObject);
begin
 TBMHS.Close;
 TBMHS.SQL.Text := 'UPDATE MAHASISWA SET NAMA=' + QUOTEDSTR(EDNAMA.Text) +',KELAS=' + QUOTEDSTR(EDKELAS.Text) + ' WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
 TBMHS.ExecSQL;
 TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
 TBMHS.Open;
end;

procedure TMAHASISWA.BTHAPUSClick(Sender: TObject);
begin
 TBMHS.Close;
 TBMHS.SQL.Text := 'DELETE FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
 TBMHS.ExecSQL;
 TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
 TBMHS.Open;
end;

end.

• Code BTSIMPAN

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;

• Code BTCARI

procedure TMAHASISWA.BTCARIClick(Sender: TObject);
begin
 TBMHS.Close;
 TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
 TBMHS.Open;
 EDNAMA.Text := TBMHS['NAMA'];
 EDKELAS.Text := TBMHS['KELAS'];
 TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
 TBMHS.Open;
end;

• Code BTEDIT

procedure TMAHASISWA.BTEDITClick(Sender: TObject);
begin
 TBMHS.Close;
 TBMHS.SQL.Text := 'UPDATE MAHASISWA SET NAMA=' + QUOTEDSTR(EDNAMA.Text) +',KELAS=' + QUOTEDSTR(EDKELAS.Text) + ' WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
 TBMHS.ExecSQL;
 TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
 TBMHS.Open;
end;

end.

• Code BTHAPUS

procedure TMAHASISWA.BTHAPUSClick(Sender: TObject);
begin
 TBMHS.Close;
 TBMHS.SQL.Text := 'DELETE FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
 TBMHS.ExecSQL;
 TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
 TBMHS.Open;
end;

end.