u_userface_set.dfm

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

inherited F_UserFace_set: TF_UserFace_set
  Left = 6
  Top = 28
  Width = 812
  Height = 559
  Caption = #29992#25143#27169#22359#35774#23450
  Color = clBtnFace
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel [0]
    Left = 0
    Top = 0
    Width = 804
    Height = 50
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 16
      Width = 117
      Height = 16
      AutoSize = False
      Caption = #24403#21069#29992#25143#36134#21495
    end
    object Label2: TLabel
      Left = 482
      Top = 16
      Width = 90
      Height = 16
      AutoSize = False
      Caption = #30446#26631#36134#21495
    end
    object Edit1: TEdit
      Left = 134
      Top = 11
      Width = 149
      Height = 24
      TabOrder = 0
      OnChange = Edit1Change
    end
    object BTN_COPY: TBitBtn
      Left = 335
      Top = 9
      Width = 129
      Height = 30
      Caption = #27169#22359#22797#21046
      TabOrder = 1
      OnClick = BTN_COPYClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      NumGlyphs = 2
    end
    object Edit2: TEdit
      Left = 580
      Top = 11
      Width = 149
      Height = 24
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox [1]
    Left = 0
    Top = 278
    Width = 804
    Height = 254
    Align = alClient
    Caption = #21151#33021#23376#27169#22359
    TabOrder = 1
    object DBGridEh2: TDBGridEh
      Left = 2
      Top = 18
      Width = 800
      Height = 234
      Align = alClient
      Color = clWhite
      DataSource = DS_detail
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGridEh2DrawColumnCell
      OnExit = DBGridEh2Exit
      Columns = <
        item
          EditButtons = <>
          FieldName = 'OrderNO'
          Footers = <>
          Width = 91
        end
        item
          ButtonStyle = cbsEllipsis
          EditButtons = <>
          FieldName = 'Formname'
          Footers = <>
          Width = 128
          OnEditButtonClick = DBGridEh2Columns1EditButtonClick
        end
        item
          EditButtons = <>
          FieldName = 'Fcaption'
          Footers = <>
          Width = 104
        end
        item
          EditButtons = <>
          FieldName = 'HasChild'
          Footers = <>
          Width = 91
        end
        item
          EditButtons = <>
          FieldName = 'MCaption'
          Footers = <>
          Width = 128
        end
        item
          EditButtons = <>
          FieldName = '_Insert'
          Footers = <>
          Width = 48
        end
        item
          EditButtons = <>
          FieldName = '_Edit'
          Footers = <>
          Width = 48
        end
        item
          EditButtons = <>
          FieldName = '_Delete'
          Footers = <>
          Width = 48
        end
        item
          EditButtons = <>
          FieldName = '_Find'
          Footers = <>
          Width = 48
        end
        item
          EditButtons = <>
          FieldName = '_Print'
          Footers = <>
          Width = 48
        end
        item
          EditButtons = <>
          FieldName = '_View'
          Footers = <>
          Width = 48
        end
        item
          EditButtons = <>
          FieldName = '_EditPrint'
          Footers = <>
          Width = 65
        end
        item
          EditButtons = <>
          FieldName = '_Aduit'
          Footers = <>
          Width = 47
        end
        item
          EditButtons = <>
          FieldName = '_Other'
          Footers = <>
          Width = 48
        end>
    end
  end
  object GroupBox1: TGroupBox [2]
    Left = 0
    Top = 50
    Width = 804
    Height = 228
    Align = alTop
    Caption = #20027#27169#22359
    TabOrder = 2
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 18
      Width = 800
      Height = 208
      Align = alClient
      DataSource = DS_main
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGridEh1DrawColumnCell
      OnExit = DBGridEh1Exit
      Columns = <
        item
          EditButtons = <>
          FieldName = 'OrderNO'
          Footers = <>
          Width = 91
        end
        item
          EditButtons = <>
          FieldName = 'Mainmenu'
          Footers = <>
          Width = 131
        end
        item
          EditButtons = <>
          FieldName = 'MCaption'
          Footers = <>
          Width = 227
        end>
    end
  end
  inherited Q_main: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'Select * from TB_Acount_menu')
    Left = 368
    Top = 192
    object Q_mainSID: TGuidField
      FieldName = 'SID'
      FixedChar = True
      Size = 38
    end
    object Q_mainCNID: TGuidField
      FieldName = 'CNID'
      FixedChar = True
      Size = 38
    end
    object Q_mainOrderNO: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'OrderNO'
    end
    object Q_mainMainmenu: TStringField
      DisplayLabel = #27169#22359#21517
      FieldName = 'Mainmenu'
      Size = 50
    end
    object Q_mainMCaption: TStringField
      DisplayLabel = #25551#36848
      FieldName = 'MCaption'
      Size = 50
    end
  end
  inherited Q_detail: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'sid'
        DataType = ftGuid
        NumericScale = 255
        Precision = 255
        Size = 38
        Value = Null
      end>
    SQL.Strings = (
      'Select * from TB_Acount_Detail where cnid=:sid order by Orderno')
    Left = 512
    Top = 336
    object Q_detailSID: TGuidField
      FieldName = 'SID'
      FixedChar = True
      Size = 38
    end
    object Q_detailCNID: TGuidField
      FieldName = 'CNID'
      FixedChar = True
      Size = 38
    end
    object Q_detailOrderNO: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'OrderNO'
    end
    object Q_detailFormname: TStringField
      DisplayLabel = #31383#20307#21517#31216
      FieldName = 'Formname'
      Size = 50
    end
    object Q_detailFcaption: TStringField
      DisplayLabel = #31383#20307#26631#39064
      FieldKind = fkLookup
      FieldName = 'Fcaption'
      LookupDataSet = Q_TEMP
      LookupKeyFields = 'Formname'
      LookupResultField = 'Caption'
      KeyFields = 'Formname'
      Size = 50
      Lookup = True
    end
    object Q_detailHasChild: TBooleanField
      DisplayLabel = #26159#21542#26377#23376#27169#22359
      FieldName = 'HasChild'
    end
    object Q_detailMCaption: TStringField
      DisplayLabel = #23376#27169#22359#26631#39064
      FieldName = 'MCaption'
      Size = 50
    end
    object Q_detail_Insert: TBooleanField
      DisplayLabel = #26032#22686
      FieldName = '_Insert'
    end
    object Q_detail_Edit: TBooleanField
      DisplayLabel = #20462#25913
      FieldName = '_Edit'
    end
    object Q_detail_Delete: TBooleanField
      DisplayLabel = #21024#38500
      FieldName = '_Delete'
    end
    object Q_detail_Find: TBooleanField
      DisplayLabel = #26597#25214
      FieldName = '_Find'
    end
    object Q_detail_Print: TBooleanField
      DisplayLabel = #25171#21360
      FieldName = '_Print'
    end
    object Q_detail_View: TBooleanField
      DisplayLabel = #27983#35272
      FieldName = '_View'
    end
    object Q_detail_EditPrint: TBooleanField
      DisplayLabel = #32534#36753#25253#34920
      FieldName = '_EditPrint'
    end
    object Q_detail_Aduit: TBooleanField
      DisplayLabel = #23457#26680
      FieldName = '_Aduit'
    end
    object Q_detail_Other: TBooleanField
      DisplayLabel = #20854#20182
      FieldName = '_Other'
    end
  end
  inherited DS_main: TDataSource
    Left = 456
    Top = 160
  end
  inherited DS_detail: TDataSource
    Left = 560
    Top = 336
  end
  object Q_TEMP: TADOQuery
    Active = True
    Connection = DM.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select Formname,Caption From TB_FORM')
    Left = 368
    Top = 408
  end
end