proinffrm.dfm

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

inherited frmProInf: TfrmProInf
  Left = 227
  Top = 116
  Caption = '产品信息'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 352
    Top = 16
    Width = 52
    Height = 13
    Caption = '产品名称'
  end
  object Label2: TLabel
    Left = 16
    Top = 54
    Width = 52
    Height = 13
    Caption = '产品价格'
  end
  object Label3: TLabel
    Left = 16
    Top = 88
    Width = 52
    Height = 13
    Caption = '备注信息'
  end
  object lblProClass: TLabel
    Left = 16
    Top = 16
    Width = 52
    Height = 13
    Caption = '产品体系'
  end
  object Label4: TLabel
    Left = 280
    Top = 56
    Width = 53
    Height = 13
    Caption = '(人民币)'
  end
  object lblPrdShape: TLabel
    Left = 352
    Top = 56
    Width = 52
    Height = 13
    Caption = '产品形状'
    Transparent = True
  end
  object SpeedButton1: TSpeedButton
    Left = 288
    Top = 16
    Width = 23
    Height = 22
    Caption = '+'
    Visible = False
  end
  object SpeedButton2: TSpeedButton
    Left = 632
    Top = 51
    Width = 23
    Height = 22
    Caption = '+'
    Visible = False
  end
  object grdProInf: TDBGrid
    Left = 16
    Top = 240
    Width = 649
    Height = 185
    DataSource = dsProInf
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 8
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = grdProInfDblClick
  end
  object btnAdd: TButton
    Left = 16
    Top = 200
    Width = 75
    Height = 25
    Caption = '添加(&A)'
    Enabled = False
    TabOrder = 5
    OnClick = btnAddClick
  end
  object btnSave: TButton
    Left = 115
    Top = 200
    Width = 75
    Height = 25
    Caption = '保存(&S)'
    Enabled = False
    TabOrder = 6
    OnClick = btnSaveClick
  end
  object rtfRemark: TRichEdit
    Left = 16
    Top = 112
    Width = 649
    Height = 76
    Lines.Strings = (
      'rtfRemark')
    TabOrder = 4
    OnChange = edtNameChange
  end
  object btnDelete: TButton
    Left = 216
    Top = 200
    Width = 75
    Height = 25
    Caption = '删除(&D)'
    Enabled = False
    TabOrder = 7
    OnClick = btnDeleteClick
  end
  object edtName: TEdit
    Left = 416
    Top = 12
    Width = 200
    Height = 21
    TabOrder = 1
    OnChange = edtNameChange
  end
  object edtPrice: TEdit
    Left = 80
    Top = 50
    Width = 200
    Height = 21
    TabOrder = 2
    OnChange = edtNameChange
    OnKeyPress = edtPriceKeyPress
  end
  object cboPrdKnd: TComboBox
    Left = 80
    Top = 16
    Width = 200
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    OnChange = edtNameChange
  end
  object cboPrdShape: TComboBox
    Left = 416
    Top = 51
    Width = 201
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    OnChange = edtNameChange
  end
  object dsProInf: TDataSource
    DataSet = qryProInf
    Left = 24
    Top = 256
  end
  object qryProInf: TADOQuery
    CacheSize = 1500
    Connection = dmMain.cnnDB
    Parameters = <>
    Prepared = True
    Left = 24
    Top = 288
  end
end