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; exit;
end; end;
end; end;
procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject);
var var
fPrintFile, fPrintFile10, FMainID: string; fPrintFile, fPrintFile10, FMainID: string;
sqlStr: string; sqlStr: string;
begin begin
if (ComboBox1.ItemIndex = 4) and (Edit3.Text = '') then // if (ComboBox1.ItemIndex = 4) and (Edit3.Text = '') then
begin // begin
Application.MessageBox('헝渴흙땍낀', '瓊刻', 0); // Application.MessageBox('헝渴흙땍낀', '瓊刻', 0);
Exit; // Exit;
end; // end;
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
if trim(ComboBox1.Text) = '' then if trim(ComboBox1.Text) = '' then
@ -1479,7 +1479,7 @@ begin
ExecSQL; ExecSQL;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(亶匡)') or (ComboBox1.ItemIndex = 0) then if (trim(ComboBox1.Text) = '쇱駱쯤데(亶匡)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1504,7 +1504,7 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(櫓匡)') or (ComboBox1.ItemIndex = 1) then if (trim(ComboBox1.Text) = '쇱駱쯤데(櫓匡)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1574,10 +1574,10 @@ begin
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=''2'' ');
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(삠悧)') or (ComboBox1.ItemIndex = 4) then if (trim(ComboBox1.Text) = '쇱駱쯤데(삠悧)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1604,7 +1604,9 @@ begin
end; end;
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 begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1629,7 +1631,7 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') or (ComboBox1.ItemIndex = 2) then if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1654,7 +1656,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') or (ComboBox1.ItemIndex = 3) then if (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin