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

20260211

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-11 17:19:48 +08:00
parent b7cc5e8312
commit 6f219d26d4
71 changed files with 18829 additions and 387 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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

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

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

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

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

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

@ -1,6 +1,6 @@
object frmContractListNX: TfrmContractListNX object frmContractListNX: TfrmContractListNX
Left = 267 Left = 225
Top = 202 Top = 246
Width = 1381 Width = 1381
Height = 716 Height = 716
Caption = #38144#21806#21512#21516 Caption = #38144#21806#21512#21516
@ -701,7 +701,7 @@ object frmContractListNX: TfrmContractListNX
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 4
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#25552#20132 #26410#25552#20132
#24050#25552#20132 #24050#25552#20132

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -10,7 +10,20 @@ uses
cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls, cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls,
ComCtrls, ToolWin, DBClient, ADODB, MovePanel, RM_Dataset, RM_System, ComCtrls, ToolWin, DBClient, ADODB, MovePanel, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator; cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
function CommOpen(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): integer; stdcall; external 'JCYData.DLL'; function CommOpen(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): integer; stdcall; external 'JCYData.DLL';

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

@ -65,15 +65,15 @@ begin
SetLength(pswd, 255); SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then if Trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; // server := '101.132.143.144,7781';
dtbase := 'chenfengdata'; // dtbase := 'chenfengdata';
user := 'rtsa'; // user := 'rtsa';
pswd := 'rightsoft@5740'; // pswd := 'rightsoft@5740';
// server := '.'; server := '127.0.0.1';
// dtbase := 'yiduidata'; dtbase := 'delphichenfeng';
// user := 'sa'; user := 'sa';
// pswd := 'rightsoft'; pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;

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

@ -1,8 +1,8 @@
object frmGreyInspection: TfrmGreyInspection object frmGreyInspection: TfrmGreyInspection
Left = 216 Left = 402
Top = 74 Top = 267
Width = 1316 Width = 1316
Height = 755 Height = 862
Caption = #26797#32455#22383#24067#26816#39564 Caption = #26797#32455#22383#24067#26816#39564
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -22,7 +22,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 0 Left = 0
Top = 85 Top = 85
Width = 217 Width = 217
Height = 631 Height = 746
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -764,7 +764,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 217 Left = 217
Top = 85 Top = 85
Width = 296 Width = 296
Height = 631 Height = 746
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -773,7 +773,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 2 Left = 2
Top = 113 Top = 113
Width = 292 Width = 292
Height = 516 Height = 631
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -893,14 +893,14 @@ object frmGreyInspection: TfrmGreyInspection
object Panel5: TPanel object Panel5: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1300 Width = 1308
Height = 85 Height = 85
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
object Panel6: TPanel object Panel6: TPanel
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1298 Width = 1306
Height = 53 Height = 53
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
@ -1055,7 +1055,7 @@ object frmGreyInspection: TfrmGreyInspection
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1298 Width = 1306
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -1144,8 +1144,8 @@ object frmGreyInspection: TfrmGreyInspection
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 513 Left = 513
Top = 85 Top = 85
Width = 787 Width = 795
Height = 631 Height = 746
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -1652,4 +1652,9 @@ object frmGreyInspection: TfrmGreyInspection
Font.Style = [fsBold] Font.Style = [fsBold]
end end
end end
object ADOQuery1: TADOQuery
Parameters = <>
Left = 824
Top = 192
end
end end

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

@ -156,6 +156,7 @@ type
ToolButton6: TToolButton; ToolButton6: TToolButton;
Tv3Column5: TcxGridDBColumn; Tv3Column5: TcxGridDBColumn;
Tv3Column6: TcxGridDBColumn; Tv3Column6: TcxGridDBColumn;
ADOQuery1: TADOQuery;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -739,11 +740,12 @@ begin
if not ADOTmp.IsEmpty then if not ADOTmp.IsEmpty then
begin begin
// FAPID := Trim(ADOTmp.fieldbyname('apid').AsString); // FAPID := Trim(ADOTmp.fieldbyname('apid').AsString);
// FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString); FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
FMJCode := Trim(ADOTmp.fieldbyname('P_Code').AsString); FMJCode := Trim(ADOTmp.fieldbyname('P_Code').AsString);
FMJName := Trim(ADOTmp.fieldbyname('P_CodeName').AsString); FMJName := Trim(ADOTmp.fieldbyname('P_CodeName').AsStSring);
FMJSpec := Trim(ADOTmp.fieldbyname('P_Spec').AsString); FMJSpec := Trim(ADOTmp.fieldbyname('P_Spec').AsString);
FMJMF := Trim(ADOTmp.fieldbyname('P_MF').AsString); FMJMF := Trim(ADOTmp.fieldbyname('P_MF').AsString);
@ -1290,13 +1292,21 @@ begin
end; end;
end; end;
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select * from PD_Plan_Card where PCID=''' + Trim(FPCID) + '''');
Open;
end;
FieldByName('MainId').value := Trim(FMainId); FieldByName('MainId').value := Trim(FMainId);
FieldByName('SubId').value := Trim(FSubId); FieldByName('SubId').value := Trim(FSubId);
FieldByName('APId').value := Trim(FAPID); FieldByName('APId').value := Trim(FAPID);
FieldByName('pcid').value := Trim(FPCID); FieldByName('pcid').value := Trim(FPCID);
FieldByName('BatchNO').value := Trim(FBatchNO); FieldByName('BatchNO').value := Trim(ADOQuery1.FieldByName('edzdfno').AsString);
FieldByName('P_Code').value := Trim(FMJCode); FieldByName('P_Code').value := Trim(FMJCode);
FieldByName('P_CodeName').value := Trim(FMJName); FieldByName('P_CodeName').value := Trim(FMJName);
FieldByName('P_Spec').value := Trim(FMJSpec); FieldByName('P_Spec').value := Trim(FMJSpec);

