frmemployee.dfm

物流供应链管理系统

object FormEmployee: TFormEmployee
  Left = 188
  Top = 115
  Width = 544
  Height = 497
  Caption = #21592#24037#20449#24687#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 = 144
    Width = 48
    Height = 12
    Caption = #32534#21495'(&I):'
    FocusControl = DBEdtId
  end
  object Label2: TLabel
    Left = 200
    Top = 144
    Width = 48
    Height = 12
    Caption = #22995#21517'(&N):'
    FocusControl = DBEdtName
  end
  object Label3: TLabel
    Left = 392
    Top = 144
    Width = 48
    Height = 12
    Caption = #24615#21035'(&S):'
    FocusControl = DBComboBoxSex
  end
  object Label4: TLabel
    Left = 16
    Top = 184
    Width = 72
    Height = 12
    Caption = #20986#29983#26085#26399'(&B):'
    FocusControl = DBDTPBirthday
  end
  object Label5: TLabel
    Left = 16
    Top = 224
    Width = 42
    Height = 12
    Caption = #20303#22336'(&A)'
    FocusControl = DBEdtAddress
  end
  object Label6: TLabel
    Left = 216
    Top = 184
    Width = 72
    Height = 12
    Caption = #23601#32844#26085#26399'(&J):'
    FocusControl = DBDTPJobDay
  end
  object Label7: TLabel
    Left = 24
    Top = 264
    Width = 72
    Height = 12
    Caption = #32844#20301#20195#30721'(&T):'
    FocusControl = DBLookupComboBox1
  end
  object Label8: TLabel
    Left = 288
    Top = 264
    Width = 72
    Height = 12
    Caption = #25152#23646#37096#38376'(&D):'
  end
  object Label9: TLabel
    Left = 16
    Top = 296
    Width = 72
    Height = 12
    Caption = #23398#21382#20195#30721'(&E):'
    FocusControl = DBLookupComboBox3
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 16
    Top = 0
    Width = 489
    Height = 25
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'DataEmployee'
    DataSource = DSEmployee
    OnClick = LCDBOperatTool1Click
  end
  object DBComboBoxSex: TDBComboBox
    Left = 448
    Top = 136
    Width = 65
    Height = 20
    DataField = 'Sex'
    DataSource = DSEmployee
    ItemHeight = 12
    Items.Strings = (
      #30007
      #22899)
    TabOrder = 1
  end
  object DBDTPBirthday: TDBDateTimePicker
    Left = 96
    Top = 184
    Width = 89
    Height = 20
    Date = 34535.612768275460000000
    Time = 34535.612768275460000000
    TabOrder = 2
    DataField = 'BirthDay'
    DataSource = DSEmployee
    ReadOnly = False
  end
  object DBDTPJobDay: TDBDateTimePicker
    Left = 288
    Top = 184
    Width = 89
    Height = 20
    Date = 38174.612915243060000000
    Time = 38174.612915243060000000
    TabOrder = 3
    DataField = 'AccessionDate'
    DataSource = DSEmployee
    ReadOnly = False
  end
  object DBEdtAddress: TDBEdit
    Left = 72
    Top = 224
    Width = 233
    Height = 20
    DataField = 'Address'
    DataSource = DSEmployee
    TabOrder = 4
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 320
    Width = 513
    Height = 145
    DataSource = DSEmployee
    ReadOnly = True
    TabOrder = 5
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Id'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Sex'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BirthDay'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Address'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'AccessionDate'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JobTypeId'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DepartId'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EduLevelId'
        Visible = True
      end>
  end
  object DBEdtId: TDBEdit
    Left = 80
    Top = 136
    Width = 105
    Height = 20
    DataField = 'Id'
    DataSource = DSEmployee
    Enabled = False
    ReadOnly = True
    TabOrder = 6
  end
  object DBEdtName: TDBEdit
    Left = 256
    Top = 136
    Width = 121
    Height = 20
    DataField = 'Name'
    DataSource = DSEmployee
    TabOrder = 7
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 104
    Top = 264
    Width = 121
    Height = 20
    DataField = 'JobTypeId'
    DataSource = DSEmployee
    KeyField = 'Id'
    ListField = 'Name'
    ListSource = DSJobType
    TabOrder = 8
  end
  object DBLookupComboBox3: TDBLookupComboBox
    Left = 104
    Top = 296
    Width = 121
    Height = 20
    DataField = 'EduLevelId'
    DataSource = DSEmployee
    KeyField = 'Id'
    ListField = 'Name'
    ListSource = DSEduLevel
    TabOrder = 9
  end
  object CBField: TComboBox
    Left = 24
    Top = 56
    Width = 105
    Height = 20
    ItemHeight = 12
    TabOrder = 10
    Items.Strings = (
      #32534#21495'=Id'
      #22995#21517'=Name'
      #20986#29983#26085#26399'=Birthday'
      #23601#32844#26085#26399'=AccessionDate'
      #20303#22336'=Address'
      #32844#20301#20195#30721'=JobTypeId'
      #25152#23646#37096#38376#32534#21495'=DepartId'
      #23398#21382#20195#30721'=EduLevelId')
  end
  object RBcontain: TRadioButton
    Left = 160
    Top = 48
    Width = 57
    Height = 17
    Caption = #21253#21547
    Checked = True
    TabOrder = 11
    TabStop = True
  end
  object RBEqual: TRadioButton
    Left = 160
    Top = 80
    Width = 49
    Height = 17
    Caption = #31561#20110
    TabOrder = 12
  end
  object EdtValue: TEdit
    Left = 240
    Top = 56
    Width = 137
    Height = 20
    TabOrder = 13
  end
  object BtnSearch: TButton
    Left = 392
    Top = 56
    Width = 57
    Height = 25
    Caption = #25628#32034'(&S)'
    TabOrder = 14
    OnClick = BtnSearchClick
  end
  object DBEdtDepartId: TDBEdit
    Left = 368
    Top = 256
    Width = 121
    Height = 20
    DataField = 'DepartId'
    DataSource = DSEmployee
    TabOrder = 15
  end
  object Button1: TButton
    Left = 496
    Top = 256
    Width = 33
    Height = 17
    Caption = '...'
    TabOrder = 16
    OnClick = Button1Click
  end
  object BtnAll: TButton
    Left = 456
    Top = 56
    Width = 65
    Height = 25
    Caption = #26174#31034#25152#26377
    TabOrder = 17
    OnClick = BtnAllClick
  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 = 296
    Top = 240
  end
  object ADOTDepart: TADOTable
    CacheSize = 1000
    Connection = ADOCon
    MarshalOptions = moMarshalModifiedOnly
    TableName = 't_Department'
    Left = 368
    Top = 352
  end
  object ADOTEduLevel: TADOTable
    CacheSize = 1000
    Connection = ADOCon
    MarshalOptions = moMarshalModifiedOnly
    TableName = 't_EduLevel'
    Left = 368
    Top = 304
  end
  object ADOTJobType: TADOTable
    CacheSize = 1000
    Connection = ADOCon
    MarshalOptions = moMarshalModifiedOnly
    TableName = 't_JobType'
    Left = 368
    Top = 184
  end
  object DSEmployee: TDataSource
    DataSet = ADOQEmployee
    Left = 416
    Top = 152
  end
  object DSEduLevel: TDataSource
    DataSet = ADOTEduLevel
    Left = 416
    Top = 352
  end
  object DSDepart: TDataSource
    DataSet = ADOTDepart
    Left = 416
    Top = 304
  end
  object DSJobType: TDataSource
    DataSet = ADOTJobType
    Left = 416
    Top = 184
  end
  object ADOQEmployee: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from t_Employee ')
    Left = 368
    Top = 160
    object ADOQEmployeeId: TWideStringField
      FieldName = 'Id'
      Size = 10
    end
    object ADOQEmployeeName: TWideStringField
      FieldName = 'Name'
      Size = 10
    end
    object ADOQEmployeeSex: TBooleanField
      FieldName = 'Sex'
      OnGetText = ADOQEmployeeSexGetText
      OnSetText = ADOQEmployeeSexSetText
    end
    object ADOQEmployeeBirthDay: TDateTimeField
      FieldName = 'BirthDay'
    end
    object ADOQEmployeeAddress: TWideStringField
      FieldName = 'Address'
      Size = 30
    end
    object ADOQEmployeeAccessionDate: TDateTimeField
      FieldName = 'AccessionDate'
    end
    object ADOQEmployeeJobTypeId: TSmallintField
      FieldName = 'JobTypeId'
    end
    object ADOQEmployeeDepartId: TWideStringField
      FieldName = 'DepartId'
      Size = 5
    end
    object ADOQEmployeeEduLevelId: TSmallintField
      FieldName = 'EduLevelId'
    end
  end
  object ADOQ: TADOQuery
    Connection = ADOCon
    Parameters = <>
    Left = 360
    Top = 112
  end
end