Group_DJD/D7DJweimianerfen
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-21 09:36:02 +08:00
parent cb577e6ceb
commit 0b6cca9aed
1 changed files with 34 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
打卷检验管理/U_ProductOrderNewList.pas
View File

@ -20,12 +20,12 @@ 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)
@ -204,6 +204,7 @@ type
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private private
DQdate: TDateTime; DQdate: TDateTime;
FMainId: string; FMainId: string;
@ -218,7 +219,7 @@ type
public public
FFInt, FCloth: Integer; FFInt, FCloth: Integer;
fFlileFlag: string; fFlileFlag: string;
{ Public declarations } { Public declarations }
end; end;
var var
@ -234,7 +235,7 @@ uses
function TfrmProductOrderNewList.SelfConnData(): Boolean; function TfrmProductOrderNewList.SelfConnData(): Boolean;
begin begin
try try
with QryCheckNet do with QryCheckNet do
begin begin
Close; Close;
sql.Clear; sql.Clear;
@ -306,7 +307,23 @@ begin
ADOQuerySub.Close; ADOQuerySub.Close;
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
with ADOQuerySub do try
ADOQuerySub.DisableControls;
with ADOQuerySub do
begin
Close;
Filtered := False;
sql.Clear;
sql.add('exec P_View_Order_sub @mainid=' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
Open;
end;
finally
ADOQuerySub.EnableControls;
end;
{ with ADOQuerySub do
begin begin
close; close;
sql.Clear; sql.Clear;
@ -328,8 +345,9 @@ begin
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');
showmessage(sql.text);
open; open;
end; end; }
end; end;
procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject); procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject);
@ -922,7 +940,7 @@ end;
procedure TfrmProductOrderNewList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TfrmProductOrderNewList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
InitSub(); InitSub();
end; end;
procedure TfrmProductOrderNewList.TFJClick(Sender: TObject); procedure TfrmProductOrderNewList.TFJClick(Sender: TObject);
@ -1133,5 +1151,10 @@ begin
end; end;
end; end;
procedure TfrmProductOrderNewList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
InitSub();
end;
end. end.