selexportfrm.~dfm

群星医药系统源码

            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
              end
              item
                EditButtons = <>
                FieldName = 'Amount'
                Footers = <>
                Title.Alignment = taCenter
                Width = 76
              end
              item
                EditButtons = <>
                FieldName = 'Remark'
                Footers = <>
                Title.Alignment = taCenter
                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 = 394
        Top = 35
        Width = 36
        Height = 12
        Caption = #21019#24314#32773
      end
      object RzDBLabel1: TRzDBLabel
        Left = 438
        Top = 35
        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 = DsSelExport
      end
      object RzLabel16: TRzLabel
        Left = 570
        Top = 35
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 623
        Top = 35
        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 = DsSelExport
      end
      object RzDBEdit4: TRzDBEdit
        Tag = -1
        Left = 83
        Top = 4
        Width = 93
        Height = 20
        DataSource = DsSelExport
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit5: TRzDBEdit
        Tag = -1
        Left = 263
        Top = 4
        Width = 93
        Height = 20
        DataSource = DsSelExport
        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 = DsSelExport
        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 = DsSelExport
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 4
      end
      object DBEdit16: TRzDBEdit
        Left = 83
        Top = 30
        Width = 274
        Height = 20
        DataSource = DsSelExport
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
    end
  end
  inherited ActionList1: TActionList
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmSelExportQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Visible = False
    end
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 245
    Top = 228
  end
  object CdsSelExport: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspSelExport'
    RemoteServer = DComConn
    AfterScroll = CdsSelExportAfterScroll
    OnNewRecord = CdsSelExportNewRecord
    OnReconcileError = CdsSelExportReconcileError
    Left = 317
    Top = 228
    object CdsSelExportBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelExportFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsSelExportInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsSelExportOrderNo: TStringField
      FieldName = 'OrderNo'
    end
    object CdsSelExportContractNo: TStringField
      FieldName = 'ContractNo'
    end
    object CdsSelExportEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = CdsSelExportEmpNoChange
      Size = 8
    end
    object CdsSelExportEmpName: TStringField
      FieldName = 'EmpName'
      ProviderFlags = []
      Size = 12
    end
    object CdsSelExportAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsSelExportCustNo: TStringField
      FieldName = 'CustNo'
      OnChange = CdsSelExportCustNoChange
      Size = 8
    end
    object CdsSelExportCustName: TStringField
      FieldName = 'CustName'
      ProviderFlags = []
    end
    object CdsSelExportLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsSelExportGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsSelExportGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelExportTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelExportAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelExportPayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 6
    end
    object CdsSelExportPayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object CdsSelExportRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsSelExportFungible: TBooleanField
      FieldName = 'Fungible'
    end
    object CdsSelExportTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsSelExportFinish: TBooleanField
      FieldName = 'Finish'
    end
    object CdsSelExportGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsSelExportAdsSelExpense: TDataSetField
      FieldName = 'AdsSelExpense'
    end
    object CdsSelExportAdsSelExportDtl: TDataSetField
      FieldName = 'AdsSelExportDtl'
    end
    object CdsSelExportCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsSelExportCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsSelExportMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsSelExportUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
  end
  object DsSelExport: TDataSource
    DataSet = CdsSelExport
    Left = 393
    Top = 228
  end
  object CdsSelExportDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsSelExportAdsSelExportDtl
    FetchOnDemand = False
    Params = <>
    BeforeInsert = CdsSelExportDtlBeforeInsert
    AfterPost = CdsSelExportDtlAfterPost
    AfterDelete = CdsSelExportDtlAfterPost
    OnNewRecord = CdsSelExportDtlNewRecord
    Left = 316
    Top = 284
    object CdsSelExportDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelExportDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelExportDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsSelExportDtlGoodsIDChange
      Size = 16
    end
    object CdsSelExportDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsSelExportDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsSelExportDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsSelExportDtlQty: TBCDField
      FieldName = 'Qty'
      Required = True
      OnChange = CdsSelExportDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsSelExportDtlOPrice: TFloatField
      FieldName = 'OPrice'
      OnChange = CdsSelExportDtlOPriceChange
    end
    object CdsSelExportDtlRebate: TBCDField
      FieldName = 'Rebate'
      OnChange = CdsSelExportDtlQtyChange
      MaxValue = 100.000000000000000000
      Precision = 8
      Size = 2
    end
    object CdsSelExportDtlPrice: TFloatField
      FieldName = 'Price'
    end
    object CdsSelExportDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsSelExportDtlQtyChange
      Precision = 6
      Size = 2
    end
    object CdsSelExportDtlUnTaxPrice: TFloatField
      FieldName = 'UnTaxPrice'
    end
    object CdsSelExportDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelExportDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelExportDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelExportDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsSelExportDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
    end
    object CdsSelExportDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsSelExportDtlWholeDepot: TIntegerField
      FieldName = 'WholeDepot'
    end
    object CdsSelExportDtlWholeDepotNo: TStringField
      FieldName = 'WholeDepotNo'
      Size = 12
    end
    object CdsSelExportDtlWholeDepotName: TStringField
      FieldName = 'WholeDepotName'
    end
    object CdsSelExportDtlMidPackQty: TBCDField
      FieldName = 'MidPackQty'
      ReadOnly = True
      Precision = 23
      Size = 0
    end
    object CdsSelExportDtlBigPackQty: TBCDField
      FieldName = 'BigPackQty'
      ReadOnly = True
      Precision = 23
      Size = 0
    end
    object CdsSelExportDtlDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsSelExportDtlDepotNO: TStringField
      FieldName = 'DepotNO'
      ProviderFlags = []
      OnChange = CdsSelExportDtlDepotNOChange
      Size = 12
    end
    object CdsSelExportDtlDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object CdsSelExportDtlBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object CdsSelExportDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsSelExportDtlProvNo: TStringField
      FieldName = 'ProvNo'
      Size = 8
    end
    object CdsSelExportDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsSelExportDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 8
      Size = 3
    end
    object CdsSelExportDtlCustGoodsID: TStringField
      FieldName = 'CustGoodsID'
      Size = 16
    end
  end
  object DsSelExportDtl: TDataSource
    DataSet = CdsSelExportDtl
    Left = 393
    Top = 284
  end
  object CdsSelExpense: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsSelExportAdsSelExpense
    FetchOnDemand = False
    Params = <>
    OnNewRecord = CdsSelExpenseNewRecord
    Left = 501
    Top = 232
    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 DsSelExpense: TDataSource
    DataSet = CdsSelExpense
    Left = 581
    Top = 228
  end
end