机台检验-------把“出纸”的按钮拆成两个 一个是“出卷唛”和“出包唛”，因为他们的卷标签和包标签大小不一样，一台机也只配备一个打印机，所以先打卷标签再打包标签，但是老版程序点打印的时候包标签和卷标签是一起出来的 好像不能只出一个卷标签，之后再批量大包标签
This commit is contained in:
parent
4c174b294a
commit
76e60e3335
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\徐加艳项目代码\项目代码\铭帆\打卷检验管理\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\项目代码\D7DJmingfan\打卷检验管理\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
|
|||
Comments=
|
||||
[Excluded Packages]
|
||||
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;
|
||||
|
|
|
|||
|
|
@ -4,7 +4,8 @@ interface
|
|||
|
||||
uses
|
||||
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
|
||||
TMyThread = class(TThread)
|
||||
protected
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||
Left = 322
|
||||
Top = 165
|
||||
Left = 193
|
||||
Top = 118
|
||||
Width = 1366
|
||||
Height = 754
|
||||
Caption = #25104#21697#26816#39564
|
||||
|
|
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Left = 0
|
||||
Top = 87
|
||||
Width = 214
|
||||
Height = 628
|
||||
Height = 636
|
||||
Align = alLeft
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
@ -123,10 +123,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 633
|
||||
Left = 649
|
||||
Top = 87
|
||||
Width = 717
|
||||
Height = 628
|
||||
Width = 709
|
||||
Height = 636
|
||||
Align = alClient
|
||||
Color = clWhite
|
||||
ParentColor = False
|
||||
|
|
@ -976,8 +976,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
object Panel2: TPanel
|
||||
Left = 428
|
||||
Top = 87
|
||||
Width = 205
|
||||
Height = 628
|
||||
Width = 221
|
||||
Height = 636
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object Label3: TLabel
|
||||
Left = 144
|
||||
Top = 383
|
||||
Top = 385
|
||||
Width = 26
|
||||
Height = 22
|
||||
Caption = 'cm'
|
||||
|
|
@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object Label6: TLabel
|
||||
Left = 8
|
||||
Top = 383
|
||||
Top = 385
|
||||
Width = 42
|
||||
Height = 20
|
||||
Caption = #24133#23485
|
||||
|
|
@ -1130,7 +1130,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object Label22: TLabel
|
||||
Left = 144
|
||||
Top = 424
|
||||
Top = 426
|
||||
Width = 36
|
||||
Height = 22
|
||||
Caption = 'g/'#13217
|
||||
|
|
@ -1143,7 +1143,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object Label23: TLabel
|
||||
Left = 8
|
||||
Top = 423
|
||||
Top = 425
|
||||
Width = 42
|
||||
Height = 20
|
||||
Caption = #20811#37325
|
||||
|
|
@ -1169,10 +1169,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object Label26: TLabel
|
||||
Left = 8
|
||||
Top = 339
|
||||
Width = 42
|
||||
Top = 347
|
||||
Width = 63
|
||||
Height = 20
|
||||
Caption = #20986#32440
|
||||
Caption = #20986#21367#21787
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -20
|
||||
|
|
@ -1247,8 +1247,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
ParentFont = False
|
||||
end
|
||||
object Label34: TLabel
|
||||
Left = 90
|
||||
Top = 342
|
||||
Left = 130
|
||||
Top = 344
|
||||
Width = 40
|
||||
Height = 19
|
||||
Caption = #20221#25968
|
||||
|
|
@ -1337,9 +1337,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
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
|
||||
Left = 51
|
||||
Top = 377
|
||||
Top = 379
|
||||
Width = 90
|
||||
Height = 41
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -1387,7 +1400,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object BTPrint: TButton
|
||||
Left = 10
|
||||
Top = 460
|
||||
Top = 462
|
||||
Width = 171
|
||||
Height = 93
|
||||
Caption = #25552#20132
|
||||
|
|
@ -1452,7 +1465,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object MJSJKZ: TEdit
|
||||
Left = 51
|
||||
Top = 418
|
||||
Top = 420
|
||||
Width = 90
|
||||
Height = 41
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -1483,7 +1496,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
OnKeyPress = MJstr3KeyPress
|
||||
end
|
||||
object Edit6: TEdit
|
||||
Left = 52
|
||||
Left = 84
|
||||
Top = 333
|
||||
Width = 40
|
||||
Height = 43
|
||||
|
|
@ -1551,8 +1564,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
OnKeyPress = MJQty4KeyPress
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 132
|
||||
Top = 334
|
||||
Left = 172
|
||||
Top = 336
|
||||
Width = 45
|
||||
Height = 40
|
||||
Style = csDropDownList
|
||||
|
|
@ -1653,15 +1666,15 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
OnKeyPress = MJstr3KeyPress
|
||||
end
|
||||
object BaoID: TEdit
|
||||
Left = 251
|
||||
Top = 252
|
||||
Left = 283
|
||||
Top = 260
|
||||
Width = 121
|
||||
Height = 20
|
||||
TabOrder = 10
|
||||
end
|
||||
object Button7: TButton
|
||||
Left = 10
|
||||
Top = 556
|
||||
Top = 558
|
||||
Width = 171
|
||||
Height = 53
|
||||
Caption = #25171#21253#26631#31614
|
||||
|
|
@ -1674,9 +1687,26 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
TabOrder = 20
|
||||
OnClick = Button7Click
|
||||
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
|
||||
object MovePanel1: TMovePanel
|
||||
Left = 634
|
||||
Left = 658
|
||||
Top = 91
|
||||
Width = 339
|
||||
Height = 236
|
||||
|
|
@ -1929,7 +1959,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Left = 214
|
||||
Top = 87
|
||||
Width = 214
|
||||
Height = 628
|
||||
Height = 636
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -1938,7 +1968,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Left = 2
|
||||
Top = 2
|
||||
Width = 210
|
||||
Height = 303
|
||||
Height = 311
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBTableView
|
||||
|
|
@ -2046,7 +2076,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object Panel8: TPanel
|
||||
Left = 2
|
||||
Top = 305
|
||||
Top = 313
|
||||
Width = 210
|
||||
Height = 28
|
||||
Align = alBottom
|
||||
|
|
@ -2061,7 +2091,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object AOrdDefNote1: TRichEdit
|
||||
Left = 2
|
||||
Top = 333
|
||||
Top = 341
|
||||
Width = 210
|
||||
Height = 293
|
||||
Align = alBottom
|
||||
|
|
@ -2077,8 +2107,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
end
|
||||
object Panel3: TPanel
|
||||
Left = 634
|
||||
Top = 328
|
||||
Left = 658
|
||||
Top = 320
|
||||
Width = 353
|
||||
Height = 334
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -2274,7 +2304,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1350
|
||||
Width = 1358
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
|
|
@ -2462,7 +2492,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
object Panel6: TPanel
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1350
|
||||
Width = 1358
|
||||
Height = 57
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
|
|||
|
|
@ -10,7 +10,8 @@ uses
|
|||
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
|
||||
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
|
||||
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI;
|
||||
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmMJManageNewFDNewSF = class(TForm)
|
||||
|
|
@ -249,6 +250,8 @@ type
|
|||
RM3: TRMGridReport;
|
||||
Edit5: TEdit;
|
||||
Label43: TLabel;
|
||||
Label53: TLabel;
|
||||
Edit13: TEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -307,6 +310,7 @@ type
|
|||
procedure Timer1Timer(Sender: TObject);
|
||||
procedure TBCDClick(Sender: TObject);
|
||||
procedure Edit5Click(Sender: TObject);
|
||||
procedure Edit13Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
|
||||
|
|
@ -1618,7 +1622,7 @@ begin
|
|||
Exit;
|
||||
end;
|
||||
end;
|
||||
if Trim(Edit6.Text) <> '' then
|
||||
if (Trim(Edit6.Text) <> '') or (Trim(Edit13.Text) <> '') then
|
||||
begin
|
||||
with ADOTmp do
|
||||
begin
|
||||
|
|
@ -1690,7 +1694,7 @@ begin
|
|||
PrtData(FFFMJID);
|
||||
end;
|
||||
|
||||
if Trim(Edit6.Text) = '¡Ì' then
|
||||
if Trim(Edit13.Text) = '¡Ì' then
|
||||
begin
|
||||
if (fbaotype = 'ÊÖ¶¯´ò°ü') or (fbaotype = '') then
|
||||
begin
|
||||
|
|
@ -2287,11 +2291,13 @@ begin
|
|||
if Trim(Edit6.Text) = '' then
|
||||
begin
|
||||
Edit6.Text := '¡Ì';
|
||||
//Edit13.Text := '';
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit6.Text := '';
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; var Key: Char);
|
||||
|
|
@ -2954,8 +2960,14 @@ begin
|
|||
if CDS_MJID.IsEmpty then
|
||||
Exit;
|
||||
MggCDFalg := '99';
|
||||
|
||||
if Edit6.Text = '¡Ì' then
|
||||
begin
|
||||
PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
|
||||
end;
|
||||
if Edit13.Text = '¡Ì' then
|
||||
begin
|
||||
PrtBaoData(Trim(CDS_MJID.fieldbyname('baoid').AsString));
|
||||
end;
|
||||
Label16.Caption := '';
|
||||
BTAdd.Click;
|
||||
MJLen.SetFocus;
|
||||
|
|
@ -2975,5 +2987,18 @@ begin
|
|||
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.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user