untframeemp.~dfm

是分布式粮库程序,是采用Delphi实现的

    DataSource = DsEmp
    TabOrder = 22
  end
  object dedtRankDate: TDBEdit
    Left = 62
    Top = 226
    Width = 120
    Height = 20
    DataField = 'RankDate'
    DataSource = DsEmp
    TabOrder = 16
  end
  object dedtEmpSDate: TDBEdit
    Left = 277
    Top = 301
    Width = 120
    Height = 20
    DataField = 'EmpSDate'
    DataSource = DsEmp
    TabOrder = 23
  end
  object dedtCPA: TDBEdit
    Left = 277
    Top = 349
    Width = 120
    Height = 20
    DataField = 'CPA'
    DataSource = DsEmp
    TabOrder = 27
  end
  object dedtEmpEDate: TDBEdit
    Left = 277
    Top = 325
    Width = 120
    Height = 20
    DataField = 'EmpEDate'
    DataSource = DsEmp
    TabOrder = 25
  end
  object dedtWorkDate: TDBEdit
    Left = 277
    Top = 276
    Width = 120
    Height = 20
    DataField = 'WorkDate'
    DataSource = DsEmp
    TabOrder = 21
  end
  object dedtRSDate: TDBEdit
    Left = 277
    Top = 226
    Width = 120
    Height = 20
    DataField = 'RSDate'
    DataSource = DsEmp
    TabOrder = 17
  end
  object dedtProunit: TDBEdit
    Left = 277
    Top = 178
    Width = 120
    Height = 20
    DataField = 'Prounit'
    DataSource = DsEmp
    TabOrder = 13
  end
  object dedtLeaveDate: TDBEdit
    Left = 277
    Top = 251
    Width = 120
    Height = 20
    DataField = 'LeaveDate'
    DataSource = DsEmp
    TabOrder = 19
  end
  object dedtLeaveCause: TDBEdit
    Left = 62
    Top = 325
    Width = 120
    Height = 20
    DataField = 'LeaveCause'
    DataSource = DsEmp
    TabOrder = 24
  end
  object dedtMarriay: TDBEdit
    Left = 277
    Top = 202
    Width = 120
    Height = 20
    DataField = 'Marriay'
    DataSource = DsEmp
    TabOrder = 15
  end
  object dedtWriteDate: TDBEdit
    Left = 62
    Top = 349
    Width = 120
    Height = 20
    DataField = 'WriteDate'
    DataSource = DsEmp
    TabOrder = 26
  end
  object dedtCY: TDBEdit
    Left = 277
    Top = 154
    Width = 120
    Height = 20
    DataField = 'CY'
    DataSource = DsEmp
    TabOrder = 11
  end
  object dedtAward: TDBEdit
    Left = 62
    Top = 374
    Width = 120
    Height = 20
    DataField = 'Award'
    DataSource = DsEmp
    TabOrder = 28
  end
  object dedtDocPos: TDBEdit
    Left = 277
    Top = 374
    Width = 120
    Height = 20
    DataField = 'DocPos'
    DataSource = DsEmp
    TabOrder = 29
  end
  object DBImage1: TDBImage
    Left = 62
    Top = 398
    Width = 120
    Height = 120
    DataField = 'Photo'
    DataSource = DsEmp
    Stretch = True
    TabOrder = 30
    OnDblClick = DBImage1DblClick
  end
  object dmemMemo: TDBMemo
    Left = 277
    Top = 398
    Width = 120
    Height = 120
    DataField = 'Memo'
    DataSource = DsEmp
    TabOrder = 31
  end
  object dcbxSex: TDBComboBox
    Left = 277
    Top = 36
    Width = 120
    Height = 20
    DataField = 'Sex'
    DataSource = DsEmp
    ItemHeight = 12
    Items.Strings = (
      #30007
      #22899)
    TabOrder = 2
  end
  object dcbxNation: TDBComboBox
    Left = 62
    Top = 83
    Width = 120
    Height = 20
    DataField = 'Nation'
    DataSource = DsEmp
    ItemHeight = 12
    TabOrder = 5
  end
  object dcbxStiuation: TDBComboBox
    Left = 62
    Top = 107
    Width = 120
    Height = 20
    DataField = 'Stiuation'
    DataSource = DsEmp
    ItemHeight = 12
    Items.Strings = (
      #21333#20301#39046#23548
      #37096#38376#20027#31649
      #39033#30446#32463#29702
      #20854#23427)
    TabOrder = 32
  end
  object tblEmp: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.OA'
    Left = 180
    Top = 240
    object tblEmpUSER_ID: TIntegerField
      FieldName = 'USER_ID'
      Required = True
    end
    object tblEmpUserName: TStringField
      FieldName = 'UserName'
      FixedChar = True
      Size = 6
    end
    object tblEmpDptID: TIntegerField
      FieldName = 'DptID'
    end
    object tblEmpName: TStringField
      FieldName = 'Name'
      FixedChar = True
      Size = 8
    end
    object tblEmpSex: TStringField
      FieldName = 'Sex'
      FixedChar = True
      Size = 2
    end
    object tblEmpBirthday: TDateTimeField
      FieldName = 'Birthday'
      OnGetText = tblEmpBirthdayGetText
      OnSetText = tblEmpBirthdaySetText
      EditMask = '9999\'#24180'99\'#26376'99\'#26085';1;_'
    end
    object tblEmpEdu: TStringField
      FieldName = 'Edu'
      FixedChar = True
      Size = 8
    end
    object tblEmpNation: TStringField
      FieldName = 'Nation'
      FixedChar = True
      Size = 10
    end
    object tblEmpRally: TStringField
      FieldName = 'Rally'
      FixedChar = True
      Size = 12
    end
    object tblEmpStiuation: TStringField
      FieldName = 'Stiuation'
      FixedChar = True
      Size = 10
    end
    object tblEmpPolitics: TStringField
      FieldName = 'Politics'
      FixedChar = True
      Size = 10
    end
    object tblEmpHomeAddress: TStringField
      FieldName = 'HomeAddress'
      FixedChar = True
      Size = 40
    end
    object tblEmpMobiPhone: TStringField
      FieldName = 'MobiPhone'
      FixedChar = True
      Size = 12
    end
    object tblEmpHomePhone: TStringField
      FieldName = 'HomePhone'
      FixedChar = True
      Size = 12
    end
    object tblEmpBPNum: TStringField
      FieldName = 'BPNum'
      FixedChar = True
      Size = 16
    end
    object tblEmpEmp: TStringField
      FieldName = 'Emp'
      FixedChar = True
      Size = 12
    end
    object tblEmpPID: TStringField
      FieldName = 'PID'
      FixedChar = True
      Size = 18
    end
    object tblEmpRank: TStringField
      FieldName = 'Rank'
      FixedChar = True
      Size = 12
    end
    object tblEmpRankDate: TDateTimeField
      FieldName = 'RankDate'
      OnGetText = tblEmpRankDateGetText
      OnSetText = tblEmpRankDateSetText
      EditMask = '9999\'#24180'99\'#26376'99\'#26085';1;_'
    end
    object tblEmpEmpSDate: TDateTimeField
      FieldName = 'EmpSDate'
      OnGetText = tblEmpEmpSDateGetText
      OnSetText = tblEmpEmpSDateSetText
      EditMask = '9999\'#24180'99\'#26376'99\'#26085';1;_'
    end
    object tblEmpEmpEDate: TDateTimeField
      FieldName = 'EmpEDate'
      OnGetText = tblEmpEmpEDateGetText
      OnSetText = tblEmpEmpEDateSetText
      EditMask = '9999\'#24180'99\'#26376'99\'#26085';1;_'
    end
    object tblEmpCPA: TStringField
      FieldName = 'CPA'
      FixedChar = True
      Size = 4
    end
    object tblEmpWorkDate: TDateTimeField
      FieldName = 'WorkDate'
      OnGetText = tblEmpWorkDateGetText
      OnSetText = tblEmpWorkDateSetText
      EditMask = '9999\'#24180'99\'#26376'99\'#26085';1;_'
    end
    object tblEmpRSDate: TDateTimeField
      FieldName = 'RSDate'
      OnGetText = tblEmpRSDateGetText
      OnSetText = tblEmpRSDateSetText
      EditMask = '9999\'#24180'99\'#26376'99\'#26085';1;_'
    end
    object tblEmpProunit: TStringField
      FieldName = 'Prounit'
      FixedChar = True
      Size = 30
    end
    object tblEmpLeaveDate: TDateTimeField
      FieldName = 'LeaveDate'
      OnGetText = tblEmpLeaveDateGetText
      OnSetText = tblEmpLeaveDateSetText
      EditMask = '9999\'#24180'99\'#26376'99\'#26085';1;_'
    end
    object tblEmpLeaveCause: TStringField
      FieldName = 'LeaveCause'
      FixedChar = True
      Size = 40
    end
    object tblEmpMarriay: TStringField
      FieldName = 'Marriay'
      FixedChar = True
      Size = 4
    end
    object tblEmpWriteDate: TDateTimeField
      FieldName = 'WriteDate'
      OnGetText = tblEmpWriteDateGetText
      OnSetText = tblEmpWriteDateSetText
      EditMask = '9999\'#24180'99\'#26376'99\'#26085';1;_'
    end
    object tblEmpCY: TStringField
      FieldName = 'CY'
      FixedChar = True
      Size = 10
    end
    object tblEmpAward: TStringField
      FieldName = 'Award'
      Size = 100
    end
    object tblEmpDocPos: TStringField
      FieldName = 'DocPos'
      Size = 40
    end
    object tblEmpMemo: TStringField
      FieldName = 'Memo'
      Size = 50
    end
    object tblEmpPhoto: TBlobField
      FieldName = 'Photo'
      Size = 1
    end
    object tblEmptag: TIntegerField
      FieldName = 'tag'
    end
  end
  object DsEmp: TDataSource
    DataSet = tblEmp
    Left = 300
    Top = 464
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 
      'Image Files (*.bmp, *.ico, *.wmf, *.emf)|*.bmp;*.ico;*.wmf;*.emf' +
      '|Bitmap Files (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Metafiles (*.wmf' +
      ', *.emf)|*.wmf;*.emf|All files (*.*)|*.*'
    Left = 32
    Top = 408
  end
end