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

qqq

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-06-05 14:09:56 +08:00
parent c9e206dded
commit 9cb54cec61
25 changed files with 371 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\Âú·å\Å÷²¼»ã×ֿܲâ(ClothWarehouse.dll)\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7fhManfeng\Å÷²¼»ã×ֿܲâ(ClothWarehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

50
坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.skincfg Normal file
View File

@ -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

16
坯布汇总仓库(ClothWarehouse.dll)/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, 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 var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

9
坯布汇总仓库(ClothWarehouse.dll)/U_GetDllForm.pas
View File

@ -66,15 +66,14 @@ begin
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
server := '121.40.233.100,7781'; server := '121.37.171.80,7781';
// server := '.'; // server := '.';
dtbase := 'manfengdata'; dtbase := 'manfengdata';
user := 'sa'; user := 'manfengsa';
pswd := 'rightsoft@123'; pswd := 'rightsoft@8811';
// pswd := 'rightsoft'; // pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr; // DConString := DataBaseStr;
// DParameters1 := '¸ßȨÏÞ'; // DParameters1 := '¸ßȨÏÞ';
if not ConnData() then if not ConnData() then

8
坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm
View File

@ -20,7 +20,7 @@ object frmPBRklist: TfrmPBRklist
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -106,7 +106,7 @@ object frmPBRklist: TfrmPBRklist
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1366 Width = 1374
Height = 77 Height = 77
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -360,8 +360,8 @@ object frmPBRklist: TfrmPBRklist
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 109 Top = 109
Width = 1366 Width = 1374
Height = 551 Height = 559
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2

15
坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxContainer, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxContainer,
cxTextEdit, cxCurrencyEdit, cxCheckBox, RM_System, RM_Dataset, RM_Common, cxTextEdit, cxCurrencyEdit, cxCheckBox, RM_System, RM_Dataset, RM_Common,
RM_Class, RM_GridReport, cxPC, Menus, cxLookAndFeels, 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 type
TfrmPBRklist = class(TForm) TfrmPBRklist = class(TForm)

25
应收应付/U_YFCRMXList.dfm
View File

@ -19,7 +19,7 @@ object frmYFCRMXList: TfrmYFCRMXList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1002 Width = 1010
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -76,7 +76,7 @@ object frmYFCRMXList: TfrmYFCRMXList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1002 Width = 1010
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -204,33 +204,34 @@ object frmYFCRMXList: TfrmYFCRMXList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1002 Width = 1010
Height = 22 Height = 22
Align = alTop Align = alTop
Style = 9
TabIndex = 0
TabOrder = 2 TabOrder = 2
Tabs.Strings = ( Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680 #26410#23457#26680
#24050#23457#26680 #24050#23457#26680
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1002 ClientRectRight = 1010
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 115 Top = 115
Width = 1002 Width = 1010
Height = 535 Height = 542
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
NavigatorButtons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DS_YFS DataController.DataSource = DS_YFS
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>

17
应收应付/U_YFCRMXList.pas
View File

@ -12,7 +12,22 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, 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 type
TfrmYFCRMXList = class(TForm) TfrmYFCRMXList = class(TForm)

16
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm
View File

@ -19,7 +19,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1258 Width = 1266
Height = 64 Height = 64
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -364,8 +364,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 124 Top = 124
Width = 1258 Width = 1266
Height = 389 Height = 397
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
@ -620,7 +620,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 94 Top = 94
Width = 1258 Width = 1266
Height = 30 Height = 30
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -662,13 +662,13 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object Panel6: TPanel object Panel6: TPanel
Left = 313 Left = 313
Top = 0 Top = 0
Width = 945 Width = 953
Height = 30 Height = 30
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 1 TabOrder = 1
DesignSize = ( DesignSize = (
945 953
30) 30)
object Label31: TLabel object Label31: TLabel
Left = 25 Left = 25
@ -762,7 +762,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object Panel7: TPanel object Panel7: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1258 Width = 1266
Height = 30 Height = 30
Align = alTop Align = alTop
Caption = 'Panel7' Caption = 'Panel7'
@ -770,7 +770,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1256 Width = 1264
Height = 28 Height = 28
Align = alClient Align = alClient
ButtonHeight = 30 ButtonHeight = 30

16
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas
View File

@ -11,7 +11,21 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxPC, 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 type
TfrmCKProductBCPInList = class(TForm) TfrmCKProductBCPInList = class(TForm)

16
成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, 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 var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

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

@ -19,8 +19,8 @@ object frmFCDJSMCK: TfrmFCDJSMCK
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 505 Left = 505
Top = 0 Top = 0
Width = 775 Width = 783
Height = 613 Height = 621
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -105,7 +105,7 @@ object frmFCDJSMCK: TfrmFCDJSMCK
Left = 0 Left = 0
Top = 0 Top = 0
Width = 505 Width = 505
Height = 613 Height = 621
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered

16
成品仓库(FinishedClothWarehouse.dll)/U_FCDJSMCK.pas
View File

@ -9,7 +9,21 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit, 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 type
TfrmFCDJSMCK = class(TForm) TfrmFCDJSMCK = class(TForm)

9
成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.dfm
View File

@ -19,12 +19,12 @@ object frmFCSMCK: TfrmFCSMCK
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 505 Left = 505
Top = 0 Top = 0
Width = 775 Width = 783
Height = 614 Height = 621
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_MainSel DataController.DataSource = DS_MainSel
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -97,7 +97,7 @@ object frmFCSMCK: TfrmFCSMCK
Left = 0 Left = 0
Top = 0 Top = 0
Width = 505 Width = 505
Height = 614 Height = 621
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -362,6 +362,7 @@ object frmFCSMCK: TfrmFCSMCK
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 792 Left = 792
Top = 336 Top = 336
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET

17
成品仓库(FinishedClothWarehouse.dll)/U_FCSMCK.pas
View File

@ -8,7 +8,22 @@ uses
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, 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 type
TfrmFCSMCK = class(TForm) TfrmFCSMCK = class(TForm)

16
染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm
View File

@ -19,7 +19,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1341 Width = 1349
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -198,7 +198,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1341 Width = 1349
Height = 81 Height = 81
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -626,8 +626,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 196 Top = 196
Width = 1341 Width = 1349
Height = 486 Height = 494
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
@ -1136,14 +1136,14 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 143 Top = 143
Width = 1341 Width = 1349
Height = 28 Height = 28
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
DesignSize = ( DesignSize = (
1337 1345
24) 24)
object Label31: TLabel object Label31: TLabel
Left = 25 Left = 25
@ -1237,7 +1237,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 171 Top = 171
Width = 1341 Width = 1349
Height = 25 Height = 25
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1256,7 +1256,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 27 ClientRectBottom = 27
ClientRectRight = 1341 ClientRectRight = 1349
ClientRectTop = 27 ClientRectTop = 27
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

16
染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas
View File

@ -12,7 +12,21 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, 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, 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 type
TfrmJYOrderCDList = class(TForm) TfrmJYOrderCDList = class(TForm)

4
染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm
View File

@ -1,6 +1,6 @@
object frmMarkingInspection: TfrmMarkingInspection object frmMarkingInspection: TfrmMarkingInspection
Left = 229 Left = 260
Top = 13 Top = 246
Width = 1153 Width = 1153
Height = 819 Height = 819
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564

26
染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas
View File

@ -285,7 +285,7 @@ type
FCDName: string; FCDName: string;
isCommopen, IsJsMessage: boolean; isCommopen, IsJsMessage: boolean;
fxsType, fRollType: string; fxsType, fRollType: string;
FKongJia, FKongJiaWei, FBaoZhuangDai: Double; FKongJia, FKongJiaWei, FBaoZhuangDai, fmaChi: Double;
FMMF: Integer; FMMF: Integer;
Fkaipi: string; Fkaipi: string;
procedure InitJP(); //刷新疵点选项 procedure InitJP(); //刷新疵点选项
@ -448,6 +448,7 @@ begin
FFFMJID := ''; FFFMJID := '';
FKongJia := 0; FKongJia := 0;
FKongJiaWei := 0; FKongJiaWei := 0;
Fmachi := 1;
lblCode.Caption := '编号'; lblCode.Caption := '编号';
lblMPRTCodeName.Caption := '品名'; lblMPRTCodeName.Caption := '品名';
lblcolor.Caption := '颜色'; lblcolor.Caption := '颜色';
@ -546,6 +547,15 @@ begin
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').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); MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
// if ADOTmp.fieldbyname('iskj').AsBoolean then // if ADOTmp.fieldbyname('iskj').AsBoolean then
begin begin
@ -664,6 +674,15 @@ begin
lblKH.Caption := trim(ADOTmp.fieldbyname('CustomerNoName').AsString); lblKH.Caption := trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
fGY := trim(ADOTmp.fieldbyname('KKGY').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); fxsws := trim(ADOTmp.fieldbyname('xsws').AsString);
fcdws := trim(ADOTmp.fieldbyname('cdws').AsString); fcdws := trim(ADOTmp.fieldbyname('cdws').AsString);
i := 0; i := 0;
@ -1117,7 +1136,10 @@ begin
// if Ekjlen.Text='' then // if Ekjlen.Text='' then
// begin // begin
FieldByName('KongJia').Value := FKongJia; 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 // end else
// begin // begin
// FieldByName('KongJia').Value := StrToFloatdef(Trim(Ekjlen.Text),0); // FieldByName('KongJia').Value := StrToFloatdef(Trim(Ekjlen.Text),0);

16
染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.dfm
View File

@ -19,7 +19,7 @@ object frmProductOrderCarList: TfrmProductOrderCarList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -132,7 +132,7 @@ object frmProductOrderCarList: TfrmProductOrderCarList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1366 Width = 1374
Height = 81 Height = 81
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -355,7 +355,7 @@ object frmProductOrderCarList: TfrmProductOrderCarList
Left = 0 Left = 0
Top = 113 Top = 113
Width = 677 Width = 677
Height = 485 Height = 493
Align = alLeft Align = alLeft
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
@ -363,7 +363,7 @@ object frmProductOrderCarList: TfrmProductOrderCarList
Left = 1 Left = 1
Top = 23 Top = 23
Width = 675 Width = 675
Height = 461 Height = 469
Align = alClient Align = alClient
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
@ -562,16 +562,16 @@ object frmProductOrderCarList: TfrmProductOrderCarList
object Panel4: TPanel object Panel4: TPanel
Left = 677 Left = 677
Top = 113 Top = 113
Width = 689 Width = 697
Height = 485 Height = 493
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 687 Width = 695
Height = 483 Height = 491
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0

15
染整计划(DyeingFinishingPlan.dll)/U_ProductOrderCarList.pas
View File

@ -13,7 +13,20 @@ uses
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters, 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 type
TfrmProductOrderCarList = class(TForm) TfrmProductOrderCarList = class(TForm)

37
染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.dfm
View File

@ -20,7 +20,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1272 Width = 1280
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -139,16 +139,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
ImageIndex = 11 ImageIndex = 11
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton11: TToolButton object TbMaChiset: TToolButton
Left = 336 Left = 336
Top = 30 Top = 30
AutoSize = True 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 Caption = #38271#24230#20301#25968
ImageIndex = 22 ImageIndex = 22
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 423 Left = 510
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #37325#37327#20301#25968 Caption = #37325#37327#20301#25968
@ -156,7 +164,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object PiZhong: TEdit object PiZhong: TEdit
Left = 510 Left = 597
Top = 30 Top = 30
Width = 121 Width = 121
Height = 30 Height = 30
@ -169,7 +177,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
TabOrder = 0 TabOrder = 0
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 631 Left = 718
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -180,7 +188,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1272 Width = 1280
Height = 67 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -401,8 +409,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 129 Top = 129
Width = 1272 Width = 1280
Height = 432 Height = 440
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -553,13 +561,19 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
Options.Editing = False Options.Editing = False
Width = 68 Width = 68
end end
object Tv1machi: TcxGridDBColumn
Caption = #30721#23610
DataBinding.FieldName = 'Machi'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #25442#31639#31995#25968 Caption = #25442#31639#31995#25968
DataBinding.FieldName = 'Xs' DataBinding.FieldName = 'Xs'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 75 Width = 86
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #25442#31639#31995#25968#31867#22411 Caption = #25442#31639#31995#25968#31867#22411
@ -598,18 +612,19 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
DataBinding.FieldName = 'KongJia' DataBinding.FieldName = 'KongJia'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 75 Width = 92
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #31354#21152#37325#37327 Caption = #31354#21152#37325#37327
DataBinding.FieldName = 'kongjiawei' DataBinding.FieldName = 'kongjiawei'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 93
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #38271#24230#20301#25968 Caption = #38271#24230#20301#25968
DataBinding.FieldName = 'CDWS' DataBinding.FieldName = 'CDWS'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #37325#37327#20301#25968 Caption = #37325#37327#20301#25968

60
染整计划(DyeingFinishingPlan.dll)/U_ProductOrderLBNameSet.pas
View File

@ -10,7 +10,21 @@ uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxTextEdit, 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 type
TfrmProductOrderLBNameSet = class(TForm) TfrmProductOrderLBNameSet = class(TForm)
@ -90,6 +104,8 @@ type
ToolButton12: TToolButton; ToolButton12: TToolButton;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
TbMaChiset: TToolButton;
Tv1machi: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -119,6 +135,7 @@ type
procedure ToolButton10Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject); procedure ToolButton11Click(Sender: TObject);
procedure ToolButton12Click(Sender: TObject); procedure ToolButton12Click(Sender: TObject);
procedure TbMaChisetClick(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
@ -915,5 +932,46 @@ begin
// end; // end;
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. end.

10
染整计划(DyeingFinishingPlan.dll)/U_SCJDList.dfm
View File

@ -19,7 +19,7 @@ object frmSCJDList: TfrmSCJDList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1240 Width = 1248
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -73,7 +73,7 @@ object frmSCJDList: TfrmSCJDList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1240 Width = 1248
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -325,12 +325,12 @@ object frmSCJDList: TfrmSCJDList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1240 Width = 1248
Height = 608 Height = 615
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>

17
染整计划(DyeingFinishingPlan.dll)/U_SCJDList.pas
View File

@ -12,7 +12,22 @@ uses
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls, cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, 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 type
TfrmSCJDList = class(TForm) TfrmSCJDList = class(TForm)