📄 salsum.pas
字号:
unit salsum;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ppDB, ppDBPipe, ppDBBDE, ppCtrls, ppBands, ppClass, ppVar, ppPrnabl,
ppCache, ppComm, ppRelatv, ppProd, ppReport, Db, ADODB, StdCtrls, Mask,
ExtCtrls;
type
Tsalsumreport = class(TForm)
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
Edit1: TMaskEdit;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
ADODataSet4: TADODataSet;
ADODataSet4present: TBCDField;
ADODataSet4insurance: TBCDField;
ADODataSet4rewardmoney: TBCDField;
ADODataSet4pubtax: TBCDField;
ADODataSet4factprof: TBCDField;
ADODataSet4facttech: TBCDField;
ADODataSet4mustgive: TBCDField;
ADODataSet4factdept: TBCDField;
ADODataSet4clearpay: TBCDField;
ADODataSet4resultmoney: TBCDField;
ADODataSet4pie2: TBCDField;
ADODataSet4panishmoney: TBCDField;
ADODataSet4mustdec: TBCDField;
ADODataSet4factmoney: TBCDField;
ADODataSet4factbasepay: TBCDField;
ADODataSet4yearmoney: TBCDField;
ADODataSet4smoney: TBCDField;
ADODataSet4otmoney: TBCDField;
ADODataSet4tax: TBCDField;
ADODataSet4yangrao: TBCDField;
ADODataSet4yiliao: TBCDField;
ADODataSet4gongsa: TBCDField;
ADODataSet4meatmoneybu: TBCDField;
ADODataSet4txmoney: TBCDField;
ADODataSet4rat: TBCDField;
ADODataSet4money1: TBCDField;
ADODataSet4eightornine: TIntegerField;
ADODataSet4medmoney: TBCDField;
ADODataSet4latedec: TBCDField;
ADODataSet4kuanggongdec: TBCDField;
ADODataSet4otherdec: TBCDField;
ADODataSet4otheradd: TBCDField;
DataSource4: TDataSource;
ppReport8: TppReport;
ppHeaderBand6: TppHeaderBand;
ppLabel315: TppLabel;
ppLabel350: TppLabel;
ppLabel351: TppLabel;
ppLabel352: TppLabel;
ppLabel353: TppLabel;
ppSystemVariable7: TppSystemVariable;
ppSystemVariable8: TppSystemVariable;
ppLabel316: TppLabel;
ppDetailBand8: TppDetailBand;
ppLine145: TppLine;
ppLine150: TppLine;
ppLine151: TppLine;
ppLine152: TppLine;
ppLine153: TppLine;
ppLine154: TppLine;
ppLine156: TppLine;
ppLine157: TppLine;
ppLine158: TppLine;
ppLine155: TppLine;
ppDBText169: TppDBText;
ppLine159: TppLine;
ppDBText170: TppDBText;
ppLine160: TppLine;
ppDBText171: TppDBText;
ppDBText172: TppDBText;
ppLine148: TppLine;
ppDBText173: TppDBText;
ppLine161: TppLine;
ppDBText174: TppDBText;
ppLine162: TppLine;
ppDBText175: TppDBText;
ppLine163: TppLine;
ppDBText176: TppDBText;
ppDBText177: TppDBText;
ppLine166: TppLine;
ppLine167: TppLine;
ppLine168: TppLine;
ppLine169: TppLine;
ppLine28: TppLine;
ppDBText127: TppDBText;
ppLine31: TppLine;
ppLine33: TppLine;
ppDBText128: TppDBText;
ppLine128: TppLine;
ppLine149: TppLine;
ppDBText165: TppDBText;
ppLine24: TppLine;
ppDBText125: TppDBText;
ppDBText195: TppDBText;
ppDBText161: TppDBText;
ppDBText162: TppDBText;
ppDBText163: TppDBText;
ppDBText197: TppDBText;
ppDBText164: TppDBText;
ppDBText166: TppDBText;
ppDBText167: TppDBText;
ppDBText196: TppDBText;
ppDBText168: TppDBText;
ppLine134: TppLine;
ppLabel243: TppLabel;
ppLine135: TppLine;
ppLabel244: TppLabel;
ppLine136: TppLine;
ppLabel245: TppLabel;
ppLine137: TppLine;
ppLabel246: TppLabel;
ppLine138: TppLine;
ppLabel247: TppLabel;
ppLine139: TppLine;
ppLabel248: TppLabel;
ppLine126: TppLine;
ppLine121: TppLine;
ppLabel234: TppLabel;
ppLine122: TppLine;
ppLabel235: TppLabel;
ppLine123: TppLine;
ppLabel236: TppLabel;
ppLine124: TppLine;
ppLabel237: TppLabel;
ppLine127: TppLine;
ppLabel239: TppLabel;
ppLine131: TppLine;
ppLine132: TppLine;
ppLabel241: TppLabel;
ppLine25: TppLine;
ppLabel138: TppLabel;
ppLine125: TppLine;
ppLabel238: TppLabel;
ppLabel240: TppLabel;
ppLine133: TppLine;
ppLabel242: TppLabel;
ppLabel142: TppLabel;
ppLabel143: TppLabel;
ppLine30: TppLine;
ppLine32: TppLine;
ppLine120: TppLine;
ppLabel139: TppLabel;
ppLine130: TppLine;
ppLabel173: TppLabel;
ppLabel214: TppLabel;
ppLabel215: TppLabel;
ppLabel216: TppLabel;
ppLabel217: TppLabel;
ppLabel218: TppLabel;
ppLabel219: TppLabel;
ppLabel220: TppLabel;
ppLabel222: TppLabel;
ppLabel223: TppLabel;
ppLabel224: TppLabel;
ppLabel225: TppLabel;
ppLine146: TppLine;
ppLine142: TppLine;
ppLine144: TppLine;
ppLabel249: TppLabel;
ppLine27: TppLine;
ppLabel141: TppLabel;
ppLine140: TppLine;
ppLabel221: TppLabel;
ppBDEPipeline4: TppBDEPipeline;
ppReport4: TppReport;
ppHeaderBand3: TppHeaderBand;
ppLabel144: TppLabel;
ppLabel145: TppLabel;
ppLabel146: TppLabel;
ppLabel147: TppLabel;
ppLabel148: TppLabel;
ppLabel149: TppLabel;
ppSystemVariable3: TppSystemVariable;
ppSystemVariable4: TppSystemVariable;
ppDetailBand4: TppDetailBand;
ppLine98: TppLine;
ppDBText129: TppDBText;
ppLine100: TppLine;
ppDBText159: TppDBText;
ppLine101: TppLine;
ppDBText160: TppDBText;
ppLine102: TppLine;
ppDBText178: TppDBText;
ppLine103: TppLine;
ppDBText179: TppDBText;
ppLine104: TppLine;
ppLine105: TppLine;
ppDBText180: TppDBText;
ppLine106: TppLine;
ppDBText181: TppDBText;
ppLine107: TppLine;
ppDBText183: TppDBText;
ppLine109: TppLine;
ppDBText184: TppDBText;
ppLine110: TppLine;
ppDBText185: TppDBText;
ppDBText186: TppDBText;
ppLine111: TppLine;
ppDBText187: TppDBText;
ppLine112: TppLine;
ppDBText188: TppDBText;
ppLine113: TppLine;
ppDBText189: TppDBText;
ppLine114: TppLine;
ppDBText190: TppDBText;
ppDBText191: TppDBText;
ppLine115: TppLine;
ppLine116: TppLine;
ppLine117: TppLine;
ppLine118: TppLine;
ppLine119: TppLine;
ppDBText192: TppDBText;
ppLine164: TppLine;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -