object Form1: TForm1 Left = 200 Top = 108 Width = 544 Height = 375 Caption = 'Navigation and Edit Demonstration' 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 DBNavigator1: TDBNavigator Left = 0 Top = 0 Width = 536 Height = 25 DataSource = DataSource1 Align = alTop TabOrder = 0 end object DBGrid1: TDBGrid Left = 0 Top = 25 Width = 536 Height = 232 Align = alClient DataSource = DataSource1 TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object Panel1: TPanel Left = 0 Top = 257 Width = 536 Height = 91 Align = alBottom TabOrder = 2 object LabelStart1: TLabel Left = 11 Top = 5 Width = 3 Height = 13 end object LabelEnd1: TLabel Left = 11 Top = 22 Width = 3 Height = 13 end object LabelStart2: TLabel Left = 145 Top = 5 Width = 3 Height = 13 end object LabelEnd2: TLabel Left = 145 Top = 20 Width = 3 Height = 13 end object LabelTotal1: TLabel Left = 11 Top = 37 Width = 3 Height = 13 end object LabelTotal2: TLabel Left = 145 Top = 36 Width = 3 Height = 13 end object LabelStart3: TLabel Left = 279 Top = 4 Width = 3 Height = 13 end object LabelEnd3: TLabel Left = 279 Top = 19 Width = 3 Height = 13 end object LabelTotal3: TLabel Left = 279 Top = 34 Width = 3 Height = 13 end object LabelStart4: TLabel Left = 413 Top = 6 Width = 3 Height = 13 end object LabelEnd4: TLabel Left = 413 Top = 21 Width = 3 Height = 13 end object LabelTotal4: TLabel Left = 413 Top = 37 Width = 3 Height = 13 end object Button1: TButton Left = 11 Top = 57 Width = 112 Height = 25 Caption = 'Scan' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 145 Top = 57 Width = 112 Height = 25 Caption = 'Scan - No UI Update' TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 278 Top = 57 Width = 112 Height = 25 Caption = 'Sum Sales' TabOrder = 2 OnClick = Button3Click end object Button4: TButton Left = 413 Top = 57 Width = 112 Height = 25 Caption = 'Edit ShipToState' TabOrder = 3 OnClick = Button4Click end end object Table1: TTable Active = True DatabaseName = 'DBDEMOS' TableName = 'ORDERS.DB' Left = 104 Top = 57 object Table1OrderNo: TFloatField FieldName = 'OrderNo' DisplayFormat = #39'#'#39'0000' end object Table1CustNo: TFloatField Alignment = taLeftJustify CustomConstraint = 'CustNo IS NOT NULL' ConstraintErrorMessage = 'CustNo cannot be blank' FieldName = 'CustNo' Required = True DisplayFormat = 'CN 0000' MaxValue = 9999.000000000000000000 MinValue = 1000.000000000000000000 end object Table1SaleDate: TDateTimeField FieldName = 'SaleDate' end object Table1ShipDate: TDateTimeField FieldName = 'ShipDate' end object Table1EmpNo: TIntegerField CustomConstraint = 'Value > 0' ConstraintErrorMessage = 'EmpNo cannot be 0 or negative' FieldName = 'EmpNo' Required = True DisplayFormat = 'Emp'#39'#'#39' 0000' MaxValue = 9999 MinValue = 1 end object Table1ShipToContact: TStringField FieldName = 'ShipToContact' end object Table1ShipToAddr1: TStringField FieldName = 'ShipToAddr1' Size = 30 end object Table1ShipToAddr2: TStringField FieldName = 'ShipToAddr2' Size = 30 end object Table1ShipToCity: TStringField FieldName = 'ShipToCity' Size = 15 end object Table1ShipToState: TStringField FieldName = 'ShipToState' end object Table1ShipToZip: TStringField FieldName = 'ShipToZip' Size = 10 end object Table1ShipToCountry: TStringField FieldName = 'ShipToCountry' end object Table1ShipToPhone: TStringField FieldName = 'ShipToPhone' Size = 15 end object Table1ShipVIA: TStringField FieldName = 'ShipVIA' Size = 7 end object Table1PO: TStringField FieldName = 'PO' Size = 15 end object Table1Terms: TStringField FieldName = 'Terms' Size = 6 end object Table1PaymentMethod: TStringField FieldName = 'PaymentMethod' Size = 7 end object Table1ItemsTotal: TCurrencyField FieldName = 'ItemsTotal' end object Table1TaxRate: TFloatField FieldName = 'TaxRate' DisplayFormat = '0.00%' MaxValue = 100.000000000000000000 end object Table1Freight: TCurrencyField FieldName = 'Freight' end object Table1AmountPaid: TCurrencyField FieldName = 'AmountPaid' end end object DataSource1: TDataSource DataSet = Table1 Left = 46 Top = 66 end end