Group_DJD/D7DJmingfan
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

机台检验-------把“出纸”的按钮拆成两个 一个是“出卷唛”和“出包唛”，因为他们的卷标签和包标签大小不一样，一台机也只配备一个打印机，所以先打卷标签再打包标签，但是老版程序点打印的时候包标签和卷标签是一起出来的 好像不能只出一个卷标签，之后再批量大包标签

Browse Source
This commit is contained in:
libingpeng 2025-11-18 13:46:30 +08:00
parent 4c174b294a
commit 76e60e3335
4 changed files with 101 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\铭帆\打卷检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJmingfan\打卷检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=
@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

3
打卷检验管理/U_DataLink.pas
View File

@ -4,7 +4,8 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs; Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs,
dxSkinsCore, dxSkinsDefaultPainters;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
protected protected

100
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 322 Left = 193
Top = 165 Top = 118
Width = 1366 Width = 1366
Height = 754 Height = 754
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 636
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -123,10 +123,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 633 Left = 649
Top = 87 Top = 87
Width = 717 Width = 709
Height = 628 Height = 636
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -976,8 +976,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel2: TPanel object Panel2: TPanel
Left = 428 Left = 428
Top = 87 Top = 87
Width = 205 Width = 221
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 144
Top = 383 Top = 385
Width = 26 Width = 26
Height = 22 Height = 22
Caption = 'cm' Caption = 'cm'
@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label6: TLabel object Label6: TLabel
Left = 8 Left = 8
Top = 383 Top = 385
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #24133#23485 Caption = #24133#23485
@ -1130,7 +1130,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 144
Top = 424 Top = 426
Width = 36 Width = 36
Height = 22 Height = 22
Caption = 'g/'#13217 Caption = 'g/'#13217
@ -1143,7 +1143,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 423 Top = 425
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1169,10 +1169,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label26: TLabel object Label26: TLabel
Left = 8 Left = 8
Top = 339 Top = 347
Width = 42 Width = 63
Height = 20 Height = 20
Caption = #20986#32440 Caption = #20986#21367#21787
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -20 Font.Height = -20
@ -1247,8 +1247,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label34: TLabel object Label34: TLabel
Left = 90 Left = 130
Top = 342 Top = 344
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #20221#25968 Caption = #20221#25968
@ -1337,9 +1337,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label53: TLabel
Left = 160
Top = 219
Width = 63
Height = 20
Caption = #20986#21253#21787
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MJFK: TEdit object MJFK: TEdit
Left = 51 Left = 51
Top = 377 Top = 379
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1387,7 +1400,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object BTPrint: TButton object BTPrint: TButton
Left = 10 Left = 10
Top = 460 Top = 462
Width = 171 Width = 171
Height = 93 Height = 93
Caption = #25552#20132 Caption = #25552#20132
@ -1452,7 +1465,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 51
Top = 418 Top = 420
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1483,7 +1496,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object Edit6: TEdit object Edit6: TEdit
Left = 52 Left = 84
Top = 333 Top = 333
Width = 40 Width = 40
Height = 43 Height = 43
@ -1551,8 +1564,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJQty4KeyPress OnKeyPress = MJQty4KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 132 Left = 172
Top = 334 Top = 336
Width = 45 Width = 45
Height = 40 Height = 40
Style = csDropDownList Style = csDropDownList
@ -1653,15 +1666,15 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object BaoID: TEdit object BaoID: TEdit
Left = 251 Left = 283
Top = 252 Top = 260
Width = 121 Width = 121
Height = 20 Height = 20
TabOrder = 10 TabOrder = 10
end end
object Button7: TButton object Button7: TButton
Left = 10 Left = 10
Top = 556 Top = 558
Width = 171 Width = 171
Height = 53 Height = 53
Caption = #25171#21253#26631#31614 Caption = #25171#21253#26631#31614
@ -1674,9 +1687,26 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 20 TabOrder = 20
OnClick = Button7Click OnClick = Button7Click
end end
object Edit13: TEdit
Left = 172
Top = 245
Width = 40
Height = 43
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 21
Text = #8730
OnClick = Edit13Click
OnKeyPress = MJstr3KeyPress
end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 634 Left = 658
Top = 91 Top = 91
Width = 339 Width = 339
Height = 236 Height = 236
@ -1929,7 +1959,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 214 Left = 214
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1938,7 +1968,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 303 Height = 311
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2046,7 +2076,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 305 Top = 313
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2061,7 +2091,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 333 Top = 341
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2077,8 +2107,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 634 Left = 658
Top = 328 Top = 320
Width = 353 Width = 353
Height = 334 Height = 334
BevelInner = bvRaised BevelInner = bvRaised
@ -2274,7 +2304,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1350 Width = 1358
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2462,7 +2492,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1350 Width = 1358
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

