baseuser.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmBaseUser: TfrmBaseUser
  Left = 305
  Top = 148
  VertScrollBar.Range = 0
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsDialog
  Caption = #29992#25143#31649#29702
  ClientHeight = 454
  ClientWidth = 528
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 209
    Top = 38
    Width = 5
    Height = 416
  end
  inherited ToolBar: TToolBar
    Width = 528
    inherited ToolButton3: TToolButton
      Visible = False
    end
  end
  object Panel1: TPanel [2]
    Left = 214
    Top = 38
    Width = 314
    Height = 416
    Align = alClient
    TabOrder = 2
    object Label6: TLabel
      Left = 16
      Top = 232
      Width = 117
      Height = 13
      Caption = #29992#25143#38582#23646#30340#26435#38480#32452#65306
    end
    object Panel2: TPanel
      Left = 13
      Top = 8
      Width = 268
      Height = 209
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 39
        Height = 13
        Alignment = taRightJustify
        Caption = #20195#30721#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 49
        Width = 39
        Height = 13
        Alignment = taRightJustify
        Caption = #21517#31216#65306
      end
      object Label3: TLabel
        Left = 10
        Top = 111
        Width = 39
        Height = 13
        Alignment = taRightJustify
        Caption = #22791#27880#65306
        Transparent = True
      end
      object Label4: TLabel
        Left = 10
        Top = 160
        Width = 39
        Height = 13
        Alignment = taRightJustify
        Caption = #29366#24577#65306
        Transparent = True
      end
      object Label5: TLabel
        Left = 10
        Top = 184
        Width = 39
        Height = 13
        Alignment = taRightJustify
        Caption = #23646#24615#65306
        Transparent = True
      end
      object Label7: TLabel
        Left = 8
        Top = 81
        Width = 39
        Height = 13
        Alignment = taRightJustify
        Caption = #23494#30721#65306
      end
      object DBEdit2: TDBEdit
        Left = 49
        Top = 45
        Width = 160
        Height = 21
        DataField = 'fName'
        DataSource = dsBaseInfo
        TabOrder = 1
      end
      object DBEdit1: TDBEdit
        Left = 49
        Top = 13
        Width = 104
        Height = 21
        CharCase = ecUpperCase
        DataField = 'fCode'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
      object DBMemo1: TDBMemo
        Left = 48
        Top = 111
        Width = 161
        Height = 42
        DataField = 'fNotes'
        DataSource = dsBaseInfo
        TabOrder = 3
      end
      object DBCheckBox1: TDBCheckBox
        Left = 48
        Top = 158
        Width = 73
        Height = 17
        Caption = #26159#21542#21551#29992
        DataField = 'fStatus'
        DataSource = dsBaseInfo
        TabOrder = 4
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBox2: TDBCheckBox
        Left = 47
        Top = 182
        Width = 73
        Height = 17
        Caption = #36229#32423#29992#25143
        DataField = 'fFlag'
        DataSource = dsBaseInfo
        TabOrder = 5
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBEdit3: TDBEdit
        Left = 49
        Top = 77
        Width = 160
        Height = 21
        DataField = 'fPWD'
        DataSource = dsBaseInfo
        PasswordChar = '*'
        TabOrder = 2
      end
    end
    object BitBtn1: TBitBtn
      Left = 93
      Top = 382
      Width = 69
      Height = 25
      Action = acAddLine
      Caption = #22686#21152
      TabOrder = 2
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF0000000000000000000000000000000000FF00FF00000000000000
        00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF0000000000000000000000000000000000FF00FF00000000000000
        00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
    object BitBtn2: TBitBtn
      Left = 173
      Top = 382
      Width = 69
      Height = 25
      Action = acDelLine
      Caption = #21024#38500
      TabOrder = 3
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF000000000000000000000000000000000000000000000000000000
        00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF000000000000000000000000000000000000000000000000000000
        00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
    object DBGridEh1: TDBGridEh
      Left = 14
      Top = 254
      Width = 268
      Height = 120
      DataSource = dsUserGroup
      Enabled = False
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Color = clBackground
          EditButtons = <>
          FieldName = 'fUserID'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'cGroupName'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'fGroupId'
          Footers = <>
        end>
    end
  end
  object dbgGroup: TDBGrid [3]
    Left = 0
    Top = 38
    Width = 209
    Height = 416
    Align = alLeft
    DataSource = dsBaseInfo
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  inherited ALToolbar: TActionList
    Left = 240
    Top = 56
    object acAddLine: TAction
      Caption = #22686#21152
      ImageIndex = 12
      OnExecute = acAddLineExecute
    end
    object acDelLine: TAction
      Caption = #21024#38500
      ImageIndex = 13
      OnExecute = acDelLineExecute
    end
  end
  inherited QBaseInfo: TADOQuery
    Connection = dmClient.adocnequip_manage
    AfterInsert = QBaseInfoAfterInsert
    BeforeCancel = QBaseInfoBeforeCancel
    SQL.Strings = (
      'Select * from tUser')
    Top = 72
    object QBaseInfofID: TAutoIncField
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object QBaseInfofCode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 10
      FieldName = 'fCode'
      OnValidate = QBaseInfofCodeValidate
      Size = 50
    end
    object QBaseInfofName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fName'
      Size = 50
    end
    object QBaseInfofPWD: TWideStringField
      FieldName = 'fPWD'
      Visible = False
      Size = 50
    end
    object QBaseInfofStatus: TBooleanField
      FieldName = 'fStatus'
      Visible = False
    end
    object QBaseInfofNotes: TWideStringField
      FieldName = 'fNotes'
      Visible = False
      Size = 200
    end
    object QBaseInfofFlag: TBooleanField
      FieldName = 'fFlag'
      Visible = False
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 433
    Top = 65
  end
  inherited QIsUnique: TADOQuery
    Parameters = <
      item
        Name = 'Code'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select fid from tUser where fcode=:Code')
  end
  inherited QTemp: TADOQuery
    Left = 160
  end
  object QUserGroup: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'fID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * from tUserGroup where fUserID=:fID')
    Left = 336
    Top = 273
    object QUserGroupfUserID: TIntegerField
      DisplayLabel = #29992#25143'ID'
      DisplayWidth = 10
      FieldName = 'fUserID'
      ReadOnly = True
    end
    object QUserGroupfGroupId: TIntegerField
      DisplayLabel = #29992#25143#32452'ID'
      DisplayWidth = 10
      FieldName = 'fGroupId'
    end
    object QUserGroupfrecno: TAutoIncField
      DisplayWidth = 10
      FieldName = 'frecno'
      ReadOnly = True
      Visible = False
    end
    object QUserGroupcGroupName: TStringField
      DisplayLabel = #29992#25143#32452#21517#31216
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'cGroupName'
      LookupDataSet = QGroup
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fGroupId'
      Size = 50
      Lookup = True
    end
  end
  object QGroup: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from tGroup')
    Left = 336
    Top = 320
  end
  object dsUserGroup: TDataSource
    DataSet = QUserGroup
    Left = 352
    Top = 280
  end
  object wwLookupDlgGroup: TwwLookupDialog
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = QGroup
    Caption = #26597#25214
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 336
    Top = 353
  end
end