Group_99/D7szChenfeng
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: Group_99:8481cb86fa89cf706f50b5d391e0ada63cbd5961
Branches Tags
Group_99:main
...
compare: Group_99:889aa06bd5e76eef99828660de0b89bda7e6f55e
Branches Tags
Group_99:main

4 Commits
8481cb86fa ... 889aa06bd5

Author SHA1 Message Date
DESKTOP-E401PHE\Administrator
889aa06bd5 0317 2026-03-17 17:25:46 +08:00
DESKTOP-E401PHE\Administrator
c7a02def1c fugong 2026-02-26 15:36:49 +08:00
DESKTOP-E401PHE\Administrator
6f219d26d4 20260211 2026-02-11 17:19:48 +08:00
DESKTOP-E401PHE\Administrator
b7cc5e8312 20260114 2026-01-14 13:03:28 +08:00
120 changed files with 20219 additions and 716 deletions
Show Stats Expand all files Collapse all files

2
合同管理(ContractManagement.dll)/ContractManagement.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

2
合同管理(ContractManagement.dll)/ContractManagement.skincfg
View File

@ -1,7 +1,7 @@
[ExpressSkins] [ExpressSkins]
Default=1 Default=1
ShowNotifications=1 ShowNotifications=1
Enabled=0 Enabled=1
dxSkinBlack=1 dxSkinBlack=1
dxSkinBlue=1 dxSkinBlue=1
dxSkinBlueprint=1 dxSkinBlueprint=1

60
合同管理(ContractManagement.dll)/U_ContractListCG.dfm
View File

@ -19,7 +19,8 @@ object frmContractListCG: TfrmContractListCG
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -99,35 +100,36 @@ object frmContractListCG: TfrmContractListCG
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 4 ImageIndex = 4
Wrap = True
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object btnTijiao: TToolButton object btnTijiao: TToolButton
Left = 528 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25552#20132 Caption = #25552#20132
ImageIndex = 31 ImageIndex = 31
OnClick = btnTijiaoClick OnClick = btnTijiaoClick
end end
object btnCXTijiao: TToolButton object btnCXTijiao: TToolButton
Left = 591 Left = 63
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#25552#20132 Caption = #25764#38144#25552#20132
ImageIndex = 52 ImageIndex = 52
OnClick = btnCXTijiaoClick OnClick = btnCXTijiaoClick
end end
object tchk: TToolButton object tchk: TToolButton
Left = 678 Left = 150
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
ImageIndex = 31 ImageIndex = 31
OnClick = tchkClick OnClick = tchkClick
end end
object Tnochk: TToolButton object Tnochk: TToolButton
Left = 741 Left = 213
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
ImageIndex = 52 ImageIndex = 52
@ -135,32 +137,32 @@ object frmContractListCG: TfrmContractListCG
OnClick = TnochkClick OnClick = TnochkClick
end end
object Tqx: TToolButton object Tqx: TToolButton
Left = 828 Left = 300
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #21512#21516#21462#28040 Caption = #21512#21516#21462#28040
ImageIndex = 3 ImageIndex = 3
OnClick = TqxClick OnClick = TqxClick
end end
object Tnoqx: TToolButton object Tnoqx: TToolButton
Left = 915 Left = 387
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#21512#21516#21462#28040 Caption = #25764#38144#21512#21516#21462#28040
ImageIndex = 52 ImageIndex = 52
OnClick = TnoqxClick OnClick = TnoqxClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 1026 Left = 498
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25805#20316#26085#24535 Caption = #25805#20316#26085#24535
ImageIndex = 22 ImageIndex = 22
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1113 Left = 585
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
@ -169,8 +171,8 @@ object frmContractListCG: TfrmContractListCG
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 97 Top = 127
Width = 1366 Width = 1374
Height = 394 Height = 394
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -404,8 +406,8 @@ object frmContractListCG: TfrmContractListCG
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1366 Width = 1374
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -633,8 +635,8 @@ object frmContractListCG: TfrmContractListCG
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 75 Top = 105
Width = 1366 Width = 1374
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -649,22 +651,22 @@ object frmContractListCG: TfrmContractListCG
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1366 ClientRectRight = 1374
ClientRectTop = 19 ClientRectTop = 19
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 707 Top = 715
Width = 1366 Width = 1374
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 491 Top = 521
Width = 1366 Width = 1374
Height = 216 Height = 194
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView

15
合同管理(ContractManagement.dll)/U_ContractListCG.pas
View File

@ -11,7 +11,20 @@ uses
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, Menus, cxPC, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, 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
TfrmContractListCG = class(TForm) TfrmContractListCG = class(TForm)

31
合同管理(ContractManagement.dll)/U_ContractListJG.dfm
View File

@ -19,7 +19,7 @@ object frmContractListJG: TfrmContractListJG
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -172,12 +172,12 @@ object frmContractListJG: TfrmContractListJG
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1366 Width = 1374
Height = 394 Height = 394
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell OnCustomDrawCell = Tv1CustomDrawCell
OnFocusedRecordChanged = Tv1FocusedRecordChanged OnFocusedRecordChanged = Tv1FocusedRecordChanged
@ -270,7 +270,7 @@ object frmContractListJG: TfrmContractListJG
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status' DataBinding.FieldName = 'status'
Visible = False Visible = False
Hidden = True VisibleForCustomization = False
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21512#21516#38468#20214 Caption = #21512#21516#38468#20214
@ -337,7 +337,7 @@ object frmContractListJG: TfrmContractListJG
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1366 Width = 1374
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -551,13 +551,14 @@ object frmContractListJG: TfrmContractListJG
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1366 Width = 1374
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#25552#20132 #26410#25552#20132
#24050#25552#20132 #24050#25552#20132
#24050#23457#26680 #24050#23457#26680
@ -565,13 +566,13 @@ object frmContractListJG: TfrmContractListJG
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1366 ClientRectRight = 1374
ClientRectTop = 19 ClientRectTop = 19
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 708 Top = 715
Width = 1366 Width = 1374
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -579,12 +580,12 @@ object frmContractListJG: TfrmContractListJG
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 521 Top = 521
Width = 1366 Width = 1374
Height = 187 Height = 194
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_Sub DataController.DataSource = DS_Sub
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <

17
合同管理(ContractManagement.dll)/U_ContractListJG.pas
View File

@ -10,7 +10,22 @@ 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, Menus, cxPC, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxTextEdit, cxDropDownEdit; cxTextEdit, 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, dxBarBuiltInMenu;
type type
TfrmContractListJG = class(TForm) TfrmContractListJG = class(TForm)

22
合同管理(ContractManagement.dll)/U_ContractListNX.dfm
View File

@ -1,6 +1,6 @@
object frmContractListNX: TfrmContractListNX object frmContractListNX: TfrmContractListNX
Left = 382 Left = 225
Top = 287 Top = 246
Width = 1381 Width = 1381
Height = 716 Height = 716
Caption = #38144#21806#21512#21516 Caption = #38144#21806#21512#21516
@ -20,7 +20,7 @@ object frmContractListNX: TfrmContractListNX
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1373 Width = 1365
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -205,7 +205,7 @@ object frmContractListNX: TfrmContractListNX
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 139 Top = 139
Width = 1373 Width = 1365
Height = 362 Height = 362
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -462,7 +462,7 @@ object frmContractListNX: TfrmContractListNX
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1373 Width = 1365
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -689,7 +689,7 @@ object frmContractListNX: TfrmContractListNX
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1373 Width = 1365
Height = 34 Height = 34
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -701,7 +701,7 @@ object frmContractListNX: TfrmContractListNX
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 4
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#25552#20132 #26410#25552#20132
#24050#25552#20132 #24050#25552#20132
@ -710,14 +710,14 @@ object frmContractListNX: TfrmContractListNX
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 34 ClientRectBottom = 34
ClientRectRight = 1373 ClientRectRight = 1365
ClientRectTop = 26 ClientRectTop = 26
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 509 Top = 509
Width = 1373 Width = 1365
Height = 176 Height = 168
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -1048,7 +1048,7 @@ object frmContractListNX: TfrmContractListNX
object cxSplitter2: TcxSplitter object cxSplitter2: TcxSplitter
Left = 0 Left = 0
Top = 501 Top = 501
Width = 1373 Width = 1365
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salTop AlignSplitter = salTop

2
合同管理(ContractManagement.dll)/U_ContractListNX.pas
View File

