pchorder.~dfm

群星医药系统源码

            FieldName = 'ProvGoodsID'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 80
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 421
      Width = 782
      Height = 81
      object RzLabel15: TRzLabel
        Left = 615
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #21512#35745#65306
      end
      object RzLabel21: TRzLabel
        Left = 11
        Top = 61
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #22791'    '#27880#65306
      end
      object RzLabel12: TRzLabel
        Left = 191
        Top = 10
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #36135#21697#24635#25968#65306
      end
      object RzLabel13: TRzLabel
        Left = 333
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #36135#27454#65306
      end
      object RzLabel14: TRzLabel
        Left = 471
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #31246#27454#65306
      end
      object RzLabel10: TRzLabel
        Left = 10
        Top = 36
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #36816#36755#26041#24335#65306
      end
      object RzLabel11: TRzLabel
        Left = 471
        Top = 36
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #36816#36755#21040#31449#65306
      end
      object RzLabel9: TRzLabel
        Left = 10
        Top = 10
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #20132#36135#26041#24335#65306
      end
      object RzLabel7: TRzLabel
        Left = 471
        Top = 61
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 519
        Top = 61
        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 = DsPchOrder
      end
      object RzLabel16: TRzLabel
        Left = 591
        Top = 61
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 651
        Top = 61
        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 = DsPchOrder
      end
      object RzLabel6: TRzLabel
        Left = 191
        Top = 36
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #20132#36135#22320#28857#65306
      end
      object RzDBEdit4: TRzDBEdit
        Left = 70
        Top = 32
        Width = 113
        Height = 19
        DataSource = DsPchOrder
        DataField = 'CarrKind'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBEdit3: TRzDBEdit
        Left = 70
        Top = 6
        Width = 113
        Height = 19
        DataSource = DsPchOrder
        DataField = 'DealMode'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object RzDBNumericEdit2: TRzDBEdit
        Tag = -1
        Left = 369
        Top = 6
        Width = 85
        Height = 19
        DataSource = DsPchOrder
        DataField = 'GoodsSum'
        ReadOnly = True
        AutoSize = False
        FrameVisible = True
        TabOrder = 2
      end
      object RzDBNumericEdit3: TRzDBEdit
        Tag = -1
        Left = 509
        Top = 6
        Width = 85
        Height = 19
        DataSource = DsPchOrder
        DataField = 'TaxSum'
        ReadOnly = True
        AutoSize = False
        FrameVisible = True
        TabOrder = 3
      end
      object RzDBEdit7: TRzDBEdit
        Left = 251
        Top = 6
        Width = 65
        Height = 20
        DataSource = DsPchOrder
        DataField = 'GoodsQty'
        FrameVisible = True
        TabOrder = 4
      end
      object RzDBEdit2: TRzDBEdit
        Left = 251
        Top = 32
        Width = 203
        Height = 19
        DataSource = DsPchOrder
        DataField = 'PickAddr'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 5
      end
      object RzDBEdit5: TRzDBEdit
        Left = 70
        Top = 57
        Width = 384
        Height = 19
        DataSource = DsPchOrder
        DataField = 'ReMark'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 6
      end
      object RzDBEdit6: TRzDBEdit
        Left = 531
        Top = 30
        Width = 241
        Height = 19
        DataSource = DsPchOrder
        DataField = 'CarrAddr'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object RzDBEdit12: TRzDBEdit
        Left = 652
        Top = 6
        Width = 119
        Height = 19
        DataSource = DsPchOrder
        DataField = 'Amount'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 558
    Top = 306
  end
  inherited ImageList1: TImageList
    Left = 409
    Top = 306
  end
  inherited ActionList1: TActionList
    Left = 484
    Top = 306
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmPchOrderQuery'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      OnExecute = ActBillTurnExecute
      ModuleFile = 'PurchBase.bpl;TFmPchCheckIn'
    end
    object ActFinish: TModlAction
      Category = 'Bill'
      Caption = #32467#26696
      ImageIndex = 28
      OnExecute = ActFinishExecute
      Flag2 = 0
      Remark = 'R'
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 248
  end
  inherited ImgPopMenu: TImageList
    Left = 328
    Top = 308
  end
  object DsPchOrderDtl: TDataSource
    DataSet = CdsPchOrderDtl
    Left = 405
    Top = 227
  end
  object CdsPchOrderDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsPchOrderadsPchOrderDtl
    IndexFieldNames = 'ItemNo'
    Params = <>
    BeforeInsert = CdsPchOrderDtlBeforeInsert
    AfterPost = CdsPchOrderDtlAfterPost
    AfterDelete = CdsPchOrderDtlAfterPost
    OnNewRecord = CdsPchOrderDtlNewRecord
    Left = 318
    Top = 227
    object CdsPchOrderDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Visible = False
    end
    object CdsPchOrderDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchOrderDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      Required = True
      OnChange = CdsPchOrderDtlGoodsIDChange
      Size = 16
    end
    object CdsPchOrderDtlname: TStringField
      FieldName = 'name'
      ProviderFlags = []
      Size = 24
    end
    object CdsPchOrderDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsPchOrderDtlProvGoodsID: TStringField
      FieldName = 'ProvGoodsID'
      Size = 16
    end
    object CdsPchOrderDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsPchOrderDtlQty: TBCDField
      FieldName = 'Qty'
      Required = True
      OnChange = CdsPchOrderDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsPchOrderDtlOPrice: TFloatField
      FieldName = 'OPrice'
      Required = True
      OnChange = CdsPchOrderDtlQtyChange
      DisplayFormat = '##.000000'
    end
    object CdsPchOrderDtlRebate: TBCDField
      FieldName = 'Rebate'
      OnChange = CdsPchOrderDtlQtyChange
      Precision = 8
      Size = 2
    end
    object CdsPchOrderDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsPchOrderDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsPchOrderDtlPrice: TFloatField
      FieldName = 'Price'
      Required = True
      OnChange = CdsPchOrderDtlPriceChange
      DisplayFormat = '##.000000'
    end
    object CdsPchOrderDtlUnTaxprice: TFloatField
      FieldName = 'UnTaxPrice'
      Required = True
      OnChange = CdsPchOrderDtlUnTaxpriceChange
      DisplayFormat = '##.000000'
    end
    object CdsPchOrderDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchOrderDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchOrderDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchOrderDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsPchOrderDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 12
      Size = 3
    end
  end
  object DsPchOrder: TDataSource
    DataSet = CdsPchOrder
    Left = 233
    Top = 227
  end
  object CdsPchOrder: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'BillNo'
        ParamType = ptInput
        Value = 'null'
      end>
    ProviderName = 'DspPchOrder'
    RemoteServer = Comcnn
    AfterScroll = CdsPchOrderAfterScroll
    OnNewRecord = CdsPchOrderNewRecord
    OnReconcileError = CdsPchOrderReconcileError
    Left = 159
    Top = 228
    object CdsPchOrderBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchOrderFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsPchOrderDealDate: TDateTimeField
      FieldName = 'DealDate'
    end
    object CdsPchOrderEmpNO: TStringField
      FieldName = 'EmpNO'
      Origin = ';'
      OnChange = CdsPchOrderEmpNoChange
      Size = 8
    end
    object CdsPchOrderName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object CdsPchOrderAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsPchOrderContractNO: TStringField
      FieldName = 'ContractNO'
    end
    object CdsPchOrderProvNO: TStringField
      FieldName = 'ProvNO'
      OnChange = CdsPchOrderProvNoChange
      Size = 8
    end
    object CdsPchOrderProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsPchOrderLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsPchOrderDealMode: TStringField
      FieldName = 'DealMode'
      Size = 12
    end
    object CdsPchOrderCarrKind: TStringField
      FieldName = 'CarrKind'
      Size = 12
    end
    object CdsPchOrderCarrAddr: TStringField
      FieldName = 'CarrAddr'
      Size = 16
    end
    object CdsPchOrderGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsPchOrderGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchOrderTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchOrderAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchOrderPayMentMode: TStringField
      FieldName = 'PayMentMode'
      Size = 6
    end
    object CdsPchOrderPayModeName: TStringField
      FieldName = 'PayModeName'
      ProviderFlags = []
      Size = 16
    end
    object CdsPchOrderTimeLimit: TIntegerField
      FieldName = 'TimeLimit'
      ProviderFlags = []
    end
    object CdsPchOrderPayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object CdsPchOrderReMark: TStringField
      FieldName = 'ReMark'
      Size = 100
    end
    object CdsPchOrderTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsPchOrderFinish: TBooleanField
      FieldName = 'Finish'
    end
    object CdsPchOrderCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsPchOrderGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsPchOrderadsPchOrderDtl: TDataSetField
      FieldName = 'adsPchOrderDtl'
    end
    object CdsPchOrderMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsPchOrderSignAddr: TStringField
      FieldName = 'SignAddr'
      Size = 80
    end
    object CdsPchOrderBeginDate: TDateTimeField
      FieldName = 'BeginDate'
    end
    object CdsPchOrderEndDate: TDateTimeField
      FieldName = 'EndDate'
    end
    object CdsPchOrderContractType: TStringField
      FieldName = 'ContractType'
      Size = 16
    end
    object CdsPchOrderPickAddr: TStringField
      FieldName = 'PickAddr'
      Size = 60
    end
    object CdsPchOrderCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
  end
  object Comcnn: TDCOMConnection
    ServerGUID = '{45B1C149-A01D-49BA-9D02-C7BA71DC7CF2}'
    ServerName = 'ckPurchBase.coPurchBase'
    Left = 63
    Top = 227
  end
end