Compare commits
4 Commits
8481cb86fa
...
889aa06bd5
| Author | SHA1 | Date | |
|---|---|---|---|
|
889aa06bd5 | ||
|
|
c7a02def1c | ||
|
|
6f219d26d4 | ||
|
|
b7cc5e8312 |
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
[ExpressSkins]
|
||||
Default=1
|
||||
ShowNotifications=1
|
||||
Enabled=0
|
||||
Enabled=1
|
||||
dxSkinBlack=1
|
||||
dxSkinBlue=1
|
||||
dxSkinBlueprint=1
|
||||
|
|
|
|||
|
|
@ -19,7 +19,8 @@ object frmContractListCG: TfrmContractListCG
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 62
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
|
|
@ -99,35 +100,36 @@ object frmContractListCG: TfrmContractListCG
|
|||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 4
|
||||
Wrap = True
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object btnTijiao: TToolButton
|
||||
Left = 528
|
||||
Top = 0
|
||||
Left = 0
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25552#20132
|
||||
ImageIndex = 31
|
||||
OnClick = btnTijiaoClick
|
||||
end
|
||||
object btnCXTijiao: TToolButton
|
||||
Left = 591
|
||||
Top = 0
|
||||
Left = 63
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#25552#20132
|
||||
ImageIndex = 52
|
||||
OnClick = btnCXTijiaoClick
|
||||
end
|
||||
object tchk: TToolButton
|
||||
Left = 678
|
||||
Top = 0
|
||||
Left = 150
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #23457#26680
|
||||
ImageIndex = 31
|
||||
OnClick = tchkClick
|
||||
end
|
||||
object Tnochk: TToolButton
|
||||
Left = 741
|
||||
Top = 0
|
||||
Left = 213
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23457#26680
|
||||
ImageIndex = 52
|
||||
|
|
@ -135,32 +137,32 @@ object frmContractListCG: TfrmContractListCG
|
|||
OnClick = TnochkClick
|
||||
end
|
||||
object Tqx: TToolButton
|
||||
Left = 828
|
||||
Top = 0
|
||||
Left = 300
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #21512#21516#21462#28040
|
||||
ImageIndex = 3
|
||||
OnClick = TqxClick
|
||||
end
|
||||
object Tnoqx: TToolButton
|
||||
Left = 915
|
||||
Top = 0
|
||||
Left = 387
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#21512#21516#21462#28040
|
||||
ImageIndex = 52
|
||||
OnClick = TnoqxClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 1026
|
||||
Top = 0
|
||||
Left = 498
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25805#20316#26085#24535
|
||||
ImageIndex = 22
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 1113
|
||||
Top = 0
|
||||
Left = 585
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 21
|
||||
|
|
@ -169,8 +171,8 @@ object frmContractListCG: TfrmContractListCG
|
|||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 97
|
||||
Width = 1366
|
||||
Top = 127
|
||||
Width = 1374
|
||||
Height = 394
|
||||
Align = alTop
|
||||
TabOrder = 3
|
||||
|
|
@ -404,8 +406,8 @@ object frmContractListCG: TfrmContractListCG
|
|||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1366
|
||||
Top = 62
|
||||
Width = 1374
|
||||
Height = 43
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -633,8 +635,8 @@ object frmContractListCG: TfrmContractListCG
|
|||
end
|
||||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 75
|
||||
Width = 1366
|
||||
Top = 105
|
||||
Width = 1374
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -649,22 +651,22 @@ object frmContractListCG: TfrmContractListCG
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1366
|
||||
ClientRectRight = 1374
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 707
|
||||
Width = 1366
|
||||
Top = 715
|
||||
Width = 1374
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 491
|
||||
Width = 1366
|
||||
Height = 216
|
||||
Top = 521
|
||||
Width = 1374
|
||||
Height = 194
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object TV2: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -11,7 +11,20 @@ uses
|
|||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
|
||||
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
|
||||
TfrmContractListCG = class(TForm)
|
||||
|
|
|
|||
|
|
@ -19,7 +19,7 @@ object frmContractListJG: TfrmContractListJG
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 62
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
|
|
@ -172,12 +172,12 @@ object frmContractListJG: TfrmContractListJG
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 127
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 394
|
||||
Align = alTop
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
OnCustomDrawCell = Tv1CustomDrawCell
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
|
|
@ -270,7 +270,7 @@ object frmContractListJG: TfrmContractListJG
|
|||
object v1Column10: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'status'
|
||||
Visible = False
|
||||
Hidden = True
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #21512#21516#38468#20214
|
||||
|
|
@ -337,7 +337,7 @@ object frmContractListJG: TfrmContractListJG
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 43
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -551,13 +551,14 @@ object frmContractListJG: TfrmContractListJG
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 22
|
||||
Align = alTop
|
||||
Style = 9
|
||||
TabIndex = 0
|
||||
TabOrder = 2
|
||||
Tabs.Strings = (
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#26410#25552#20132
|
||||
#24050#25552#20132
|
||||
#24050#23457#26680
|
||||
|
|
@ -565,13 +566,13 @@ object frmContractListJG: TfrmContractListJG
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1366
|
||||
ClientRectRight = 1374
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 708
|
||||
Width = 1366
|
||||
Top = 715
|
||||
Width = 1374
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
|
|
@ -579,12 +580,12 @@ object frmContractListJG: TfrmContractListJG
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 521
|
||||
Width = 1366
|
||||
Height = 187
|
||||
Width = 1374
|
||||
Height = 194
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object TV2: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DS_Sub
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
|
|
|
|||
|
|
@ -10,7 +10,22 @@ uses
|
|||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
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
|
||||
TfrmContractListJG = class(TForm)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmContractListNX: TfrmContractListNX
|
||||
Left = 382
|
||||
Top = 287
|
||||
Left = 225
|
||||
Top = 246
|
||||
Width = 1381
|
||||
Height = 716
|
||||
Caption = #38144#21806#21512#21516
|
||||
|
|
@ -20,7 +20,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1373
|
||||
Width = 1365
|
||||
Height = 62
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
|
|
@ -205,7 +205,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 139
|
||||
Width = 1373
|
||||
Width = 1365
|
||||
Height = 362
|
||||
Align = alTop
|
||||
TabOrder = 3
|
||||
|
|
@ -462,7 +462,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Width = 1373
|
||||
Width = 1365
|
||||
Height = 43
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -689,7 +689,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1373
|
||||
Width = 1365
|
||||
Height = 34
|
||||
Align = alTop
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -701,7 +701,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
TabOrder = 2
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.TabIndex = 4
|
||||
Properties.Tabs.Strings = (
|
||||
#26410#25552#20132
|
||||
#24050#25552#20132
|
||||
|
|
@ -710,14 +710,14 @@ object frmContractListNX: TfrmContractListNX
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 34
|
||||
ClientRectRight = 1373
|
||||
ClientRectRight = 1365
|
||||
ClientRectTop = 26
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 509
|
||||
Width = 1373
|
||||
Height = 176
|
||||
Width = 1365
|
||||
Height = 168
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object Tv2: TcxGridDBTableView
|
||||
|
|
@ -1048,7 +1048,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object cxSplitter2: TcxSplitter
|
||||
Left = 0
|
||||
Top = 501
|
||||
Width = 1373
|
||||
Width = 1365
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salTop
|
||||
|
|
|
|||
|
|
@ -519,7 +519,7 @@ begin
|
|||
sql.Add(',Telephone=( select TOP 1 Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''¿Í»§'' and Y.Valid=''Y'' and Y.Code= A.buyno) ');
|
||||
sql.Add(' from Contract_Main A inner join Contract_Sub B on A.ConMainId=B.ConMainId ');
|
||||
sql.Add(' where A.ConMainId=''' + Trim(CDS_Main.fieldbyname('ConMainId').AsString) + '''');
|
||||
sql.Add(' order by B.XHNo ');
|
||||
sql.Add(' order by cast(B.XHNo as int) ');
|
||||
//ShowMessage(SQL.Text);
|
||||
Open;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -74,6 +74,12 @@ begin
|
|||
dtbase := 'chenfengdata';
|
||||
user := 'rtsa';
|
||||
pswd := 'rightsoft@5740';
|
||||
//
|
||||
// server := '127.0.0.1';
|
||||
// dtbase := 'delphichenfeng';
|
||||
// user := 'sa';
|
||||
// pswd := 'rightsoft';
|
||||
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
// DName:='ADMIN';
|
||||
// DParameters1:='¸ßȨÏÞ';
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmjhfxlist: Tfrmjhfxlist
|
||||
Left = 201
|
||||
Top = 51
|
||||
Left = 383
|
||||
Top = 189
|
||||
Width = 1293
|
||||
Height = 795
|
||||
Caption = #35745#21010#20998#26512#34920
|
||||
|
|
|
|||
|
|
@ -11,7 +11,20 @@ uses
|
|||
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
||||
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxImage, cxBlobEdit,
|
||||
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
|
||||
Tfrmjhfxlist = class(TForm)
|
||||
|
|
@ -149,7 +162,7 @@ begin
|
|||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('exec P_ht_jhlist2 @consubid=''' + Trim(FMainId) + '''');
|
||||
|
||||
//showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOTemp, Order_Sub);
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object Form1: TForm1
|
||||
Left = 203
|
||||
Top = 121
|
||||
Left = 287
|
||||
Top = 401
|
||||
Width = 791
|
||||
Height = 554
|
||||
Caption = 'Form1'
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -82,10 +82,15 @@ begin
|
|||
|
||||
if Trim(DataBaseStr) = '' then
|
||||
begin
|
||||
server := '101.132.143.144,7781';
|
||||
dtbase := 'chenfengdata';
|
||||
user := 'rtsa';
|
||||
pswd := 'rightsoft@5740';
|
||||
// server := '101.132.143.144,7781';
|
||||
// dtbase := 'chenfengdata';
|
||||
// user := 'rtsa';
|
||||
// pswd := 'rightsoft@5740';
|
||||
|
||||
server := '127.0.0.1';
|
||||
dtbase := 'delphichenfeng';
|
||||
user := 'sa';
|
||||
pswd := 'rightsoft';
|
||||
|
||||
// server := '.';
|
||||
// dtbase := 'yiduidata';
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmSXCKOutList: TfrmSXCKOutList
|
||||
Left = 612
|
||||
Top = 524
|
||||
Left = 257
|
||||
Top = 129
|
||||
Width = 1314
|
||||
Height = 572
|
||||
Caption = #22383#24067#20986#24211#21015#34920
|
||||
|
|
@ -21,7 +21,7 @@ object frmSXCKOutList: TfrmSXCKOutList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1306
|
||||
Width = 1298
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -151,7 +151,7 @@ object frmSXCKOutList: TfrmSXCKOutList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1306
|
||||
Width = 1298
|
||||
Height = 72
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -334,8 +334,8 @@ object frmSXCKOutList: TfrmSXCKOutList
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1089
|
||||
Height = 436
|
||||
Width = 1081
|
||||
Height = 428
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
@ -624,10 +624,10 @@ object frmSXCKOutList: TfrmSXCKOutList
|
|||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 1089
|
||||
Left = 1081
|
||||
Top = 105
|
||||
Width = 217
|
||||
Height = 436
|
||||
Height = 428
|
||||
Align = alRight
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 3
|
||||
|
|
@ -635,7 +635,7 @@ object frmSXCKOutList: TfrmSXCKOutList
|
|||
Left = 1
|
||||
Top = 1
|
||||
Width = 215
|
||||
Height = 434
|
||||
Height = 426
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object TvMX: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -425,6 +425,7 @@ begin
|
|||
finally
|
||||
frmSXCKOutPut.Free;
|
||||
end;
|
||||
initGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmSXCKOutList.TBEditClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmSXCKOutPut: TfrmSXCKOutPut
|
||||
Left = 657
|
||||
Top = 566
|
||||
Left = 414
|
||||
Top = 377
|
||||
Width = 1215
|
||||
Height = 489
|
||||
Align = alClient
|
||||
|
|
@ -20,7 +20,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1207
|
||||
Width = 1199
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -82,8 +82,8 @@ object frmSXCKOutPut: TfrmSXCKOutPut
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1207
|
||||
Height = 425
|
||||
Width = 1199
|
||||
Height = 417
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object Form1: TForm1
|
||||
Left = 203
|
||||
Top = 121
|
||||
Left = 314
|
||||
Top = 397
|
||||
Width = 791
|
||||
Height = 554
|
||||
Caption = 'Form1'
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmCustomer: TfrmCustomer
|
||||
Left = 232
|
||||
Top = 249
|
||||
Left = 284
|
||||
Top = 358
|
||||
Width = 1388
|
||||
Height = 650
|
||||
Caption = #23458#25143#36164#26009#31649#29702
|
||||
|
|
@ -137,6 +137,13 @@ object frmCustomer: TfrmCustomer
|
|||
Height = 12
|
||||
Caption = #22320#21306
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 639
|
||||
Top = 13
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #23458#25143#31616#31216
|
||||
end
|
||||
object Name: TEdit
|
||||
Tag = 2
|
||||
Left = 238
|
||||
|
|
@ -173,6 +180,15 @@ object frmCustomer: TfrmCustomer
|
|||
TabOrder = 3
|
||||
OnChange = NameChange
|
||||
end
|
||||
object shortName: TEdit
|
||||
Tag = 2
|
||||
Left = 692
|
||||
Top = 9
|
||||
Width = 89
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = NameChange
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
|
|
|
|||
|
|
@ -83,6 +83,8 @@ type
|
|||
Tv2Column1: TcxGridDBColumn;
|
||||
ToolButton5: TToolButton;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Label5: TLabel;
|
||||
shortName: TEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object Form1: TForm1
|
||||
Left = 203
|
||||
Top = 121
|
||||
Left = 546
|
||||
Top = 403
|
||||
Width = 791
|
||||
Height = 554
|
||||
Caption = 'Form1'
|
||||
|
|
@ -21,7 +21,7 @@ object Form1: TForm1
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 775
|
||||
Width = 783
|
||||
Height = 25
|
||||
ButtonWidth = 57
|
||||
Caption = 'ToolBar1'
|
||||
|
|
|
|||
|
|
@ -9,9 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
|||
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||
#------------------------------------------------------------------------------
|
||||
PROJECTS =
|
||||
PROJECTS = FabricInspection.dll testDll.exe
|
||||
#------------------------------------------------------------------------------
|
||||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
FabricInspection.dll: FabricInspection.dpr
|
||||
$(DCC)
|
||||
|
||||
testDll.exe: testDll.dpr
|
||||
$(DCC)
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -10,7 +10,20 @@ uses
|
|||
cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls,
|
||||
ComCtrls, ToolWin, DBClient, ADODB, MovePanel, RM_Dataset, RM_System,
|
||||
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';
|
||||
|
||||
|
|
|
|||
|
|
@ -19,7 +19,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1454
|
||||
Width = 1446
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
@ -57,7 +57,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1454
|
||||
Width = 1446
|
||||
Height = 58
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -309,7 +309,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
|
|||
Left = 689
|
||||
Top = 90
|
||||
Width = 231
|
||||
Height = 598
|
||||
Height = 590
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -462,7 +462,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
|
|||
Left = 0
|
||||
Top = 90
|
||||
Width = 689
|
||||
Height = 598
|
||||
Height = 590
|
||||
Align = alLeft
|
||||
TabOrder = 2
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
@ -611,8 +611,8 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 920
|
||||
Top = 90
|
||||
Width = 534
|
||||
Height = 598
|
||||
Width = 526
|
||||
Height = 590
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object Tv2: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -11,7 +11,21 @@ uses
|
|||
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
|
||||
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
|
||||
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxCore, ActiveX, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
||||
dxCore, ActiveX, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter,
|
||||
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
||||
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
||||
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||||
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmClothSCDCGAnPai = class(TForm)
|
||||
|
|
|
|||
|
|
@ -65,15 +65,15 @@ begin
|
|||
SetLength(pswd, 255);
|
||||
if Trim(DataBaseStr) = '' then
|
||||
begin
|
||||
server := '101.132.143.144,7781';
|
||||
dtbase := 'chenfengdata';
|
||||
user := 'rtsa';
|
||||
pswd := 'rightsoft@5740';
|
||||
// server := '101.132.143.144,7781';
|
||||
// dtbase := 'chenfengdata';
|
||||
// user := 'rtsa';
|
||||
// pswd := 'rightsoft@5740';
|
||||
|
||||
// server := '.';
|
||||
// dtbase := 'yiduidata';
|
||||
// user := 'sa';
|
||||
// pswd := 'rightsoft';
|
||||
server := '127.0.0.1';
|
||||
dtbase := 'delphichenfeng';
|
||||
user := 'sa';
|
||||
pswd := 'rightsoft';
|
||||
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmGreyInspection: TfrmGreyInspection
|
||||
Left = 192
|
||||
Top = 41
|
||||
Left = 402
|
||||
Top = 267
|
||||
Width = 1316
|
||||
Height = 755
|
||||
Height = 862
|
||||
Caption = #26797#32455#22383#24067#26816#39564
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -22,7 +22,7 @@ object frmGreyInspection: TfrmGreyInspection
|
|||
Left = 0
|
||||
Top = 85
|
||||
Width = 217
|
||||
Height = 639
|
||||
Height = 746
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -764,7 +764,7 @@ object frmGreyInspection: TfrmGreyInspection
|
|||
Left = 217
|
||||
Top = 85
|
||||
Width = 296
|
||||
Height = 639
|
||||
Height = 746
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -773,7 +773,7 @@ object frmGreyInspection: TfrmGreyInspection
|
|||
Left = 2
|
||||
Top = 113
|
||||
Width = 292
|
||||
Height = 524
|
||||
Height = 631
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
|
|
@ -1145,7 +1145,7 @@ object frmGreyInspection: TfrmGreyInspection
|
|||
Left = 513
|
||||
Top = 85
|
||||
Width = 795
|
||||
Height = 639
|
||||
Height = 746
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
@ -1652,4 +1652,9 @@ object frmGreyInspection: TfrmGreyInspection
|
|||
Font.Style = [fsBold]
|
||||
end
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Parameters = <>
|
||||
Left = 824
|
||||
Top = 192
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -156,6 +156,7 @@ type
|
|||
ToolButton6: TToolButton;
|
||||
Tv3Column5: TcxGridDBColumn;
|
||||
Tv3Column6: TcxGridDBColumn;
|
||||
ADOQuery1: TADOQuery;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -739,11 +740,12 @@ begin
|
|||
if not ADOTmp.IsEmpty then
|
||||
begin
|
||||
// FAPID := Trim(ADOTmp.fieldbyname('apid').AsString);
|
||||
// FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
|
||||
FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
|
||||
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
|
||||
FSubId := Trim(ADOTmp.fieldbyname('SubId').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);
|
||||
FMJMF := Trim(ADOTmp.fieldbyname('P_MF').AsString);
|
||||
|
||||
|
|
@ -1290,13 +1292,21 @@ begin
|
|||
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('SubId').value := Trim(FSubId);
|
||||
FieldByName('APId').value := Trim(FAPID);
|
||||
|
||||
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_CodeName').value := Trim(FMJName);
|
||||
FieldByName('P_Spec').value := Trim(FMJSpec);
|
||||
|
|
@ -1315,6 +1325,8 @@ begin
|
|||
FieldByName('Person1').Value := trim(Person1.Text);
|
||||
FieldByName('Person2').Value := trim(Person2.Text);
|
||||
FieldByName('Person3').Value := trim(Person3.Text);
|
||||
FieldByName('Person4').Value := trim(Person4.Text);
|
||||
FieldByName('Person5').Value := trim(Person5.Text);
|
||||
|
||||
FieldByName('group1').Value := trim(Person1.hint);
|
||||
FieldByName('group2').Value := trim(Person2.hint);
|
||||
|
|
@ -1322,8 +1334,6 @@ begin
|
|||
FieldByName('group4').Value := trim(Person4.hint);
|
||||
FieldByName('group5').Value := trim(Person5.hint);
|
||||
|
||||
FieldByName('Person4').Value := trim(Person4.Text);
|
||||
FieldByName('Person5').Value := trim(Person5.Text);
|
||||
//µ²³µ¹¤³¤¶È
|
||||
FieldByName('JYLen1').Value := StrToFloatdef(trim(JYLen1.Text), 0);
|
||||
FieldByName('JYLen2').Value := StrToFloatdef(trim(JYLen2.Text), 0);
|
||||
|
|
@ -1470,6 +1480,7 @@ var
|
|||
fPrintFile: string;
|
||||
mvalue: Double;
|
||||
i: Integer;
|
||||
Result: Boolean;
|
||||
begin
|
||||
BTPrint.Enabled := False;
|
||||
Scan.SetFocus;
|
||||
|
|
@ -1485,6 +1496,9 @@ begin
|
|||
BTPrint.Enabled := True;
|
||||
exit;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
if FAPID = '' then
|
||||
begin
|
||||
with ADOCmd do
|
||||
|
|
@ -1492,7 +1506,6 @@ begin
|
|||
close;
|
||||
sql.Clear;
|
||||
sql.Add(' select c_pie,edZDFNo,YJPS=ISNULL((SELECT COUNT(*) FROM JY_Cloth F WHERE F.PCID=E.PCID ),0) from pd_plan_card e where e.pcid= ' + QuotedStr(FPCID));
|
||||
|
||||
open;
|
||||
end;
|
||||
if ADOCmd.FieldByName('YJPS').AsFloat >= ADOCmd.FieldByName('c_pie').AsFloat then
|
||||
|
|
@ -1502,9 +1515,10 @@ begin
|
|||
BTPrint.Enabled := True;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
if SaveData() then
|
||||
begin
|
||||
|
|
@ -2288,41 +2302,71 @@ end;
|
|||
|
||||
procedure TfrmGreyInspection.JYLen1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if Button = mbLeft then
|
||||
begin
|
||||
if Trim(person1.Text) = '' then
|
||||
begin
|
||||
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤1!');
|
||||
Application.MessageBox('请先输入挡车工1！', '提示', MB_OK + MB_ICONWARNING);
|
||||
if Person1.CanFocus then
|
||||
Person1.SetFocus;
|
||||
Abort;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGreyInspection.JYLen2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if Button = mbLeft then
|
||||
begin
|
||||
if Trim(person2.Text) = '' then
|
||||
begin
|
||||
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤2!');
|
||||
Application.MessageBox('请先输入挡车工2！', '提示', MB_OK + MB_ICONWARNING);
|
||||
if Person2.CanFocus then
|
||||
Person2.SetFocus;
|
||||
Abort;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGreyInspection.JYLen3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if Button = mbLeft then
|
||||
begin
|
||||
if Trim(person3.Text) = '' then
|
||||
begin
|
||||
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤3!');
|
||||
Application.MessageBox('请先输入挡车工3！', '提示', MB_OK + MB_ICONWARNING);
|
||||
if Person3.CanFocus then
|
||||
Person3.SetFocus;
|
||||
Abort;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGreyInspection.JYLen4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if Button = mbLeft then
|
||||
begin
|
||||
if Trim(person4.Text) = '' then
|
||||
begin
|
||||
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤4!');
|
||||
Application.MessageBox('请先输入挡车工1！', '提示', MB_OK + MB_ICONWARNING);
|
||||
if Person4.CanFocus then
|
||||
Person4.SetFocus;
|
||||
Abort;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGreyInspection.JYLen5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if Button = mbLeft then
|
||||
begin
|
||||
if Trim(person5.Text) = '' then
|
||||
begin
|
||||
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤5!');
|
||||
Application.MessageBox('请先输入挡车工5！', '提示', MB_OK + MB_ICONWARNING);
|
||||
if Person5.CanFocus then
|
||||
Person5.SetFocus;
|
||||
Abort;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object Form1: TForm1
|
||||
Left = 155
|
||||
Top = 182
|
||||
Left = 480
|
||||
Top = 300
|
||||
Width = 791
|
||||
Height = 554
|
||||
Caption = 'Form1'
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmFDINVOICE: TfrmFDINVOICE
|
||||
Left = 173
|
||||
Top = 86
|
||||
Left = 168
|
||||
Top = 455
|
||||
Width = 1378
|
||||
Height = 754
|
||||
Caption = #36827#39033#21457#31080#31649#29702
|
||||
|
|
@ -20,7 +20,7 @@ object frmFDINVOICE: TfrmFDINVOICE
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1370
|
||||
Width = 1362
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -141,7 +141,7 @@ object frmFDINVOICE: TfrmFDINVOICE
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 1370
|
||||
Width = 1362
|
||||
Height = 69
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -324,7 +324,7 @@ object frmFDINVOICE: TfrmFDINVOICE
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 121
|
||||
Width = 1370
|
||||
Width = 1362
|
||||
Height = 310
|
||||
Align = alTop
|
||||
PopupMenu = PopupMenu1
|
||||
|
|
@ -459,7 +459,7 @@ object frmFDINVOICE: TfrmFDINVOICE
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 100
|
||||
Width = 1370
|
||||
Width = 1362
|
||||
Height = 21
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -477,8 +477,8 @@ object frmFDINVOICE: TfrmFDINVOICE
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 431
|
||||
Width = 1370
|
||||
Height = 292
|
||||
Width = 1362
|
||||
Height = 284
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object TV2: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -14,7 +14,20 @@ uses
|
|||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, DateUtils,
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
|
||||
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmFDINVOICE = class(TForm)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmFKCR: TfrmFKCR
|
||||
Left = 348
|
||||
Top = 170
|
||||
Left = 350
|
||||
Top = 226
|
||||
Width = 990
|
||||
Height = 618
|
||||
Caption = #20184#27454#30331#35760
|
||||
|
|
@ -19,7 +19,7 @@ object frmFKCR: TfrmFKCR
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 974
|
||||
Width = 982
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -116,7 +116,7 @@ object frmFKCR: TfrmFKCR
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 974
|
||||
Width = 982
|
||||
Height = 66
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -209,7 +209,7 @@ object frmFKCR: TfrmFKCR
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 97
|
||||
Width = 974
|
||||
Width = 982
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -222,13 +222,13 @@ object frmFKCR: TfrmFKCR
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 974
|
||||
ClientRectRight = 982
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 342
|
||||
Width = 974
|
||||
Top = 350
|
||||
Width = 982
|
||||
Height = 237
|
||||
Align = alBottom
|
||||
TabOrder = 4
|
||||
|
|
@ -308,8 +308,8 @@ object frmFKCR: TfrmFKCR
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 119
|
||||
Width = 974
|
||||
Height = 223
|
||||
Width = 982
|
||||
Height = 231
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
@ -335,6 +335,7 @@ object frmFKCR: TfrmFKCR
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
|
|
|
|||
|
|
@ -66,11 +66,17 @@ begin
|
|||
|
||||
if Trim(DataBaseStr) = '' then
|
||||
begin
|
||||
server := '101.132.143.144,7781';
|
||||
// server := '101.132.143.144,7781';
|
||||
//// server := '.';
|
||||
// dtbase := 'chenfengdata';
|
||||
// user := 'rtsa';
|
||||
// pswd := 'rightsoft@5740';
|
||||
|
||||
server := '127.0.0.1';
|
||||
// server := '.';
|
||||
dtbase := 'chenfengdata';
|
||||
user := 'rtsa';
|
||||
pswd := 'rightsoft@5740';
|
||||
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;
|
||||
// Parameters2 := 'Ö¯Ôì';
|
||||
end
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmPBRKlistSel2: TfrmPBRKlistSel2
|
||||
Left = 197
|
||||
Top = 139
|
||||
Left = 287
|
||||
Top = 711
|
||||
Width = 1378
|
||||
Height = 615
|
||||
Height = 525
|
||||
Caption = #22383#24067#20837#24211#21015#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -192,6 +192,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = ToolButton1Click
|
||||
end
|
||||
object FactoryName: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -200,6 +201,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = ToolButton1Click
|
||||
end
|
||||
object SPID: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -208,6 +210,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = ToolButton1Click
|
||||
end
|
||||
object SPSpec: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -216,6 +219,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = ToolButton1Click
|
||||
end
|
||||
object CRType: TComboBox
|
||||
Tag = 2
|
||||
|
|
@ -226,6 +230,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 6
|
||||
OnChange = ToolButton1Click
|
||||
Items.Strings = (
|
||||
#21152#24037#20986#24211
|
||||
#38144#21806#20986#24211
|
||||
|
|
@ -243,6 +248,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 7
|
||||
OnChange = ToolButton1Click
|
||||
end
|
||||
object SPCode: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -251,6 +257,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Width = 77
|
||||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = ToolButton1Click
|
||||
end
|
||||
object FZSPID: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -259,6 +266,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Width = 77
|
||||
Height = 20
|
||||
TabOrder = 9
|
||||
OnChange = ToolButton1Click
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl
|
||||
|
|
@ -288,7 +296,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Left = 0
|
||||
Top = 117
|
||||
Width = 1362
|
||||
Height = 459
|
||||
Height = 369
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
@ -491,7 +499,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
|
|||
Left = 0
|
||||
Top = 117
|
||||
Width = 1362
|
||||
Height = 459
|
||||
Height = 369
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object cxGridDBTableView1: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmSXCKNewList: TfrmSXCKNewList
|
||||
Left = 122
|
||||
Top = 178
|
||||
Left = 301
|
||||
Top = 582
|
||||
Width = 1289
|
||||
Height = 593
|
||||
Height = 541
|
||||
Caption = #32433#32447#20449#24687#21015#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -237,7 +237,7 @@ object frmSXCKNewList: TfrmSXCKNewList
|
|||
Left = 0
|
||||
Top = 121
|
||||
Width = 1273
|
||||
Height = 433
|
||||
Height = 381
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
@ -291,7 +291,7 @@ object frmSXCKNewList: TfrmSXCKNewList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Content = cxStyle1
|
||||
Styles.Header = cxStyle1
|
||||
Width = 80
|
||||
Width = 87
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #20986#20837#24211#21333#21495
|
||||
|
|
@ -300,7 +300,7 @@ object frmSXCKNewList: TfrmSXCKNewList
|
|||
Options.Editing = False
|
||||
Styles.Content = cxStyle1
|
||||
Styles.Header = cxStyle1
|
||||
Width = 83
|
||||
Width = 105
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Tag = 2
|
||||
|
|
@ -484,7 +484,7 @@ object frmSXCKNewList: TfrmSXCKNewList
|
|||
Options.Editing = False
|
||||
Styles.Content = cxStyle1
|
||||
Styles.Header = cxStyle1
|
||||
Width = 66
|
||||
Width = 118
|
||||
end
|
||||
object v1Column21: TcxGridDBColumn
|
||||
Caption = #36816#36153
|
||||
|
|
|
|||
|
|
@ -301,12 +301,15 @@ begin
|
|||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' select money=price*Qty,A.* ');
|
||||
sql.Add(' select ');
|
||||
sql.Add(' case when A.CRType = ''退货'' then -price*A.Qty else price*A.Qty end as money, ');
|
||||
sql.Add(' case when A.CRType = ''退货'' then -A.Qty else A.Qty end as Qty, ');
|
||||
sql.Add(' A.* ');
|
||||
sql.Add(' from CK_Yarn_CR A');
|
||||
sql.add(' where A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
|
||||
Sql.Add(' and CWFlag=0 and CKName=' + quotedstr(trim(FCKName)));
|
||||
sql.Add(' and CRType in(''采购入库'',''期初入库'',''加工完成'',''加工未做回仓'',''织造未做回仓'' )');
|
||||
sql.Add(' and CRType in(''采购入库'',''期初入库'',''加工完成'',''加工未做回仓'',''织造未做回仓'',''退货'' )');
|
||||
|
||||
if cxTabControl1.TabIndex = 0 then
|
||||
SQL.Add(' and not exists(select YFPZNO from YF_Money_CR_Sub X where X.YFPZNO=A.Y_ID ) ')
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmXXFPHXList: TfrmXXFPHXList
|
||||
Left = 285
|
||||
Top = 179
|
||||
Left = 335
|
||||
Top = 181
|
||||
Width = 976
|
||||
Height = 649
|
||||
Caption = #26680#38144#20449#24687#26597#35810
|
||||
|
|
@ -192,13 +192,13 @@ object frmXXFPHXList: TfrmXXFPHXList
|
|||
Left = 0
|
||||
Top = 88
|
||||
Width = 960
|
||||
Height = 523
|
||||
Height = 522
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv2: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
NavigatorButtons.Delete.Enabled = False
|
||||
NavigatorButtons.Delete.Visible = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
DataController.DataSource = DS_HZ
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
|
|
|
|||
|
|
@ -12,7 +12,22 @@ uses
|
|||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
|
||||
cxButtonEdit, cxTextEdit;
|
||||
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
|
||||
TfrmXXFPHXList = class(TForm)
|
||||
|
|
|
|||
136
应收应付/U_XXPRICE.dfm
Normal file
136
应收应付/U_XXPRICE.dfm
Normal file
|
|
@ -0,0 +1,136 @@
|
|||
object frmXXPRICE: TfrmXXPRICE
|
||||
Left = 544
|
||||
Top = 235
|
||||
Width = 242
|
||||
Height = 135
|
||||
Caption = #21333#20215#20462#25913
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 226
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_YSYF.ThreeImgList
|
||||
Flat = True
|
||||
Images = DataLink_YSYF.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object ToolButton3: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = #30830#23450
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 59
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 226
|
||||
Height = 65
|
||||
Align = alClient
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label4: TLabel
|
||||
Left = 16
|
||||
Top = 21
|
||||
Width = 42
|
||||
Height = 12
|
||||
Caption = #21333' '#20215
|
||||
end
|
||||
object price: TEdit
|
||||
Tag = 2
|
||||
Left = 68
|
||||
Top = 17
|
||||
Width = 89
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_YSYF.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 789
|
||||
Top = 9
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_YSYF.ADOLink
|
||||
Parameters = <>
|
||||
Left = 829
|
||||
Top = 1
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDB_Main
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 424
|
||||
Top = 208
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDB_Main: TRMDBDataSet
|
||||
Visible = True
|
||||
Left = 384
|
||||
Top = 208
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 520
|
||||
Top = 264
|
||||
end
|
||||
object DS_HZ: TDataSource
|
||||
DataSet = CDS_HZ
|
||||
Left = 443
|
||||
Top = 267
|
||||
end
|
||||
object CDS_HZ: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 496
|
||||
Top = 208
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_YSYF.ADOLink
|
||||
Parameters = <>
|
||||
Left = 340
|
||||
Top = 208
|
||||
end
|
||||
end
|
||||
177
应收应付/U_XXPRICE.pas
Normal file
177
应收应付/U_XXPRICE.pas
Normal file
|
|
@ -0,0 +1,177 @@
|
|||
unit U_XXPRICE;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||||
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||||
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
|
||||
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmXXPRICE = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
Panel1: TPanel;
|
||||
RM1: TRMGridReport;
|
||||
RMDB_Main: TRMDBDataSet;
|
||||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||
DS_HZ: TDataSource;
|
||||
CDS_HZ: TClientDataSet;
|
||||
Label4: TLabel;
|
||||
price: TEdit;
|
||||
ADOQueryMain: TADOQuery;
|
||||
TBClose: TToolButton;
|
||||
ToolButton3: TToolButton;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
RKFlag, FCYID, FFFID: string;
|
||||
FFromNo, FTONO: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmXXPRICE: TfrmXXPRICE;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun10, U_ZDYHelp;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmXXPRICE.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmXXPRICE := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmXXPRICE.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmXXPRICE.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
//procedure TfrmXXPRICE.ToolButton3Click(Sender: TObject);
|
||||
//begin
|
||||
// if StrToFloatDef(Price.Text, 0) = 0 then
|
||||
// Price.Text := '0';
|
||||
// try
|
||||
// with ADOQueryCmd do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.Add(' update YF_Money_CR_Sub ');
|
||||
// sql.Add(' set Price = ' + Price.Text);
|
||||
// // 使用IN子句批量更新
|
||||
// sql.Add(' where YF_Money_CR_Sub.yfsid in (' + FFFID + ')');
|
||||
//
|
||||
//
|
||||
// ExecSQL;
|
||||
// end;
|
||||
// ModalResult := 1;
|
||||
// except
|
||||
// application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
// end;
|
||||
//end;
|
||||
procedure TfrmXXPRICE.ToolButton3Click(Sender: TObject);
|
||||
var
|
||||
IDList: TStringList;
|
||||
i: Integer;
|
||||
QuotedIDs: string;
|
||||
begin
|
||||
// 如果价格输入为空或无效，设为0
|
||||
if StrToFloatDef(Price.Text, 0) = 0 then
|
||||
Price.Text := '0';
|
||||
|
||||
// 检查是否有选中的ID
|
||||
if Trim(FFFID) = '' then
|
||||
begin
|
||||
Application.MessageBox('没有选择要更新的记录！', '提示信息', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
try
|
||||
// 给每个ID添加引号
|
||||
IDList := TStringList.Create;
|
||||
try
|
||||
IDList.CommaText := FFFID; // 将逗号分隔的字符串分解
|
||||
QuotedIDs := '';
|
||||
for i := 0 to IDList.Count - 1 do
|
||||
begin
|
||||
if QuotedIDs = '' then
|
||||
QuotedIDs := QuotedStr(IDList[i])
|
||||
else
|
||||
QuotedIDs := QuotedIDs + ',' + QuotedStr(IDList[i]);
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' update YF_Money_CR_Sub ');
|
||||
sql.Add(' set Price = ' + Price.Text);
|
||||
|
||||
// 使用添加了引号的ID列表
|
||||
sql.Add(' where YF_Money_CR_Sub.yfsid in (' + QuotedIDs + ')');
|
||||
|
||||
ExecSQL;
|
||||
end;
|
||||
finally
|
||||
IDList.Free;
|
||||
end;
|
||||
|
||||
// 更新成功，返回1（成功标志）
|
||||
ModalResult := 1;
|
||||
except
|
||||
on E: Exception do
|
||||
Application.MessageBox(PChar(E.Message), '提示信息', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
//with ADOQueryCmd do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.Add(' update YF_Money_CR_Sub ');
|
||||
// sql.Add(' set Price = ' + Price.Text);
|
||||
// sql.Add(' where exists(select 1 from YF_Money_CR ');
|
||||
// sql.Add(' where YF_Money_CR.yfid = YF_Money_CR_Sub.yfid ');
|
||||
// sql.Add(' and YF_Money_CR.yfid in (select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFID) + ','','') X)) ');
|
||||
//// showmessage(sql.text);
|
||||
// ExecSQL;
|
||||
// end;
|
||||
|
||||
|
||||
|
|
@ -1,8 +1,8 @@
|
|||
object frmYFCR: TfrmYFCR
|
||||
Left = 198
|
||||
Top = 112
|
||||
Left = 292
|
||||
Top = 611
|
||||
Width = 1181
|
||||
Height = 661
|
||||
Height = 703
|
||||
Caption = #24212#20184#27454#31649#29702
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -236,7 +236,7 @@ object frmYFCR: TfrmYFCR
|
|||
Left = 0
|
||||
Top = 118
|
||||
Width = 1165
|
||||
Height = 267
|
||||
Height = 309
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
@ -436,7 +436,7 @@ object frmYFCR: TfrmYFCR
|
|||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 385
|
||||
Top = 427
|
||||
Width = 1165
|
||||
Height = 237
|
||||
Align = alBottom
|
||||
|
|
@ -466,6 +466,7 @@ object frmYFCR: TfrmYFCR
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column5
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmYFCRMXList: TfrmYFCRMXList
|
||||
Left = 273
|
||||
Top = 107
|
||||
Left = 365
|
||||
Top = 143
|
||||
Width = 1018
|
||||
Height = 688
|
||||
Caption = #24212#20184#27454#26126#32454#26597#35810
|
||||
|
|
@ -22,7 +22,7 @@ object frmYFCRMXList: TfrmYFCRMXList
|
|||
Width = 1002
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_YSYF.ThreeImgList
|
||||
|
|
@ -56,9 +56,16 @@ object frmYFCRMXList: TfrmYFCRMXList
|
|||
ImageIndex = 53
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
object ToolButton3: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
Caption = #21333#20215#20462#25913
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 272
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
|
|
@ -208,6 +215,18 @@ object frmYFCRMXList: TfrmYFCRMXList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Price
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column5
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
|
|
@ -217,6 +236,12 @@ object frmYFCRMXList: TfrmYFCRMXList
|
|||
OptionsView.GroupByBox = False
|
||||
OptionsView.Indicator = True
|
||||
Styles.Header = DataLink_YSYF.FonePurple
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'ssel'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 88
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #26085#26399
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
|
|
@ -393,6 +418,12 @@ object frmYFCRMXList: TfrmYFCRMXList
|
|||
Styles.Header = cxStyle1
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #20986#21040#21152#24037#21378'/'#23458#25143
|
||||
DataBinding.FieldName = 'ToFactoryName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 156
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #24635#22791#27880
|
||||
DataBinding.FieldName = 'note'
|
||||
|
|
|
|||
|
|
@ -85,6 +85,9 @@ type
|
|||
cxStyle1: TcxStyle;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
ToolButton3: TToolButton;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -100,6 +103,7 @@ type
|
|||
procedure YFGSTypeChange(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure chk1Click(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
|
||||
|
|
@ -110,6 +114,7 @@ type
|
|||
{ Public declarations }
|
||||
FCYID: string;
|
||||
fmanage: string;
|
||||
FFFID: string;
|
||||
end;
|
||||
|
||||
var
|
||||
|
|
@ -119,7 +124,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_Fun, U_SXCKNewList, U_YSSCList, U_YsScXsList, U_YSKInput,
|
||||
U_XXFPHXList;
|
||||
U_XXFPHXList, U_XXPRICE;
|
||||
|
||||
{$R *.dfm}
|
||||
procedure TfrmYFCRMXList.SetStatus();
|
||||
|
|
@ -316,5 +321,186 @@ begin
|
|||
InitGrid();
|
||||
end;
|
||||
|
||||
//procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
|
||||
//var
|
||||
// i: Integer;
|
||||
// SelectedIDs: string;
|
||||
// Bookmark: TBookmarkStr;
|
||||
//begin
|
||||
// SelectedIDs := '';
|
||||
// with SELF.CDS_YFS do
|
||||
// begin
|
||||
// DisableControls;
|
||||
// try
|
||||
// Bookmark := Bookmark;
|
||||
//
|
||||
// First;
|
||||
// while not Eof do
|
||||
// begin
|
||||
// // 判断是否选中（假设选择列字段名为'ssel'）
|
||||
// if FieldByName('ssel').AsBoolean then
|
||||
// begin
|
||||
// if SelectedIDs = '' then
|
||||
// SelectedIDs := FieldByName('yfsid').AsString
|
||||
// else
|
||||
// SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
|
||||
// end;
|
||||
// Next;
|
||||
// end;
|
||||
//
|
||||
// // 恢复原记录位置
|
||||
// if Bookmark <> '' then
|
||||
// GotoBookmark(Pointer(Bookmark));
|
||||
// finally
|
||||
// EnableControls;
|
||||
// end;
|
||||
// end;
|
||||
//
|
||||
// // 如果没有选中任何记录，提示用户
|
||||
// if SelectedIDs = '' then
|
||||
// begin
|
||||
// Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
|
||||
// Exit;
|
||||
// end;
|
||||
//
|
||||
// // 打开价格修改窗体
|
||||
// try
|
||||
// frmXXPRICE := TfrmXXPRICE.Create(Application);
|
||||
// with frmXXPRICE do
|
||||
// begin
|
||||
// // 传递选中的多个ID（用逗号分隔）
|
||||
// FFFID := SelectedIDs;
|
||||
// // 显示模态窗体，等待用户操作
|
||||
// if ShowModal = 1 then
|
||||
// begin
|
||||
// // 如果返回1，刷新主窗体数据
|
||||
// InitGrid();
|
||||
// end;
|
||||
// end;
|
||||
// finally
|
||||
// frmXXPRICE.Free;
|
||||
// end;
|
||||
//end;
|
||||
|
||||
|
||||
procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
|
||||
var
|
||||
SelectedIDs: string;
|
||||
Bookmark: TBookmarkStr;
|
||||
begin
|
||||
SelectedIDs := '';
|
||||
|
||||
with SELF.CDS_YFS do
|
||||
begin
|
||||
DisableControls;
|
||||
try
|
||||
Bookmark := Bookmark;
|
||||
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if FieldByName('ssel').AsBoolean then
|
||||
begin
|
||||
if SelectedIDs = '' then
|
||||
SelectedIDs := FieldByName('yfsid').AsString
|
||||
else
|
||||
SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
finally
|
||||
if Bookmark <> '' then
|
||||
GotoBookmark(Pointer(Bookmark));
|
||||
EnableControls;
|
||||
end;
|
||||
end;
|
||||
if SelectedIDs = '' then
|
||||
begin
|
||||
Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
frmXXPRICE := TfrmXXPRICE.Create(Application);
|
||||
with frmXXPRICE do
|
||||
begin
|
||||
FFFID := SelectedIDs;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmXXPRICE.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
//procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
|
||||
//var
|
||||
// SelectedIDs: string;
|
||||
// Bookmark: TBookmarkStr;
|
||||
//begin
|
||||
// SelectedIDs := '';
|
||||
//
|
||||
// with SELF.CDS_YFS do
|
||||
// begin
|
||||
// DisableControls;
|
||||
// try
|
||||
// Bookmark := Bookmark;
|
||||
//
|
||||
// First;
|
||||
// while not Eof do
|
||||
// begin
|
||||
// if FieldByName('ssel').AsBoolean then
|
||||
// begin
|
||||
// if SelectedIDs = '' then
|
||||
// SelectedIDs := FieldByName('yfsid').AsString
|
||||
// else
|
||||
// SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
|
||||
// end;
|
||||
// Next;
|
||||
// end;
|
||||
// finally
|
||||
// if Bookmark <> '' then
|
||||
// GotoBookmark(Pointer(Bookmark));
|
||||
// EnableControls;
|
||||
// end;
|
||||
// end;
|
||||
// if SelectedIDs = '' then
|
||||
// begin
|
||||
// Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
|
||||
// Exit;
|
||||
// end;
|
||||
// try
|
||||
// frmXXPRICE := TfrmXXPRICE.Create(Application);
|
||||
// with frmXXPRICE do
|
||||
// begin
|
||||
// FFFID := SelectedIDs;
|
||||
// if ShowModal = 1 then
|
||||
// begin
|
||||
// InitGrid();
|
||||
// end;
|
||||
// end;
|
||||
// finally
|
||||
// frmXXPRICE.Free;
|
||||
// end;
|
||||
//end;
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmYFFKList: TfrmYFFKList
|
||||
Left = 281
|
||||
Top = 123
|
||||
Left = 346
|
||||
Top = 322
|
||||
Width = 1134
|
||||
Height = 618
|
||||
Height = 569
|
||||
Caption = #24212#20184#27454#20184#27454#32479#35745
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -162,7 +162,7 @@ object frmYFFKList: TfrmYFFKList
|
|||
Left = 0
|
||||
Top = 92
|
||||
Width = 1118
|
||||
Height = 487
|
||||
Height = 438
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv2: TcxGridDBTableView
|
||||
|
|
@ -194,6 +194,11 @@ object frmYFFKList: TfrmYFFKList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv2Column2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv2Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
@ -206,9 +211,7 @@ object frmYFFKList: TfrmYFFKList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv2Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmYFKInput: TfrmYFKInput
|
||||
Left = 424
|
||||
Top = 208
|
||||
Left = 237
|
||||
Top = 189
|
||||
Width = 993
|
||||
Height = 569
|
||||
Caption = #20449#24687#24405#20837
|
||||
|
|
@ -572,6 +572,12 @@ object frmYFKInput: TfrmYFKInput
|
|||
Styles.Header = cxStyle1
|
||||
Width = 81
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #20986#21040#21152#24037#21378'/'#23458#25143
|
||||
DataBinding.FieldName = 'ToFactoryName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 124
|
||||
end
|
||||
object v1note: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'MxNote'
|
||||
|
|
|
|||
|
|
@ -87,6 +87,7 @@ type
|
|||
cxStyleRepository1: TcxStyleRepository;
|
||||
cxStyle1: TcxStyle;
|
||||
ToolButton4: TToolButton;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TSaveClick(Sender: TObject);
|
||||
|
|
@ -606,9 +607,10 @@ begin
|
|||
self.YFSub.FieldByName('CPSpec').Value := CDS_Main.FieldByName('Y_Spec').Value;
|
||||
self.YFSub.FieldByName('CPBatchNO').Value := CDS_Main.FieldByName('BatchNO').Value;
|
||||
self.YFSub.FieldByName('danbao').Value := CDS_Main.FieldByName('danbao').Value;
|
||||
self.YFSub.FieldByName('MXNote').Value := CDS_Main.FieldByName('Note').Value;
|
||||
if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ÍË»õ' then
|
||||
begin
|
||||
CQtyFlag := -1;
|
||||
CQtyFlag := 1;
|
||||
CKXType := 'É´ÏßÍË»õ';
|
||||
end
|
||||
else if Trim(CDS_Main.fieldbyname('CRType').AsString) = '²É¹ºÈë¿â' then
|
||||
|
|
@ -622,8 +624,10 @@ begin
|
|||
CKXType := 'É´Ïß¼Ó¹¤';
|
||||
end;
|
||||
self.YFSub.FieldByName('KXType').Value := CKXType;
|
||||
self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger;
|
||||
self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat;
|
||||
// self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger;
|
||||
// self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat;
|
||||
self.YFSub.FieldByName('PS').Value := CDS_Main.FieldByName('PiQty').AsInteger;
|
||||
self.YFSub.FieldByName('Qty').Value := CDS_Main.FieldByName('Qty').AsFloat;
|
||||
self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value;
|
||||
self.YFSub.FieldByName('Price').Value := CDS_Main.FieldByName('Price').AsFloat;
|
||||
self.YFSub.FieldByName('MxMoney').Value := CDS_Main.FieldByName('money').AsFloat;
|
||||
|
|
@ -864,6 +868,9 @@ begin
|
|||
self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger;
|
||||
self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat;
|
||||
self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value;
|
||||
self.YFSub.FieldByName('ToFactoryName').Value := CDS_Main.FieldByName('ToFactoryName').Value;
|
||||
|
||||
|
||||
self.YFSub.FieldByName('Price').Value := 0;
|
||||
self.YFSub.FieldByName('MxMoney').Value := 0;
|
||||
self.YFSub.FieldByName('discount').Value := 1;
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmYFMXlist: TfrmYFMXlist
|
||||
Left = 221
|
||||
Top = 115
|
||||
Left = 411
|
||||
Top = 523
|
||||
Width = 1205
|
||||
Height = 614
|
||||
Caption = #24212#20184#23545#36134#20449#24687#34920
|
||||
|
|
@ -225,6 +225,40 @@ object frmYFMXlist: TfrmYFMXlist
|
|||
item
|
||||
Kind = skSum
|
||||
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>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
|
|
@ -237,7 +271,7 @@ object frmYFMXlist: TfrmYFMXlist
|
|||
Bands = <
|
||||
item
|
||||
Styles.Header = cxStyle1
|
||||
Width = 683
|
||||
Width = 741
|
||||
end
|
||||
item
|
||||
Caption = #24212#20184
|
||||
|
|
@ -557,6 +591,14 @@ object frmYFMXlist: TfrmYFMXlist
|
|||
Position.ColIndex = 1
|
||||
Position.RowIndex = 0
|
||||
end
|
||||
object TV1Column6: TcxGridDBBandedColumn
|
||||
Caption = #20986#21040#21152#24037#21378'/.'#23458#25143
|
||||
DataBinding.FieldName = 'ToFactoryName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Position.BandIndex = 0
|
||||
Position.ColIndex = 12
|
||||
Position.RowIndex = 0
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = TV1
|
||||
|
|
|
|||
|
|
@ -89,6 +89,7 @@ type
|
|||
TV1Column4: TcxGridDBBandedColumn;
|
||||
TV1Column5: TcxGridDBBandedColumn;
|
||||
TV1Column3: TcxGridDBBandedColumn;
|
||||
TV1Column6: TcxGridDBBandedColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -168,7 +169,7 @@ begin
|
|||
sql.Add(',@flag=''È«²¿'' ');
|
||||
end;
|
||||
end;
|
||||
// ShowMessage(sql.text);
|
||||
// ShowMessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmYFZZCR: TfrmYFZZCR
|
||||
Left = 198
|
||||
Top = 112
|
||||
Left = 279
|
||||
Top = 458
|
||||
Width = 1181
|
||||
Height = 661
|
||||
Caption = #32455#36896#24212#20184#27454#31649#29702
|
||||
|
|
@ -221,7 +221,7 @@ object frmYFZZCR: TfrmYFZZCR
|
|||
TabOrder = 2
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.TabIndex = 3
|
||||
Properties.Tabs.Strings = (
|
||||
#26410#23457#26680
|
||||
#24050#23457#26680
|
||||
|
|
@ -326,7 +326,7 @@ object frmYFZZCR: TfrmYFZZCR
|
|||
Options.Editing = False
|
||||
Styles.Content = cxStyle1
|
||||
Styles.Header = cxStyle1
|
||||
Width = 77
|
||||
Width = 81
|
||||
end
|
||||
object VYB: TcxGridDBColumn
|
||||
Caption = #21407#24065#37329#39069
|
||||
|
|
@ -335,7 +335,7 @@ object frmYFZZCR: TfrmYFZZCR
|
|||
Options.Editing = False
|
||||
Styles.Content = cxStyle1
|
||||
Styles.Header = cxStyle1
|
||||
Width = 70
|
||||
Width = 100
|
||||
end
|
||||
object VBZ: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
|
|
@ -598,6 +598,12 @@ object frmYFZZCR: TfrmYFZZCR
|
|||
Styles.Header = cxStyle1
|
||||
Width = 145
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #20986#21040#24037#21378'/'#23458#25143
|
||||
DataBinding.FieldName = 'ToFactoryName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 131
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #24050#26680#38144#24320#31080#37329#39069
|
||||
DataBinding.FieldName = 'FPHX'
|
||||
|
|
|
|||
|
|
@ -107,6 +107,7 @@ type
|
|||
Tv1Column1: TcxGridDBColumn;
|
||||
cxStyleRepository1: TcxStyleRepository;
|
||||
cxStyle1: TcxStyle;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmYSCR: TfrmYSCR
|
||||
Left = 251
|
||||
Top = 94
|
||||
Left = 270
|
||||
Top = 581
|
||||
Width = 1249
|
||||
Height = 688
|
||||
Caption = #24212#25910#27454#31649#29702
|
||||
|
|
@ -244,9 +244,11 @@ object frmYSCR: TfrmYSCR
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv2Column2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv2Column1
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmYSCRMXList: TfrmYSCRMXList
|
||||
Left = 273
|
||||
Top = 107
|
||||
Left = 244
|
||||
Top = 413
|
||||
Width = 1018
|
||||
Height = 688
|
||||
Caption = #24212#25910#27454#26126#32454#26597#35810
|
||||
|
|
@ -19,7 +19,7 @@ object frmYSCRMXList: TfrmYSCRMXList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1010
|
||||
Width = 1002
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
@ -68,7 +68,7 @@ object frmYSCRMXList: TfrmYSCRMXList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 1010
|
||||
Width = 1002
|
||||
Height = 62
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -160,7 +160,7 @@ object frmYSCRMXList: TfrmYSCRMXList
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 93
|
||||
Width = 1010
|
||||
Width = 1002
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -173,14 +173,14 @@ object frmYSCRMXList: TfrmYSCRMXList
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1010
|
||||
ClientRectRight = 1002
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 115
|
||||
Width = 1010
|
||||
Height = 542
|
||||
Width = 1002
|
||||
Height = 534
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -14,7 +14,20 @@ uses
|
|||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
dxBarBuiltInMenu, cxNavigator, DateUtils, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
||||
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmYSCRMXList = class(TForm)
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmYSMXlist: TfrmYSMXlist
|
||||
Left = 423
|
||||
Top = 608
|
||||
Left = 403
|
||||
Top = 443
|
||||
Width = 1205
|
||||
Height = 614
|
||||
Height = 613
|
||||
Caption = #24212#25910#23545#36134#20449#24687#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -22,7 +22,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1197
|
||||
Width = 1189
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
@ -80,7 +80,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 1197
|
||||
Width = 1189
|
||||
Height = 38
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -222,8 +222,8 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 91
|
||||
Width = 1197
|
||||
Height = 492
|
||||
Width = 1189
|
||||
Height = 483
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object TV1: TcxGridDBBandedTableView
|
||||
|
|
@ -241,9 +241,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = TV1Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
@ -256,6 +254,35 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
item
|
||||
Kind = skSum
|
||||
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>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
|
|
@ -391,7 +418,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
end
|
||||
object V1Column12: TcxGridDBBandedColumn
|
||||
Caption = #24635#37329#39069
|
||||
DataBinding.FieldName = 'money'
|
||||
DataBinding.FieldName = 'Money'
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.DisplayFormat = '0.00'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -643,7 +670,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 69
|
||||
Width = 1197
|
||||
Width = 1189
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -655,7 +682,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1197
|
||||
ClientRectRight = 1189
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
object frmYSSKList: TfrmYSSKList
|
||||
Left = 258
|
||||
Top = 152
|
||||
Width = 1196
|
||||
Left = 423
|
||||
Top = 547
|
||||
Width = 1440
|
||||
Height = 618
|
||||
Caption = #24212#25910#24050#25910#27719#24635
|
||||
Color = clBtnFace
|
||||
|
|
@ -20,7 +20,7 @@ object frmYSSKList: TfrmYSSKList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1188
|
||||
Width = 1432
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -85,7 +85,7 @@ object frmYSSKList: TfrmYSSKList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 1188
|
||||
Width = 1432
|
||||
Height = 74
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -198,7 +198,7 @@ object frmYSSKList: TfrmYSSKList
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 127
|
||||
Width = 1188
|
||||
Width = 1432
|
||||
Height = 460
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
|
|
@ -258,6 +258,7 @@ object frmYSSKList: TfrmYSSKList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
@ -282,6 +283,7 @@ object frmYSSKList: TfrmYSSKList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv2Column2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
@ -414,7 +416,7 @@ object frmYSSKList: TfrmYSSKList
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1188
|
||||
Width = 1432
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -426,7 +428,7 @@ object frmYSSKList: TfrmYSSKList
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1188
|
||||
ClientRectRight = 1432
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
|
|
|
|||
|
|
@ -14,7 +14,20 @@ uses
|
|||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, Clipbrd, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
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
|
||||
TfrmYSSKList = class(TForm)
|
||||
|
|
|
|||
|
|
@ -13,7 +13,20 @@ uses
|
|||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
|
||||
cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
cxNavigator;
|
||||
cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmZdyAttachGYS = class(TForm)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object Form1: TForm1
|
||||
Left = 153
|
||||
Top = 124
|
||||
Left = 575
|
||||
Top = 541
|
||||
Width = 791
|
||||
Height = 554
|
||||
Caption = 'Form1'
|
||||
|
|
@ -21,7 +21,7 @@ object Form1: TForm1
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 775
|
||||
Width = 783
|
||||
Height = 25
|
||||
ButtonWidth = 57
|
||||
Caption = 'ToolBar1'
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\淃커덜쯤\D7szChenfeng\壇澗壇마\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\淃커덜쯤\D7szChenfeng\壇澗壇마\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -46,7 +46,8 @@ uses
|
|||
U_FjList10 in '..\Z99Dependency\ThreeFun\Form\U_FjList10.pas' {frmFjList10},
|
||||
U_CompressionFun in '..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas',
|
||||
U_RTFun in '..\Z99Dependency\ThreeFun\Fun\U_RTFun.pas',
|
||||
U_YFFKInput in 'U_YFFKInput.pas' {frmYFFKInput};
|
||||
U_YFFKInput in 'U_YFFKInput.pas' {frmYFFKInput},
|
||||
U_XXPRICE in 'U_XXPRICE.pas' {frmXXPRICE};
|
||||
|
||||
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
|
||||
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmCPCKMdList: TfrmCPCKMdList
|
||||
Left = 253
|
||||
Top = 323
|
||||
Left = 373
|
||||
Top = 237
|
||||
Width = 1128
|
||||
Height = 516
|
||||
Caption = #30721#21333#25171#21360
|
||||
|
|
@ -20,7 +20,7 @@ object frmCPCKMdList: TfrmCPCKMdList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1120
|
||||
Width = 1112
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 95
|
||||
|
|
@ -128,7 +128,7 @@ object frmCPCKMdList: TfrmCPCKMdList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1120
|
||||
Width = 1112
|
||||
Height = 93
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -338,8 +338,8 @@ object frmCPCKMdList: TfrmCPCKMdList
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 147
|
||||
Width = 1120
|
||||
Height = 338
|
||||
Width = 1112
|
||||
Height = 330
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -731,7 +731,7 @@ object frmCPCKMdList: TfrmCPCKMdList
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 125
|
||||
Width = 1120
|
||||
Width = 1112
|
||||
Height = 22
|
||||
Align = alTop
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmPBFHSQInPut: TfrmPBFHSQInPut
|
||||
Left = 192
|
||||
Top = 232
|
||||
Left = 524
|
||||
Top = 378
|
||||
Width = 1075
|
||||
Height = 664
|
||||
Height = 665
|
||||
Caption = #21457#36135#30003#35831#24405#20837
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -390,7 +390,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
|
|||
Left = 0
|
||||
Top = 162
|
||||
Width = 1067
|
||||
Height = 471
|
||||
Height = 472
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -26,7 +26,7 @@ uses
|
|||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue;
|
||||
dxSkinXmas2008Blue, ImgList;
|
||||
|
||||
type
|
||||
TfrmCPFHSQList = class(TForm)
|
||||
|
|
@ -120,6 +120,7 @@ type
|
|||
cktype: TComboBox;
|
||||
Label6: TLabel;
|
||||
Tv2Column1: TcxGridDBColumn;
|
||||
ThreeImgList: TImageList;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmCPSQSMCK: TfrmCPSQSMCK
|
||||
Left = 363
|
||||
Top = 45
|
||||
Left = 210
|
||||
Top = 0
|
||||
Width = 1109
|
||||
Height = 795
|
||||
Height = 685
|
||||
Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')'
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -20,7 +20,7 @@ object frmCPSQSMCK: TfrmCPSQSMCK
|
|||
Left = 513
|
||||
Top = 0
|
||||
Width = 580
|
||||
Height = 756
|
||||
Height = 646
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
@ -75,7 +75,7 @@ object frmCPSQSMCK: TfrmCPSQSMCK
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 513
|
||||
Height = 756
|
||||
Height = 646
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object DataLink_FinishedClothWarehouse: TDataLink_FinishedClothWarehouse
|
||||
OldCreateOrder = False
|
||||
OnDestroy = DataModuleDestroy
|
||||
Left = 459
|
||||
Top = 278
|
||||
Left = 460
|
||||
Top = 280
|
||||
Height = 349
|
||||
Width = 482
|
||||
object AdoDataLink: TADOQuery
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmFinishedClothInList: TfrmFinishedClothInList
|
||||
Left = 119
|
||||
Top = 159
|
||||
Left = 105
|
||||
Top = 65
|
||||
Width = 1249
|
||||
Height = 765
|
||||
Caption = #25104#21697#20837#24211#31649#29702
|
||||
|
|
@ -536,10 +536,10 @@ object frmFinishedClothInList: TfrmFinishedClothInList
|
|||
Width = 73
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
Caption = #32463#36724#25209#21495
|
||||
DataBinding.FieldName = 'edZDFNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 83
|
||||
Width = 92
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
|
|
@ -716,7 +716,7 @@ object frmFinishedClothInList: TfrmFinishedClothInList
|
|||
TabOrder = 0
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 3
|
||||
Properties.TabIndex = 0
|
||||
Properties.TabIndex = 1
|
||||
Properties.Tabs.Strings = (
|
||||
#35746#21333#27719#24635
|
||||
#26126#32454#25968#25454)
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmFinishedClothInspection: TfrmFinishedClothInspection
|
||||
Left = 54
|
||||
Top = 187
|
||||
Left = 179
|
||||
Top = 106
|
||||
Width = 1357
|
||||
Height = 721
|
||||
Height = 723
|
||||
Caption = #25104#21697#26816#39564#25253#21578
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -83,7 +83,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
|
|||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 351
|
||||
Top = 1
|
||||
Top = 0
|
||||
Width = 98
|
||||
Height = 27
|
||||
Style = csDropDownList
|
||||
|
|
@ -429,7 +429,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
|
|||
Left = 0
|
||||
Top = 115
|
||||
Width = 1341
|
||||
Height = 567
|
||||
Height = 569
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
|
|
@ -548,7 +548,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
|
|||
Width = 100
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
Caption = #32463#36724#25209#21495
|
||||
DataBinding.FieldName = 'edZDFNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 84
|
||||
|
|
@ -588,6 +588,12 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
|
|||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 79
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #24635#31859#25968
|
||||
DataBinding.FieldName = 'JYLen'
|
||||
|
|
@ -625,7 +631,8 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
|
|||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'edZDFNo'
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
|
|
|
|||
|
|
@ -135,6 +135,7 @@ type
|
|||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmFinishedClothKCHZList: TfrmFinishedClothKCHZList
|
||||
Left = 263
|
||||
Top = 140
|
||||
Left = 469
|
||||
Top = 619
|
||||
Width = 1247
|
||||
Height = 531
|
||||
Caption = #22383#24067#24211#23384#31649#29702#34920
|
||||
|
|
|
|||
|
|
@ -11,7 +11,20 @@ uses
|
|||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
cxDropDownEdit, MovePanel, Menus, cxCheckBox, Clipbrd, cxPC, Math,
|
||||
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
|
||||
TfrmFinishedClothKCHZList = class(TForm)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
object frmFinishedClothKCList: TfrmFinishedClothKCList
|
||||
Left = -6
|
||||
Top = 33
|
||||
Width = 1247
|
||||
Left = 508
|
||||
Top = 419
|
||||
Width = 1086
|
||||
Height = 531
|
||||
Caption = #25104#21697#24211#23384#21015#34920
|
||||
Color = clBtnFace
|
||||
|
|
@ -18,7 +18,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1231
|
||||
Width = 1078
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
@ -98,7 +98,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1231
|
||||
Width = 1078
|
||||
Height = 62
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -283,7 +283,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 95
|
||||
Width = 1231
|
||||
Width = 1078
|
||||
Height = 30
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
|
|
@ -311,7 +311,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
TabOrder = 0
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 3
|
||||
Properties.TabIndex = 0
|
||||
Properties.TabIndex = 1
|
||||
Properties.Tabs.Strings = (
|
||||
#35746#21333#27719#24635
|
||||
#26126#32454#25968#25454)
|
||||
|
|
@ -324,7 +324,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
object Panel6: TPanel
|
||||
Left = 205
|
||||
Top = 0
|
||||
Width = 1026
|
||||
Width = 873
|
||||
Height = 30
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
|
|
@ -332,7 +332,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
BorderStyle = bsSingle
|
||||
TabOrder = 1
|
||||
DesignSize = (
|
||||
1022
|
||||
869
|
||||
26)
|
||||
object Label1: TLabel
|
||||
Left = 64
|
||||
|
|
@ -424,8 +424,8 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 125
|
||||
Width = 1231
|
||||
Height = 367
|
||||
Width = 1078
|
||||
Height = 375
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 4
|
||||
|
|
@ -571,11 +571,11 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
Options.Editing = False
|
||||
Width = 73
|
||||
end
|
||||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'edZDFNo'
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #32463#36724#25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 74
|
||||
Width = 96
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
|
|
@ -652,13 +652,6 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
Options.Editing = False
|
||||
Width = 55
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 71
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #26465#30721
|
||||
DataBinding.FieldName = 'JYID'
|
||||
|
|
@ -718,12 +711,6 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #32463#32447#25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #32428#32447#25209#21495
|
||||
DataBinding.FieldName = 'WXPH'
|
||||
|
|
|
|||
|
|
@ -80,7 +80,6 @@ type
|
|||
v2Column1: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
cxgrdPS: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
cxgrdMJLen: TcxGridDBColumn;
|
||||
|
|
@ -95,7 +94,6 @@ type
|
|||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
|
|
@ -106,7 +104,7 @@ type
|
|||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
|
|
@ -165,6 +163,7 @@ begin
|
|||
cxgrdCKPS.Visible := True;
|
||||
cxgrdConNoPS.Visible := True;
|
||||
cxgrdWFPS.Visible := True;
|
||||
Tv1Column15.Visible := True;
|
||||
Tv1Column9.Visible := True;
|
||||
Tv1Column4.Visible := True;
|
||||
Tv1Column10.Visible := True;
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmFinishedClothOutList: TfrmFinishedClothOutList
|
||||
Left = 111
|
||||
Top = 91
|
||||
Left = 350
|
||||
Top = 239
|
||||
Width = 1151
|
||||
Height = 515
|
||||
Caption = #25104#21697#20986#24211#31649#29702
|
||||
|
|
@ -716,12 +716,6 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
|
|||
Options.Editing = False
|
||||
Width = 73
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'edZDFNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 78
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'P_CodeName'
|
||||
|
|
@ -749,10 +743,10 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
|
|||
Width = 55
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
Caption = #32463#36724#25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 71
|
||||
Width = 93
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #26465#30721
|
||||
|
|
|
|||
|
|
@ -123,7 +123,6 @@ type
|
|||
carno: TEdit;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -180,6 +179,7 @@ begin
|
|||
cxgrdMJLen.Visible := True;
|
||||
Tv1Column8.Visible := True;
|
||||
Tv1Column9.Visible := True;
|
||||
v1Column10.Visible := True;
|
||||
Tv1Column3.Visible := True;
|
||||
ToolButton1.Visible := True;
|
||||
end;
|
||||
|
|
@ -236,6 +236,7 @@ begin
|
|||
sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
|
||||
sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
|
||||
sql.Add(',' + QuotedStr(fwhere) + ' ');
|
||||
//ShowMessage(sql.text);
|
||||
end;
|
||||
1: /////////////////////////Ã÷ϸ//////////////////////////////
|
||||
begin
|
||||
|
|
@ -249,6 +250,7 @@ begin
|
|||
sql.Add('@pageIndex=' + inttostr(CurrentPage));
|
||||
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
||||
sql.Add(',@criteria= ' + quotedstr(fwhere));
|
||||
//ShowMessage(sql.text);
|
||||
end;
|
||||
end;
|
||||
//ShowMessage(SQL.Text);
|
||||
|
|
@ -530,6 +532,7 @@ begin
|
|||
sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
|
||||
sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
|
||||
sql.Add(',' + QuotedStr(fwhere) + ' ');
|
||||
showmessage(SQL.text);
|
||||
Open;
|
||||
end;
|
||||
ExportFtErpFile('Å÷²¼³ö¿âÈÕ±¨±í.rmf', ADOQueryTemp);
|
||||
|
|
|
|||
|
|
@ -97,6 +97,14 @@ begin
|
|||
dtbase := 'chenfengdata';
|
||||
user := 'rtsa';
|
||||
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;
|
||||
|
||||
end
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
object frmSQKCHZSelList2: TfrmSQKCHZSelList2
|
||||
Left = 254
|
||||
Top = 222
|
||||
Width = 1171
|
||||
Left = 474
|
||||
Top = 467
|
||||
Width = 1086
|
||||
Height = 576
|
||||
Caption = #22383#24067#24211#23384#27719#24635'2'
|
||||
Color = clBtnFace
|
||||
|
|
@ -20,7 +20,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1163
|
||||
Width = 1078
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
@ -73,7 +73,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 95
|
||||
Width = 1163
|
||||
Width = 1078
|
||||
Height = 450
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
|
|
@ -191,7 +191,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1163
|
||||
Width = 1078
|
||||
Height = 62
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
|
|||
|
|
@ -122,7 +122,7 @@ begin
|
|||
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 )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(' 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=''Èë¿â''');
|
||||
|
|
@ -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(') ');
|
||||
|
||||
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
|
||||
|
||||
sql.Add(' ORDER BY a.p_code');
|
||||
|
|
|
|||
|
|
@ -74,8 +74,8 @@ begin
|
|||
dtbase := 'chenfengdata';
|
||||
user := 'rtsa';
|
||||
pswd := 'rightsoft@5740';
|
||||
// server := '.';
|
||||
// dtbase := 'yiduidata';
|
||||
// server := '127.0.0.1';
|
||||
// dtbase := 'delphichenfeng';
|
||||
// user := 'sa';
|
||||
// pswd := 'rightsoft';
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmPlanCardList: TfrmPlanCardList
|
||||
Left = 91
|
||||
Top = 319
|
||||
Left = 274
|
||||
Top = 195
|
||||
Width = 1540
|
||||
Height = 764
|
||||
Caption = #32463#36724#35745#21010
|
||||
|
|
@ -1208,7 +1208,7 @@ object frmPlanCardList: TfrmPlanCardList
|
|||
object CDS_QZ: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 816
|
||||
Left = 808
|
||||
Top = 456
|
||||
end
|
||||
object RMDB_QZ: TRMDBDataSet
|
||||
|
|
|
|||
|
|
@ -12,7 +12,20 @@ uses
|
|||
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
|
||||
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
|
||||
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
|
||||
TfrmPlanCardList = class(TForm)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmShuttleClothGYList: TfrmShuttleClothGYList
|
||||
Left = 481
|
||||
Top = 439
|
||||
Left = 486
|
||||
Top = 565
|
||||
Width = 1377
|
||||
Height = 581
|
||||
Caption = #26797#32455#32455#36896#21333
|
||||
|
|
@ -33,7 +33,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1369
|
||||
Width = 1361
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -117,7 +117,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
|
|||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 504
|
||||
Top = 3
|
||||
Top = 0
|
||||
Width = 145
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
|
|
@ -165,7 +165,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1369
|
||||
Width = 1361
|
||||
Height = 73
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -318,7 +318,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1369
|
||||
Width = 1361
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -330,14 +330,14 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
|
|||
#24050#21024#38500#25968#25454)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1369
|
||||
ClientRectRight = 1361
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxGrid4: TcxGrid
|
||||
Left = 0
|
||||
Top = 127
|
||||
Width = 1369
|
||||
Height = 423
|
||||
Width = 1361
|
||||
Height = 415
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -11,7 +11,20 @@ uses
|
|||
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
|
||||
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg,
|
||||
dxBarBuiltInMenu, cxPC, cxCheckBox;
|
||||
dxBarBuiltInMenu, cxPC, cxCheckBox, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmShuttleClothGYList = class(TForm)
|
||||
|
|
@ -319,7 +332,8 @@ procedure TfrmShuttleClothGYList.InitForm();
|
|||
begin
|
||||
InitButton();
|
||||
ReadCxGrid(Trim(self.Caption), Tv3, '坯布生产管理');
|
||||
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
|
||||
//BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
|
||||
BegDate.DateTime := StrToDate('2024-01-01');
|
||||
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
|
||||
InitGrid();
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
||||
Left = 488
|
||||
Top = 489
|
||||
Left = 165
|
||||
Top = 249
|
||||
Width = 1377
|
||||
Height = 581
|
||||
Caption = #24037#33402#21333#36873#25321
|
||||
|
|
@ -33,7 +33,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1369
|
||||
Width = 1361
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
@ -87,7 +87,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1369
|
||||
Width = 1361
|
||||
Height = 73
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -188,8 +188,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 127
|
||||
Width = 1369
|
||||
Height = 423
|
||||
Width = 1361
|
||||
Height = 415
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
@ -395,8 +395,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 127
|
||||
Width = 1369
|
||||
Height = 423
|
||||
Width = 1361
|
||||
Height = 415
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object cxGridDBTableView1: TcxGridDBTableView
|
||||
|
|
@ -602,8 +602,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
|||
object cxGrid3: TcxGrid
|
||||
Left = 0
|
||||
Top = 127
|
||||
Width = 1369
|
||||
Height = 423
|
||||
Width = 1361
|
||||
Height = 415
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object cxGridDBTableView2: TcxGridDBTableView
|
||||
|
|
@ -809,8 +809,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
|||
object cxGrid4: TcxGrid
|
||||
Left = 0
|
||||
Top = 127
|
||||
Width = 1369
|
||||
Height = 423
|
||||
Width = 1361
|
||||
Height = 415
|
||||
Align = alClient
|
||||
TabOrder = 5
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
@ -982,7 +982,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1369
|
||||
Width = 1361
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 6
|
||||
|
|
@ -994,7 +994,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
|
|||
#24050#21024#38500#25968#25454)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1369
|
||||
ClientRectRight = 1361
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
|
|
|
|||
|
|
@ -241,7 +241,7 @@ procedure TfrmShuttleClothGYListSEL.InitForm();
|
|||
begin
|
||||
|
||||
ReadCxGrid(Trim(self.Caption), Tv1, '坯布生产管理');
|
||||
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
|
||||
BegDate.DateTime := StrToDate('2024-01-01');;
|
||||
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
|
||||
InitGrid();
|
||||
TBFind.Click();
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
object frmClothSCInPut: TfrmClothSCInPut
|
||||
Left = 329
|
||||
Top = 86
|
||||
Width = 1474
|
||||
Left = 363
|
||||
Top = 107
|
||||
Width = 1464
|
||||
Height = 760
|
||||
Align = alClient
|
||||
Caption = #26797#32455#32455#36896#21333#24405#20837
|
||||
|
|
@ -19,7 +19,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1466
|
||||
Width = 1448
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 95
|
||||
|
|
@ -65,7 +65,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object ScrollBox1: TScrollBox
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 1466
|
||||
Width = 1448
|
||||
Height = 416
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
|
|
@ -715,6 +715,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 69
|
||||
Width = 119
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -791,6 +792,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 65
|
||||
Width = 119
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -820,6 +822,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Left = 90
|
||||
Top = 68
|
||||
BeepOnEnter = False
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -844,6 +847,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 71
|
||||
Width = 118
|
||||
Height = 20
|
||||
Enabled = False
|
||||
TabOrder = 2
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
|
|
@ -927,6 +931,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 173
|
||||
Width = 118
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -942,6 +947,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 174
|
||||
Width = 118
|
||||
Height = 20
|
||||
Enabled = False
|
||||
TabOrder = 18
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
|
|
@ -951,6 +957,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 205
|
||||
Width = 118
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -966,6 +973,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 232
|
||||
Width = 118
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -1034,6 +1042,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 264
|
||||
Width = 482
|
||||
Height = 121
|
||||
Enabled = False
|
||||
TabOrder = 24
|
||||
end
|
||||
object ZJPiLen: TEdit
|
||||
|
|
@ -1065,6 +1074,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 232
|
||||
Width = 118
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -1089,6 +1099,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 202
|
||||
Width = 118
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -1114,6 +1125,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Width = 120
|
||||
Height = 20
|
||||
CharCase = ecUpperCase
|
||||
Enabled = False
|
||||
TabOrder = 31
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
|
|
@ -1123,6 +1135,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 207
|
||||
Width = 118
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -1138,6 +1151,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 234
|
||||
Width = 121
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -1153,6 +1167,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 207
|
||||
Width = 118
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -1168,6 +1183,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Top = 234
|
||||
Width = 121
|
||||
Height = 22
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -1273,8 +1289,8 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object cxPageControl1: TcxPageControl
|
||||
Left = 0
|
||||
Top = 474
|
||||
Width = 1466
|
||||
Height = 255
|
||||
Width = 1448
|
||||
Height = 247
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -1287,8 +1303,8 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
OnChange = cxPageControl1Change
|
||||
ClientRectBottom = 255
|
||||
ClientRectRight = 1466
|
||||
ClientRectBottom = 247
|
||||
ClientRectRight = 1448
|
||||
ClientRectTop = 23
|
||||
object cxTabSheet1: TcxTabSheet
|
||||
Caption = #32463#19997#32452#21512
|
||||
|
|
@ -1296,8 +1312,8 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object GroupBox1: TGroupBox
|
||||
Left = 980
|
||||
Top = 0
|
||||
Width = 486
|
||||
Height = 232
|
||||
Width = 468
|
||||
Height = 224
|
||||
Align = alClient
|
||||
Caption = #32463#25490#21015
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -1311,9 +1327,10 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Tag = 2
|
||||
Left = 2
|
||||
Top = 31
|
||||
Width = 482
|
||||
Height = 199
|
||||
Width = 464
|
||||
Height = 191
|
||||
Align = alClient
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
|
|
@ -1327,7 +1344,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 980
|
||||
Height = 232
|
||||
Height = 224
|
||||
Align = alLeft
|
||||
TabOrder = 1
|
||||
object TV1: TcxGridDBTableView
|
||||
|
|
@ -1377,6 +1394,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Moving = False
|
||||
|
|
@ -1387,6 +1405,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Caption = #20811#25968
|
||||
DataBinding.FieldName = 'Y_Qty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 143
|
||||
|
|
@ -1394,18 +1413,39 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object TV1Column1: TcxGridDBColumn
|
||||
Caption = #25467#24230
|
||||
DataBinding.FieldName = 'Y_Ndu'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 79
|
||||
end
|
||||
object TV1Column2: TcxGridDBColumn
|
||||
Caption = #26681#25968
|
||||
DataBinding.FieldName = 'Y_roots'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 69
|
||||
end
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Y_Note'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Moving = False
|
||||
Options.Sorting = False
|
||||
|
|
@ -1423,10 +1463,11 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object GroupBox2: TGroupBox
|
||||
Left = 980
|
||||
Top = 0
|
||||
Width = 530
|
||||
Height = 281
|
||||
Width = 468
|
||||
Height = 224
|
||||
Align = alClient
|
||||
Caption = #32428#25490#21015
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -29
|
||||
|
|
@ -1438,8 +1479,8 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Tag = 2
|
||||
Left = 2
|
||||
Top = 31
|
||||
Width = 526
|
||||
Height = 248
|
||||
Width = 464
|
||||
Height = 191
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -1454,7 +1495,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 980
|
||||
Height = 281
|
||||
Height = 224
|
||||
Align = alLeft
|
||||
TabOrder = 1
|
||||
object TV2: TcxGridDBTableView
|
||||
|
|
@ -1504,6 +1545,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Moving = False
|
||||
|
|
@ -1514,24 +1556,52 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object cxGridDBColumn9: TcxGridDBColumn
|
||||
Caption = #20811#25968
|
||||
DataBinding.FieldName = 'Y_Qty'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 143
|
||||
end
|
||||
object TV2Column1: TcxGridDBColumn
|
||||
Caption = #25467#24230
|
||||
DataBinding.FieldName = 'Y_Ndu'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object TV2Column2: TcxGridDBColumn
|
||||
Caption = #26681#25968
|
||||
DataBinding.FieldName = 'Y_roots'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object cxGridDBColumn10: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Y_Note'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Moving = False
|
||||
Options.Sorting = False
|
||||
|
|
@ -1549,7 +1619,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object ScrollBox2: TScrollBox
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1458
|
||||
Width = 1448
|
||||
Height = 224
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
|
|
@ -2642,8 +2712,8 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object ScrollBox3: TScrollBox
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1466
|
||||
Height = 232
|
||||
Width = 1448
|
||||
Height = 224
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
OnMouseWheel = ScrollBox3MouseWheel
|
||||
|
|
@ -2674,7 +2744,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Properties.ShowFocusRect = False
|
||||
Style.BorderStyle = ebsSingle
|
||||
TabOrder = 0
|
||||
Height = 211
|
||||
Height = 203
|
||||
Width = 481
|
||||
end
|
||||
object YWBian: TMemo
|
||||
|
|
@ -2682,7 +2752,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
Left = 701
|
||||
Top = 0
|
||||
Width = 794
|
||||
Height = 211
|
||||
Height = 203
|
||||
Align = alRight
|
||||
TabOrder = 1
|
||||
end
|
||||
|
|
@ -2692,7 +2762,7 @@ object frmClothSCInPut: TfrmClothSCInPut
|
|||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Top = 445
|
||||
Width = 1466
|
||||
Width = 1448
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
|
|||
|
|
@ -849,7 +849,7 @@ begin
|
|||
|
||||
QDDate.Checked := True;
|
||||
DeliveryDate.Date := QDDate.DateTime;
|
||||
kongjia.Text := '1';
|
||||
kongjia.Text := '0.5';
|
||||
kongjiawei.Text := '0';
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmShuttleClothSCList: TfrmShuttleClothSCList
|
||||
Left = 146
|
||||
Top = 172
|
||||
Left = 165
|
||||
Top = 220
|
||||
Width = 1377
|
||||
Height = 579
|
||||
Caption = #26797#32455#32455#36896#21333
|
||||
|
|
@ -117,7 +117,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
|
|||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 504
|
||||
Top = 3
|
||||
Top = 0
|
||||
Width = 145
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object Form1: TForm1
|
||||
Left = 203
|
||||
Top = 121
|
||||
Left = 587
|
||||
Top = 348
|
||||
Width = 791
|
||||
Height = 554
|
||||
Caption = 'Form1'
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@ object DataLink_Yarn: TDataLink_Yarn
|
|||
OldCreateOrder = False
|
||||
OnCreate = DataModuleCreate
|
||||
OnDestroy = DataModuleDestroy
|
||||
Left = 343
|
||||
Top = 231
|
||||
Left = 490
|
||||
Top = 105
|
||||
Height = 349
|
||||
Width = 482
|
||||
object AdoDataLink: TADOQuery
|
||||
|
|
|
|||
|
|
@ -71,11 +71,18 @@ begin
|
|||
|
||||
if Trim(DataBaseStr) = '' then
|
||||
begin
|
||||
server := '101.132.143.144,7781';
|
||||
// server := '101.132.143.144,7781';
|
||||
//// server := '.';
|
||||
// dtbase := 'chenfengdata';
|
||||
// user := 'rtsa';
|
||||
// pswd := 'rightsoft@5740';
|
||||
|
||||
|
||||
server := '127.0.0.1';
|
||||
// server := '.';
|
||||
dtbase := 'chenfengdata';
|
||||
user := 'rtsa';
|
||||
pswd := 'rightsoft@5740';
|
||||
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;
|
||||
|
||||
end
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmShaKCHZList: TfrmShaKCHZList
|
||||
Left = 190
|
||||
Top = 136
|
||||
Left = 202
|
||||
Top = 556
|
||||
Width = 1256
|
||||
Height = 630
|
||||
Caption = #32433#32447#24211#23384#27719#24635#21015#34920
|
||||
|
|
@ -148,11 +148,11 @@ object frmShaKCHZList: TfrmShaKCHZList
|
|||
Left = 0
|
||||
Top = 70
|
||||
Width = 1240
|
||||
Height = 522
|
||||
Height = 521
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
|
|
@ -224,8 +224,8 @@ object frmShaKCHZList: TfrmShaKCHZList
|
|||
DataBinding.FieldName = 'SPCode'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 89
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
|
|
|
|||
|
|
@ -10,7 +10,22 @@ uses
|
|||
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
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
|
||||
TfrmShaKCHZList = class(TForm)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmShaKCList: TfrmShaKCList
|
||||
Left = 132
|
||||
Top = 134
|
||||
Left = 35
|
||||
Top = 540
|
||||
Width = 1382
|
||||
Height = 611
|
||||
Caption = #32433#32447#24211#23384#21015#34920
|
||||
|
|
@ -20,7 +20,7 @@ object frmShaKCList: TfrmShaKCList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1374
|
||||
Width = 1366
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
@ -91,7 +91,7 @@ object frmShaKCList: TfrmShaKCList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1374
|
||||
Width = 1366
|
||||
Height = 60
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -198,8 +198,8 @@ object frmShaKCList: TfrmShaKCList
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 93
|
||||
Width = 1374
|
||||
Height = 487
|
||||
Width = 1366
|
||||
Height = 479
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
@ -487,8 +487,8 @@ object frmShaKCList: TfrmShaKCList
|
|||
object CDS_Print: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 348
|
||||
Top = 332
|
||||
Left = 180
|
||||
Top = 284
|
||||
end
|
||||
object RMDBPrint: TRMDBDataSet
|
||||
Visible = True
|
||||
|
|
|
|||
|
|
@ -12,7 +12,20 @@ uses
|
|||
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,Math,
|
||||
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
|
||||
TfrmShaKCList = class(TForm)
|
||||
|
|
@ -258,7 +271,7 @@ begin
|
|||
TcxGridToExcel('É´Ïß¿â´æÁбí', cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmShaKCList.ToolButton3Click(Sender: TObject);
|
||||
procedure TfrmShaKCList.ToolButton3Click(Sender: TObject); //print
|
||||
var
|
||||
fPrintFile: string;
|
||||
Txt, fImagePath,CNSql,FNSql,BNSql,CTSql: string;
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
object frmShaOutList: TfrmShaOutList
|
||||
Left = 363
|
||||
Top = 647
|
||||
Width = 1356
|
||||
Height = 667
|
||||
Left = 620
|
||||
Top = 492
|
||||
Width = 1355
|
||||
Height = 451
|
||||
Caption = #32433#32447#20986#24211#21015#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -21,7 +21,7 @@ object frmShaOutList: TfrmShaOutList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1348
|
||||
Width = 1339
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
|
|
@ -107,7 +107,7 @@ object frmShaOutList: TfrmShaOutList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1348
|
||||
Width = 1339
|
||||
Height = 61
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -335,12 +335,13 @@ object frmShaOutList: TfrmShaOutList
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 116
|
||||
Width = 1348
|
||||
Height = 520
|
||||
Width = 1339
|
||||
Height = 296
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCustomDrawCell = Tv1CustomDrawCell
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -363,11 +364,16 @@ object frmShaOutList: TfrmShaOutList
|
|||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Content = cxStyle1
|
||||
Styles.Header = cxStyle1
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'Ssel'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 72
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #20986#24211#21333#21495
|
||||
DataBinding.FieldName = 'Y_ID'
|
||||
|
|
@ -561,6 +567,10 @@ object frmShaOutList: TfrmShaOutList
|
|||
Options.Editing = False
|
||||
Width = 100
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #25171#21360
|
||||
DataBinding.FieldName = 'DYFlag'
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -569,7 +579,7 @@ object frmShaOutList: TfrmShaOutList
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 94
|
||||
Width = 1348
|
||||
Width = 1339
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 3
|
||||
|
|
@ -582,7 +592,7 @@ object frmShaOutList: TfrmShaOutList
|
|||
#24050#20316#24223#25968#25454)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 23
|
||||
ClientRectRight = 1348
|
||||
ClientRectRight = 1339
|
||||
ClientRectTop = 23
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
|
|
@ -644,7 +654,7 @@ object frmShaOutList: TfrmShaOutList
|
|||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_Main
|
||||
DataSet = CDS_PRT
|
||||
Left = 424
|
||||
Top = 232
|
||||
end
|
||||
|
|
@ -703,4 +713,15 @@ object frmShaOutList: TfrmShaOutList
|
|||
Font.Style = [fsBold]
|
||||
end
|
||||
end
|
||||
object CDS_Print: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 208
|
||||
Top = 264
|
||||
end
|
||||
object ADOTmp: TADOQuery
|
||||
Parameters = <>
|
||||
Left = 104
|
||||
Top = 232
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -105,6 +105,10 @@ type
|
|||
cxStyle1: TcxStyle;
|
||||
Note: TEdit;
|
||||
Label7: TLabel;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
CDS_Print: TClientDataSet;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
ADOTmp: TADOQuery;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -129,6 +133,9 @@ type
|
|||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure v2Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||||
var ADone: Boolean);
|
||||
private
|
||||
canshu1, canshu2: string;
|
||||
procedure InitGrid();
|
||||
|
|
@ -211,6 +218,7 @@ end;
|
|||
procedure TfrmShaOutList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('纱线出库列表121', Tv1, '纱线仓库');
|
||||
//ReadCxGrid('纱线出库列表121', Tv1, '纱线仓库');
|
||||
Close;
|
||||
end;
|
||||
|
||||
|
|
@ -258,7 +266,7 @@ begin
|
|||
end;
|
||||
fsj := 'select distinct(Crtype) name from CK_Yarn_CR where ckname=''纱线'' and crflag=''出库'' ';
|
||||
SInitComBoxBySql(ADOQueryCmd, CRType, False, fsj);
|
||||
//InitGrid();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmShaOutList.TBExportClick(Sender: TObject);
|
||||
|
|
@ -402,6 +410,8 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure TfrmShaOutList.TBEditClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
|
|
@ -525,47 +535,95 @@ end;
|
|||
|
||||
procedure TfrmShaOutList.ToolButton1Click(Sender: TObject);
|
||||
var
|
||||
filepath: string;
|
||||
mBegdate, mEnddate: string;
|
||||
FName, FNameSX, FNameJX: string;
|
||||
i: Integer;
|
||||
fPrintFile, Txt, fImagePath, YIDSql: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
SelectedCount: 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;
|
||||
Exit;
|
||||
|
||||
ExportFtErpFile('纱线出库报表.rmf', ADOQueryTemp);
|
||||
try
|
||||
filepath := ExtractFilePath(Application.ExeName) + 'report\纱线出库报表.rmf';
|
||||
if not FileExists(Pchar(filepath)) then
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
|
||||
exit;
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
SelectedCount := 0;
|
||||
YIDSql := '';
|
||||
CDS_Main.DisableControls;
|
||||
|
||||
try
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if FieldByName('SSel').AsBoolean then
|
||||
begin
|
||||
if YIDSql <> '' then
|
||||
YIDSql := YIDSql + ',' + QuotedStr(Trim(FieldByName('Y_ID').AsString))
|
||||
else
|
||||
YIDSql := QuotedStr(Trim(FieldByName('Y_ID').AsString));
|
||||
|
||||
Inc(SelectedCount);
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);
|
||||
RM1.LoadFromFile(filepath);
|
||||
RM1.ShowReport;
|
||||
finally
|
||||
|
||||
CDS_Main.EnableControls;
|
||||
end;
|
||||
|
||||
if YIDSql = '' then
|
||||
begin
|
||||
Application.MessageBox('未选择任何数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select A.* ');
|
||||
sql.Add(' from CK_Yarn_CR A');
|
||||
sql.Add(' where isnull(CKName,'''')=''纱线''');
|
||||
SQL.Add(' and CRFlag=''出库''');
|
||||
SQL.Add(' and A.Y_ID in (' + YIDSql + ')');
|
||||
SQL.Add(' order by CRTime desc');
|
||||
Open;
|
||||
end;
|
||||
|
||||
if ADOQueryCmd.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('未找到对应的纱线出库数据！', '提示信息', MB_ICONINFORMATION);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
SCreateCDS20(ADOQueryCmd, CDS_PRT);
|
||||
SInitCDSData20(ADOQueryCmd, CDS_PRT);
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('UPDATE CK_Yarn_CR set DYFLAG=''已打印'' where Y_ID in (' + YIDSql + ')');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线出库报表.rmf';
|
||||
ExportFtErpFile('纱线出库报表.rmf', ADOQueryCmd);
|
||||
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
RM1.ShowReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox(PChar('未找到报表文件：' + #13#10 + fPrintFile), '提示', MB_ICONWARNING);
|
||||
end;
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmShaOutList.v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
|
|
@ -594,5 +652,15 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmShaOutList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||||
var ADone: Boolean);
|
||||
begin
|
||||
if '已打印' = AViewInfo.GridRecord.Values[Tv1Column3.Index] then
|
||||
ACanvas.Brush.Color := $0080FF80;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmShaOutPut: TfrmShaOutPut
|
||||
Left = 289
|
||||
Top = 247
|
||||
Left = 158
|
||||
Top = 186
|
||||
Width = 1383
|
||||
Height = 644
|
||||
Align = alClient
|
||||
|
|
|
|||
|
|
@ -467,7 +467,7 @@ begin
|
|||
if SaveCKData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功!', '提示', 0);
|
||||
//ModalResult:=1;
|
||||
ModalResult:=1;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user