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

Compare commits

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

No commits in common. "889aa06bd5e76eef99828660de0b89bda7e6f55e" and "8481cb86fa89cf706f50b5d391e0ada63cbd5961" have entirely different histories.
889aa06bd5 ... 8481cb86fa

120 changed files with 709 additions and 20212 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:\Dp7Repo\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe HostApplication=D:\项目代码\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=1 Enabled=0
dxSkinBlack=1 dxSkinBlack=1
dxSkinBlue=1 dxSkinBlue=1
dxSkinBlueprint=1 dxSkinBlueprint=1

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

@ -19,8 +19,7 @@ object frmContractListCG: TfrmContractListCG
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1374 Width = 1366
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -100,36 +99,35 @@ 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 = 0 Left = 528
Top = 30 Top = 0
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 = 63 Left = 591
Top = 30 Top = 0
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 = 150 Left = 678
Top = 30 Top = 0
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 = 213 Left = 741
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
ImageIndex = 52 ImageIndex = 52
@ -137,32 +135,32 @@ object frmContractListCG: TfrmContractListCG
OnClick = TnochkClick OnClick = TnochkClick
end end
object Tqx: TToolButton object Tqx: TToolButton
Left = 300 Left = 828
Top = 30 Top = 0
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 = 387 Left = 915
Top = 30 Top = 0
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 = 498 Left = 1026
Top = 30 Top = 0
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 = 585 Left = 1113
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
@ -171,8 +169,8 @@ object frmContractListCG: TfrmContractListCG
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 97
Width = 1374 Width = 1366
Height = 394 Height = 394
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -406,8 +404,8 @@ object frmContractListCG: TfrmContractListCG
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 32
Width = 1374 Width = 1366
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -635,8 +633,8 @@ object frmContractListCG: TfrmContractListCG
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 75
Width = 1374 Width = 1366
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -651,22 +649,22 @@ object frmContractListCG: TfrmContractListCG
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1374 ClientRectRight = 1366
ClientRectTop = 19 ClientRectTop = 19
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 715 Top = 707
Width = 1374 Width = 1366
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 = 521 Top = 491
Width = 1374 Width = 1366
Height = 194 Height = 216
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView

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

@ -11,20 +11,7 @@ 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, dxSkinsCore, dxSkinBlack, dxSkinBlue, cxNavigator, dxBarBuiltInMenu;
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 = 1374 Width = 1366
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 = 1374 Width = 1366
Height = 394 Height = 394
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> NavigatorButtons.ConfirmDelete = False
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
VisibleForCustomization = False Hidden = True
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 = 1374 Width = 1366
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -551,14 +551,13 @@ object frmContractListJG: TfrmContractListJG
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1374 Width = 1366
Height = 22 Height = 22
Align = alTop Align = alTop
Style = 9
TabIndex = 0
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Tabs.Strings = (
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
@ -566,13 +565,13 @@ object frmContractListJG: TfrmContractListJG
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1374 ClientRectRight = 1366
ClientRectTop = 19 ClientRectTop = 19
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 715 Top = 708
Width = 1374 Width = 1366
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -580,12 +579,12 @@ object frmContractListJG: TfrmContractListJG
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 521 Top = 521
Width = 1374 Width = 1366
Height = 194 Height = 187
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> NavigatorButtons.ConfirmDelete = False
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,22 +10,7 @@ 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, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit;
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 = 225 Left = 382
Top = 246 Top = 287
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 = 1365 Width = 1373
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 = 1365 Width = 1373
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 = 1365 Width = 1373
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 = 1365 Width = 1373
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 = 4 Properties.TabIndex = 0
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 = 1365 ClientRectRight = 1373
ClientRectTop = 26 ClientRectTop = 26
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 509 Top = 509
Width = 1365 Width = 1373
Height = 168 Height = 176
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 = 1365 Width = 1373
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 cast(B.XHNo as int) '); sql.Add(' order by B.XHNo ');
//ShowMessage(SQL.Text); //ShowMessage(SQL.Text);
Open; Open;
end; end;

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

@ -74,12 +74,6 @@ 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 = 383 Left = 201
Top = 189 Top = 51
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,20 +11,7 @@ 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, dxSkinBlack, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
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)
@ -162,7 +149,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 = 287 Left = 203
Top = 401 Top = 121
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:\Dp7Repo\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe HostApplication=D:\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

