Group_99/D7DJxiongshan
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-29 09:30:48 +08:00
parent b3618ba9db
commit 2ff5b74bb8
2 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
复合检验管理/U_OrderInPut.pas
View File

@ -393,17 +393,19 @@ var
begin begin
with ADOQuery1 do with ADOQuery1 do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select * from JYOrder_Sub where 1=1 '); sql.Add(' select * from JYOrder_Sub where 1=1 ');
if PState = 1 then if PState = 1 then
begin begin
sql.Add(' and MainId=''' + Trim(FMainId) + ''''); sql.Add(' and MainId=''' + Trim(FMainId) + '''');
sql.Add('order by XHNo')
end; end;
if PState = 0 then if PState = 0 then
begin begin
sql.Add(' and 1<>1'); sql.Add(' and 1<>1');
end; end;
Open; Open;
end; end;
SCreateCDS20(ADOQuery1, Order_Sub); SCreateCDS20(ADOQuery1, Order_Sub);

31
复合检验管理/U_ProductOrderNewList.pas
View File

@ -20,16 +20,16 @@ uses
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinscxPCPainter;
type type
TfrmProductOrderNewList = class(TForm) TfrmProductOrderNewList = class(TForm)
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; TBRafresh: TToolButton;
TBFind: TToolButton; TBFind: TToolButton;
TBAdd: TToolButton; TBAdd: TToolButton;
@ -290,9 +290,9 @@ begin
SQL.Add('MaxRoll=(select isnull(sum(maxroll),0) from (select Subid,mjstr4,max(mjxh) as maxroll from wfb_mjjy X group by mjstr4,Subid) XX where XX.subid=A.subid)'); SQL.Add('MaxRoll=(select isnull(sum(maxroll),0) from (select Subid,mjstr4,max(mjxh) as maxroll from wfb_mjjy X group by mjstr4,Subid) XX where XX.subid=A.subid)');
sql.Add('from JYOrder_sub A '); sql.Add('from JYOrder_sub A ');
sql.Add('where A.mainID =' + quotedstr((Order_Main.fieldbyname('mainID').AsString))); sql.Add('where A.mainID =' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
sql.Add(')AA'); sql.Add(')AA order by XHNo');
open; open;
end; end;
end; end;
procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject); procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject);
@ -534,7 +534,7 @@ begin
begin begin
PState := 0; PState := 0;
FMainId := ''; FMainId := '';
fFlileFlag := self.fFlileFlag; fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -845,10 +845,10 @@ begin
Exit; Exit;
RMDBMain.DataSet := CDS_Print; RMDBMain.DataSet := CDS_Print;
LBName := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; LBName := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex];
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf';
with ADOQueryPrint do with ADOQueryPrint do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.*,B.*,C.Filesother,ColorCount=(select isnull(Count(subID),0) from JYOrder_Sub where MainId=A.MainId), '); sql.Add('select A.*,B.*,C.Filesother,ColorCount=(select isnull(Count(subID),0) from JYOrder_Sub where MainId=A.MainId), ');
sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId),'); sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId),');
@ -859,7 +859,8 @@ begin
sql.Add(' left join TP_File C on C.TFID=B.Subid and C.WBID=B.Mainid '); sql.Add(' left join TP_File C on C.TFID=B.Subid and C.WBID=B.Mainid ');
// sql.Add(' left join TP_File D on D.TFID=A.orderNO '); // sql.Add(' left join TP_File D on D.TFID=A.orderNO ');
sql.Add(' Where A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); sql.Add(' Where A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add(' order by B.PRTCode,B.PRTCodeName,B.subID '); sql.Add(' order by cast(B.xhno as int) ');
// sql.Add(' order by B.PRTCode,B.PRTCodeName,B.subID ');
Open; Open;
end; end;
@ -869,7 +870,7 @@ begin
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
RMDBMain.DataSet :=nil; RMDBMain.DataSet := nil;
end end
else else
begin begin