guanliu.dfm

源代码竟供大家参考

            Visible = True
          end
          item
            Expanded = False
            FieldName = 'H'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696
            Visible = True
          end>
      end
      object DBNavigator2: TDBNavigator
        Left = 0
        Top = 494
        Width = 732
        Height = 25
        DataSource = DataSource6
        VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
        Align = alBottom
        TabOrder = 1
      end
    end
    object TabSheet7: TTabSheet
      Caption = #22797#36873#39064#39064#24211#32500#25252
      ImageIndex = 3
      object DBGrid7: TDBGrid
        Left = 0
        Top = 0
        Width = 732
        Height = 494
        Align = alClient
        DataSource = DataSource7
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #39064#30446#20869#23481
            Width = 283
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A'
            Width = 190
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'B'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'C'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'D'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'E'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'G'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'H'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696'A'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696'B'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696'C'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696'D'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696'E'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696'F'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696'G'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696'H'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22270#29255
            Visible = True
          end>
      end
      object DBNavigator4: TDBNavigator
        Left = 0
        Top = 494
        Width = 732
        Height = 25
        DataSource = DataSource7
        VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
        Align = alBottom
        TabOrder = 1
      end
    end
    object TabSheet8: TTabSheet
      Caption = #21028#26029#39064#39064#24211#32500#25252
      ImageIndex = 4
      object DBGrid8: TDBGrid
        Left = 0
        Top = 0
        Width = 732
        Height = 494
        Align = alClient
        DataSource = DataSource8
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #39064#30446#20869#23481
            Width = 255
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#31572#26696
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#20934#29702#30001
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22270#29255
            Visible = True
          end>
      end
      object DBNavigator5: TDBNavigator
        Left = 0
        Top = 494
        Width = 732
        Height = 25
        DataSource = DataSource8
        VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
        Align = alBottom
        TabOrder = 1
      end
    end
    object TabSheet9: TTabSheet
      Caption = #32771#35797#35774#32622
      ImageIndex = 5
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 48
        Height = 12
        Caption = #31572#39064#26102#38388
        FocusControl = DBEdit1
      end
      object Label2: TLabel
        Left = 16
        Top = 48
        Width = 60
        Height = 12
        Caption = #21333#36873#39064#26465#25968
        FocusControl = DBEdit2
      end
      object Label3: TLabel
        Left = 16
        Top = 88
        Width = 60
        Height = 12
        Caption = #21333#36873#39064#24635#20998
        FocusControl = DBEdit3
      end
      object Label4: TLabel
        Left = 16
        Top = 128
        Width = 72
        Height = 12
        Caption = #21333#36873#39064#36873#39033#25968
        FocusControl = DBEdit4
      end
      object Label5: TLabel
        Left = 16
        Top = 168
        Width = 60
        Height = 12
        Caption = #21333#36873#39064#35828#26126
        FocusControl = DBEdit5
      end
      object Label6: TLabel
        Left = 16
        Top = 208
        Width = 60
        Height = 12
        Caption = #22810#36873#39064#26465#25968
        FocusControl = DBEdit6
      end
      object Label7: TLabel
        Left = 16
        Top = 248
        Width = 60
        Height = 12
        Caption = #22810#36873#39064#24635#20998
        FocusControl = DBEdit7
      end
      object Label8: TLabel
        Left = 16
        Top = 288
        Width = 72
        Height = 12
        Caption = #22810#36873#39064#36873#39033#25968
        FocusControl = DBEdit8
      end
      object Label9: TLabel
        Left = 16
        Top = 328
        Width = 60
        Height = 12
        Caption = #22810#36873#39064#35828#26126
        FocusControl = DBEdit9
      end
      object Label10: TLabel
        Left = 16
        Top = 368
        Width = 60
        Height = 12
        Caption = #21028#26029#39064#26465#25968
        FocusControl = DBEdit10
      end
      object Label11: TLabel
        Left = 16
        Top = 408
        Width = 60
        Height = 12
        Caption = #21028#26029#39064#24635#20998
        FocusControl = DBEdit11
      end
      object Label12: TLabel
        Left = 16
        Top = 448
        Width = 60
        Height = 12
        Caption = #21028#26029#39064#35828#26126
        FocusControl = DBEdit12
      end
      object Label13: TLabel
        Left = 16
        Top = 492
        Width = 60
        Height = 12
        Caption = #31649#29702#21592#23494#30721
        FocusControl = DBEdit13
      end
      object DBEdit1: TDBEdit
        Left = 81
        Top = 4
        Width = 134
        Height = 20
        DataField = #31572#39064#26102#38388
        DataSource = DataSource9
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 81
        Top = 44
        Width = 134
        Height = 20
        DataField = #21333#36873#39064#26465#25968
        DataSource = DataSource9
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 81
        Top = 84
        Width = 134
        Height = 20
        DataField = #21333#36873#39064#24635#20998
        DataSource = DataSource9
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 81
        Top = 124
        Width = 134
        Height = 20
        DataField = #21333#36873#39064#36873#39033#25968
        DataSource = DataSource9
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 81
        Top = 164
        Width = 255
        Height = 20
        DataField = #21333#36873#39064#35828#26126
        DataSource = DataSource9
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 81
        Top = 204
        Width = 134
        Height = 20
        DataField = #22810#36873#39064#26465#25968
        DataSource = DataSource9
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 81
        Top = 244
        Width = 134
        Height = 20
        DataField = #22810#36873#39064#24635#20998
        DataSource = DataSource9
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 81
        Top = 284
        Width = 134
        Height = 20
        DataField = #22810#36873#39064#36873#39033#25968
        DataSource = DataSource9
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 81
        Top = 324
        Width = 255
        Height = 20
        DataField = #22810#36873#39064#35828#26126
        DataSource = DataSource9
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 81
        Top = 364
        Width = 134
        Height = 20
        DataField = #21028#26029#39064#26465#25968
        DataSource = DataSource9
        TabOrder = 9
      end
      object DBEdit11: TDBEdit
        Left = 81
        Top = 404
        Width = 134
        Height = 20
        DataField = #21028#26029#39064#24635#20998
        DataSource = DataSource9
        TabOrder = 10
      end
      object DBEdit12: TDBEdit
        Left = 81
        Top = 444
        Width = 255
        Height = 20
        DataField = #21028#26029#39064#35828#26126
        DataSource = DataSource9
        TabOrder = 11
      end
      object DBEdit13: TDBEdit
        Left = 80
        Top = 488
        Width = 264
        Height = 20
        DataField = #31649#29702#21592#23494#30721
        DataSource = DataSource9
        TabOrder = 12
      end
      object DBNavigator3: TDBNavigator
        Left = 376
        Top = 32
        Width = 224
        Height = 33
        DataSource = DataSource9
        VisibleButtons = [nbEdit, nbPost, nbCancel, nbRefresh]
        TabOrder = 13
      end
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +
      'curity Info=False;Jet OLEDB:Database Password=kaoshi'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#32771#35797#35760#24405)
    Left = 48
    Top = 112
    object ADOQuery1DSDesigner: TDateTimeField
      FieldName = #30331#24405#26102#38388
    end
    object ADOQuery1DSDesigner2: TWideStringField
      FieldName = #32771#29983#21306#38431
      Size = 40
    end
    object ADOQuery1DSDesigner3: TWideStringField
      FieldName = #32771#29983#22995#21517
    end
    object ADOQuery1DSDesigner4: TWideStringField
      FieldName = #32771#29983#23398#21495
    end
    object ADOQuery1DSDesigner5: TDateTimeField
      FieldName = #24320#22987#26102#38388
    end
    object ADOQuery1DSDesigner6: TIntegerField
      FieldName = #21097#20313#26102#38388
    end
    object ADOQuery1DSDesigner7: TDateTimeField
      FieldName = #20132#21367#26102#38388
    end
    object ADOQuery1DSDesigner8: TFloatField
      FieldName = #21333#36873#39064#24471#20998
    end
    object ADOQuery1DSDesigner9: TFloatField
      FieldName = #22797#36873#39064#24471#20998
    end
    object ADOQuery1DSDesigner10: TFloatField
      FieldName = #21028#26029#39064#24471#20998
    end
    object ADOQuery1DSDesigner11: TIntegerField
      FieldName = #24635#24471#20998
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnDataChange = DataSource1DataChange
    Left = 80
    Top = 112