uvmadgmedicine.dfm

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

inherited VMADGMedicine: TVMADGMedicine
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        Top = 41
        Height = 236
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewPINYIN: TcxGridDBColumn
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            SortOrder = soAscending
            Width = 100
            DataBinding.FieldName = 'PINYIN'
          end
          object GridDBTableViewMEDICINECATALOGID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'MEDICINECATALOGID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = MedicineCatalogID
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MEDICINECATALOGID'
          end
          object GridDBTableViewMEDICINEID: TcxGridDBColumn
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MEDICINEID'
          end
          object GridDBTableViewCODE: TcxGridDBColumn
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CODE'
          end
          object GridDBTableViewCAPTION: TcxGridDBColumn
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CAPTION'
          end
          object GridDBTableViewMODEL: TcxGridDBColumn
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MODEL'
          end
          object GridDBTableViewUNITSID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'UNITSID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = UnitsID
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'UNITSID'
          end
          object GridDBTableViewMINUNITSID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'UNITSID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = UnitsID
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MINUNITSID'
          end
          object GridDBTableViewPACKAMOUNT: TcxGridDBColumn
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PACKAMOUNT'
          end
          object GridDBTableViewTOPQTY: TcxGridDBColumn
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'TOPQTY'
          end
          object GridDBTableViewDOWNQTY: TcxGridDBColumn
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'DOWNQTY'
          end
          object GridDBTableViewDOSEID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'DOSEID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = DoseID
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'DOSEID'
          end
          object GridDBTableViewALAIS: TcxGridDBColumn
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'ALAIS'
          end
          object GridDBTableViewUSEMETHODID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'USEMETHODID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = USEMETHODID
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'USEMETHODID'
          end
          object GridDBTableViewMEMO: TcxGridDBColumn
            Visible = False
            FooterAlignmentHorz = taCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MEMO'
          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 = 16
          Top = 14
          Width = 24
          Height = 13
          Caption = #25340#38899
          Transparent = True
        end
        object EditPinYin: TRzEdit
          Left = 48
          Top = 10
          Width = 121
          Height = 21
          FrameController = FrameController
          TabOrder = 0
        end
        object RzButton1: TRzButton
          Left = 176
          Top = 8
          Width = 25
          Caption = '...'
          Color = 15791348
          HighlightColor = 16026986
          HotTrack = True
          HotTrackColor = 3983359
          TabOrder = 1
          OnClick = RzButton1Click
        end
      end
    end
  end
  inherited FrameController: TRzFrameController
    Left = 8
    Top = 104
  end
  inherited ComponentPrinter: TdxComponentPrinter
    PreviewOptions.PreviewBoundsRect = {00000000000000002003000058020000}
    Left = 48
    Top = 80
  end
  inherited DataSource: TDataSource
    DataSet = MADMedicine.ClientDataSet
    Left = 88
    Top = 80
  end
  object DoseID: TDataSource
    DataSet = MADDose.ClientDataSet
    Left = 136
    Top = 72
  end
  object MedicineCatalogID: TDataSource
    DataSet = MADMedicineCatalog.ClientDataSet
    Left = 176
    Top = 72
  end
  object UnitsID: TDataSource
    DataSet = MADUnits.ClientDataSet
    Left = 224
    Top = 72
  end
  object USEMETHODID: TDataSource
    DataSet = MADUseMethod.ClientDataSet
    Left = 264
    Top = 72
  end
end