uvadgmedicinecatalog.dfm

Delphi6开发的HIS程序

inherited VADGMedicineCatalog: TVADGMedicineCatalog
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        Top = 41
        Height = 236
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewMEDICINECATALOGID: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MEDICINECATALOGID'
          end
          object GridDBTableViewCHARGECATALOGCODE: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'CHARGECATALOGCODE'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = SourceChargeCatalog
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CHARGECATALOGCODE'
          end
          object GridDBTableViewCODE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            DataBinding.FieldName = 'CODE'
          end
          object GridDBTableViewCAPTION: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CAPTION'
          end
          object GridDBTableViewPINYIN: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PINYIN'
          end
          object GridDBTableViewPARENTID: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PARENTID'
          end
        end
      end
      object RzPanel3: TRzPanel
        Left = 0
        Top = 0
        Width = 443
        Height = 41
        Align = alTop
        BorderOuter = fsNone
        TabOrder = 1
        Transparent = True
        object RzLabel1: TRzLabel
          Left = 8
          Top = 14
          Width = 24
          Height = 13
          Caption = #25340#38899
          Transparent = True
        end
        object EditPinYin: TRzEdit
          Left = 43
          Top = 10
          Width = 121
          Height = 21
          FrameController = FrameController
          TabOrder = 0
        end
        object RzBitBtn1: TRzBitBtn
          Left = 176
          Top = 8
          Width = 29
          Caption = '...'
          Color = 15791348
          HighlightColor = 16026986
          HotTrack = True
          HotTrackColor = 3983359
          TabOrder = 1
          OnClick = RzBitBtn1Click
          NumGlyphs = 2
        end
      end
    end
  end
  inherited FrameController: TRzFrameController
    Left = 8
    Top = 80
  end
  inherited ComponentPrinter: TdxComponentPrinter
    PreviewOptions.PreviewBoundsRect = {00000000000000002003000058020000}
    Left = 48
    Top = 80
  end
  inherited DataSource: TDataSource
    DataSet = MADMedicineCatalog.ClientDataSet
    Left = 88
    Top = 80
  end
  object SourceChargeCatalog: TDataSource
    DataSet = MADChargeCatalog.ClientDataSet
    Left = 136
    Top = 80
  end
end