selretdemandfrm.dfm

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

      end
      object Label9: TLabel
        Left = 8
        Top = 11
        Width = 60
        Height = 12
        Caption = #36135#21697#24635#25968#65306
      end
      object RzLabel7: TRzLabel
        Left = 406
        Top = 37
        Width = 36
        Height = 12
        Caption = #21019#24314#32773
      end
      object RzDBLabel1: TRzDBLabel
        Left = 449
        Top = 37
        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 = DsSelRetDemand
      end
      object RzLabel16: TRzLabel
        Left = 544
        Top = 37
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 598
        Top = 37
        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 = DsSelRetDemand
      end
      object Label11: TLabel
        Left = 208
        Top = 11
        Width = 42
        Height = 12
        Caption = #36135' '#27454#65306
      end
      object Label12: TLabel
        Left = 404
        Top = 11
        Width = 42
        Height = 12
        Caption = #31246' '#27454#65306
      end
      object Label13: TLabel
        Left = 606
        Top = 11
        Width = 42
        Height = 12
        Caption = #21512' '#35745#65306
      end
      object DBEdit10: TRzDBEdit
        Left = 67
        Top = 33
        Width = 310
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 0
      end
      object DBEdit9: TRzDBEdit
        Tag = -1
        Left = 67
        Top = 6
        Width = 113
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit2: TRzDBEdit
        Tag = -1
        Left = 252
        Top = 6
        Width = 125
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 2
      end
      object RzDBEdit3: TRzDBEdit
        Tag = -1
        Left = 448
        Top = 6
        Width = 125
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 3
      end
      object RzDBEdit4: TRzDBEdit
        Tag = -1
        Left = 652
        Top = 6
        Width = 113
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 4
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 200
    Top = 200
  end
  inherited ImageList1: TImageList
    Left = 268
    Top = 200
  end
  inherited ActionList1: TActionList
    Left = 352
    Top = 200
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmSelRetDmandQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Caption = #24223#38500
      OnExecute = ActBillTurnExecute
      ModuleFile = 'SalesBase.Bpl;TFmSelGoodsCheckAccept'
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 500
    Top = 204
  end
  inherited ImgPopMenu: TImageList
    Left = 424
    Top = 204
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 201
    Top = 276
  end
  object CdsSelRetDemand: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptInput
      end>
    ProviderName = 'DspSelRetDemand'
    RemoteServer = DComConn
    AfterScroll = CdsSelRetDemandAfterScroll
    OnNewRecord = CdsSelRetDemandNewRecord
    OnReconcileError = CdsSelRetDemandReconcileError
    Left = 292
    Top = 280
    object CdsSelRetDemandBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelRetDemandFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsSelRetDemandContractNo: TStringField
      FieldName = 'ContractNo'
    end
    object CdsSelRetDemandEmpNo: TStringField
      FieldName = 'EmpNo'
      Size = 8
    end
    object CdsSelRetDemandEmpName: TStringField
      FieldName = 'EmpName'
      ProviderFlags = []
      Size = 12
    end
    object CdsSelRetDemandAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsSelRetDemandCustNo: TStringField
      FieldName = 'CustNo'
      OnChange = CdsSelRetDemandCustNoChange
      Size = 8
    end
    object CdsSelRetDemandCustName: TStringField
      FieldName = 'CustName'
      ProviderFlags = []
    end
    object CdsSelRetDemandLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsSelRetDemandGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsSelRetDemandGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelRetDemandTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelRetDemandAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelRetDemandRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsSelRetDemandFungible: TBooleanField
      FieldName = 'Fungible'
    end
    object CdsSelRetDemandTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsSelRetDemandAbated: TBooleanField
      FieldName = 'Abated'
    end
    object CdsSelRetDemandCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsSelRetDemandMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsSelRetDemandGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsSelRetDemandCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsSelRetDemandUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object CdsSelRetDemandAdsSelRetDemandDtl: TDataSetField
      FieldName = 'AdsSelRetDemandDtl'
    end
  end
  object DsSelRetDemand: TDataSource
    DataSet = CdsSelRetDemand
    Left = 401
    Top = 276
  end
  object DsSelRetDemandDtl: TDataSource
    DataSet = CdsSelRetDemandDtl
    Left = 401
    Top = 328
  end
  object CdsSelRetDemandDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsSelRetDemandAdsSelRetDemandDtl
    Params = <>
    BeforeInsert = CdsSelRetDemandDtlBeforeInsert
    AfterPost = CdsSelRetDemandDtlAfterPost
    AfterDelete = CdsSelRetDemandDtlAfterPost
    OnNewRecord = CdsSelRetDemandDtlNewRecord
    Left = 296
    Top = 328
    object CdsSelRetDemandDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelRetDemandDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelRetDemandDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsSelRetDemandDtlGoodsIDChange
      Size = 16
    end
    object CdsSelRetDemandDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsSelRetDemandDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsSelRetDemandDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsSelRetDemandDtlQty: TBCDField
      FieldName = 'Qty'
      OnChange = CdsSelRetDemandDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsSelRetDemandDtlOPrice: TFloatField
      FieldName = 'OPrice'
      OnChange = CdsSelRetDemandDtlQtyChange
    end
    object CdsSelRetDemandDtlRebate: TBCDField
      FieldName = 'Rebate'
      OnChange = CdsSelRetDemandDtlQtyChange
      Precision = 8
      Size = 2
    end
    object CdsSelRetDemandDtlPrice: TFloatField
      FieldName = 'Price'
      OnChange = CdsSelRetDemandDtlPriceChange
    end
    object CdsSelRetDemandDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsSelRetDemandDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsSelRetDemandDtlUnTaxPrice: TFloatField
      FieldName = 'UnTaxPrice'
      OnChange = CdsSelRetDemandDtlUnTaxPriceChange
    end
    object CdsSelRetDemandDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelRetDemandDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelRetDemandDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelRetDemandDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsSelRetDemandDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
    end
    object CdsSelRetDemandDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
  end
end