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,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type
TfrmProductOrderNewList = class(TForm)
@ -204,6 +204,7 @@ type
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private
DQdate: TDateTime;
FMainId: string;
@ -218,7 +219,7 @@ type
public
FFInt, FCloth: Integer;
fFlileFlag: string;
{ Public declarations }
{ Public declarations }
end;
var
@ -234,7 +235,7 @@ uses
function TfrmProductOrderNewList.SelfConnData(): Boolean;
begin
try
with QryCheckNet do
with QryCheckNet do
begin
Close;
sql.Clear;
@ -306,7 +307,23 @@ begin
ADOQuerySub.Close;
if Order_Main.IsEmpty then
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
close;
sql.Clear;
@ -328,8 +345,9 @@ begin
sql.Add('from JYOrder_sub A ');
sql.Add('where A.mainID =' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
sql.Add(')AA');
showmessage(sql.text);
open;
end;
end; }
end;
procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject);
@ -922,7 +940,7 @@ end;
procedure TfrmProductOrderNewList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitSub();
InitSub();
end;
procedure TfrmProductOrderNewList.TFJClick(Sender: TObject);
@ -1133,5 +1151,10 @@ begin
end;
end;
procedure TfrmProductOrderNewList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
InitSub();
end;
end.