21
应收应付/U_FKCR.dfm
View File

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

21
应收应付/U_YFCR.dfm
View File

@ -1,6 +1,6 @@
object frmYFCR: TfrmYFCR object frmYFCR: TfrmYFCR
Left = 198 Left = 471
Top = 112 Top = 396
Width = 1181 Width = 1181
Height = 661 Height = 661
Caption = #24212#20184#27454#31649#29702 Caption = #24212#20184#27454#31649#29702
@ -21,7 +21,7 @@ object frmYFCR: TfrmYFCR
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1165 Width = 1173
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -124,7 +124,7 @@ object frmYFCR: TfrmYFCR
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1165 Width = 1173
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -215,7 +215,7 @@ object frmYFCR: TfrmYFCR
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 96 Top = 96
Width = 1165 Width = 1173
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -229,14 +229,14 @@ object frmYFCR: TfrmYFCR
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1165 ClientRectRight = 1173
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 118 Top = 118
Width = 1165 Width = 1173
Height = 267 Height = 275
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -436,8 +436,8 @@ object frmYFCR: TfrmYFCR
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 385 Top = 393
Width = 1165 Width = 1173
Height = 237 Height = 237
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4
@ -466,6 +466,7 @@ object frmYFCR: TfrmYFCR
end end
item item
Kind = skSum Kind = skSum
Column = v1Column5
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False

16
应收应付/U_YFCRMXList.dfm
View File

@ -1,6 +1,6 @@
object frmYFCRMXList: TfrmYFCRMXList object frmYFCRMXList: TfrmYFCRMXList
Left = 273 Left = 313
Top = 107 Top = 245
Width = 1018 Width = 1018
Height = 688 Height = 688
Caption = #24212#20184#27454#26126#32454#26597#35810 Caption = #24212#20184#27454#26126#32454#26597#35810
@ -208,6 +208,18 @@ object frmYFCRMXList: TfrmYFCRMXList
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = v1Price
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column5
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False

25
应收应付/U_YFFKList.dfm
View File

@ -1,6 +1,6 @@
object frmYFFKList: TfrmYFFKList object frmYFFKList: TfrmYFFKList
Left = 281 Left = 278
Top = 123 Top = 412
Width = 1134 Width = 1134
Height = 618 Height = 618
Caption = #24212#20184#27454#20184#27454#32479#35745 Caption = #24212#20184#27454#20184#27454#32479#35745
@ -19,7 +19,7 @@ object frmYFFKList: TfrmYFFKList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1118 Width = 1126
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -84,7 +84,7 @@ object frmYFFKList: TfrmYFFKList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1118 Width = 1126
Height = 39 Height = 39
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -161,8 +161,8 @@ object frmYFFKList: TfrmYFFKList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 92 Top = 92
Width = 1118 Width = 1126
Height = 487 Height = 495
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -194,6 +194,11 @@ object frmYFFKList: TfrmYFFKList
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column2
end
item
Kind = skSum
Column = Tv2Column3
end end
item item
Kind = skSum Kind = skSum
@ -206,9 +211,7 @@ object frmYFFKList: TfrmYFFKList
end end
item item
Kind = skSum Kind = skSum
end Column = Tv2Column3
item
Kind = skSum
end end
item item
Kind = skSum Kind = skSum
@ -330,7 +333,7 @@ object frmYFFKList: TfrmYFFKList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 70 Top = 70
Width = 1118 Width = 1126
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -342,7 +345,7 @@ object frmYFFKList: TfrmYFFKList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1118 ClientRectRight = 1126
ClientRectTop = 19 ClientRectTop = 19
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery

46
应收应付/U_YFMXlist.dfm
View File

