Old Project

unit U1;

interface

uses
   SysUtils, Forms, Windows,
   Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids, DBClient, DBTables,
   StdCtrls, Buttons, Classes, Controls;
//------------------------------------------------------------------------------>
type
  TFZS = class(TForm)
    DBG1: TDBGrid;
    DBN1: TDBNavigator;
    DS: TDataSource;
    T1: TTable;
    LB1: TListBox;
    B1: TButton;
//------------------------------------------------------------------------------>
    procedure FormCreate(Sender: TObject);
    procedure DBG1CellClick(Column: TColumn);
    procedure DBN1Click(Sender: TObject; Button: TNavigateBtn);
    procedure B1Click(Sender: TObject);
  private
    { By : Zephio }
    procedure CF(Sender: TObject);
  public
    { DB Desktop, 2007 - 2011}
  end;

const
  DN = 'Zephio - [Belajar DB Desktop]';

var
  FZS: TFZS;

implementation

{$R *.dfm}
//------------------------------------------------------------------------------>
procedure TFZS.CF(Sender: TObject);
var
   I : Integer;
begin
   LB1.Clear;
for I := 0 to DBG1.FieldCount - 1 do
   LB1.AddItem(IntToHex(I + 1, 2) +' - '+DBG1.Columns.Items[I].FieldName +' : ' + DBG1.Columns.Grid.Fields[I].Text, Self);
   LB1.AddItem('Total Fields : '+IntToStr(DBG1.FieldCount), Self);
   LB1.AddItem('Total Records : '+IntToStr(DS.DataSet.RecordCount), Self);
end;
//------------------------------------------------------------------------------>
procedure TFZS.FormCreate(Sender: TObject);
var
   P : String;
begin
   FZS.Caption := DN;
   Application.Title := DN;
   P := ExtractFilePath(Application.ExeName)+'data.db';
if not FileExists(P) then
begin
   MessageBox(handle, 'Data.db tidak ditemukan!!!...'+#13#10+'Applikasi Akan Ditutup!!!...', 'Info', 0);
   Application.Terminate;
end
else
begin
   T1.TableName := ExtractFilename(P);
   T1.Active := true;
   DS.DataSet := T1;
   DBG1.DataSource := DS;
   DBN1.DataSource := DS;
end;
   CF(Self);
   LB1.ItemIndex := 0;
end;
//------------------------------------------------------------------------------>
procedure TFZS.DBG1CellClick(Column: TColumn);
begin
   CF(Self);
   LB1.ItemIndex := DBG1.SelectedIndex;
end;

procedure TFZS.DBN1Click(Sender: TObject; Button: TNavigateBtn);
begin
if (DBG1.FieldCount < 1) or
   (button <> NBInsert) then
begin
   exit;
end
else
begin
   T1.Insert;
   DBG1.Columns.Grid.Fields[0].Text := '#0'+IntToStr(DS.DataSet.RecordCount + 1);
   DBG1.Columns.Grid.Fields[3].Text := DateToStr(Now);
   DBG1.Columns.Grid.Fields[6].Text := 'Zephio';
   T1.Post;
end;
   CF(Self);
end;
//------------------------------------------------------------------------------>
procedure TFZS.B1Click(Sender: TObject);
var
   Sum : Integer;
begin
if DBG1.FieldCount < 1 then
   exit
else
   Sum := 0;
   DS.DataSet.First;
while not DS.DataSet.Eof do
begin
   Sum := Sum + DS.DataSet.Fields[5].AsInteger;
   DS.DataSet.Next;
end;
   MessageBox(handle, pChar('Total : '+IntToStr(Sum)), 'Info', 0);
end;

end.