unit4.dfm

利用Acess数据库

object SuperForm: TSuperForm
  Left = 75
  Top = 9
  Width = 656
  Height = 530
  Caption = '管理员窗口'
  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 = '系统历史操作记录'
    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 = 44
      Height = 13
      Caption = '登录帐号'
    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 = clYellow
      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 = '提交'
      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 = '地区代码管理'
    Color = clBtnFace
    ParentColor = False
    TabOrder = 2
    object Label2: TLabel
      Left = 16
      Top = 24
      Width = 22
      Height = 13
      Caption = '代号'
    end
    object Label3: TLabel
      Left = 16
      Top = 88
      Width = 22
      Height = 13
      Caption = '地区'
    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 = '修改'
      TabOrder = 3
      OnClick = BitBtn2Click
      Kind = bkAll
    end
    object BitBtn3: TBitBtn
      Left = 16
      Top = 216
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '填加'
      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 = '用户管理'
    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 = 22
      Height = 13
      Caption = '帐号'
    end
    object Label5: TLabel
      Left = 56
      Top = 80
      Width = 22
      Height = 13
      Caption = '密码'
    end
    object Label6: TLabel
      Left = 56
      Top = 128
      Width = 22
      Height = 13
      Caption = '权限'
    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 = '帐号'
          Width = 127
          Visible = True
        end
        item
          Expanded = False
          FieldName = '权限'
          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 = '填加'
      TabOrder = 2
      OnClick = BitBtn4Click
      Kind = bkIgnore
    end
    object BitBtn5: TBitBtn
      Left = 56
      Top = 216
      Width = 73
      Height = 25
      Cursor = crHandPoint
      Caption = '删除'
      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 = (
        '超级用户'
        '录入用户'
        '一般用户')
    end
  end
  object MainMenu1: TMainMenu
    Left = 192
    object N1: TMenuItem
      Caption = '系统操作'
      object N2: TMenuItem
        Caption = '重新登录'
        OnClick = N2Click
      end
      object N5: TMenuItem
        Caption = '普通查询'
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = '录入模式'
        OnClick = N6Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Caption = '退出系统'
        OnClick = N4Click
      end
    end
    object N7: TMenuItem
      Caption = '密码'
      object N8: TMenuItem
        Caption = ' 密码更改'
        OnClick = N8Click
      end
    end
    object N9: TMenuItem
      Caption = '用户管理'
      object N10: TMenuItem
        Caption = '设定新用户'
      end
      object N11: TMenuItem
        Caption = '删除用户'
      end
    end
  end
  object Table1op: TTable
    DatabaseName = 'copfinal'
    TableName = 'login'
    Left = 40
    object Table1opBDEDesigner: TStringField
      FieldName = '登录帐号'
      Size = 50
    end
    object Table1opBDEDesigner2: TStringField
      FieldName = '权限'
      Size = 50
    end
    object Table1opBDEDesigner3: TDateTimeField
      FieldName = '登录时间'
    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 = '代号'
    TableName = 'tract'
    Left = 240
    Top = 201
    object TabletractBDEDesigner: TAutoIncField
      FieldName = '代号'
    end
    object TabletractBDEDesigner2: TStringField
      FieldName = '地区'
    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 = 618
    Top = 257
    object TablenameBDEDesigner: TStringField
      FieldName = '帐号'
      Size = 30
    end
    object TablenameBDEDesigner2: TStringField
      FieldName = '密码'
      Size = 10
    end
    object TablenameBDEDesigner3: TSmallintField
      FieldName = '权限'
    end
  end
  object DataSourcename: TDataSource
    DataSet = Tablename
    Left = 610
    Top = 305
  end
end