85 lines
2.0 KiB
ObjectPascal
85 lines
2.0 KiB
ObjectPascal
|
unit U_CheckJiPrint;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, StdCtrls, DB, ADODB, RM_Dataset, RM_e_Graphic, RM_e_bmp,
|
|||
|
|
RM_Common, RM_Class, RM_e_Xls, RM_System, RM_GridReport, DBClient;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
Tfrm_CheckJiPrint = class(TForm)
|
|||
|
|
RMGridReport1: TRMGridReport;
|
|||
|
|
RMXLSExport1: TRMXLSExport;
|
|||
|
|
RMBMPExport1: TRMBMPExport;
|
|||
|
|
RMDS_Main: TRMDBDataSet;
|
|||
|
|
ADOConnection1: TADOConnection;
|
|||
|
|
ADOQueryTmp: TADOQuery;
|
|||
|
|
BtylPrint: TButton;
|
|||
|
|
RMDB_Other: TRMDBDataSet;
|
|||
|
|
CDS_other: TClientDataSet;
|
|||
|
|
CDS_otherprinter: TStringField;
|
|||
|
|
CDS_otherprintdate: TDateField;
|
|||
|
|
CDS_otherWorkClass: TStringField;
|
|||
|
|
CDS_otherbegDate: TStringField;
|
|||
|
|
CDS_otherendDate: TStringField;
|
|||
|
|
procedure BtylPrintClick(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
fPrintFile:string;
|
|||
|
|
procedure DoPrint();
|
|||
|
|
public
|
|||
|
|
fPrintModal:integer;
|
|||
|
|
fWorkClass:string; //<2F><><EFBFBD><EFBFBD>
|
|||
|
|
fbegDate,fEndDate:string;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frm_CheckJiPrint: Tfrm_CheckJiPrint;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
uses
|
|||
|
|
U_global;
|
|||
|
|
{$R *.dfm}
|
|||
|
|
//////////////////////////////////////////////////////
|
|||
|
|
//
|
|||
|
|
//////////////////////////////////////////////////////
|
|||
|
|
procedure Tfrm_CheckJiPrint.DoPrint();
|
|||
|
|
begin
|
|||
|
|
/////////////////////////////
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע<EFBFBD><D7A2>Ϣ<EFBFBD><CFA2>ʾ
|
|||
|
|
CDS_Other.Close ;
|
|||
|
|
CDS_Other.CreateDataSet;
|
|||
|
|
with CDS_Other do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
fieldByName('printDate').Value :=formatdateTime('yyyy-MM-dd',date());
|
|||
|
|
fieldByName('printer').value:=gusername;
|
|||
|
|
fieldByName('WorkClass').value:=fWorkClass;
|
|||
|
|
fieldByName('begDate').value:=fbegDate;
|
|||
|
|
fieldByName('endDate').value:=fendDate;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////
|
|||
|
|
if trim(fPrintFile)='' then
|
|||
|
|
fPrintFile:='checkreport\<5C><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>.rmf';
|
|||
|
|
with RMGridReport1 do
|
|||
|
|
begin
|
|||
|
|
LoadFromFile(ExtractFilePath(Application.ExeName)+fPrintFile);
|
|||
|
|
reportInfo.Title:=fPrintFile;
|
|||
|
|
Preview:=NIL;
|
|||
|
|
if fPrintModal=0 then
|
|||
|
|
ShowReport
|
|||
|
|
else
|
|||
|
|
PrintReport;
|
|||
|
|
end;
|
|||
|
|
self.Close ;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
procedure Tfrm_CheckJiPrint.BtylPrintClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
DoPrint();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|