Aplikasi Buku Tamu 2013 New Update

D2 TEKNIK KOMPUTER (BSI PROGRAMMER)

   Sebuah aplikasi database sederhana dengan microsoft access 2003 yang sengaja dibuat untuk kepentingan buku tamu dan sebagainya...

  Sang pembuat berharap akan begitu banyak aplikasi yang ada di internet, namun mari sama2 kita kembangkan program bersama demi mempersatukan teman - teman yang ada di BSI

  Oleh karena itu program ini dibuat dengan Delphi 2010...
Let's go to Codding...

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, jpeg, Buttons,
  PeriodeBulanTahun, ZConnection, QuickRpt, QRCtrls, ComCtrls;

type
  TFormUtama = class(TForm)
    Panel1: TPanel;
    dbgEmployee: TDBGrid;
    Panel2: TPanel;
    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;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Help1: TMenuItem;
    AboutMe1: TMenuItem;
    PopupMenu1: TPopupMenu;
    Refresh1: TMenuItem;
    Exit2: TMenuItem;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    Timer1: TTimer;
    Label9: TLabel;
    DBComboBox2: TDBComboBox;
    Label10: TLabel;
    DBEdit4: TDBEdit;
    Label11: TLabel;
    DBEdit5: TDBEdit;
    Label12: TLabel;
    DBEdit6: TDBEdit;
    Label5: TLabel;
    DBNavigator1: TDBNavigator;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    ools1: TMenuItem;
    ClearHapusDataSemuanya1: TMenuItem;
    AplikasiDownload1: TMenuItem;
    ControlDataBasePHPAdminTamu11: TMenuItem;
    Print2: TMenuItem;
    DateTimePicker1: TDateTimePicker;
    DBEdit7: TDBEdit;
    Button1: TButton;
    procedure AboutMe1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Refresh1Click(Sender: TObject);
    procedure Exit2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBComboBox2Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure ClearHapusDataSemuanya1Click(Sender: TObject);
    procedure AplikasiDownload1Click(Sender: TObject);
    procedure Print2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ControlDataBasePHPAdminTamu11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormUtama: TFormUtama;

implementation

uses DataBase_Form2, DataBase_Form3,Downloader,DataBase_Form5, DataBase_Form4;

{$R *.dfm}

procedure TFormUtama.AboutMe1Click(Sender: TObject);
begin
  AboutMe.Show;
end;

procedure TFormUtama.AplikasiDownload1Click(Sender: TObject);
begin
Apps_Download.Show;
end;

procedure TFormUtama.Button1Click(Sender: TObject);
begin
DBEdit7.Text:='DN'+'BSI'+inttostr(Random(9000));
end;

procedure TFormUtama.ClearHapusDataSemuanya1Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TFormUtama.ControlDataBasePHPAdminTamu11Click(Sender: TObject);
begin
DataBase_Form4.Form1.Show;
end;

procedure TFormUtama.DBComboBox2Change(Sender: TObject);
begin
  If DBComboBox2.ItemIndex = 0 Then
  Begin
    DBEdit4.Visible := True;
    DBEdit4.Enabled := True;
    Label10.Visible := True;
    Label10.Enabled := True;
  End

  Else If DBComboBox2.ItemIndex = 1 Then
  Begin
    DBEdit4.Visible := True;
    DBEdit4.Enabled := True;
    Label10.Visible := True;
    Label10.Enabled := True;
  End

  Else If DBComboBox2.ItemIndex = 2 Then
  Begin
    DBEdit4.Visible := False;
    DBEdit4.Enabled := False;
    Label10.Visible := False;
    Label10.Enabled := False;
  End;
end;

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

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

procedure TFormUtama.FormActivate(Sender: TObject);
begin
Edit1.Text:=Formatdatetime('dd mmmm yyyy',Date);
  DBEdit1.Text := ' ';
  DBEdit4.Visible := False;
  DBEdit4.Enabled := False;
  Label10.Visible := False;
  Label10.Enabled := False;
DateTimePicker1.DateTime:=Now;
end;

procedure TFormUtama.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;

procedure TFormUtama.FormCreate(Sender: TObject);
Var path :String;
begin
 path:=GetCurrentDir+'\Data_Pengunjung_Tamu.mdb';
 AdoTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+';Persist Security Info=False';
 Adotable1.TableName:='Table_Pengunjung';
 Adotable1.Active:=True;
end;

procedure TFormUtama.Print2Click(Sender: TObject);
begin
DataBase_Form5.report.QuickRep1.Preview;
end;

procedure TFormUtama.Refresh1Click(Sender: TObject);
begin
  With Adotable1 Do
     begin
       AdoTable1.Active:=False;
       Adotable1.Active:=True;
     end;

end;

procedure TFormUtama.Timer1Timer(Sender: TObject);
begin
Edit2.Text := timetostr(time);
end;

end.




Silahkan Download Installer dari Aplikasi Buku Tamu 2013 ||Aplikasi Buku Tamu New Update (Deni Pratama)||