employeesfm.~dfm

来自「群星医药系统源码」· ~DFM 代码 · 共 1,133 行 · 第 1/4 页

        Height = 18
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6000000000000CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D600000000000084
          0084848284000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6000000000000840084848284FFFFFFFFFFFFC6C3C6000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6000000000000840084848284FFFFFFFFFFFFFF
          FFFFFFFFFFC6C3C6C6C3C6000000CED3D6CED3D6CED3D6CED3D6000000840084
          848284FFFFFFFFFFFFFFFFFFC6C3C6848284000000C6C3C6C6C3C6C6C3C60000
          00CED3D6CED3D6CED3D6000000FFFFFFFFFFFFFFFFFFC6C3C684828400000084
          0084840084000000C6C3C6C6C3C6C6C3C6000000CED3D6CED3D6000000FFFFFF
          C6C3C6848284000000840084840084840084840084840084000000C6C3C6C6C3
          C6C6C3C6000000CED3D600000084828400000084008484008484008400FFFF84
          0084840084840084840084840084C6C3C6C6C3C6848284000000840084840084
          8400848400848400848400848400840082848400848400848400848400840000
          00C6C3C6848284CED3D6CED3D684008484008484008484008484008484008400
          FFFF00FFFF00FFFF840084840084840084000000848284CED3D6CED3D6CED3D6
          84008484008484008484008484008400828484008400828400FFFF8400848400
          84840084000000CED3D6CED3D6CED3D6CED3D684008484008484008484008400
          FFFF00828400828400FFFF840084840084840084840084000000CED3D6CED3D6
          CED3D6CED3D684008484008484008484008400FFFF00FFFF8400848400848400
          84840084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684008484008484
          0084840084840084840084840084000000CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6840084840084840084840084000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684
          0084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6}
      end
    end
    object FlatPanel3: TPanel
      Left = 1
      Top = 1
      Width = 26
      Height = 22
      Align = alLeft
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object BtnPopMenu: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333330333333333333330603333333333330666033
          3333333306666603333333306666666033333300006660000333333330666033
          3333333330666033333333333066603333333333300000333333333333333333
          3333333333333333333333333333333333333333333333333333}
        ParentFont = False
        OnClick = BtnPopMenuClick
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 336
    Top = 172
    object ActRefresh: TModlAction
      Caption = #21047#26032'(&R)'
      ImageIndex = 0
      OnExecute = ActRefreshExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActMore: TModlAction
      Caption = #26356#22810'(&M)'
      ImageIndex = 1
      Flag2 = 0
      Remark = 'E'
    end
    object ActNew: TModlAction
      Caption = #26032#22686'(&N)'
      ImageIndex = 2
      OnExecute = ActNewExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActModify: TModlAction
      Caption = #20462#25913'(&E)'
      ImageIndex = 3
      OnExecute = ActModifyExecute
      Flag2 = 0
      Remark = 'U'
    end
    object ActDelete: TModlAction
      Caption = #21024#38500'(&D)'
      ImageIndex = 4
      OnExecute = ActDeleteExecute
      Flag2 = 0
      Remark = 'D'
    end
    object ActFind: TModlAction
      Caption = #26597#35810'(&Q)'
      ImageIndex = 5
      OnExecute = ActFindExecute
      Flag2 = 0
      Remark = 'Q'
    end
    object ActPrint: TModlAction
      Caption = #25253#34920'(&P)'
      ImageIndex = 6
      OnExecute = ActPrintExecute
      Flag2 = 0
      Remark = 'P'
    end
    object ActExit: TModlAction
      Caption = #36864#20986'(&E)'
      ImageIndex = 7
      OnExecute = ActExitExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActFieldsLayOut: TModlAction
      Category = 'Module'
      Caption = #35774#32622#23383#27573#24067#23616'&L'
      ImageIndex = 8
      OnExecute = ActFieldsLayOutExecute
      Flag2 = 0
      Remark = 'L'
    end
    object ActDataExport: TModlAction
      Category = 'Module'
      Caption = #25968#25454#23548#20986'(&X)'
      ImageIndex = 9
      OnExecute = ActDataExportExecute
      Flag2 = 0
      Remark = 'X'
    end
    object ActDesignReport: TModlAction
      Caption = 'ActDesignReport'
      Flag2 = 0
      Remark = 'G'
    end
  end
  object DsEmployees: TDataSource
    DataSet = CdsEmployees
    Left = 424
    Top = 96
  end
  object DComConn1: TDCOMConnection
    ServerGUID = '{6D4F67A0-D368-41D7-825A-5AFF464328B3}'
    ServerName = 'EmployeesSvr.Employees'
    Left = 104
    Top = 120
  end
  object CdsEmployees: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspEmployees'
    RemoteServer = DComConn1
    OnNewRecord = CdsEmployeesNewRecord
    OnReconcileError = CdsEmployeesReconcileError
    Left = 219
    Top = 165
    object CdsEmployeesEmpNo: TStringField
      DisplayLabel = #21592#24037#32534#21495
      DisplayWidth = 8
      FieldName = 'EmpNo'
      Size = 8
    end
    object CdsEmployeesNAME: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 12
      FieldName = 'NAME'
      Size = 12
    end
    object CdsEmployeesOLDNAME: TStringField
      DisplayWidth = 12
      FieldName = 'OLDNAME'
      Size = 12
    end
    object CdsEmployeesSex: TStringField
      DisplayWidth = 5
      FieldName = 'Sex'
      Size = 2
    end
    object CdsEmployeesBIRTHDAY: TDateTimeField
      DisplayWidth = 18
      FieldName = 'BIRTHDAY'
    end
    object CdsEmployeesDepartID: TIntegerField
      DisplayLabel = #37096#38376#32534#21495
      DisplayWidth = 10
      FieldName = 'DepartID'
    end
    object CdsEmployeesDepartName: TStringField
      DisplayWidth = 20
      FieldName = 'DepartName'
      ProviderFlags = []
    end
    object CdsEmployeesDUTY: TStringField
      DisplayLabel = #32844#21153
      DisplayWidth = 12
      FieldName = 'DUTY'
      Size = 12
    end
    object CdsEmployeesState: TStringField
      DisplayWidth = 8
      FieldName = 'State'
      Size = 8
    end
    object CdsEmployeesHireDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'HireDate'
    end
    object CdsEmployeesFireDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'FireDate'
    end
    object CdsEmployeesCARDID: TStringField
      DisplayWidth = 20
      FieldName = 'CARDID'
    end
    object CdsEmployeesDEGREE: TStringField
      DisplayWidth = 8
      FieldName = 'DEGREE'
      Size = 8
    end
    object CdsEmployeesSPECIALTY: TStringField
      DisplayWidth = 12
      FieldName = 'SPECIALTY'
      Size = 12
    end
    object CdsEmployeesNativePlace: TStringField
      DisplayWidth = 16
      FieldName = 'NativePlace'
      Size = 16
    end
    object CdsEmployeesTEL: TStringField
      DisplayWidth = 15
      FieldName = 'TEL'
      Size = 15
    end
    object CdsEmployeesMobile: TStringField
      DisplayWidth = 15
      FieldName = 'Mobile'
      Size = 15
    end
    object CdsEmployeesAddress: TStringField
      DisplayWidth = 40
      FieldName = 'Address'
      Size = 40
    end
    object CdsEmployeesLinkMan: TStringField
      DisplayWidth = 15
      FieldName = 'LinkMan'
      Size = 15
    end
    object CdsEmployeesLinkTel: TStringField
      DisplayWidth = 15
      FieldName = 'LinkTel'
      Size = 15
    end
    object CdsEmployeesRemark: TStringField
      DisplayWidth = 40
      FieldName = 'Remark'
      Size = 40
    end
  end
  object TopPopMenu: TPopupMenu
    AutoHotkeys = maManual
    Left = 220
    Top = 20
    object SetFields1: TMenuItem
      Action = ActFieldsLayOut
    end
    object refresh1: TMenuItem
      Action = ActDataExport
    end
  end
  object ImageList1: TImageList
    Left = 516
    Top = 96
    Bitmap = {