@ -82,15 +82,10 @@ 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 = 257 Left = 612
Top = 129 Top = 524
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 = 1298 Width = 1306
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 = 1298 Width = 1306
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 = 1081 Width = 1089
Height = 428 Height = 436
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 = 1081 Left = 1089
Top = 105 Top = 105
Width = 217 Width = 217
Height = 428 Height = 436
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 = 426 Height = 434
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView

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

@ -425,7 +425,6 @@ 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 = 414 Left = 657
Top = 377 Top = 566
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 = 1199 Width = 1207
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 = 1199 Width = 1207
Height = 417 Height = 425
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 = 314 Left = 203
Top = 397 Top = 121
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 = 284 Left = 232
Top = 358 Top = 249
Width = 1388 Width = 1388
Height = 650 Height = 650
Caption = #23458#25143#36164#26009#31649#29702 Caption = #23458#25143#36164#26009#31649#29702
@ -137,13 +137,6 @@ 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
@ -180,15 +173,6 @@ 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,8 +83,6 @@ 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 = 546 Left = 203
Top = 403 Top = 121
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 = 783 Width = 775
Height = 25 Height = 25
ButtonWidth = 57 ButtonWidth = 57
Caption = 'ToolBar1' Caption = 'ToolBar1'

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

@ -9,15 +9,9 @@ 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 = FabricInspection.dll testDll.exe PROJECTS =
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
FabricInspection.dll: FabricInspection.dpr
$(DCC)
testDll.exe: testDll.dpr
$(DCC)

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

@ -10,20 +10,7 @@ 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, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, cxNavigator;
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 = 1446 Width = 1454
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 = 1446 Width = 1454
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 = 590 Height = 598
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 = 590 Height = 598
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 = 526 Width = 534
Height = 590 Height = 598
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

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

@ -11,21 +11,7 @@ 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 := '127.0.0.1'; // server := '.';
dtbase := 'delphichenfeng'; // dtbase := 'yiduidata';
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 = 402 Left = 192
Top = 267 Top = 41
Width = 1316 Width = 1316
Height = 862 Height = 755
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 = 746 Height = 639
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 = 746 Height = 639
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 = 631 Height = 524
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 = 746 Height = 639
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -1652,9 +1652,4 @@ 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,7 +156,6 @@ 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);
@ -740,12 +739,11 @@ 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').AsStSring); FMJName := Trim(ADOTmp.fieldbyname('P_CodeName').AsString);
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);
@ -1292,21 +1290,13 @@ 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(ADOQuery1.FieldByName('edzdfno').AsString); FieldByName('BatchNO').value := Trim(FBatchNO);
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);
@ -1325,8 +1315,6 @@ 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);
@ -1334,6 +1322,8 @@ 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);
@ -1480,7 +1470,6 @@ 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;
@ -1496,9 +1485,6 @@ 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
@ -1506,6 +1492,7 @@ 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
@ -1515,11 +1502,10 @@ 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
@ -2302,71 +2288,41 @@ 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 Button = mbLeft then if Trim(person1.Text) = '' then
begin begin
if Trim(person1.Text) = '' then raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤1!');
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 Button = mbLeft then if Trim(person2.Text) = '' then
begin begin
if Trim(person2.Text) = '' then raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤2!');
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 Button = mbLeft then if Trim(person3.Text) = '' then
begin begin
if Trim(person3.Text) = '' then raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤3!');
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 Button = mbLeft then if Trim(person4.Text) = '' then
begin begin
if Trim(person4.Text) = '' then raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤4!');
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 Button = mbLeft then if Trim(person5.Text) = '' then
begin begin
if Trim(person5.Text) = '' then raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤5!');
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 = 480 Left = 155
Top = 300 Top = 182
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:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.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 = 168 Left = 173
Top = 455 Top = 86
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 = 1362 Width = 1370
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 = 1362 Width = 1370
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 = 1362 Width = 1370
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 = 1362 Width = 1370
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 = 1362 Width = 1370
Height = 284 Height = 292
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView

