unit4.dfm

利用Acess数据库

object SuperForm: TSuperForm
  Left = 87
  Top = 19
  Width = 656
  Height = 530
  Caption = #31649#29702#21592#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 648
    Height = 25
    Caption = 'ToolBar1'
    Color = clBlue
    ParentColor = False
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 25
    Width = 648
    Height = 168
    Align = alTop
    Caption = #31995#32479#21382#21490#25805#20316#35760#24405
    Color = clTeal
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 88
      Top = 24
      Width = 48
      Height = 13
      Caption = #30331#24405#24080#21495
    end
    object DBGrid1: TDBGrid
      Left = 246
      Top = 15
      Width = 400
      Height = 151
      Align = alRight
      Color = clInfoBk
      DataSource = DataSourceop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object BitBtn1: TBitBtn
      Left = 72
      Top = 96
      Width = 73
      Height = 25
      Cursor = crHandPoint
      Caption = #25552#20132
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn1Click
      Kind = bkYes
    end
    object Edit1: TEdit
      Left = 72
      Top = 48
      Width = 73
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 193
    Width = 241
    Height = 260
    Align = alLeft
    Caption = #22320#21306#20195#30721#31649#29702
    Color = clBtnFace
    ParentColor = False
    TabOrder = 2
    object Label2: TLabel
      Left = 16
      Top = 24
      Width = 24
      Height = 13
      Caption = #20195#21495
    end
    object Label3: TLabel
      Left = 16
      Top = 88
      Width = 24
      Height = 13
      Caption = #22320#21306
    end
    object DBGrid2: TDBGrid
      Left = 80
      Top = 16
      Width = 153
      Height = 201
      Color = clInfoBk
      DataSource = DataSourcetract
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object Edit2: TEdit
      Left = 16
      Top = 48
      Width = 57
      Height = 21
      Color = clInfoBk
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 16
      Top = 112
      Width = 57
      Height = 21
      Color = clInfoBk
      TabOrder = 2
    end
    object BitBtn2: TBitBtn
      Left = 16
      Top = 176
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = #20462#25913
      TabOrder = 3
      OnClick = BitBtn2Click
      Kind = bkAll
    end
    object BitBtn3: TBitBtn
      Left = 16
      Top = 216
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = #22635#21152
      TabOrder = 4
      OnClick = BitBtn3Click
      Kind = bkIgnore
    end
    object DBNavigator1: TDBNavigator
      Left = 83
      Top = 224
      Width = 148
      Height = 18
      Cursor = crHandPoint
      DataSource = DataSourcetract
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 5
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 453
    Width = 648
    Height = 31
    Panels = <>
    SimplePanel = False
  end
  object GroupBox3: TGroupBox
    Left = 247
    Top = 193
    Width = 401
    Height = 260
    Align = alRight
    Caption = #29992#25143#31649#29702
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clActiveCaption
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object Label4: TLabel
      Left = 56
      Top = 40
      Width = 24
      Height = 13
      Caption = #24080#21495
    end
    object Label5: TLabel
      Left = 56
      Top = 80
      Width = 24
      Height = 13
      Caption = #23494#30721
    end
    object Label6: TLabel
      Left = 56
      Top = 128
      Width = 24
      Height = 13
      Caption = #26435#38480
    end
    object DBGrid3: TDBGrid
      Left = 152
      Top = 16
      Width = 241
      Height = 201
      Color = clInfoBk
      DataSource = DataSourcename
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clActiveCaption
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #24080#21495
          Width = 127
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26435#38480
          Width = 77
          Visible = True
        end>
    end
    object DBNavigator2: TDBNavigator
      Left = 152
      Top = 224
      Width = 240
      Height = 18
      Cursor = crHandPoint
      DataSource = DataSourcename
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 1
    end
    object BitBtn4: TBitBtn
      Left = 56
      Top = 176
      Width = 73
      Height = 25
      Cursor = crHandPoint
      Caption = #22635#21152
      TabOrder = 2
      OnClick = BitBtn4Click
      Kind = bkIgnore
    end
    object BitBtn5: TBitBtn
      Left = 56
      Top = 216
      Width = 73
      Height = 25
      Cursor = crHandPoint
      Caption = #21024#38500
      TabOrder = 3
      OnClick = BitBtn5Click
      Kind = bkCancel
    end
    object Edit4: TEdit
      Left = 56
      Top = 56
      Width = 73
      Height = 21
      Color = clInfoBk
      TabOrder = 4
    end
    object Edit5: TEdit
      Left = 56
      Top = 96
      Width = 73
      Height = 21
      Color = clInfoBk
      TabOrder = 5
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 144
      Width = 73
      Height = 21
      Cursor = crHandPoint
      Color = clInfoBk
      ItemHeight = 13
      TabOrder = 6
      Items.Strings = (
        #36229#32423#29992#25143
        #24405#20837#29992#25143
        #19968#33324#29992#25143)
    end
  end
  object MainMenu1: TMainMenu
    Left = 192
    object N1: TMenuItem
      Caption = #31995#32479#25805#20316
      object N2: TMenuItem
        Caption = #37325#26032#30331#24405
        OnClick = N2Click
      end
      object N5: TMenuItem
        Caption = #26222#36890#26597#35810
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #24405#20837#27169#24335
        OnClick = N6Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = N4Click
      end
    end
    object N7: TMenuItem
      Caption = #23494#30721
      object N8: TMenuItem
        Caption = ' '#23494#30721#26356#25913
        OnClick = N8Click
      end
    end
  end
  object Table1op: TTable
    DatabaseName = 'copfinal'
    TableName = 'login'
    Left = 368
    Top = 16
    object Table1opBDEDesigner: TStringField
      FieldName = #30331#24405#24080#21495
      Size = 50
    end
    object Table1opBDEDesigner2: TStringField
      FieldName = #26435#38480
      Size = 50
    end
    object Table1opBDEDesigner3: TDateTimeField
      FieldName = #30331#24405#26102#38388
    end
  end
  object DataSourceop: TDataSource
    DataSet = Query1op
    Left = 136
  end
  object Query1op: TQuery
    DatabaseName = 'copfinal'
    Left = 96
  end
  object DataSource1: TDataSource
    DataSet = Table1op
    Left = 320
    Top = 105
  end
  object Tabletract: TTable
    DatabaseName = 'copfinal'
    IndexFieldNames = #20195#21495
    TableName = 'tract'
    Left = 464
    Top = 17
    object TabletractBDEDesigner: TAutoIncField
      FieldName = #20195#21495
    end
    object TabletractBDEDesigner2: TStringField
      FieldName = #22320#21306
    end
  end
  object Querytract: TQuery
    DatabaseName = 'copfinal'
    Left = 240
    Top = 225
  end
  object DataSourcetract: TDataSource
    DataSet = Tabletract
    OnDataChange = DataSourcetractDataChange
    Left = 240
    Top = 273
  end
  object Tablename: TTable
    DatabaseName = 'copfinal'
    TableName = 'password'
    Left = 554
    Top = 17
    object TablenameBDEDesigner: TStringField
      FieldName = #24080#21495
      Size = 30
    end
    object TablenameBDEDesigner2: TStringField
      FieldName = #23494#30721
      Size = 10
    end
    object TablenameBDEDesigner3: TSmallintField
      FieldName = #26435#38480
    end
  end
  object DataSourcename: TDataSource
    DataSet = Tablename
    Left = 610
    Top = 305
  end
end