@ -519,7 +519,7 @@ begin
sql.Add(',Telephone=( select TOP 1 Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''¿Í»§'' and Y.Valid=''Y'' and Y.Code= A.buyno) '); sql.Add(',Telephone=( select TOP 1 Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''¿Í»§'' and Y.Valid=''Y'' and Y.Code= A.buyno) ');
sql.Add(' from Contract_Main A inner join Contract_Sub B on A.ConMainId=B.ConMainId '); sql.Add(' from Contract_Main A inner join Contract_Sub B on A.ConMainId=B.ConMainId ');
sql.Add(' where A.ConMainId=''' + Trim(CDS_Main.fieldbyname('ConMainId').AsString) + ''''); sql.Add(' where A.ConMainId=''' + Trim(CDS_Main.fieldbyname('ConMainId').AsString) + '''');
sql.Add(' order by B.XHNo '); sql.Add(' order by cast(B.XHNo as int) ');
//ShowMessage(SQL.Text); //ShowMessage(SQL.Text);
Open; Open;
end; end;

6
合同管理(ContractManagement.dll)/U_GetDllForm.pas
View File

@ -74,6 +74,12 @@ begin
dtbase := 'chenfengdata'; dtbase := 'chenfengdata';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
//
// server := '127.0.0.1';
// dtbase := 'delphichenfeng';
// user := 'sa';
// 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;
// DName:='ADMIN'; // DName:='ADMIN';
// DParameters1:='¸ßȨÏÞ'; // DParameters1:='¸ßȨÏÞ';

4
合同管理(ContractManagement.dll)/U_JHFXLIST.dfm
View File

@ -1,6 +1,6 @@
object frmjhfxlist: Tfrmjhfxlist object frmjhfxlist: Tfrmjhfxlist
Left = 201 Left = 383
Top = 51 Top = 189
Width = 1293 Width = 1293
Height = 795 Height = 795
Caption = #35745#21010#20998#26512#34920 Caption = #35745#21010#20998#26512#34920

17
合同管理(ContractManagement.dll)/U_JHFXLIST.pas
View File

@ -11,7 +11,20 @@ uses
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxImage, cxBlobEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxImage, cxBlobEdit,
cxImageComboBox, ImgList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxImageComboBox, ImgList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
Tfrmjhfxlist = class(TForm) Tfrmjhfxlist = class(TForm)
@ -149,7 +162,7 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('exec P_ht_jhlist2 @consubid=''' + Trim(FMainId) + ''''); sql.Add('exec P_ht_jhlist2 @consubid=''' + Trim(FMainId) + '''');
//showmessage(sql.text);
Open; Open;
end; end;
SCreateCDS20(ADOTemp, Order_Sub); SCreateCDS20(ADOTemp, Order_Sub);

4
合同管理(ContractManagement.dll)/U_testdll.dfm
View File

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

2
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe HostApplication=D:\Dp7Repo\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

13
坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas
View File

@ -82,10 +82,15 @@ begin
if Trim(DataBaseStr) = '' then if Trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; // server := '101.132.143.144,7781';
dtbase := 'chenfengdata'; // dtbase := 'chenfengdata';
user := 'rtsa'; // user := 'rtsa';
pswd := 'rightsoft@5740'; // pswd := 'rightsoft@5740';
server := '127.0.0.1';
dtbase := 'delphichenfeng';
user := 'sa';
pswd := 'rightsoft';
// server := '.'; // server := '.';
// dtbase := 'yiduidata'; // dtbase := 'yiduidata';

18
坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKOutList: TfrmSXCKOutList object frmSXCKOutList: TfrmSXCKOutList
Left = 612 Left = 257
Top = 524 Top = 129
Width = 1314 Width = 1314
Height = 572 Height = 572
Caption = #22383#24067#20986#24211#21015#34920 Caption = #22383#24067#20986#24211#21015#34920
@ -21,7 +21,7 @@ object frmSXCKOutList: TfrmSXCKOutList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1306 Width = 1298
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -151,7 +151,7 @@ object frmSXCKOutList: TfrmSXCKOutList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1306 Width = 1298
Height = 72 Height = 72
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -334,8 +334,8 @@ object frmSXCKOutList: TfrmSXCKOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1089 Width = 1081
Height = 436 Height = 428
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -624,10 +624,10 @@ object frmSXCKOutList: TfrmSXCKOutList
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 1089 Left = 1081
Top = 105 Top = 105
Width = 217 Width = 217
Height = 436 Height = 428
Align = alRight Align = alRight
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
@ -635,7 +635,7 @@ object frmSXCKOutList: TfrmSXCKOutList
Left = 1 Left = 1
Top = 1 Top = 1
Width = 215 Width = 215
Height = 434 Height = 426
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView

1
坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas
View File

@ -425,6 +425,7 @@ begin
finally finally
frmSXCKOutPut.Free; frmSXCKOutPut.Free;
end; end;
initGrid();
end; end;
procedure TfrmSXCKOutList.TBEditClick(Sender: TObject); procedure TfrmSXCKOutList.TBEditClick(Sender: TObject);

10
坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKOutPut: TfrmSXCKOutPut object frmSXCKOutPut: TfrmSXCKOutPut
Left = 657 Left = 414
Top = 566 Top = 377
Width = 1215 Width = 1215
Height = 489 Height = 489
Align = alClient Align = alClient
@ -20,7 +20,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1207 Width = 1199
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -82,8 +82,8 @@ object frmSXCKOutPut: TfrmSXCKOutPut
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1207 Width = 1199
Height = 425 Height = 417
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

4
坯布码单待检(PBMDDJ.dll)/U_testdll.dfm
View File

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

20
客户供应商管理(Company.dll)/U_Customer.dfm
View File

@ -1,6 +1,6 @@
object frmCustomer: TfrmCustomer object frmCustomer: TfrmCustomer
Left = 232 Left = 284
Top = 249 Top = 358
Width = 1388 Width = 1388
Height = 650 Height = 650
Caption = #23458#25143#36164#26009#31649#29702 Caption = #23458#25143#36164#26009#31649#29702
@ -137,6 +137,13 @@ object frmCustomer: TfrmCustomer
Height = 12 Height = 12
Caption = #22320#21306 Caption = #22320#21306
end end
object Label5: TLabel
Left = 639
Top = 13
Width = 48
Height = 12
Caption = #23458#25143#31616#31216
end
object Name: TEdit object Name: TEdit
Tag = 2 Tag = 2
Left = 238 Left = 238
@ -173,6 +180,15 @@ object frmCustomer: TfrmCustomer
TabOrder = 3 TabOrder = 3
OnChange = NameChange OnChange = NameChange
end end
object shortName: TEdit
Tag = 2
Left = 692
Top = 9
Width = 89
Height = 20
TabOrder = 4
OnChange = NameChange
end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0

2
客户供应商管理(Company.dll)/U_Customer.pas
View File

@ -83,6 +83,8 @@ type
Tv2Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Label5: TLabel;
shortName: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

6
客户供应商管理(Company.dll)/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 203 Left = 546
Top = 121 Top = 403
Width = 791 Width = 791
Height = 554 Height = 554
Caption = 'Form1' Caption = 'Form1'
@ -21,7 +21,7 @@ object Form1: TForm1
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 775 Width = 783
Height = 25 Height = 25
ButtonWidth = 57 ButtonWidth = 57
Caption = 'ToolBar1' Caption = 'ToolBar1'

8
布匹检验(FabricInspection.dll)/ProjectGroup1.bpg
View File

@ -9,9 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = PROJECTS = FabricInspection.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
FabricInspection.dll: FabricInspection.dpr
$(DCC)
testDll.exe: testDll.dpr
$(DCC)

15
布匹检验(FabricInspection.dll)/U_CiPinChaiJian.pas
View File

@ -10,7 +10,20 @@ uses
cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls, cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls,
ComCtrls, ToolWin, DBClient, ADODB, MovePanel, RM_Dataset, RM_System, ComCtrls, ToolWin, DBClient, ADODB, MovePanel, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator; 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;
function CommOpen(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): integer; stdcall; external 'JCYData.DLL'; function CommOpen(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): integer; stdcall; external 'JCYData.DLL';

12
布匹检验(FabricInspection.dll)/U_ClothSCDCGAnPai.dfm
View File

@ -19,7 +19,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1454 Width = 1446
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -57,7 +57,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1454 Width = 1446
Height = 58 Height = 58
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -309,7 +309,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
Left = 689 Left = 689
Top = 90 Top = 90
Width = 231 Width = 231
Height = 598 Height = 590
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -462,7 +462,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
Left = 0 Left = 0
Top = 90 Top = 90
Width = 689 Width = 689
Height = 598 Height = 590
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -611,8 +611,8 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 920 Left = 920
Top = 90 Top = 90
Width = 534 Width = 526
Height = 598 Height = 590
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

16
布匹检验(FabricInspection.dll)/U_ClothSCDCGAnPai.pas
View File

@ -11,7 +11,21 @@ uses
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxCore, ActiveX, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; dxCore, ActiveX, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmClothSCDCGAnPai = class(TForm) TfrmClothSCDCGAnPai = class(TForm)

16
布匹检验(FabricInspection.dll)/U_GetDllForm.pas
View File

@ -65,15 +65,15 @@ begin
SetLength(pswd, 255); SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then if Trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; // server := '101.132.143.144,7781';
dtbase := 'chenfengdata'; // dtbase := 'chenfengdata';
user := 'rtsa'; // user := 'rtsa';
pswd := 'rightsoft@5740'; // pswd := 'rightsoft@5740';
// server := '.'; server := '127.0.0.1';
// dtbase := 'yiduidata'; dtbase := 'delphichenfeng';
// user := 'sa'; user := 'sa';
// 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;

19
布匹检验(FabricInspection.dll)/U_GreyInspection.dfm
View File

@ -1,8 +1,8 @@
object frmGreyInspection: TfrmGreyInspection object frmGreyInspection: TfrmGreyInspection
Left = 192 Left = 402
Top = 41 Top = 267
Width = 1316 Width = 1316
Height = 755 Height = 862
Caption = #26797#32455#22383#24067#26816#39564 Caption = #26797#32455#22383#24067#26816#39564
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -22,7 +22,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 0 Left = 0
Top = 85 Top = 85
Width = 217 Width = 217
Height = 639 Height = 746
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -764,7 +764,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 217 Left = 217
Top = 85 Top = 85
Width = 296 Width = 296
Height = 639 Height = 746
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -773,7 +773,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 2 Left = 2
Top = 113 Top = 113
Width = 292 Width = 292
Height = 524 Height = 631
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -1145,7 +1145,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 513 Left = 513
Top = 85 Top = 85
Width = 795 Width = 795
Height = 639 Height = 746
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -1652,4 +1652,9 @@ object frmGreyInspection: TfrmGreyInspection
Font.Style = [fsBold] Font.Style = [fsBold]
end end
end end
object ADOQuery1: TADOQuery
Parameters = <>
Left = 824
Top = 192
end
end end

76
布匹检验(FabricInspection.dll)/U_GreyInspection.pas
View File

@ -156,6 +156,7 @@ type
ToolButton6: TToolButton; ToolButton6: TToolButton;
Tv3Column5: TcxGridDBColumn; Tv3Column5: TcxGridDBColumn;
Tv3Column6: TcxGridDBColumn; Tv3Column6: TcxGridDBColumn;
ADOQuery1: TADOQuery;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -739,11 +740,12 @@ begin
if not ADOTmp.IsEmpty then if not ADOTmp.IsEmpty then
begin begin
// FAPID := Trim(ADOTmp.fieldbyname('apid').AsString); // FAPID := Trim(ADOTmp.fieldbyname('apid').AsString);
// FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString); FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
FMJCode := Trim(ADOTmp.fieldbyname('P_Code').AsString); FMJCode := Trim(ADOTmp.fieldbyname('P_Code').AsString);
FMJName := Trim(ADOTmp.fieldbyname('P_CodeName').AsString); FMJName := Trim(ADOTmp.fieldbyname('P_CodeName').AsStSring);
FMJSpec := Trim(ADOTmp.fieldbyname('P_Spec').AsString); FMJSpec := Trim(ADOTmp.fieldbyname('P_Spec').AsString);
FMJMF := Trim(ADOTmp.fieldbyname('P_MF').AsString); FMJMF := Trim(ADOTmp.fieldbyname('P_MF').AsString);
@ -1290,13 +1292,21 @@ begin
end; end;
end; end;
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select * from PD_Plan_Card where PCID=''' + Trim(FPCID) + '''');
Open;
end;
FieldByName('MainId').value := Trim(FMainId); FieldByName('MainId').value := Trim(FMainId);
FieldByName('SubId').value := Trim(FSubId); FieldByName('SubId').value := Trim(FSubId);
FieldByName('APId').value := Trim(FAPID); FieldByName('APId').value := Trim(FAPID);
FieldByName('pcid').value := Trim(FPCID); FieldByName('pcid').value := Trim(FPCID);
FieldByName('BatchNO').value := Trim(FBatchNO); FieldByName('BatchNO').value := Trim(ADOQuery1.FieldByName('edzdfno').AsString);
FieldByName('P_Code').value := Trim(FMJCode); FieldByName('P_Code').value := Trim(FMJCode);
FieldByName('P_CodeName').value := Trim(FMJName); FieldByName('P_CodeName').value := Trim(FMJName);
FieldByName('P_Spec').value := Trim(FMJSpec); FieldByName('P_Spec').value := Trim(FMJSpec);
@ -1315,6 +1325,8 @@ begin
FieldByName('Person1').Value := trim(Person1.Text); FieldByName('Person1').Value := trim(Person1.Text);
FieldByName('Person2').Value := trim(Person2.Text); FieldByName('Person2').Value := trim(Person2.Text);
FieldByName('Person3').Value := trim(Person3.Text); FieldByName('Person3').Value := trim(Person3.Text);
FieldByName('Person4').Value := trim(Person4.Text);
FieldByName('Person5').Value := trim(Person5.Text);
FieldByName('group1').Value := trim(Person1.hint); FieldByName('group1').Value := trim(Person1.hint);
FieldByName('group2').Value := trim(Person2.hint); FieldByName('group2').Value := trim(Person2.hint);
@ -1322,8 +1334,6 @@ begin
FieldByName('group4').Value := trim(Person4.hint); FieldByName('group4').Value := trim(Person4.hint);
FieldByName('group5').Value := trim(Person5.hint); FieldByName('group5').Value := trim(Person5.hint);
FieldByName('Person4').Value := trim(Person4.Text);
FieldByName('Person5').Value := trim(Person5.Text);
//µ²³µ¹¤³¤¶È //µ²³µ¹¤³¤¶È
FieldByName('JYLen1').Value := StrToFloatdef(trim(JYLen1.Text), 0); FieldByName('JYLen1').Value := StrToFloatdef(trim(JYLen1.Text), 0);
FieldByName('JYLen2').Value := StrToFloatdef(trim(JYLen2.Text), 0); FieldByName('JYLen2').Value := StrToFloatdef(trim(JYLen2.Text), 0);
@ -1470,6 +1480,7 @@ var
fPrintFile: string; fPrintFile: string;
mvalue: Double; mvalue: Double;
i: Integer; i: Integer;
Result: Boolean;
begin begin
BTPrint.Enabled := False; BTPrint.Enabled := False;
Scan.SetFocus; Scan.SetFocus;
@ -1485,6 +1496,9 @@ begin
BTPrint.Enabled := True; BTPrint.Enabled := True;
exit; exit;
end; end;
if FAPID = '' then if FAPID = '' then
begin begin
with ADOCmd do with ADOCmd do
@ -1492,7 +1506,6 @@ begin
close; close;
sql.Clear; sql.Clear;
sql.Add(' select c_pie,edZDFNo,YJPS=ISNULL((SELECT COUNT(*) FROM JY_Cloth F WHERE F.PCID=E.PCID ),0) from pd_plan_card e where e.pcid= ' + QuotedStr(FPCID)); sql.Add(' select c_pie,edZDFNo,YJPS=ISNULL((SELECT COUNT(*) FROM JY_Cloth F WHERE F.PCID=E.PCID ),0) from pd_plan_card e where e.pcid= ' + QuotedStr(FPCID));
open; open;
end; end;
if ADOCmd.FieldByName('YJPS').AsFloat >= ADOCmd.FieldByName('c_pie').AsFloat then if ADOCmd.FieldByName('YJPS').AsFloat >= ADOCmd.FieldByName('c_pie').AsFloat then
@ -1502,10 +1515,11 @@ begin
BTPrint.Enabled := True; BTPrint.Enabled := True;
Exit; Exit;
end; end;
end; end;
end; end;
if SaveData() then if SaveData() then
begin begin
if StrToFloatDef(kaijian.Text, 0) <> 0 then if StrToFloatDef(kaijian.Text, 0) <> 0 then
@ -2288,41 +2302,71 @@ end;
procedure TfrmGreyInspection.JYLen1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person1.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤1!'); if Trim(person1.Text) = '' then
begin
Application.MessageBox('请先输入挡车工1！', '提示', MB_OK + MB_ICONWARNING);
if Person1.CanFocus then
Person1.SetFocus;
Abort;
end;
end; end;
end; end;
procedure TfrmGreyInspection.JYLen2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person2.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤2!'); if Trim(person2.Text) = '' then
begin
Application.MessageBox('请先输入挡车工2！', '提示', MB_OK + MB_ICONWARNING);
if Person2.CanFocus then
Person2.SetFocus;
Abort;
end;
end; end;
end; end;
procedure TfrmGreyInspection.JYLen3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person3.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤3!'); if Trim(person3.Text) = '' then
begin
Application.MessageBox('请先输入挡车工3！', '提示', MB_OK + MB_ICONWARNING);
if Person3.CanFocus then
Person3.SetFocus;
Abort;
end;
end; end;
end; end;
procedure TfrmGreyInspection.JYLen4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person4.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤4!'); if Trim(person4.Text) = '' then
begin
Application.MessageBox('请先输入挡车工1！', '提示', MB_OK + MB_ICONWARNING);
if Person4.CanFocus then
Person4.SetFocus;
Abort;
end;
end; end;
end; end;
procedure TfrmGreyInspection.JYLen5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person5.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤5!'); if Trim(person5.Text) = '' then
begin
Application.MessageBox('请先输入挡车工5！', '提示', MB_OK + MB_ICONWARNING);
if Person5.CanFocus then
Person5.SetFocus;
Abort;
end;
end; end;
end; end;

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

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

2
布匹检验(FabricInspection.dll)/testDll.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

16
应收应付/U_FDINVOICE.dfm
View File

@ -1,6 +1,6 @@
object frmFDINVOICE: TfrmFDINVOICE object frmFDINVOICE: TfrmFDINVOICE
Left = 173 Left = 168
Top = 86 Top = 455
Width = 1378 Width = 1378
Height = 754 Height = 754
Caption = #36827#39033#21457#31080#31649#29702 Caption = #36827#39033#21457#31080#31649#29702
@ -20,7 +20,7 @@ object frmFDINVOICE: TfrmFDINVOICE
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1370 Width = 1362
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -141,7 +141,7 @@ object frmFDINVOICE: TfrmFDINVOICE
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1370 Width = 1362
Height = 69 Height = 69
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -324,7 +324,7 @@ object frmFDINVOICE: TfrmFDINVOICE
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1370 Width = 1362
Height = 310 Height = 310
Align = alTop Align = alTop
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
@ -459,7 +459,7 @@ object frmFDINVOICE: TfrmFDINVOICE
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 100 Top = 100
Width = 1370 Width = 1362
Height = 21 Height = 21
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -477,8 +477,8 @@ object frmFDINVOICE: TfrmFDINVOICE
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 431 Top = 431
Width = 1370 Width = 1362
Height = 292 Height = 284
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView

15
应收应付/U_FDINVOICE.pas
View File

@ -14,7 +14,20 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels, cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, DateUtils, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, DateUtils,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmFDINVOICE = class(TForm) TfrmFDINVOICE = class(TForm)

21
应收应付/U_FKCR.dfm
View File

@ -1,6 +1,6 @@
object frmFKCR: TfrmFKCR object frmFKCR: TfrmFKCR
Left = 348 Left = 350
Top = 170 Top = 226
Width = 990 Width = 990
Height = 618 Height = 618
Caption = #20184#27454#30331#35760 Caption = #20184#27454#30331#35760
@ -19,7 +19,7 @@ object frmFKCR: TfrmFKCR
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 974 Width = 982
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -116,7 +116,7 @@ object frmFKCR: TfrmFKCR
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 974 Width = 982
Height = 66 Height = 66
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -209,7 +209,7 @@ object frmFKCR: TfrmFKCR
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 97 Top = 97
Width = 974 Width = 982
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -222,13 +222,13 @@ object frmFKCR: TfrmFKCR
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 974 ClientRectRight = 982
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 342 Top = 350
Width = 974 Width = 982
Height = 237 Height = 237
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4
@ -308,8 +308,8 @@ object frmFKCR: TfrmFKCR
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 119 Top = 119
Width = 974 Width = 982
Height = 223 Height = 231
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -335,6 +335,7 @@ object frmFKCR: TfrmFKCR
end end
item item
Kind = skSum Kind = skSum
Column = v2Column5
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False

16
应收应付/U_GetDllForm.pas
View File

@ -66,11 +66,17 @@ begin
if Trim(DataBaseStr) = '' then if Trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; // server := '101.132.143.144,7781';
//// server := '.';
// dtbase := 'chenfengdata';
// user := 'rtsa';
// pswd := 'rightsoft@5740';
server := '127.0.0.1';
// server := '.'; // server := '.';
dtbase := 'chenfengdata'; dtbase := 'delphichenfeng';
user := 'rtsa'; user := 'sa';
pswd := 'rightsoft@5740'; 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;
// Parameters2 := 'Ö¯Ôì'; // Parameters2 := 'Ö¯Ôì';
end end
@ -161,7 +167,7 @@ begin
//¾ä±ú //¾ä±ú
mnewHandle := frmYFCR.Handle; mnewHandle := frmYFCR.Handle;
end; end;
112: //壇마운츠玖꿴璂 112: //壇마운츠玖꿴璂
begin begin
if frmYFCRMXList = nil then if frmYFCRMXList = nil then
begin begin

18
应收应付/U_PBRKlistSel2.dfm
View File

@ -1,8 +1,8 @@
object frmPBRKlistSel2: TfrmPBRKlistSel2 object frmPBRKlistSel2: TfrmPBRKlistSel2
Left = 197 Left = 287
Top = 139 Top = 711
Width = 1378 Width = 1378
Height = 615 Height = 525
Caption = #22383#24067#20837#24211#21015#34920 Caption = #22383#24067#20837#24211#21015#34920
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -192,6 +192,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Width = 80 Width = 80
Height = 20 Height = 20
TabOrder = 2 TabOrder = 2
OnChange = ToolButton1Click
end end
object FactoryName: TEdit object FactoryName: TEdit
Tag = 2 Tag = 2
@ -200,6 +201,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Width = 80 Width = 80
Height = 20 Height = 20
TabOrder = 3 TabOrder = 3
OnChange = ToolButton1Click
end end
object SPID: TEdit object SPID: TEdit
Tag = 2 Tag = 2
@ -208,6 +210,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Width = 80 Width = 80
Height = 20 Height = 20
TabOrder = 4 TabOrder = 4
OnChange = ToolButton1Click
end end
object SPSpec: TEdit object SPSpec: TEdit
Tag = 2 Tag = 2
@ -216,6 +219,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Width = 80 Width = 80
Height = 20 Height = 20
TabOrder = 5 TabOrder = 5
OnChange = ToolButton1Click
end end
object CRType: TComboBox object CRType: TComboBox
Tag = 2 Tag = 2
@ -226,6 +230,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Style = csDropDownList Style = csDropDownList
ItemHeight = 12 ItemHeight = 12
TabOrder = 6 TabOrder = 6
OnChange = ToolButton1Click
Items.Strings = ( Items.Strings = (
#21152#24037#20986#24211 #21152#24037#20986#24211
#38144#21806#20986#24211 #38144#21806#20986#24211
@ -243,6 +248,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Width = 80 Width = 80
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
OnChange = ToolButton1Click
end end
object SPCode: TEdit object SPCode: TEdit
Tag = 2 Tag = 2
@ -251,6 +257,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Width = 77 Width = 77
Height = 20 Height = 20
TabOrder = 8 TabOrder = 8
OnChange = ToolButton1Click
end end
object FZSPID: TEdit object FZSPID: TEdit
Tag = 2 Tag = 2
@ -259,6 +266,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Width = 77 Width = 77
Height = 20 Height = 20
TabOrder = 9 TabOrder = 9
OnChange = ToolButton1Click
end end
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
@ -288,7 +296,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Left = 0 Left = 0
Top = 117 Top = 117
Width = 1362 Width = 1362
Height = 459 Height = 369
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -491,7 +499,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Left = 0 Left = 0
Top = 117 Top = 117
Width = 1362 Width = 1362
Height = 459 Height = 369
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object cxGridDBTableView1: TcxGridDBTableView object cxGridDBTableView1: TcxGridDBTableView

14
应收应付/U_SXCKNewList.dfm
View File

@ -1,8 +1,8 @@
object frmSXCKNewList: TfrmSXCKNewList object frmSXCKNewList: TfrmSXCKNewList
Left = 122 Left = 301
Top = 178 Top = 582
Width = 1289 Width = 1289
Height = 593 Height = 541
Caption = #32433#32447#20449#24687#21015#34920 Caption = #32433#32447#20449#24687#21015#34920
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -237,7 +237,7 @@ object frmSXCKNewList: TfrmSXCKNewList
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1273 Width = 1273
Height = 433 Height = 381
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -291,7 +291,7 @@ object frmSXCKNewList: TfrmSXCKNewList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 80 Width = 87
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20986#20837#24211#21333#21495 Caption = #20986#20837#24211#21333#21495
@ -300,7 +300,7 @@ object frmSXCKNewList: TfrmSXCKNewList
Options.Editing = False Options.Editing = False
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 83 Width = 105
end end
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Tag = 2 Tag = 2
@ -484,7 +484,7 @@ object frmSXCKNewList: TfrmSXCKNewList
Options.Editing = False Options.Editing = False
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 66 Width = 118
end end
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #36816#36153 Caption = #36816#36153

7
应收应付/U_SXCKNewList.pas
View File

@ -301,12 +301,15 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select money=price*Qty,A.* '); sql.Add(' select ');
sql.Add(' case when A.CRType = ''退货'' then -price*A.Qty else price*A.Qty end as money, ');
sql.Add(' case when A.CRType = ''退货'' then -A.Qty else A.Qty end as Qty, ');
sql.Add(' A.* ');
sql.Add(' from CK_Yarn_CR A'); sql.Add(' from CK_Yarn_CR A');
sql.add(' where A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.add(' where A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
Sql.Add(' and CWFlag=0 and CKName=' + quotedstr(trim(FCKName))); Sql.Add(' and CWFlag=0 and CKName=' + quotedstr(trim(FCKName)));
sql.Add(' and CRType in(''采购入库'',''期初入库'',''加工完成'',''加工未做回仓'',''织造未做回仓'' )'); sql.Add(' and CRType in(''采购入库'',''期初入库'',''加工完成'',''加工未做回仓'',''织造未做回仓'',''退货'' )');
if cxTabControl1.TabIndex = 0 then if cxTabControl1.TabIndex = 0 then
SQL.Add(' and not exists(select YFPZNO from YF_Money_CR_Sub X where X.YFPZNO=A.Y_ID ) ') SQL.Add(' and not exists(select YFPZNO from YF_Money_CR_Sub X where X.YFPZNO=A.Y_ID ) ')

12
应收应付/U_XXFPHXList.dfm
View File

@ -1,6 +1,6 @@
object frmXXFPHXList: TfrmXXFPHXList object frmXXFPHXList: TfrmXXFPHXList
Left = 285 Left = 335
Top = 179 Top = 181
Width = 976 Width = 976
Height = 649 Height = 649
Caption = #26680#38144#20449#24687#26597#35810 Caption = #26680#38144#20449#24687#26597#35810
@ -192,13 +192,13 @@ object frmXXFPHXList: TfrmXXFPHXList
Left = 0 Left = 0
Top = 88 Top = 88
Width = 960 Width = 960
Height = 523 Height = 522
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
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_HZ DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>

17
应收应付/U_XXFPHXList.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, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit; cxButtonEdit, 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
TfrmXXFPHXList = class(TForm) TfrmXXFPHXList = class(TForm)

136
应收应付/U_XXPRICE.dfm Normal file
View File

@ -0,0 +1,136 @@
object frmXXPRICE: TfrmXXPRICE
Left = 544
Top = 235
Width = 242
Height = 135
Caption = #21333#20215#20462#25913
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 226
Height = 31
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_YSYF.ThreeImgList
Flat = True
Images = DataLink_YSYF.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
Caption = #30830#23450
ImageIndex = 54
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 59
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 31
Width = 226
Height = 65
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label4: TLabel
Left = 16
Top = 21
Width = 42
Height = 12
Caption = #21333' '#20215
end
object price: TEdit
Tag = 2
Left = 68
Top = 17
Width = 89
Height = 20
TabOrder = 0
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YSYF.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 789
Top = 9
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YSYF.ADOLink
Parameters = <>
Left = 829
Top = 1
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 424
Top = 208
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
Left = 384
Top = 208
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 520
Top = 264
end
object DS_HZ: TDataSource
DataSet = CDS_HZ
Left = 443
Top = 267
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 496
Top = 208
end
object ADOQueryMain: TADOQuery
Connection = DataLink_YSYF.ADOLink
Parameters = <>
Left = 340
Top = 208
end
end

177
应收应付/U_XXPRICE.pas Normal file
View File

@ -0,0 +1,177 @@
unit U_XXPRICE;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
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
TfrmXXPRICE = class(TForm)
ToolBar1: TToolBar;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
Label4: TLabel;
price: TEdit;
ADOQueryMain: TADOQuery;
TBClose: TToolButton;
ToolButton3: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
RKFlag, FCYID, FFFID: string;
FFromNo, FTONO: string;
end;
var
frmXXPRICE: TfrmXXPRICE;
implementation
uses
U_DataLink, U_Fun10, U_ZDYHelp;
{$R *.dfm}
procedure TfrmXXPRICE.FormDestroy(Sender: TObject);
begin
frmXXPRICE := nil;
end;
procedure TfrmXXPRICE.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmXXPRICE.TBCloseClick(Sender: TObject);
begin
Close;
end;
//procedure TfrmXXPRICE.ToolButton3Click(Sender: TObject);
//begin
// if StrToFloatDef(Price.Text, 0) = 0 then
// Price.Text := '0';
// try
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add(' update YF_Money_CR_Sub ');
// sql.Add(' set Price = ' + Price.Text);
// // 使用IN子句批量更新
// sql.Add(' where YF_Money_CR_Sub.yfsid in (' + FFFID + ')');
//
//
// ExecSQL;
// end;
// ModalResult := 1;
// except
// application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// end;
//end;
procedure TfrmXXPRICE.ToolButton3Click(Sender: TObject);
var
IDList: TStringList;
i: Integer;
QuotedIDs: string;
begin
// 如果价格输入为空或无效，设为0
if StrToFloatDef(Price.Text, 0) = 0 then
Price.Text := '0';
// 检查是否有选中的ID
if Trim(FFFID) = '' then
begin
Application.MessageBox('没有选择要更新的记录！', '提示信息', 0);
Exit;
end;
try
// 给每个ID添加引号
IDList := TStringList.Create;
try
IDList.CommaText := FFFID; // 将逗号分隔的字符串分解
QuotedIDs := '';
for i := 0 to IDList.Count - 1 do
begin
if QuotedIDs = '' then
QuotedIDs := QuotedStr(IDList[i])
else
QuotedIDs := QuotedIDs + ',' + QuotedStr(IDList[i]);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' update YF_Money_CR_Sub ');
sql.Add(' set Price = ' + Price.Text);
// 使用添加了引号的ID列表
sql.Add(' where YF_Money_CR_Sub.yfsid in (' + QuotedIDs + ')');
ExecSQL;
end;
finally
IDList.Free;
end;
// 更新成功，返回1（成功标志）
ModalResult := 1;
except
on E: Exception do
Application.MessageBox(PChar(E.Message), '提示信息', 0);
end;
end;
end.
//with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add(' update YF_Money_CR_Sub ');
// sql.Add(' set Price = ' + Price.Text);
// sql.Add(' where exists(select 1 from YF_Money_CR ');
// sql.Add(' where YF_Money_CR.yfid = YF_Money_CR_Sub.yfid ');
// sql.Add(' and YF_Money_CR.yfid in (select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFID) + ','','') X)) ');
//// showmessage(sql.text);
// ExecSQL;
// end;

11
应收应付/U_YFCR.dfm
View File

@ -1,8 +1,8 @@
object frmYFCR: TfrmYFCR object frmYFCR: TfrmYFCR
Left = 198 Left = 292
Top = 112 Top = 611
Width = 1181 Width = 1181
Height = 661 Height = 703
Caption = #24212#20184#27454#31649#29702 Caption = #24212#20184#27454#31649#29702
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -236,7 +236,7 @@ object frmYFCR: TfrmYFCR
Left = 0 Left = 0
Top = 118 Top = 118
Width = 1165 Width = 1165
Height = 267 Height = 309
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -436,7 +436,7 @@ object frmYFCR: TfrmYFCR
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 385 Top = 427
Width = 1165 Width = 1165
Height = 237 Height = 237
Align = alBottom Align = alBottom
@ -466,6 +466,7 @@ object frmYFCR: TfrmYFCR
end end
item item
Kind = skSum Kind = skSum
Column = v1Column5
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False

39
应收应付/U_YFCRMXList.dfm
View File

@ -1,6 +1,6 @@
object frmYFCRMXList: TfrmYFCRMXList object frmYFCRMXList: TfrmYFCRMXList
Left = 273 Left = 365
Top = 107 Top = 143
Width = 1018 Width = 1018
Height = 688 Height = 688
Caption = #24212#20184#27454#26126#32454#26597#35810 Caption = #24212#20184#27454#26126#32454#26597#35810
@ -22,7 +22,7 @@ object frmYFCRMXList: TfrmYFCRMXList
Width = 1002 Width = 1002
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 83
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_YSYF.ThreeImgList DisabledImages = DataLink_YSYF.ThreeImgList
@ -56,9 +56,16 @@ object frmYFCRMXList: TfrmYFCRMXList
ImageIndex = 53 ImageIndex = 53
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object ToolButton3: TToolButton
Left = 189 Left = 189
Top = 0 Top = 0
Caption = #21333#20215#20462#25913
ImageIndex = 54
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 272
Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -208,6 +215,18 @@ object frmYFCRMXList: TfrmYFCRMXList
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = v1Price
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column5
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -217,6 +236,12 @@ object frmYFCRMXList: TfrmYFCRMXList
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True OptionsView.Indicator = True
Styles.Header = DataLink_YSYF.FonePurple Styles.Header = DataLink_YSYF.FonePurple
object Tv1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
HeaderAlignmentHorz = taCenter
Width = 88
end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #26085#26399 Caption = #26085#26399
DataBinding.FieldName = 'CRTime' DataBinding.FieldName = 'CRTime'
@ -393,6 +418,12 @@ object frmYFCRMXList: TfrmYFCRMXList
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 66 Width = 66
end end
object Tv1Column3: TcxGridDBColumn
Caption = #20986#21040#21152#24037#21378'/'#23458#25143
DataBinding.FieldName = 'ToFactoryName'
HeaderAlignmentHorz = taCenter
Width = 156
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #24635#22791#27880 Caption = #24635#22791#27880
DataBinding.FieldName = 'note' DataBinding.FieldName = 'note'

188
应收应付/U_YFCRMXList.pas
View File

@ -85,6 +85,9 @@ type
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
ToolButton3: TToolButton;
Tv1Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -100,6 +103,7 @@ type
procedure YFGSTypeChange(Sender: TObject); procedure YFGSTypeChange(Sender: TObject);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure chk1Click(Sender: TObject); procedure chk1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
@ -110,6 +114,7 @@ type
{ Public declarations } { Public declarations }
FCYID: string; FCYID: string;
fmanage: string; fmanage: string;
FFFID: string;
end; end;
var var
@ -119,7 +124,7 @@ implementation
uses uses
U_DataLink, U_Fun, U_SXCKNewList, U_YSSCList, U_YsScXsList, U_YSKInput, U_DataLink, U_Fun, U_SXCKNewList, U_YSSCList, U_YsScXsList, U_YSKInput,
U_XXFPHXList; U_XXFPHXList, U_XXPRICE;
{$R *.dfm} {$R *.dfm}
procedure TfrmYFCRMXList.SetStatus(); procedure TfrmYFCRMXList.SetStatus();
@ -316,5 +321,186 @@ begin
InitGrid(); InitGrid();
end; end;
//procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
//var
// i: Integer;
// SelectedIDs: string;
// Bookmark: TBookmarkStr;
//begin
// SelectedIDs := '';
// with SELF.CDS_YFS do
// begin
// DisableControls;
// try
// Bookmark := Bookmark;
//
// First;
// while not Eof do
// begin
// // 判断是否选中（假设选择列字段名为'ssel'）
// if FieldByName('ssel').AsBoolean then
// begin
// if SelectedIDs = '' then
// SelectedIDs := FieldByName('yfsid').AsString
// else
// SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
// end;
// Next;
// end;
//
// // 恢复原记录位置
// if Bookmark <> '' then
// GotoBookmark(Pointer(Bookmark));
// finally
// EnableControls;
// end;
// end;
//
// // 如果没有选中任何记录，提示用户
// if SelectedIDs = '' then
// begin
// Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
// Exit;
// end;
//
// // 打开价格修改窗体
// try
// frmXXPRICE := TfrmXXPRICE.Create(Application);
// with frmXXPRICE do
// begin
// // 传递选中的多个ID（用逗号分隔）
// FFFID := SelectedIDs;
// // 显示模态窗体，等待用户操作
// if ShowModal = 1 then
// begin
// // 如果返回1，刷新主窗体数据
// InitGrid();
// end;
// end;
// finally
// frmXXPRICE.Free;
// end;
//end;
procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
var
SelectedIDs: string;
Bookmark: TBookmarkStr;
begin
SelectedIDs := '';
with SELF.CDS_YFS do
begin
DisableControls;
try
Bookmark := Bookmark;
First;
while not Eof do
begin
if FieldByName('ssel').AsBoolean then
begin
if SelectedIDs = '' then
SelectedIDs := FieldByName('yfsid').AsString
else
SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
end;
Next;
end;
finally
if Bookmark <> '' then
GotoBookmark(Pointer(Bookmark));
EnableControls;
end;
end;
if SelectedIDs = '' then
begin
Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
Exit;
end;
try
frmXXPRICE := TfrmXXPRICE.Create(Application);
with frmXXPRICE do
begin
FFFID := SelectedIDs;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmXXPRICE.Free;
end;
end;
end. end.
//procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
//var
// SelectedIDs: string;
// Bookmark: TBookmarkStr;
//begin
// SelectedIDs := '';
//
// with SELF.CDS_YFS do
// begin
// DisableControls;
// try
// Bookmark := Bookmark;
//
// First;
// while not Eof do
// begin
// if FieldByName('ssel').AsBoolean then
// begin
// if SelectedIDs = '' then
// SelectedIDs := FieldByName('yfsid').AsString
// else
// SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
// end;
// Next;
// end;
// finally
// if Bookmark <> '' then
// GotoBookmark(Pointer(Bookmark));
// EnableControls;
// end;
// end;
// if SelectedIDs = '' then
// begin
// Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
// Exit;
// end;
// try
// frmXXPRICE := TfrmXXPRICE.Create(Application);
// with frmXXPRICE do
// begin
// FFFID := SelectedIDs;
// if ShowModal = 1 then
// begin
// InitGrid();
// end;
// end;
// finally
// frmXXPRICE.Free;
// end;
//end;

17
应收应付/U_YFFKList.dfm
View File

@ -1,8 +1,8 @@
object frmYFFKList: TfrmYFFKList object frmYFFKList: TfrmYFFKList
Left = 281 Left = 346
Top = 123 Top = 322
Width = 1134 Width = 1134
Height = 618 Height = 569
Caption = #24212#20184#27454#20184#27454#32479#35745 Caption = #24212#20184#27454#20184#27454#32479#35745
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -162,7 +162,7 @@ object frmYFFKList: TfrmYFFKList
Left = 0 Left = 0
Top = 92 Top = 92
Width = 1118 Width = 1118
Height = 487 Height = 438
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -194,6 +194,11 @@ object frmYFFKList: TfrmYFFKList
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column2
end
item
Kind = skSum
Column = Tv2Column3
end end
item item
Kind = skSum Kind = skSum
@ -206,9 +211,7 @@ object frmYFFKList: TfrmYFFKList
end end
item item
Kind = skSum Kind = skSum
end Column = Tv2Column3
item
Kind = skSum
end end
item item
Kind = skSum Kind = skSum

10
应收应付/U_YFKInput.dfm
View File

@ -1,6 +1,6 @@
object frmYFKInput: TfrmYFKInput object frmYFKInput: TfrmYFKInput
Left = 424 Left = 237
Top = 208 Top = 189
Width = 993 Width = 993
Height = 569 Height = 569
Caption = #20449#24687#24405#20837 Caption = #20449#24687#24405#20837
@ -572,6 +572,12 @@ object frmYFKInput: TfrmYFKInput
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 81 Width = 81
end end
object Tv1Column2: TcxGridDBColumn
Caption = #20986#21040#21152#24037#21378'/'#23458#25143
DataBinding.FieldName = 'ToFactoryName'
HeaderAlignmentHorz = taCenter
Width = 124
end
object v1note: TcxGridDBColumn object v1note: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'MxNote' DataBinding.FieldName = 'MxNote'

13
应收应付/U_YFKInput.pas
View File

@ -87,6 +87,7 @@ type
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Tv1Column2: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject); procedure TSaveClick(Sender: TObject);
@ -606,9 +607,10 @@ begin
self.YFSub.FieldByName('CPSpec').Value := CDS_Main.FieldByName('Y_Spec').Value; self.YFSub.FieldByName('CPSpec').Value := CDS_Main.FieldByName('Y_Spec').Value;
self.YFSub.FieldByName('CPBatchNO').Value := CDS_Main.FieldByName('BatchNO').Value; self.YFSub.FieldByName('CPBatchNO').Value := CDS_Main.FieldByName('BatchNO').Value;
self.YFSub.FieldByName('danbao').Value := CDS_Main.FieldByName('danbao').Value; self.YFSub.FieldByName('danbao').Value := CDS_Main.FieldByName('danbao').Value;
self.YFSub.FieldByName('MXNote').Value := CDS_Main.FieldByName('Note').Value;
if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ÍË»õ' then if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ÍË»õ' then
begin begin
CQtyFlag := -1; CQtyFlag := 1;
CKXType := 'É´ÏßÍË»õ'; CKXType := 'É´ÏßÍË»õ';
end end
else if Trim(CDS_Main.fieldbyname('CRType').AsString) = '²É¹ºÈë¿â' then else if Trim(CDS_Main.fieldbyname('CRType').AsString) = '²É¹ºÈë¿â' then
@ -622,8 +624,10 @@ begin
CKXType := 'É´Ïß¼Ó¹¤'; CKXType := 'É´Ïß¼Ó¹¤';
end; end;
self.YFSub.FieldByName('KXType').Value := CKXType; self.YFSub.FieldByName('KXType').Value := CKXType;
self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger; // self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger;
self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat; // self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat;
self.YFSub.FieldByName('PS').Value := CDS_Main.FieldByName('PiQty').AsInteger;
self.YFSub.FieldByName('Qty').Value := CDS_Main.FieldByName('Qty').AsFloat;
self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value; self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value;
self.YFSub.FieldByName('Price').Value := CDS_Main.FieldByName('Price').AsFloat; self.YFSub.FieldByName('Price').Value := CDS_Main.FieldByName('Price').AsFloat;
self.YFSub.FieldByName('MxMoney').Value := CDS_Main.FieldByName('money').AsFloat; self.YFSub.FieldByName('MxMoney').Value := CDS_Main.FieldByName('money').AsFloat;
@ -864,6 +868,9 @@ begin
self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger; self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger;
self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat; self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat;
self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value; self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value;
self.YFSub.FieldByName('ToFactoryName').Value := CDS_Main.FieldByName('ToFactoryName').Value;
self.YFSub.FieldByName('Price').Value := 0; self.YFSub.FieldByName('Price').Value := 0;
self.YFSub.FieldByName('MxMoney').Value := 0; self.YFSub.FieldByName('MxMoney').Value := 0;
self.YFSub.FieldByName('discount').Value := 1; self.YFSub.FieldByName('discount').Value := 1;

48
应收应付/U_YFMXlist.dfm
View File

@ -1,6 +1,6 @@
object frmYFMXlist: TfrmYFMXlist object frmYFMXlist: TfrmYFMXlist
Left = 221 Left = 411
Top = 115 Top = 523
Width = 1205 Width = 1205
Height = 614 Height = 614
Caption = #24212#20184#23545#36134#20449#24687#34920 Caption = #24212#20184#23545#36134#20449#24687#34920
@ -225,6 +225,40 @@ object frmYFMXlist: TfrmYFMXlist
item item
Kind = skSum Kind = skSum
Column = V1Column13 Column = V1Column13
end
item
Kind = skSum
Column = V1Column16
end
item
Kind = skSum
Column = V1Column8
end
item
Kind = skSum
Column = V1Column9
end
item
Kind = skSum
Column = V1Column12
end
item
Kind = skSum
Column = V1Column12
end
item
Kind = skSum
Column = TV1Column4
end
item
Kind = skSum
Column = TV1Column5
end
item
Kind = skSum
Column = V1Column15
end
item
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -237,7 +271,7 @@ object frmYFMXlist: TfrmYFMXlist
Bands = < Bands = <
item item
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 683 Width = 741
end end
item item
Caption = #24212#20184 Caption = #24212#20184
@ -557,6 +591,14 @@ object frmYFMXlist: TfrmYFMXlist
Position.ColIndex = 1 Position.ColIndex = 1
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column6: TcxGridDBBandedColumn
Caption = #20986#21040#21152#24037#21378'/.'#23458#25143
DataBinding.FieldName = 'ToFactoryName'
HeaderAlignmentHorz = taCenter
Position.BandIndex = 0
Position.ColIndex = 12
Position.RowIndex = 0
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV1 GridView = TV1

3
应收应付/U_YFMXlist.pas
View File

@ -89,6 +89,7 @@ type
TV1Column4: TcxGridDBBandedColumn; TV1Column4: TcxGridDBBandedColumn;
TV1Column5: TcxGridDBBandedColumn; TV1Column5: TcxGridDBBandedColumn;
TV1Column3: TcxGridDBBandedColumn; TV1Column3: TcxGridDBBandedColumn;
TV1Column6: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -168,7 +169,7 @@ begin
sql.Add(',@flag=''È«²¿'' '); sql.Add(',@flag=''È«²¿'' ');
end; end;
end; end;
// ShowMessage(sql.text); // ShowMessage(sql.text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);

16
应收应付/U_YFZZCR.dfm
View File

@ -1,6 +1,6 @@
object frmYFZZCR: TfrmYFZZCR object frmYFZZCR: TfrmYFZZCR
Left = 198 Left = 279
Top = 112 Top = 458
Width = 1181 Width = 1181
Height = 661 Height = 661
Caption = #32455#36896#24212#20184#27454#31649#29702 Caption = #32455#36896#24212#20184#27454#31649#29702
@ -221,7 +221,7 @@ object frmYFZZCR: TfrmYFZZCR
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 3
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#23457#26680 #26410#23457#26680
#24050#23457#26680 #24050#23457#26680
@ -326,7 +326,7 @@ object frmYFZZCR: TfrmYFZZCR
Options.Editing = False Options.Editing = False
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 77 Width = 81
end end
object VYB: TcxGridDBColumn object VYB: TcxGridDBColumn
Caption = #21407#24065#37329#39069 Caption = #21407#24065#37329#39069
@ -335,7 +335,7 @@ object frmYFZZCR: TfrmYFZZCR
Options.Editing = False Options.Editing = False
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 70 Width = 100
end end
object VBZ: TcxGridDBColumn object VBZ: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
@ -598,6 +598,12 @@ object frmYFZZCR: TfrmYFZZCR
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 145 Width = 145
end end
object Tv1Column2: TcxGridDBColumn
Caption = #20986#21040#24037#21378'/'#23458#25143
DataBinding.FieldName = 'ToFactoryName'
HeaderAlignmentHorz = taCenter
Width = 131
end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #24050#26680#38144#24320#31080#37329#39069 Caption = #24050#26680#38144#24320#31080#37329#39069
DataBinding.FieldName = 'FPHX' DataBinding.FieldName = 'FPHX'

1
应收应付/U_YFZZCR.pas
View File

@ -107,6 +107,7 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

6
应收应付/U_YSCR.dfm
View File

@ -1,6 +1,6 @@
object frmYSCR: TfrmYSCR object frmYSCR: TfrmYSCR
Left = 251 Left = 270
Top = 94 Top = 581
Width = 1249 Width = 1249
Height = 688 Height = 688
Caption = #24212#25910#27454#31649#29702 Caption = #24212#25910#27454#31649#29702
@ -244,9 +244,11 @@ object frmYSCR: TfrmYSCR
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column2
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column1
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False

2
应收应付/U_YSCR.pas
View File

@ -131,7 +131,7 @@ type
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
public public
{ Public declarations } { Public declarations }

16
应收应付/U_YSCRMXList.dfm
View File

@ -1,6 +1,6 @@
object frmYSCRMXList: TfrmYSCRMXList object frmYSCRMXList: TfrmYSCRMXList
Left = 273 Left = 244
Top = 107 Top = 413
Width = 1018 Width = 1018
Height = 688 Height = 688
Caption = #24212#25910#27454#26126#32454#26597#35810 Caption = #24212#25910#27454#26126#32454#26597#35810
@ -19,7 +19,7 @@ object frmYSCRMXList: TfrmYSCRMXList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1010 Width = 1002
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -68,7 +68,7 @@ object frmYSCRMXList: TfrmYSCRMXList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1010 Width = 1002
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -160,7 +160,7 @@ object frmYSCRMXList: TfrmYSCRMXList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1010 Width = 1002
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -173,14 +173,14 @@ object frmYSCRMXList: TfrmYSCRMXList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1010 ClientRectRight = 1002
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 115 Top = 115
Width = 1010 Width = 1002
Height = 542 Height = 534
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

15
应收应付/U_YSCRMXList.pas
View File

@ -14,7 +14,20 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters,
dxBarBuiltInMenu, cxNavigator, DateUtils, dxSkinsCore, dxBarBuiltInMenu, cxNavigator, DateUtils, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter; dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmYSCRMXList = class(TForm) TfrmYSCRMXList = class(TForm)

53
应收应付/U_YSMXlist.dfm
View File

@ -1,8 +1,8 @@
object frmYSMXlist: TfrmYSMXlist object frmYSMXlist: TfrmYSMXlist
Left = 423 Left = 403
Top = 608 Top = 443
Width = 1205 Width = 1205
Height = 614 Height = 613
Caption = #24212#25910#23545#36134#20449#24687#34920 Caption = #24212#25910#23545#36134#20449#24687#34920
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -22,7 +22,7 @@ object frmYSMXlist: TfrmYSMXlist
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1197 Width = 1189
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -80,7 +80,7 @@ object frmYSMXlist: TfrmYSMXlist
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1197 Width = 1189
Height = 38 Height = 38
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -222,8 +222,8 @@ object frmYSMXlist: TfrmYSMXlist
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 91 Top = 91
Width = 1197 Width = 1189
Height = 492 Height = 483
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
@ -241,9 +241,7 @@ object frmYSMXlist: TfrmYSMXlist
end end
item item
Kind = skSum Kind = skSum
end Column = TV1Column1
item
Kind = skSum
end end
item item
Kind = skSum Kind = skSum
@ -256,6 +254,35 @@ object frmYSMXlist: TfrmYSMXlist
item item
Kind = skSum Kind = skSum
Column = V1Column18 Column = V1Column18
end
item
Kind = skSum
Column = V1Column8
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
end
item
end
item
end
item
Kind = skSum
Column = V1Column12
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -391,7 +418,7 @@ object frmYSMXlist: TfrmYSMXlist
end end
object V1Column12: TcxGridDBBandedColumn object V1Column12: TcxGridDBBandedColumn
Caption = #24635#37329#39069 Caption = #24635#37329#39069
DataBinding.FieldName = 'money' DataBinding.FieldName = 'Money'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00' Properties.DisplayFormat = '0.00'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -643,7 +670,7 @@ object frmYSMXlist: TfrmYSMXlist
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 69 Top = 69
Width = 1197 Width = 1189
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -655,7 +682,7 @@ object frmYSMXlist: TfrmYSMXlist
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1197 ClientRectRight = 1189
ClientRectTop = 19 ClientRectTop = 19
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery

18
应收应付/U_YSSKList.dfm
View File

@ -1,7 +1,7 @@
object frmYSSKList: TfrmYSSKList object frmYSSKList: TfrmYSSKList
Left = 258 Left = 423
Top = 152 Top = 547
Width = 1196 Width = 1440
Height = 618 Height = 618
Caption = #24212#25910#24050#25910#27719#24635 Caption = #24212#25910#24050#25910#27719#24635
Color = clBtnFace Color = clBtnFace
@ -20,7 +20,7 @@ object frmYSSKList: TfrmYSSKList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1188 Width = 1432
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -85,7 +85,7 @@ object frmYSSKList: TfrmYSSKList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1188 Width = 1432
Height = 74 Height = 74
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -198,7 +198,7 @@ object frmYSSKList: TfrmYSSKList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1188 Width = 1432
Height = 460 Height = 460
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
@ -258,6 +258,7 @@ object frmYSSKList: TfrmYSSKList
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column6
end end
item item
Kind = skSum Kind = skSum
@ -282,6 +283,7 @@ object frmYSSKList: TfrmYSSKList
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column2
end end
item item
Kind = skSum Kind = skSum
@ -414,7 +416,7 @@ object frmYSSKList: TfrmYSSKList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1188 Width = 1432
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -426,7 +428,7 @@ object frmYSSKList: TfrmYSSKList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1188 ClientRectRight = 1432
ClientRectTop = 19 ClientRectTop = 19
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery

15
应收应付/U_YSSKList.pas
View File

@ -14,7 +14,20 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, Clipbrd, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, Clipbrd, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, DateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxBarBuiltInMenu, DateUtils, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter; dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmYSSKList = class(TForm) TfrmYSSKList = class(TForm)

15
应收应付/U_ZdyAttachGYS.pas
View File

@ -13,7 +13,20 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator; 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
TfrmZdyAttachGYS = class(TForm) TfrmZdyAttachGYS = class(TForm)

6
应收应付/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 153 Left = 575
Top = 124 Top = 541
Width = 791 Width = 791
Height = 554 Height = 554
Caption = 'Form1' Caption = 'Form1'
@ -21,7 +21,7 @@ object Form1: TForm1
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 775 Width = 783
Height = 25 Height = 25
ButtonWidth = 57 ButtonWidth = 57
Caption = 'ToolBar1' Caption = 'ToolBar1'

2
应收应付/YSYF.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\淃커덜쯤\D7szChenfeng\壇澗壇마\testDll.exe HostApplication=D:\Dp7Repo\淃커덜쯤\D7szChenfeng\壇澗壇마\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

3
应收应付/YSYF.dpr
View File

@ -46,7 +46,8 @@ uses
U_FjList10 in '..\Z99Dependency\ThreeFun\Form\U_FjList10.pas' {frmFjList10}, U_FjList10 in '..\Z99Dependency\ThreeFun\Form\U_FjList10.pas' {frmFjList10},
U_CompressionFun in '..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas', U_CompressionFun in '..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas',
U_RTFun in '..\Z99Dependency\ThreeFun\Fun\U_RTFun.pas', U_RTFun in '..\Z99Dependency\ThreeFun\Fun\U_RTFun.pas',
U_YFFKInput in 'U_YFFKInput.pas' {frmYFFKInput}; U_YFFKInput in 'U_YFFKInput.pas' {frmYFFKInput},
U_XXPRICE in 'U_XXPRICE.pas' {frmXXPRICE};
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas', // U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField}, // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},

14
成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm
View File

@ -1,6 +1,6 @@
object frmCPCKMdList: TfrmCPCKMdList object frmCPCKMdList: TfrmCPCKMdList
Left = 253 Left = 373
Top = 323 Top = 237
Width = 1128 Width = 1128
Height = 516 Height = 516
Caption = #30721#21333#25171#21360 Caption = #30721#21333#25171#21360
@ -20,7 +20,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1120 Width = 1112
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -128,7 +128,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1120 Width = 1112
Height = 93 Height = 93
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -338,8 +338,8 @@ object frmCPCKMdList: TfrmCPCKMdList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 147 Top = 147
Width = 1120 Width = 1112
Height = 338 Height = 330
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -731,7 +731,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 125 Top = 125
Width = 1120 Width = 1112
Height = 22 Height = 22
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET

8
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQInPut.dfm
View File

@ -1,8 +1,8 @@
object frmPBFHSQInPut: TfrmPBFHSQInPut object frmPBFHSQInPut: TfrmPBFHSQInPut
Left = 192 Left = 524
Top = 232 Top = 378
Width = 1075 Width = 1075
Height = 664 Height = 665
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -390,7 +390,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
Left = 0 Left = 0
Top = 162 Top = 162
Width = 1067 Width = 1067
Height = 471 Height = 472
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

17868
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQList.dfm
View File

File diff suppressed because it is too large Load Diff

3
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQList.pas
View File

@ -26,7 +26,7 @@ uses
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue; dxSkinXmas2008Blue, ImgList;
type type
TfrmCPFHSQList = class(TForm) TfrmCPFHSQList = class(TForm)
@ -120,6 +120,7 @@ type
cktype: TComboBox; cktype: TComboBox;
Label6: TLabel; Label6: TLabel;
Tv2Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn;
ThreeImgList: TImageList;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);

10
成品仓库(FinishedClothWarehouse.dll)/U_CPSQSMCK.dfm
View File

@ -1,8 +1,8 @@
object frmCPSQSMCK: TfrmCPSQSMCK object frmCPSQSMCK: TfrmCPSQSMCK
Left = 363 Left = 210
Top = 45 Top = 0
Width = 1109 Width = 1109
Height = 795 Height = 685
Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')' Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')'
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -20,7 +20,7 @@ object frmCPSQSMCK: TfrmCPSQSMCK
Left = 513 Left = 513
Top = 0 Top = 0
Width = 580 Width = 580
Height = 756 Height = 646
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -75,7 +75,7 @@ object frmCPSQSMCK: TfrmCPSQSMCK
Left = 0 Left = 0
Top = 0 Top = 0
Width = 513 Width = 513
Height = 756 Height = 646
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered

4
成品仓库(FinishedClothWarehouse.dll)/U_DataLink.dfm
View File

@ -1,8 +1,8 @@
object DataLink_FinishedClothWarehouse: TDataLink_FinishedClothWarehouse object DataLink_FinishedClothWarehouse: TDataLink_FinishedClothWarehouse
OldCreateOrder = False OldCreateOrder = False
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Left = 459 Left = 460
Top = 278 Top = 280
Height = 349 Height = 349
Width = 482 Width = 482
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery

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

@ -1,6 +1,6 @@
object frmFinishedClothInList: TfrmFinishedClothInList object frmFinishedClothInList: TfrmFinishedClothInList
Left = 119 Left = 105
Top = 159 Top = 65
Width = 1249 Width = 1249
Height = 765 Height = 765
Caption = #25104#21697#20837#24211#31649#29702 Caption = #25104#21697#20837#24211#31649#29702
@ -536,10 +536,10 @@ object frmFinishedClothInList: TfrmFinishedClothInList
Width = 73 Width = 73
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #25209#21495 Caption = #32463#36724#25209#21495
DataBinding.FieldName = 'edZDFNo' DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 83 Width = 92
end end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
@ -716,7 +716,7 @@ object frmFinishedClothInList: TfrmFinishedClothInList
TabOrder = 0 TabOrder = 0
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 3 Properties.Style = 3
Properties.TabIndex = 0 Properties.TabIndex = 1
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#35746#21333#27719#24635 #35746#21333#27719#24635
#26126#32454#25968#25454) #26126#32454#25968#25454)

21
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInspection.dfm
View File

@ -1,8 +1,8 @@
object frmFinishedClothInspection: TfrmFinishedClothInspection object frmFinishedClothInspection: TfrmFinishedClothInspection
Left = 54 Left = 179
Top = 187 Top = 106
Width = 1357 Width = 1357
Height = 721 Height = 723
Caption = #25104#21697#26816#39564#25253#21578 Caption = #25104#21697#26816#39564#25253#21578
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -83,7 +83,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 351 Left = 351
Top = 1 Top = 0
Width = 98 Width = 98
Height = 27 Height = 27
Style = csDropDownList Style = csDropDownList
@ -429,7 +429,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
Left = 0 Left = 0
Top = 115 Top = 115
Width = 1341 Width = 1341
Height = 567 Height = 569
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -548,7 +548,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
Width = 100 Width = 100
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #25209#21495 Caption = #32463#36724#25209#21495
DataBinding.FieldName = 'edZDFNo' DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 84 Width = 84
@ -588,6 +588,12 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
end end
object Tv1Column14: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #24635#31859#25968 Caption = #24635#31859#25968
DataBinding.FieldName = 'JYLen' DataBinding.FieldName = 'JYLen'
@ -625,7 +631,8 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo' DataBinding.FieldName = 'BatchNo'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end

1
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInspection.pas
View File

@ -135,6 +135,7 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

4
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCHZList.dfm
View File

@ -1,6 +1,6 @@
object frmFinishedClothKCHZList: TfrmFinishedClothKCHZList object frmFinishedClothKCHZList: TfrmFinishedClothKCHZList
Left = 263 Left = 469
Top = 140 Top = 619
Width = 1247 Width = 1247
Height = 531 Height = 531
Caption = #22383#24067#24211#23384#31649#29702#34920 Caption = #22383#24067#24211#23384#31649#29702#34920

15
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCHZList.pas
View File

@ -11,7 +11,20 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, MovePanel, Menus, cxCheckBox, Clipbrd, cxPC, Math, cxDropDownEdit, MovePanel, Menus, cxCheckBox, Clipbrd, cxPC, Math,
cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmFinishedClothKCHZList = class(TForm) TfrmFinishedClothKCHZList = class(TForm)

43
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCList.dfm
View File

@ -1,7 +1,7 @@
object frmFinishedClothKCList: TfrmFinishedClothKCList object frmFinishedClothKCList: TfrmFinishedClothKCList
Left = -6 Left = 508
Top = 33 Top = 419
Width = 1247 Width = 1086
Height = 531 Height = 531
Caption = #25104#21697#24211#23384#21015#34920 Caption = #25104#21697#24211#23384#21015#34920
Color = clBtnFace Color = clBtnFace
@ -18,7 +18,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1231 Width = 1078
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -98,7 +98,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1231 Width = 1078
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -283,7 +283,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1231 Width = 1078
Height = 30 Height = 30
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -311,7 +311,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
TabOrder = 0 TabOrder = 0
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 3 Properties.Style = 3
Properties.TabIndex = 0 Properties.TabIndex = 1
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#35746#21333#27719#24635 #35746#21333#27719#24635
#26126#32454#25968#25454) #26126#32454#25968#25454)
@ -324,7 +324,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object Panel6: TPanel object Panel6: TPanel
Left = 205 Left = 205
Top = 0 Top = 0
Width = 1026 Width = 873
Height = 30 Height = 30
Align = alClient Align = alClient
AutoSize = True AutoSize = True
@ -332,7 +332,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 1 TabOrder = 1
DesignSize = ( DesignSize = (
1022 869
26) 26)
object Label1: TLabel object Label1: TLabel
Left = 64 Left = 64
@ -424,8 +424,8 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 125 Top = 125
Width = 1231 Width = 1078
Height = 367 Height = 375
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
@ -571,11 +571,11 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #25209#21495 Caption = #32463#36724#25209#21495
DataBinding.FieldName = 'edZDFNo' DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 74 Width = 96
end end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
@ -652,13 +652,6 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
Options.Editing = False Options.Editing = False
Width = 55 Width = 55
end end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #26465#30721 Caption = #26465#30721
DataBinding.FieldName = 'JYID' DataBinding.FieldName = 'JYID'
@ -718,12 +711,6 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object Tv1Column5: TcxGridDBColumn
Caption = #32463#32447#25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #32428#32447#25209#21495 Caption = #32428#32447#25209#21495
DataBinding.FieldName = 'WXPH' DataBinding.FieldName = 'WXPH'

5
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCList.pas
View File

@ -80,7 +80,6 @@ type
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn; v2Column3: TcxGridDBColumn;
cxgrdPS: TcxGridDBColumn; cxgrdPS: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
cxgrdMJLen: TcxGridDBColumn; cxgrdMJLen: TcxGridDBColumn;
@ -95,7 +94,6 @@ type
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
@ -106,7 +104,7 @@ type
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject); procedure ConNoMChange(Sender: TObject);
@ -165,6 +163,7 @@ begin
cxgrdCKPS.Visible := True; cxgrdCKPS.Visible := True;
cxgrdConNoPS.Visible := True; cxgrdConNoPS.Visible := True;
cxgrdWFPS.Visible := True; cxgrdWFPS.Visible := True;
Tv1Column15.Visible := True;
Tv1Column9.Visible := True; Tv1Column9.Visible := True;
Tv1Column4.Visible := True; Tv1Column4.Visible := True;
Tv1Column10.Visible := True; Tv1Column10.Visible := True;

14
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothOutList.dfm
View File

@ -1,6 +1,6 @@
object frmFinishedClothOutList: TfrmFinishedClothOutList object frmFinishedClothOutList: TfrmFinishedClothOutList
Left = 111 Left = 350
Top = 91 Top = 239
Width = 1151 Width = 1151
Height = 515 Height = 515
Caption = #25104#21697#20986#24211#31649#29702 Caption = #25104#21697#20986#24211#31649#29702
@ -716,12 +716,6 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
end end
object Tv1Column11: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter
Width = 78
end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'P_CodeName' DataBinding.FieldName = 'P_CodeName'
@ -749,10 +743,10 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
Width = 55 Width = 55
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #32463#36724#25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 93
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #26465#30721 Caption = #26465#30721

5
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothOutList.pas
View File

@ -123,7 +123,6 @@ type
carno: TEdit; carno: TEdit;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -180,6 +179,7 @@ begin
cxgrdMJLen.Visible := True; cxgrdMJLen.Visible := True;
Tv1Column8.Visible := True; Tv1Column8.Visible := True;
Tv1Column9.Visible := True; Tv1Column9.Visible := True;
v1Column10.Visible := True;
Tv1Column3.Visible := True; Tv1Column3.Visible := True;
ToolButton1.Visible := True; ToolButton1.Visible := True;
end; end;
@ -236,6 +236,7 @@ begin
sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(',' + QuotedStr(fwhere) + ' '); sql.Add(',' + QuotedStr(fwhere) + ' ');
//ShowMessage(sql.text);
end; end;
1: /////////////////////////Ã÷ϸ////////////////////////////// 1: /////////////////////////Ã÷ϸ//////////////////////////////
begin begin
@ -249,6 +250,7 @@ begin
sql.Add('@pageIndex=' + inttostr(CurrentPage)); sql.Add('@pageIndex=' + inttostr(CurrentPage));
sql.Add(',@pageSize=' + inttostr(RecordsNumber)); sql.Add(',@pageSize=' + inttostr(RecordsNumber));
sql.Add(',@criteria= ' + quotedstr(fwhere)); sql.Add(',@criteria= ' + quotedstr(fwhere));
//ShowMessage(sql.text);
end; end;
end; end;
//ShowMessage(SQL.Text); //ShowMessage(SQL.Text);
@ -530,6 +532,7 @@ begin
sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(',' + QuotedStr(fwhere) + ' '); sql.Add(',' + QuotedStr(fwhere) + ' ');
showmessage(SQL.text);
Open; Open;
end; end;
ExportFtErpFile('Å÷²¼³ö¿âÈÕ±¨±í.rmf', ADOQueryTemp); ExportFtErpFile('Å÷²¼³ö¿âÈÕ±¨±í.rmf', ADOQueryTemp);

8
成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas
View File

@ -97,6 +97,14 @@ begin
dtbase := 'chenfengdata'; dtbase := 'chenfengdata';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
// server := '127.0.0.1';
//// server := '.';
// dtbase := 'delphichenfeng';
// user := 'sa';
// 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;
end end

12
成品仓库(FinishedClothWarehouse.dll)/U_SQKCHZSelList2.dfm
View File

@ -1,7 +1,7 @@
object frmSQKCHZSelList2: TfrmSQKCHZSelList2 object frmSQKCHZSelList2: TfrmSQKCHZSelList2
Left = 254 Left = 474
Top = 222 Top = 467
Width = 1171 Width = 1086
Height = 576 Height = 576
Caption = #22383#24067#24211#23384#27719#24635'2' Caption = #22383#24067#24211#23384#27719#24635'2'
Color = clBtnFace Color = clBtnFace
@ -20,7 +20,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1163 Width = 1078
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -73,7 +73,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1163 Width = 1078
Height = 450 Height = 450
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
@ -191,7 +191,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1163 Width = 1078
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

4
成品仓库(FinishedClothWarehouse.dll)/U_SQKCHZSelList2.pas
View File

@ -122,7 +122,7 @@ begin
SQL.Add(' ,sum(case when JYType=''ÕýÆ·'' then 1 else 0 end )Zpps'); SQL.Add(' ,sum(case when JYType=''ÕýÆ·'' then 1 else 0 end )Zpps');
SQL.Add(',sum(case when JYType=''´ÎÆ·'' then A.JSLen else 0 end )cpqty'); SQL.Add(',sum(case when JYType=''´ÎÆ·'' then A.JSLen else 0 end )cpqty');
SQL.Add(',sum(case when JYType=''ÕýÆ·'' then A.JSLen else 0 end )Zpqty'); SQL.Add(',sum(case when JYType=''ÕýÆ·'' then A.JSLen else 0 end )Zpqty');
sql.add(',BatchNo=(SELECT edZDFNo FROM PD_Plan_Card e WHERE e.pcid=a.pcid)'); //sql.add(',BatchNo=(SELECT edZDFNo FROM PD_Plan_Card e WHERE e.pcid=a.pcid)');
SQL.Add(' from CK_Cloth_CR A'); SQL.Add(' from CK_Cloth_CR A');
SQL.Add(' inner join CK_Cloth_KC B on A.JYID=B.JYID inner join PD_Plan_Main c on A.mainid=c.mainid '); SQL.Add(' inner join CK_Cloth_KC B on A.JYID=B.JYID inner join PD_Plan_Main c on A.mainid=c.mainid ');
sql.Add('where B.Valid=''Y'' and A.CRFlag=''Èë¿â'''); sql.Add('where B.Valid=''Y'' and A.CRFlag=''Èë¿â''');
@ -133,7 +133,7 @@ begin
sql.Add('and p_code in(select p_code from Contract_sub E INNER JOIN Contract_MAIN F ON E.CONMAINID=F.CONMAINID WHERE CONNO=' + QuotedStr(Trim(fconno))); sql.Add('and p_code in(select p_code from Contract_sub E INNER JOIN Contract_MAIN F ON E.CONMAINID=F.CONMAINID WHERE CONNO=' + QuotedStr(Trim(fconno)));
SQL.Add(') '); SQL.Add(') ');
SQL.Add(' group by a.p_code, a.p_codename, a.pcid '); SQL.Add(' group by a.p_code, a.p_codename ');
//,khname,orderno,CONNO //,khname,orderno,CONNO
sql.Add(' ORDER BY a.p_code'); sql.Add(' ORDER BY a.p_code');

