【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“dsxxunit.pas”一文,供大家参考学习
unit dsxxunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, ExtCtrls, Buttons, ppViewr, ppProd, ppClass,
ppReport, ppComm, ppRelatv, ppDB, ppDBPipe, DB, ADODB, ppBands, ppCache,
ppCtrls, ppPrnabl;
type
Tdsxx = class(TForm)
qry: TADOQuery;
DataSource1: TDataSource;
ppDBPipeline1: TppDBPipeline;
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;
ppDBText1: TppDBText;
ppLabel3: TppLabel;
ppDBText2: TppDBText;
ppLabel4: TppLabel;
ppLabel5: TppLabel;
ppLabel6: TppLabel;
ppDBText3: TppDBText;
ppDBText4: TppDBText;
ppDBText5: TppDBText;
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);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
dsxx: Tdsxx;
implementation
uses main;
{$R *.dfm}
procedure Tdsxx.SpeedButton3Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;
procedure Tdsxx.SpeedButton8Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;
procedure Tdsxx.SpeedButton9Click(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;
procedure Tdsxx.SpeedButton4Click(Sender: TObject);
begin
ppViewer1.FirstPage;
end;
procedure Tdsxx.SpeedButton5Click(Sender: TObject);
begin
ppViewer1.PriorPage;
end;
procedure Tdsxx.SpeedButton6Click(Sender: TObject);
begin
ppViewer1.NextPage;
end;
procedure Tdsxx.SpeedButton7Click(Sender: TObject);
begin
ppViewer1.LastPage;
end;
procedure Tdsxx.SpeedButton10Click(Sender: TObject);
begin
if ppViewer1.Report.Printing then
ppViewer1.Cancel;
end;
procedure Tdsxx.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 Tdsxx.FormCreate(Sender: TObject);
begin
with qry do
begin
close;
sql.Clear ;
sql.Add('select * from jbqk_0 where DSXM=:id');
parameters.ParamByName('id').Value:=yjgl_form.Edit23.Text;
open;
end;
ppViewer1.Reset;
ppReport1.PrintToDevices ;
end;
procedure Tdsxx.SpeedButton2Click(Sender: TObject);
begin
ppViewer1.Print;
end;
end.
上一篇:
DSUtil.pas
下一篇:
不规则零件优化排样的神经网络混合优化算法