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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

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

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

@ -51,7 +51,7 @@ var
begin begin
//静态加载 //静态加载
//newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa'));
//动态加载 //动态加载
// showMessage(intTostr(application.Handle)); // showMessage(intTostr(application.Handle));
Th := LoadLibrary('FabricInspection.dll'); Th := LoadLibrary('FabricInspection.dll');

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

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

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

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

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

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

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

@ -1,6 +1,6 @@
object frmJZSLMXLIST: TfrmJZSLMXLIST object frmJZSLMXLIST: TfrmJZSLMXLIST
Left = 200 Left = 264
Top = 160 Top = 462
Width = 1377 Width = 1377
Height = 581 Height = 581
Caption = #32553#29575#26126#32454#32479#35745#34920 Caption = #32553#29575#26126#32454#32479#35745#34920
@ -32,7 +32,7 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1369 Width = 1361
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -86,7 +86,7 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1369 Width = 1361
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -189,8 +189,8 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1369 Width = 1361
Height = 445 Height = 437
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -395,8 +395,8 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1369 Width = 1361
Height = 445 Height = 437
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object cxGridDBTableView1: TcxGridDBTableView object cxGridDBTableView1: TcxGridDBTableView
@ -601,8 +601,8 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1369 Width = 1361
Height = 445 Height = 437
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object cxGridDBTableView2: TcxGridDBTableView object cxGridDBTableView2: TcxGridDBTableView
@ -807,8 +807,8 @@ object frmJZSLMXLIST: TfrmJZSLMXLIST
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1369 Width = 1361
Height = 445 Height = 437
Align = alClient Align = alClient
TabOrder = 5 TabOrder = 5
object Tv3: TcxGridDBTableView 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, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxDropDownEdit, dxSkinsCore, 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 type
TfrmJZSLMXLIST = class(TForm) TfrmJZSLMXLIST = class(TForm)

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

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

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

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

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

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

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

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

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

@ -92,6 +92,7 @@ type
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Label5: TLabel; Label5: TLabel;
jcfactoryname: TEdit; jcfactoryname: TEdit;
Tv1Column12: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
@ -152,7 +153,7 @@ begin
begin begin
close; close;
sql.Clear; 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_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))'); 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 object frmWarpRollerkCList: TfrmWarpRollerkCList
Left = 201 Left = 366
Top = 105 Top = 268
Width = 1290 Width = 1290
Height = 643 Height = 643
Caption = #32463#36724#24211#23384 Caption = #32463#36724#24211#23384
@ -348,6 +348,12 @@ object frmWarpRollerkCList: TfrmWarpRollerkCList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 68
end end
object Tv1Column13: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edzdfNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #36724#21345#21495 Caption = #36724#21345#21495
DataBinding.FieldName = 'PCID' DataBinding.FieldName = 'PCID'

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

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

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

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

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

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