15
应收应付/U_FDINVOICE.pas
View File

@ -14,20 +14,7 @@ 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, dxSkinBlack, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
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 = 350 Left = 348
Top = 226 Top = 170
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 = 982 Width = 974
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 = 982 Width = 974
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 = 982 Width = 974
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 = 982 ClientRectRight = 974
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 350 Top = 342
Width = 982 Width = 974
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 = 982 Width = 974
Height = 231 Height = 223
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -335,7 +335,6 @@ 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

14
应收应付/U_GetDllForm.pas
View File

@ -66,17 +66,11 @@ 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 := 'delphichenfeng'; dtbase := 'chenfengdata';
user := 'sa'; user := 'rtsa';
pswd := 'rightsoft'; pswd := 'rightsoft@5740';
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

18
应收应付/U_PBRKlistSel2.dfm
View File

@ -1,8 +1,8 @@
object frmPBRKlistSel2: TfrmPBRKlistSel2 object frmPBRKlistSel2: TfrmPBRKlistSel2
Left = 287 Left = 197
Top = 711 Top = 139
Width = 1378 Width = 1378
Height = 525 Height = 615
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,7 +192,6 @@ 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
@ -201,7 +200,6 @@ 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
@ -210,7 +208,6 @@ 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
@ -219,7 +216,6 @@ 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
@ -230,7 +226,6 @@ 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
@ -248,7 +243,6 @@ 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
@ -257,7 +251,6 @@ 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
@ -266,7 +259,6 @@ 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
@ -296,7 +288,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Left = 0 Left = 0
Top = 117 Top = 117
Width = 1362 Width = 1362
Height = 369 Height = 459
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -499,7 +491,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
Left = 0 Left = 0
Top = 117 Top = 117
Width = 1362 Width = 1362
Height = 369 Height = 459
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 = 301 Left = 122
Top = 582 Top = 178
Width = 1289 Width = 1289
Height = 541 Height = 593
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 = 381 Height = 433
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 = 87 Width = 80
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 = 105 Width = 83
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 = 118 Width = 66
end end
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #36816#36153 Caption = #36816#36153

7
应收应付/U_SXCKNewList.pas
View File

@ -301,15 +301,12 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select '); sql.Add(' select money=price*Qty,A.* ');
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 = 335 Left = 285
Top = 181 Top = 179
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 = 522 Height = 523
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.Delete.Enabled = False NavigatorButtons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False NavigatorButtons.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,22 +12,7 @@ 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, cxLookAndFeels, cxLookAndFeelPainters, cxButtonEdit, cxTextEdit;
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
View File

@ -1,136 +0,0 @@
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
View File

