invprintdm.dfm

供水营销打印程序源码

      FieldName = 'Copier'
      Visible = False
      Size = 5
    end
    object AtabWaterfeeCopiesdate: TDateTimeField
      DisplayLabel = #25220#34920#26102#38388
      FieldName = 'Copiesdate'
    end
    object AtabWaterfeePayflag: TBooleanField
      DisplayLabel = #32564#36153#26631#24535
      FieldName = 'Payflag'
      ReadOnly = True
    end
    object AtabWaterfeePayment: TBCDField
      DisplayLabel = #23454#32564#37329#39069
      FieldName = 'Payment'
      currency = True
      Precision = 19
    end
    object AtabWaterfeeInvoice: TWideStringField
      DisplayLabel = #21457#31080#21495#30721
      FieldName = 'Invoice'
      Size = 30
    end
    object AtabWaterfeeCollector: TWideStringField
      FieldName = 'Collector'
      Visible = False
      Size = 5
    end
    object AtabWaterfeeBlankoutflag: TBooleanField
      DisplayLabel = #20316#24223#26631#24535
      FieldName = 'Blankoutflag'
      ReadOnly = True
    end
    object AtabWaterfeeBlankoutdate: TDateTimeField
      DisplayLabel = #20316#24223#26085#26399
      FieldName = 'Blankoutdate'
    end
    object AtabWaterfeeModifier: TWideStringField
      FieldName = 'Modifier'
      Visible = False
      Size = 5
    end
    object AtabWaterfeeModifydate: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'Modifydate'
    end
    object AtabWaterfeeDescription: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'Description'
      Size = 255
    end
    object AtabWaterfeeAreaname: TStringField
      DisplayLabel = #25152#23646#21306#22495
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'Areaname'
      LookupDataSet = AtabArea
      LookupKeyFields = 'AreaID'
      LookupResultField = 'Areaname'
      KeyFields = 'AreaID'
      Size = 30
      Lookup = True
    end
    object AtabWaterfeeBookname: TStringField
      DisplayLabel = #25152#23646#34920#20876
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'Bookname'
      LookupDataSet = AtabBook
      LookupKeyFields = 'Bookname'
      LookupResultField = 'Bookname'
      KeyFields = 'BookID'
      Size = 30
      Lookup = True
    end
    object AtabWaterfeeUsingname: TStringField
      DisplayLabel = #29992#27700#24615#36136
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'Usingname'
      LookupDataSet = AtabUsager
      LookupKeyFields = 'UsingID'
      LookupResultField = 'Usingname'
      KeyFields = 'UsingID'
      Size = 30
      Lookup = True
    end
    object AtabWaterfeeCopiername: TStringField
      DisplayLabel = #25220#34920#21592
      FieldKind = fkLookup
      FieldName = 'Copiername'
      LookupDataSet = AtabCopier
      LookupKeyFields = 'CopiID'
      LookupResultField = 'Name'
      KeyFields = 'Copier'
      Size = 30
      Lookup = True
    end
    object AtabWaterfeeCollectoername: TStringField
      DisplayLabel = #25910#36153#21592
      FieldKind = fkLookup
      FieldName = 'Collectoername'
      LookupDataSet = AtabUsers
      LookupKeyFields = 'UserID'
      LookupResultField = 'Name'
      KeyFields = 'Collector'
      Size = 30
      Lookup = True
    end
    object AtabWaterfeeModifiername: TStringField
      DisplayLabel = #20462#25913#32773
      FieldKind = fkLookup
      FieldName = 'Modifiername'
      LookupDataSet = AtabUsers
      LookupKeyFields = 'UserID'
      LookupResultField = 'Name'
      KeyFields = 'Modifier'
      Size = 30
      Lookup = True
    end
    object AtabWaterfeePaydate: TDateField
      DisplayLabel = #32564#36153#26102#38388
      FieldName = 'Paydate'
    end
    object AtabWaterfeeSewage: TCurrencyField
      DisplayLabel = #25490#27745#36153
      FieldKind = fkCalculated
      FieldName = 'Sewage'
      Calculated = True
    end
    object AtabWaterfeeAmont: TCurrencyField
      DisplayLabel = #24212#32564#24635#39069
      FieldKind = fkCalculated
      FieldName = 'Amont'
      Calculated = True
    end
    object AtabWaterfeeCurrQty: TFloatField
      DisplayLabel = #26412#26399#21051#24230
      FieldName = 'CurrQty'
    end
    object AtabWaterfeePriorQty: TFloatField
      DisplayLabel = #19978#26399#21051#24230
      FieldName = 'PriorQty'
    end
    object AtabWaterfeeDerate: TFloatField
      DisplayLabel = #20943#20813#27700#37327
      FieldName = 'Derate'
    end
    object AtabWaterfeeQuantity: TFloatField
      DisplayLabel = #26412#26399#29992#27700#37327
      FieldName = 'Quantity'
    end
    object AtabWaterfeeWaterfee: TBCDField
      DisplayLabel = #27700#36153#37329#39069
      FieldName = 'Waterfee'
      currency = True
      Precision = 19
    end
  end
  object dsWaterfee: TDataSource
    DataSet = AtabWaterfee
    Left = 96
    Top = 448
  end
  object AtabPaymode: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = AtabTownBeforePost
    IndexName = 'PayID'
    TableName = 'Paymode'
    Left = 32
    Top = 400
  end
  object dsPaymode: TDataSource
    DataSet = AtabPaymode
    Left = 96
    Top = 400
  end
  object AqryTmp: TADOQuery
    CacheSize = 1000
    Connection = ADOConnection
    Parameters = <>
    Left = 32
    Top = 496
  end
  object International: TwwIntl
    Navigator.ConfirmDeleteMessage = 'Delete record?'
    Navigator.Hints.FirstHint = 'Move to first record'
    Navigator.Hints.PriorHint = 'Move to prior record'
    Navigator.Hints.NextHint = 'Move to next record'
    Navigator.Hints.LastHint = 'Move to last record'
    Navigator.Hints.InsertHint = 'Insert new record'
    Navigator.Hints.DeleteHint = 'Delete current record'
    Navigator.Hints.EditHint = 'Edit current record'
    Navigator.Hints.PostHint = 'Post changes of current record'
    Navigator.Hints.CancelHint = 'Cancel changes made to current record'
    Navigator.Hints.RefreshHint = 'Refresh the contents of the dataset'
    Navigator.Hints.PriorPageHint = 'Move backward %d records'
    Navigator.Hints.NextPageHint = 'Move forward %d records'
    Navigator.Hints.SaveBookmarkHint = 'Bookmark current record'
    Navigator.Hints.RestoreBookmarkHint = 'Go back to saved bookmark'
    Navigator.Hints.RecordViewDialogHint = 'View current record'
    Navigator.Hints.LocateDialogHint = 'Locate a specific record'
    Navigator.Hints.FilterDialogHint = 'Filter the dataset'
    Navigator.Hints.SearchDialogHint = 'Search the dataset'
    SearchDialog.SearchCharLabel = '&Search Characters'
    SearchDialog.SearchCharShortLabel = '&Search Char'
    SearchDialog.SearchByLabel = 'Search &By'
    SearchDialog.StatusRecLabel = 'Rec #'
    SearchDialog.StatusOfLabel = 'of'
    SearchDialog.SearchCharHint = 'Enter characters for incremental search'
    SearchDialog.SearchByHint = 'Incremental searching and sorting order'
    LocateDialog.FieldValueLabel = 'Field &Value'
    LocateDialog.SearchTypeLabel = '&Search Type'
    LocateDialog.CaseSensitiveLabel = '&Case-sensitive'
    LocateDialog.MatchExactLabel = '&Exact Match'
    LocateDialog.MatchStartLabel = '&Partial Match at Beginning'
    LocateDialog.MatchAnyLabel = 'Partial Match &Anywhere'
    LocateDialog.FieldsLabel = '&Fields'
    LocateDialog.BtnFirst = 'Fi&rst'
    LocateDialog.BtnNext = '&Next'
    LocateDialog.BtnCancel = 'Cancel'
    LocateDialog.BtnClose = 'Close'
    LocateDialog.FieldValueHint = 'Enter field'#39's search value'
    LocateDialog.CaseSensitiveHint = 'Searching is case-sensitive'
    LocateDialog.MatchExactHint = 'Match occurs only if there is an exact match'
    LocateDialog.MatchStartHint = 'Match occurs if the start of the field'#39's value matches'
    LocateDialog.MatchAnyHint = 'Match occurs if any part of the field matches'
    LocateDialog.BtnFirstHint = 'Find first match'
    LocateDialog.BtnNextHint = 'Find next match from current record'
    LocateDialog.FieldNameHint = 'Select the field to search on'
    MonthCalendar.PopupYearLabel = 'Edit Year'
    MonthCalendar.EnterYearPrompt = 'Enter Valid Year'
    FilterDialog.BtnViewSummary = #26174#31034#25688#35201'(&M)'
    FilterDialog.BtnViewSummaryHint = #26174#31034#24403#21069#26597#25214#30340#26465#20214
    FilterDialog.BtnNewSearch = #26032#24314#26597#25214'(&N)'
    FilterDialog.BtnNewSearchHint = #24320#22987#19968#20010#26032#30340#26597#25214
    FilterDialog.FieldOrderLabel = #25968#25454#39033#39034#24207
    FilterDialog.FieldOrderHint = #25968#25454#39033#25353#36923#36753#39034#24207#25490#21015
    FilterDialog.AlphabeticLabel = #25353#23383#27597#39034#24207'(&B)'
    FilterDialog.LogicalLabel = #36923#36753#39034#24207'(&L)'
    FilterDialog.AllFieldsLabel = #20840#37096'(&A)'
    FilterDialog.SearchedFieldsLabel = #26597#25214'(&S)'
    FilterDialog.StartingRangeLabel = #25353#33539#22260#26597#25214'(&S)'
    FilterDialog.EndingRangeLabel = #32467#26463#33539#22260'(&D)'
    FilterDialog.StartingRangeHint = #36755#20837#24453#26597#25214#33539#22260#30340#26368#24320#22987#25968#20540
    FilterDialog.EndingRangeHint = #36755#20837#26597#25214#33539#22260#30340#26368#26411#23614#19968#20010#20540
    FilterDialog.BtnClearMin = #28165#38500'(&C)'
    FilterDialog.BtnClearMax = #28165#38500'(&E)'
    FilterDialog.BtnClearFilterValue = #28165#38500'(&C)'
    FilterDialog.BtnClearMinHint = #21024#38500#26597#25214#33539#22260#26368#21069#38754#25968#25454
    FilterDialog.BtnClearMaxHint = #21024#38500#26597#25214#33539#22260#30340#26368#26411#23614#25968#25454
    FilterDialog.BtnClearFilterValueHint = #21024#38500#24403#21069#24453#26597#25214#25968#25454#39033#30340#20540
    FilterDialog.ByValueLabel = #25353#25968#20540#26597#25214
    FilterDialog.ByRangeLabel = #25353#33539#22260#26597#25214
    FilterDialog.FieldValueLabel = #25968#25454#39033#20540'(&V)'
    FilterDialog.FieldValueHint = #36755#20837#24453#26597#25214#30340#25968#25454#39033#30340#20540
    FilterDialog.SearchTypeLabel = #26597#25214#31867#22411
    FilterDialog.SearchTypeHint = #22914#20309#21305#37197#26597#25214#26465#20214
    FilterDialog.MatchExactLabel = #31934#30830#21305#37197'(&E)'
    FilterDialog.MatchStartLabel = #21305#37197#24320#22987#37096#20998'(&P)'
    FilterDialog.MatchAnyLabel = #20219#24847#22320#26041#21305#37197'(&W)'
    FilterDialog.CaseSensitiveLabel = #22823#23567#20889#25935#24863'(&T)'
    FilterDialog.CaseSensitiveHint = #26597#25214#26102#21306#20998#22823#23567#20889
    FilterDialog.NonMatchingLabel = #19981#21305#37197#26597#25214#26465#20214'(&O)'
    FilterDialog.NonMatchingHint = #26174#31034#19981#21305#37197#26597#25214#26465#20214#30340#25968#25454
    FilterDialog.SummaryFieldLabel = #25968#25454#39033
    FilterDialog.SummarySearchLabel = #26597#25214#31867#22411
    FilterDialog.SummaryValueLabel = #25968#25454#20540
    FilterDialog.FieldsLabel = #25968#25454#39033'(&F)'
    FilterDialog.ValueRangeTabHint = #25353#25968#25454#20540#25110#33539#22260#26597#25214
    FilterDialog.AllSearchedTabHint = #26174#31034#25152#26377#25968#25454#39033#25110#24453#26597#25214#25968#25454#39033
    FilterDialog.ViewSummaryNotText = #38750
    RichEdit.FontNameComboHint = 'Font | Changes the font of the selection'
    RichEdit.FontSizeComboHint = 'Font Size | Changes the font size of the selection'
    RichEdit.NewButtonHint = 'New | Creates a new document'
    RichEdit.LoadButtonHint = 'Load | Load from file'
    RichEdit.SaveAsButtonHint = 'Save As | Save to file'
    RichEdit.PrintButtonHint = 'Print | Prints the active document'
    RichEdit.FindButtonHint = 'Find | Finds the specified text'
    RichEdit.CutButtonHint = 'Cut | Cuts the selection and puts it on the Clipboard'
    RichEdit.CopyButtonHint = 'Copy | Copies the selection and puts it on the Clipboard'
    RichEdit.UndoButtonHint = 'Undo | Reverses the last action'
    RichEdit.RedoButtonHint = 'Redo | Reverses the last undo action'
    RichEdit.PasteButtonHint = 'Paste | Inserts Clipboard contents'
    RichEdit.BoldButtonHint = 'Bold | Makes the selection bold (toggle)'
    RichEdit.ColorButtonHint = 'Color | Formats the selection with a color'
    RichEdit.UnderlineButtonHint = 
      'Underline | Formats the selection with a continuous underline (t' +
      'oggle)'
    RichEdit.ItalicButtonHint = 'Italic | Makes the selection italic (toggle)'
    RichEdit.LeftButtonHint = 'Align Left | Left-justifies paragraph (toggle)'
    RichEdit.CenterButtonHint = 'Center | Center-justifies paragraph (toggle)'
    RichEdit.RightButtonHint = 'Align Right | Right-justifies paragraph (toggle)'
    RichEdit.JustifyButtonHint = 'Justify | Full Justification for paragraph (toggle)'
    RichEdit.BulletButtonHint = 'Bullets | Inserts a bullet on this line (toggle)'
    RichEdit.HighlightButtonHint = 'Highlight Text | Makes the selection highlighted'
    RichEdit.SaveExitHint = 'Save And Exit | Saves changes and exits editor'
    RichEdit.PageSetupHint = 'Page Setup | Changes page layout settings'
    RichEdit.ExitHint = 'Exit'
    RichEdit.ClearHint = 'Erases the Selection'
    RichEdit.SelectAllHint = 'Selects all of the text'
    RichEdit.FindNextHint = 'Repeats the last find'
    RichEdit.ReplaceHint = 'Replaces specific text with different text'
    RichEdit.InsertObjectHint = 'Inserts new embedded object'
    RichEdit.SpellCheckHint = 'Check spelling'
    RichEdit.ToolbarHint = 'Shows or hides the toolbar'
    RichEdit.FormatBarHint = 'Shows or hides the format bar'
    RichEdit.ViewStatusBarHint = 'Shows or hides the status bar'
    RichEdit.OptionsHint = 'Sets options'
    RichEdit.FontHint = 'Selects font for current selection'
    RichEdit.ParagraphHint = 'Formats current or selected paragraph(s)'
    RichEdit.TabsHint = 'Sets tabs'
    RichEdit.CAPLockCaption = 'CAP'
    RichEdit.NUMLockCaption = 'NUM'
    RichEdit.MenuLabels.FileCaption = '&File'
    RichEdit.MenuLabels.LoadCaption = '&Load'
    RichEdit.MenuLabels.SaveAsCaption = 'Save &As'
    RichEdit.MenuLabels.SaveExitCaption = '&Save and Exit'
    RichEdit.MenuLabels.PrintCaption = '&Print'
    RichEdit.MenuLabels.PageSetupCaption = 'Page Set&up'
    RichEdit.MenuLabels.ExitCaption = 'E&xit'
    RichEdit.MenuLabels.EditCaption = '&Edit'
    RichEdit.MenuLabels.UndoCaption = '&Undo'
    RichEdit.MenuLabels.CutCaption = 'Cu&t'
    RichEdit.MenuLabels.CopyCaption = '&Copy'
    RichEdit.MenuLabels.PasteCaption = '&Paste'
    RichEdit.MenuLabels.ClearCaption = 'Cle&ar'
    RichEdit.MenuLabels.SelectallCaption = 'Select A&ll'
    RichEdit.MenuLabels.FindCaption = '&Find'
    RichEdit.MenuLabels.FindNextCaption = 'Find &Next'
    RichEdit.MenuLabels.ReplaceCaption = 'R&eplace'
    RichEdit.MenuLabels.InsertObjectCaption = '&Object...'
    RichEdit.MenuLabels.ToolCaption = '&Tools'
    RichEdit.MenuLabels.SpellCheckCaption = 'Check &Spelling'
    RichEdit.MenuLabels.InsertCaption = '&Insert'
    RichEdit.MenuLabels.RulerCaption = '&Ruler'
    RichEdit.MenuLabels.ViewCaption = '&View'
    RichEdit.MenuLabels.ToolbarCaption = '&Toolbar'
    RichEdit.MenuLabels.FormatBarCaption = '&Format Bar'
    RichEdit.MenuLabels.ViewStatusBarCaption = '&Status Bar'
    RichEdit.MenuLabels.OptionsCaption = '&Options'
    RichEdit.MenuLabels.FormatCaption = 'F&ormat'
    RichEdit.MenuLabels.FontCaption = '&Font'
    RichEdit.MenuLabels.BulletStyleCaption = '&Bullet Style'
    RichEdit.MenuLabels.ParagraphCaption = '&Paragraph'
    RichEdit.MenuLabels.TabsCaption = '&Tabs'
    RichEdit.MenuLabels.HelpCaption = 'Help'
    RichEdit.PopupMenuLabels.EditCaption = '&Edit'
    RichEdit.PopupMenuLabels.ViewCaption = '&View'
    RichEdit.PopupMenuLabels.CutCaption = 'Cu&t'
    RichEdit.PopupMenuLabels.CopyCaption = '&Copy'
    RichEdit.PopupMenuLabels.PasteCaption = '&Paste'
    RichEdit.PopupMenuLabels.FontCaption = '&Font'
    RichEdit.PopupMenuLabels.BulletStyleCaption = '&Bullet Style'
    RichEdit.PopupMenuLabels.BoldCaption = 'B&old'
    RichEdit.PopupMenuLabels.ItalicCaption = '&Italic'
    RichEdit.PopupMenuLabels.UnderlineCaption = '&Underline'
    RichEdit.PopupMenuLabels.ParagraphCaption = 'P&aragraph'
    RichEdit.PopupMenuLabels.TabsCaption = '&Tabs'
    RichEdit.PopupMenuLabels.FindCaption = 'Fin&d'
    RichEdit.PopupMenuLabels.ReplaceCaption = '&Replace'
    RichEdit.PopupMenuLabels.InsertObjectCaption = 'Insert &Object...'
    RichEdit.PopupMenuLabels.ObjectPropertiesCaption = 'Object P&roperties'
    RichEdit.PopupMenuLabels.SpellCheckCaption = 'Check &Spelling'
    RichEdit.ParagraphDialog.ParagraphDlgCaption = 'Paragraph'
    RichEdit.ParagraphDialog.IndentationGroupBoxCaption = 'Indentation'
    RichEdit.ParagraphDialog.LeftEditHint = 'Left Indentation'
    RichEdit.ParagraphDialog.RightEditHint = 'Right Indentation'
    RichEdit.ParagraphDialog.FirstLineEditHint = 'First Line of Paragraph Indentation'
    RichEdit.ParagraphDialog.AlignmentHint = 'Changes Alignment of Paragraph'
    RichEdit.ParagraphDialog.LeftEditCaption = 'Left:'
    RichEdit.ParagraphDialog.RightEditCaption = 'Right:'
    RichEdit.ParagraphDialog.FirstLineEditCaption = 'First line:'
    RichEdit.ParagraphDialog.SpacingGroupCaption = 'Spacing'
    RichEdit.ParagraphDialog.BeforeParagraphCaption = '&Before'
    RichEdit.ParagraphDialog.AfterParagraphCaption = 'Aft&er'
    RichEdit.ParagraphDialog.WithinParagraphCaption = 'Li&ne Spacing'
    RichEdit.ParagraphDialog.WithinParagraphAtCaption = '&At'
    RichEdit.ParagraphDialog.AlignmentCaption = 'Alignment'
    RichEdit.ParagraphDialog.AlignLeft = 'Left'
    RichEdit.ParagraphDialog.AlignRight = 'Right'
    RichEdit.ParagraphDialog.AlignCenter = 'Center'
    RichEdit.ParagraphDialog.AlignJustify = 'Justify'