DATABASE ENGINE KKR BY RIDWAN FANGIDA'E (POLITEKNIK NEGERI KUPANG)

DATABASE ENGINE KKR BY RIDWAN FANGIDA"E

PRESENT

   Program ini sengaja didesign untuk kepentingan pribadi dan tidak memungut biaya. Namun DataBase Engine KKR Program ini bisa membantu teman-teman yang kesulitan melakukan pendataan peserta tamu/peserta KKR, Untuk itu perlu disampaikan bahwa source coding yang dipakai oleh DATABASE ENGINE KKR (RIDWAN FANGIDA'E) bersifat CopyLeft....atau biasa dikenal dengan Open Source.



Silahkan Download Softwarenya di Link Ini ||DOWNLOAD DATABASE ENGINE KKR BY RIDWAN FANGIDA'E||



Source Coding Untuk Form1/Form Utama

-----------------------------------------------------------------------------------------------------

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;

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;
    PeriodeBulanTahun1: TPeriodeBulanTahun;
    Edit1: TEdit;
    Edit2: TEdit;
    ools1: TMenuItem;
    ClearHapusDataSemuanya1: TMenuItem;
    MusicPlayer: TMenuItem;
    Edit3: TEdit;
    Label7: TLabel;
    Button1: TButton;
    Edit4: TEdit;
    Label8: TLabel;
    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 MusicPlayerClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormUtama: TFormUtama;

implementation

uses DataBase_Form2, DataBase_Form3,MusicPlayer_Apple2;
{$R *.dfm}

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

procedure TFormUtama.Button1Click(Sender: TObject);
begin
PeriodeBulanTahun1.Month:=StrtoInt(Edit3.Text);
PeriodeBulanTahun1.Year:=Strtoint(Edit4.Text);
end;

procedure TFormUtama.ClearHapusDataSemuanya1Click(Sender: TObject);
begin
Form3.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;

end;

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

procedure TFormUtama.MusicPlayerClick(Sender: TObject);
begin
Form1.show;
end;

procedure TFormUtama.Refresh1Click(Sender: TObject);
begin
  dbgEmployee.Refresh;
  ADOTable1.Refresh;
end;

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

end.







Sekian Dan Terima Kasih........