selorderfrm.~dfm

群星医药系统源码

    inherited plFooter: TRzPanel
      Top = 424
      Width = 782
      Height = 81
      object Label9: TLabel
        Left = 6
        Top = 10
        Width = 60
        Height = 12
        Caption = #20132#36135#26041#24335#65306
      end
      object Label11: TLabel
        Left = 6
        Top = 36
        Width = 60
        Height = 12
        Caption = #36816#36755#26041#24335#65306
      end
      object Label12: TLabel
        Left = 470
        Top = 36
        Width = 60
        Height = 12
        Caption = #36816#36755#21040#31449#65306
      end
      object Label19: TLabel
        Left = 6
        Top = 60
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306
      end
      object Label13: TLabel
        Left = 169
        Top = 10
        Width = 60
        Height = 12
        Caption = #36135#21697#24635#25968#65306
      end
      object Label14: TLabel
        Left = 333
        Top = 10
        Width = 36
        Height = 12
        Caption = #36135#27454#65306
      end
      object Label20: TLabel
        Left = 494
        Top = 10
        Width = 36
        Height = 12
        Caption = #31246#27454#65306
      end
      object Label21: TLabel
        Left = 638
        Top = 10
        Width = 36
        Height = 12
        Caption = #21512#35745#65306
      end
      object RzLabel7: TRzLabel
        Left = 482
        Top = 61
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 529
        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 = DsSelOrder
      end
      object RzLabel16: TRzLabel
        Left = 626
        Top = 61
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 683
        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 = DsSelOrder
      end
      object Label8: TLabel
        Left = 169
        Top = 36
        Width = 60
        Height = 12
        Caption = #20132#36135#22320#28857#65306
      end
      object DBEdit7: TRzDBEdit
        Left = 65
        Top = 6
        Width = 97
        Height = 20
        DataSource = DsSelOrder
        DataField = 'DealMode'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object DBEdit9: TRzDBEdit
        Left = 65
        Top = 32
        Width = 97
        Height = 20
        DataSource = DsSelOrder
        DataField = 'CarrKind'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object DBEdit10: TRzDBEdit
        Left = 529
        Top = 32
        Width = 249
        Height = 20
        DataSource = DsSelOrder
        DataField = 'CarrAddr'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
      object DBEdit17: TRzDBEdit
        Left = 65
        Top = 56
        Width = 400
        Height = 20
        DataSource = DsSelOrder
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 227
        Top = 6
        Width = 97
        Height = 20
        DataSource = DsSelOrder
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 4
      end
      object RzDBEdit2: TRzDBEdit
        Tag = -1
        Left = 366
        Top = 6
        Width = 99
        Height = 20
        DataSource = DsSelOrder
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 5
      end
      object RzDBEdit3: TRzDBEdit
        Tag = -1
        Left = 529
        Top = 6
        Width = 105
        Height = 20
        DataSource = DsSelOrder
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 6
      end
      object RzDBEdit4: TRzDBEdit
        Tag = -1
        Left = 673
        Top = 6
        Width = 105
        Height = 20
        DataSource = DsSelOrder
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 7
      end
      object RzDBEdit6: TRzDBEdit
        Left = 227
        Top = 32
        Width = 238
        Height = 20
        DataSource = DsSelOrder
        DataField = 'PickAddr'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Top = 220
  end
  inherited ImageList1: TImageList
    Left = 144
    Top = 220
  end
  inherited ActionList1: TActionList
    Left = 216
    Top = 220
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmSelOrderQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      OnExecute = ActBillTurnExecute
      ModuleFile = 'SalesBase.bpl;TFmSelExport'
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 284
    Top = 220
  end
  inherited ImgPopMenu: TImageList
    Left = 356
    Top = 220
  end
  object cdsSelOrder: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspSelOrder'
    RemoteServer = DComConn
    AfterScroll = cdsSelOrderAfterScroll
    OnNewRecord = cdsSelOrderNewRecord
    OnReconcileError = cdsSelOrderReconcileError
    Left = 548
    Top = 216
    object cdsSelOrderBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsSelOrderFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object cdsSelOrderDealDate: TDateTimeField
      FieldName = 'DealDate'
    end
    object cdsSelOrderEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = cdsSelOrderEmpNoChange
      Size = 8
    end
    object cdsSelOrderName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object cdsSelOrderContractNO: TStringField
      FieldName = 'ContractNO'
    end
    object cdsSelOrderCustNo: TStringField
      FieldName = 'CustNo'
      OnChange = cdsSelOrderCustNoChange
      Size = 8
    end
    object cdsSelOrderCustName: TStringField
      FieldName = 'CustName'
      ProviderFlags = []
    end
    object cdsSelOrderAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object cdsSelOrderLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object cdsSelOrderDealMode: TStringField
      FieldName = 'DealMode'
      Size = 12
    end
    object cdsSelOrderCarrKind: TStringField
      FieldName = 'CarrKind'
      Size = 12
    end
    object cdsSelOrderCarrAddr: TStringField
      FieldName = 'CarrAddr'
      Size = 16
    end
    object cdsSelOrderGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object cdsSelOrderGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object cdsSelOrderTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object cdsSelOrderAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object cdsSelOrderPayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 6
    end
    object cdsSelOrderPayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object cdsSelOrderRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object cdsSelOrderTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object cdsSelOrderFinish: TBooleanField
      FieldName = 'Finish'
    end
    object cdsSelOrderCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object cdsSelOrderMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object cdsSelOrderGrup: TIntegerField
      FieldName = 'Grup'
    end
    object cdsSelOrderadsSelOrderDtl: TDataSetField
      FieldName = 'adsSelOrderDtl'
    end
    object cdsSelOrderCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object cdsSelOrderSignAddr: TStringField
      FieldName = 'SignAddr'
      Size = 80
    end
    object cdsSelOrderBeginDate: TDateTimeField
      FieldName = 'BeginDate'
    end
    object cdsSelOrderEndDate: TDateTimeField
      FieldName = 'EndDate'
    end
    object cdsSelOrderContractType: TStringField
      FieldName = 'ContractType'
      Size = 16
    end
    object cdsSelOrderPickAddr: TStringField
      FieldName = 'PickAddr'
      Size = 60
    end
    object cdsSelOrderPayModeName: TStringField
      FieldName = 'PayModeName'
      Size = 16
    end
    object cdsSelOrderTimeLimit: TIntegerField
      FieldName = 'TimeLimit'
    end
  end
  object cdsSelOrderDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = cdsSelOrderadsSelOrderDtl
    FetchOnDemand = False
    Params = <>
    BeforeInsert = cdsSelOrderDtlBeforeInsert
    AfterPost = cdsSelOrderDtlAfterPost
    AfterDelete = cdsSelOrderDtlAfterPost
    OnNewRecord = cdsSelOrderDtlNewRecord
    Left = 548
    Top = 280
    object cdsSelOrderDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsSelOrderDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsSelOrderDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      Required = True
      OnChange = cdsSelOrderDtlGoodsIDChange
      Size = 16
    end
    object cdsSelOrderDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object cdsSelOrderDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object cdsSelOrderDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object cdsSelOrderDtlQty: TBCDField
      FieldName = 'Qty'
      Required = True
      OnChange = cdsSelOrderDtlQtyChange
      Precision = 12
      Size = 3
    end
    object cdsSelOrderDtlOPrice: TFloatField
      FieldName = 'OPrice'
      Required = True
      OnChange = cdsSelOrderDtlQtyChange
      Precision = 19
      Size = 6
    end
    object cdsSelOrderDtlRebate: TBCDField
      FieldName = 'Rebate'
      OnChange = cdsSelOrderDtlQtyChange
      Precision = 8
      Size = 2
    end
    object cdsSelOrderDtlPrice: TFloatField
      FieldName = 'Price'
      Precision = 19
      Size = 6
    end
    object cdsSelOrderDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = cdsSelOrderDtlQtyChange
      Precision = 6
      Size = 2
    end
    object cdsSelOrderDtlUnTaxPrice: TFloatField
      FieldName = 'UnTaxPrice'
      Precision = 19
      Size = 6
    end
    object cdsSelOrderDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object cdsSelOrderDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object cdsSelOrderDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object cdsSelOrderDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object cdsSelOrderDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 8
      Size = 3
    end
    object cdsSelOrderDtlCustGoodsID: TStringField
      FieldName = 'CustGoodsID'
      Size = 16
    end
  end
  object DsSelOrder: TDataSource
    DataSet = cdsSelOrder
    Left = 624
    Top = 216
  end
  object DsSelOrderDtl: TDataSource
    DataSet = cdsSelOrderDtl
    Left = 624
    Top = 276
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 461
    Top = 217
  end
end