@ -1,177 +0,0 @@
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 = 292 Left = 198
Top = 611 Top = 112
Width = 1181 Width = 1181
Height = 703 Height = 661
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 = 309 Height = 267
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 = 427 Top = 385
Width = 1165 Width = 1165
Height = 237 Height = 237
Align = alBottom Align = alBottom
@ -466,7 +466,6 @@ 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 = 365 Left = 273
Top = 143 Top = 107
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 = 83 ButtonWidth = 59
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_YSYF.ThreeImgList DisabledImages = DataLink_YSYF.ThreeImgList
@ -56,15 +56,8 @@ object frmYFCRMXList: TfrmYFCRMXList
ImageIndex = 53 ImageIndex = 53
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton3: TToolButton
Left = 189
Top = 0
Caption = #21333#20215#20462#25913
ImageIndex = 54
OnClick = ToolButton3Click
end
object TBClose: TToolButton object TBClose: TToolButton
Left = 272 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -215,18 +208,6 @@ 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
@ -236,12 +217,6 @@ 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'
@ -418,12 +393,6 @@ 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,9 +85,6 @@ 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);
@ -103,7 +100,6 @@ 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 }
@ -114,7 +110,6 @@ type
{ Public declarations } { Public declarations }
FCYID: string; FCYID: string;
fmanage: string; fmanage: string;
FFFID: string;
end; end;
var var
@ -124,7 +119,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_XXPRICE; U_XXFPHXList;
{$R *.dfm} {$R *.dfm}
procedure TfrmYFCRMXList.SetStatus(); procedure TfrmYFCRMXList.SetStatus();
@ -321,186 +316,5 @@ 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 = 346 Left = 281
Top = 322 Top = 123
Width = 1134 Width = 1134
Height = 569 Height = 618
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 = 438 Height = 487
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -194,11 +194,6 @@ 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
@ -211,7 +206,9 @@ object frmYFFKList: TfrmYFFKList
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column3 end
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 = 237 Left = 424
Top = 189 Top = 208
Width = 993 Width = 993
Height = 569 Height = 569
Caption = #20449#24687#24405#20837 Caption = #20449#24687#24405#20837
@ -572,12 +572,6 @@ 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,7 +87,6 @@ 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);
@ -607,10 +606,9 @@ 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
@ -624,10 +622,8 @@ 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;
@ -868,9 +864,6 @@ 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 = 411 Left = 221
Top = 523 Top = 115
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,40 +225,6 @@ 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
@ -271,7 +237,7 @@ object frmYFMXlist: TfrmYFMXlist
Bands = < Bands = <
item item
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 741 Width = 683
end end
item item
Caption = #24212#20184 Caption = #24212#20184
@ -591,14 +557,6 @@ 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,7 +89,6 @@ 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);
@ -169,7 +168,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 = 279 Left = 198
Top = 458 Top = 112
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 = 3 Properties.TabIndex = 0
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 = 81 Width = 77
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 = 100 Width = 70
end end
object VBZ: TcxGridDBColumn object VBZ: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
@ -598,12 +598,6 @@ 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,7 +107,6 @@ 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 = 270 Left = 251
Top = 581 Top = 94
Width = 1249 Width = 1249
Height = 688 Height = 688
Caption = #24212#25910#27454#31649#29702 Caption = #24212#25910#27454#31649#29702
@ -244,11 +244,9 @@ 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

16
应收应付/U_YSCRMXList.dfm
View File

@ -1,6 +1,6 @@
object frmYSCRMXList: TfrmYSCRMXList object frmYSCRMXList: TfrmYSCRMXList
Left = 244 Left = 273
Top = 413 Top = 107
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 = 1002 Width = 1010
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 = 1002 Width = 1010
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 = 1002 Width = 1010
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 = 1002 ClientRectRight = 1010
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 115 Top = 115
Width = 1002 Width = 1010
Height = 534 Height = 542
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

15
应收应付/U_YSCRMXList.pas
View File

