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

61
打卷检验管理/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);
@ -76,7 +90,7 @@ type
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;
@ -87,8 +101,10 @@ 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}
@ -97,8 +113,7 @@ 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;
@ -115,7 +130,6 @@ begin
//ADOQueryMain.DisableControls; //ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
Filtered := False; Filtered := False;
sql.Clear; sql.Clear;
@ -132,7 +146,7 @@ begin
end; end;
end; end;
procedure TfrmClothHCList.InitGridWSQL(FWSQL:String); procedure TfrmClothHCList.InitGridWSQL(FWSQL: string);
begin begin
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
@ -164,14 +178,13 @@ end;
procedure TfrmClothHCList.TBFindClick(Sender: TObject); procedure TfrmClothHCList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
procedure TfrmClothHCList.TBRafreshClick(Sender: TObject); procedure TfrmClothHCList.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
@ -179,7 +192,8 @@ end;
procedure TfrmClothHCList.OrderNoMChange(Sender: TObject); procedure TfrmClothHCList.OrderNoMChange(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
@ -191,14 +205,14 @@ 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
Exit;
fsj := ' and B.OrderNo like ''' + '%' + Trim(OrderNoM.Text) + '%' + ''''; fsj := ' and B.OrderNo like ''' + '%' + Trim(OrderNoM.Text) + '%' + '''';
InitGridWSQL(fsj); InitGridWSQL(fsj);
end; end;
@ -206,12 +220,15 @@ 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

30
打卷检验管理/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;

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)