Human and Computer Interaction-Amirul Nizam Alfian-12650034

Inilah program database ku.
Form 1.

 

SCRIPT:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    XPManifest1: TXPManifest;
    Timer1: TTimer;
    Timer2: TTimer;
    Label3: TLabel;
    Label4: TLabel;
    Image1: TImage;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);

    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
form1.Hide;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
If Application.MessageBox('Apakah anda yakin akan keluar!?','KONFIRMASI',MB_YESNO or MB_ICONQUESTION)=mryes then Application.Terminate;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form3.Show;
form1.Hide;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Visible then Label1.Visible:=False
else label1.Visible:=True;
if Label2.Visible then Label2.Visible:=False
else label2.Visible:=true;
if Label4.Visible then Label4.Visible:=False
else label4.Visible:=true;


end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label3.Caption:=timetostr(now);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin

end;

procedure TForm1.Label2Click(Sender: TObject);
begin

end;

end.

FORM 2

 

SCRPIT

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, XPMan, jpeg, ExtCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    XPManifest1: TXPManifest;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Image1: TImage;
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.Button4Click(Sender: TObject);
begin
form1.Show;
form2.Hide;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
form3.Show;
form2.Hide;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
If Application.MessageBox('Apakah anda yakin akan keluar!?','KONFIRMASI',MB_YESNO or MB_ICONQUESTION)=mryes then Application.Terminate;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.Adotable1.Open;
form3.Adotable1.Append;
form3.Adotable1.FieldByName('NISN').AsString:=edit1.Text;
 form3.Adotable1.FieldByName('NAMA').AsString:=edit2.Text;
  form3.Adotable1.FieldByName('KELAS').AsString:=combobox2.Text;
   form3.Adotable1.FieldByName('NAMA PTN').AsString:=edit4.Text;
    form3.Adotable1.FieldByName('JURUSAN').AsString:=edit5.Text;
     form3.Adotable1.FieldByName('JALUR').AsString:=combobox1.Text;
      form3.Adotable1.Post;
      If Application.MessageBox('Input sudah valid','KONFIRMASI',MB_OK or MB_ICONINFORMATION)=mrok then form2.Show;
Edit1.Clear;
Edit2.Clear;
Combobox2.Clear;
Edit4.Clear;
Edit5.Clear;
Combobox1.Clear;
Edit1.SetFocus
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Combobox2.Clear;
Edit4.Clear;
Edit5.Clear;
Combobox1.Clear;
Edit1.SetFocus
end;

end.

FORM 3

SCRIPT

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, XPMan, ExtCtrls, DBCtrls,
  jpeg;

type
  TForm3 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    XPManifest1: TXPManifest;
    DBNavigator1: TDBNavigator;
    Image1: TImage;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.Button3Click(Sender: TObject);
begin
If Application.MessageBox('Apakah anda yakin akan keluar!?','KONFIRMASI',MB_YESNO or MB_ICONQUESTION)=mryes then Application.Terminate;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
form2.Show;
form3.Hide;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
form1.Show;
form3.Hide;
end;

end.

Silahkan mendownload aplikasi database ku disini
http://www.4shared.com/rar/B26pYB2m/AMIRUL_NIZAM_ALFIAN-12650034.html

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel ini dipublish oleh Unknown pada hari Selasa, 25 Desember 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan