invprintdm.dfm

供水营销打印程序源码

    RichEdit.TabDialog.TabDlgCaption = 'Tab'
    RichEdit.TabDialog.TabGroupBoxCaption = '&Tab Stop Position'
    RichEdit.TabDialog.SetTabButtonCaption = 'Set'
    RichEdit.TabDialog.ClearTabButtonCaption = 'Clear'
    RichEdit.TabDialog.ClearAllButtonCaption = 'Clear All'
    RichEdit.TabDialog.TabPositionEditHint = 'Tab Position Edit Box'
    RichEdit.TabDialog.ListBoxHint = 'List of tabs and their positions'
    RichEdit.TabDialog.SetButtonHint = 'Set a new tab position'
    RichEdit.TabDialog.ClearButtonHint = 'Clear the selected tab position'
    RichEdit.TabDialog.ClearAllButtonHint = 'Clear all the tabs'
    UserMessages.wwDBGridDiscardChanges = 'Discard changes to this record?'
    UserMessages.PictureValidateError = 'Invalid characters. Field : '
    UserMessages.LocateNoMatches = 'No matches found'
    UserMessages.LocateNoMoreMatches = 'No more matches found'
    UserMessages.MemoChangesWarning = 'Changes have been made!  Are you sure you wish to cancel?'
    UserMessages.RichEditExitWarning = 'Changes have been made!  Do you wish to save your changes?'
    UserMessages.RichEditClearWarning = 'Clear entire text?'
    UserMessages.RichEditSpellCheckComplete = 'The spell check is complete.'
    UserMessages.RichEditMSWordNotFound = 'Unable to start Microsoft Word'#39's Spell Checker.'
    UserMessages.FilterDlgNoCriteria = 'You have not selected any search criteria'
    UserMessages.RecordViewExitWarning = 'Changes have been made!  Do you wish to save your changes?'
    OKCancelBitmapped = True
    BtnOKCaption = #30830#23450'(&O)'
    BtnCancelCaption = #21462#28040
    CheckBoxInGridStyle = cbStyleAuto
    VersionInfoPower = '4000.T.A'
    FilterMemoSize = 65536
    DialogFontStyle = []
    Connected = True
    Left = 96
    Top = 16
  end
  object AqryPrint: TADOQuery
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = AqryPrintCalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select * from Waterfee where CustID = '#39'9999999999'#39' and Payflag =' +
        ' False')
    Left = 176
    Top = 64
    object AqryPrintWRID: TAutoIncField
      Alignment = taCenter
      DisplayLabel = #24207#21495
      FieldName = 'WRID'
      ReadOnly = True
      DisplayFormat = '00000000'
    end
    object AqryPrintCustID: TWideStringField
      Alignment = taCenter
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'CustID'
      Size = 13
    end
    object AqryPrintName: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'Name'
      Size = 128
    end
    object AqryPrintAddress: TWideStringField
      DisplayLabel = #32852#31995#22320#22336
      FieldName = 'Address'
      Size = 255
    end
    object AqryPrintsPrice: TBCDField
      DisplayLabel = #27700#36153#21333#20215
      FieldName = 'sPrice'
      currency = True
      Precision = 19
    end
    object AqryPrintwPrice: TBCDField
      DisplayLabel = #25490#27745#21333#20215
      FieldName = 'wPrice'
      currency = True
      Precision = 19
    end
    object AqryPrintSewagePercent: TIntegerField
      DisplayLabel = #27604#20363
      FieldName = 'SewagePercent'
    end
    object AqryPrintCopiesdate: TDateTimeField
      DisplayLabel = #25220#34920#26102#38388
      FieldName = 'Copiesdate'
    end
    object AqryPrintPayflag: TBooleanField
      DisplayLabel = #32564#36153#26631#24535
      FieldName = 'Payflag'
    end
    object AqryPrintPayment: TBCDField
      DisplayLabel = #23454#32564#37329#39069
      FieldName = 'Payment'
      Precision = 19
    end
    object AqryPrintPaydate: TDateTimeField
      DisplayLabel = #32564#36153#26085#26399
      FieldName = 'Paydate'
    end
    object AqryPrintAmont: TCurrencyField
      DisplayLabel = #24212#32564#37329#39069
      FieldKind = fkCalculated
      FieldName = 'Amont'
      Calculated = True
    end
    object AqryPrintBigAmont: TStringField
      FieldKind = fkCalculated
      FieldName = 'BigAmont'
      Visible = False
      Size = 128
      Calculated = True
    end
    object AqryPrintItem: TStringField
      DisplayLabel = #38144#21806#39033#30446
      FieldKind = fkCalculated
      FieldName = 'Item'
      Size = 30
      Calculated = True
    end
    object AqryPrintUnits: TStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldKind = fkCalculated
      FieldName = 'Units'
      Size = 30
      Calculated = True
    end
    object AqryPrintCurrQty: TFloatField
      DisplayLabel = #26412#26399#21051#24230
      FieldName = 'CurrQty'
    end
    object AqryPrintPriorQty: TFloatField
      DisplayLabel = #19978#26399#21051#24230
      FieldName = 'PriorQty'
    end
    object AqryPrintDerate: TFloatField
      DisplayLabel = #20943#20813#27700#37327
      FieldName = 'Derate'
    end
    object AqryPrintQuantity: TFloatField
      DisplayLabel = #26412#26399#27700#37327
      FieldName = 'Quantity'
    end
    object AqryPrintWaterfee: TBCDField
      DisplayLabel = #27700#36153#37329#39069
      FieldName = 'Waterfee'
      Precision = 19
    end
  end
  object dsPrint: TDataSource
    DataSet = AqryPrint
    Left = 240
    Top = 64
  end
  object mtabPrint: TdxMemData
    Indexes = <>
    Persistent.Data = {
      566572CDCCCCCCCCCCFC3F0D0000000E00000001000700437573744944008100
      0000010005004E616D6500010100000100080041646472657373001F00000001
      0005004974656D001F00000001000600556E6974730004000000030004005174
      790008000000070006005072696365000800000007000600416D6F6E74000101
      000001000900426967616D6F6E74001F00000001000900557365726E616D6500
      1F00000001000A00436F6C6C6563746F72000400000009000800506179646174
      65008100000001000800436F6D70616E79000800000030303030303031000700
      0000D0EDCAA4C6BD0015000000B6ABDDB8CAD0B3C7C7F8BDE2B7C5C2B73333BA
      C5000B000000D7D4C0B4CBAECFFACADB0007000000C1A2B7BDC3D70001102700
      00019A9999999999F13F010000000000DBFA400C000000617364667364666173
      6466000E00000041646D696E6973747261746F72000E00000041646D696E6973
      747261746F7200011F290B0009000000B6ABBDADCBAECEF100}
    SortOptions = []
    Left = 96
    Top = 496
    object mtabPrintCustID: TStringField
      FieldName = 'CustID'
      Size = 13
    end
    object mtabPrintName: TStringField
      FieldName = 'Name'
      Size = 128
    end
    object mtabPrintAddress: TStringField
      FieldName = 'Address'
      Size = 256
    end
    object mtabPrintItem: TStringField
      FieldName = 'Item'
      Size = 30
    end
    object mtabPrintUnits: TStringField
      FieldName = 'Units'
      Size = 30
    end
    object mtabPrintPrice: TCurrencyField
      FieldName = 'Price'
    end
    object mtabPrintQty: TFloatField
      FieldName = 'Qty'
    end
    object mtabPrintAmont: TCurrencyField
      FieldName = 'Amont'
    end
    object mtabPrintBigamont: TStringField
      FieldName = 'Bigamont'
      Size = 256
    end
    object mtabPrintUsername: TStringField
      FieldName = 'Username'
      Size = 30
    end
    object mtabPrintCollector: TStringField
      FieldName = 'Collector'
      Size = 30
    end
    object mtabPrintPaydate: TDateField
      FieldName = 'Paydate'
    end
    object mtabPrintCompany: TStringField
      FieldName = 'Company'
      Size = 128
    end
    object mtabPrintDescription: TStringField
      FieldName = 'Description'
      Size = 64
    end
  end
  object RMReport: TRMReport
    SaveReportOptions.UseRegistry = True
    SaveReportOptions.RegistryPath = 'SJsoft\DJSRInvPrinter\1.0\ReportSettings\'
    Dataset = RMDataSet
    InitialZoom = pzDefault
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbDesign, pbSaveToXLS]
    PrintIfEmpty = False
    ShowProgress = False
    ShowPrintDialog = False
    OnGetValue = RMReportGetValue
    Left = 176
    Top = 16
    ReportForm = {2B000000}
  end
  object RMDataSet: TRMDBDataSet
    DataSet = AqryMonthChargeReport
    Left = 240
    Top = 16
  end
  object AqryMonthChargeReport: TADOQuery
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = AqryMonthChargeReportCalcFields
    Parameters = <
      item
        Name = 'Paydate1'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2003-07-01'
      end
      item
        Name = 'Paydate2'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2003-07-31'
      end>
    SQL.Strings = (
      'select *'
      '  from Waterfee'
      '  where Payflag = True'
      '    and Paydate between :Paydate1 and :Paydate2'
      '  order by Blankoutflag, Paydate')
    Left = 176
    Top = 112
  end
  object RMDesigner: TRMDesigner
    HelpFile = 'rmuser.hlp'
    DesignerRestrictions = []
    Left = 304
    Top = 16
  end
  object FormReport: TRMFormReport
    ReportOptions = [rmgoStretch, rmgoWordWrap, rmgoGridLines]
    PageLayout.LeftMargin = 38
    PageLayout.TopMargin = 38
    PageLayout.RightMargin = 38
    PageLayout.BottomMargin = 38
    PageLayout.Height = 2970
    PageLayout.Width = 2100
    PageLayout.pgBin = 0
    PageLayout.PrinterName = #40664#35748#25171#21360#26426
    PageLayout.PrintBackColor = False
    PageHeader.Height = 0
    PageFooter.Height = 0
    ColumnFooter.Height = 0
    GridNumOptions.Text = 'No'
    GridFontOptions.Font.Charset = DEFAULT_CHARSET
    GridFontOptions.Font.Color = clWindowText
    GridFontOptions.Font.Height = -11
    GridFontOptions.Font.Name = 'MS Sans Serif'
    GridFontOptions.Font.Style = []
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit]
    ShowProgress = False
    ShowPrintDialog = False
    Groups = <>
    Left = 368
    Top = 16
  end
  object dsmPrint: TDataSource
    DataSet = mtabPrint
    Left = 104
    Top = 504
  end
  object AqryPaiedWaterfee: TADOQuery
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = AqryMonthChargeReportCalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select WRID, CustID, Name, Address, Quantity, sPrice, Waterfee, ' +
        'Payflag, Payment, Paydate, Invoice'
      '  from Waterfee'
      '  where Payflag = True and Blankoutflag = False'
      '  order by CustID, Name, Paydate')
    Left = 176
    Top = 160
    object AqryPaiedWaterfeeWRID: TAutoIncField
      FieldName = 'WRID'
      ReadOnly = True
    end
    object AqryPaiedWaterfeeCustID: TWideStringField
      FieldName = 'CustID'
      Size = 13
    end
    object AqryPaiedWaterfeeName: TWideStringField
      FieldName = 'Name'
      Size = 128
    end
    object AqryPaiedWaterfeeAddress: TWideStringField
      FieldName = 'Address'
      Size = 255
    end
    object AqryPaiedWaterfeeQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object AqryPaiedWaterfeesPrice: TBCDField
      FieldName = 'sPrice'
      currency = True
      Precision = 19
    end
    object AqryPaiedWaterfeeWaterfee: TBCDField
      FieldName = 'Waterfee'
      currency = True
      Precision = 19
    end
    object AqryPaiedWaterfeePayflag: TBooleanField
      FieldName = 'Payflag'
    end
    object AqryPaiedWaterfeePayment: TBCDField
      FieldName = 'Payment'
      currency = True
      Precision = 19
    end
    object AqryPaiedWaterfeePaydate: TDateTimeField
      FieldName = 'Paydate'
    end
    object AqryPaiedWaterfeeInvoice: TWideStringField
      FieldName = 'Invoice'
      Size = 30
    end
  end
  object dsPaiedWaterfee: TDataSource
    DataSet = AqryPaiedWaterfee
    Left = 240
    Top = 160
  end
end