unit3.~dfm

《Delphi案例设计》源代码

      item
        Expanded = False
        FieldName = #21355#29983#36153
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29123#26009#34917#36148
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20445#38505#37329#25187#38500
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #27700#30005#27668#25187#38500
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20303#25151#20445#35777#37329#25187#38500
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #38381#36335#22825#32447#36153#25187#38500
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24635#24037#36164
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24635#25187#38500
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23454#21457#24037#36164
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 192
    Top = 213
    Width = 240
    Height = 25
    DataSource = DataSource1
    Flat = True
    TabOrder = 1
  end
  object ComboBox1: TComboBox
    Left = 24
    Top = 280
    Width = 145
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ParentFont = False
    TabOrder = 2
    Text = 'ComboBox1'
    Items.Strings = (
      #25353#20010#20154#24037#36164#21495#26597#35810
      #25353#21333#20301#21517#31216#26597#35810
      #25353#32844#24037#22995#21517#26597#35810
      #25353#24037#36164#24180#20221#26597#35810
      #25353#24037#36164#26376#20221#26597#35810)
  end
  object Edit1: TEdit
    Left = 192
    Top = 280
    Width = 121
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Text = 'Edit1'
  end
  object Memo1: TMemo
    Left = 88
    Top = 112
    Width = 409
    Height = 49
    Lines.Strings = (
      'Memo1')
    TabOrder = 4
    Visible = False
  end
  object Table1: TTable
    Active = True
    AutoRefresh = True
    TableName = #24037#36164#31649#29702'.db'
    Left = 448
    Top = 40
    object Table1BDEDesigner: TStringField
      FieldName = #20010#20154#24037#36164#21495
      Size = 16
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #21333#20301#32534#21495
      Size = 18
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #21333#20301#21517#31216
    end
    object Table1BDEDesigner4: TStringField
      FieldName = #32844#24037#22995#21517
      Size = 10
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #24037#36164#24180#20221
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #24037#36164#26376#20221
      Size = 6
    end
    object Table1BDEDesigner7: TCurrencyField
      FieldName = #22522#26412#24037#36164
    end
    object Table1BDEDesigner8: TCurrencyField
      FieldName = #28014#21160#24037#36164
    end
    object Table1BDEDesigner9: TCurrencyField
      FieldName = #24037#40836#24037#36164
    end
    object Table1BDEDesigner10: TCurrencyField
      FieldName = #31918#24046
    end
    object Table1BDEDesigner11: TCurrencyField
      FieldName = #29289#36148
    end
    object Table1BDEDesigner12: TCurrencyField
      FieldName = #32905#36148
    end
    object Table1BDEDesigner13: TCurrencyField
      FieldName = #21355#29983#36153
    end
    object Table1BDEDesigner14: TCurrencyField
      FieldName = #29123#26009#34917#36148
    end
    object Table1BDEDesigner15: TCurrencyField
      FieldName = #20445#38505#37329#25187#38500
    end
    object Table1BDEDesigner16: TCurrencyField
      FieldName = #27700#30005#27668#25187#38500
    end
    object Table1BDEDesigner17: TCurrencyField
      FieldName = #20303#25151#20445#35777#37329#25187#38500
    end
    object Table1BDEDesigner18: TCurrencyField
      FieldName = #38381#36335#22825#32447#36153#25187#38500
    end
    object Table1BDEDesigner19: TCurrencyField
      FieldName = #24635#24037#36164
    end
    object Table1BDEDesigner20: TCurrencyField
      FieldName = #24635#25187#38500
    end
    object Table1BDEDesigner21: TCurrencyField
      FieldName = #23454#21457#24037#36164
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 424
    Top = 80
  end
end