Group_DJD/D7DJjingzhiming
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
libingpeng 2025-11-22 15:25:01 +08:00
parent ed9a59cced
commit 893cafb9a4
4 changed files with 565 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
复合检验管理/U_JYOrderCDOne.dfm
View File

@ -1,8 +1,8 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 370 Left = 195
Top = 226 Top = 283
Width = 1400 Width = 1400
Height = 757 Height = 760
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -273,6 +273,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton15: TToolButton
Left = 844
Top = 60
AutoSize = True
Caption = #25209#37327#25171#21360#26631#31614
ImageIndex = 96
OnClick = ToolButton15Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -824,7 +832,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0 Left = 0
Top = 180 Top = 180
Width = 1392 Width = 1392
Height = 546 Height = 549
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -1774,8 +1782,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel11: TPanel object Panel11: TPanel
Left = 908 Left = 916
Top = 384 Top = 448
Width = 225 Width = 225
Height = 117 Height = 117
Color = clSkyBlue Color = clSkyBlue
@ -1911,7 +1919,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = Button13Click OnClick = Button13Click
end end
object Button14: TButton object Button14: TButton
Left = 172 Left = 180
Top = 86 Top = 86
Width = 60 Width = 60
Height = 25 Height = 25
@ -2001,6 +2009,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = Edit6Click OnClick = Edit6Click
end end
end end
object Panel15: TPanel
Left = 288
Top = 440
Width = 273
Height = 137
Color = clSkyBlue
TabOrder = 15
Visible = False
object Label41: TLabel
Left = 32
Top = 45
Width = 48
Height = 12
Caption = #26631#31614#20221#25968
end
object Button17: TButton
Left = 32
Top = 86
Width = 60
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = Button17Click
end
object Button18: TButton
Left = 172
Top = 86
Width = 60
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = Button18Click
end
object Edit7: TEdit
Left = 96
Top = 40
Width = 125
Height = 20
TabOrder = 2
end
end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>

148
复合检验管理/U_JYOrderCDOne.pas
View File