8
梭织计划单(ShuttleSchedule.dll)/U_GetDllForm.pas
View File

@ -74,10 +74,10 @@ begin
dtbase := 'chenfengdata'; dtbase := 'chenfengdata';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
// server := '.'; // server := '127.0.0.1';
// dtbase := 'yiduidata'; // dtbase := 'delphichenfeng';
// user := 'sa'; // user := 'sa';
// 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;
end end
else else

6
梭织计划单(ShuttleSchedule.dll)/U_PlanCardList.dfm
View File

@ -1,6 +1,6 @@
object frmPlanCardList: TfrmPlanCardList object frmPlanCardList: TfrmPlanCardList
Left = 91 Left = 274
Top = 319 Top = 195
Width = 1540 Width = 1540
Height = 764 Height = 764
Caption = #32463#36724#35745#21010 Caption = #32463#36724#35745#21010
@ -1208,7 +1208,7 @@ object frmPlanCardList: TfrmPlanCardList
object CDS_QZ: TClientDataSet object CDS_QZ: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 816 Left = 808
Top = 456 Top = 456
end end
object RMDB_QZ: TRMDBDataSet object RMDB_QZ: TRMDBDataSet

15
梭织计划单(ShuttleSchedule.dll)/U_PlanCardList.pas
View File

