Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

更新打印

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-07 12:49:00 +08:00
parent 91f32f0b8c
commit bb338744d7
5 changed files with 124 additions and 105 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
A00标签打印/U_ClientPrintRmf.dfm
View File

@ -1,8 +1,8 @@
object frmClientPrintRmf: TfrmClientPrintRmf
Left = 372
Top = 106
Width = 924
Height = 745
Left = 874
Top = 483
Width = 403
Height = 240
Caption = #25253#34920#25171#21360
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
@ -22,20 +22,20 @@ object frmClientPrintRmf: TfrmClientPrintRmf
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 526
Top = 219
Left = 265
Top = 65503
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Left = 280
Top = 219
Left = 19
Top = 65503
end
object ImageList1: TImageList
DrawingStyle = dsTransparent
Height = 32
Width = 32
Left = 362
Top = 343
Left = 101
Top = 91
Bitmap = {
494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
000000000000360000002800000080000000E0000000010020000000000000C0
@ -3743,8 +3743,8 @@ object frmClientPrintRmf: TfrmClientPrintRmf
object RMDB_1: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 526
Top = 343
Left = 265
Top = 91
end
object RM1: TRMGridReport
ThreadPrepareReport = True
@ -3763,48 +3763,48 @@ object frmClientPrintRmf: TfrmClientPrintRmf
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 526
Top = 405
Left = 265
Top = 153
ReportData = {}
end
object RMDB_2: TRMDBDataSet
Visible = True
DataSet = ADO_2
Left = 608
Top = 343
Left = 347
Top = 91
end
object CDS_Label: TClientDataSet
Aggregates = <>
Params = <>
Left = 280
Top = 343
Left = 19
Top = 91
end
object ADO_1: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 608
Top = 219
Left = 347
Top = 65503
end
object ADO_2: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 280
Top = 281
Left = 19
Top = 29
end
object RMDB_3: TRMDBDataSet
Visible = True
DataSet = ADO_3
Left = 280
Top = 405
Left = 19
Top = 153
end
object ADO_3: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 362
Top = 281
Left = 101
Top = 29
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
@ -3817,61 +3817,62 @@ object frmClientPrintRmf: TfrmClientPrintRmf
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 362
Top = 467
Left = 19
Top = 215
end
object RMJPEGExport1: TRMJPEGExport
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
Left = 608
Top = 405
Left = 347
Top = 153
end
object RMBarCodeObject1: TRMBarCodeObject
Left = 444
Top = 343
Left = 183
Top = 91
end
object ADOQueryCmd: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 362
Top = 219
Left = 101
Top = 65503
end
object ADO_While: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 608
Top = 281
Left = 347
Top = 29
end
object ADO_4: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 444
Top = 281
Left = 183
Top = 29
end
object RMDB_4: TRMDBDataSet
Visible = True
DataSet = ADO_4
Left = 362
Top = 405
Left = 101
Top = 153
end
object ADO_5: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 526
Top = 281
Left = 265
Top = 29
end
object RMDB_5: TRMDBDataSet
Visible = True
DataSet = ADO_5
Left = 444
Top = 405
Left = 183
Top = 153
end
object ADOQueryReport: TADOQuery
Connection = DataLink_YXYMT.ADOLink
Parameters = <>
Left = 444
Top = 219
Left = 183
Top = 65503
end
end

39
A00标签打印/U_ClientPrintRmf.pas
View File

@ -57,6 +57,7 @@ type
public
FPrintJson: PChar;
FJsonOut: PChar;
DConString, DCode, DName: string;
constructor Create(AOwner: TComponent; JsonArgs: PChar);
{ Public declarations }
end;
@ -67,7 +68,7 @@ var
implementation
uses
U_DataLink, U_RTFun, superobject;
U_RTFun, superobject;
{$R *.dfm}
constructor TfrmClientPrintRmf.Create(AOwner: TComponent; JsonArgs: PChar);
@ -100,6 +101,10 @@ begin
FExportFileType := JSONObject.S['ExportFileType'];
FExportFileName := JSONObject.S['ExportFileName'];
DConString := JSONObject.S['DConString'];
DCode := JSONObject.S['DCode'];
DName := JSONObject.S['DName'];
// 设置默认导出文件名
if Trim(FExportFileName) = '' then
FExportFileName := FLBName;
@ -216,30 +221,16 @@ end;
procedure TfrmClientPrintRmf.FormCreate(Sender: TObject);
begin
FPreviewPrint := True;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
except
{if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
begin
try
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
//ConnectionString:='23242';
Connected:=true;
end;
except
end;
end; }
InitArgs();
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
end;
procedure TfrmClientPrintRmf.FormClose(Sender: TObject; var Action: TCloseAction);
@ -251,8 +242,6 @@ end;
procedure TfrmClientPrintRmf.FormShow(Sender: TObject);
begin
InitArgs();
if flbName = '' then
begin
FJsonOut := '{"success":false,"message":"未传入打印标签!"}';

8
A00标签打印/U_LabelPrint.dfm
View File

@ -1,8 +1,8 @@
object frmLabelPrint: TfrmLabelPrint
Left = 1104
Top = 424
Width = 291
Height = 194
Width = 277
Height = 181
Caption = #25253#34920#25171#21360
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
@ -21,8 +21,8 @@ object frmLabelPrint: TfrmLabelPrint
object Panel1: TPanel
Left = 0
Top = 0
Width = 283
Height = 163
Width = 269
Height = 150
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered

49
A00标签打印/U_LabelPrint.pas
View File

@ -79,6 +79,7 @@ type
public
FPrintJson: PChar;
FJsonOut: PChar;
DConString, DCode, DName: string;
constructor Create(AOwner: TComponent; JsonArgs: PChar);
{ Public declarations }
end;
@ -89,7 +90,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_LabelMapSet, superobject;
U_RTFun, U_LabelMapSet, superobject;
{$R *.dfm}
constructor TfrmLabelPrint.Create(AOwner: TComponent; JsonArgs: PChar);
@ -107,8 +108,6 @@ begin
// fexportFileType := exportFileType;
end;
procedure TfrmLabelPrint.InitArgs;
var
JSONObject, item: ISuperObject; // SuperObject 接口类型
@ -128,7 +127,13 @@ begin
FSuccessfulFun := JSONObject.S['SuccessfulFun'];
FLMType := JSONObject.S['LMType'];
FPreviewPrint := JSONObject.B['PreviewPrint'];
DConString := JSONObject.S['DConString'];
DCode := JSONObject.S['DCode'];
DName := JSONObject.S['DName'];
// 获取数组
jsonArray := JSONObject.A['PrtArgs'];
if jsonArray = nil then // 处理数组不存在的情况
@ -280,34 +285,20 @@ procedure TfrmLabelPrint.FormCreate(Sender: TObject);
begin
FPreviewPrint := True;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
except
{if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
begin
try
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
//ConnectionString:='23242';
Connected:=true;
end;
except
end;
end; }
InitArgs();
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
end;
procedure TfrmLabelPrint.btnPrintClick(Sender: TObject);
begin
PrintLabel(False);
FJsonOut := '{"succsee":true,"success":true}';
FJsonOut := '{"success":true}';
ModalResult := 1;
end;
@ -315,7 +306,7 @@ procedure TfrmLabelPrint.btnShowClick(Sender: TObject);
begin
PrintLabel(true);
FJsonOut := '{"ShowFlag":true}';
FJsonOut := '{"success":true,"ShowFlag":true}';
end;
procedure TfrmLabelPrint.cbbLabPropertiesButtonClick(Sender: TObject);
@ -397,12 +388,11 @@ end;
procedure TfrmLabelPrint.FormShow(Sender: TObject);
begin
InitArgs();
// if FPreviewPrint then
// RM1.PreviewButtons := [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
// else
// RM1.PreviewButtons := [rmpbZoom, rmpbLoad, rmpbSave, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator];
// ComboBox_Print.Properties.Items.Assign(printer.Printers);
InitGrid();
end;
@ -414,7 +404,6 @@ end;
procedure TfrmLabelPrint.FormDestroy(Sender: TObject);
begin
frmLabelPrint := nil;
end;

40
A00标签打印/U_LabelPrintFun.pas Normal file
View File

@ -0,0 +1,40 @@
unit U_LabelPrintFun;
interface
uses
Forms, U_LabelPrint, U_ClientPrintRmf;
function FormPrint(App: Tapplication; JsonArgs: PChar): PChar;
function FunPrint(App: Tapplication; JsonArgs: PChar): PChar;
implementation
//'{ "LMType": "LMType","PreviewPrint": true,"DConString": "'+DConString+'","DCode": "'+DCode+'","DName": "'+DName+'", "PrtArgs": [ { "IsSql": true, "Filtration": "Filtration1" }] }';
function FormPrint(App: Tapplication; JsonArgs: PChar): PChar;
begin
with TfrmLabelPrint.Create(App, PChar(JsonArgs)) do
begin
Show;
if ShowModal = 1 then
Result := FJsonOut
else
Result := FJsonOut;
end;
end;
// '{ "LBName": "²âÊÔ","DConString": "'+DConString+'","DCode": "'+DCode+'","DName": "'+DName+'","IsPreview": true,"printerIndex": 0,"ExportFileType": "", "PrtArgs": [ {"SqlStr": "EXEC p_test ''22'' " }] }';
function FunPrint(App: Tapplication; JsonArgs: PChar): PChar;
begin
with TfrmClientPrintRmf.Create(App, JsonArgs) do
begin
Show;
Result := FJsonOut;
end;
end;
end.