@ -225,6 +225,12 @@ type
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
ToolButton15: TToolButton;
Panel15: TPanel;
Label41: TLabel;
Button17: TButton;
Button18: TButton;
Edit7: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -290,6 +296,9 @@ type
procedure Button16Click(Sender: TObject); procedure Button16Click(Sender: TObject);
procedure Button15Click(Sender: TObject); procedure Button15Click(Sender: TObject);
procedure Edit6Click(Sender: TObject); procedure Edit6Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
// procedure Edit5Click(Sender: TObject); // procedure Edit5Click(Sender: TObject);
// procedure CheckBox3Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject);
private private
@ -1625,15 +1634,15 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') then if (trim(ComboBox1.Text) = '电子码单(米码)') or (trim(ComboBox1.Text) = '电子码单(米码公斤)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMD '); sql.add('exec P_Print_CKMDYDL_s ');
sql.add('@mainID=' + quotedstr(Trim(''))); // sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add('@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_HZ); SCreateCDS20(ADOQueryTemp, CDS_HZ);
@ -2358,5 +2367,136 @@ begin
end; end;
end; end;
procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
Panel15.Left := (self.Width - Panel11.Width) div 2;
Panel15.Visible := true;
end;
procedure TfrmJYOrderCDOne.Button17Click(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson=''' + Trim(DName) + '''');
sql.Add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(Order_Main.fieldbyname('MJID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
Order_Main.EnableControls;
exit;
end;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName ');
sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
sql.Add(',B.MPRTCF,C.*,A.* ');
sql.Add(' from WFB_MJJY A');
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
SQL.Add(' where A.MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
Open;
end;
with ADOQueryPrint1 do
begin
Close;
SQL.Clear;
sql.Add('exec P_Print_RollLabel');
sql.Add('@MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
Open;
end;
if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then
begin
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('SLbName').AsString);
end
else
begin
ExportFtErpFile('通用标签.rmf', ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用标签.rmf';
end;
if Trim(ADOQueryPrint1.fieldbyname('SLbName').AsString) <> '' then
begin
ExportFtErpFile(Trim(ADOQueryPrint1.fieldbyname('SLbName').AsString), ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint1.fieldbyname('SLbName').AsString);
end
else
begin
ExportFtErpFile('通用标签.rmf', ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用标签.rmf';
end;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile);
RM2.DefaultCopies := strtointdef(trim(Edit7.Text), 1);
// RM2.ShowReport;
RM2.PrintReport;
Panel15.Visible := false;
end
else
begin
Order_Main.EnableControls;
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\卷标签.rmf'), '提示', 0);
Exit;
end;
end;
Next;
end;
end;
Order_Main.EnableControls;
end;
procedure TfrmJYOrderCDOne.Button18Click(Sender: TObject);
begin
Panel15.Visible := false;
end;
end. end.

193
复合检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 196 Left = 124
Top = 97 Top = 39
Width = 1556 Width = 1556
Height = 754 Height = 754
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -1065,7 +1065,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 144
Top = 352 Top = 383
Width = 26 Width = 26
Height = 22 Height = 22
Caption = 'cm' Caption = 'cm'
@ -1104,7 +1104,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label6: TLabel object Label6: TLabel
Left = 8 Left = 8
Top = 352 Top = 383
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #24133#23485 Caption = #24133#23485
@ -1130,7 +1130,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label10: TLabel object Label10: TLabel
Left = 8 Left = 8
Top = 265 Top = 297
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27491#21697 Caption = #27491#21697
@ -1143,7 +1143,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label12: TLabel object Label12: TLabel
Left = 92 Left = 92
Top = 265 Top = 297
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #27425#21697 Caption = #27425#21697
@ -1197,7 +1197,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 144
Top = 393 Top = 414
Width = 36 Width = 36
Height = 22 Height = 22
Caption = 'g/'#13217 Caption = 'g/'#13217
@ -1210,7 +1210,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 392 Top = 417
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1222,22 +1222,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label27: TLabel object Label27: TLabel
Left = 219 Left = 10
Top = 461 Top = 262
Width = 40 Width = 42
Height = 23 Height = 20
Caption = #36192#36865 Caption = #25918#30721
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clRed Font.Color = clBlue
Font.Height = -20 Font.Height = -20
Font.Name = 'Arial' Font.Name = #23435#20307
Font.Style = [] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label26: TLabel object Label26: TLabel
Left = 8 Left = 8
Top = 308 Top = 340
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20986#32440 Caption = #20986#32440
@ -1316,7 +1315,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label34: TLabel object Label34: TLabel
Left = 90 Left = 90
Top = 311 Top = 343
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #20221#25968 Caption = #20221#25968
@ -1395,7 +1394,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label28: TLabel object Label28: TLabel
Left = 274 Left = 256
Top = 604 Top = 604
Width = 42 Width = 42
Height = 20 Height = 20
@ -1420,7 +1419,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label55: TLabel object Label55: TLabel
Left = 208 Left = 208
@ -1475,7 +1473,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label60: TLabel object Label60: TLabel
Left = 208 Left = 208
@ -1490,9 +1487,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label63: TLabel
Left = 10
Top = 454
Width = 42
Height = 20
Caption = #26495#21495
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 = 53
Top = 346 Top = 377
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1540,9 +1550,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object BTPrint: TButton object BTPrint: TButton
Left = 10 Left = 10
Top = 429 Top = 484
Width = 171 Width = 171
Height = 93 Height = 65
Caption = #25552#20132 Caption = #25552#20132
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1555,7 +1565,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit3: TEdit object Edit3: TEdit
Left = 52 Left = 52
Top = 259 Top = 291
Width = 39 Width = 39
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1572,7 +1582,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit4: TEdit object Edit4: TEdit
Left = 130 Left = 130
Top = 259 Top = 291
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1604,8 +1614,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 53
Top = 387 Top = 409
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1619,8 +1629,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJQty2: TEdit object MJQty2: TEdit
Left = 273 Left = 57
Top = 460 Top = 254
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1630,7 +1640,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 17 TabOrder = 17
Visible = False
OnChange = MJQty2Change OnChange = MJQty2Change
OnClick = Edit1Click OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
@ -1638,7 +1647,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit6: TEdit object Edit6: TEdit
Left = 52 Left = 52
Top = 302 Top = 334
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1706,7 +1715,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 132 Left = 132
Top = 303 Top = 335
Width = 45 Width = 45
Height = 40 Height = 40
Style = csDropDownList Style = csDropDownList
@ -1793,7 +1802,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object baoNo: TEdit object baoNo: TEdit
Left = 321 Left = 303
Top = 597 Top = 597
Width = 90 Width = 90
Height = 36 Height = 36
@ -1817,9 +1826,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Button7: TButton object Button7: TButton
Left = 10 Left = 25
Top = 525 Top = 628
Width = 171 Width = 87
Height = 53 Height = 53
Caption = #25171#21253#26631#31614 Caption = #25171#21253#26631#31614
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1844,7 +1853,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 21 TabOrder = 21
Visible = False
OnBtnClick = KHBtnClick OnBtnClick = KHBtnClick
end end
object PM: TBtnEditA object PM: TBtnEditA
@ -1928,7 +1936,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
TabOrder = 26 TabOrder = 26
Text = #36890#29992#26631#31614 Text = #36890#29992#26631#31614
Visible = False
OnChange = SLbNameChange OnChange = SLbNameChange
Items.Strings = ( Items.Strings = (
#36890#29992#26631#31614 #36890#29992#26631#31614
@ -1948,7 +1955,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 27 TabOrder = 27
Visible = False
OnClick = Button9Click OnClick = Button9Click
end end
object Button10: TButton object Button10: TButton
@ -2013,6 +2019,46 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
OnClick = Button13Click OnClick = Button13Click
end end
object Button5: TButton
Left = 11
Top = 552
Width = 169
Height = 53
Caption = #25171#26495#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 32
OnClick = Button5Click
end
object Banno: TEdit
Left = 54
Top = 446
Width = 90
Height = 36
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -28
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 33
OnChange = BannoChange
OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown
OnKeyPress = MJstr3KeyPress
end
object banid: TEdit
Left = 411
Top = 597
Width = 94
Height = 20
TabOrder = 34
Visible = False
end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 1158 Left = 1158
@ -2416,7 +2462,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 618 Left = 610
Top = 348 Top = 348
Width = 353 Width = 353
Height = 334 Height = 334
@ -2794,7 +2840,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Color = clSkyBlue Color = clSkyBlue
TabOrder = 7 TabOrder = 7
object Label2: TLabel object Label2: TLabel
Left = 684 Left = 764
Top = 4 Top = 4
Width = 40 Width = 40
Height = 19 Height = 19
@ -2872,7 +2918,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label44: TLabel object Label44: TLabel
Left = 154 Left = 113
Top = 30 Top = 30
Width = 60 Width = 60
Height = 19 Height = 19
@ -2886,7 +2932,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label46: TLabel object Label46: TLabel
Left = 763 Left = 653
Top = 30 Top = 30
Width = 80 Width = 80
Height = 19 Height = 19
@ -2900,7 +2946,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label47: TLabel object Label47: TLabel
Left = 515 Left = 571
Top = 4 Top = 4
Width = 60 Width = 60
Height = 19 Height = 19
@ -2914,7 +2960,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label48: TLabel object Label48: TLabel
Left = 283 Left = 208
Top = 30 Top = 30
Width = 100 Width = 100
Height = 19 Height = 19
@ -2927,7 +2973,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label51: TLabel object Label51: TLabel
Left = 691 Left = 581
Top = 30 Top = 30
Width = 40 Width = 40
Height = 19 Height = 19
@ -2941,7 +2987,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label52: TLabel object Label52: TLabel
Left = 847 Left = 737
Top = 30 Top = 30
Width = 40 Width = 40
Height = 19 Height = 19
@ -2954,7 +3000,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label43: TLabel object Label43: TLabel
Left = 419 Left = 344
Top = 30 Top = 30
Width = 120 Width = 120
Height = 19 Height = 19
@ -2967,7 +3013,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label61: TLabel object Label61: TLabel
Left = 587 Left = 501
Top = 30 Top = 30
Width = 40 Width = 40
Height = 19 Height = 19
@ -2979,6 +3025,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label62: TLabel
Left = 901
Top = 30
Width = 60
Height = 19
Caption = #31859#36716#30721
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BTAdd: TButton object BTAdd: TButton
Left = 1070 Left = 1070
Top = 8 Top = 8
@ -3039,7 +3098,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit7Click OnClick = Edit7Click
end end
object Edit9: TEdit object Edit9: TEdit
Left = 122 Left = 81
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3056,7 +3115,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit9Click OnClick = Edit9Click
end end
object Edit10: TEdit object Edit10: TEdit
Left = 735 Left = 625
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3073,7 +3132,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit10Click OnClick = Edit10Click
end end
object Edit11: TEdit object Edit11: TEdit
Left = 254 Left = 179
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3089,7 +3148,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit11Click OnClick = Edit11Click
end end
object Edit12: TEdit object Edit12: TEdit
Left = 660 Left = 550
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3106,7 +3165,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit12Click OnClick = Edit12Click
end end
object ComboBox2: TComboBox object ComboBox2: TComboBox
Left = 888 Left = 778
Top = 24 Top = 24
Width = 74 Width = 74
Height = 32 Height = 32
@ -3126,7 +3185,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
#25163#36755) #25163#36755)
end end
object Edit5: TEdit object Edit5: TEdit
Left = 389 Left = 314
Top = 26 Top = 26
Width = 28 Width = 28
Height = 27 Height = 27
@ -3142,7 +3201,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit5Click OnClick = Edit5Click
end end
object Edit13: TEdit object Edit13: TEdit
Left = 556 Left = 470
Top = 26 Top = 26
Width = 28 Width = 28
Height = 27 Height = 27
@ -3157,6 +3216,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 10 TabOrder = 10
OnClick = Edit13Click OnClick = Edit13Click
end end
object Edit14: TEdit
Left = 871
Top = 24
Width = 28
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 11
OnClick = Edit14Click
end
end end
object ScrollBox2: TScrollBox object ScrollBox2: TScrollBox
Left = -64 Left = -64

229
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -314,6 +314,12 @@ type
SpeedButton96: TSpeedButton; SpeedButton96: TSpeedButton;
SpeedButton97: TSpeedButton; SpeedButton97: TSpeedButton;
Button8: TButton; Button8: TButton;
Edit14: TEdit;
Label62: TLabel;
Button5: TButton;
Label63: TLabel;
Banno: TEdit;
banid: 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);
@ -387,6 +393,9 @@ type
procedure Button12Click(Sender: TObject); procedure Button12Click(Sender: TObject);
procedure SpeedButton19DblClick(Sender: TObject); procedure SpeedButton19DblClick(Sender: TObject);
procedure Button13Click(Sender: TObject); procedure Button13Click(Sender: TObject);
procedure Edit14Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BannoChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -519,6 +528,28 @@ begin
end; end;
//procedure TfrmMJManageNewFDNewSF.On1301(var Message: Tmessage);
//var
// i1, i2: integer;
// unitname: string;
// fdata: double;
//begin
// i1 := Message.WParam;
// i2 := Message.LParam;
// if IsJsMessage then
// begin
// if (trim(Edit7.Text) = '√') then
// begin
// MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
// if i2 = 0 then
// Label9.Caption := 'M'
// else
// Label9.Caption := 'Y';
// edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
// end;
// end;
//
//end;
procedure TfrmMJManageNewFDNewSF.On1301(var Message: Tmessage); procedure TfrmMJManageNewFDNewSF.On1301(var Message: Tmessage);
var var
i1, i2: integer; i1, i2: integer;
@ -531,15 +562,26 @@ begin
begin begin
if (trim(Edit7.Text) = '√') then if (trim(Edit7.Text) = '√') then
begin begin
MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); fdata := i1 / 100000;
// Edit14打勾时进行米转码
if (trim(Edit14.Text) = '√') then
begin
MJLen.Text := format('%.' + trim(fxsws) + 'f', [fdata * 1.09361]);
Label9.Caption := 'Y'; // 显示为码
end
else
begin
MJLen.Text := format('%.' + trim(fxsws) + 'f', [fdata]);
if i2 = 0 then if i2 = 0 then
Label9.Caption := 'M' Label9.Caption := 'M'
else else
Label9.Caption := 'Y'; Label9.Caption := 'Y';
edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
end;
end; end;
edit1.Text := format('%.' + trim(fxsws) + 'f', [fdata]);
end;
end;
end; end;
procedure TfrmMJManageNewFDNewSF.On1201(var Message: Tmessage); procedure TfrmMJManageNewFDNewSF.On1201(var Message: Tmessage);
@ -1174,6 +1216,10 @@ begin
FieldByName('baoID').Value := Trim(baoID.Text); FieldByName('baoID').Value := Trim(baoID.Text);
end; end;
FieldByName('banNO').Value := Trim(banno.text);
FieldByName('banID').Value := Trim(banID.Text);
Post; Post;
end; end;
if PState = 1 then if PState = 1 then
@ -2485,6 +2531,7 @@ end;
procedure TfrmMJManageNewFDNewSF.Button3Click(Sender: TObject); procedure TfrmMJManageNewFDNewSF.Button3Click(Sender: TObject);
var var
FBaoID: string; FBaoID: string;
FBanid: string;
begin begin
fRollType := ''; fRollType := '';
with ADOTmp do with ADOTmp do
@ -2492,6 +2539,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select B.*,B.OrderNo OrderNoM,C.*, '); sql.Add('select B.*,B.OrderNo OrderNoM,C.*, ');
SQL.Add('maxbanno=1+isnull((select max(banno) from WFB_MJJY X where X.mainid=C.mainid and banflag=1),0),');
sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.SubID=C.subID),0),'); sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.SubID=C.subID),0),');
sql.Add('minMJxh=isnull((select min(mjxh) from WFB_MJJY X where X.SubID=C.subID),1),'); sql.Add('minMJxh=isnull((select min(mjxh) from WFB_MJJY X where X.SubID=C.subID),1),');
// sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.subID=C.subID ),0)'); // sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.subID=C.subID ),0)');
@ -2575,12 +2623,20 @@ begin
fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString); fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString);
fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString); fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);
baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString); baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString);
Banno.Text := Trim(ADOTmp.fieldbyname('maxBanNO').AsString);
if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then
begin begin
Application.MessageBox('取包条码最大号失败！', '提示', 0); Application.MessageBox('取包条码最大号失败！', '提示', 0);
Exit; Exit;
end; end;
baoid.Text := FBaoID; baoid.Text := FBaoID;
if GetLSNo(ADOTmp, FBanid, 'Bn', 'WFB_MJJY', 3, 1) = False then
begin
Application.MessageBox('取板条码最大号失败！', '提示', 0);
Exit;
end;
BanID.Text := trim(FBanid);
Edit3.Text := '√'; Edit3.Text := '√';
Edit4.Text := ''; Edit4.Text := '';
MJStr4.Text := ''; MJStr4.Text := '';
@ -2816,6 +2872,8 @@ begin
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);
banno.Text := Trim(ADOTmp.fieldbyname('banno').AsString);
banid.Text := Trim(ADOTmp.fieldbyname('banid').AsString);
if Trim(ADOTmp.fieldbyname('MJType').AsString) = '正品' then if Trim(ADOTmp.fieldbyname('MJType').AsString) = '正品' then
begin begin
Edit3.Text := '√'; Edit3.Text := '√';
@ -3371,5 +3429,170 @@ begin
end; end;
end; end;
procedure TfrmMJManageNewFDNewSF.Edit14Click(Sender: TObject);
begin
if Trim(Edit14.Text) = '' then
begin
Edit14.Text := '√';
end
else
begin
Edit14.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.Button5Click(Sender: TObject);
var
sqlStr: string;
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
FBaoID, FBanid: string;
i: Integer;
begin
if (Banno.Text = '') or (FAPId = '') then
exit;
with ADOTmp do
begin
Close;
SQL.Clear;
sql.Add(' select A.mjid, C.prtcolor');
sql.Add(' from wfb_mjjy A');
sql.Add(' inner join jyorder_main B on A.mainid=B.mainid');
sql.Add(' inner join jyorder_sub C on A.subid=C.subid');
sql.Add(' where A.banno=''' + trim(Banno.Text) + ''' and A.mainID=''' + trim(fMainID) + ''' ');
// sql.Add(' where A.banno=''' + trim(Banno.Text) + ''' and A.subid=''' + trim(FAPId) + '''');
//ShowMessage(sql.text);
Open;
end;
if ADOTmp.IsEmpty then
//SHOWMESSage('11111111');
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete TBsubID where DName=''' + Trim(DCode) + '''');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM TBsubID where 1=2 ');
open;
end;
sqlStr := '';
with ADOTmp do
begin
First;
while not Eof do
begin
sqlStr := sqlStr + 'insert into TBsubID(subId,Dname) ';
sqlStr := sqlStr + ' values( ';
sqlStr := sqlStr + ' ''' + Trim(ADOTmp.fieldbyname('MJID').AsString) + ''', ';
sqlStr := sqlStr + ' ''' + Trim(DCode) + ''' ';
sqlStr := sqlStr + ' ) ';
Next;
end;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(sqlStr);
ExecSQL;
end;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd30_copy1 ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
SQL.Add(',@JTType=' + QuotedStr(SCXFlag));
sql.add('update WFB_MJJY set banflag= 1 from WFB_MJJY A ');
SQL.Add(' where A.banno=''' + trim(Banno.Text) + ''' and A.mainID=''' + trim(fMainID) + '''');
SQL.Add(' and A.JTType=''' + trim(SCXFlag) + '''');
// SQL.Add(' where A.banno=''' + trim(Banno.Text) + ''' and A.subid=''' + trim(FAPId) + '''');
Open;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(banid.text);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
exit;
end;
if GetLSNo(ADOTmp, FBanid, 'Bn', 'WFB_MJJY', 3, 1) = False then
begin
Application.MessageBox('取包条码最大号失败！', '提示', 0);
Exit;
end;
BanID.Text := trim(FBanid);
ExportFtErpFile('板标签.rmf', ADOCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\板标签.rmf';
if not FileExists(fPrintFile) then
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
Exit;
end;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile);
RM2.DefaultCopies := 2;
// RM2.ShowReport;
RM2.printReport;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxBanNO=1+isnull((select max(cast(ISNULL(BanNO,0) as Int)) from WFB_MJJY X where X.mainID=''' + trim(fMainID) + '''),1)');
sql.Add('from WFB_MJJY X where X.mainID=''' + trim(fMainID) + ''' ');
// sql.Add('select maxBanNO=1+isnull((select max(cast(ISNULL(BanNO,0) as Int)) from WFB_MJJY X where X.subid=''' + trim(FAPId) + '''),1)');
// sql.Add('from WFB_MJJY X where X.subid=''' + trim(FAPId) + ''' ');
Open;
BanNO.Text := Trim(fieldbyname('maxBanNO').AsString);
end;
end;
procedure TfrmMJManageNewFDNewSF.BannoChange(Sender: TObject);
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select ');
sql.Add(' A.*,B.prtcolor from WFB_MJJY A inner join JYOrder_sub B on B.subId=A.subId where A.mainID=''' + Trim(FmainID) + '''');
if Trim(SCXFlag) <> '' then
sql.Add(' and JTType=''' + Trim(SCXFlag) + '''');
SQL.Add('and banno=''' + Trim(Banno.text) + '''');
sql.Add(' order by FillTime desc');
// showmessage(sql.text);
Open;
end;
banid.Text := ADOQueryMain.fieldbyname('banid').AsString
end;
end. end.