frmsysoperator.dfm

物流供应链管理系统

object FormSysOperator: TFormSysOperator
  Left = 212
  Top = 118
  Width = 544
  Height = 425
  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
  OnDeactivate = FormDeactivate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 128
    Width = 60
    Height = 12
    Caption = #29992#25143'ID(&U):'
  end
  object Label2: TLabel
    Left = 248
    Top = 136
    Width = 48
    Height = 12
    Caption = #23494#30721'(&P):'
  end
  object Label3: TLabel
    Left = 16
    Top = 176
    Width = 78
    Height = 12
    Caption = #21592#24037#32534#21495'(&E)'#65306
  end
  object Label4: TLabel
    Left = 248
    Top = 184
    Width = 72
    Height = 12
    Caption = #26435#38480#32452#21035'(&G):'
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 32
    Top = 8
    Width = 489
    Height = 33
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'DataSysOperator'
    DataSource = DSSysOperator
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 216
    Width = 513
    Height = 169
    DataSource = DSSysOperator
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DBEdtUserId: TDBEdit
    Left = 96
    Top = 128
    Width = 121
    Height = 20
    DataField = 'UserId'
    DataSource = DSSysOperator
    TabOrder = 2
  end
  object DBEdtPassword: TDBEdit
    Left = 304
    Top = 128
    Width = 121
    Height = 20
    DataField = 'Password'
    DataSource = DSSysOperator
    TabOrder = 3
  end
  object DBSDEEmployeeId: TDBSelectDlgEdit
    Left = 96
    Top = 176
    Width = 144
    Height = 32
    EditWidth = 114
    ButtonWidth = 30
    ListDataField = 'id'
    ListDataSource = DSEmployee
    DataField = 'EmployeeId'
    DataSource = DSSysOperator
    ReadOnly = False
    Text = 'YG00100002'
  end
  object CBField: TComboBox
    Left = 32
    Top = 64
    Width = 105
    Height = 20
    ItemHeight = 12
    TabOrder = 5
    Items.Strings = (
      #29992#25143'Id=UserId'
      #21592#24037#32534#21495'=EmployeeId'
      #26435#38480#32452#21035'=PermissionId')
  end
  object RBEqual: TRadioButton
    Left = 168
    Top = 56
    Width = 73
    Height = 17
    Caption = #31561#20110
    TabOrder = 6
  end
  object RBContain: TRadioButton
    Left = 168
    Top = 88
    Width = 73
    Height = 17
    Caption = #21253#21547
    Checked = True
    TabOrder = 7
    TabStop = True
  end
  object EdtSearchValue: TEdit
    Left = 280
    Top = 64
    Width = 113
    Height = 20
    TabOrder = 8
  end
  object BtnSearch: TButton
    Left = 408
    Top = 64
    Width = 49
    Height = 25
    Caption = #26597#25214'(&S)'
    TabOrder = 9
    OnClick = BtnSearchClick
  end
  object Button1: TButton
    Left = 464
    Top = 64
    Width = 57
    Height = 25
    Caption = #26174#31034#25152#26377
    TabOrder = 10
    OnClick = Button1Click
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 320
    Top = 176
    Width = 161
    Height = 20
    DataField = 'PermissionId'
    DataSource = DSSysOperator
    KeyField = 'Id'
    ListField = 'Name'
    ListSource = DSPermission
    TabOrder = 11
  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 = 264
    Top = 216
  end
  object ADOTEmployee: TADOTable
    CacheSize = 1000
    Connection = ADOCon
    CursorType = ctStatic
    MarshalOptions = moMarshalModifiedOnly
    TableName = 't_Employee'
    Left = 328
    Top = 216
    object ADOTEmployeeId: TWideStringField
      FieldName = 'Id'
      Size = 10
    end
    object ADOTEmployeeName: TWideStringField
      FieldName = 'Name'
      Size = 10
    end
  end
  object ADOTPermission: TADOTable
    CacheSize = 1000
    Connection = ADOCon
    CursorType = ctStatic
    MarshalOptions = moMarshalModifiedOnly
    TableName = 't_PermissionMaster'
    Left = 328
    Top = 248
  end
  object DSSysOperator: TDataSource
    DataSet = ADOQSysOperator
    Left = 384
    Top = 184
  end
  object DSEmployee: TDataSource
    DataSet = ADOTEmployee
    Left = 384
    Top = 224
  end
  object DSPermission: TDataSource
    DataSet = ADOTPermission
    Left = 376
    Top = 248
  end
  object ADOQSysOperator: TADOQuery
    Active = True
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from t_SysOperator')
    Left = 328
    Top = 184
  end
end