Group_01/D7DJliaoxun
5
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-09 15:56:27 +08:00
parent 806bcbba11
commit 12a4fc14dd
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
检验管理/U_JYOrderCDOne.pas
View File

@ -1395,11 +1395,11 @@ var
fPrintFile, fPrintFile10, FMainID: string;
sqlStr: string;
begin
if (ComboBox1.ItemIndex = 4) and (Edit3.Text = '') then
begin
Application.MessageBox('헝渴흙땍낀', '瓊刻', 0);
Exit;
end;
// if (ComboBox1.ItemIndex = 4) and (Edit3.Text = '') then
// begin
// Application.MessageBox('헝渴흙땍낀', '瓊刻', 0);
// Exit;
// end;
if Order_Main.IsEmpty then
Exit;
@ -1479,7 +1479,7 @@ begin
ExecSQL;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(亶匡)') or (ComboBox1.ItemIndex = 0) then
if (trim(ComboBox1.Text) = '쇱駱쯤데(亶匡)') then
begin
with ADOQueryTemp do
begin
@ -1504,7 +1504,7 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(櫓匡)') or (ComboBox1.ItemIndex = 1) then
if (trim(ComboBox1.Text) = '쇱駱쯤데(櫓匡)') then
begin
with ADOQueryTemp do
begin
@ -1577,7 +1577,7 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(삠悧)') or (ComboBox1.ItemIndex = 4) then
if (trim(ComboBox1.Text) = '쇱駱쯤데(삠悧)') then
begin
with ADOQueryTemp do
begin
@ -1604,7 +1604,9 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(낀씐챘)') or (trim(ComboBox1.Text) = '쇱駱쯤데(빻謹씐챘)') or (trim(ComboBox1.Text) = '쇱駱쯤데(<28>뵀쵠쯤)') or (ComboBox1.ItemIndex = 5) then
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(낀씐챘)')
or (trim(ComboBox1.Text) = '쇱駱쯤데(빻謹씐챘)') or (trim(ComboBox1.Text) = '쇱駱쯤데(<28>뵀쵠쯤)')
or (trim(ComboBox1.Text) = '쇱駱쯤데(빻謹쵠쯤)') then
begin
with ADOQueryTemp do
begin
@ -1629,7 +1631,7 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') or (ComboBox1.ItemIndex = 2) then
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') then
begin
with ADOQueryTemp do
begin
@ -1654,7 +1656,7 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') or (ComboBox1.ItemIndex = 3) then
if (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') then
begin
with ADOQueryTemp do
begin