@ -14,20 +14,7 @@ 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, dxSkinBlack, dxSkinBlue, dxSkinsDefaultPainters, dxSkinscxPCPainter;
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 = 403 Left = 423
Top = 443 Top = 608
Width = 1205 Width = 1205
Height = 613 Height = 614
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 = 1189 Width = 1197
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 = 1189 Width = 1197
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 = 1189 Width = 1197
Height = 483 Height = 492
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
@ -241,7 +241,9 @@ object frmYSMXlist: TfrmYSMXlist
end end
item item
Kind = skSum Kind = skSum
Column = TV1Column1 end
item
Kind = skSum
end end
item item
Kind = skSum Kind = skSum
@ -254,35 +256,6 @@ 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
@ -418,7 +391,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
@ -670,7 +643,7 @@ object frmYSMXlist: TfrmYSMXlist
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 69 Top = 69
Width = 1189 Width = 1197
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -682,7 +655,7 @@ object frmYSMXlist: TfrmYSMXlist
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1189 ClientRectRight = 1197
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 = 423 Left = 258
Top = 547 Top = 152
Width = 1440 Width = 1196
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 = 1432 Width = 1188
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 = 1432 Width = 1188
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 = 1432 Width = 1188
Height = 460 Height = 460
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
@ -258,7 +258,6 @@ object frmYSSKList: TfrmYSSKList
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column6
end end
item item
Kind = skSum Kind = skSum
@ -283,7 +282,6 @@ object frmYSSKList: TfrmYSSKList
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column2
end end
item item
Kind = skSum Kind = skSum
@ -416,7 +414,7 @@ object frmYSSKList: TfrmYSSKList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1432 Width = 1188
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -428,7 +426,7 @@ object frmYSSKList: TfrmYSSKList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1432 ClientRectRight = 1188
ClientRectTop = 19 ClientRectTop = 19
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery

15
应收应付/U_YSSKList.pas
View File

@ -14,20 +14,7 @@ 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, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinscxPCPainter;
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,20 +13,7 @@ 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, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, cxNavigator;
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 = 575 Left = 153
Top = 541 Top = 124
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 = 783 Width = 775
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:\Dp7Repo\淃커덜쯤\D7szChenfeng\壇澗壇마\testDll.exe HostApplication=D:\淃커덜쯤\D7szChenfeng\壇澗壇마\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

3
应收应付/YSYF.dpr
View File

@ -46,8 +46,7 @@ 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 = 373 Left = 253
Top = 237 Top = 323
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 = 1112 Width = 1120
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 = 1112 Width = 1120
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 = 1112 Width = 1120
Height = 330 Height = 338
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 = 1112 Width = 1120
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 = 524 Left = 192
Top = 378 Top = 232
Width = 1075 Width = 1075
Height = 665 Height = 664
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 = 472 Height = 471
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, ImgList; dxSkinXmas2008Blue;
type type
TfrmCPFHSQList = class(TForm) TfrmCPFHSQList = class(TForm)
@ -120,7 +120,6 @@ 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 = 210 Left = 363
Top = 0 Top = 45
Width = 1109 Width = 1109
Height = 685 Height = 795
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 = 646 Height = 756
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 = 646 Height = 756
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 = 460 Left = 459
Top = 280 Top = 278
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 = 105 Left = 119
Top = 65 Top = 159
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 = #32463#36724#25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo' DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 92 Width = 83
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 = 1 Properties.TabIndex = 0
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 = 179 Left = 54
Top = 106 Top = 187
Width = 1357 Width = 1357
Height = 723 Height = 721
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 = 0 Top = 1
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 = 569 Height = 567
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 = #32463#36724#25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo' DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 84 Width = 84
@ -588,12 +588,6 @@ 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'
@ -631,8 +625,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'edZDFNo'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end

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

