u_employ_room.dfm

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

inherited F_Employ_Room: TF_Employ_Room
  Left = 71
  Top = 136
  Height = 433
  Caption = #21592#24037#23487#33293#23433#25490
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter [0]
    Left = 489
    Top = 41
    Height = 365
    Color = clBtnFace
    ParentColor = False
  end
  object Panel1: TPanel [1]
    Left = 0
    Top = 0
    Width = 635
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 88
      Top = 8
      Width = 192
      Height = 25
      AutoSize = False
      Caption = #22312#32844#21592#24037#23487#33293#23433#25490
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -24
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object BitBtn1: TBitBtn
      Left = 360
      Top = 8
      Width = 75
      Height = 25
      Caption = #23433#25490
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 448
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object GroupBox1: TGroupBox [2]
    Left = 0
    Top = 41
    Width = 489
    Height = 365
    Align = alLeft
    Caption = #24453#23433#25490#23487#33293#30340#20154#21592
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 18
      Width = 485
      Height = 345
      Align = alClient
      DataSource = DS_main
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clPurple
      FooterFont.Height = -13
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      FooterRowCount = 1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'Emp_bmname'
          Footers = <>
          Width = 91
        end
        item
          EditButtons = <>
          FieldName = 'Emp_id'
          Footers = <>
          Width = 77
        end
        item
          EditButtons = <>
          FieldName = 'Emp_name'
          Footers = <>
          Width = 53
        end
        item
          EditButtons = <>
          FieldName = 'Emp_sex'
          Footers = <>
          Width = 37
        end
        item
          EditButtons = <>
          FieldName = 'Emp_Gz'
          Footers = <>
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = 'Emp_ZW'
          Footers = <>
          Width = 62
        end
        item
          EditButtons = <>
          FieldName = 'Emp_ISRoom'
          Footers = <>
          Width = 57
        end>
    end
  end
  object GroupBox2: TGroupBox [3]
    Left = 492
    Top = 41
    Width = 143
    Height = 365
    Align = alClient
    Caption = #27809#26377#34987#23433#25490#30340#24202#20301
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    object DBGridEh2: TDBGridEh
      Left = 2
      Top = 18
      Width = 139
      Height = 345
      Align = alClient
      DataSource = DS_detail
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      FooterRowCount = 1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGridEh2DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'Bedid'
          Footers = <>
        end>
    end
  end
  inherited Q_main: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'Select * from TB_employ where emp_id not in (Select isnull(Emp_i' +
        'd,'#39#39') from TB_Room_bed) and Emp_isroom=1 order by Emp_bmname,Emp' +
        '_id')
    Left = 40
    Top = 192
    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_sex: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Emp_sex'
      Size = 2
    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_ISRoom: TBooleanField
      DisplayLabel = #26159#21542#20303#23487
      FieldName = 'Emp_ISRoom'
    end
  end
  inherited Q_detail: TADOQuery
    CursorType = ctStatic
    DataSource = nil
    SQL.Strings = (
      'Select * From TB_Room_Bed where isnull(Used,0)=0 order by Bedid')
    Left = 584
    Top = 88
    object Q_detailBedid: TStringField
      DisplayLabel = #24202#20301#21495
      FieldName = 'Bedid'
      Size = 10
    end
    object Q_detailRooMid: TStringField
      FieldName = 'RooMid'
      Size = 10
    end
    object Q_detailEmp_id: TStringField
      FieldName = 'Emp_id'
      Size = 10
    end
    object Q_detailEmp_name: TStringField
      FieldName = 'Emp_name'
      Size = 10
    end
    object Q_detailUsed: TBooleanField
      FieldName = 'Used'
    end
    object Q_detailBoxid: TStringField
      FieldName = 'Boxid'
      Size = 10
    end
  end
  inherited DS_main: TDataSource
    Left = 96
    Top = 216
  end
  inherited DS_detail: TDataSource
    Left = 584
    Top = 160
  end
end