From 8481cb86fa89cf706f50b5d391e0ada63cbd5961 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 31 Dec 2025 09:45:52 +0800 Subject: [PATCH] =?UTF-8?q?=E5=BC=A020251231?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../FabricInspection.dof | 2 +- 布匹检验(FabricInspection.dll)/U_testdll.dfm | 4 +- 布匹检验(FabricInspection.dll)/U_testdll.pas | 2 +- .../U_FinishedClothInList.dfm | 6 +-- .../U_FinishedClothInList.pas | 2 +- .../ShuttleSchedule.dof | 2 +- .../U_JZSLMXLIST.dfm | 24 ++++----- .../U_JZSLMXLIST.pas | 15 +++++- .../U_ShuttleClothSCList.dfm | 50 +++++++++++++------ .../U_ShuttleClothSCList.pas | 3 ++ .../U_WarpRollerCklist.dfm | 24 ++++----- .../U_WarpRollerCklist.pas | 2 +- .../U_WarpRollerRklist.dfm | 22 +++++--- .../U_WarpRollerRklist.pas | 3 +- .../U_WarpRollerkCList.dfm | 10 +++- .../U_WarpRollerkCList.pas | 1 + 经轴仓库(Warehouse.dll)/U_testdll.dfm | 4 +- 经轴仓库(Warehouse.dll)/Warehouse.dof | 2 +- 18 files changed, 115 insertions(+), 63 deletions(-) diff --git a/布匹检验(FabricInspection.dll)/FabricInspection.dof b/布匹检验(FabricInspection.dll)/FabricInspection.dof index 83fcf93..56498f5 100644 --- a/布匹检验(FabricInspection.dll)/FabricInspection.dof +++ b/布匹检验(FabricInspection.dll)/FabricInspection.dof @@ -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= diff --git a/布匹检验(FabricInspection.dll)/U_testdll.dfm b/布匹检验(FabricInspection.dll)/U_testdll.dfm index 5d6719f..412f933 100644 --- a/布匹检验(FabricInspection.dll)/U_testdll.dfm +++ b/布匹检验(FabricInspection.dll)/U_testdll.dfm @@ -1,6 +1,6 @@ object Form1: TForm1 - Left = 487 - Top = 279 + Left = 155 + Top = 182 Width = 791 Height = 554 Caption = 'Form1' diff --git a/布匹检验(FabricInspection.dll)/U_testdll.pas b/布匹检验(FabricInspection.dll)/U_testdll.pas index 0866733..7c8a26b 100644 --- a/布匹检验(FabricInspection.dll)/U_testdll.pas +++ b/布匹检验(FabricInspection.dll)/U_testdll.pas @@ -51,7 +51,7 @@ var begin //̬ //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); - + //̬ // showMessage(intTostr(application.Handle)); Th := LoadLibrary('FabricInspection.dll'); diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.dfm index 34071af..a702c39 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.dfm @@ -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 diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.pas index aa1aef3..c0b747e 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.pas @@ -124,7 +124,7 @@ type Label13: TLabel; Label17: TLabel; edtkano: TEdit; - carno: TEdit; + pcid: TEdit; Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; diff --git a/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof b/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof index 192d1ad..2e65be0 100644 --- a/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof +++ b/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof @@ -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= diff --git a/梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.dfm b/梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.dfm index c6f4cd9..7fc9225 100644 --- a/梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.dfm +++ b/梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.dfm @@ -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 diff --git a/梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.pas b/梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.pas index 2df64a1..fbfc332 100644 --- a/梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.pas +++ b/梭织计划单(ShuttleSchedule.dll)/U_JZSLMXLIST.pas @@ -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) diff --git a/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.dfm b/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.dfm index 994394f..23e1431 100644 --- a/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.dfm +++ b/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.dfm @@ -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 diff --git a/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.pas b/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.pas index acaf649..750cb46 100644 --- a/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.pas +++ b/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.pas @@ -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; diff --git a/经轴仓库(Warehouse.dll)/U_WarpRollerCklist.dfm b/经轴仓库(Warehouse.dll)/U_WarpRollerCklist.dfm index fbb3633..e2c4390 100644 --- a/经轴仓库(Warehouse.dll)/U_WarpRollerCklist.dfm +++ b/经轴仓库(Warehouse.dll)/U_WarpRollerCklist.dfm @@ -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 diff --git a/经轴仓库(Warehouse.dll)/U_WarpRollerCklist.pas b/经轴仓库(Warehouse.dll)/U_WarpRollerCklist.pas index 89c59c4..a5e55fe 100644 --- a/经轴仓库(Warehouse.dll)/U_WarpRollerCklist.pas +++ b/经轴仓库(Warehouse.dll)/U_WarpRollerCklist.pas @@ -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))'); diff --git a/经轴仓库(Warehouse.dll)/U_WarpRollerRklist.dfm b/经轴仓库(Warehouse.dll)/U_WarpRollerRklist.dfm index b600ac4..9a2e845 100644 --- a/经轴仓库(Warehouse.dll)/U_WarpRollerRklist.dfm +++ b/经轴仓库(Warehouse.dll)/U_WarpRollerRklist.dfm @@ -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' diff --git a/经轴仓库(Warehouse.dll)/U_WarpRollerRklist.pas b/经轴仓库(Warehouse.dll)/U_WarpRollerRklist.pas index 7b5cbf0..3c88570 100644 --- a/经轴仓库(Warehouse.dll)/U_WarpRollerRklist.pas +++ b/经轴仓库(Warehouse.dll)/U_WarpRollerRklist.pas @@ -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))'); diff --git a/经轴仓库(Warehouse.dll)/U_WarpRollerkCList.dfm b/经轴仓库(Warehouse.dll)/U_WarpRollerkCList.dfm index 4dfc8eb..8d289bd 100644 --- a/经轴仓库(Warehouse.dll)/U_WarpRollerkCList.dfm +++ b/经轴仓库(Warehouse.dll)/U_WarpRollerkCList.dfm @@ -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' diff --git a/经轴仓库(Warehouse.dll)/U_WarpRollerkCList.pas b/经轴仓库(Warehouse.dll)/U_WarpRollerkCList.pas index 994bd39..282e331 100644 --- a/经轴仓库(Warehouse.dll)/U_WarpRollerkCList.pas +++ b/经轴仓库(Warehouse.dll)/U_WarpRollerkCList.pas @@ -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); diff --git a/经轴仓库(Warehouse.dll)/U_testdll.dfm b/经轴仓库(Warehouse.dll)/U_testdll.dfm index 6b709b8..e549490 100644 --- a/经轴仓库(Warehouse.dll)/U_testdll.dfm +++ b/经轴仓库(Warehouse.dll)/U_testdll.dfm @@ -1,6 +1,6 @@ object Form1: TForm1 - Left = 203 - Top = 121 + Left = 393 + Top = 342 Width = 791 Height = 554 Caption = 'Form1' diff --git a/经轴仓库(Warehouse.dll)/Warehouse.dof b/经轴仓库(Warehouse.dll)/Warehouse.dof index ea868fe..c86806c 100644 --- a/经轴仓库(Warehouse.dll)/Warehouse.dof +++ b/经轴仓库(Warehouse.dll)/Warehouse.dof @@ -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=