uvadgdaservice.dfm

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

inherited VADGDAService: TVADGDAService
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewServiceSelect: TcxGridDBColumn
            Caption = #26381#21153#39033#30446#36873#25321
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'SERVICEID'
            Properties.ListColumns = <
              item
                FieldName = 'SERVICEID'
              end>
            Properties.ListSource = ServiceId
            Properties.OnPopup = GridDBTableViewDBColumn1PropertiesPopup
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'SERVICEID'
          end
          object GridDBTableViewSERVICEID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'SERVICEID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = ServiceId
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Options.Editing = False
            Width = 100
            DataBinding.FieldName = 'SERVICEID'
          end
          object GridDBTableViewServiceCharge: TcxGridDBColumn
            Caption = #26381#21153#39033#30446#36153#29992
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'SERVICEID'
            Properties.ListColumns = <
              item
                FieldName = 'CHARGE'
              end>
            Properties.ListSource = ServiceId
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Options.Editing = False
            Width = 100
            DataBinding.FieldName = 'SERVICEID'
          end
          object GridDBTableViewServiceCode: TcxGridDBColumn
            Caption = #26381#21153#39033#30446#32534#30721
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'SERVICEID'
            Properties.ListColumns = <
              item
                FieldName = 'CODE'
              end>
            Properties.ListSource = ServiceId
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Options.Editing = False
            SortOrder = soAscending
            Width = 100
            DataBinding.FieldName = 'SERVICEID'
          end
          object GridDBTableViewServiceCatalog: TcxGridDBColumn
            Caption = #26381#21153#39033#30446#20998#31867
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'SERVICEID'
            Properties.ListColumns = <
              item
                FieldName = 'SERVICECATALOG'
              end>
            Properties.ListSource = ServiceId
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Options.Editing = False
            Width = 100
            DataBinding.FieldName = 'SERVICEID'
          end
          object GridDBTableViewDASERVICEID: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'DASERVICEID'
          end
          object GridDBTableViewISTEMPORARY: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'ISTEMPORARY'
          end
          object GridDBTableViewISACTIVE: TcxGridDBColumn
            Caption = #26159#21542#20572#29992
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'ISACTIVE'
          end
          object GridDBTableViewSTOPDATE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'STOPDATE'
          end
          object GridDBTableViewEXECUTED: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'EXECUTED'
          end
          object GridDBTableViewISVALID: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'ISVALID'
          end
          object GridDBTableViewCREATED: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CREATED'
          end
          object GridDBTableViewUPDATED: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'UPDATED'
          end
          object GridDBTableViewINPATIENTID: TcxGridDBColumn
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'INPATIENTID'
          end
        end
      end
    end
  end
  inherited ComponentPrinter: TdxComponentPrinter
    PreviewOptions.PreviewBoundsRect = {00000000000000002003000058020000}
  end
  inherited DataSource: TDataSource
    DataSet = MADDAService.ClientDataSet
  end
  object ServiceId: TDataSource
    DataSet = MADService.ClientDataSet
    Left = 136
    Top = 16
  end
end