selreturnfrm.dfm

群星医药系统源码

            Tag = -1
            Left = 0
            Top = 0
            Width = 774
            Height = 335
            Align = alClient
            AllowedOperations = [alopUpdateEh, alopAppendEh]
            AutoFitColWidths = True
            DataSource = dsSelExpense
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = GB2312_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -12
            FooterFont.Name = #23435#20307
            FooterFont.Style = []
            RowHeight = 18
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            TitleHeight = 17
            RowColorsUse = True
            RowColor1 = 16772846
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ExpenseType'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #36153#29992#39033#30446
              end
              item
                EditButtons = <>
                FieldName = 'Amount'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #37329#39069
                Width = 113
              end
              item
                EditButtons = <>
                FieldName = 'Remark'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #36153#29992#25551#36848
                Width = 143
              end>
          end
        end
      end
    end
    inherited plFooter: TRzPanel
      Top = 450
      Width = 778
      Height = 55
      object Label12: TLabel
        Left = 27
        Top = 8
        Width = 48
        Height = 12
        Caption = #36135#21697#24635#25968
      end
      object Label16: TLabel
        Left = 227
        Top = 8
        Width = 24
        Height = 12
        Caption = #36135#27454
      end
      object Label19: TLabel
        Left = 407
        Top = 8
        Width = 24
        Height = 12
        Caption = #31246#27454
      end
      object Label20: TLabel
        Left = 591
        Top = 8
        Width = 24
        Height = 12
        Caption = #21512#35745
      end
      object Label21: TLabel
        Left = 27
        Top = 34
        Width = 48
        Height = 12
        Caption = #22791'    '#27880
      end
      object RzLabel7: TRzLabel
        Left = 396
        Top = 33
        Width = 36
        Height = 12
        Caption = #21019#24314#32773
      end
      object RzDBLabel1: TRzDBLabel
        Left = 438
        Top = 32
        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 = dsSelReturn
      end
      object RzLabel16: TRzLabel
        Left = 566
        Top = 33
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 623
        Top = 32
        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 = dsSelReturn
      end
      object RzDBEdit4: TRzDBEdit
        Tag = -1
        Left = 83
        Top = 4
        Width = 93
        Height = 20
        DataSource = dsSelReturn
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit5: TRzDBEdit
        Tag = -1
        Left = 259
        Top = 4
        Width = 93
        Height = 20
        DataSource = dsSelReturn
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 2
      end
      object RzDBEdit6: TRzDBEdit
        Tag = -1
        Left = 439
        Top = 4
        Width = 93
        Height = 20
        DataSource = dsSelReturn
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 3
      end
      object RzDBEdit7: TRzDBEdit
        Tag = -1
        Left = 623
        Top = 4
        Width = 93
        Height = 20
        DataSource = dsSelReturn
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 4
      end
      object DBEdit16: TRzDBEdit
        Left = 83
        Top = 30
        Width = 270
        Height = 20
        DataSource = dsSelReturn
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
    end
  end
  inherited ActionList1: TActionList
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmSelReturnQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Visible = False
      ModuleFile = 'SalesBase.bpl;TFmSelGoodsCheckAccept'
    end
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 245
    Top = 228
  end
  object dsSelReturn: TDataSource
    DataSet = cdsSelReturn
    Left = 393
    Top = 228
  end
  object dsSelReturnDtl: TDataSource
    DataSet = cdsSelReturnDtl
    Left = 396
    Top = 284
  end
  object dsSelExpense: TDataSource
    DataSet = cdsSelExpense
    Left = 581
    Top = 226
  end
  object cdsSelExpense: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <>
    OnNewRecord = cdsSelExpenseNewRecord
    Left = 501
    Top = 227
    object cdsSelExpenseBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsSelExpenseExpenseType: TStringField
      FieldName = 'ExpenseType'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 12
    end
    object cdsSelExpenseAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object cdsSelExpenseRemark: TStringField
      FieldName = 'Remark'
      Size = 60
    end
  end
  object cdsSelReturn: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspSelExport'
    RemoteServer = DComConn
    AfterScroll = cdsSelReturnAfterScroll
    OnNewRecord = cdsSelReturnNewRecord
    OnReconcileError = cdsSelReturnReconcileError
    Left = 317
    Top = 228
    object cdsSelReturnBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsSelReturnFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object cdsSelReturnInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object cdsSelReturnOrderNo: TStringField
      FieldName = 'OrderNo'
    end
    object cdsSelReturnContractNo: TStringField
      FieldName = 'ContractNo'
    end
    object cdsSelReturnEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = cdsSelReturnEmpNoChange
      Size = 8
    end
    object cdsSelReturnEmpName: TStringField
      FieldName = 'EmpName'
      ProviderFlags = []
      Size = 12
    end
    object cdsSelReturnAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object cdsSelReturnCustNo: TStringField
      FieldName = 'CustNo'
      OnChange = cdsSelReturnCustNoChange
      Size = 8
    end
    object cdsSelReturnCustName: TStringField
      FieldName = 'CustName'
      ProviderFlags = []
    end
    object cdsSelReturnLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object cdsSelReturnGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object cdsSelReturnGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object cdsSelReturnTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object cdsSelReturnAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object cdsSelReturnPayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 6
    end
    object cdsSelReturnPayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object cdsSelReturnRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object cdsSelReturnFungible: TBooleanField
      FieldName = 'Fungible'
    end
    object cdsSelReturnTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object cdsSelReturnFinish: TBooleanField
      FieldName = 'Finish'
    end
    object cdsSelReturnGrup: TIntegerField
      FieldName = 'Grup'
    end
    object cdsSelReturnAdsSelExpense: TDataSetField
      FieldName = 'AdsSelExpense'
    end
    object cdsSelReturnAdsSelExportDtl: TDataSetField
      FieldName = 'AdsSelExportDtl'
    end
    object cdsSelReturnCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object cdsSelReturnCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object cdsSelReturnMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object cdsSelReturnUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
  end
  object cdsSelReturnDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = cdsSelReturnAdsSelExportDtl
    FetchOnDemand = False
    Params = <>
    BeforeInsert = cdsSelReturnDtlBeforeInsert
    AfterPost = cdsSelReturnDtlAfterPost
    AfterDelete = cdsSelReturnDtlAfterPost
    OnNewRecord = cdsSelReturnDtlNewRecord
    Left = 316
    Top = 284
    object cdsSelReturnDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsSelReturnDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsSelReturnDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = cdsSelReturnDtlGoodsIDChange
      Size = 16
    end
    object cdsSelReturnDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object cdsSelReturnDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object cdsSelReturnDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object cdsSelReturnDtlQty: TBCDField
      FieldName = 'Qty'
      Required = True
      OnChange = cdsSelReturnDtlOPriceChange
      Precision = 12
      Size = 3
    end
    object cdsSelReturnDtlOPrice: TFloatField
      FieldName = 'OPrice'
      OnChange = cdsSelReturnDtlOPriceChange
    end
    object cdsSelReturnDtlRebate: TBCDField
      FieldName = 'Rebate'
      OnChange = cdsSelReturnDtlOPriceChange
      MaxValue = 100.000000000000000000
      Precision = 8
      Size = 2
    end
    object cdsSelReturnDtlPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsSelReturnDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      Precision = 6
      Size = 2
    end
    object cdsSelReturnDtlUnTaxPrice: TFloatField
      FieldName = 'UnTaxPrice'
    end
    object cdsSelReturnDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object cdsSelReturnDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object cdsSelReturnDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object cdsSelReturnDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object cdsSelReturnDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
    end
    object cdsSelReturnDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object cdsSelReturnDtlWholeDepot: TIntegerField
      FieldName = 'WholeDepot'
    end
    object cdsSelReturnDtlWholeDepotNo: TStringField
      FieldName = 'WholeDepotNo'
      Size = 12
    end
    object cdsSelReturnDtlWholeDepotName: TStringField
      FieldName = 'WholeDepotName'
    end
    object cdsSelReturnDtlMidPackQty: TBCDField
      FieldName = 'MidPackQty'
      ReadOnly = True
      Precision = 23
      Size = 0
    end
    object cdsSelReturnDtlBigPackQty: TBCDField
      FieldName = 'BigPackQty'
      ReadOnly = True
      Precision = 23
      Size = 0
    end
    object cdsSelReturnDtlDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object cdsSelReturnDtlDepotNO: TStringField
      FieldName = 'DepotNO'
      ProviderFlags = []
      OnChange = cdsSelReturnDtlDepotNOChange
      Size = 12
    end
    object cdsSelReturnDtlDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object cdsSelReturnDtlBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object cdsSelReturnDtlProvNo: TStringField
      FieldName = 'ProvNo'
      Size = 8
    end
    object cdsSelReturnDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object cdsSelReturnDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object cdsSelReturnDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 8
      Size = 3
    end
    object cdsSelReturnDtlCustGoodsID: TStringField
      FieldName = 'CustGoodsID'
      Size = 16
    end
  end
end