📄 mddyfrmunit.pas
字号:
unit mddyfrmunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ppProd, ppClass, ppReport, ppComm, ppRelatv, ppDB,
ppDBPipe, ppDBBDE,datadomule, ppCtrls, ppPrnabl, ppBands,
ppCache, StdCtrls, Mask, ExtCtrls, Buttons, ppViewr, ppVar, DB, DBTables,ppTypes;
type
Tmddyfrm = class(TForm)
ppBDEPipeline1: TppBDEPipeline;
ppReport1: TppReport;
ppViewer1: TppViewer;
Panel1: TPanel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
Bevel2: TBevel;
MaskEdit1: TMaskEdit;
Panel2: TPanel;
SpeedButton10: TSpeedButton;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel1: TppLabel;
ppLabel2: TppLabel;
ppLabel3: TppLabel;
ppLabel4: TppLabel;
ppLabel5: TppLabel;
ppLabel6: TppLabel;
ppLabel7: TppLabel;
ppLabel8: TppLabel;
ppShape1: TppShape;
ppShape2: TppShape;
ppShape3: TppShape;
ppShape4: TppShape;
ppShape5: TppShape;
ppShape6: TppShape;
ppShape7: TppShape;
ppShape8: TppShape;
ppShape9: TppShape;
ppShape10: TppShape;
ppShape11: TppShape;
ppShape12: TppShape;
ppShape13: TppShape;
ppShape14: TppShape;
ppShape15: TppShape;
ppShape16: TppShape;
ppShape17: TppShape;
ppShape18: TppShape;
ppShape19: TppShape;
ppShape20: TppShape;
ppShape21: TppShape;
ppShape22: TppShape;
ppShape23: TppShape;
ppShape24: TppShape;
ppShape25: TppShape;
ppShape26: TppShape;
ppShape27: TppShape;
ppShape28: TppShape;
ppShape29: TppShape;
ppShape30: TppShape;
ppShape31: TppShape;
ppShape32: TppShape;
ppShape33: TppShape;
ppShape34: TppShape;
ppShape35: TppShape;
ppShape36: TppShape;
ppShape37: TppShape;
ppShape38: TppShape;
ppShape39: TppShape;
ppShape40: TppShape;
ppShape41: TppShape;
ppShape42: TppShape;
ppShape43: TppShape;
ppShape44: TppShape;
ppShape45: TppShape;
ppShape46: TppShape;
ppShape47: TppShape;
ppShape48: TppShape;
ppShape49: TppShape;
ppShape50: TppShape;
ppShape51: TppShape;
ppShape52: TppShape;
ppShape53: TppShape;
ppShape54: TppShape;
ppShape55: TppShape;
ppShape56: TppShape;
ppShape57: TppShape;
ppShape58: TppShape;
ppShape59: TppShape;
ppShape60: TppShape;
ppShape61: TppShape;
ppShape62: TppShape;
ppShape63: TppShape;
ppShape64: TppShape;
ppShape65: TppShape;
ppShape66: TppShape;
ppShape67: TppShape;
ppShape68: TppShape;
ppShape69: TppShape;
ppShape70: TppShape;
ppShape71: TppShape;
ppShape72: TppShape;
ppShape73: TppShape;
ppShape74: TppShape;
ppShape75: TppShape;
ppShape76: TppShape;
ppShape77: TppShape;
ppShape78: TppShape;
ppShape79: TppShape;
ppShape80: TppShape;
ppShape81: TppShape;
ppShape82: TppShape;
ppShape83: TppShape;
ppShape84: TppShape;
ppShape85: TppShape;
ppShape86: TppShape;
ppShape87: TppShape;
ppShape88: TppShape;
ppShape89: TppShape;
ppShape90: TppShape;
ppShape91: TppShape;
ppShape92: TppShape;
ppShape93: TppShape;
ppShape94: TppShape;
ppShape95: TppShape;
ppShape96: TppShape;
ppShape97: TppShape;
ppShape98: TppShape;
ppShape99: TppShape;
ppShape100: TppShape;
ppShape101: TppShape;
ppShape102: TppShape;
ppShape103: TppShape;
ppShape104: TppShape;
ppShape105: TppShape;
ppShape106: TppShape;
ppShape107: TppShape;
ppShape108: TppShape;
ppShape109: TppShape;
ppShape110: TppShape;
ppShape111: TppShape;
ppShape112: TppShape;
ppShape113: TppShape;
ppShape114: TppShape;
ppShape115: TppShape;
ppShape116: TppShape;
ppShape117: TppShape;
ppShape118: TppShape;
ppShape119: TppShape;
ppShape120: TppShape;
ppShape121: TppShape;
ppShape122: TppShape;
ppShape123: TppShape;
ppShape124: TppShape;
ppShape125: TppShape;
ppShape126: TppShape;
ppShape127: TppShape;
ppShape128: TppShape;
ppShape129: TppShape;
ppShape130: TppShape;
ppShape131: TppShape;
ppShape132: TppShape;
ppShape133: TppShape;
ppShape134: TppShape;
ppShape135: TppShape;
ppShape136: TppShape;
ppShape137: TppShape;
ppShape138: TppShape;
ppShape139: TppShape;
ppShape140: TppShape;
ppShape141: TppShape;
ppShape142: TppShape;
ppShape143: TppShape;
ppShape144: TppShape;
ppShape165: TppShape;
ppShape166: TppShape;
ppShape167: TppShape;
ppShape168: TppShape;
ppShape169: TppShape;
ppShape170: TppShape;
ppShape171: TppShape;
ppShape172: TppShape;
ppShape173: TppShape;
ppShape174: TppShape;
ppShape175: TppShape;
ppShape176: TppShape;
ppShape178: TppShape;
ppShape180: TppShape;
ppShape177: TppShape;
ppShape179: TppShape;
ppShape181: TppShape;
ppShape182: TppShape;
ppShape183: TppShape;
ppShape184: TppShape;
ppShape185: TppShape;
ppShape186: TppShape;
ppShape187: TppShape;
ppShape188: TppShape;
ppShape189: TppShape;
ppShape190: TppShape;
ppShape191: TppShape;
ppShape192: TppShape;
ppShape193: TppShape;
ppShape194: TppShape;
ppShape195: TppShape;
ppLabel9: TppLabel;
ppLabel10: TppLabel;
ppLabel11: TppLabel;
ppLabel12: TppLabel;
ppLabel13: TppLabel;
ppLabel14: TppLabel;
ppLabel15: TppLabel;
ppLabel16: TppLabel;
ppDBText1: TppDBText;
ppDBText2: TppDBText;
ppDBText3: TppDBText;
ppDBText4: TppDBText;
ppDBText5: TppDBText;
ppDBText6: TppDBText;
ppDBText7: TppDBText;
ppDBText8: TppDBText;
ppDBText9: TppDBText;
ppDBText10: TppDBText;
ppDBText11: TppDBText;
ppDBText12: TppDBText;
ppDBText13: TppDBText;
ppDBText14: TppDBText;
ppDBText15: TppDBText;
ppDBText16: TppDBText;
ppDBText17: TppDBText;
ppDBText18: TppDBText;
ppDBText24: TppDBText;
ppDBText25: TppDBText;
ppDBText26: TppDBText;
ppDBText27: TppDBText;
ppDBText28: TppDBText;
ppDBText29: TppDBText;
ppDBText30: TppDBText;
ppDBText31: TppDBText;
ppDBText32: TppDBText;
ppDBText33: TppDBText;
ppDBText34: TppDBText;
ppDBText35: TppDBText;
ppDBText36: TppDBText;
ppDBText37: TppDBText;
ppDBText38: TppDBText;
ppDBText39: TppDBText;
ppDBText40: TppDBText;
ppDBText41: TppDBText;
ppDBText42: TppDBText;
ppDBText43: TppDBText;
ppDBText44: TppDBText;
ppShape145: TppShape;
ppShape146: TppShape;
ppShape147: TppShape;
ppShape148: TppShape;
ppShape149: TppShape;
ppShape150: TppShape;
ppShape151: TppShape;
ppShape152: TppShape;
ppShape153: TppShape;
ppShape154: TppShape;
ppShape155: TppShape;
ppShape156: TppShape;
ppShape157: TppShape;
ppShape158: TppShape;
ppShape159: TppShape;
ppShape160: TppShape;
ppShape161: TppShape;
ppShape162: TppShape;
ppShape163: TppShape;
ppShape164: TppShape;
ppDBText19: TppDBText;
ppDBText20: TppDBText;
ppDBText21: TppDBText;
ppDBText22: TppDBText;
ppDBText23: TppDBText;
ppDBText45: TppDBText;
ppDBText46: TppDBText;
ppDBText47: TppDBText;
ppDBText48: TppDBText;
ppDBText49: TppDBText;
ppDBText50: TppDBText;
ppDBText51: TppDBText;
ppDBText52: TppDBText;
ppDBText53: TppDBText;
ppDBText54: TppDBText;
ppDBText55: TppDBText;
ppDBText56: TppDBText;
ppDBText57: TppDBText;
ppDBText58: TppDBText;
ppDBText59: TppDBText;
ppDBText60: TppDBText;
ppDBText61: TppDBText;
ppDBText62: TppDBText;
ppDBText63: TppDBText;
ppDBText64: TppDBText;
ppDBText65: TppDBText;
ppDBText66: TppDBText;
ppDBText67: TppDBText;
ppDBText68: TppDBText;
ppDBText69: TppDBText;
ppDBText70: TppDBText;
ppDBText71: TppDBText;
ppDBText72: TppDBText;
ppDBText73: TppDBText;
ppDBText74: TppDBText;
ppDBText75: TppDBText;
ppDBText76: TppDBText;
ppDBText77: TppDBText;
ppDBText78: TppDBText;
ppDBText79: TppDBText;
ppDBText80: TppDBText;
ppDBText81: TppDBText;
ppDBText82: TppDBText;
ppDBText83: TppDBText;
ppDBText84: TppDBText;
ppDBText85: TppDBText;
ppDBText86: TppDBText;
ppDBText87: TppDBText;
ppDBText88: TppDBText;
ppDBText89: TppDBText;
ppDBText90: TppDBText;
ppDBText91: TppDBText;
ppDBText92: TppDBText;
ppDBText93: TppDBText;
ppDBText94: TppDBText;
ppDBText95: TppDBText;
ppDBText96: TppDBText;
ppDBText97: TppDBText;
ppDBText98: TppDBText;
ppDBText99: TppDBText;
ppDBText100: TppDBText;
ppDBText101: TppDBText;
ppDBText102: TppDBText;
ppDBText103: TppDBText;
ppDBText104: TppDBText;
ppDBText105: TppDBText;
ppDBText106: TppDBText;
ppDBText107: TppDBText;
ppDBText108: TppDBText;
ppDBText109: TppDBText;
ppDBText110: TppDBText;
ppDBText111: TppDBText;
ppDBText112: TppDBText;
ppDBText113: TppDBText;
ppDBText114: TppDBText;
ppDBText115: TppDBText;
ppDBText116: TppDBText;
ppDBText117: TppDBText;
ppDBText118: TppDBText;
ppDBText119: TppDBText;
ppDBText120: TppDBText;
ppDBText121: TppDBText;
ppDBText122: TppDBText;
ppDBText123: TppDBText;
ppDBText124: TppDBText;
ppDBText125: TppDBText;
ppDBText126: TppDBText;
ppDBText127: TppDBText;
ppDBText128: TppDBText;
ppDBText129: TppDBText;
ppLabel17: TppLabel;
ppLabel18: TppLabel;
ppLabel19: TppLabel;
ppDBText130: TppDBText;
ppDBText131: TppDBText;
ppDBText132: TppDBText;
ppDBText133: TppDBText;
ppDBText134: TppDBText;
ppDBText135: TppDBText;
ppDBText136: TppDBText;
ppDBText137: TppDBText;
ppDBText138: TppDBText;
ppDBText139: TppDBText;
ppDBText140: TppDBText;
ppDBText141: TppDBText;
ppDBText142: TppDBText;
ppDBText143: TppDBText;
ppDBText144: TppDBText;
ppDBText145: TppDBText;
ppDBText146: TppDBText;
ppDBText147: TppDBText;
ppDBText148: TppDBText;
ppDBText149: TppDBText;
ppDBText150: TppDBText;
ppDBText151: TppDBText;
ppDBText152: TppDBText;
ppDBText153: TppDBText;
ppDBText154: TppDBText;
ppDBText155: TppDBText;
ppDBText156: TppDBText;
ppDBText157: TppDBText;
ppDBText158: TppDBText;
ppDBText159: TppDBText;
ppDBText160: TppDBText;
ppDBText161: TppDBText;
ppDBText162: TppDBText;
ppDBText163: TppDBText;
ppDBText164: TppDBText;
ppDBText165: TppDBText;
ppDBText166: TppDBText;
ppDBText167: TppDBText;
ppDBText168: TppDBText;
ppDBText169: TppDBText;
ppDBText170: TppDBText;
ppDBText171: TppDBText;
ppDBText172: TppDBText;
ppLabel20: TppLabel;
ppLabel21: TppLabel;
ppLabel22: TppLabel;
ppLabel23: TppLabel;
ppLabel24: TppLabel;
ppLabel25: TppLabel;
ppLabel26: TppLabel;
ppLabel27: TppLabel;
ppLabel28: TppLabel;
ppLabel29: TppLabel;
ppLabel30: TppLabel;
ppLabel31: TppLabel;
ppLabel32: TppLabel;
ppLabel33: TppLabel;
ppLabel34: TppLabel;
ppLabel35: TppLabel;
ppLabel36: TppLabel;
ppLabel37: TppLabel;
ppLabel38: TppLabel;
ppLabel39: TppLabel;
ppLabel40: TppLabel;
Query1: TQuery;
DataSource1: TDataSource;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mddyfrm: Tmddyfrm;
implementation
uses mddyunit;
{$R *.dfm}
procedure Tmddyfrm.SpeedButton2Click(Sender: TObject);
begin
ppViewer1.Print;
end;
procedure Tmddyfrm.SpeedButton3Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;
procedure Tmddyfrm.SpeedButton8Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;
procedure Tmddyfrm.SpeedButton9Click(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;
procedure Tmddyfrm.SpeedButton4Click(Sender: TObject);
begin
ppViewer1.FirstPage;
end;
procedure Tmddyfrm.SpeedButton5Click(Sender: TObject);
begin
ppViewer1.PriorPage;
end;
procedure Tmddyfrm.SpeedButton6Click(Sender: TObject);
begin
ppViewer1.NextPage;
end;
procedure Tmddyfrm.SpeedButton7Click(Sender: TObject);
begin
ppViewer1.LastPage;
end;
procedure Tmddyfrm.SpeedButton10Click(Sender: TObject);
begin
if ppViewer1.Report.Printing then
ppViewer1.Cancel;
end;
procedure Tmddyfrm.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
var
liPage: Longint;
begin
if (Key = #13) then
begin
liPage := StrToInt(MaskEdit1.Text);
ppViewer1.GotoPage(liPage);
end;
end;
procedure Tmddyfrm.FormCreate(Sender: TObject);
begin
ppViewer1.Reset;
ppLabel4.Text:=mddy.combobox2.text;
ppReport1.PrintToDevices ;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -