Group_01/D7DJmingsheng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-13 15:56:51 +08:00
parent 67c5beb813
commit 7286eac99e
3 changed files with 36 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\鸣胜复合\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJmingsheng\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

67
检验管理/U_JYOrderCDOne.dfm
View File

@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1218 Width = 1218
Height = 92 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 131 ButtonWidth = 131
@ -104,42 +104,42 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = TBDWClick OnClick = TBDWClick
end end
object TBMS: TToolButton object TBMS: TToolButton
Left = 0 Left = 600
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54 ImageIndex = 54
OnClick = TBMSClick OnClick = TBMSClick
end end
object TBPZ: TToolButton object TBPZ: TToolButton
Left = 111 Left = 711
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54 ImageIndex = 54
OnClick = TBPZClick OnClick = TBPZClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 222 Left = 822
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#21333#20215 Caption = #25209#37327#20462#25913#21333#20215
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 333 Left = 933
Top = 30 Top = 0
Caption = #25209#37327#20462#25913#23458#25143#21697#21517 Caption = #25209#37327#20462#25913#23458#25143#21697#21517
ImageIndex = 56 ImageIndex = 56
Wrap = True
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 464 Left = 0
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#32568#21495 Caption = #25209#37327#20462#25913#32568#21495
@ -147,7 +147,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBPrintBao: TToolButton object TBPrintBao: TToolButton
Left = 575 Left = 111
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -156,7 +156,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBPrintBaoClick OnClick = TBPrintBaoClick
end end
object TBPrintBq: TToolButton object TBPrintBq: TToolButton
Left = 674 Left = 210
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
@ -164,34 +164,33 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBPrintBqClick OnClick = TBPrintBqClick
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 761 Left = 297
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
ImageIndex = 57 ImageIndex = 57
Wrap = True
Visible = False Visible = False
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object TBPrintJYBB: TToolButton object TBPrintJYBB: TToolButton
Left = 0 Left = 384
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12 ImageIndex = 12
OnClick = TBPrintJYBBClick OnClick = TBPrintJYBBClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 111 Left = 495
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object Edit3: TEdit object Edit3: TEdit
Left = 174 Left = 558
Top = 60 Top = 30
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -204,8 +203,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 242 Left = 626
Top = 63 Top = 33
Width = 149 Width = 149
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -223,28 +222,28 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Items.Strings = ( Items.Strings = (
#26816#39564#30721#21333'('#31859#25968#37325#37327')' #26816#39564#30721#21333'('#31859#25968#37325#37327')'
#26816#39564#30721#21333'('#31859#25968')' #26816#39564#30721#21333'('#31859#25968')'
#22806#38144#30721#21333 #26816#39564#30721#21333'('#33457#22411')'
'') #22806#38144#30721#21333)
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 391 Left = 775
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 478 Left = 862
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 541 Left = 925
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -253,7 +252,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 92 Top = 62
Width = 1218 Width = 1218
Height = 88 Height = 88
Align = alTop Align = alTop
@ -775,9 +774,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 180 Top = 150
Width = 1218 Width = 1218
Height = 401 Height = 431
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

14
检验管理/U_JYOrderCDOne.pas
View File

@ -1583,17 +1583,12 @@ begin
end; end;
if (trim(ComboBox1.Text) = '外销码单') then if (trim(ComboBox1.Text) = '外销码单') then
begin begin
// if Edit3.Text=''then
// begin
// application.MessageBox('请输入单价！','提示',0);
// end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDYDL_WX '); sql.add('exec P_Print_CKMDYDL_WX ');
sql.add('@DName=' + quotedstr(Trim(DCode))); sql.add('@DName=' + quotedstr(Trim(DCode)));
// sql.add(',@MdPrice=' + quotedstr(Trim(Edit3.Text)));
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_HZ); SCreateCDS20(ADOQueryTemp, CDS_HZ);
@ -1612,17 +1607,12 @@ begin
end; end;
if (trim(ComboBox1.Text) = '检验码单(米数)') or (trim(ComboBox1.Text) = '检验码单(米数重量)') then if (trim(ComboBox1.Text) = '检验码单(米数)') or (trim(ComboBox1.Text) = '检验码单(米数重量)') then
begin begin
// if Edit3.Text=''then
// begin
// application.MessageBox('请输入单价！','提示',0);
// end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDYDL '); sql.add('exec P_Print_CKMDYDL ');
sql.add('@DName=' + quotedstr(Trim(DCode))); sql.add('@DName=' + quotedstr(Trim(DCode)));
// sql.add(',@MdPrice=' + quotedstr(Trim(Edit3.Text)));
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_HZ); SCreateCDS20(ADOQueryTemp, CDS_HZ);
@ -1635,7 +1625,7 @@ begin
sql.add('exec P_Do_PrintMd_HZ '); sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim(''))); sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' '); sql.add(',@flag=''22'' ');
Open; Open;
end; end;
end; end;
@ -1695,7 +1685,7 @@ begin
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end end
else else
begin begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0); Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);