Group_01/D7DJweimianerfen
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-09 17:27:54 +08:00
parent 8886dae5e6
commit 7edb770171
7 changed files with 117 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\蔚勉二分厂\打卷检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJweimianerfen\打卷检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

12
打卷检验管理/U_ClothHCList.dfm
View File

@ -433,6 +433,18 @@ object frmClothHCList: TfrmClothHCList
HeaderAlignmentHorz = taCenter
Width = 65
end
object TV2Column1: TcxGridDBColumn
Caption = #25490#21333#26102#38388
DataBinding.FieldName = 'PDtime'
HeaderAlignmentHorz = taCenter
Width = 60
end
object TV2Column2: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'XHNO'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2

119
打卷检验管理/U_ClothHCList.pas
View File

@ -6,12 +6,24 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
cxTextEdit, cxDropDownEdit, cxCheckBox, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator;
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxDropDownEdit,
cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, 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;
type
TfrmClothHCList = class(TForm)
@ -62,6 +74,8 @@ type
V2Column2: TcxGridDBColumn;
PRTHX: TEdit;
Label5: TLabel;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -73,13 +87,13 @@ type
procedure TV2DblClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
FInt,PFInt:Integer;
FInt, PFInt: Integer;
procedure InitGrid();
procedure InitForm();
procedure InitGridWSQL(FWSQL:String);
procedure InitGridWSQL(FWSQL: string);
{ Private declarations }
public
fType:string;
fType: string;
{ Public declarations }
end;
@ -87,26 +101,27 @@ var
frmClothHCList: TfrmClothHCList;
implementation
uses
U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp,U_ProductOrderNewList_JD;
U_DataLink, U_ClothContractInPut, U_Fun, U_ProductOrderList, U_ZDYHelp,
U_ProductOrderNewList_JD;
{$R *.dfm}
procedure TfrmClothHCList.FormDestroy(Sender: TObject);
begin
frmClothHCList:=nil;
frmClothHCList := nil;
end;
procedure TfrmClothHCList.FormClose(Sender: TObject;
var Action: TCloseAction);
procedure TfrmClothHCList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
Action := caFree;
end;
procedure TfrmClothHCList.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid(self.Caption+tv2.Name,Tv2,'ָʾµ¥¹ÜÀí');
WriteCxGrid(self.Caption + tv2.Name, Tv2, 'ָʾµ¥¹ÜÀí');
end;
procedure TfrmClothHCList.InitGrid();
@ -114,41 +129,40 @@ begin
try
//ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
begin
Close;
Filtered:=False;
Filtered := False;
sql.Clear;
sql.Add('exec P_View_HC :begdate,:enddate,:WSQL');
Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date);
Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1);
Parameters.ParamByName('WSQL').Value:='';
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', BegDate.Date);
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', EndDate.Date + 1);
Parameters.ParamByName('WSQL').Value := '';
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
//ADOQueryMain.EnableControls;
end;
end;
procedure TfrmClothHCList.InitGridWSQL(FWSQL:String);
procedure TfrmClothHCList.InitGridWSQL(FWSQL: string);
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_View_HC :begdate,:enddate,:WSQL');
Parameters.ParamByName('begdate').Value:='2014-01-01';
Parameters.ParamByName('enddate').Value:='2050-01-01';
Parameters.ParamByName('WSQL').Value:=FWSQL;
Parameters.ParamByName('begdate').Value := '2014-01-01';
Parameters.ParamByName('enddate').Value := '2050-01-01';
Parameters.ParamByName('WSQL').Value := FWSQL;
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
@ -156,22 +170,21 @@ end;
procedure TfrmClothHCList.InitForm();
begin
ReadCxGrid(self.Caption+tv2.Name,Tv2,'ָʾµ¥¹ÜÀí');
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime:=EndDate.DateTime;
ReadCxGrid(self.Caption + tv2.Name, Tv2, 'ָʾµ¥¹ÜÀí');
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
//InitGrid();
end;
procedure TfrmClothHCList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmClothHCList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
@ -179,10 +192,11 @@ end;
procedure TfrmClothHCList.OrderNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmClothHCList.FormShow(Sender: TObject);
@ -191,27 +205,30 @@ begin
TBRafresh.Click;
end;
procedure TfrmClothHCList.OrderNoMKeyPress(Sender: TObject;
var Key: Char);
procedure TfrmClothHCList.OrderNoMKeyPress(Sender: TObject; var Key: Char);
var
fsj:String;
fsj: string;
begin
if Key=#13 then
if Key = #13 then
begin
if Length(Trim(OrderNoM.Text))<4 then Exit;
fsj:=' and B.OrderNo like '''+'%'+Trim(OrderNoM.Text)+'%'+'''';
if Length(Trim(OrderNoM.Text)) < 4 then
Exit;
fsj := ' and B.OrderNo like ''' + '%' + Trim(OrderNoM.Text) + '%' + '''';
InitGridWSQL(fsj);
end;
end;
procedure TfrmClothHCList.TV2DblClick(Sender: TObject);
begin
if fType='10' then frmClothHCList.ModalResult:=1;
if fType = '10' then
frmClothHCList.ModalResult := 1;
end;
procedure TfrmClothHCList.Button1Click(Sender: TObject);
begin
if fType='10' then frmClothHCList.ModalResult:=1;
if fType = '10' then
frmClothHCList.ModalResult := 1;
end;
end.

2
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -1854,7 +1854,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
object KH: TBtnEditA
Left = 256
Top = 0
Top = 1
Width = 145
Height = 37
AutoSize = False

4
打卷检验管理/U_OrderInPut.dfm
View File

@ -1823,6 +1823,10 @@ object frmOrderInPut: TfrmOrderInPut
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column3: TcxGridDBColumn
Caption = #25490#21333#26102#38388
DataBinding.FieldName = 'PDtime'
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

32
打卷检验管理/U_OrderInPut.pas
View File

@ -12,20 +12,20 @@ uses
cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview,
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, 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;
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
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;
type
TfrmOrderInPut = class(TForm)
@ -193,6 +193,7 @@ type
QryCheckNet: TADOQuery;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -1046,6 +1047,7 @@ begin
begin
Edit;
FieldByName('XHNO').Value := IntToStr(i);
FieldByName('PDtime').Value := formatdatetime('yyyy-MM-dd', SGetServerDateTime(ADOTemp));
FieldByName('PRTColor').Value := '';
FieldByName('PRTOrderQty').Value := null;
FieldByName('PRTPrice').Value := 0;
@ -1064,7 +1066,7 @@ begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin

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

@ -12,7 +12,20 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer,
cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu;
dxBarBuiltInMenu, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
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;
type
TfrmProductOrderNewList = class(TForm)