@ -12,7 +12,20 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
cxContainer, cxMaskEdit, Math, dxSkinsCore, dxSkinsDefaultPainters, cxContainer, cxMaskEdit, Math, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter; dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmPlanCardList = class(TForm) TfrmPlanCardList = class(TForm)

18
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYList.dfm
View File

@ -1,6 +1,6 @@
object frmShuttleClothGYList: TfrmShuttleClothGYList object frmShuttleClothGYList: TfrmShuttleClothGYList
Left = 481 Left = 486
Top = 439 Top = 565
Width = 1377 Width = 1377
Height = 581 Height = 581
Caption = #26797#32455#32455#36896#21333 Caption = #26797#32455#32455#36896#21333
@ -33,7 +33,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1369 Width = 1361
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -117,7 +117,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 504 Left = 504
Top = 3 Top = 0
Width = 145 Width = 145
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -165,7 +165,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1369 Width = 1361
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -318,7 +318,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1369 Width = 1361
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -330,14 +330,14 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
#24050#21024#38500#25968#25454) #24050#21024#38500#25968#25454)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1369 ClientRectRight = 1361
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView

18
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYList.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg, cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg,
dxBarBuiltInMenu, cxPC, cxCheckBox; dxBarBuiltInMenu, cxPC, cxCheckBox, 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
TfrmShuttleClothGYList = class(TForm) TfrmShuttleClothGYList = class(TForm)
@ -319,7 +332,8 @@ procedure TfrmShuttleClothGYList.InitForm();
begin begin
InitButton(); InitButton();
ReadCxGrid(Trim(self.Caption), Tv3, '坯布生产管理'); ReadCxGrid(Trim(self.Caption), Tv3, '坯布生产管理');
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90; //BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
BegDate.DateTime := StrToDate('2024-01-01');
EndDate.DateTime := SGetServerDate10(ADOQueryTemp); EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid(); InitGrid();
end; end;

