?? ru_exceptionclass.pas
字號:
unit RU_exceptionclass;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Qrctrls, QuickRpt, ExtCtrls;
type
TQR_exceptionclass = class(TForm)
QuickRep1: TQuickRep;
DetailBand1: TQRBand;
PageFooterBand1: TQRBand;
TitleBand1: TQRBand;
QRSysData1: TQRSysData;
ColumnHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
Query1: TQuery;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRShape1: TQRShape;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRDBText4: TQRDBText;
QRShape2: TQRShape;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRLabel17: TQRLabel;
QRDBText17: TQRDBText;
QRSysData3: TQRSysData;
QRLabel18: TQRLabel;
Query1empid: TIntegerField;
Query1ejbm_name: TStringField;
Query1name: TStringField;
Query1work_num: TStringField;
Query1cardnum: TStringField;
Query1workday: TDateTimeField;
Query1moringup: TIntegerField;
Query1char1: TStringField;
Query1moringdown: TIntegerField;
Query1char2: TStringField;
Query1afternoonup: TIntegerField;
Query1char3: TStringField;
Query1afternoondown: TIntegerField;
Query1char4: TStringField;
Query1eveningup: TIntegerField;
Query1char5: TStringField;
Query1eveningdown: TIntegerField;
Query1char6: TStringField;
Query1exceptionclass: TStringField;
Query1teamsid: TIntegerField;
QRShape3: TQRShape;
QRSysData2: TQRSysData;
SummaryBand1: TQRBand;
QRShape4: TQRShape;
Query2: TQuery;
QuickRep2: TQuickRep;
QRBand1: TQRBand;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
QRDBText20: TQRDBText;
QRShape5: TQRShape;
QRDBText21: TQRDBText;
QRDBText22: TQRDBText;
QRDBText23: TQRDBText;
QRDBText24: TQRDBText;
QRDBText25: TQRDBText;
QRDBText26: TQRDBText;
QRDBText27: TQRDBText;
QRDBText28: TQRDBText;
QRDBText29: TQRDBText;
QRDBText30: TQRDBText;
QRDBText31: TQRDBText;
QRDBText32: TQRDBText;
QRDBText33: TQRDBText;
QRDBText34: TQRDBText;
QRBand2: TQRBand;
QRBand3: TQRBand;
QRSysData4: TQRSysData;
QRShape6: TQRShape;
QRSysData5: TQRSysData;
QRLabel19: TQRLabel;
QRSysData6: TQRSysData;
QRBand4: TQRBand;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRLabel23: TQRLabel;
QRLabel24: TQRLabel;
QRLabel25: TQRLabel;
QRLabel26: TQRLabel;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
QRLabel29: TQRLabel;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRLabel35: TQRLabel;
QRLabel36: TQRLabel;
QRShape7: TQRShape;
QRBand5: TQRBand;
QRShape8: TQRShape;
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
QR_exceptionclass: TQR_exceptionclass;
implementation
{$R *.DFM}
procedure TQR_exceptionclass.FormDestroy(Sender: TObject);
begin
QR_exceptionclass:=nil;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -