Group_03/D7DJjunyao
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-01-04 15:00:03 +08:00
parent 1f6361ff48
commit 850d998774
2 changed files with 33 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
检验管理/U_JYOrderCDOne.dfm
View File

@ -201,7 +201,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#30721#25968#30721#21333'('#25171#21253')'
'po'#30721#21333
#19968#21015#30721#21333
#26816#39564#30721#21333'('#38271#24230')')
#26816#39564#30721#21333'('#38271#24230')'
#30721#25968#30721#21333'('#28151#33394#25171#21253')')
end
object ToolButton9: TToolButton
Left = 664

38
检验管理/U_JYOrderCDOne.pas
View File

@ -19,12 +19,12 @@ uses
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type
TfrmJYOrderCDOne = class(TForm)
@ -1471,6 +1471,30 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '쵠鑒쯤데(살<>댔관)') or (trim(ComboBox1.Text) = '쯤鑒쯤데(살<>댔관)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDHAEIL_HS ');
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=''2'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = 'Ò»ÁÐÂëµ¥') then
begin
@ -1534,7 +1558,7 @@ begin
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;