28
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYListsel.dfm
View File

@ -1,6 +1,6 @@
object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
Left = 488 Left = 165
Top = 489 Top = 249
Width = 1377 Width = 1377
Height = 581 Height = 581
Caption = #24037#33402#21333#36873#25321 Caption = #24037#33402#21333#36873#25321
@ -33,7 +33,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1369 Width = 1361
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -87,7 +87,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1369 Width = 1361
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -188,8 +188,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -395,8 +395,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object cxGridDBTableView1: TcxGridDBTableView object cxGridDBTableView1: TcxGridDBTableView
@ -602,8 +602,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object cxGridDBTableView2: TcxGridDBTableView object cxGridDBTableView2: TcxGridDBTableView
@ -809,8 +809,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 5 TabOrder = 5
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -982,7 +982,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1369 Width = 1361
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 6 TabOrder = 6
@ -994,7 +994,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
#24050#21024#38500#25968#25454) #24050#21024#38500#25968#25454)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1369 ClientRectRight = 1361
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

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

@ -241,7 +241,7 @@ procedure TfrmShuttleClothGYListSEL.InitForm();
begin begin
ReadCxGrid(Trim(self.Caption), Tv1, '坯布生产管理'); ReadCxGrid(Trim(self.Caption), Tv1, '坯布生产管理');
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90; BegDate.DateTime := StrToDate('2024-01-01');;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp); EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid(); InitGrid();
TBFind.Click(); TBFind.Click();

