Marco's Web Center

Menu for Development

Site Menu
Object Pascal Handbook
Delphi Handbooks Collection
Mastering Borland Delphi 2005
(Old) White Papers
(Old)Tools
(Old) Conferences

My Other Sites
Italian Site (www.marcocantu.it)
the delphi search

Spirit of delphi

Advertising
Home My Blog Books Object Pascal Marco

Home: Code Repository: Mastering Delphi 6

Chapter 18 - Project DbProgr

Project Structure

DbProgr.dpr
program DbProgr;

uses
  Forms,
  DbProgrF in 'DbProgrF.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
DbProgrF.pas
unit DbProgrF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, ComCtrls, StdCtrls, Mask, DBTables, DB,
  MdProgr;

type
  TForm1 = class(TForm)
    Table1: TTable;
    Table1OrderNo: TFloatField;
    Table1ItemNo: TFloatField;
    Table1PartNo: TFloatField;
    Table1Qty: TIntegerField;
    Table1Discount: TFloatField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    DBNavigator1: TDBNavigator;
    DBText1: TDBText;
    DataSource2: TDataSource;
    MdDbProgress1: TMdDbProgress;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.
DbProgrF.dfm
object Form1: TForm1
  Left = 330
  Top = 220
  Width = 435
  Height = 300
  Caption = 'Data-aware ProgressBar Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 168
    Top = 16
    Width = 40
    Height = 13
    Caption = 'OrderNo'
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 168
    Top = 56
    Width = 34
    Height = 13
    Caption = 'ItemNo'
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 168
    Top = 96
    Width = 33
    Height = 13
    Caption = 'PartNo'
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 168
    Top = 136
    Width = 16
    Height = 13
    Caption = 'Qty'
  end
  object Label5: TLabel
    Left = 168
    Top = 176
    Width = 42
    Height = 13
    Caption = 'Discount'
    FocusControl = DBEdit5
  end
  object DBText1: TDBText
    Left = 200
    Top = 136
    Width = 65
    Height = 17
    DataField = 'Qty'
    DataSource = DataSource2
  end
  object DBEdit1: TDBEdit
    Left = 168
    Top = 32
    Width = 64
    Height = 21
    DataField = 'OrderNo'
    DataSource = DataSource2
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 168
    Top = 72
    Width = 64
    Height = 21
    DataField = 'ItemNo'
    DataSource = DataSource2
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    Left = 168
    Top = 112
    Width = 64
    Height = 21
    DataField = 'PartNo'
    DataSource = DataSource2
    TabOrder = 2
  end
  object DBEdit5: TDBEdit
    Left = 168
    Top = 192
    Width = 64
    Height = 21
    DataField = 'Discount'
    DataSource = DataSource2
    TabOrder = 3
  end
  object DBNavigator1: TDBNavigator
    Left = 88
    Top = 232
    Width = 240
    Height = 25
    DataSource = DataSource2
    TabOrder = 4
  end
  object MdDbProgress1: TMdDbProgress
    Left = 168
    Top = 152
    Width = 150
    Height = 16
    Min = 0
    Max = 100
    Position = 5
    TabOrder = 5
    DataField = 'Qty'
    DataSource = DataSource2
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'ITEMS.DB'
    Left = 48
    Top = 40
    object Table1OrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object Table1ItemNo: TFloatField
      FieldName = 'ItemNo'
    end
    object Table1PartNo: TFloatField
      FieldName = 'PartNo'
    end
    object Table1Qty: TIntegerField
      FieldName = 'Qty'
    end
    object Table1Discount: TFloatField
      FieldName = 'Discount'
    end
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 48
    Top = 104
  end
end