goodscheckaccept6.~dfm

医药连锁经营管理系统源码

          end
          item
            EditButtons = <>
            FieldName = 'CheckDate'
            Footers = <>
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'Accepter'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Remark'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PItemNO'
            Footers = <>
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 405
      Height = 31
      object Label7: TLabel
        Left = 23
        Top = 10
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 659
        Top = 8
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'CreatTime'
        DataSource = DsGoodsCheckAccept
      end
      object RzLabel2: TRzLabel
        Left = 596
        Top = 9
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 506
        Top = 8
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'Creater'
        DataSource = DsGoodsCheckAccept
      end
      object RzLabel1: TRzLabel
        Left = 456
        Top = 9
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBEdit2: TRzDBEdit
        Left = 80
        Top = 5
        Width = 365
        Height = 20
        DataSource = DsGoodsCheckAccept
        DataField = 'Remark'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
    end
  end
  inherited ActionList1: TActionList
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmGoodsCheckAcpt'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Visible = False
    end
  end
  object CdsGoodsCheckAccept: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspGoodsCheckAccept'
    RemoteServer = DcomCnn
    AfterScroll = CdsGoodsCheckAcceptAfterScroll
    OnNewRecord = CdsGoodsCheckAcceptNewRecord
    OnReconcileError = CdsGoodsCheckAcceptReconcileError
    Left = 136
    Top = 176
    object CdsGoodsCheckAcceptFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsGoodsCheckAcceptBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsGoodsCheckAcceptCheckKind: TSmallintField
      FieldName = 'CheckKind'
    end
    object CdsGoodsCheckAcceptCheckType: TSmallintField
      FieldName = 'CheckType'
    end
    object CdsGoodsCheckAcceptProvNo: TStringField
      FieldName = 'ProvNo'
      Size = 8
    end
    object CdsGoodsCheckAcceptProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsGoodsCheckAcceptPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsGoodsCheckAcceptRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsGoodsCheckAcceptAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsGoodsCheckAcceptTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsGoodsCheckAcceptCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsGoodsCheckAcceptMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsGoodsCheckAcceptGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsGoodsCheckAcceptadsGoodsCheckAcceptDtl: TDataSetField
      FieldName = 'adsGoodsCheckAcceptDtl'
    end
    object CdsGoodsCheckAcceptCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
  end
  object CdsGoodsCheckAcceptDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsGoodsCheckAcceptadsGoodsCheckAcceptDtl
    Params = <>
    BeforeInsert = CdsGoodsCheckAcceptDtlBeforeInsert
    AfterDelete = CdsGoodsCheckAcceptDtlAfterDelete
    OnNewRecord = CdsGoodsCheckAcceptDtlNewRecord
    OnReconcileError = CdsGoodsCheckAcceptDtlReconcileError
    Left = 262
    Top = 176
    object CdsGoodsCheckAcceptDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsGoodsCheckAcceptDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsGoodsCheckAcceptDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsGoodsCheckAcceptDtlGoodsIDChange
      Size = 16
    end
    object CdsGoodsCheckAcceptDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsGoodsCheckAcceptDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsGoodsCheckAcceptDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsGoodsCheckAcceptDtlCheckQty: TBCDField
      FieldName = 'CheckQty'
      OnChange = CdsGoodsCheckAcceptDtlCheckQtyChange
      Precision = 12
      Size = 3
    end
    object CdsGoodsCheckAcceptDtlPrice: TFloatField
      FieldName = 'Price'
      OnChange = CdsGoodsCheckAcceptDtlCheckQtyChange
      Precision = 19
      Size = 6
    end
    object CdsGoodsCheckAcceptDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsGoodsCheckAcceptDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsGoodsCheckAcceptDtlGermicidalNo: TStringField
      FieldName = 'GermicidalNo'
      Size = 12
    end
    object CdsGoodsCheckAcceptDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
    end
    object CdsGoodsCheckAcceptDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsGoodsCheckAcceptDtlPdcAddr: TStringField
      FieldName = 'PdcAddr'
      Size = 12
    end
    object CdsGoodsCheckAcceptDtlMakerName: TStringField
      FieldName = 'MakerName'
      Size = 40
    end
    object CdsGoodsCheckAcceptDtlVerifyReport: TStringField
      FieldName = 'VerifyReport'
    end
    object CdsGoodsCheckAcceptDtlPassGateNo: TStringField
      FieldName = 'PassGateNo'
    end
    object CdsGoodsCheckAcceptDtlPassNO: TStringField
      FieldName = 'PassNO'
      Size = 40
    end
    object CdsGoodsCheckAcceptDtlBrand: TStringField
      FieldName = 'Brand'
    end
    object CdsGoodsCheckAcceptDtlRegisterCardNo: TStringField
      FieldName = 'RegisterCardNo'
    end
    object CdsGoodsCheckAcceptDtlEligibleCard: TStringField
      FieldName = 'EligibleCard'
    end
    object CdsGoodsCheckAcceptDtlQualityState: TStringField
      FieldName = 'QualityState'
    end
    object CdsGoodsCheckAcceptDtlPackageState: TStringField
      FieldName = 'PackageState'
    end
    object CdsGoodsCheckAcceptDtlLabelState: TStringField
      FieldName = 'LabelState'
    end
    object CdsGoodsCheckAcceptDtlDirections: TStringField
      FieldName = 'Directions'
    end
    object CdsGoodsCheckAcceptDtlEligibleQty: TBCDField
      FieldName = 'EligibleQty'
      OnChange = CdsGoodsCheckAcceptDtlEligibleQtyChange
      Precision = 12
      Size = 3
    end
    object CdsGoodsCheckAcceptDtlRejectQty: TBCDField
      FieldName = 'RejectQty'
      OnChange = CdsGoodsCheckAcceptDtlRejectQtyChange
      Precision = 12
      Size = 3
    end
    object CdsGoodsCheckAcceptDtlCheckVerdict: TStringField
      FieldName = 'CheckVerdict'
      Size = 12
    end
    object CdsGoodsCheckAcceptDtlChecker: TStringField
      FieldName = 'Checker'
      Size = 8
    end
    object CdsGoodsCheckAcceptDtlCheckDate: TDateTimeField
      FieldName = 'CheckDate'
    end
    object CdsGoodsCheckAcceptDtlAccepter: TStringField
      FieldName = 'Accepter'
      Size = 8
    end
    object CdsGoodsCheckAcceptDtlRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object CdsGoodsCheckAcceptDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsGoodsCheckAcceptDtlPItemNO: TIntegerField
      FieldName = 'PItemNO'
    end
  end
  object DcomCnn: TDCOMConnection
    ServerGUID = '{45B1C149-A01D-49BA-9D02-C7BA71DC7CF2}'
    ServerName = 'ckPurchBase.coPurchBase'
    Left = 49
    Top = 176
  end
  object DsGoodsCheckAccept: TDataSource
    DataSet = CdsGoodsCheckAccept
    Left = 134
    Top = 239
  end
  object DsGoodsCheckAcceptDtl: TDataSource
    DataSet = CdsGoodsCheckAcceptDtl
    Left = 261
    Top = 240
  end
end