复件 pingzheng.dfm

C++Builder6随书的源程序

inherited fmPingZheng: TfmPingZheng
  Left = 189
  Top = 102
  Caption = #20250#35745#20973#35777#36755#20837
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited CoolBar1: TCoolBar
    inherited Panel1: TPanel
      inherited Label1: TLabel
        Left = 75
      end
      inherited Label2: TLabel
        Left = 208
      end
      inherited Label3: TLabel
        Left = 351
      end
      inherited lblCount: TLabel
        Visible = False
      end
      inherited BitBtn1: TBitBtn
        Left = 480
      end
      inherited Edit1: TEdit
        Left = 112
      end
      inherited Edit2: TEdit
        Left = 248
      end
      inherited Edit3: TEdit
        Left = 388
      end
    end
  end
  inherited DBGrid1: TDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = #20973#35777#32534#21495
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20250#35745#26399#38388
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26085#26399
        Width = 62
        Visible = True
      end>
  end
  inherited Panel2: TPanel
    object StringGrid1: TStringGrid
      Left = 8
      Top = 128
      Width = 425
      Height = 120
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 20
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
      TabOrder = 3
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 472
      Height = 96
      Align = alTop
      TabOrder = 0
      object Label4: TLabel
        Left = 126
        Top = 6
        Width = 56
        Height = 13
        Caption = #20973#35777#23383#21495
      end
      object Label5: TLabel
        Left = 316
        Top = 6
        Width = 42
        Height = 13
        Caption = #21046#21333#20154
        FocusControl = EditDBEdit2
      end
      object Label6: TLabel
        Left = 21
        Top = 49
        Width = 56
        Height = 13
        Caption = #20250#35745#26399#38388
        FocusControl = EditDBEdit3
      end
      object Label7: TLabel
        Left = 210
        Top = 6
        Width = 28
        Height = 13
        Caption = #26085#26399
        FocusControl = EditDBEdit4
      end
      object Label8: TLabel
        Left = 210
        Top = 49
        Width = 56
        Height = 13
        Caption = #20511#26041#21512#35745
        FocusControl = EditDBEdit5
      end
      object Label9: TLabel
        Left = 316
        Top = 49
        Width = 56
        Height = 13
        Caption = #36151#26041#21512#35745
        FocusControl = EditDBEdit6
      end
      object Label10: TLabel
        Left = 126
        Top = 49
        Width = 56
        Height = 13
        Caption = #36807#36134#29366#24577
        FocusControl = EditDBEdit7
      end
      object Label11: TLabel
        Left = 21
        Top = 6
        Width = 56
        Height = 13
        Caption = #20973#35777#32534#21495
        FocusControl = EditDBEdit1
      end
      object EditDBEdit2: TDBEdit
        Left = 316
        Top = 21
        Width = 85
        Height = 21
        DataField = #21046#21333
        DataSource = DataSource1
        TabOrder = 7
      end
      object EditDBEdit3: TDBEdit
        Left = 24
        Top = 64
        Width = 73
        Height = 21
        DataField = #20250#35745#26399#38388
        DataSource = DataSource1
        Enabled = False
        TabOrder = 0
      end
      object EditDBEdit4: TDBEdit
        Left = 210
        Top = 21
        Width = 81
        Height = 21
        DataField = #26085#26399
        DataSource = DataSource1
        TabOrder = 6
      end
      object EditDBEdit5: TDBEdit
        Left = 210
        Top = 64
        Width = 82
        Height = 21
        DataField = #20511#26041#21512#35745
        DataSource = DataSource1
        Enabled = False
        TabOrder = 1
      end
      object EditDBEdit6: TDBEdit
        Left = 316
        Top = 64
        Width = 85
        Height = 21
        DataField = #36151#26041#21512#35745
        DataSource = DataSource1
        Enabled = False
        TabOrder = 2
      end
      object EditDBEdit7: TDBEdit
        Left = 126
        Top = 64
        Width = 57
        Height = 21
        DataField = #36807#36134#29366#24577
        DataSource = DataSource1
        Enabled = False
        TabOrder = 3
      end
      object DBComboBox1: TDBComboBox
        Left = 126
        Top = 21
        Width = 57
        Height = 21
        DataField = #20973#35777#23383#21495
        DataSource = DataSource1
        ItemHeight = 13
        Items.Strings = (
          #25910
          #20184
          #36716)
        TabOrder = 4
      end
      object EditDBEdit1: TDBEdit
        Left = 24
        Top = 19
        Width = 73
        Height = 21
        DataField = #20973#35777#32534#21495
        DataSource = DataSource1
        Enabled = False
        TabOrder = 5
      end
    end
    object DBGrid2: TDBGrid
      Left = 33
      Top = 217
      Width = 472
      Height = 227
      DataSource = DataSource2
      Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete]
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #26032#23435#20307
      TitleFont.Style = []
      OnKeyUp = DBGrid2KeyUp
      Columns = <
        item
          Expanded = False
          FieldName = #25688#35201
          Width = 78
          Visible = True
        end
        item
          Expanded = False
          FieldName = #31185#30446#20195#30721
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = #31185#30446#21517#31216
          Width = 137
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20511#26041
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = #36151#26041
          Width = 56
          Visible = True
        end>
    end
    object Panel4: TPanel
      Left = 1
      Top = 97
      Width = 472
      Height = 24
      Align = alTop
      Alignment = taLeftJustify
      Caption = #36755#20837#20973#35777#20998#24405#65306'  '#21521#19979#38190#22686#21152#65307' Del'#38190#21024#38500
      TabOrder = 2
    end
  end
  inherited Table1: TTable
    Active = True
    FieldDefs = <
      item
        Name = #20973#35777#32534#21495
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = #20250#35745#26399#38388
        DataType = ftInteger
      end
      item
        Name = #20973#35777#23383#21495
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = #26085#26399
        DataType = ftDateTime
      end
      item
        Name = #38468#21333#25454
        DataType = ftInteger
      end
      item
        Name = #21046#21333
        Attributes = [faFixed]
        DataType = ftString
        Size = 20
      end
      item
        Name = #20511#26041#21512#35745
        DataType = ftFloat
      end
      item
        Name = #36151#26041#21512#35745
        DataType = ftFloat
      end
      item
        Name = #36807#36134#29366#24577
        Attributes = [faFixed]
        DataType = ftString
        Size = 4
      end
      item
        Name = #20973#35777#29366#24577
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end>
    IndexDefs = <
      item
        Name = 'PK_'#20973#35777#34920
        Fields = #20973#35777#32534#21495
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'dbo.'#20973#35777#34920
  end
  object Query1: TQuery
    DatabaseName = 'db'
    Left = 616
    Top = 104
  end
  object Table2: TTable
    Active = True
    CachedUpdates = True
    BeforePost = Table2BeforePost
    AfterPost = Table2AfterPost
    AfterScroll = Table2AfterScroll
    DatabaseName = 'db'
    FieldDefs = <
      item
        Name = #32534#21495
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = #20973#35777#32534#21495
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = #25688#35201
        Attributes = [faFixed]
        DataType = ftString
        Size = 40
      end
      item
        Name = #31185#30446#20195#30721
        Attributes = [faFixed]
        DataType = ftString
        Size = 20
      end
      item
        Name = #20511#26041
        DataType = ftFloat
      end
      item
        Name = #36151#26041
        DataType = ftFloat
      end
      item
        Name = #25968#37327
        DataType = ftInteger
      end
      item
        Name = #21333#20215
        DataType = ftFloat
      end
      item
        Name = #32467#31639#26041#24335
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = #32467#31639#21495
        DataType = ftInteger
      end
      item
        Name = #32467#31639#26085#26399
        DataType = ftDateTime
      end>
    IndexFieldNames = #20973#35777#32534#21495
    MasterFields = #20973#35777#32534#21495
    MasterSource = DataSource1
    StoreDefs = True
    TableName = 'dbo.'#20998#24405#34920
    Left = 648
    Top = 136
    object Table2BDEDesigner: TStringField
      FieldName = #20973#35777#32534#21495
      Required = True
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner2: TStringField
      FieldName = #25688#35201
      FixedChar = True
      Size = 40
    end
    object Table2BDEDesigner4: TFloatField
      FieldName = #20511#26041
    end
    object Table2BDEDesigner5: TFloatField
      FieldName = #36151#26041
    end
    object Table2Field: TStringField
      FieldKind = fkLookup
      FieldName = #31185#30446#21517#31216
      LookupDataSet = Table3
      LookupKeyFields = #31185#30446#20195#30721
      LookupResultField = #31185#30446#21517#31216
      KeyFields = #31185#30446#20195#30721
      Lookup = True
    end
    object Table2BDEDesigner3: TStringField
      FieldName = #31185#30446#20195#30721
      LookupDataSet = Table3
      LookupKeyFields = #31185#30446#21517#31216
      LookupResultField = #31185#30446#20195#30721
      KeyFields = #31185#30446#20195#30721
      FixedChar = True
    end
  end
  object DataSource2: TDataSource
    AutoEdit = False
    DataSet = Table2
    Left = 616
    Top = 136
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'db'
    TableName = 'dbo.'#31185#30446#34920
    Left = 648
    Top = 104
  end
end