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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\蔚勉二分厂\打卷检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJweimianerfen\打卷检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

@ -433,6 +433,18 @@ object frmClothHCList: TfrmClothHCList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end 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 end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2

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

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

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

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

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

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

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

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

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

@ -12,7 +12,20 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer,
cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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 type
TfrmProductOrderNewList = class(TForm) TfrmProductOrderNewList = class(TForm)