uvadgmedicinestock.dfm

来自「一整套的源代码」· DFM 代码 · 共 306 行

inherited VADGMedicineStock: TVADGMedicineStock
  Height = 505
  inherited RzPanel1: TRzPanel
    Height = 505
    inherited RzBackground1: TRzBackground
      Height = 505
    end
    inherited RzPanel2: TRzPanel
      Height = 505
      object Splitter1: TSplitter [0]
        Left = 0
        Top = 210
        Width = 443
        Height = 4
        Cursor = crVSplit
        Align = alTop
        Color = clBtnFace
        ParentColor = False
      end
      inherited Grid: TcxGrid
        Top = 41
        Height = 169
        Align = alTop
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          OnCellClick = GridDBTableViewCellClick
          OptionsData.Appending = False
          OptionsData.Deleting = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          object GridDBTableViewMS_MEDICINESTOCKID: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MS_MEDICINESTOCKID'
          end
          object GridDBTableViewM_MEDICINECATALOGID: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_MEDICINECATALOGID'
          end
          object GridDBTableViewM_CODE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_CODE'
          end
          object GridDBTableViewM_PINYIN: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            SortOrder = soAscending
            Width = 100
            DataBinding.FieldName = 'M_PINYIN'
          end
          object GridDBTableViewM_CAPTION: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_CAPTION'
          end
          object GridDBTableViewM_MODEL: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_MODEL'
          end
          object GridDBTableViewMS_AMOUNT: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MS_AMOUNT'
          end
          object GridDBTableViewMS_MINAMOUNT: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MS_MINAMOUNT'
          end
          object GridDBTableViewM_UNITSID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'UNITSID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = Units
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_UNITSID'
          end
          object GridDBTableViewM_MINUNITSID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'UNITSID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = Units
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_MINUNITSID'
          end
          object GridDBTableViewM_PACKAMOUNT: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_PACKAMOUNT'
          end
          object GridDBTableViewM_TOPQTY: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_TOPQTY'
          end
          object GridDBTableViewM_DOWNQTY: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_DOWNQTY'
          end
          object GridDBTableViewM_ALAIS: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_ALAIS'
          end
          object GridDBTableViewM_MEMO: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_MEMO'
          end
          object GridDBTableViewM_DOSEID: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_DOSEID'
          end
          object GridDBTableViewM_USEMETHODID: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_USEMETHODID'
          end
          object GridDBTableViewMS_CREATED: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MS_CREATED'
          end
          object GridDBTableViewMS_UPDATED: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MS_UPDATED'
          end
          object GridDBTableViewM_MEDICINEID: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'M_MEDICINEID'
          end
          object GridDBTableViewMS_MEDICINEID: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MS_MEDICINEID'
          end
        end
      end
      inline PagesView: TAdapterDataPagesView
        Left = 0
        Top = 214
        Width = 443
        Height = 291
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        inherited RzPanel1: TRzPanel
          Height = 291
          inherited RzBackground1: TRzBackground
            Height = 291
          end
          inherited RzPanel2: TRzPanel
            Height = 291
            inherited Pages: TRzPageControl
              Top = 1
              Height = 289
              FixedDimension = 0
            end
            inherited RzPanel3: TRzPanel
              Height = 0
              inherited BtnCloseView: TRzBitBtn
                Visible = False
              end
              inherited BtnAppendRecord: TRzBitBtn
                Visible = False
              end
              inherited BtnDeleteRecord: TRzBitBtn
                Visible = False
              end
              inherited BtnCancelRecord: TRzBitBtn
                Visible = False
              end
              inherited BtnSaveRecord: TRzBitBtn
                Visible = False
              end
            end
          end
        end
      end
      object RzPanel3: TRzPanel
        Left = 0
        Top = 0
        Width = 443
        Height = 41
        Align = alTop
        BorderOuter = fsNone
        TabOrder = 2
        Transparent = True
        object RzLabel1: TRzLabel
          Left = 16
          Top = 14
          Width = 24
          Height = 13
          Caption = #25340#38899
          Transparent = True
        end
        object EditPinYin: TRzEdit
          Left = 56
          Top = 10
          Width = 169
          Height = 21
          FrameController = FrameController
          TabOrder = 0
        end
        object RzButton1: TRzButton
          Left = 232
          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 = 24
    Top = 80
  end
  inherited ComponentPrinter: TdxComponentPrinter
    PreviewOptions.PreviewBoundsRect = {00000000000000002003000058020000}
    Left = 64
    Top = 80
  end
  inherited DataSource: TDataSource
    DataSet = MQMedicineStock.ClientDataSet
    Left = 104
    Top = 80
  end
  object Units: TDataSource
    DataSet = MADUnits.ClientDataSet
    Left = 192
    Top = 80
  end
end