@ -21,7 +21,7 @@ object frmYFMXlist: TfrmYFMXlist
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
@ -78,7 +78,7 @@ object frmYFMXlist: TfrmYFMXlist
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
@ -195,8 +195,8 @@ object frmYFMXlist: TfrmYFMXlist
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 91 Top = 91
Width = 1189 Width = 1197
Height = 484 Height = 492
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
@ -225,6 +225,40 @@ object frmYFMXlist: TfrmYFMXlist
item item
Kind = skSum Kind = skSum
Column = V1Column13 Column = V1Column13
end
item
Kind = skSum
Column = V1Column16
end
item
Kind = skSum
Column = V1Column8
end
item
Kind = skSum
Column = V1Column9
end
item
Kind = skSum
Column = V1Column12
end
item
Kind = skSum
Column = V1Column12
end
item
Kind = skSum
Column = TV1Column4
end
item
Kind = skSum
Column = TV1Column5
end
item
Kind = skSum
Column = V1Column15
end
item
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -582,7 +616,7 @@ object frmYFMXlist: TfrmYFMXlist
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
@ -593,7 +627,7 @@ object frmYFMXlist: TfrmYFMXlist
#24050#23457#26680 #24050#23457#26680
#20840#37096) #20840#37096)
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1189 ClientRectRight = 1197
ClientRectTop = 19 ClientRectTop = 19
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery

18
应收应付/U_YSCR.dfm
View File

@ -21,7 +21,7 @@ object frmYSCR: TfrmYSCR
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1233 Width = 1241
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -110,7 +110,7 @@ object frmYSCR: TfrmYSCR
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1233 Width = 1241
Height = 70 Height = 70
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -217,8 +217,8 @@ object frmYSCR: TfrmYSCR
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 123 Top = 123
Width = 1233 Width = 1241
Height = 289 Height = 297
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -244,9 +244,11 @@ object frmYSCR: TfrmYSCR
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column2
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column1
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -430,7 +432,7 @@ object frmYSCR: TfrmYSCR
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 101 Top = 101
Width = 1233 Width = 1241
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -443,13 +445,13 @@ object frmYSCR: TfrmYSCR
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1233 ClientRectRight = 1241
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 412 Top = 420
Width = 1233 Width = 1241
Height = 237 Height = 237
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4

53
应收应付/U_YSMXlist.dfm
View File

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

2
应收应付/U_YSMXlist.pas
View File

@ -170,7 +170,7 @@ begin
end; end;
sql.Add(',@YFGSType='''' '); sql.Add(',@YFGSType='''' ');
sql.Add(',@ISHS=' + quotedstr(Trim(ISHS.Text))); sql.Add(',@ISHS=' + quotedstr(Trim(ISHS.Text)));
//ShowMessage(sql.Text); ShowMessage(sql.Text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);

18
应收应付/U_YSSKList.dfm
View File

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

15
应收应付/U_YSSKList.pas
View File

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

6
应收应付/U_testdll.dfm
View File

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

2
应收应付/YSYF.dof
View File

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

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

@ -1,6 +1,6 @@
object frmCPCKMdList: TfrmCPCKMdList object frmCPCKMdList: TfrmCPCKMdList
Left = 253 Left = 560
Top = 323 Top = 371
Width = 1128 Width = 1128
Height = 516 Height = 516
Caption = #30721#21333#25171#21360 Caption = #30721#21333#25171#21360

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

@ -1,6 +1,6 @@
object frmPBFHSQInPut: TfrmPBFHSQInPut object frmPBFHSQInPut: TfrmPBFHSQInPut
Left = 466 Left = 524
Top = 165 Top = 378
Width = 1075 Width = 1075
Height = 665 Height = 665
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837
@ -18,7 +18,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1059 Width = 1067
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -58,7 +58,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1059 Width = 1067
Height = 104 Height = 104
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -349,7 +349,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 133 Top = 133
Width = 1059 Width = 1067
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -389,8 +389,8 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 162 Top = 162
Width = 1059 Width = 1067
Height = 464 Height = 472
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

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

File diff suppressed because it is too large Load Diff

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -1,6 +1,6 @@
object frmFinishedClothOutList: TfrmFinishedClothOutList object frmFinishedClothOutList: TfrmFinishedClothOutList
Left = 111 Left = 772
Top = 91 Top = 528
Width = 1151 Width = 1151
Height = 515 Height = 515
Caption = #25104#21697#20986#24211#31649#29702 Caption = #25104#21697#20986#24211#31649#29702
@ -20,7 +20,7 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1135 Width = 1143
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -65,7 +65,7 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 189 Left = 189
Top = 3 Top = 0
Width = 172 Width = 172
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -114,7 +114,7 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1135 Width = 1143
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -440,7 +440,7 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 94 Top = 94
Width = 1135 Width = 1143
Height = 30 Height = 30
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -481,7 +481,7 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
object Panel6: TPanel object Panel6: TPanel
Left = 205 Left = 205
Top = 0 Top = 0
Width = 930 Width = 938
Height = 30 Height = 30
Align = alClient Align = alClient
AutoSize = True AutoSize = True
@ -489,7 +489,7 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 1 TabOrder = 1
DesignSize = ( DesignSize = (
926 934
26) 26)
object Label7: TLabel object Label7: TLabel
Left = 64 Left = 64
@ -581,8 +581,8 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 124 Top = 124
Width = 1135 Width = 1143
Height = 352 Height = 360
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
@ -716,12 +716,6 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
end end
object Tv1Column11: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter
Width = 78
end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'P_CodeName' DataBinding.FieldName = 'P_CodeName'
@ -749,10 +743,10 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
Width = 55 Width = 55
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #32463#36724#25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 93
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #26465#30721 Caption = #26465#30721

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

