Group_DJD/D7DJjushun
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

码单

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:21:28 +08:00
parent 3a05ad8140
commit cb4051de6b
3 changed files with 66 additions and 17 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
[Parameters]
RunParams=
HostApplication=D:\陈亿项目代码\项目代码\炬顺\打卷检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJjushun\打卷检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

30
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -142,19 +142,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54
Wrap = True
OnClick = ToolButton8Click
end
object ToolButton1: TToolButton
Left = 0
Top = 30
Left = 1139
Top = 0
AutoSize = True
Caption = #25171#21360#26631#31614
ImageIndex = 96
Wrap = True
OnClick = ToolButton1Click
end
object TCPDB: TToolButton
Left = 87
Left = 0
Top = 30
AutoSize = True
Caption = #25104#21697#25171#21253
@ -162,7 +162,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick
end
object ToolButton3: TToolButton
Left = 174
Left = 87
Top = 30
AutoSize = True
Caption = #25171#21360#21253#26631#31614
@ -171,7 +171,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 273
Left = 186
Top = 30
AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578
@ -179,7 +179,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 384
Left = 297
Top = 30
AutoSize = True
Caption = #25171#21360
@ -187,7 +187,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton5Click
end
object Edit3: TEdit
Left = 447
Left = 360
Top = 30
Width = 68
Height = 30
@ -202,7 +202,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress
end
object ComboBox1: TComboBox
Left = 515
Left = 428
Top = 33
Width = 149
Height = 24
@ -227,7 +227,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333)
end
object Edit4: TEdit
Left = 664
Left = 577
Top = 30
Width = 121
Height = 30
@ -241,7 +241,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False
end
object ToolButton12: TToolButton
Left = 785
Left = 698
Top = 30
Caption = #20462#25913#30721#21333
ImageIndex = 54
@ -249,7 +249,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton12Click
end
object ToolButton9: TToolButton
Left = 916
Left = 829
Top = 30
AutoSize = True
Caption = #24322#24120#25968#25454
@ -257,7 +257,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton9Click
end
object TBExport: TToolButton
Left = 1003
Left = 916
Top = 30
AutoSize = True
Caption = #23548#20986
@ -265,7 +265,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 1066
Left = 979
Top = 30
AutoSize = True
Caption = #20851#38381
@ -273,7 +273,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBCloseClick
end
object ToolButton16: TToolButton
Left = 1129
Left = 1042
Top = 30
Caption = #25209#37327#20462#25913#27611#37325#20928#37325
ImageIndex = 57

51
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -1529,7 +1529,30 @@ begin
// showmessage(sql.text);
ExecSQL;
end;
if trim(ComboBox1.Text) = '쇱駱쯤데(낀똑路좆)' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_QXMD ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''23'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(亶匡)') then
begin
with ADOQueryTemp do
@ -1682,7 +1705,33 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(관)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd20 ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''0'' ');
sql.add(',@CNum=''12'' ');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''22'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '嵐寡玖쯤데(쯤)') or (trim(ComboBox1.Text) = '嵐寡玖쯤데(쵠)') then
begin
with ADOQueryTemp do
@ -2404,7 +2453,7 @@ begin
Order_Main.DisableControls;
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
begin
First;
while not Eof do
begin