120
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.dfm
View File

@ -1,7 +1,7 @@
object frmClothSCInPut: TfrmClothSCInPut object frmClothSCInPut: TfrmClothSCInPut
Left = 329 Left = 363
Top = 86 Top = 107
Width = 1474 Width = 1464
Height = 760 Height = 760
Align = alClient Align = alClient
Caption = #26797#32455#32455#36896#21333#24405#20837 Caption = #26797#32455#32455#36896#21333#24405#20837
@ -19,7 +19,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1466 Width = 1448
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -65,7 +65,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1466 Width = 1448
Height = 416 Height = 416
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -715,6 +715,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 69 Top = 69
Width = 119 Width = 119
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -791,6 +792,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 65 Top = 65
Width = 119 Width = 119
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -820,6 +822,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 90 Left = 90
Top = 68 Top = 68
BeepOnEnter = False BeepOnEnter = False
Enabled = False
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
item item
@ -844,6 +847,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 71 Top = 71
Width = 118 Width = 118
Height = 20 Height = 20
Enabled = False
TabOrder = 2 TabOrder = 2
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -927,6 +931,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 173 Top = 173
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -942,6 +947,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 174 Top = 174
Width = 118 Width = 118
Height = 20 Height = 20
Enabled = False
TabOrder = 18 TabOrder = 18
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -951,6 +957,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 205 Top = 205
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -966,6 +973,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 232 Top = 232
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1034,6 +1042,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 264 Top = 264
Width = 482 Width = 482
Height = 121 Height = 121
Enabled = False
TabOrder = 24 TabOrder = 24
end end
object ZJPiLen: TEdit object ZJPiLen: TEdit
@ -1065,6 +1074,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 232 Top = 232
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1089,6 +1099,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 202 Top = 202
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1114,6 +1125,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Width = 120 Width = 120
Height = 20 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
Enabled = False
TabOrder = 31 TabOrder = 31
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -1123,6 +1135,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 207 Top = 207
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1138,6 +1151,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 234 Top = 234
Width = 121 Width = 121
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1153,6 +1167,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 207 Top = 207
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1168,6 +1183,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 234 Top = 234
Width = 121 Width = 121
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1273,8 +1289,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 474 Top = 474
Width = 1466 Width = 1448
Height = 255 Height = 247
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1287,8 +1303,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 255 ClientRectBottom = 247
ClientRectRight = 1466 ClientRectRight = 1448
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
@ -1296,8 +1312,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 486 Width = 468
Height = 232 Height = 224
Align = alClient Align = alClient
Caption = #32463#25490#21015 Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1311,9 +1327,10 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 482 Width = 464
Height = 199 Height = 191
Align = alClient Align = alClient
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1327,7 +1344,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 232 Height = 224
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
@ -1377,6 +1394,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Moving = False Options.Moving = False
@ -1387,6 +1405,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Caption = #20811#25968 Caption = #20811#25968
DataBinding.FieldName = 'Y_Qty' DataBinding.FieldName = 'Y_Qty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 143 Width = 143
@ -1394,18 +1413,39 @@ object frmClothSCInPut: TfrmClothSCInPut
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #25467#24230 Caption = #25467#24230
DataBinding.FieldName = 'Y_Ndu' DataBinding.FieldName = 'Y_Ndu'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Caption = #26681#25968 Caption = #26681#25968
DataBinding.FieldName = 'Y_roots' DataBinding.FieldName = 'Y_roots'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
end end
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Y_Note' DataBinding.FieldName = 'Y_Note'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Moving = False Options.Moving = False
Options.Sorting = False Options.Sorting = False
@ -1423,10 +1463,11 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 530 Width = 468
Height = 281 Height = 224
Align = alClient Align = alClient
Caption = #32428#25490#21015 Caption = #32428#25490#21015
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -29 Font.Height = -29
@ -1438,8 +1479,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 526 Width = 464
Height = 248 Height = 191
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1454,7 +1495,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 281 Height = 224
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
@ -1504,6 +1545,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Moving = False Options.Moving = False
@ -1514,24 +1556,52 @@ object frmClothSCInPut: TfrmClothSCInPut
object cxGridDBColumn9: TcxGridDBColumn object cxGridDBColumn9: TcxGridDBColumn
Caption = #20811#25968 Caption = #20811#25968
DataBinding.FieldName = 'Y_Qty' DataBinding.FieldName = 'Y_Qty'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 143 Width = 143
end end
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #25467#24230 Caption = #25467#24230
DataBinding.FieldName = 'Y_Ndu' DataBinding.FieldName = 'Y_Ndu'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #26681#25968 Caption = #26681#25968
DataBinding.FieldName = 'Y_roots' DataBinding.FieldName = 'Y_roots'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn10: TcxGridDBColumn object cxGridDBColumn10: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Y_Note' DataBinding.FieldName = 'Y_Note'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Moving = False Options.Moving = False
Options.Sorting = False Options.Sorting = False
@ -1549,7 +1619,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox2: TScrollBox object ScrollBox2: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1458 Width = 1448
Height = 224 Height = 224
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -2642,8 +2712,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox3: TScrollBox object ScrollBox3: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1466 Width = 1448
Height = 232 Height = 224
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
OnMouseWheel = ScrollBox3MouseWheel OnMouseWheel = ScrollBox3MouseWheel
@ -2674,7 +2744,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 0 TabOrder = 0
Height = 211 Height = 203
Width = 481 Width = 481
end end
object YWBian: TMemo object YWBian: TMemo
@ -2682,7 +2752,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 701 Left = 701
Top = 0 Top = 0
Width = 794 Width = 794
Height = 211 Height = 203
Align = alRight Align = alRight
TabOrder = 1 TabOrder = 1
end end
@ -2692,7 +2762,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 445 Top = 445
Width = 1466 Width = 1448
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59

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