@ -123,7 +123,6 @@ type
carno: TEdit; carno: TEdit;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -180,6 +179,7 @@ begin
cxgrdMJLen.Visible := True; cxgrdMJLen.Visible := True;
Tv1Column8.Visible := True; Tv1Column8.Visible := True;
Tv1Column9.Visible := True; Tv1Column9.Visible := True;
v1Column10.Visible := True;
Tv1Column3.Visible := True; Tv1Column3.Visible := True;
ToolButton1.Visible := True; ToolButton1.Visible := True;
end; end;
@ -236,6 +236,7 @@ begin
sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(',' + QuotedStr(fwhere) + ' '); sql.Add(',' + QuotedStr(fwhere) + ' ');
//ShowMessage(sql.text);
end; end;
1: /////////////////////////Ã÷ϸ////////////////////////////// 1: /////////////////////////Ã÷ϸ//////////////////////////////
begin begin
@ -249,6 +250,7 @@ begin
sql.Add('@pageIndex=' + inttostr(CurrentPage)); sql.Add('@pageIndex=' + inttostr(CurrentPage));
sql.Add(',@pageSize=' + inttostr(RecordsNumber)); sql.Add(',@pageSize=' + inttostr(RecordsNumber));
sql.Add(',@criteria= ' + quotedstr(fwhere)); sql.Add(',@criteria= ' + quotedstr(fwhere));
//ShowMessage(sql.text);
end; end;
end; end;
//ShowMessage(SQL.Text); //ShowMessage(SQL.Text);

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

@ -97,6 +97,14 @@ begin
dtbase := 'chenfengdata'; dtbase := 'chenfengdata';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
// server := '127.0.0.1';
//// server := '.';
// dtbase := 'delphichenfeng';
// user := 'sa';
// pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
end end

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

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

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

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

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

@ -74,10 +74,10 @@ begin
dtbase := 'chenfengdata'; dtbase := 'chenfengdata';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
// server := '.'; // server := '127.0.0.1';
// dtbase := 'yiduidata'; // dtbase := 'delphichenfeng';
// user := 'sa'; // user := 'sa';
// pswd := 'rightsoft'; // pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
end end
else else

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

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

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

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

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

@ -1,6 +1,6 @@
object frmClothSCInPut: TfrmClothSCInPut object frmClothSCInPut: TfrmClothSCInPut
Left = 193 Left = 363
Top = 149 Top = 107
Width = 1464 Width = 1464
Height = 760 Height = 760
Align = alClient Align = alClient

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

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

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

@ -1,6 +1,6 @@
object frmShuttleClothSCList: TfrmShuttleClothSCList object frmShuttleClothSCList: TfrmShuttleClothSCList
Left = 746 Left = 165
Top = 656 Top = 220
Width = 1377 Width = 1377
Height = 579 Height = 579
Caption = #26797#32455#32455#36896#21333 Caption = #26797#32455#32455#36896#21333

10
纱线仓库/U_ShaKCHZList.dfm
View File

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

17
纱线仓库/U_ShaKCHZList.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit; RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
cxNavigator;
type type
TfrmShaKCHZList = class(TForm) TfrmShaKCHZList = class(TForm)

16
纱线仓库/U_ShaKCList.dfm
View File

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

17
纱线仓库/U_ShaKCList.pas
View File

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

31
纱线仓库/U_ShaOutList.dfm
View File

@ -1,8 +1,8 @@
object frmShaOutList: TfrmShaOutList object frmShaOutList: TfrmShaOutList
Left = 363 Left = 245
Top = 647 Top = 178
Width = 1356 Width = 1356
Height = 667 Height = 884
Caption = #32433#32447#20986#24211#21015#34920 Caption = #32433#32447#20986#24211#21015#34920
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -21,7 +21,7 @@ object frmShaOutList: TfrmShaOutList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1348 Width = 1340
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -107,7 +107,7 @@ object frmShaOutList: TfrmShaOutList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1348 Width = 1340
Height = 61 Height = 61
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -335,8 +335,8 @@ object frmShaOutList: TfrmShaOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 116 Top = 116
Width = 1348 Width = 1340
Height = 520 Height = 729
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -363,11 +363,16 @@ object frmShaOutList: TfrmShaOutList
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Header = cxStyle1 Styles.Header = cxStyle1
object Tv1Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'Y_ID' DataBinding.FieldName = 'Y_ID'
@ -569,7 +574,7 @@ object frmShaOutList: TfrmShaOutList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 94 Top = 94
Width = 1348 Width = 1340
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -582,7 +587,7 @@ object frmShaOutList: TfrmShaOutList
#24050#20316#24223#25968#25454) #24050#20316#24223#25968#25454)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1348 ClientRectRight = 1340
ClientRectTop = 23 ClientRectTop = 23
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
@ -703,4 +708,10 @@ object frmShaOutList: TfrmShaOutList
Font.Style = [fsBold] Font.Style = [fsBold]
end end
end end
object CDS_Print: TClientDataSet
Aggregates = <>
Params = <>
Left = 208
Top = 264
end
end end

262
纱线仓库/U_ShaOutList.pas
View File

