unit9.dfm

ok。使用Delphi+SQL2000编写的

object Form9: TForm9
  Left = 314
  Top = 241
  Width = 600
  Height = 500
  Caption = #20303#25143#25253#20462#20449#24687
  Color = clBtnFace
  Constraints.MaxHeight = 500
  Constraints.MaxWidth = 600
  Constraints.MinHeight = 500
  Constraints.MinWidth = 600
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 592
    Height = 233
    Align = alTop
    Enabled = False
    TabOrder = 0
    object Label2: TLabel
      Left = 32
      Top = 16
      Width = 48
      Height = 13
      Caption = #21333#25454#32534#21495
      FocusControl = DBEdit2
    end
    object Label5: TLabel
      Left = 32
      Top = 56
      Width = 48
      Height = 13
      Caption = #25253#20462#26085#26399
      FocusControl = DBEdit5
    end
    object Label6: TLabel
      Left = 392
      Top = 64
      Width = 48
      Height = 13
      Caption = #23436#25104#26085#26399
      FocusControl = DBEdit6
    end
    object Label7: TLabel
      Left = 32
      Top = 96
      Width = 48
      Height = 13
      Caption = #26381#21153#36153#29992
      FocusControl = DBEdit7
    end
    object Label8: TLabel
      Left = 208
      Top = 96
      Width = 48
      Height = 13
      Caption = #29289#26009#36153#29992
      FocusControl = DBEdit8
    end
    object Label9: TLabel
      Left = 392
      Top = 104
      Width = 48
      Height = 13
      Caption = #36153#29992#21512#35745
      FocusControl = DBEdit9
    end
    object Label10: TLabel
      Left = 32
      Top = 128
      Width = 48
      Height = 13
      Caption = #25253#20462#20869#23481
    end
    object Label1: TLabel
      Left = 208
      Top = 56
      Width = 59
      Height = 13
      Caption = #32500#20462#20154#21592'ID'
      FocusControl = DBEdit1
    end
    object Label3: TLabel
      Left = 208
      Top = 19
      Width = 48
      Height = 13
      Caption = #20303#25143#21517#31216
      FocusControl = DBLookupComboBox1
    end
    object DBEdit2: TDBEdit
      Left = 96
      Top = 16
      Width = 100
      Height = 21
      DataField = #21333#25454#32534#21495
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit5: TDBEdit
      Left = 96
      Top = 56
      Width = 100
      Height = 21
      DataField = #25253#20462#26085#26399
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit6: TDBEdit
      Left = 448
      Top = 56
      Width = 100
      Height = 21
      DataField = #23436#25104#26085#26399
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit7: TDBEdit
      Left = 96
      Top = 96
      Width = 100
      Height = 21
      DataField = #26381#21153#36153#29992
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit8: TDBEdit
      Left = 272
      Top = 96
      Width = 100
      Height = 21
      DataField = #29289#26009#36153#29992
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit9: TDBEdit
      Left = 448
      Top = 96
      Width = 100
      Height = 21
      DataField = #36153#29992#21512#35745
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBMemo1: TDBMemo
      Left = 32
      Top = 144
      Width = 515
      Height = 81
      DataField = #25253#20462#20869#23481
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBEdit1: TDBEdit
      Left = 272
      Top = 56
      Width = 97
      Height = 21
      DataField = #32500#20462#20154#21592'ID'
      DataSource = DataSource1
      TabOrder = 7
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 272
      Top = 16
      Width = 100
      Height = 21
      DataField = #20303#25143#21517#31216
      DataSource = DataSource1
      TabOrder = 8
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 408
    Width = 592
    Height = 63
    Align = alBottom
    TabOrder = 1
    object Button1: TButton
      Left = 40
      Top = 14
      Width = 77
      Height = 33
      Caption = #28155#21152'(&A)'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 212
      Top = 14
      Width = 77
      Height = 33
      Caption = #20445#23384'(&P)'
      Enabled = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 299
      Top = 14
      Width = 77
      Height = 33
      Caption = #21024#38500'(&D)'
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 385
      Top = 14
      Width = 77
      Height = 33
      Caption = #21462#28040
      TabOrder = 3
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 472
      Top = 14
      Width = 77
      Height = 33
      Caption = #36864#20986
      TabOrder = 4
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 126
      Top = 14
      Width = 77
      Height = 33
      Caption = #20462#25913'(&E)'
      TabOrder = 5
      OnClick = Button6Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 233
    Width = 592
    Height = 175
    Align = alClient
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 590
      Height = 173
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XQ.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    TableName = #20303#25143#25253#20462#34920
    Top = 32
    object ADOTable1DSDesigner: TAutoIncField
      FieldName = #21333#25454#32534#21495
      ReadOnly = True
    end
    object ADOTable1DSDesigner2: TIntegerField
      FieldName = #20303#25143#32534#21495
    end
    object ADOTable1ID: TIntegerField
      FieldName = #32500#20462#20154#21592'ID'
    end
    object ADOTable1DSDesigner3: TDateTimeField
      FieldName = #25253#20462#26085#26399
    end
    object ADOTable1DSDesigner4: TIntegerField
      FieldName = #26381#21153#36153#29992
    end
    object ADOTable1DSDesigner5: TIntegerField
      FieldName = #29289#26009#36153#29992
    end
    object ADOTable1DSDesigner8: TDateTimeField
      FieldName = #23436#25104#26085#26399
    end
    object ADOTable1DSDesigner9: TIntegerField
      FieldName = #36153#29992#21512#35745
    end
    object ADOTable1DSDesigner10: TWideStringField
      FieldName = #25253#20462#20869#23481
      Size = 100
    end
    object ADOTable1Field: TStringField
      FieldKind = fkLookup
      FieldName = #20303#25143#21517#31216
      LookupDataSet = ADOTable2
      LookupKeyFields = #20303#25143#32534#21495
      LookupResultField = #20303#25143#21517#31216
      KeyFields = #20303#25143#32534#21495
      Lookup = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Top = 72
  end
  object DataSource2: TDataSource
    Left = 288
    Top = 240
  end
  object ADOTable2: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XQ.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    TableName = #20303#25143#20449#24687#34920
    Top = 120
  end
end