?? ureportreg.pas
字號:
unit ureportreg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, Buttons, StdCtrls, ExtCtrls, QRCtrls;
type
TFrmRegstd = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
QuickRep1: TQuickRep;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
PageHeaderBand1: TQRBand;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRLabel1: TQRLabel;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRShape6: TQRShape;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
QRLabel11: TQRLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmRegstd: TFrmRegstd;
implementation
uses MainD,UTIL;
{$R *.dfm}
procedure TFrmRegstd.SpeedButton1Click(Sender: TObject);
begin
QRLabel11.caption := edit1.text;
end;
procedure TFrmRegstd.SpeedButton2Click(Sender: TObject);
begin
QuickRep1.PreviewModal;
end;
procedure TFrmRegstd.SpeedButton3Click(Sender: TObject);
begin
QuickRep1.Print;
end;
procedure TFrmRegstd.SpeedButton4Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -