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
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\Âú·å\Å÷²¼»ã×ֿܲâ(ClothWarehouse.dll)\testDll.exe
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7fhManfeng\Å÷²¼»ã×ֿܲâ(ClothWarehouse.dll)\testDll.exe
Launcher=
UseLauncher=0
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
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; {数据库连接参数}

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

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

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

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

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

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

25
应收应付/U_YFCRMXList.dfm
View File

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

17
应收应付/U_YFCRMXList.pas
View File

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

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

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

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

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

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

@ -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; {数据库连接参数}

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

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

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

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

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

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

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

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

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

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

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,
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)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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