APLIKASI DATABASE KKR BY DELPHI 2010 (Microsoft Access 2010)

//*Coding By Lhourens*//
//*Entreprise*//
//*Target AdoTable (Access 2010)*//
-------------------------------------------------------------------------------------------------

Untuk Form1

unit DataBase_;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBClient, ExtCtrls, DBCtrls, DBTables, ADODB,
  StdCtrls, Mask, Menus, AccessXP, OleServer, OutlookXP;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    dbgEmployee: TDBGrid;
    Panel2: TPanel;
    DBNavigator1: TDBNavigator;
    dsEmployee: TDataSource;
    ADOTable1: TADOTable;
    Panel3: TPanel;
    Memo1: TMemo;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DbCombobox1: TDBComboBox;
    DBEdit2: TDBEdit;
    DBMemo1: TDBMemo;
    Label4: TLabel;
    Label5: TLabel;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Help1: TMenuItem;
    AboutMe1: TMenuItem;
    PopupMenu1: TPopupMenu;
    Refresh1: TMenuItem;
    Exit2: TMenuItem;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    StaticText1: TStaticText;
    procedure AboutMe1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Refresh1Click(Sender: TObject);
    procedure Exit2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses DataBase_Form2;

{$R *.dfm}

procedure TForm1.AboutMe1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Exit2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
DbEdit1.Text:=' ';
DbEdit1.SetFocus;
end;

procedure TForm1.Refresh1Click(Sender: TObject);
begin
dbgEmployee.Refresh;
AdoTable1.Refresh;
end;

end.










-------------------------------------------------------------------------------------------------
Untuk Form2

unit DataBase_Form2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses DataBase_;

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
begin
Form1.Enabled:=False;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Enabled:=True;
end;

end.










Screen Shut Program Database KKR

Silahkan Download Program APLIKASI DATABASE KKR ||Setup Aplikasi DataBase KKR||


Sekian dan Terima Kasih