@ -105,6 +105,8 @@ type
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
Note: TEdit; Note: TEdit;
Label7: TLabel; Label7: TLabel;
Tv1Column2: TcxGridDBColumn;
CDS_Print: TClientDataSet;
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);
@ -229,7 +231,7 @@ begin
TBEdit.Visible := False; TBEdit.Visible := False;
cxTabControl1.Visible := False; cxTabControl1.Visible := False;
end; end;
ReadCxGrid('纱线出库列表121', Tv1, '纱线仓库'); //ReadCxGrid('纱线出库列表121', Tv1, '纱线仓库');
if Trim(FFY_ID) <> '' then if Trim(FFY_ID) <> '' then
begin begin
TBAdd.Visible := False; TBAdd.Visible := False;
@ -523,51 +525,237 @@ begin
end; end;
end; end;
//procedure TfrmShaOutList.ToolButton1Click(Sender: TObject);
//var
// filepath: string;
// mBegdate, mEnddate: string;
// FName, FNameSX, FNameJX: string;
// i: Integer;
//begin
// for i := 0 to Tv1.ColumnCount - 1 do
// begin
// FName := Tv1.Columns[i].DataBinding.FilterFieldName;
// FNameSX := Trim(FName) + '-1';
// FNameJX := Trim(FName) + '-2';
// CDS_Main.AddIndex(FNameSX, FName, []); { 正序 }
// CDS_Main.AddIndex(FNameJX, FName, [ixDescending]); { 倒序 }
// if Tv1.Columns[i].SortOrder = soDescending then
// begin
// CDS_Main.IndexName := FNameJX;
// end
// else if Tv1.Columns[i].SortOrder = soAscending then
// begin
// CDS_Main.IndexName := FNameSX;
// end;
// end;
// mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
// mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
// if CDS_Main.IsEmpty then
// exit;
//
// ExportFtErpFile('纱线出库报表.rmf', ADOQueryTemp);
// try
// filepath := ExtractFilePath(Application.ExeName) + 'report\纱线出库报表.rmf';
// if not FileExists(Pchar(filepath)) then
// begin
// application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
// exit;
// end;
// RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);
// RM1.LoadFromFile(filepath);
// RM1.ShowReport;
// finally
//
// end;
//
//end;
//procedure TfrmShaOutList.ToolButton1Click(Sender: TObject);
//var
// filepath: string;
// mBegdate, mEnddate: string;
// FName, FNameSX, FNameJX: string;
// i: Integer;
// SelectedRecords: TStringList;
// RecordID: string;
//begin
// for i := 0 to Tv1.ColumnCount - 1 do
// begin
// FName := Tv1.Columns[i].DataBinding.FilterFieldName;
// FNameSX := Trim(FName) + '-1';
// FNameJX := Trim(FName) + '-2';
// CDS_Main.AddIndex(FNameSX, FName, []); { 正序 }
// CDS_Main.AddIndex(FNameJX, FName, [ixDescending]); { 倒序 }
// if Tv1.Columns[i].SortOrder = soDescending then
// begin
// CDS_Main.IndexName := FNameJX;
// end
// else if Tv1.Columns[i].SortOrder = soAscending then
// begin
// CDS_Main.IndexName := FNameSX;
// end;
// end;
//
// mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
// mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
//
// if CDS_Main.IsEmpty then
// exit;
//
// SelectedRecords := TStringList.Create;
// try
// CDS_Main.DisableControls;
// try
// CDS_Main.First;
//
//
// while CDS_Main.Locate('ssel', True, []) do
// begin
// RecordID := CDS_Main.FieldByName('Y_ID').AsString;
// SelectedRecords.Add(RecordID);
// CDS_Main.Edit;
// CDS_Main.FieldByName('ssel').AsBoolean := False;
// CDS_Main.Post;
// end;
// finally
// CDS_Main.EnableControls;
// end;
//
// if SelectedRecords.Count = 0 then
// begin
// ShowMessage('请先选择要导出的记录！');
// Exit;
// end;
//
// for i := 0 to SelectedRecords.Count - 1 do
// begin
// if CDS_Main.Locate('Y_ID', SelectedRecords[i], []) then
// begin
// end;
// end;
//
// ExportFtErpFile('纱线出库报表.rmf', ADOQueryTemp);
//
// try
// filepath := ExtractFilePath(Application.ExeName) + 'report\纱线出库报表.rmf';
// if not FileExists(Pchar(filepath)) then
// begin
// application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
// exit;
// end;
//
// // 可以添加选中记录的信息到报表变量
// // 例如：选中的记录数量、选中的记录ID列表等
// RMVariables['SelectedCount'] := IntToStr(SelectedRecords.Count);
// RMVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' +
// FormatDateTime('yymmdd', enddate.Date);
//
// RM1.LoadFromFile(filepath);
// RM1.ShowReport;
// finally
// // 可以在这里添加清理代码
// end;
//
// finally
// SelectedRecords.Free;
// end;
//end;
procedure TfrmShaOutList.ToolButton1Click(Sender: TObject); procedure TfrmShaOutList.ToolButton1Click(Sender: TObject);
var var
filepath: string; fPrintFile, Txt, fImagePath, YIDSql: string;
mBegdate, mEnddate: string; Moudle: THandle;
FName, FNameSX, FNameJX: string; Makebar: TMakebar;
i: Integer; Mixtext: TMixtext;
SelectedCount: Integer;
begin begin
for i := 0 to Tv1.ColumnCount - 1 do
begin
FName := Tv1.Columns[i].DataBinding.FilterFieldName;
FNameSX := Trim(FName) + '-1';
FNameJX := Trim(FName) + '-2';
CDS_Main.AddIndex(FNameSX, FName, []); { 正序 }
CDS_Main.AddIndex(FNameJX, FName, [ixDescending]); { 倒序 }
if Tv1.Columns[i].SortOrder = soDescending then
begin
CDS_Main.IndexName := FNameJX;
end
else if Tv1.Columns[i].SortOrder = soAscending then
begin
CDS_Main.IndexName := FNameSX;
end;
end;
mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
if CDS_Main.IsEmpty then if CDS_Main.IsEmpty then
exit; Exit;
ExportFtErpFile('纱线出库报表.rmf', ADOQueryTemp);
try
filepath := ExtractFilePath(Application.ExeName) + 'report\纱线出库报表.rmf';
if not FileExists(Pchar(filepath)) then
begin
application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
exit;
end;
RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);
RM1.LoadFromFile(filepath);
RM1.ShowReport;
finally
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end; end;
SelectedCount := 0;
YIDSql := '';
CDS_Main.DisableControls;
try
with CDS_Main do
begin
First;
while Locate('SSel', True, [loCaseInsensitive]) do
begin
// 构建Y_ID的IN条件
if YIDSql <> '' then
YIDSql := YIDSql + ',' + QuotedStr(Trim(FieldByName('Y_ID').AsString))
else
YIDSql := QuotedStr(Trim(FieldByName('Y_ID').AsString));
Inc(SelectedCount);
Edit;
FieldByName('SSel').Value := False;
Post;
end;
end;
finally
CDS_Main.EnableControls;
end;
if YIDSql = '' then
begin
Application.MessageBox('未选择任何数据!', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(' from CK_Yarn_CR A');
sql.Add(' where isnull(CKName,'''')=''纱线''');
SQL.Add(' and CRFlag=''出库''');
// 添加日期范围条件（根据您的需求可选）
// sql.Add(' and A.CRTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + '''');
// sql.Add(' and A.CRTime<''' + FormatDateTime('yyyy-MM-dd', enddate.Date + 1) + '''');
// 添加勾选数据条件
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); // 使用CDS_PRT而不是CDS_Main
SInitCDSData20(ADOQueryCmd, CDS_PRT);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线出库报表.rmf';
ExportFtErpFile('纱线出库报表.rmf', ADOQueryTemp);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('未找到报表文件：' + #13#10 + fPrintFile), '提示', MB_ICONWARNING);
end;
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);
var var
id: Integer; id: Integer;

