optkndfrm.dfm

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

inherited frmOptKnd: TfrmOptKnd
  Left = 302
  Top = 209
  Caption = '岗位名称'
  ClientHeight = 393
  ClientWidth = 395
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 32
    Width = 52
    Height = 13
    Caption = '岗位名称'
    Transparent = True
  end
  object Label2: TLabel
    Left = 24
    Top = 72
    Width = 52
    Height = 13
    Caption = '备注信息'
    Transparent = True
  end
  object edtName: TEdit
    Left = 104
    Top = 28
    Width = 265
    Height = 21
    ImeName = '中文 (简体) - 极点中文'
    MaxLength = 20
    TabOrder = 0
    OnChange = rtfRemarkChange
  end
  object rtfRemark: TRichEdit
    Left = 24
    Top = 96
    Width = 345
    Height = 105
    ImeName = '中文 (简体) - 极点中文'
    MaxLength = 256
    TabOrder = 1
    OnChange = rtfRemarkChange
  end
  object btnAdd: TButton
    Left = 80
    Top = 216
    Width = 75
    Height = 25
    Caption = '增加(&A)'
    TabOrder = 2
    OnClick = btnAddClick
  end
  object btnDelete: TButton
    Left = 240
    Top = 216
    Width = 75
    Height = 25
    Caption = '删除(&D)'
    Enabled = False
    TabOrder = 3
    OnClick = btnDeleteClick
  end
  object grdOptKnd: TDBGrid
    Left = 24
    Top = 256
    Width = 345
    Height = 121
    DataSource = DataSource1
    ImeName = '中文 (简体) - 极点中文'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = grdOptKndDblClick
  end
  object btnSave: TButton
    Left = 160
    Top = 216
    Width = 75
    Height = 25
    Caption = '保存'
    Enabled = False
    TabOrder = 5
    OnClick = btnSaveClick
  end
  object qryOptKnd: TADOQuery
    CacheSize = 1500
    Connection = dmMain.cnnDB
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select id as 编号, name as 岗位名称, remark as 备注 from optknd')
    Left = 32
    Top = 344
  end
  object DataSource1: TDataSource
    DataSet = qryOptKnd
    Left = 72
    Top = 344
  end
end