userman.dfm

一个基于局域网的公司公文管理系统

          0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
          0333337F777FFFFF7F3333000000000003333377777777777333}
        NumGlyphs = 2
      end
    end
    object Edit1: TEdit
      Left = 109
      Top = 39
      Width = 127
      Height = 23
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      MaxLength = 4
      ParentFont = False
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 109
      Top = 63
      Width = 127
      Height = 23
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Edit3: TEdit
      Left = 108
      Top = 111
      Width = 127
      Height = 23
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 4
    end
    object Edit4: TEdit
      Left = 108
      Top = 135
      Width = 127
      Height = 23
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 5
    end
    object ComboBox1: TComboBox
      Left = 109
      Top = 87
      Width = 127
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = #26222#36890#21592#24037
      Items.Strings = (
        #26222#36890#21592#24037
        #19987#32844#25991#26723#22788#29702)
    end
    object ComboBox2unit: TComboBox
      Left = 109
      Top = 15
      Width = 127
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object userDBGrid: TDBGrid
    Left = 0
    Top = 166
    Width = 520
    Height = 210
    Align = alBottom
    DataSource = userDataSource
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'unit_id'
        Title.Alignment = taCenter
        Title.Caption = #21333#20301#32534#21495
        Width = 120
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'user_id'
        Title.Alignment = taCenter
        Title.Caption = #29992#25143#32534#21495
        Width = 120
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'name'
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Width = 120
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'privilege'
        Title.Alignment = taCenter
        Title.Caption = #26435#38480
        Width = 120
        Visible = True
      end>
  end
  object userDataSource: TDataSource
    DataSet = userTable
    Left = 351
    Top = 387
  end
  object addQuery: TQuery
    DatabaseName = 'FILE'
    SQL.Strings = (
      'insert ent_person (user_id,unit_id,name,password,privilege)'
      'values (:user_id,:unit_id,:name,:password,:privilege)')
    Left = 252
    Top = 267
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'password'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'privilege'
        ParamType = ptUnknown
      end>
  end
  object delQuery: TQuery
    DatabaseName = 'FILE'
    SQL.Strings = (
      'delete from ent_person'
      'where user_id=:user_id')
    Left = 388
    Top = 275
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end>
  end
  object modQuery: TQuery
    DatabaseName = 'FILE'
    SQL.Strings = (
      'update ent_person'
      'set name=:name,password=:password,privilege=:privilege '
      'where user_id=:user_id')
    Left = 340
    Top = 275
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'password'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'privilege'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end>
  end
  object useraddQuery: TQuery
    DatabaseName = 'FILE'
    SQL.Strings = (
      'select * from ent_person'
      'where user_id=:user_id  and unit_id=:unit_id')
    Left = 375
    Top = 323
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end>
  end
  object usermodQuery: TQuery
    DatabaseName = 'FILE'
    SQL.Strings = (
      'select * from ent_person'
      'where user_id=:user_id')
    Left = 439
    Top = 283
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end>
  end
  object userTable: TTable
    AfterScroll = userTableAfterScroll
    DatabaseName = 'FILE'
    TableName = 'dbo.ent_person'
    Left = 439
    Top = 387
  end
  object Database1: TDatabase
    AliasName = 'filetest'
    DatabaseName = 'FILE'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      'Password=88071024hzic')
    SessionName = 'Default'
    Left = 295
    Top = 331
  end
end