4
纱线仓库/U_ShaOutPut.dfm
View File

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

18
纱线仓库/U_ShaRKInPut.dfm
View File

@ -1,6 +1,6 @@
object frmShaRKInPut: TfrmShaRKInPut object frmShaRKInPut: TfrmShaRKInPut
Left = 186 Left = 407
Top = 133 Top = 186
Width = 1288 Width = 1288
Height = 635 Height = 635
Align = alClient Align = alClient
@ -56,6 +56,7 @@ object frmShaRKInPut: TfrmShaRKInPut
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.Inactive = DataLink_Yarn.SHuangSe Styles.Inactive = DataLink_Yarn.SHuangSe
Styles.IncSearch = DataLink_Yarn.SHuangSe Styles.IncSearch = DataLink_Yarn.SHuangSe
Styles.Selection = DataLink_Yarn.SHuangSe Styles.Selection = DataLink_Yarn.SHuangSe
@ -89,7 +90,7 @@ object frmShaRKInPut: TfrmShaRKInPut
end> end>
Properties.OnButtonClick = FactoryNameLPropertiesButtonClick Properties.OnButtonClick = FactoryNameLPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 118 Width = 170
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Tag = 2 Tag = 2
@ -452,4 +453,15 @@ object frmShaRKInPut: TfrmShaRKInPut
Left = 599 Left = 599
Top = 260 Top = 260
end end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
end
end
end end

2
纱线仓库/U_ShaRKInPut.pas
View File

@ -70,6 +70,8 @@ type
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

4
纱线仓库/U_ShaRKList.dfm
View File

@ -1,6 +1,6 @@
object frmShaRKList: TfrmShaRKList object frmShaRKList: TfrmShaRKList
Left = 198 Left = 646
Top = 147 Top = 283
Width = 1396 Width = 1396
Height = 649 Height = 649
Caption = #32433#32447#20837#24211#21015#34920 Caption = #32433#32447#20837#24211#21015#34920

16
纱线仓库/U_YarnList.dfm
View File

