Wiki

Sistem Basis Data:Tugas Delphi 1: Difference between revisions

← Older edit
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
Undo revision 4389 by Kangtain (talk)
Tags: Undo Reverted
 
(3 intermediate revisions by the same user not shown)
Line 1: Line 1:
*Kode program
*Kode program


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


* Code BTSIMPAN
* Code BTSIMPAN
procedure TMAHASISWA.BTSIMPANClick(Sender: TObject);
 
begin
<syntaxhighlight lang="delphi" line="1">
  TBMHS.SQL.Text := 'INSERT INTO MAHASISWA VALUES (' + QUOTEDSTR(EDNIM.Text) + ',' + QUOTEDSTR(EDNAMA.Text) + ',' + QUOTEDSTR(EDKELAS.Text) + ')';
procedure TMAHASISWA.BTSIMPANClick(Sender: TObject);
  TBMHS.ExecSQL;
begin
  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
TBMHS.SQL.Text := 'INSERT INTO MAHASISWA VALUES (' + QUOTEDSTR(EDNIM.Text) + ',' + QUOTEDSTR(EDNAMA.Text) + ',' + QUOTEDSTR(EDKELAS.Text) + ')';
  TBMHS.Open;
TBMHS.ExecSQL;
  KOSONG();
TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
end;
TBMHS.Open;
KOSONG();
end;
</syntaxhighlight>


*Code BTCARI
*Code BTCARI
procedure TMAHASISWA.BTCARIClick(Sender: TObject);
 
begin
<syntaxhighlight lang="delphi" line="1">
  TBMHS.Close;
procedure TMAHASISWA.BTCARIClick(Sender: TObject);
  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
begin
  TBMHS.Open;
TBMHS.Close;
  EDNAMA.Text := TBMHS['NAMA'];
TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
  EDKELAS.Text := TBMHS['KELAS'];
TBMHS.Open;
  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
EDNAMA.Text := TBMHS['NAMA'];
  TBMHS.Open;
EDKELAS.Text := TBMHS['KELAS'];
end;
TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
TBMHS.Open;
end;
</syntaxhighlight>


*Code BTEDIT
*Code BTEDIT
procedure TMAHASISWA.BTEDITClick(Sender: TObject);
 
begin
<syntaxhighlight lang="delphi" line="1">
  TBMHS.Close;
procedure TMAHASISWA.BTEDITClick(Sender: TObject);
  TBMHS.SQL.Text := 'UPDATE MAHASISWA SET NAMA=' + QUOTEDSTR(EDNAMA.Text) +',KELAS=' + QUOTEDSTR(EDKELAS.Text) + ' WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
begin
  TBMHS.ExecSQL;
TBMHS.Close;
  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
TBMHS.SQL.Text := 'UPDATE MAHASISWA SET NAMA=' + QUOTEDSTR(EDNAMA.Text) +',KELAS=' + QUOTEDSTR(EDKELAS.Text) + ' WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
  TBMHS.Open;
TBMHS.ExecSQL;
end;
TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
TBMHS.Open;
end;
   
   
end.
end.
</syntaxhighlight>


*Code BTHAPUS
*Code BTHAPUS
procedure TMAHASISWA.BTHAPUSClick(Sender: TObject);
 
begin
<syntaxhighlight lang="delphi" line="1">
  TBMHS.Close;
procedure TMAHASISWA.BTHAPUSClick(Sender: TObject);
  TBMHS.SQL.Text := 'DELETE FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
begin
  TBMHS.ExecSQL;
TBMHS.Close;
  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
TBMHS.SQL.Text := 'DELETE FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
  TBMHS.Open;
TBMHS.ExecSQL;
end;
TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
TBMHS.Open;
end.
end;
 
end.
</syntaxhighlight>


[[Category:Materi]]
[[Category:Materi]]
__NOINDEX__
__NOINDEX__
Retrieved from "https://kangtain.com/wiki/index.php/Sistem_Basis_Data:Tugas_Delphi_1"