optinffrm.dfm

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

inherited frmOptInf: TfrmOptInf
  Left = 138
  Top = 81
  Caption = '人員信息'
  ClientHeight = 407
  ClientWidth = 540
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 227
    Width = 52
    Height = 13
    Caption = '人員姓名'
  end
  object Label2: TLabel
    Left = 16
    Top = 268
    Width = 52
    Height = 13
    Caption = '出生日期'
  end
  object Label3: TLabel
    Left = 16
    Top = 299
    Width = 52
    Height = 13
    Caption = '员工性别'
  end
  object Label4: TLabel
    Left = 16
    Top = 331
    Width = 52
    Height = 13
    Caption = '登陆用户'
  end
  object Label5: TLabel
    Left = 16
    Top = 368
    Width = 52
    Height = 17
    Caption = '工作岗位'
    Transparent = True
  end
  object Label6: TLabel
    Left = 224
    Top = 230
    Width = 52
    Height = 13
    Caption = '备注信息'
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 16
    Width = 505
    Height = 201
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 10
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
  end
  object edtName: TEdit
    Left = 80
    Top = 224
    Width = 121
    Height = 21
    TabOrder = 0
    OnChange = edtNameChange
    OnExit = edtNameExit
  end
  object dtpBirth: TDateTimePicker
    Left = 80
    Top = 264
    Width = 121
    Height = 21
    CalAlignment = dtaLeft
    Date = 27074.4660986343
    Time = 27074.4660986343
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 1
    OnChange = edtNameChange
  end
  object edtLogon: TEdit
    Left = 80
    Top = 328
    Width = 121
    Height = 21
    TabOrder = 3
    OnChange = edtNameChange
  end
  object cboOptKnd: TComboBox
    Left = 80
    Top = 366
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 4
    OnChange = edtNameChange
  end
  object btnAdd: TButton
    Left = 224
    Top = 366
    Width = 75
    Height = 25
    Caption = '新增(&A)'
    Enabled = False
    TabOrder = 6
    OnClick = btnAddClick
  end
  object btnClose: TButton
    Left = 448
    Top = 366
    Width = 75
    Height = 25
    Caption = '返回(&B)'
    TabOrder = 9
    OnClick = btnCloseClick
  end
  object btnDelete: TButton
    Left = 373
    Top = 366
    Width = 75
    Height = 25
    Caption = '删除(&D)'
    Enabled = False
    TabOrder = 8
    OnClick = btnDeleteClick
  end
  object cboSex: TComboBox
    Left = 80
    Top = 296
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 2
    OnChange = edtNameChange
    Items.Strings = (
      '男'
      '女')
  end
  object rtfRemark: TRichEdit
    Left = 224
    Top = 264
    Width = 297
    Height = 89
    TabOrder = 5
    OnChange = edtNameChange
  end
  object btnSave: TButton
    Left = 299
    Top = 366
    Width = 75
    Height = 25
    Caption = '保存(&S)'
    TabOrder = 7
    OnClick = btnSaveClick
  end
  object DataSource1: TDataSource
    DataSet = qryOptInf
    Left = 32
    Top = 64
  end
  object qryOptInf: TADOQuery
    CacheSize = 1500
    Connection = dmMain.cnnDB
    Parameters = <>
    Left = 32
    Top = 104
  end
end