41
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -10,7 +10,8 @@ uses
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI; MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
type type
TfrmMJManageNewFDNewSF = class(TForm) TfrmMJManageNewFDNewSF = class(TForm)
@ -249,6 +250,8 @@ type
RM3: TRMGridReport; RM3: TRMGridReport;
Edit5: TEdit; Edit5: TEdit;
Label43: TLabel; Label43: TLabel;
Label53: TLabel;
Edit13: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -307,6 +310,7 @@ type
procedure Timer1Timer(Sender: TObject); procedure Timer1Timer(Sender: TObject);
procedure TBCDClick(Sender: TObject); procedure TBCDClick(Sender: TObject);
procedure Edit5Click(Sender: TObject); procedure Edit5Click(Sender: TObject);
procedure Edit13Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -650,7 +654,7 @@ begin
sql.Clear; sql.Clear;
sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO ');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
if ADOTmp.IsEmpty then if ADOTmp.IsEmpty then
begin begin
@ -1618,7 +1622,7 @@ begin
Exit; Exit;
end; end;
end; end;
if Trim(Edit6.Text) <> '' then if (Trim(Edit6.Text) <> '') or (Trim(Edit13.Text) <> '') then
begin begin
with ADOTmp do with ADOTmp do
begin begin
@ -1690,7 +1694,7 @@ begin
PrtData(FFFMJID); PrtData(FFFMJID);
end; end;
if Trim(Edit6.Text) = '¡Ì' then if Trim(Edit13.Text) = '¡Ì' then
begin begin
if (fbaotype = 'ÊÖ¶¯´ò°ü') or (fbaotype = '') then if (fbaotype = 'ÊÖ¶¯´ò°ü') or (fbaotype = '') then
begin begin
@ -1871,7 +1875,7 @@ begin
RM2.PrintReport; RM2.PrintReport;
end; end;
if MggCDFalg = '99' then if MggCDFalg = '99' then
begin begin
with ADOCmd do with ADOCmd do
begin begin
@ -2287,11 +2291,13 @@ begin
if Trim(Edit6.Text) = '' then if Trim(Edit6.Text) = '' then
begin begin
Edit6.Text := '¡Ì'; Edit6.Text := '¡Ì';
//Edit13.Text := '';
end end
else else
begin begin
Edit6.Text := ''; Edit6.Text := '';
end; end;
end; end;
procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; var Key: Char); procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; var Key: Char);
@ -2718,7 +2724,7 @@ begin
MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString); baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString);
baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString); baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);
if Trim(ADOTmp.fieldbyname('MJType').AsString) = 'ÕýÆ·' then if Trim(ADOTmp.fieldbyname('MJType').AsString) = 'ÕýÆ·' then
begin begin
Edit3.Text := '¡Ì'; Edit3.Text := '¡Ì';
@ -2954,8 +2960,14 @@ begin
if CDS_MJID.IsEmpty then if CDS_MJID.IsEmpty then
Exit; Exit;
MggCDFalg := '99'; MggCDFalg := '99';
if Edit6.Text = '¡Ì' then
PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); begin
PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
end;
if Edit13.Text = '¡Ì' then
begin
PrtBaoData(Trim(CDS_MJID.fieldbyname('baoid').AsString));
end;
Label16.Caption := ''; Label16.Caption := '';
BTAdd.Click; BTAdd.Click;
MJLen.SetFocus; MJLen.SetFocus;
@ -2975,5 +2987,18 @@ begin
end; end;
end; end;
procedure TfrmMJManageNewFDNewSF.Edit13Click(Sender: TObject);
begin
if Trim(Edit13.Text) = '' then
begin
Edit13.Text := '¡Ì';
//Edit6.Text := '';
end
else
begin
Edit13.Text := '';
end;
end;
end. end.