@ -1,6 +1,6 @@
object frmYarnList: TfrmYarnList object frmYarnList: TfrmYarnList
Left = 329 Left = 142
Top = 250 Top = 480
Width = 1270 Width = 1270
Height = 700 Height = 700
Caption = #32433#32447#36164#26009 Caption = #32433#32447#36164#26009
@ -178,13 +178,13 @@ object frmYarnList: TfrmYarnList
Left = 0 Left = 0
Top = 70 Top = 70
Width = 1254 Width = 1254
Height = 592 Height = 591
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
NavigatorButtons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
OnFocusedRecordChanged = Tv2FocusedRecordChanged OnFocusedRecordChanged = Tv2FocusedRecordChanged
DataController.DataSource = DS_HZ DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -253,10 +253,10 @@ object frmYarnList: TfrmYarnList
DataBinding.FieldName = 'Y_Spec' DataBinding.FieldName = 'Y_Spec'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
VisibleForCustomization = False
Width = 72 Width = 72
end end
object v2Column4: TcxGridDBColumn object v2Column4: TcxGridDBColumn
@ -264,10 +264,10 @@ object frmYarnList: TfrmYarnList
DataBinding.FieldName = 'Y_CF' DataBinding.FieldName = 'Y_CF'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
VisibleForCustomization = False
Width = 74 Width = 74
end end
object v2Column14: TcxGridDBColumn object v2Column14: TcxGridDBColumn

16
纱线仓库/U_YarnList.pas
View File

@ -13,7 +13,21 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, Menus, cxLookAndFeelPainters, cxButtons, cxContainer, cxImage, cxTextEdit, Menus, cxLookAndFeelPainters, cxButtons, cxContainer, cxImage,
cxDBEdit; cxDBEdit, cxLookAndFeels, 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
FdDy = record FdDy = record

4
纱线仓库/U_testdll.dfm
View File

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

2
纱线仓库/Yarn.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\³Â·á\É´Ïß²Ö¿â\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\É´Ïß²Ö¿â\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

14
经轴仓库(Warehouse.dll)/U_EmptyRollerRklist.dfm
View File

@ -1,8 +1,8 @@
object frmEmptyRollerRklist: TfrmEmptyRollerRklist object frmEmptyRollerRklist: TfrmEmptyRollerRklist
Left = 226 Left = 537
Top = 0 Top = 571
Width = 1382 Width = 1382
Height = 699 Height = 514
Caption = #31354#36724#20837#24211#31649#29702 Caption = #31354#36724#20837#24211#31649#29702
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -20,7 +20,7 @@ object frmEmptyRollerRklist: TfrmEmptyRollerRklist
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1374 Width = 1366
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -99,7 +99,7 @@ object frmEmptyRollerRklist: TfrmEmptyRollerRklist
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1374 Width = 1366
Height = 77 Height = 77
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -302,8 +302,8 @@ object frmEmptyRollerRklist: TfrmEmptyRollerRklist
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 109 Top = 109
Width = 1374 Width = 1366
Height = 559 Height = 366
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2

15
经轴仓库(Warehouse.dll)/U_EmptyRollerRklist.pas
View File

@ -12,7 +12,20 @@ uses
cxTextEdit, cxCurrencyEdit, cxCheckBox, RM_System, RM_Dataset, RM_Common, cxTextEdit, cxCurrencyEdit, cxCheckBox, RM_System, RM_Dataset, RM_Common,
RM_Class, RM_GridReport, cxPC, Menus, RM_e_Xls, cxLookAndFeels, RM_Class, RM_GridReport, cxPC, Menus, RM_e_Xls, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter, cxNavigator; dxSkinscxPCPainter, cxNavigator, 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
TfrmEmptyRollerRklist = class(TForm) TfrmEmptyRollerRklist = class(TForm)

4
经轴仓库(Warehouse.dll)/U_EmptyRollerkCList.dfm
View File

@ -131,7 +131,7 @@ object frmEmptyRollerkCList: TfrmEmptyRollerkCList
Left = 0 Left = 0
Top = 85 Top = 85
Width = 1282 Width = 1282
Height = 520 Height = 519
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBtnShadow Font.Color = clBtnShadow
@ -142,7 +142,7 @@ object frmEmptyRollerkCList: TfrmEmptyRollerkCList
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <

16
经轴仓库(Warehouse.dll)/U_EmptyRollerkCList.pas
View File

@ -10,7 +10,21 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, MMSystem, Menus, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, MMSystem, Menus,
BtnEdit; BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
cxNavigator;
type type
TfrmEmptyRollerkCList = class(TForm) TfrmEmptyRollerkCList = class(TForm)

23
经轴仓库(Warehouse.dll)/U_WarpRollerCklist.dfm
View File