@ -135,7 +135,6 @@ 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 = 469 Left = 263
Top = 619 Top = 140
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,20 +11,7 @@ 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, dxSkinBlack, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
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 = 508 Left = -6
Top = 419 Top = 33
Width = 1086 Width = 1247
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 = 1078 Width = 1231
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 = 1078 Width = 1231
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 = 1078 Width = 1231
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 = 1 Properties.TabIndex = 0
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 = 873 Width = 1026
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 = (
869 1022
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 = 1078 Width = 1231
Height = 375 Height = 367
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 Tv1Column15: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #32463#36724#25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 96 Width = 74
end end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
@ -652,6 +652,13 @@ 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'
@ -711,6 +718,12 @@ 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,6 +80,7 @@ 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;
@ -94,6 +95,7 @@ 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;
@ -104,7 +106,7 @@ type
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1Column14: 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);
@ -163,7 +165,6 @@ 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 = 350 Left = 111
Top = 239 Top = 91
Width = 1151 Width = 1151
Height = 515 Height = 515
Caption = #25104#21697#20986#24211#31649#29702 Caption = #25104#21697#20986#24211#31649#29702
@ -716,6 +716,12 @@ 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'
@ -743,10 +749,10 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
Width = 55 Width = 55
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #32463#36724#25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 93 Width = 71
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #26465#30721 Caption = #26465#30721

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

@ -123,6 +123,7 @@ 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);
@ -179,7 +180,6 @@ 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,7 +236,6 @@ 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
@ -250,7 +249,6 @@ 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);
@ -532,7 +530,6 @@ 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,14 +97,6 @@ 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 = 474 Left = 254
Top = 467 Top = 222
Width = 1086 Width = 1171
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 = 1078 Width = 1163
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 = 1078 Width = 1163
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 = 1078 Width = 1163
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 '); SQL.Add(' group by a.p_code, a.p_codename, a.pcid ');
//,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 := '127.0.0.1'; // server := '.';
// dtbase := 'delphichenfeng'; // dtbase := 'yiduidata';
// 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 = 274 Left = 91
Top = 195 Top = 319
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 = 808 Left = 816
Top = 456 Top = 456
end end
object RMDB_QZ: TRMDBDataSet object RMDB_QZ: TRMDBDataSet

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

@ -12,20 +12,7 @@ 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, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinscxPCPainter;
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 = 486 Left = 481
Top = 565 Top = 439
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 = 1361 Width = 1369
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 = 0 Top = 3
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 = 1361 Width = 1369
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 = 1361 Width = 1369
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 = 1361 ClientRectRight = 1369
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1361 Width = 1369
Height = 415 Height = 423
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView

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

