newcltfrm.dfm

醫院管理 還不錯 醫院管理 還不錯 醫院管理 還不錯

inherited frmNewClt: TfrmNewClt
  Left = 216
  Top = 91
  Caption = '添加'
  ClientHeight = 612
  ClientWidth = 676
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 34
    Width = 52
    Height = 13
    Caption = '病人姓名'
    Transparent = True
  end
  object Label2: TLabel
    Left = 24
    Top = 65
    Width = 52
    Height = 13
    Caption = '病人性别'
    Transparent = True
  end
  object Label3: TLabel
    Left = 24
    Top = 96
    Width = 52
    Height = 13
    Caption = '出生日期'
    Transparent = True
  end
  object Label4: TLabel
    Left = 24
    Top = 436
    Width = 52
    Height = 13
    Caption = '电话号码'
    Transparent = True
  end
  object Label5: TLabel
    Left = 24
    Top = 467
    Width = 65
    Height = 13
    Caption = '紧急联系人'
    Transparent = True
  end
  object Label9: TLabel
    Left = 24
    Top = 374
    Width = 52
    Height = 13
    Caption = '邮政编码'
    Transparent = True
  end
  object Label10: TLabel
    Left = 24
    Top = 405
    Width = 52
    Height = 13
    Caption = '家庭地址'
    Transparent = True
  end
  object lblRemark: TLabel
    Left = 352
    Top = 400
    Width = 52
    Height = 13
    Caption = '备注信息'
  end
  object Label12: TLabel
    Left = 24
    Top = 189
    Width = 52
    Height = 13
    Caption = '职　　业'
    Transparent = True
  end
  object Label13: TLabel
    Left = 24
    Top = 281
    Width = 52
    Height = 13
    Caption = '工　　号'
    Transparent = True
  end
  object Label6: TLabel
    Left = 24
    Top = 312
    Width = 54
    Height = 13
    Caption = '身高(CM)'
    Transparent = True
  end
  object Label7: TLabel
    Left = 24
    Top = 343
    Width = 54
    Height = 13
    Caption = '体重(KG)'
    Transparent = True
  end
  object Label14: TLabel
    Left = 24
    Top = 158
    Width = 52
    Height = 13
    Caption = '婚姻状况'
  end
  object Label15: TLabel
    Left = 24
    Top = 251
    Width = 52
    Height = 13
    Caption = '经理姓名'
    Transparent = True
  end
  object Label16: TLabel
    Left = 24
    Top = 498
    Width = 78
    Height = 13
    Caption = '紧急联系电话'
    Transparent = True
  end
  object lblHistoryList: TLabel
    Left = 352
    Top = 144
    Width = 305
    Height = 13
    AutoSize = False
    Caption = '病史栏目'
    Color = clBtnHighlight
    ParentColor = False
  end
  object lblHistoryContent: TLabel
    Left = 352
    Top = 248
    Width = 305
    Height = 13
    AutoSize = False
    Caption = '病史详细内容'
    Color = clTeal
    ParentColor = False
  end
  object Label11: TLabel
    Left = 24
    Top = 127
    Width = 52
    Height = 13
    Caption = '籍　　贯'
    Transparent = True
  end
  object Label18: TLabel
    Left = 24
    Top = 220
    Width = 52
    Height = 13
    Caption = '部　　门'
    Transparent = True
  end
  object edtName: TEdit
    Left = 124
    Top = 30
    Width = 180
    Height = 21
    TabOrder = 0
  end
  object edtZip: TEdit
    Left = 124
    Top = 370
    Width = 180
    Height = 21
    TabOrder = 11
  end
  object edtAddr: TEdit
    Left = 124
    Top = 401
    Width = 180
    Height = 21
    TabOrder = 12
  end
  object edtHeight: TEdit
    Left = 124
    Top = 308
    Width = 180
    Height = 21
    TabOrder = 9
  end
  object edtWeight: TEdit
    Left = 124
    Top = 339
    Width = 180
    Height = 21
    TabOrder = 10
  end
  object rtfRemark: TRichEdit
    Left = 352
    Top = 424
    Width = 305
    Height = 92
    TabOrder = 18
  end
  object btnSave: TButton
    Left = 456
    Top = 544
    Width = 75
    Height = 25
    Caption = '确定(&O)'
    TabOrder = 19
    OnClick = btnSaveClick
  end
  object btnCancel: TButton
    Left = 544
    Top = 544
    Width = 75
    Height = 25
    Caption = '取消(&C)'
    TabOrder = 20
    OnClick = btnCancelClick
  end
  object cboSex: TComboBox
    Left = 124
    Top = 61
    Width = 180
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 1
    Items.Strings = (
      '男'
      '女')
  end
  object dtpBirth: TDateTimePicker
    Left = 124
    Top = 92
    Width = 180
    Height = 21
    CalAlignment = dtaLeft
    Date = 38187.553993287
    Time = 38187.553993287
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 2
  end
  object edtEmployeeNo: TEdit
    Left = 124
    Top = 277
    Width = 180
    Height = 21
    TabOrder = 8
  end
  object edtTele: TEdit
    Left = 124
    Top = 432
    Width = 180
    Height = 21
    TabOrder = 13
  end
  object edtEmergencyTele: TEdit
    Left = 124
    Top = 494
    Width = 180
    Height = 21
    TabOrder = 15
  end
  object edtEmergencyName: TEdit
    Left = 124
    Top = 463
    Width = 180
    Height = 21
    TabOrder = 14
  end
  object chkMedicineAllergies: TCheckBox
    Tag = 11
    Left = 352
    Top = 36
    Width = 97
    Height = 17
    Caption = '药物过敏史'
    TabOrder = 21
    OnClick = chkOperationClick
  end
  object chkOtherAllErgies: TCheckBox
    Tag = 14
    Left = 352
    Top = 62
    Width = 97
    Height = 17
    Caption = '过敏史'
    TabOrder = 22
    OnClick = chkOperationClick
  end
  object chkMedicine: TCheckBox
    Tag = 17
    Left = 352
    Top = 88
    Width = 97
    Height = 17
    Caption = '用药史'
    TabOrder = 23
    OnClick = chkOperationClick
  end
  object chkMedicalHistory: TCheckBox
    Tag = 19
    Left = 568
    Top = 88
    Width = 97
    Height = 17
    Caption = '既往病史'
    TabOrder = 24
    OnClick = chkOperationClick
  end
  object chkFamilyHistory: TCheckBox
    Tag = 12
    Left = 464
    Top = 36
    Width = 97
    Height = 17
    Caption = '家族史'
    TabOrder = 25
    OnClick = chkOperationClick
  end
  object chkMenstruation: TCheckBox
    Tag = 15
    Left = 464
    Top = 62
    Width = 97
    Height = 17
    Caption = '月经史'
    TabOrder = 26
    OnClick = chkOperationClick
  end
  object chkChildBirth: TCheckBox
    Tag = 13
    Left = 568
    Top = 36
    Width = 97
    Height = 17
    Caption = '生育史'
    TabOrder = 27
    OnClick = chkOperationClick
  end
  object chkHospitalization: TCheckBox
    Tag = 16
    Left = 568
    Top = 62
    Width = 97
    Height = 17
    Caption = '住院史'
    TabOrder = 28
    OnClick = chkOperationClick
  end
  object chkOperation: TCheckBox
    Tag = 18
    Left = 464
    Top = 88
    Width = 97
    Height = 17
    Caption = '手术史'
    TabOrder = 29
    OnClick = chkOperationClick
  end
  object grbHabits: TGroupBox
    Left = 352
    Top = 336
    Width = 305
    Height = 57
    Caption = '生活习惯'
    TabOrder = 30
    object chkCigarettes: TCheckBox
      Left = 24
      Top = 24
      Width = 57
      Height = 17
      Caption = '烟'
      TabOrder = 0
    end
    object chkAlcohol: TCheckBox
      Left = 128
      Top = 24
      Width = 65
      Height = 17
      Caption = '酒'
      TabOrder = 1
    end
  end
  object lsbHistoryList: TListBox
    Left = 352
    Top = 163
    Width = 305
    Height = 78
    ItemHeight = 13
    TabOrder = 16
    OnClick = lsbHistoryListClick
  end
  object mmoHistoryContent: TMemo
    Left = 352
    Top = 264
    Width = 305
    Height = 66
    TabOrder = 17
    OnChange = mmoHistoryContentChange
  end
  object chkSocialHistory: TCheckBox
    Tag = 20
    Left = 352
    Top = 116
    Width = 97
    Height = 17
    Caption = '冶游史'
    TabOrder = 31
    OnClick = chkOperationClick
  end
  object cboMarital: TComboBox
    Left = 124
    Top = 154
    Width = 180
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 4
    Items.Strings = (
      '没有结婚'
      '已经结婚'
      '其他状态')
  end
  object cboProfession: TComboBox
    Left = 124
    Top = 185
    Width = 180
    Height = 21
    ItemHeight = 13
    TabOrder = 5
  end
  object cboSuprName: TComboBox
    Left = 124
    Top = 247
    Width = 180
    Height = 21
    ItemHeight = 13
    TabOrder = 7
  end
  object edtBirthPlace: TEdit
    Left = 124
    Top = 123
    Width = 180
    Height = 21
    TabOrder = 3
  end
  object cboDepartment: TComboBox
    Left = 124
    Top = 216
    Width = 180
    Height = 21
    ItemHeight = 13
    TabOrder = 6
  end
end