selsettlefrm.~dfm

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

        Width = 85
        Height = 19
        DataSource = DsSelSettle
        DataField = 'GoodsSum'
        ReadOnly = True
        AutoSize = False
        FrameVisible = True
        TabOrder = 0
      end
      object RzDBNumericEdit3: TRzDBEdit
        Tag = -1
        Left = 493
        Top = 6
        Width = 85
        Height = 19
        DataSource = DsSelSettle
        DataField = 'TaxSum'
        ReadOnly = True
        AutoSize = False
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit2: TRzDBEdit
        Left = 71
        Top = 6
        Width = 214
        Height = 19
        DataSource = DsSelSettle
        DataField = 'Address'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
      object RzDBEdit5: TRzDBEdit
        Left = 71
        Top = 33
        Width = 349
        Height = 19
        DataSource = DsSelSettle
        DataField = 'ReMark'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object RzDBEdit12: TRzDBEdit
        Tag = -1
        Left = 652
        Top = 6
        Width = 116
        Height = 19
        DataSource = DsSelSettle
        DataField = 'Amount'
        ReadOnly = True
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      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 ActAudit: TModlAction
      ModuleFile = 'SalesBase.bpl;TFmSellPay'
    end
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmPchOrderQuery'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Visible = False
      OnExecute = ActBillTurnExecute
      ModuleFile = 'PurchBase.bpl;TFmPchCheckIn'
    end
    object ActFinish: TModlAction
      Category = 'Bill'
      Caption = #32467#26696
      ImageIndex = 28
      Visible = False
      Flag2 = 0
      Remark = 'R'
    end
  end
  inherited ImgPopMenu: TImageList
    Left = 320
    Top = 308
  end
  object DsSelSettleDtl: TDataSource
    DataSet = CdsSelSettleDtl
    Left = 409
    Top = 223
  end
  object CdsSelSettleDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsSelSettleAdsSelSettleDtl
    IndexFieldNames = 'ItemNo'
    Params = <>
    BeforeInsert = CdsSelSettleDtlBeforeInsert
    AfterPost = CdsSelSettleDtlAfterPost
    AfterCancel = CdsSelSettleDtlAfterCancel
    AfterDelete = CdsSelSettleDtlAfterPost
    OnNewRecord = CdsSelSettleDtlNewRecord
    Left = 318
    Top = 223
    object CdsSelSettleDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSettleDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSettleDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsSelSettleDtlGoodsIDChange
      Size = 16
    end
    object CdsSelSettleDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsSelSettleDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsSelSettleDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsSelSettleDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsSelSettleDtlQty: TBCDField
      FieldName = 'Qty'
      OnChange = CdsSelSettleDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsSelSettleDtlPrice: TFloatField
      FieldName = 'Price'
      OnChange = CdsSelSettleDtlPriceChange
      Precision = 19
      Size = 6
    end
    object CdsSelSettleDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsSelSettleDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsSelSettleDtlUnTaxPrice: TFloatField
      FieldName = 'UnTaxPrice'
      OnChange = CdsSelSettleDtlUnTaxPriceChange
      Precision = 19
      Size = 6
    end
    object CdsSelSettleDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelSettleDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelSettleDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelSettleDtlCostPrice: TFloatField
      FieldName = 'CostPrice'
      Precision = 19
      Size = 6
    end
    object CdsSelSettleDtlCostAmount: TBCDField
      FieldName = 'CostAmount'
      Precision = 19
    end
    object CdsSelSettleDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsSelSettleDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsSelSettleDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 19
    end
    object CdsSelSettleDtlPayDone: TBooleanField
      FieldName = 'PayDone'
    end
    object CdsSelSettleDtlPayDoneDate: TDateTimeField
      FieldName = 'PayDoneDate'
    end
    object CdsSelSettleDtlRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object DsSelSettle: TDataSource
    DataSet = CdsSelSettle
    Left = 229
    Top = 223
  end
  object CdsSelSettle: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'BillNo'
        ParamType = ptInput
        Value = 'null'
      end>
    ProviderName = 'DspSelSettle'
    RemoteServer = Comcnn
    AfterScroll = CdsSelSettleAfterScroll
    OnNewRecord = CdsSelSettleNewRecord
    OnReconcileError = CdsSelSettleReconcileError
    Left = 159
    Top = 224
    object CdsSelSettleBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSettleFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsSelSettleInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsSelSettleDepartID: TIntegerField
      FieldName = 'DepartID'
    end
    object CdsSelSettleDepartNo: TStringField
      FieldName = 'DepartNo'
      ProviderFlags = []
      Size = 12
    end
    object CdsSelSettleDepartName: TStringField
      FieldName = 'DepartName'
      ProviderFlags = []
    end
    object CdsSelSettleCustNo: TStringField
      FieldName = 'CustNo'
      Size = 8
    end
    object CdsSelSettleCustName: TStringField
      FieldName = 'CustName'
    end
    object CdsSelSettleLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsSelSettleCompanyName: TStringField
      FieldName = 'CompanyName'
      Size = 80
    end
    object CdsSelSettleTelephone: TStringField
      FieldName = 'Telephone'
    end
    object CdsSelSettleAddress: TStringField
      FieldName = 'Address'
      Size = 80
    end
    object CdsSelSettleAccountBank: TStringField
      FieldName = 'AccountBank'
      Size = 40
    end
    object CdsSelSettleAccountNo: TStringField
      FieldName = 'AccountNo'
    end
    object CdsSelSettleTaxNo: TStringField
      FieldName = 'TaxNo'
    end
    object CdsSelSettleOrderNo: TStringField
      FieldName = 'OrderNo'
    end
    object CdsSelSettleInvoiceType: TSmallintField
      FieldName = 'InvoiceType'
    end
    object CdsSelSettleInvoiceDate: TDateTimeField
      FieldName = 'InvoiceDate'
    end
    object CdsSelSettleInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Size = 40
    end
    object CdsSelSettleEmpNo: TStringField
      FieldName = 'EmpNo'
      Size = 8
    end
    object CdsSelSettleEmpName: TStringField
      FieldName = 'EmpName'
      ProviderFlags = []
      Size = 12
    end
    object CdsSelSettleAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsSelSettleGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsSelSettleGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelSettleTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelSettleAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelSettlePayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 6
    end
    object CdsSelSettlePayModeName: TStringField
      FieldName = 'PayModeName'
      ProviderFlags = []
      Size = 16
    end
    object CdsSelSettleTimeLimit: TIntegerField
      FieldName = 'TimeLimit'
      ProviderFlags = []
    end
    object CdsSelSettlePayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object CdsSelSettleGatherAtOnce: TBCDField
      FieldName = 'GatherAtOnce'
      Precision = 19
    end
    object CdsSelSettleTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsSelSettleRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsSelSettleFlag: TStringField
      FieldName = 'Flag'
    end
    object CdsSelSettleCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsSelSettleCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsSelSettleMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsSelSettleGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsSelSettleAdsSelSettleDtl: TDataSetField
      FieldName = 'AdsSelSettleDtl'
    end
  end
  object Comcnn: TDCOMConnection
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 63
    Top = 227
  end
end