@ -849,7 +849,7 @@ begin
QDDate.Checked := True; QDDate.Checked := True;
DeliveryDate.Date := QDDate.DateTime; DeliveryDate.Date := QDDate.DateTime;
kongjia.Text := '1'; kongjia.Text := '0.5';
kongjiawei.Text := '0'; kongjiawei.Text := '0';
end; end;

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

@ -1,6 +1,6 @@
object frmShuttleClothSCList: TfrmShuttleClothSCList object frmShuttleClothSCList: TfrmShuttleClothSCList
Left = 146 Left = 165
Top = 172 Top = 220
Width = 1377 Width = 1377
Height = 579 Height = 579
Caption = #26797#32455#32455#36896#21333 Caption = #26797#32455#32455#36896#21333
@ -117,7 +117,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 504 Left = 504
Top = 3 Top = 0
Width = 145 Width = 145
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList

4
梭织计划单(ShuttleSchedule.dll)/U_testdll.dfm
View File

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

4
纱线仓库/U_DataLink.dfm
View File

@ -2,8 +2,8 @@ object DataLink_Yarn: TDataLink_Yarn
OldCreateOrder = False OldCreateOrder = False
OnCreate = DataModuleCreate OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Left = 343 Left = 490
Top = 231 Top = 105
Height = 349 Height = 349
Width = 482 Width = 482
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery

