From 9cb54cec61d244f007ff8c8cfc3a38a939123196 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 5 Jun 2026 14:09:56 +0800 Subject: [PATCH] qqq --- .../ClothWarehouse.dof | 2 +- .../ClothWarehouse.skincfg | 50 ++++++++++++++++ .../U_DataLink.pas | 16 ++++- .../U_GetDllForm.pas | 9 ++- .../U_PBRklist.dfm | 8 +-- .../U_PBRklist.pas | 15 ++++- 应收应付/U_YFCRMXList.dfm | 25 ++++---- 应收应付/U_YFCRMXList.pas | 17 +++++- .../U_CKProductBCPInList.dfm | 16 ++--- .../U_CKProductBCPInList.pas | 16 ++++- .../U_DataLink.pas | 16 ++++- .../U_FCDJSMCK.dfm | 6 +- .../U_FCDJSMCK.pas | 16 ++++- .../U_FCSMCK.dfm | 9 +-- .../U_FCSMCK.pas | 17 +++++- .../U_JYOrderCDList.dfm | 16 ++--- .../U_JYOrderCDList.pas | 16 ++++- .../U_MarkingInspection.dfm | 4 +- .../U_MarkingInspection.pas | 26 +++++++- .../U_ProductOrderCarList.dfm | 16 ++--- .../U_ProductOrderCarList.pas | 15 ++++- .../U_ProductOrderLBNameSet.dfm | 37 ++++++++---- .../U_ProductOrderLBNameSet.pas | 60 ++++++++++++++++++- .../U_SCJDList.dfm | 10 ++-- .../U_SCJDList.pas | 17 +++++- 25 files changed, 371 insertions(+), 84 deletions(-) create mode 100644 坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.skincfg diff --git a/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof b/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof index e42cc8e..8962f87 100644 --- a/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof +++ b/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\\ֿܲ(ClothWarehouse.dll)\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7fhManfeng\ֿܲ(ClothWarehouse.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.skincfg b/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.skincfg new file mode 100644 index 0000000..89edbfe --- /dev/null +++ b/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.skincfg @@ -0,0 +1,50 @@ +[ExpressSkins] +Default=1 +ShowNotifications=1 +Enabled=1 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkRoom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringTime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 +dxSkinsDefaultPainters=1 +dxSkinValentine=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 +dxSkinXmas2008Blue=1 diff --git a/坯布汇总仓库(ClothWarehouse.dll)/U_DataLink.pas b/坯布汇总仓库(ClothWarehouse.dll)/U_DataLink.pas index 9af64ae..2a17cf9 100644 --- a/坯布汇总仓库(ClothWarehouse.dll)/U_DataLink.pas +++ b/坯布汇总仓库(ClothWarehouse.dll)/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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; var DConString:String; {ȫַ} server, dtbase, user, pswd: String; {ݿӲ} diff --git a/坯布汇总仓库(ClothWarehouse.dll)/U_GetDllForm.pas b/坯布汇总仓库(ClothWarehouse.dll)/U_GetDllForm.pas index 48943cb..bd50a72 100644 --- a/坯布汇总仓库(ClothWarehouse.dll)/U_GetDllForm.pas +++ b/坯布汇总仓库(ClothWarehouse.dll)/U_GetDllForm.pas @@ -66,15 +66,14 @@ begin SetLength(user, 255); SetLength(pswd, 255); - server := '121.40.233.100,7781'; + server := '121.37.171.80,7781'; // server := '.'; dtbase := 'manfengdata'; - user := 'sa'; - pswd := 'rightsoft@123'; + user := 'manfengsa'; + pswd := 'rightsoft@8811'; // pswd := 'rightsoft'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; - +// DConString := DataBaseStr; // DParameters1 := 'Ȩ'; if not ConnData() then diff --git a/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm b/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm index e9d59c6..79a3a37 100644 --- a/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm +++ b/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm @@ -20,7 +20,7 @@ object frmPBRklist: TfrmPBRklist object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1366 + Width = 1374 AutoSize = True ButtonHeight = 30 ButtonWidth = 59 @@ -106,7 +106,7 @@ object frmPBRklist: TfrmPBRklist object Panel1: TPanel Left = 0 Top = 32 - Width = 1366 + Width = 1374 Height = 77 Align = alTop BevelInner = bvRaised @@ -360,8 +360,8 @@ object frmPBRklist: TfrmPBRklist object cxGrid1: TcxGrid Left = 0 Top = 109 - Width = 1366 - Height = 551 + Width = 1374 + Height = 559 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 diff --git a/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas b/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas index b0f8b9f..16940de 100644 --- a/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas +++ b/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas @@ -11,7 +11,20 @@ uses cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxContainer, cxTextEdit, cxCurrencyEdit, cxCheckBox, RM_System, RM_Dataset, RM_Common, RM_Class, RM_GridReport, cxPC, Menus, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + cxLookAndFeelPainters, cxNavigator, 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 TfrmPBRklist = class(TForm) diff --git a/应收应付/U_YFCRMXList.dfm b/应收应付/U_YFCRMXList.dfm index 7ed0d39..0a1b574 100644 --- a/应收应付/U_YFCRMXList.dfm +++ b/应收应付/U_YFCRMXList.dfm @@ -19,7 +19,7 @@ object frmYFCRMXList: TfrmYFCRMXList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1002 + Width = 1010 Height = 31 ButtonHeight = 30 ButtonWidth = 59 @@ -76,7 +76,7 @@ object frmYFCRMXList: TfrmYFCRMXList object Panel1: TPanel Left = 0 Top = 31 - Width = 1002 + Width = 1010 Height = 62 Align = alTop BevelInner = bvRaised @@ -204,33 +204,34 @@ object frmYFCRMXList: TfrmYFCRMXList object cxTabControl1: TcxTabControl Left = 0 Top = 93 - Width = 1002 + Width = 1010 Height = 22 Align = alTop - Style = 9 - TabIndex = 0 TabOrder = 2 - Tabs.Strings = ( + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 22 - ClientRectRight = 1002 + ClientRectRight = 1010 ClientRectTop = 19 end object cxGrid1: TcxGrid Left = 0 Top = 115 - Width = 1002 - Height = 535 + Width = 1010 + Height = 542 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False DataController.DataSource = DS_YFS DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> diff --git a/应收应付/U_YFCRMXList.pas b/应收应付/U_YFCRMXList.pas index aeaaff0..9c66b9f 100644 --- a/应收应付/U_YFCRMXList.pas +++ b/应收应付/U_YFCRMXList.pas @@ -12,7 +12,22 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, - cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit; + cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, cxLookAndFeels, + cxLookAndFeelPainters, 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, + dxBarBuiltInMenu, cxNavigator; type TfrmYFCRMXList = class(TForm) diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm index a31ef7c..6813bb4 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm @@ -19,7 +19,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object Panel1: TPanel Left = 0 Top = 30 - Width = 1258 + Width = 1266 Height = 64 Align = alTop BevelInner = bvRaised @@ -364,8 +364,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object cxGrid2: TcxGrid Left = 0 Top = 124 - Width = 1258 - Height = 389 + Width = 1266 + Height = 397 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 @@ -620,7 +620,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object Panel2: TPanel Left = 0 Top = 94 - Width = 1258 + Width = 1266 Height = 30 Align = alTop BevelOuter = bvNone @@ -662,13 +662,13 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object Panel6: TPanel Left = 313 Top = 0 - Width = 945 + Width = 953 Height = 30 Align = alClient AutoSize = True TabOrder = 1 DesignSize = ( - 945 + 953 30) object Label31: TLabel Left = 25 @@ -762,7 +762,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object Panel7: TPanel Left = 0 Top = 0 - Width = 1258 + Width = 1266 Height = 30 Align = alTop Caption = 'Panel7' @@ -770,7 +770,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object ToolBar1: TToolBar Left = 1 Top = 1 - Width = 1256 + Width = 1264 Height = 28 Align = alClient ButtonHeight = 30 diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas index 3f4b507..d6c4d89 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas @@ -11,7 +11,21 @@ uses ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxPC, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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 TfrmCKProductBCPInList = class(TForm) diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas b/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas index 0af3b15..6f065b2 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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; var DConString:String; {ȫַ} server, dtbase, user, pswd: String; {ݿӲ} diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.dfm index 6a43122..3aca7c8 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.dfm @@ -19,8 +19,8 @@ object frmFCDJSMCK: TfrmFCDJSMCK object cxGrid3: TcxGrid Left = 505 Top = 0 - Width = 775 - Height = 613 + Width = 783 + Height = 621 Align = alClient TabOrder = 1 object Tv3: TcxGridDBTableView @@ -105,7 +105,7 @@ object frmFCDJSMCK: TfrmFCDJSMCK Left = 0 Top = 0 Width = 505 - Height = 613 + Height = 621 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.pas b/成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.pas index e78ca2a..8d0c9d1 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.pas @@ -9,7 +9,21 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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 TfrmFCDJSMCK = class(TForm) diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.dfm index c5756c8..485ea11 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.dfm @@ -19,12 +19,12 @@ object frmFCSMCK: TfrmFCSMCK object cxGrid3: TcxGrid Left = 505 Top = 0 - Width = 775 - Height = 614 + Width = 783 + Height = 621 Align = alClient TabOrder = 1 object Tv3: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DS_MainSel DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -97,7 +97,7 @@ object frmFCSMCK: TfrmFCSMCK Left = 0 Top = 0 Width = 505 - Height = 614 + Height = 621 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -362,6 +362,7 @@ object frmFCSMCK: TfrmFCSMCK object cxStyleRepository1: TcxStyleRepository Left = 792 Top = 336 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont] Font.Charset = ANSI_CHARSET diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.pas b/成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.pas index 81068fa..5df85f2 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.pas @@ -8,7 +8,22 @@ uses cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, - cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit; + cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit, + cxLookAndFeels, cxLookAndFeelPainters, 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, + cxNavigator; type TfrmFCSMCK = class(TForm) diff --git a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm index 442840e..221282d 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm @@ -19,7 +19,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1341 + Width = 1349 Height = 62 AutoSize = True ButtonHeight = 30 @@ -198,7 +198,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList object Panel1: TPanel Left = 0 Top = 62 - Width = 1341 + Width = 1349 Height = 81 Align = alTop BevelInner = bvRaised @@ -626,8 +626,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList object cxGrid1: TcxGrid Left = 0 Top = 196 - Width = 1341 - Height = 486 + Width = 1349 + Height = 494 Align = alClient PopupMenu = PopupMenu1 TabOrder = 4 @@ -1136,14 +1136,14 @@ object frmJYOrderCDList: TfrmJYOrderCDList object Panel6: TPanel Left = 0 Top = 143 - Width = 1341 + Width = 1349 Height = 28 Align = alTop AutoSize = True BorderStyle = bsSingle TabOrder = 2 DesignSize = ( - 1337 + 1345 24) object Label31: TLabel Left = 25 @@ -1237,7 +1237,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList object cxTabControl1: TcxTabControl Left = 0 Top = 171 - Width = 1341 + Width = 1349 Height = 25 Align = alTop Font.Charset = GB2312_CHARSET @@ -1256,7 +1256,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 27 - ClientRectRight = 1341 + ClientRectRight = 1349 ClientRectTop = 27 end object cxGridPopupMenu1: TcxGridPopupMenu diff --git a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas index 7778229..b29d62e 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas @@ -12,7 +12,21 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, Math, Clipbrd, cxPC, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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 TfrmJYOrderCDList = class(TForm) diff --git a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm index 45eb0c3..f276f6c 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm @@ -1,6 +1,6 @@ object frmMarkingInspection: TfrmMarkingInspection - Left = 229 - Top = 13 + Left = 260 + Top = 246 Width = 1153 Height = 819 Caption = #25104#21697#26816#39564 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas index dfbb91a..066657a 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas @@ -285,7 +285,7 @@ type FCDName: string; isCommopen, IsJsMessage: boolean; fxsType, fRollType: string; - FKongJia, FKongJiaWei, FBaoZhuangDai: Double; + FKongJia, FKongJiaWei, FBaoZhuangDai, fmaChi: Double; FMMF: Integer; Fkaipi: string; procedure InitJP(); //ˢ´õѡ @@ -448,6 +448,7 @@ begin FFFMJID := ''; FKongJia := 0; FKongJiaWei := 0; + Fmachi := 1; lblCode.Caption := ''; lblMPRTCodeName.Caption := 'Ʒ'; lblcolor.Caption := 'ɫ'; @@ -546,6 +547,15 @@ begin FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); + if (ADOTmp.fieldbyname('machi').AsString <> '') and (ADOTmp.fieldbyname('machi').AsFloat <> 0) then + begin + fmachi := ADOTmp.fieldbyname('machi').AsFloat; + end + else + begin + fmachi := 1; + end; + MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); // if ADOTmp.fieldbyname('iskj').AsBoolean then begin @@ -664,6 +674,15 @@ begin lblKH.Caption := trim(ADOTmp.fieldbyname('CustomerNoName').AsString); fGY := trim(ADOTmp.fieldbyname('KKGY').AsString); + if (ADOTmp.fieldbyname('machi').AsString <> '') and (ADOTmp.fieldbyname('machi').AsFloat <> 0) then + begin + fmachi := ADOTmp.fieldbyname('machi').AsFloat; + end + else + begin + fmachi := 1; + end; + fxsws := trim(ADOTmp.fieldbyname('xsws').AsString); fcdws := trim(ADOTmp.fieldbyname('cdws').AsString); i := 0; @@ -1117,7 +1136,10 @@ begin // if Ekjlen.Text='' then // begin FieldByName('KongJia').Value := FKongJia; - FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) + FKongJia - StrToFloatdef(Trim(Ekjlen.Text), 0); +// FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) + FKongJia - StrToFloatdef(Trim(Ekjlen.Text), 0); + + FieldByName('MJLen').Value := RoundFloat((StrToFloatdef(trim(MJLen.Text), 0) + FKongJia - StrToFloatdef(Trim(Ekjlen.Text), 0) )/ Fmachi, strToint(fcdws)); + FieldByName('machi').Value := Fmachi; // end else // begin // FieldByName('KongJia').Value := StrToFloatdef(Trim(Ekjlen.Text),0); diff --git a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.dfm b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.dfm index a823ad8..2f15942 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.dfm @@ -19,7 +19,7 @@ object frmProductOrderCarList: TfrmProductOrderCarList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1366 + Width = 1374 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -132,7 +132,7 @@ object frmProductOrderCarList: TfrmProductOrderCarList object Panel1: TPanel Left = 0 Top = 32 - Width = 1366 + Width = 1374 Height = 81 Align = alTop BevelInner = bvRaised @@ -355,7 +355,7 @@ object frmProductOrderCarList: TfrmProductOrderCarList Left = 0 Top = 113 Width = 677 - Height = 485 + Height = 493 Align = alLeft Caption = 'Panel2' TabOrder = 2 @@ -363,7 +363,7 @@ object frmProductOrderCarList: TfrmProductOrderCarList Left = 1 Top = 23 Width = 675 - Height = 461 + Height = 469 Align = alClient PopupMenu = PopupMenu2 TabOrder = 0 @@ -562,16 +562,16 @@ object frmProductOrderCarList: TfrmProductOrderCarList object Panel4: TPanel Left = 677 Top = 113 - Width = 689 - Height = 485 + Width = 697 + Height = 493 Align = alClient Caption = 'Panel2' TabOrder = 3 object cxGrid1: TcxGrid Left = 1 Top = 1 - Width = 687 - Height = 483 + Width = 695 + Height = 491 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.pas b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.pas index eea0553..b81dced 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.pas @@ -13,7 +13,20 @@ uses RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, dxBarBuiltInMenu; + cxNavigator, 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 TfrmProductOrderCarList = class(TForm) diff --git a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.dfm b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.dfm index 35225a6..e934882 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.dfm @@ -20,7 +20,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1272 + Width = 1280 Height = 62 AutoSize = True ButtonHeight = 30 @@ -139,16 +139,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet ImageIndex = 11 OnClick = ToolButton5Click end - object ToolButton11: TToolButton + object TbMaChiset: TToolButton Left = 336 Top = 30 AutoSize = True + Caption = #30721#23610#35774#32622 + ImageIndex = 11 + OnClick = TbMaChisetClick + end + object ToolButton11: TToolButton + Left = 423 + Top = 30 + AutoSize = True Caption = #38271#24230#20301#25968 ImageIndex = 22 OnClick = ToolButton11Click end object ToolButton12: TToolButton - Left = 423 + Left = 510 Top = 30 AutoSize = True Caption = #37325#37327#20301#25968 @@ -156,7 +164,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet OnClick = ToolButton12Click end object PiZhong: TEdit - Left = 510 + Left = 597 Top = 30 Width = 121 Height = 30 @@ -169,7 +177,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet TabOrder = 0 end object TBClose: TToolButton - Left = 631 + Left = 718 Top = 30 AutoSize = True Caption = #20851#38381 @@ -180,7 +188,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet object Panel1: TPanel Left = 0 Top = 62 - Width = 1272 + Width = 1280 Height = 67 Align = alTop BevelInner = bvRaised @@ -401,8 +409,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet object cxGrid1: TcxGrid Left = 0 Top = 129 - Width = 1272 - Height = 432 + Width = 1280 + Height = 440 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -553,13 +561,19 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet Options.Editing = False Width = 68 end + object Tv1machi: TcxGridDBColumn + Caption = #30721#23610 + DataBinding.FieldName = 'Machi' + HeaderAlignmentHorz = taCenter + Width = 80 + end object v1Column5: TcxGridDBColumn Caption = #25442#31639#31995#25968 DataBinding.FieldName = 'Xs' HeaderAlignmentHorz = taCenter Options.Editing = False VisibleForCustomization = False - Width = 75 + Width = 86 end object v1Column6: TcxGridDBColumn Caption = #25442#31639#31995#25968#31867#22411 @@ -598,18 +612,19 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet DataBinding.FieldName = 'KongJia' HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 75 + Width = 92 end object Tv1Column1: TcxGridDBColumn Caption = #31354#21152#37325#37327 DataBinding.FieldName = 'kongjiawei' HeaderAlignmentHorz = taCenter - Width = 68 + Width = 93 end object Tv1Column2: TcxGridDBColumn Caption = #38271#24230#20301#25968 DataBinding.FieldName = 'CDWS' HeaderAlignmentHorz = taCenter + Width = 87 end object Tv1Column3: TcxGridDBColumn Caption = #37325#37327#20301#25968 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.pas b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.pas index f8f4353..77eb553 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.pas @@ -10,7 +10,21 @@ uses cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxTextEdit, - cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + 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 TfrmProductOrderLBNameSet = class(TForm) @@ -90,6 +104,8 @@ type ToolButton12: TToolButton; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; + TbMaChiset: TToolButton; + Tv1machi: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -119,6 +135,7 @@ type procedure ToolButton10Click(Sender: TObject); procedure ToolButton11Click(Sender: TObject); procedure ToolButton12Click(Sender: TObject); + procedure TbMaChisetClick(Sender: TObject); private DQdate: TDateTime; procedure InitGrid(); @@ -915,5 +932,46 @@ begin // end; end; +procedure TfrmProductOrderLBNameSet.TbMaChisetClick(Sender: TObject); +var + FReal: Double; +begin + if Trim(PiZhong.Text) = '' then + begin + Application.MessageBox('߲Ϊ!', 'ʾ', 0); + Exit; + end; + if TryStrToFloat(PiZhong.Text, FReal) = False then + begin + Application.MessageBox('߷Ƿ!', 'ʾ', 0); + Exit; + end; + Order_Main.First; + while not Order_Main.eof do + begin + if Order_Main.FieldByName('SSel').Value = true then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set machi=' + (PiZhong.Text)); + sql.Add(' where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('machi').Value := PiZhong.Text; +// FieldByName('SSel').Value := false; + Post; + end; + end; + Order_Main.Next; + end; + + tv1.Controller.EditingController.ShowEdit(); +end; + end. diff --git a/染整计划(DyeingFinishingPlan.dll)/U_SCJDList.dfm b/染整计划(DyeingFinishingPlan.dll)/U_SCJDList.dfm index 4af37af..1c203bf 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_SCJDList.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_SCJDList.dfm @@ -19,7 +19,7 @@ object frmSCJDList: TfrmSCJDList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1240 + Width = 1248 AutoSize = True ButtonHeight = 30 ButtonWidth = 83 @@ -73,7 +73,7 @@ object frmSCJDList: TfrmSCJDList object Panel1: TPanel Left = 0 Top = 32 - Width = 1240 + Width = 1248 Height = 65 Align = alTop BevelInner = bvRaised @@ -325,12 +325,12 @@ object frmSCJDList: TfrmSCJDList object cxGrid1: TcxGrid Left = 0 Top = 97 - Width = 1240 - Height = 608 + Width = 1248 + Height = 615 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> diff --git a/染整计划(DyeingFinishingPlan.dll)/U_SCJDList.pas b/染整计划(DyeingFinishingPlan.dll)/U_SCJDList.pas index 7561d81..d4a4e08 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_SCJDList.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_SCJDList.pas @@ -12,7 +12,22 @@ uses cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, - IdFTP, ShellAPI, cxCheckBox, cxDropDownEdit; + IdFTP, ShellAPI, cxCheckBox, cxDropDownEdit, cxLookAndFeels, + cxLookAndFeelPainters, 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, + cxNavigator; type TfrmSCJDList = class(TForm)