frmstaff.dfm

医院门诊管理系统:它是由任天华完全自主开发的医院数据库管理系统

object FormStaff: TFormStaff
  Left = 188
  Top = 104
  BorderStyle = bsDialog
  Caption = #21592#24037#31649#29702
  ClientHeight = 589
  ClientWidth = 823
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 272
    Width = 825
    Height = 145
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 37
      Height = 13
      Caption = #24037#21495'   '
    end
    object Label2: TLabel
      Left = 208
      Top = 16
      Width = 37
      Height = 13
      Caption = #22995#21517'   '
    end
    object Label3: TLabel
      Left = 392
      Top = 16
      Width = 37
      Height = 13
      Caption = #24615#21035'   '
    end
    object Label4: TLabel
      Left = 616
      Top = 16
      Width = 40
      Height = 13
      Caption = #24180#40836'    '
    end
    object Label5: TLabel
      Left = 16
      Top = 56
      Width = 65
      Height = 13
      Caption = #20986#29983#24180#26376'   '
    end
    object Label6: TLabel
      Left = 208
      Top = 56
      Width = 68
      Height = 13
      Caption = #32852#31995#30005#35805'    '
    end
    object Label7: TLabel
      Left = 392
      Top = 56
      Width = 68
      Height = 13
      Caption = #31185#23460#31867#22411'    '
    end
    object Label8: TLabel
      Left = 616
      Top = 56
      Width = 37
      Height = 13
      Caption = #32844#21153'   '
    end
    object Label9: TLabel
      Left = 208
      Top = 104
      Width = 28
      Height = 13
      Caption = #22791#27880
    end
    object Label13: TLabel
      Left = 16
      Top = 104
      Width = 37
      Height = 13
      Caption = #24037#40836'   '
    end
    object Edityid: TEdit
      Left = 88
      Top = 16
      Width = 105
      Height = 21
      ReadOnly = True
      TabOrder = 0
    end
    object Editiname: TEdit
      Left = 280
      Top = 16
      Width = 89
      Height = 21
      TabOrder = 1
    end
    object CBysex: TComboBox
      Left = 472
      Top = 16
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        #30007
        #22899)
    end
    object Edityage: TEdit
      Left = 672
      Top = 16
      Width = 113
      Height = 21
      TabOrder = 3
      OnKeyPress = EdityageKeyPress
    end
    object MaskEdit1: TMaskEdit
      Left = 88
      Top = 56
      Width = 104
      Height = 21
      EditMask = '!99/99/0000;1;_'
      MaxLength = 10
      TabOrder = 4
      Text = '  -  -    '
    end
    object MaskEdit2: TMaskEdit
      Left = 280
      Top = 56
      Width = 87
      Height = 21
      EditMask = '!\(999\)00000000000;1;_'
      MaxLength = 16
      TabOrder = 5
      Text = '(   )           '
    end
    object CBytype: TComboBox
      Left = 472
      Top = 56
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 6
      OnChange = CBytypeChange
    end
    object CByduty: TComboBox
      Left = 672
      Top = 56
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 7
      Items.Strings = (
        #26222#36890
        #20027#20219)
    end
    object Editydage: TEdit
      Left = 88
      Top = 104
      Width = 105
      Height = 21
      TabOrder = 8
      OnKeyPress = EditydageKeyPress
    end
    object Ediytc: TEdit
      Left = 280
      Top = 104
      Width = 505
      Height = 21
      TabOrder = 9
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 825
    Height = 81
    TabOrder = 1
    object Label12: TLabel
      Left = 48
      Top = 32
      Width = 3
      Height = 13
    end
    object CBDepartM: TComboBox
      Left = 120
      Top = 24
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = CBDepartMChange
    end
    object EditSeek: TEdit
      Left = 576
      Top = 24
      Width = 129
      Height = 21
      TabOrder = 1
    end
    object Button1: TButton
      Left = 720
      Top = 24
      Width = 75
      Height = 25
      Caption = #24320#22987#26597#25214
      TabOrder = 2
      OnClick = Button1Click
    end
    object CBseek: TComboBox
      Left = 424
      Top = 24
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        #22995#21517
        #24615#21035
        #24180#40836
        #32844#21153
        #24037#40836
        #22791#27880)
    end
    object CheckBox1: TCheckBox
      Left = 24
      Top = 24
      Width = 97
      Height = 17
      Caption = #25353#31185#23460#26597#25214
      TabOrder = 4
    end
    object CheckBox2: TCheckBox
      Left = 320
      Top = 24
      Width = 97
      Height = 17
      Caption = #27169#31946#26597#25214
      TabOrder = 5
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 80
    Width = 825
    Height = 193
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
  end
  object Panel3: TPanel
    Left = 0
    Top = 416
    Width = 825
    Height = 177
    TabOrder = 3
    object Button2: TButton
      Left = 56
      Top = 40
      Width = 97
      Height = 33
      Caption = #28155#21152#21592#24037
      TabOrder = 0
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 168
      Top = 40
      Width = 105
      Height = 33
      Caption = #20462#25913#21592#24037
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 432
      Top = 40
      Width = 113
      Height = 33
      Caption = #20445#23384#35774#32622
      TabOrder = 2
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 560
      Top = 40
      Width = 105
      Height = 33
      Caption = #37325#32622
      TabOrder = 3
      OnClick = Button5Click
    end
    object Button7: TButton
      Left = 296
      Top = 40
      Width = 113
      Height = 33
      Caption = #21024#38500
      TabOrder = 4
      OnClick = Button7Click
    end
    object BitBtn1: TBitBtn
      Left = 656
      Top = 104
      Width = 121
      Height = 41
      TabOrder = 5
      Kind = bkClose
    end
  end
end