@ -1,6 +1,6 @@
object frmWarpRollerCklist: TfrmWarpRollerCklist object frmWarpRollerCklist: TfrmWarpRollerCklist
Left = 344 Left = 178
Top = 440 Top = 140
Width = 1378 Width = 1378
Height = 615 Height = 615
Caption = #32463#36724#20986#24211#31649#29702 Caption = #32463#36724#20986#24211#31649#29702
@ -80,9 +80,16 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
ImageIndex = 68 ImageIndex = 68
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object ToolButton1: TToolButton
Left = 315 Left = 315
Top = 0 Top = 0
Caption = #25171#21360
ImageIndex = 4
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 374
Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
@ -284,7 +291,7 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
object edtKaNo: TEdit object edtKaNo: TEdit
Tag = 2 Tag = 2
Left = 538 Left = 538
Top = 10 Top = 9
Width = 80 Width = 80
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
@ -521,7 +528,7 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
end end
object RMDB_Main: TRMDBDataSet object RMDB_Main: TRMDBDataSet
Visible = True Visible = True
DataSet = ADOPrint DataSet = CDS_Print
Left = 443 Left = 443
Top = 262 Top = 262
end end
@ -691,4 +698,10 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
OnClick = N2Click OnClick = N2Click
end end
end end
object CDS_Print: TClientDataSet
Aggregates = <>
Params = <>
Left = 200
Top = 240
end
end end

101
经轴仓库(Warehouse.dll)/U_WarpRollerCklist.pas
View File

@ -102,6 +102,8 @@ type
edtKaNo: TEdit; edtKaNo: TEdit;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
ToolButton1: TToolButton;
CDS_Print: TClientDataSet;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
@ -116,6 +118,7 @@ type
procedure v1Column6CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); procedure v1Column6CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure InitForm(); procedure InitForm();
@ -131,7 +134,7 @@ var
implementation implementation
uses uses
U_DataLink, U_Fun10, U_ZDYHelp, U_WarpRollerCk; U_DataLink, U_Fun10, U_ZDYHelp, U_WarpRollerCk, U_RTFun, U_Fun;
{$R *.dfm} {$R *.dfm}
procedure TfrmWarpRollerCklist.InitForm(); procedure TfrmWarpRollerCklist.InitForm();
@ -347,5 +350,101 @@ begin
SelOKNo(CDS_Main, False); SelOKNo(CDS_Main, False);
end; end;
procedure TfrmWarpRollerCklist.ToolButton1Click(Sender: TObject);
var
fPrintFile, Txt, fImagePath, JYRKIDSql: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
SelectedCount: Integer;
begin
if CDS_Main.IsEmpty then
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
SelectedCount := 0;
JYRKIDSql := '';
CDS_Main.DisableControls;
try
with CDS_Main do
begin
First;
while Locate('SSel', True, [loCaseInsensitive]) do
begin
// 构建JZRKID的IN条件
if JYRKIDSql <> '' then
JYRKIDSql := JYRKIDSql + ',' + QuotedStr(Trim(FieldByName('JZRKID').AsString))
else
JYRKIDSql := ' and A.JZRKID in (' + QuotedStr(Trim(FieldByName('JZRKID').AsString));
Inc(SelectedCount);
Edit;
FieldByName('SSel').Value := False;
Post;
end;
end;
finally
CDS_Main.EnableControls;
end;
if JYRKIDSql <> '' then
JYRKIDSql := JYRKIDSql + ')'
else
begin
Application.MessageBox('未选择任何数据!', '提示', 0);
Exit;
end;
// 执行查询
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add(' select A.* ,edzdfNo,edtKaNo,C_TouWen,ZJPiLen,C_ShangPai,C_PiE,C_Len,APMachineNo ,edZDFNo ');
SQL.Add(',CarNo2=(SELECT MACHNO FROM BS_Machine k where k.machid= ');
SQL.Add(' (SELECT top 1 CARNO FROM CK_YgCl E WHERE E.MJID=A.PCID AND CLTYPE=''上轴''))');
SQL.Add(',P_CODE=(select TOP 1 P_CODE from PD_Plan_SUB e ');
SQL.Add(' where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))');
SQL.Add(',P_codeNAME=(select TOP 1 P_codeNAME from PD_Plan_SUB e ');
SQL.Add(' where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))');
SQL.Add(' from CK_WarpBeam_CR A LEFT JOIN PD_PLAN_cARD B ON A.PCID=B.PCID ');
SQL.Add(' where A.CRFlag=''出库'' ');
SQL.Add(JYRKIDSql);
Open;
end;
if ADOQueryCmd.IsEmpty then
begin
Application.MessageBox('未找到对应的整经轴数据！', '提示信息', MB_ICONINFORMATION);
Exit;
end;
SCreateCDS20(ADOQueryCmd, CDS_Print);
SInitCDSData20(ADOQueryCmd, CDS_Print);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\经轴出库清单.rmf';
ExportFtErpFile('经轴出库清单.rmf', ADOQueryTmp);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('未找到报表文件：' + #13#10 + fPrintFile), '提示', MB_ICONWARNING);
end;
end;
end. end.

4
经轴仓库(Warehouse.dll)/U_WarpRollerRklist.dfm
View File

@ -1,6 +1,6 @@
object frmWarpRollerRklist: TfrmWarpRollerRklist object frmWarpRollerRklist: TfrmWarpRollerRklist
Left = -38 Left = 376
Top = 299 Top = 283
Width = 1475 Width = 1475
Height = 686 Height = 686
Caption = #32463#36724#20837#24211#31649#29702 Caption = #32463#36724#20837#24211#31649#29702