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

30
检验管理/U_JYOrderCDOne.pas
View File

@ -1388,19 +1388,19 @@ begin
exit;
end;
end;
end;
procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject);
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;
if trim(ComboBox1.Text) = '' then
@ -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
@ -1574,10 +1574,10 @@ begin
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
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