15
纱线仓库/U_GetDllForm.pas
View File

@ -71,11 +71,18 @@ begin
if Trim(DataBaseStr) = '' then if Trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; // server := '101.132.143.144,7781';
//// server := '.';
// dtbase := 'chenfengdata';
// user := 'rtsa';
// pswd := 'rightsoft@5740';
server := '127.0.0.1';
// server := '.'; // server := '.';
dtbase := 'chenfengdata'; dtbase := 'delphichenfeng';
user := 'rtsa'; user := 'sa';
pswd := 'rightsoft@5740'; 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;
end end

10
纱线仓库/U_ShaKCHZList.dfm
View File

@ -1,6 +1,6 @@
object frmShaKCHZList: TfrmShaKCHZList object frmShaKCHZList: TfrmShaKCHZList
Left = 190 Left = 202
Top = 136 Top = 556
Width = 1256 Width = 1256
Height = 630 Height = 630
Caption = #32433#32447#24211#23384#27719#24635#21015#34920 Caption = #32433#32447#24211#23384#27719#24635#21015#34920
@ -148,11 +148,11 @@ object frmShaKCHZList: TfrmShaKCHZList
Left = 0 Left = 0
Top = 70 Top = 70
Width = 1240 Width = 1240
Height = 522 Height = 521
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -224,8 +224,8 @@ object frmShaKCHZList: TfrmShaKCHZList
DataBinding.FieldName = 'SPCode' DataBinding.FieldName = 'SPCode'
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
VisibleForCustomization = False
Width = 89 Width = 89
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn

17
纱线仓库/U_ShaKCHZList.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
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, cxButtonEdit, cxTextEdit; RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, 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
TfrmShaKCHZList = class(TForm) TfrmShaKCHZList = class(TForm)

16
纱线仓库/U_ShaKCList.dfm
View File

@ -1,6 +1,6 @@
object frmShaKCList: TfrmShaKCList object frmShaKCList: TfrmShaKCList
Left = 132 Left = 35
Top = 134 Top = 540
Width = 1382 Width = 1382
Height = 611 Height = 611
Caption = #32433#32447#24211#23384#21015#34920 Caption = #32433#32447#24211#23384#21015#34920
@ -20,7 +20,7 @@ object frmShaKCList: TfrmShaKCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1374 Width = 1366
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -91,7 +91,7 @@ object frmShaKCList: TfrmShaKCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1374 Width = 1366
Height = 60 Height = 60
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -198,8 +198,8 @@ object frmShaKCList: TfrmShaKCList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1374 Width = 1366
Height = 487 Height = 479
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -487,8 +487,8 @@ object frmShaKCList: TfrmShaKCList
object CDS_Print: TClientDataSet object CDS_Print: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 348 Left = 180
Top = 332 Top = 284
end end
object RMDBPrint: TRMDBDataSet object RMDBPrint: TRMDBDataSet
Visible = True Visible = True

17
纱线仓库/U_ShaKCList.pas
View File

@ -12,7 +12,20 @@ uses
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, cxButtonEdit, cxTextEdit,Math, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,Math,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmShaKCList = class(TForm) TfrmShaKCList = class(TForm)
@ -258,7 +271,7 @@ begin
TcxGridToExcel('É´Ïß¿â´æÁбí', cxGrid2); TcxGridToExcel('É´Ïß¿â´æÁбí', cxGrid2);
end; end;
procedure TfrmShaKCList.ToolButton3Click(Sender: TObject); procedure TfrmShaKCList.ToolButton3Click(Sender: TObject); //print
var var
fPrintFile: string; fPrintFile: string;
Txt, fImagePath,CNSql,FNSql,BNSql,CTSql: string; Txt, fImagePath,CNSql,FNSql,BNSql,CTSql: string;

45
纱线仓库/U_ShaOutList.dfm
View File

@ -1,8 +1,8 @@
object frmShaOutList: TfrmShaOutList object frmShaOutList: TfrmShaOutList
Left = 363 Left = 620
Top = 647 Top = 492
Width = 1356 Width = 1355
Height = 667 Height = 451
Caption = #32433#32447#20986#24211#21015#34920 Caption = #32433#32447#20986#24211#21015#34920
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -21,7 +21,7 @@ object frmShaOutList: TfrmShaOutList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1348 Width = 1339
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -107,7 +107,7 @@ object frmShaOutList: TfrmShaOutList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1348 Width = 1339
Height = 61 Height = 61
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -335,12 +335,13 @@ object frmShaOutList: TfrmShaOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 116 Top = 116
Width = 1348 Width = 1339
Height = 520 Height = 296
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -363,11 +364,16 @@ object frmShaOutList: TfrmShaOutList
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Header = cxStyle1 Styles.Header = cxStyle1
object Tv1Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'Y_ID' DataBinding.FieldName = 'Y_ID'
@ -561,6 +567,10 @@ object frmShaOutList: TfrmShaOutList
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end end
object Tv1Column3: TcxGridDBColumn
Caption = #25171#21360
DataBinding.FieldName = 'DYFlag'
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -569,7 +579,7 @@ object frmShaOutList: TfrmShaOutList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 94 Top = 94
Width = 1348 Width = 1339
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -582,7 +592,7 @@ object frmShaOutList: TfrmShaOutList
#24050#20316#24223#25968#25454) #24050#20316#24223#25968#25454)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1348 ClientRectRight = 1339
ClientRectTop = 23 ClientRectTop = 23
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
@ -644,7 +654,7 @@ object frmShaOutList: TfrmShaOutList
end end
object RMDBMain: TRMDBDataSet object RMDBMain: TRMDBDataSet
Visible = True Visible = True
DataSet = CDS_Main DataSet = CDS_PRT
Left = 424 Left = 424
Top = 232 Top = 232
end end
@ -703,4 +713,15 @@ object frmShaOutList: TfrmShaOutList
Font.Style = [fsBold] Font.Style = [fsBold]
end end
end end
object CDS_Print: TClientDataSet
Aggregates = <>
Params = <>
Left = 208
Top = 264
end
object ADOTmp: TADOQuery
Parameters = <>
Left = 104
Top = 232
end
end end

142
纱线仓库/U_ShaOutList.pas
View File

@ -105,6 +105,10 @@ type
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
Note: TEdit; Note: TEdit;
Label7: TLabel; Label7: TLabel;
Tv1Column2: TcxGridDBColumn;
CDS_Print: TClientDataSet;
Tv1Column3: TcxGridDBColumn;
ADOTmp: TADOQuery;
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);
@ -129,6 +133,9 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure v2Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure v2Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
canshu1, canshu2: string; canshu1, canshu2: string;
procedure InitGrid(); procedure InitGrid();
@ -211,6 +218,7 @@ end;
procedure TfrmShaOutList.TBCloseClick(Sender: TObject); procedure TfrmShaOutList.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('纱线出库列表121', Tv1, '纱线仓库'); WriteCxGrid('纱线出库列表121', Tv1, '纱线仓库');
//ReadCxGrid('纱线出库列表121', Tv1, '纱线仓库');
Close; Close;
end; end;
@ -258,7 +266,7 @@ begin
end; end;
fsj := 'select distinct(Crtype) name from CK_Yarn_CR where ckname=''纱线'' and crflag=''出库'' '; fsj := 'select distinct(Crtype) name from CK_Yarn_CR where ckname=''纱线'' and crflag=''出库'' ';
SInitComBoxBySql(ADOQueryCmd, CRType, False, fsj); SInitComBoxBySql(ADOQueryCmd, CRType, False, fsj);
//InitGrid(); InitGrid();
end; end;
procedure TfrmShaOutList.TBExportClick(Sender: TObject); procedure TfrmShaOutList.TBExportClick(Sender: TObject);
@ -402,6 +410,8 @@ begin
end; end;
end; end;
procedure TfrmShaOutList.TBEditClick(Sender: TObject); procedure TfrmShaOutList.TBEditClick(Sender: TObject);
begin begin
if CDS_Main.IsEmpty then if CDS_Main.IsEmpty then
@ -525,47 +535,95 @@ end;
procedure TfrmShaOutList.ToolButton1Click(Sender: TObject); procedure TfrmShaOutList.ToolButton1Click(Sender: TObject);
var var
filepath: string; fPrintFile, Txt, fImagePath, YIDSql: string;
mBegdate, mEnddate: string; Moudle: THandle;
FName, FNameSX, FNameJX: string; Makebar: TMakebar;
i: Integer; Mixtext: TMixtext;
SelectedCount: Integer;
begin begin
for i := 0 to Tv1.ColumnCount - 1 do
begin
FName := Tv1.Columns[i].DataBinding.FilterFieldName;
FNameSX := Trim(FName) + '-1';
FNameJX := Trim(FName) + '-2';
CDS_Main.AddIndex(FNameSX, FName, []); { 正序 }
CDS_Main.AddIndex(FNameJX, FName, [ixDescending]); { 倒序 }
if Tv1.Columns[i].SortOrder = soDescending then
begin
CDS_Main.IndexName := FNameJX;
end
else if Tv1.Columns[i].SortOrder = soAscending then
begin
CDS_Main.IndexName := FNameSX;
end;
end;
mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
if CDS_Main.IsEmpty then if CDS_Main.IsEmpty then
exit; Exit;
ExportFtErpFile('纱线出库报表.rmf', ADOQueryTemp);
try
filepath := ExtractFilePath(Application.ExeName) + 'report\纱线出库报表.rmf';
if not FileExists(Pchar(filepath)) then
begin
application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
exit;
end;
RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);
RM1.LoadFromFile(filepath);
RM1.ShowReport;
finally
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end; end;
SelectedCount := 0;
YIDSql := '';
CDS_Main.DisableControls;
try
with CDS_Main do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean then
begin
if YIDSql <> '' then
YIDSql := YIDSql + ',' + QuotedStr(Trim(FieldByName('Y_ID').AsString))
else
YIDSql := QuotedStr(Trim(FieldByName('Y_ID').AsString));
Inc(SelectedCount);
end;
Next;
end;
end;
finally
CDS_Main.EnableControls;
end;
if YIDSql = '' then
begin
Application.MessageBox('未选择任何数据!', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(' from CK_Yarn_CR A');
sql.Add(' where isnull(CKName,'''')=''纱线''');
SQL.Add(' and CRFlag=''出库''');
SQL.Add(' and A.Y_ID in (' + YIDSql + ')');
SQL.Add(' order by CRTime desc');
Open;
end;
if ADOQueryCmd.IsEmpty then
begin
Application.MessageBox('未找到对应的纱线出库数据！', '提示信息', MB_ICONINFORMATION);
Exit;
end;
SCreateCDS20(ADOQueryCmd, CDS_PRT);
SInitCDSData20(ADOQueryCmd, CDS_PRT);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE CK_Yarn_CR set DYFLAG=''已打印'' where Y_ID in (' + YIDSql + ')');
ExecSQL;
end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线出库报表.rmf';
ExportFtErpFile('纱线出库报表.rmf', ADOQueryCmd);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('未找到报表文件：' + #13#10 + fPrintFile), '提示', MB_ICONWARNING);
end;
InitGrid();
end; end;
procedure TfrmShaOutList.v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmShaOutList.v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@ -594,5 +652,15 @@ begin
end; end;
end; end;
procedure TfrmShaOutList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
begin
if '已打印' = AViewInfo.GridRecord.Values[Tv1Column3.Index] then
ACanvas.Brush.Color := $0080FF80;
end;
end. end.

4
纱线仓库/U_ShaOutPut.dfm
View File

@ -1,6 +1,6 @@
object frmShaOutPut: TfrmShaOutPut object frmShaOutPut: TfrmShaOutPut
Left = 289 Left = 158
Top = 247 Top = 186
Width = 1383 Width = 1383
Height = 644 Height = 644
Align = alClient Align = alClient

Some files were not shown because too many files have changed in this diff Show More