@ -11,20 +11,7 @@ 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, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxBarBuiltInMenu, cxPC, cxCheckBox;
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)
@ -332,8 +319,7 @@ 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 = 165 Left = 488
Top = 249 Top = 489
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 = 1361 Width = 1369
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 = 1361 Width = 1369
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 = 1361 Width = 1369
Height = 415 Height = 423
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 = 1361 Width = 1369
Height = 415 Height = 423
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 = 1361 Width = 1369
Height = 415 Height = 423
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 = 1361 Width = 1369
Height = 415 Height = 423
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 = 1361 Width = 1369
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 = 1361 ClientRectRight = 1369
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 := StrToDate('2024-01-01');; BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
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 = 363 Left = 329
Top = 107 Top = 86
Width = 1464 Width = 1474
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 = 1448 Width = 1466
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 = 1448 Width = 1466
Height = 416 Height = 416
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -715,7 +715,6 @@ 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
@ -792,7 +791,6 @@ 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
@ -822,7 +820,6 @@ 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
@ -847,7 +844,6 @@ 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
@ -931,7 +927,6 @@ 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
@ -947,7 +942,6 @@ 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
@ -957,7 +951,6 @@ 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
@ -973,7 +966,6 @@ 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
@ -1042,7 +1034,6 @@ 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
@ -1074,7 +1065,6 @@ 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
@ -1099,7 +1089,6 @@ 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
@ -1125,7 +1114,6 @@ 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
@ -1135,7 +1123,6 @@ 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
@ -1151,7 +1138,6 @@ 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
@ -1167,7 +1153,6 @@ 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
@ -1183,7 +1168,6 @@ 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
@ -1289,8 +1273,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 474 Top = 474
Width = 1448 Width = 1466
Height = 247 Height = 255
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1303,8 +1287,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 247 ClientRectBottom = 255
ClientRectRight = 1448 ClientRectRight = 1466
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
@ -1312,8 +1296,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 468 Width = 486
Height = 224 Height = 232
Align = alClient Align = alClient
Caption = #32463#25490#21015 Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1327,10 +1311,9 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 464 Width = 482
Height = 191 Height = 199
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
@ -1344,7 +1327,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 224 Height = 232
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
@ -1394,7 +1377,6 @@ 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
@ -1405,7 +1387,6 @@ 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
@ -1413,39 +1394,18 @@ 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
@ -1463,11 +1423,10 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 468 Width = 530
Height = 224 Height = 281
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
@ -1479,8 +1438,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 464 Width = 526
Height = 191 Height = 248
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1495,7 +1454,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 224 Height = 281
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
@ -1545,7 +1504,6 @@ 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
@ -1556,52 +1514,24 @@ 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
@ -1619,7 +1549,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox2: TScrollBox object ScrollBox2: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1448 Width = 1458
Height = 224 Height = 224
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -2712,8 +2642,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox3: TScrollBox object ScrollBox3: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1448 Width = 1466
Height = 224 Height = 232
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
OnMouseWheel = ScrollBox3MouseWheel OnMouseWheel = ScrollBox3MouseWheel
@ -2744,7 +2674,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 0 TabOrder = 0
Height = 203 Height = 211
Width = 481 Width = 481
end end
object YWBian: TMemo object YWBian: TMemo
@ -2752,7 +2682,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 701 Left = 701
Top = 0 Top = 0
Width = 794 Width = 794
Height = 203 Height = 211
Align = alRight Align = alRight
TabOrder = 1 TabOrder = 1
end end
@ -2762,7 +2692,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 445 Top = 445
Width = 1448 Width = 1466
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 := '0.5'; kongjia.Text := '1';
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 = 165 Left = 146
Top = 220 Top = 172
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 = 0 Top = 3
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 = 587 Left = 203
Top = 348 Top = 121
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 = 490 Left = 343
Top = 105 Top = 231
Height = 349 Height = 349
Width = 482 Width = 482
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery

15
纱线仓库/U_GetDllForm.pas
View File

@ -71,18 +71,11 @@ 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 := 'delphichenfeng'; dtbase := 'chenfengdata';
user := 'sa'; user := 'rtsa';
pswd := 'rightsoft'; pswd := 'rightsoft@5740';
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 = 202 Left = 190
Top = 556 Top = 136
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 = 521 Height = 522
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> NavigatorButtons.ConfirmDelete = False
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,22 +10,7 @@ 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 = 35 Left = 132
Top = 540 Top = 134
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 = 1366 Width = 1374
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 = 1366 Width = 1374
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 = 1366 Width = 1374
Height = 479 Height = 487
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 = 180 Left = 348
Top = 284 Top = 332
end end
object RMDBPrint: TRMDBDataSet object RMDBPrint: TRMDBDataSet
Visible = True Visible = True

17
纱线仓库/U_ShaKCList.pas
View File

@ -12,20 +12,7 @@ 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, dxSkinBlack, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
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)
@ -271,7 +258,7 @@ begin
TcxGridToExcel('É´Ïß¿â´æÁбí', cxGrid2); TcxGridToExcel('É´Ïß¿â´æÁбí', cxGrid2);
end; end;
procedure TfrmShaKCList.ToolButton3Click(Sender: TObject); //print procedure TfrmShaKCList.ToolButton3Click(Sender: TObject);
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 = 620 Left = 363
Top = 492 Top = 647
Width = 1355 Width = 1356
Height = 451 Height = 667
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 = 1339 Width = 1348
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 = 1339 Width = 1348
Height = 61 Height = 61
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -335,13 +335,12 @@ object frmShaOutList: TfrmShaOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 116 Top = 116
Width = 1339 Width = 1348
Height = 296 Height = 520
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 = <
@ -364,16 +363,11 @@ 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'
@ -567,10 +561,6 @@ 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
@ -579,7 +569,7 @@ object frmShaOutList: TfrmShaOutList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 94 Top = 94
Width = 1339 Width = 1348
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -592,7 +582,7 @@ object frmShaOutList: TfrmShaOutList
#24050#20316#24223#25968#25454) #24050#20316#24223#25968#25454)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1339 ClientRectRight = 1348
ClientRectTop = 23 ClientRectTop = 23
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
@ -654,7 +644,7 @@ object frmShaOutList: TfrmShaOutList
end end
object RMDBMain: TRMDBDataSet object RMDBMain: TRMDBDataSet
Visible = True Visible = True
DataSet = CDS_PRT DataSet = CDS_Main
Left = 424 Left = 424
Top = 232 Top = 232
end end
@ -713,15 +703,4 @@ 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

