empedfrm.~dfm

来自「群星医药系统源码」· ~DFM 代码 · 共 597 行

~DFM
597 行
字号 
object FmEmpEd: TFmEmpEd
  Left = 205
  Top = 213
  ActiveControl = edEmpID
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #26032#22686'/'#20462#25913#21592#24037#36164#26009
  ClientHeight = 284
  ClientWidth = 567
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 243
    Width = 567
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    Color = 16646142
    TabOrder = 0
    object RzBorder1: TRzBorder
      Left = 0
      Top = 0
      Width = 567
      Height = 6
      BorderInner = fsBump
      BorderOuter = fsBump
      BorderSides = [sdBottom]
      Align = alTop
    end
    object BtnNew: TRzBitBtn
      Left = 473
      Top = 11
      Width = 77
      Height = 26
      Cancel = True
      Caption = #21462#28040'(&C)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BtnNewClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666666666666666666666666666666666666666666666
        6666666666666666666669000666669000666F88866666F88866691110666911
        10666F8888666F888866669111069111066666F88886F8888666666911101110
        6666666F88888888666666669111110666666666F88888866666666669111066
        666666666F888866666666669111110666666666F88888866666666911101110
        6666666F888888886666669111069111066666F88886F8888666691110666911
        10666F8888666F88886669999666669999666FFFF66666FFFF66666666666666
        6666666666666666666666666666666666666666666666666666}
      NumGlyphs = 2
    end
    object RzBitBtn1: TRzBitBtn
      Left = 388
      Top = 11
      Width = 77
      Height = 26
      Caption = #30830#23450'(&O)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = RzBitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        66666666666666666666666666666666666666666666666666666666AC666666
        66666666F86666666666666A22C666666666666F88866666666666A2222C6666
        666666F88888666666666A222222C66666666F888888866666666A22CA222C66
        66666F888F88886666666A2C66A222C666666F8866F8888666666AC6666A222C
        66666F86666F8888666666666666A222C66666666666F8888666666666666A22
        2C66666666666F8888666666666666A222C66666666666F8888666666666666A
        22C666666666666F8886666666666666A2C6666666666666F886666666666666
        6AC66666666666666F8666666666666666666666666666666666}
      NumGlyphs = 2
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 567
    Height = 243
    Align = alClient
    BevelOuter = bvNone
    Color = 16646142
    TabOrder = 1
    object Label1: TLabel
      Left = 12
      Top = 16
      Width = 60
      Height = 12
      Caption = #21592#24037#32534#21495#65306
    end
    object Label2: TLabel
      Left = 384
      Top = 16
      Width = 60
      Height = 12
      Caption = #37096#38376#32534#21495#65306
    end
    object Label3: TLabel
      Left = 199
      Top = 49
      Width = 60
      Height = 12
      Caption = #20837#32844#26085#26399#65306
    end
    object Label4: TLabel
      Left = 384
      Top = 82
      Width = 60
      Height = 12
      Caption = #19987#12288#12288#19994#65306
    end
    object Label12: TLabel
      Left = 199
      Top = 16
      Width = 60
      Height = 12
      Caption = #22995#12288#12288#21517#65306
    end
    object Label13: TLabel
      Left = 12
      Top = 49
      Width = 60
      Height = 12
      Caption = #32844#12288#12288#21153#65306
    end
    object Label14: TLabel
      Left = 199
      Top = 82
      Width = 60
      Height = 12
      Caption = #23398#12288#12288#21382#65306
    end
    object Label10: TLabel
      Left = 12
      Top = 82
      Width = 60
      Height = 12
      Caption = #36766#36864#26085#26399#65306
    end
    object Label21: TLabel
      Left = 384
      Top = 49
      Width = 60
      Height = 12
      Caption = #22312#32844#29366#24577#65306
    end
    object Label5: TLabel
      Left = 199
      Top = 116
      Width = 60
      Height = 12
      Caption = #24615#12288#12288#21035#65306
    end
    object Label6: TLabel
      Left = 384
      Top = 148
      Width = 60
      Height = 12
      Caption = #35814#32454#22320#22336#65306
    end
    object Label7: TLabel
      Left = 12
      Top = 149
      Width = 60
      Height = 12
      Caption = #20986#29983#26085#26399#65306
    end
    object Label8: TLabel
      Left = 199
      Top = 182
      Width = 60
      Height = 12
      Caption = #25163#12288#12288#26426#65306
    end
    object Label9: TLabel
      Left = 12
      Top = 216
      Width = 60
      Height = 12
      Caption = #32852#32476#30005#35805#65306
    end
    object Label15: TLabel
      Left = 12
      Top = 116
      Width = 60
      Height = 12
      Caption = #26366' '#29992' '#21517#65306
    end
    object Label16: TLabel
      Left = 199
      Top = 149
      Width = 60
      Height = 12
      Caption = #31821#12288#12288#36143#65306
    end
    object Label17: TLabel
      Left = 384
      Top = 115
      Width = 60
      Height = 12
      Caption = #36523#20221#35777#21495#65306
    end
    object Label18: TLabel
      Left = 12
      Top = 182
      Width = 60
      Height = 12
      Caption = #30005#12288#12288#35805#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 384
      Top = 182
      Width = 60
      Height = 12
      Caption = #32039#24613#32852#32476#20154
    end
    object Label20: TLabel
      Left = 199
      Top = 216
      Width = 60
      Height = 12
      Caption = #22791#12288#12288#27880#65306
    end
    object RzEdit5: TRzDBComboBox
      Left = 258
      Top = 76
      Width = 110
      Height = 20
      DataField = 'DEGREE'
      DataSource = DsEmployees
      Style = csDropDownList
      AutoComplete = False
      Ctl3D = False
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
      ItemHeight = 12
      MaxLength = 12
      ParentCtl3D = False
      TabOnEnter = True
      TabOrder = 8
      Items.Strings = (
        #23567#23398
        #21021#20013
        #39640#20013
        #20013#19987
        #22823#19987
        #26412#31185
        #30740#31350#29983
        #21338#22763)
    end
    object RzEdit3: TRzDBComboBox
      Left = 73
      Top = 44
      Width = 110
      Height = 20
      DataField = 'DUTY'
      DataSource = DsEmployees
      AutoComplete = False
      Ctl3D = False
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
      ItemHeight = 12
      MaxLength = 12
      ParentCtl3D = False
      TabOnEnter = True
      TabOrder = 4
    end
    object RzEdit4: TRzDBComboBox
      Left = 444
      Top = 42
      Width = 112
      Height = 20
      DataField = 'State'
      DataSource = DsEmployees
      Style = csDropDownList
      AutoComplete = False
      Ctl3D = False
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
      ItemHeight = 12
      MaxLength = 8
      ParentCtl3D = False
      TabOnEnter = True
      TabOrder = 6
      Items.Strings = (
        #22312#32844
        #31163#32844)
    end
    object RzDBDateTimePicker1: TRzDBDateTimePicker
      Left = 258
      Top = 42
      Width = 110
      Height = 20
      Date = 37579.000000000000000000
      Time = 37579.000000000000000000
      DateFormat = dfLong
      TabOrder = 5
      OnKeyDown = RzDBDateTimePicker1KeyDown
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
      ShowToday = True
      ShowTodayCircle = True
      DataField = 'HIREDATE'
      DataSource = DsEmployees
    end
    object RzDBDateTimePicker2: TRzDBDateTimePicker
      Left = 73
      Top = 78
      Width = 110
      Height = 20
      Date = 37581.911935868040000000
      Time = 37581.911935868040000000
      ShowCheckbox = True
      DateFormat = dfLong
      TabOrder = 7
      OnKeyDown = RzDBDateTimePicker1KeyDown
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
      ShowToday = True
      ShowTodayCircle = True
      DataField = 'FireDate'
      DataSource = DsEmployees
    end
    object edEmpID: TRzDBEdit
      Left = 73
      Top = 11
      Width = 110
      Height = 20
      DataSource = DsEmployees
      DataField = 'EmpNo'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 0
    end
    object edName: TRzDBEdit
      Left = 258
      Top = 9
      Width = 110
      Height = 20
      DataSource = DsEmployees
      DataField = 'NAME'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 1
    end
    object Idpat: TRzDBEdit
      Left = 443
      Top = 11
      Width = 34
      Height = 20
      DataSource = DsEmployees
      DataField = 'DepartID'
      FrameHotStyle = fsFlat
      FrameVisible = True
      MaxLength = 8
      TabOnEnter = True
      TabOrder = 2
    end
    object RzEdit7: TRzDBEdit
      Left = 444
      Top = 76
      Width = 112
      Height = 20
      DataSource = DsEmployees
      DataField = 'SPECIALTY'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 9
    end
    object RzDBEdit1: TRzDBEdit
      Left = 73
      Top = 111
      Width = 110
      Height = 20
      DataSource = DsEmployees
      DataField = 'OLDNAME'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 10
    end
    object RzDBComboBox1: TRzDBComboBox
      Left = 258
      Top = 110
      Width = 110
      Height = 20
      DataField = 'Sex'
      DataSource = DsEmployees
      Style = csDropDownList
      AutoComplete = False
      Ctl3D = False
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
      ItemHeight = 12
      MaxLength = 2
      ParentCtl3D = False
      TabOnEnter = True
      TabOrder = 11
      Items.Strings = (
        #30007
        #22899)
    end
    object RzDBEdit3: TRzDBEdit
      Left = 444
      Top = 110
      Width = 112
      Height = 20
      DataSource = DsEmployees
      DataField = 'CARDID'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 12
    end
    object RzDBEdit4: TRzDBEdit
      Left = 258
      Top = 144
      Width = 110
      Height = 20
      DataSource = DsEmployees
      DataField = 'NativePlace'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 14
    end
    object RzDBEdit5: TRzDBEdit
      Left = 73
      Top = 178
      Width = 110
      Height = 20
      DataSource = DsEmployees
      DataField = 'TEL'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 16
    end
    object RzDBEdit6: TRzDBEdit
      Left = 444
      Top = 178
      Width = 112
      Height = 20
      DataSource = DsEmployees
      DataField = 'LinkMan'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 18
    end
    object RzDBEdit7: TRzDBEdit
      Left = 258
      Top = 212
      Width = 298
      Height = 20
      DataSource = DsEmployees
      DataField = 'Remark'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 20
    end
    object RzDBEdit9: TRzDBEdit
      Left = 444
      Top = 144
      Width = 112
      Height = 20
      DataSource = DsEmployees
      DataField = 'Address'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 15
    end
    object RzDBEdit10: TRzDBEdit
      Left = 258
      Top = 178
      Width = 110
      Height = 20
      DataSource = DsEmployees
      DataField = 'Mobile'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 17
    end
    object RzDBEdit11: TRzDBEdit
      Left = 73
      Top = 212
      Width = 110
      Height = 20
      DataSource = DsEmployees
      DataField = 'LinkTel'
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 19
    end
    object RzDBEdit8: TRzDBDateTimePicker
      Left = 73
      Top = 145
      Width = 110
      Height = 20
      BevelWidth = 0
      Date = 37581.911936342590000000
      Time = 37581.911936342590000000
      ShowCheckbox = True
      DateFormat = dfLong
      TabOrder = 13
      OnKeyDown = RzDBDateTimePicker1KeyDown
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
      ShowToday = True
      ShowTodayCircle = True
      DataField = 'BIRTHDAY'
      DataSource = DsEmployees
    end
    object edSelectDepart: TRzDBButtonEdit
      Left = 478
      Top = 11
      Width = 78
      Height = 20
      DataSource = DsEmployees
      DataField = 'DepartName'
      ReadOnly = True
      FrameHotStyle = fsFlat
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 3
      OnKeyDown = edSelectDepartKeyDown
      OnButtonClick = edSelectDepartButtonClick
      FlatButtons = True
    end
  end
  object DsEmployees: TDataSource
    DataSet = FmEmployees.CdsEmployees
    Left = 196
    Top = 65
  end
end

empedfrm.~dfm - 源码说明

本页面展示了「群星医药系统源码」中的 empedfrm.~dfm 源码文件，采用 ~DFM 编程语言编写，共 597 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与医药系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?