frmsysusermanage.dfm

物流供应链管理系统

object FormSysUserManage: TFormSysUserManage
  Left = 239
  Top = 91
  Width = 550
  Height = 386
  Caption = #31995#32479#29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 64
    Width = 60
    Height = 12
    Caption = #29992#25143#21517'(&U):'
  end
  object Label2: TLabel
    Left = 248
    Top = 72
    Width = 48
    Height = 12
    Caption = #23494#30721'(&P):'
  end
  object Label3: TLabel
    Left = 232
    Top = 112
    Width = 78
    Height = 12
    Caption = #26435#38480#32452#21035'(&G)'#65306
  end
  object Label4: TLabel
    Left = 16
    Top = 112
    Width = 78
    Height = 12
    Caption = #32844#24037#32534#21495'(&E)'#65306
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 16
    Top = 8
    Width = 425
    Height = 33
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'DelSaleSysOperator'
    DataSource = DSSysOperator
  end
  object DBEdtUsername: TDBEdit
    Left = 96
    Top = 64
    Width = 121
    Height = 20
    DataField = 'UserId'
    DataSource = DSSysOperator
    TabOrder = 1
  end
  object DBEdtPassword: TDBEdit
    Left = 312
    Top = 64
    Width = 121
    Height = 20
    DataField = 'Password'
    DataSource = DSSysOperator
    PasswordChar = '*'
    TabOrder = 2
  end
  object DBLCBPerGroup: TDBLookupComboBox
    Left = 312
    Top = 104
    Width = 145
    Height = 20
    DataField = 'PermissionId'
    DataSource = DSSysOperator
    KeyField = 'Id'
    ListField = 'Name'
    ListSource = DSPerMaster
    TabOrder = 3
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 144
    Width = 529
    Height = 209
    DataSource = DSSysOperator
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'UserId'
        Title.Caption = #29992#25143#21517
        Width = 119
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EmployeeId'
        Title.Caption = #32844#24037#32534#21495
        Width = 151
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PermissionId'
        Title.Caption = #26435#38480#32452#21035
        Visible = True
      end>
  end
  object DBSDEEmployeeId: TDBSelectDlgEdit
    Left = 96
    Top = 104
    Width = 121
    Height = 25
    EditWidth = 101
    ButtonWidth = 20
    ListDataField = 'id'
    ListDataSource = DSEmployee
    DataField = 'EmployeeId'
    DataSource = DSSysOperator
    ReadOnly = False
    Text = 'YG00100002'
  end
  object DSEmployee: TDataSource
    DataSet = ADOQEmployee
    Left = 184
    Top = 168
  end
  object DSSysOperator: TDataSource
    DataSet = ADOQSysOperator
    Left = 184
    Top = 232
  end
  object DSPerMaster: TDataSource
    DataSet = ADOQPerMaster
    Left = 184
    Top = 296
  end
  object ADOCon: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=GoodsManagementSystem_Data;Data Source=' +
      '127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 216
  end
  object ADOQEmployee: TADOQuery
    Connection = ADOCon
    Parameters = <
      item
        Name = 'DepartId'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 3
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select id,name from t_employee '
      'where SUBSTRING(id,3,3)=:DepartId')
    Left = 120
    Top = 168
  end
  object ADOQSysOperator: TADOQuery
    Connection = ADOCon
    Parameters = <
      item
        Name = 'DepartId'
        DataType = ftWideString
        Size = -1
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select * from t_SysOperator '
      'where substring(EmployeeId,3,3)=:DepartId')
    Left = 120
    Top = 232
  end
  object ADOQPerMaster: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Name'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select id, name from t_PermissionMaster '
      'where SUBSTRING(name,1,2)=:Name')
    Left = 120
    Top = 296
  end
end