d_frmmainunit.dfm

delphi 运行期间窗体设计

object frmMain: TfrmMain
  Left = 182
  Top = 116
  Width = 563
  Height = 577
  Caption = 'Customers'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBText1: TDBText
    Left = 352
    Top = 21
    Width = 65
    Height = 17
    DataField = 'CustNo'
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 16
    Top = 208
    Width = 47
    Height = 13
    Caption = 'Address1:'
  end
  object Label2: TLabel
    Left = 16
    Top = 232
    Width = 47
    Height = 13
    Caption = 'Address2:'
  end
  object Label3: TLabel
    Left = 16
    Top = 256
    Width = 20
    Height = 13
    Caption = 'City:'
  end
  object Label4: TLabel
    Left = 360
    Top = 208
    Width = 20
    Height = 13
    Caption = 'Fax:'
  end
  object Label5: TLabel
    Left = 360
    Top = 232
    Width = 34
    Height = 13
    Caption = 'Phone:'
  end
  object Label6: TLabel
    Left = 360
    Top = 256
    Width = 28
    Height = 13
    Caption = 'State:'
  end
  object Label7: TLabel
    Left = 280
    Top = 26
    Width = 59
    Height = 13
    Caption = 'Cutomer No:'
  end
  object SpeedButton1: TSpeedButton
    Left = 436
    Top = 18
    Width = 93
    Height = 23
    Caption = 'Open designer'
    Transparent = False
    OnClick = SpeedButton1Click
  end
  object Label8: TLabel
    Left = 14
    Top = 420
    Width = 523
    Height = 109
    AutoSize = False
    Caption = 
      'This demo is a small database application. The form can be edite' +
      'd by activating designer (click on button "Activate Designer"). ' +
      #13#10'Only several properties like Caption, Color or Font can be edi' +
      'ted (check source of OnFilterProp event to learn how to filter c' +
      'ertain properties). Controls can not be deleted from the form, b' +
      'ut user can hide them by setting Visible property to False. The ' +
      'edited form is automatically saved and loaded at start of applic' +
      'ation (check OnCreate/OnClose events).'#13#10'User can restore form to' +
      ' its default state (by reading a default DFM file).'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 16
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 48
    Width = 521
    Height = 137
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CustNo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Company'
        Width = 154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Contact'
        Width = 126
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LastInvoiceDate'
        Visible = True
      end>
  end
  object DBEdit1: TDBEdit
    Left = 72
    Top = 200
    Width = 241
    Height = 21
    DataField = 'Addr1'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit2: TDBEdit
    Left = 72
    Top = 224
    Width = 241
    Height = 21
    DataField = 'Addr2'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit3: TDBEdit
    Left = 72
    Top = 248
    Width = 241
    Height = 21
    DataField = 'City'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit4: TDBEdit
    Left = 408
    Top = 200
    Width = 121
    Height = 21
    DataField = 'FAX'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit5: TDBEdit
    Left = 408
    Top = 224
    Width = 121
    Height = 21
    DataField = 'Phone'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBEdit6: TDBEdit
    Left = 408
    Top = 248
    Width = 121
    Height = 21
    DataField = 'State'
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBNavigator2: TDBNavigator
    Left = 16
    Top = 280
    Width = 240
    Height = 25
    DataSource = DataSource2
    TabOrder = 8
  end
  object DBGrid2: TDBGrid
    Left = 16
    Top = 312
    Width = 521
    Height = 97
    DataSource = DataSource2
    TabOrder = 9
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    DatabaseName = '_local_db'
    SessionName = 'Default'
    Left = 8
    Top = 8
  end
  object Table1: TTable
    DatabaseName = '_local_db'
    TableName = 'customer.db'
    Left = 40
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 72
    Top = 8
  end
  object Table2: TTable
    DatabaseName = '_local_db'
    IndexName = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'orders.db'
    Left = 40
    Top = 40
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 72
    Top = 40
  end
end