134
纱线仓库/U_ShaOutList.pas
View File

@ -105,10 +105,6 @@ 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);
@ -133,9 +129,6 @@ 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();
@ -218,7 +211,6 @@ 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;
@ -266,7 +258,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);
@ -410,8 +402,6 @@ 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
@ -535,95 +525,47 @@ end;
procedure TfrmShaOutList.ToolButton1Click(Sender: TObject); procedure TfrmShaOutList.ToolButton1Click(Sender: TObject);
var var
fPrintFile, Txt, fImagePath, YIDSql: string; filepath: string;
Moudle: THandle; mBegdate, mEnddate: string;
Makebar: TMakebar; FName, FNameSX, FNameJX: string;
Mixtext: TMixtext; i: Integer;
SelectedCount: Integer;
begin begin
if CDS_Main.IsEmpty then for i := 0 to Tv1.ColumnCount - 1 do
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin begin
Application.MessageBox('没有选择数据!', '提示', 0); FName := Tv1.Columns[i].DataBinding.FilterFieldName;
Exit; FNameSX := Trim(FName) + '-1';
end; FNameJX := Trim(FName) + '-2';
CDS_Main.AddIndex(FNameSX, FName, []); { 正序 }
SelectedCount := 0; CDS_Main.AddIndex(FNameJX, FName, [ixDescending]); { 倒序 }
YIDSql := ''; if Tv1.Columns[i].SortOrder = soDescending then
CDS_Main.DisableControls;
try
with CDS_Main do
begin begin
First; CDS_Main.IndexName := FNameJX;
while not Eof do end
begin else if Tv1.Columns[i].SortOrder = soAscending then
if FieldByName('SSel').AsBoolean then begin
begin CDS_Main.IndexName := FNameSX;
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; end;
finally
CDS_Main.EnableControls;
end; end;
mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
if CDS_Main.IsEmpty then
exit;
if YIDSql = '' then ExportFtErpFile('纱线出库报表.rmf', ADOQueryTemp);
begin try
Application.MessageBox('未选择任何数据!', '提示', 0); filepath := ExtractFilePath(Application.ExeName) + 'report\纱线出库报表.rmf';
Exit; if not FileExists(Pchar(filepath)) then
end; begin
with ADOQueryCmd do application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
begin exit;
Close; end;
SQL.Clear; RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);
sql.Add(' select A.* '); RM1.LoadFromFile(filepath);
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; RM1.ShowReport;
end finally
else
begin
Application.MessageBox(PChar('未找到报表文件：' + #13#10 + fPrintFile), '提示', MB_ICONWARNING);
end; 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);
@ -652,15 +594,5 @@ 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 = 158 Left = 289
Top = 186 Top = 247
Width = 1383 Width = 1383
Height = 644 Height = 644
Align = alClient Align = alClient

2
纱线仓库/U_ShaOutPut.pas
View File

@ -467,7 +467,7 @@ begin
if SaveCKData() then if SaveCKData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
ModalResult:=1; //ModalResult:=1;
Exit; Exit;
end; end;
end; end;

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