Group_99/D7szChenfeng
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

张20251231

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-31 09:45:52 +08:00
parent e1745662ef
commit 8481cb86fa
18 changed files with 115 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
布匹检验(FabricInspection.dll)/FabricInspection.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

4
布匹检验(FabricInspection.dll)/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1
Left = 487
Top = 279
Left = 155
Top = 182
Width = 791
Height = 554
Caption = 'Form1'

6
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.dfm
View File

@ -1,6 +1,6 @@
object frmFinishedClothInList: TfrmFinishedClothInList
Left = -6
Top = 65
Left = 119
Top = 159
Width = 1249
Height = 765
Caption = #25104#21697#20837#24211#31649#29702
@ -384,7 +384,7 @@ object frmFinishedClothInList: TfrmFinishedClothInList
TabOrder = 14
OnKeyPress = OrderNoKeyPress
end
object carno: TEdit
object pcid: TEdit
Tag = 2
Left = 1116
Top = 32

2
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.pas
View File

@ -124,7 +124,7 @@ type
Label13: TLabel;
Label17: TLabel;
edtkano: TEdit;
carno: TEdit;
pcid: TEdit;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;

2
梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=E:\淃커栗죕\02_虔廉낍\냈료\D7szChenfeng\虔廉셕뺍데(ShuttleSchedule.dll)\testDll.exe
HostApplication=D:\Dp7Repo\淃커덜쯤\D7szChenfeng\虔廉셕뺍데(ShuttleSchedule.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

24
梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.dfm
View File

@ -1,6 +1,6 @@
object frmJZSLMXLIST: TfrmJZSLMXLIST
Left = 200
Top = 160
Left = 264
Top = 462
Width = 1377
Height = 581
Caption = #32553#29575#26126#32454#32479#35745#34920
@ -32,7 +32,7 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1369
Width = 1361
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
@ -86,7 +86,7 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object Panel1: TPanel
Left = 0
Top = 32
Width = 1369
Width = 1361
Height = 73
Align = alTop
BevelInner = bvRaised
@ -189,8 +189,8 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object cxGrid1: TcxGrid
Left = 0
Top = 105
Width = 1369
Height = 445
Width = 1361
Height = 437
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
@ -395,8 +395,8 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object cxGrid2: TcxGrid
Left = 0
Top = 105
Width = 1369
Height = 445
Width = 1361
Height = 437
Align = alClient
TabOrder = 3
object cxGridDBTableView1: TcxGridDBTableView
@ -601,8 +601,8 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object cxGrid3: TcxGrid
Left = 0
Top = 105
Width = 1369
Height = 445
Width = 1361
Height = 437
Align = alClient
TabOrder = 4
object cxGridDBTableView2: TcxGridDBTableView
@ -807,8 +807,8 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object cxGrid4: TcxGrid
Left = 0
Top = 105
Width = 1369
Height = 445
Width = 1361
Height = 437
Align = alClient
TabOrder = 5
object Tv3: TcxGridDBTableView

15
梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxDropDownEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter;
dxSkinsDefaultPainters, dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type
TfrmJZSLMXLIST = class(TForm)

50
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.dfm
View File

@ -1,6 +1,6 @@
object frmShuttleClothSCList: TfrmShuttleClothSCList
Left = 491
Top = 593
Left = 146
Top = 172
Width = 1377
Height = 579
Caption = #26797#32455#32455#36896#21333
@ -33,7 +33,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1369
Width = 1361
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
@ -214,7 +214,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object Panel1: TPanel
Left = 0
Top = 32
Width = 1369
Width = 1361
Height = 73
Align = alTop
BevelInner = bvRaised
@ -353,6 +353,19 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 878
Top = 21
Width = 52
Height = 12
Caption = #29983#20135#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 13
@ -472,12 +485,21 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
''
#24050#21462#28040)
end
object ordtype: TEdit
Tag = 2
Left = 931
Top = 15
Width = 88
Height = 20
TabOrder = 10
OnChange = ConNoChange
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 127
Width = 1369
Height = 421
Width = 1361
Height = 413
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
@ -683,8 +705,8 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxGrid2: TcxGrid
Left = 0
Top = 127
Width = 1369
Height = 421
Width = 1361
Height = 413
Align = alClient
TabOrder = 3
object cxGridDBTableView1: TcxGridDBTableView
@ -890,8 +912,8 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxGrid3: TcxGrid
Left = 0
Top = 127
Width = 1369
Height = 421
Width = 1361
Height = 413
Align = alClient
TabOrder = 4
object cxGridDBTableView2: TcxGridDBTableView
@ -1097,8 +1119,8 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxGrid4: TcxGrid
Left = 0
Top = 127
Width = 1369
Height = 421
Width = 1361
Height = 413
Align = alClient
TabOrder = 5
object Tv3: TcxGridDBTableView
@ -1403,7 +1425,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxTabControl1: TcxTabControl
Left = 0
Top = 105
Width = 1369
Width = 1361
Height = 22
Align = alTop
TabOrder = 6
@ -1415,7 +1437,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
#24050#21024#38500#25968#25454)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1369
ClientRectRight = 1361
ClientRectTop = 19
end
object cxGridPopupMenu1: TcxGridPopupMenu

3
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.pas
View File

@ -191,6 +191,8 @@ type
Tv3Column10: TcxGridDBColumn;
Tv3Column14: TcxGridDBColumn;
Tv3Column15: TcxGridDBColumn;
ordtype: TEdit;
Label11: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
@ -438,6 +440,7 @@ begin
InitButton();
ReadCxGrid(Trim(self.Caption), Tv3, '坯布生产管理');
// BegDate.DateTime := '2024-07-01';
BegDate.DateTime := SGetServerDate10(ADOQueryTemp)-60;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid();
end;

24
经轴仓库(Warehouse.dll)/U_WarpRollerCklist.dfm
View File

@ -1,6 +1,6 @@
object frmWarpRollerCklist: TfrmWarpRollerCklist
Left = 430
Top = 298
Left = 344
Top = 440
Width = 1378
Height = 615
Caption = #32463#36724#20986#24211#31649#29702
@ -20,7 +20,7 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1370
Width = 1362
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
@ -92,7 +92,7 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
object Panel1: TPanel
Left = 0
Top = 32
Width = 1370
Width = 1362
Height = 65
Align = alTop
BevelInner = bvRaised
@ -294,8 +294,8 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
object cxGrid1: TcxGrid
Left = 0
Top = 97
Width = 1370
Height = 487
Width = 1362
Height = 479
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clBtnShadow
@ -380,6 +380,12 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column14: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'P_codeNAME'
@ -460,12 +466,6 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column14: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

2
经轴仓库(Warehouse.dll)/U_WarpRollerCklist.pas
View File

@ -150,7 +150,7 @@ begin
begin
close;
sql.Clear;
sql.Add(' select A.* ,edtKaNo,C_TouWen,ZJPiLen,C_ShangPai,C_PiE,C_Len,APMachineNo ,edZDFNo ');
sql.Add(' select A.* ,edzdfNo,edtKaNo,C_TouWen,ZJPiLen,C_ShangPai,C_PiE,C_Len,APMachineNo ,edZDFNo ');
SQL.ADD(',CarNo2=(SELECT MACHNO FROM BS_Machine k where k.machid= (SELECT top 1 CARNO FROM CK_YgCl E WHERE E.MJID=A.PCID ANd CLTYPE=''ÉÏÖá''))');
SQL.Add(',P_CODE=(select TOP 1 P_CODE from PD_Plan_SUB e where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))');
SQL.Add(',P_codeNAME=(select TOP 1 P_codeNAME from PD_Plan_SUB e where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))');

22
经轴仓库(Warehouse.dll)/U_WarpRollerRklist.dfm
View File

@ -1,8 +1,8 @@
object frmWarpRollerRklist: TfrmWarpRollerRklist
Left = 144
Top = 73
Width = 1474
Height = 699
Left = -38
Top = 299
Width = 1475
Height = 686
Caption = #32463#36724#20837#24211#31649#29702
Color = clBtnFace
Font.Charset = GB2312_CHARSET
@ -20,7 +20,7 @@ object frmWarpRollerRklist: TfrmWarpRollerRklist
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1458
Width = 1459
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
@ -110,7 +110,7 @@ object frmWarpRollerRklist: TfrmWarpRollerRklist
object Panel1: TPanel
Left = 0
Top = 32
Width = 1458
Width = 1459
Height = 77
Align = alTop
BevelInner = bvRaised
@ -343,8 +343,8 @@ object frmWarpRollerRklist: TfrmWarpRollerRklist
object cxGrid1: TcxGrid
Left = 0
Top = 109
Width = 1458
Height = 551
Width = 1459
Height = 538
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clBtnShadow
@ -424,6 +424,12 @@ object frmWarpRollerRklist: TfrmWarpRollerRklist
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column12: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edzdfNo'
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'P_codeNAME'

3
经轴仓库(Warehouse.dll)/U_WarpRollerRklist.pas
View File

@ -92,6 +92,7 @@ type
Tv1Column11: TcxGridDBColumn;
Label5: TLabel;
jcfactoryname: TEdit;
Tv1Column12: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure TBAddClick(Sender: TObject);
@ -152,7 +153,7 @@ begin
begin
close;
sql.Clear;
sql.Add(' select A.* ,edtKaNo,C_TouWen,ZJPiLen,C_ShangPai,C_PiE,C_Len,APMachineNo,jcfactoryname ');
sql.Add(' select A.*, edzdfNo ,edtKaNo,C_TouWen,ZJPiLen,C_ShangPai,C_PiE,C_Len,APMachineNo,jcfactoryname ');
SQL.Add(',P_CODE=(select TOP 1 P_CODE from PD_Plan_SUB e where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))');
SQL.Add(',P_codeNAME=(select TOP 1 P_codeNAME from PD_Plan_SUB e where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))');

10
经轴仓库(Warehouse.dll)/U_WarpRollerkCList.dfm
View File

@ -1,6 +1,6 @@
object frmWarpRollerkCList: TfrmWarpRollerkCList
Left = 201
Top = 105
Left = 366
Top = 268
Width = 1290
Height = 643
Caption = #32463#36724#24211#23384
@ -348,6 +348,12 @@ object frmWarpRollerkCList: TfrmWarpRollerkCList
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column13: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edzdfNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column1: TcxGridDBColumn
Caption = #36724#21345#21495
DataBinding.FieldName = 'PCID'

1
经轴仓库(Warehouse.dll)/U_WarpRollerkCList.pas
View File

@ -89,6 +89,7 @@ type
Panel4: TPanel;
cxTabControl1: TcxTabControl;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure WBCodeChange(Sender: TObject);

4
经轴仓库(Warehouse.dll)/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1
Left = 203
Top = 121
Left = 393
Top = 342
Width = 791
Height = 554
Caption = 'Form1'

2
经轴仓库(Warehouse.dll)/Warehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\ÏîÄ¿´úÂë\D7szChenfeng\¾­Öá²Ö¿â(Warehouse.dll)\testDll.exe
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\¾­Öá²Ö¿â(Warehouse.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=