u_employ.dfm

超信人力资源管理系统,一个用Delphi编写的人事管理系统

        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        OnExit = DBGridEh3Exit
        Columns = <
          item
            EditButtons = <>
            FieldName = 'Reg_date'
            Footers = <>
            Width = 99
          end
          item
            EditButtons = <>
            FieldName = 'Mov_date'
            Footers = <>
            Width = 111
          end
          item
            EditButtons = <>
            FieldName = 'Old_dep'
            Footers = <>
            Width = 74
          end
          item
            EditButtons = <>
            FieldName = 'New_Dep'
            Footers = <>
            Width = 61
          end
          item
            EditButtons = <>
            FieldName = 'Old_pos'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'New_pos'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Old_Gz'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'New_Gz'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Mov_Reason'
            Footers = <>
            Width = 128
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = #20986#24046#35760#24405
      ImageIndex = 3
      object DBGridEh2: TDBGridEh
        Left = 0
        Top = 0
        Width = 664
        Height = 493
        Align = alClient
        AllowedOperations = [alopInsertEh, alopUpdateEh, alopAppendEh]
        DataSource = DS_cc
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        OnExit = DBGridEh2Exit
        Columns = <
          item
            EditButtons = <>
            FieldName = 'OrderNO'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Billdate'
            Footers = <>
            Width = 78
          end
          item
            EditButtons = <>
            FieldName = 'Reason'
            Footers = <>
            Width = 124
          end
          item
            EditButtons = <>
            FieldName = 'TO_address'
            Footers = <>
            Width = 127
          end
          item
            EditButtons = <>
            FieldName = 'Begin_time'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'End_time'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Real_end_time'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Memo'
            Footers = <>
          end>
      end
    end
    object TabSheet11: TTabSheet
      Caption = #35831#20551#35760#24405
      ImageIndex = 2
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 664
        Height = 493
        Align = alClient
        DataSource = DS_QJ
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        ParentFont = False
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        UseMultiTitle = True
        OnExit = DBGridEh1Exit
        Columns = <
          item
            EditButtons = <>
            FieldName = 'OrderNO'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Billdate'
            Footers = <>
            Width = 93
          end
          item
            EditButtons = <>
            FieldName = 'Kind'
            Footers = <>
            Width = 123
          end
          item
            EditButtons = <>
            FieldName = 'Reason'
            Footers = <>
            Width = 173
          end
          item
            EditButtons = <>
            FieldName = 'Begin_time'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'END_time'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Real_endTime'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'TimeCount'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Memo'
            Footers = <>
          end>
      end
    end
    object TabSheet12: TTabSheet
      Caption = #24037#36164#21464#21160
      ImageIndex = 10
      object Grid_SALARY: TDBGridEh
        Left = 0
        Top = 0
        Width = 664
        Height = 493
        Align = alClient
        AllowedOperations = [alopInsertEh, alopUpdateEh, alopAppendEh]
        DataSource = DS_SALARY
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnExit = Grid_SALARYExit
        Columns = <
          item
            EditButtons = <>
            FieldName = 'Orderno'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Billdate'
            Footers = <>
            Width = 81
          end
          item
            EditButtons = <>
            FieldName = 'Old_salary'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'New_Salary'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Reason'
            Footers = <>
            Width = 117
          end
          item
            EditButtons = <>
            FieldName = 'CheckDate'
            Footers = <>
            Width = 84
          end
          item
            EditButtons = <>
            FieldName = 'Memo'
            Footers = <>
          end>
      end
    end
  end
  inherited Q_main: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'Select * from TB_employ')
    Left = 136
    Top = 40
    object Q_mainEmp_id: TStringField
      DisplayLabel = #24037#21495
      FieldName = 'Emp_id'
      Size = 10
    end
    object Q_mainEmp_name: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'Emp_name'
    end
    object Q_mainEmp_Card: TStringField
      DisplayLabel = #36523#20221#35777
      FieldName = 'Emp_Card'
      OnValidate = Q_mainEmp_CardValidate
    end
    object Q_mainEmp_sex: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Emp_sex'
      Size = 2
    end
    object Q_mainEmp_born: TDateTimeField
      DisplayLabel = #20986#29983#24180#26376
      FieldName = 'Emp_born'
    end
    object Q_mainEmp_marry: TStringField
      DisplayLabel = #23130#23035#29366#20917
      FieldName = 'Emp_marry'
      Size = 10
    end
    object Q_mainEmp_country: TStringField
      DisplayLabel = #22269#31821
      FieldName = 'Emp_country'
    end
    object Q_mainEmp_minzu: TStringField
      DisplayLabel = #27665#26063
      FieldName = 'Emp_minzu'
    end
    object Q_mainEmp_sheng: TStringField
      DisplayLabel = #30465#31821
      FieldName = 'Emp_sheng'
    end
    object Q_mainEmp_shixian: TStringField
      DisplayLabel = #24066'/'#21439
      FieldName = 'Emp_shixian'
    end
    object Q_mainEmp_address: TStringField
      DisplayLabel = #23478#24237#20303#22336
      FieldName = 'Emp_address'
    end
    object Q_mainEmp_phone: TStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'Emp_phone'
    end
    object Q_mainEmp_mobile: TStringField
      DisplayLabel = #25163#26426
      FieldName = 'Emp_mobile'
    end
    object Q_mainEmp_email: TStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'Emp_email'
    end
    object Q_mainEmp_Jieshaoren: TStringField
      DisplayLabel = #20171#32461#20154
      FieldName = 'Emp_Jieshaoren'
    end
    object Q_mainEmp_zhengzhi: TStringField
      DisplayLabel = #25919#27835#38754#35980
      FieldName = 'Emp_zhengzhi'
    end
    object Q_mainEmp_xl: TStringField
      DisplayLabel = #23398#21382
      FieldName = 'Emp_xl'
    end
    object Q_mainEmp_zc: TStringField
      DisplayLabel = #32844#31216
      FieldName = 'Emp_zc'
    end
    object Q_mainEmp_health: TStringField
      DisplayLabel = #36523#20307#29366#20917
      FieldName = 'Emp_health'
    end
    object Q_mainEmp_zanchang: TStringField
      DisplayLabel = #19987#38271
      FieldName = 'Emp_zanchang'
    end
    object Q_mainEmp_height: TIntegerField
      DisplayLabel = #36523#39640
      FieldName = 'Emp_height'
    end
    object Q_mainEmp_Weight: TIntegerField
      DisplayLabel = #20307#37325
      FieldName = 'Emp_Weight'
    end
    object Q_mainEmp_bmcode: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'Emp_bmcode'
    end
    object Q_mainEmp_bmname: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'Emp_bmname'
    end
    object Q_mainEmp_Gz: TStringField
      DisplayLabel = #24037#31181
      FieldName = 'Emp_Gz'
    end
    object Q_mainEmp_ZW: TStringField
      DisplayLabel = #32844#20301
      FieldName = 'Emp_ZW'
    end
    object Q_mainEmp_type: TStringField
      DisplayLabel = #21592#24037#31867#21035
      FieldName = 'Emp_type'
    end
    object Q_mainEmp_grade: TStringField
      DisplayLabel = #32423#21035
      FieldName = 'Emp_grade'
    end
    object Q_mainEmp_salarytype: TStringField
      DisplayLabel = #35745#34218#26041#24335
      FieldName = 'Emp_salarytype'
    end
    object Q_mainEmp_ISKQ: TBooleanField
      DisplayLabel = #26159#21542#32771#21220
      FieldName = 'Emp_ISKQ'
    end
    object Q_mainEmp_ISRoom: TBooleanField
      DisplayLabel = #26159#21542#20303#23487
      FieldName = 'Emp_ISRoom'
    end
    object Q_mainEmp_ICcard: TStringField
      DisplayLabel = 'IC'#21345#21495
      FieldName = 'Emp_ICcard'
    end
    object Q_mainEmp_bankID: TStringField
      DisplayLabel = #38134#34892#36134#21495
      FieldName = 'Emp_bankID'
    end
    object Q_mainEmp_comedate: TDateTimeField
      DisplayLabel = #20837#21378#26085#26399
      FieldName = 'Emp_comedate'
    end
    object Q_mainEmp_testday: TIntegerField
      DisplayLabel = #35797#29992#26399
      FieldName = 'Emp_testday'
      OnValidate = Q_mainEmp_testdayValidate
    end
    object Q_mainEmp_Reallydate: TDateTimeField
      DisplayLabel = #24405#29992#26085#26399
      FieldName = 'Emp_Reallydate'
    end
    object Q_mainEmp_IsHT: TBooleanField
      DisplayLabel = #26159#21542#31614#35746#21512#21516
      FieldName = 'Emp_IsHT'
    end
    object Q_mainEmp_image: TBlobField
      DisplayLabel = #30456#29255
      FieldName = 'Emp_image'
    end
    object Q_mainSid: TGuidField
      DisplayLabel = #33258#21160#21464#37327
      FieldName = 'Sid'
      FixedChar = True
      Size = 38
    end
  end
  inherited Q_detail: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'Selec