uvmadgsick.dfm

Delphi6开发的HIS程序

inherited VMADGSick: TVMADGSick
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewSICKID: TcxGridDBColumn
            DataBinding.FieldName = 'SICKID'
          end
          object GridDBTableViewBIRTHDAY: TcxGridDBColumn
            DataBinding.FieldName = 'BIRTHDAY'
          end
          object GridDBTableViewCNAME: TcxGridDBColumn
            DataBinding.FieldName = 'CNAME'
          end
          object GridDBTableViewCREATED: TcxGridDBColumn
            DataBinding.FieldName = 'CREATED'
          end
          object GridDBTableViewISVALID: TcxGridDBColumn
            DataBinding.FieldName = 'ISVALID'
          end
          object GridDBTableViewISACTIVE: TcxGridDBColumn
            DataBinding.FieldName = 'ISACTIVE'
          end
          object GridDBTableViewST: TcxGridDBColumn
            DataBinding.FieldName = 'ST'
          end
          object GridDBTableViewUPDATED: TcxGridDBColumn
            DataBinding.FieldName = 'UPDATED'
          end
          object GridDBTableViewPROFESSIONID: TcxGridDBColumn
            DataBinding.FieldName = 'PROFESSIONID'
          end
          object GridDBTableViewWEDLOCKID: TcxGridDBColumn
            DataBinding.FieldName = 'WEDLOCKID'
          end
          object GridDBTableViewNATIVEPLACEID: TcxGridDBColumn
            DataBinding.FieldName = 'NATIVEPLACEID'
          end
          object GridDBTableViewNATIONID: TcxGridDBColumn
            DataBinding.FieldName = 'NATIONID'
          end
          object GridDBTableViewPAYMENTMETHODID: TcxGridDBColumn
            DataBinding.FieldName = 'PAYMENTMETHODID'
          end
          object GridDBTableViewCREATEBY: TcxGridDBColumn
            DataBinding.FieldName = 'CREATEBY'
          end
          object GridDBTableViewUPDATEBY: TcxGridDBColumn
            DataBinding.FieldName = 'UPDATEBY'
          end
          object GridDBTableViewCODE: TcxGridDBColumn
            DataBinding.FieldName = 'CODE'
          end
          object GridDBTableViewISARREARAGE: TcxGridDBColumn
            DataBinding.FieldName = 'ISARREARAGE'
          end
          object GridDBTableViewSEX: TcxGridDBColumn
            DataBinding.FieldName = 'SEX'
          end
          object GridDBTableViewTOLLSTATIONID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'TOLLSTATIONID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = TollStationID
            DataBinding.FieldName = 'TOLLSTATIONID'
          end
        end
      end
    end
  end
  object CreateBy: TDataSource
    DataSet = MADEmployee.ClientDataSet
    Left = 56
    Top = 88
  end
  object PaymentMethodID: TDataSource
    DataSet = MADPaymentMethod.ClientDataSet
    Left = 128
    Top = 88
  end
  object NationID: TDataSource
    DataSet = MADNation.ClientDataSet
    Left = 168
    Top = 88
  end
  object NativePlaceID: TDataSource
    DataSet = MADNativePlace.ClientDataSet
    Left = 208
    Top = 88
  end
  object ProfessionID: TDataSource
    DataSet = MADProfession.ClientDataSet
    Left = 248
    Top = 88
  end
  object WedlockID: TDataSource
    DataSet = MADWedlock.ClientDataSet
    Left = 288
    Top = 88
  end
  object UpdateBy: TDataSource
    DataSet = MADEmployee.ClientDataSet
    Left = 32
    Top = 128
  end
  object TollStationID: TDataSource
    DataSet = MADTollStation.ClientDataSet
    Left = 104
    Top = 128
  end
end