1234
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
81ca91d7fa
commit
47c211dfc0
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Dp7Repo\淃커덜쯤\驪湛\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
|
HostApplication=D:\D7W\淃커덜쯤\D7myzhenyong\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
||||||
|
|
@ -261,7 +261,8 @@ object frmWJGCKOutList: TfrmWJGCKOutList
|
||||||
#24179#31227#20986#24211
|
#24179#31227#20986#24211
|
||||||
#22238#20462#20986#24211
|
#22238#20462#20986#24211
|
||||||
#35797#26679#20986#24211
|
#35797#26679#20986#24211
|
||||||
#27425#21697#20986#24211)
|
#27425#21697#20986#24211
|
||||||
|
#20854#20182#20986#24211)
|
||||||
end
|
end
|
||||||
object SPCF: TEdit
|
object SPCF: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,21 @@ uses
|
||||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||||
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
|
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
|
||||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||||
|
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
||||||
|
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||||
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
||||||
|
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||||||
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmWJGCKOutList = class(TForm)
|
TfrmWJGCKOutList = class(TForm)
|
||||||
|
|
|
||||||
|
|
@ -144,7 +144,8 @@ object frmWJGCKOutPut: TfrmWJGCKOutPut
|
||||||
#24179#31227#20986#24211
|
#24179#31227#20986#24211
|
||||||
#22238#20462#20986#24211
|
#22238#20462#20986#24211
|
||||||
#35797#26679#20986#24211
|
#35797#26679#20986#24211
|
||||||
#27425#21697#20986#24211)
|
#27425#21697#20986#24211
|
||||||
|
#20854#20182#20986#24211)
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 81
|
Width = 81
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,21 @@ uses
|
||||||
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||||
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
|
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
|
||||||
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
|
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
|
||||||
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||||
|
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||||||
|
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||||
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
||||||
|
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||||||
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmWJGCKOutPut = class(TForm)
|
TfrmWJGCKOutPut = class(TForm)
|
||||||
|
|
|
||||||
372
应收应付/U_CKProductXSMHZList.dfm
Normal file
372
应收应付/U_CKProductXSMHZList.dfm
Normal file
|
|
@ -0,0 +1,372 @@
|
||||||
|
object frmCKProducTXSHZList: TfrmCKProducTXSHZList
|
||||||
|
Left = 384
|
||||||
|
Top = 164
|
||||||
|
Width = 1027
|
||||||
|
Height = 511
|
||||||
|
Caption = #27599#26085#38144#21806#36134#21333
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1011
|
||||||
|
Height = 33
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 59
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
Flat = True
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_FinishedClothWarehouse.ThreeImgList
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object TBFind: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36807#28388
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = TBFindClick
|
||||||
|
end
|
||||||
|
object TBExport: TToolButton
|
||||||
|
Left = 126
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986
|
||||||
|
ImageIndex = 68
|
||||||
|
OnClick = TBExportClick
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 189
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 33
|
||||||
|
Width = 1011
|
||||||
|
Height = 56
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clSkyBlue
|
||||||
|
TabOrder = 1
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 158
|
||||||
|
Top = 34
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #20013#25991#21517#31216
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 182
|
||||||
|
Top = 10
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #39068#33394
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 20
|
||||||
|
Top = 10
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #26597#35810#26102#38388
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 52
|
||||||
|
Top = 34
|
||||||
|
Width = 12
|
||||||
|
Height = 12
|
||||||
|
Caption = #33267
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 36
|
||||||
|
Top = 72
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #26465' '#30721
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 321
|
||||||
|
Top = 8
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #23458#25143
|
||||||
|
end
|
||||||
|
object MPRTCodeName2: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 211
|
||||||
|
Top = 29
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 1
|
||||||
|
OnChange = MPRTCodeName2Change
|
||||||
|
end
|
||||||
|
object BegDate: TDateTimePicker
|
||||||
|
Left = 65
|
||||||
|
Top = 7
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.458268587970000000
|
||||||
|
Time = 40768.458268587970000000
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 65
|
||||||
|
Top = 31
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.458268587970000000
|
||||||
|
Time = 40768.458268587970000000
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object MJID: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 82
|
||||||
|
Top = 68
|
||||||
|
Width = 109
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = MPRTCodeName2Change
|
||||||
|
end
|
||||||
|
object tt: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 347
|
||||||
|
Top = 4
|
||||||
|
Width = 80
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 4
|
||||||
|
OnChange = MPRTCodeName2Change
|
||||||
|
end
|
||||||
|
object prtcolor2: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 212
|
||||||
|
Top = 4
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 5
|
||||||
|
OnChange = MPRTCodeName2Change
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 89
|
||||||
|
Width = 1011
|
||||||
|
Height = 383
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 2
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
DataController.DataSource = DataSource1
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v1Column6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2Column5
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2Column6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column1
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
Styles.Inactive = DataLink_FinishedClothWarehouse.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_FinishedClothWarehouse.SHuangSe
|
||||||
|
Styles.Selection = DataLink_FinishedClothWarehouse.SHuangSe
|
||||||
|
Styles.Header = DataLink_FinishedClothWarehouse.Default
|
||||||
|
object v1Column4: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'CustomerNoName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 94
|
||||||
|
end
|
||||||
|
object Tv1Column5: TcxGridDBColumn
|
||||||
|
Caption = #24037#33402
|
||||||
|
DataBinding.FieldName = 'gongyi'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 68
|
||||||
|
end
|
||||||
|
object v2Column1: TcxGridDBColumn
|
||||||
|
Caption = #20013#25991#21517#31216
|
||||||
|
DataBinding.FieldName = 'MPRTCodeName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 92
|
||||||
|
end
|
||||||
|
object v2Column3: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'PRTColor'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 77
|
||||||
|
end
|
||||||
|
object v1Column6: TcxGridDBColumn
|
||||||
|
Caption = #21367#25968
|
||||||
|
DataBinding.FieldName = 'JQty'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 74
|
||||||
|
end
|
||||||
|
object v2Column6: TcxGridDBColumn
|
||||||
|
Caption = #31859#25968
|
||||||
|
DataBinding.FieldName = 'Qty2'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 85
|
||||||
|
end
|
||||||
|
object v1Column13: TcxGridDBColumn
|
||||||
|
Caption = #21333#20215
|
||||||
|
DataBinding.FieldName = 'PRICE'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v2Column5: TcxGridDBColumn
|
||||||
|
Caption = #37329#39069
|
||||||
|
DataBinding.FieldName = 'MONEY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #21152#24037#31859#25968
|
||||||
|
DataBinding.FieldName = 'qty1'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 84
|
||||||
|
end
|
||||||
|
object Tv1Column6: TcxGridDBColumn
|
||||||
|
Caption = #24213#24067#39068#33394
|
||||||
|
DataBinding.FieldName = 'dbcolor'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #24213#24067#31859#25968
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
object Tv1Column3: TcxGridDBColumn
|
||||||
|
Caption = #24213#24067#20844#26020
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 77
|
||||||
|
end
|
||||||
|
object Tv1Column4: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'cknote'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = Tv1Column4PropertiesEditValueChanged
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MovePanel2: TMovePanel
|
||||||
|
Left = 408
|
||||||
|
Top = 192
|
||||||
|
Width = 289
|
||||||
|
Height = 49
|
||||||
|
BevelInner = bvLowered
|
||||||
|
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
|
||||||
|
Color = clSkyBlue
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -14
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_FinishedClothWarehouse.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 968
|
||||||
|
Top = 40
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_FinishedClothWarehouse.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 984
|
||||||
|
Top = 40
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_FinishedClothWarehouse.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 944
|
||||||
|
Top = 32
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = CDS_Main
|
||||||
|
Left = 920
|
||||||
|
Top = 152
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 888
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
|
object CDS_Main: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 896
|
||||||
|
Top = 128
|
||||||
|
end
|
||||||
|
end
|
||||||
279
应收应付/U_CKProductXSMHZList.pas
Normal file
279
应收应付/U_CKProductXSMHZList.pas
Normal file
|
|
@ -0,0 +1,279 @@
|
||||||
|
unit U_CKProductXSMHZList;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||||
|
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||||
|
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||||
|
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||||
|
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||||
|
cxDropDownEdit, MovePanel, cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||||
|
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||||
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||||
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||||
|
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||||
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||||
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||||
|
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||||
|
dxSkinscxPCPainter, cxTextEdit;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmCKProducTXSHZList = class(TForm)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBFind: TToolButton;
|
||||||
|
TBExport: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
MPRTCodeName2: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
BegDate: TDateTimePicker;
|
||||||
|
EndDate: TDateTimePicker;
|
||||||
|
CDS_Main: TClientDataSet;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
cxGrid2Level1: TcxGridLevel;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
v2Column1: TcxGridDBColumn;
|
||||||
|
v2Column3: TcxGridDBColumn;
|
||||||
|
v2Column5: TcxGridDBColumn;
|
||||||
|
v2Column6: TcxGridDBColumn;
|
||||||
|
Label6: TLabel;
|
||||||
|
MJID: TEdit;
|
||||||
|
v1Column6: TcxGridDBColumn;
|
||||||
|
MovePanel2: TMovePanel;
|
||||||
|
v1Column13: TcxGridDBColumn;
|
||||||
|
v1Column4: TcxGridDBColumn;
|
||||||
|
Label11: TLabel;
|
||||||
|
tt: TEdit;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
Tv1Column3: TcxGridDBColumn;
|
||||||
|
Tv1Column4: TcxGridDBColumn;
|
||||||
|
Tv1Column5: TcxGridDBColumn;
|
||||||
|
prtcolor2: TEdit;
|
||||||
|
Tv1Column6: TcxGridDBColumn;
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure ConNoMChange(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBExportClick(Sender: TObject);
|
||||||
|
procedure TBFindClick(Sender: TObject);
|
||||||
|
procedure MPRTCodeName2Change(Sender: TObject);
|
||||||
|
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure PRTColorChange(Sender: TObject);
|
||||||
|
procedure Tv1Column4PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure InitGrid();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmCKProducTXSHZList: TfrmCKProducTXSHZList;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_Fun, U_ZDYHelp;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frmCKProductXSHZList := nil;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//cxGrid1.Align:=alClient;
|
||||||
|
BegDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.InitGrid();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
|
||||||
|
// sql.Add('select b.CustomerNoName,SUM(round((a.qty-a.kongjia)*machi,2)) Qty,SUM(A.NetKGQty) NetKGQty,count(A.MJID) JQty ');
|
||||||
|
// sql.Add(' ,B.MPRTCodeName, PRTColor=isnull(jycolor,PRTColor),B.PRICE,MONEY=SUM(B.PRICE*(a.qty-a.kongjia)*machi),A.cknote ');
|
||||||
|
//
|
||||||
|
// sql.Add('from CK_BanCP_CR A inner join JYOrder_Main B on A.MainId=B.MainId ');
|
||||||
|
// sql.Add('inner join JYOrder_Sub C on A.SubId=C.SubId ');
|
||||||
|
//// sql.Add('inner join JYOrder_Car D on D.CarNo=A.APID ');
|
||||||
|
// sql.Add(' where A.CRFlag=''出库'' ');
|
||||||
|
//
|
||||||
|
// sql.Add(' and A.CRTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)));
|
||||||
|
// sql.Add(' and A.CRTime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)));
|
||||||
|
//
|
||||||
|
// sql.Add(' group by CustomerNoName,MPRTCodeName,isnull(jycolor,PRTColor),B.PRICE,A.cknote ');
|
||||||
|
|
||||||
|
sql.Add('EXEC P_EVERYDAY_XS ');
|
||||||
|
sql.Add('@begdate=''' + formatdateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
|
||||||
|
sql.Add(',@enddate=''' + formatdateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
|
||||||
|
|
||||||
|
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, CDS_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//BegDate.SetFocus;
|
||||||
|
MovePanel2.Visible := True;
|
||||||
|
MovePanel2.Refresh;
|
||||||
|
InitGrid();
|
||||||
|
MovePanel2.Visible := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.ConNoMChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(trim(self.Caption), Tv1, '三水成品仓库');
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ReadCxGrid(trim(self.Caption), Tv1, '三水成品仓库');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.TBExportClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.IsEmpty then
|
||||||
|
exit;
|
||||||
|
TcxGridToExcel('库存汇总列表', cxGrid2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.TBFindClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, CDS_Main);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.MPRTCodeName2Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBFind.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
flag := 'SOrdDefStr10';
|
||||||
|
flagname := '库存存放地点';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with CDS_Main do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('SOrdDefStr10').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('Update JYOrder_Sub Set SOrdDefStr10=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
|
||||||
|
sql.Add(' where SubId=''' + Trim(Self.CDS_Main.fieldbyname('SubId').AsString) + '''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.PRTColorChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBFind.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProducTXSHZList.Tv1Column4PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalue, FFieldName: string;
|
||||||
|
begin
|
||||||
|
mvalue := TcxTextEdit(Sender).EditingText;
|
||||||
|
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||||||
|
with CDS_Main do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName(FFieldName).Value := mvalue;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
SQL.Add('UPDATE CK_BanCP_CR SET cknote=' + QuotedStr(mvalue));
|
||||||
|
SQL.ADD(' where MJID IN (SELECT MJID FROM ');
|
||||||
|
SQL.Add(' CK_BanCP_CR A inner join JYOrder_Main B on A.MainId=B.MainId ');
|
||||||
|
SQL.Add('inner join JYOrder_Sub C on A.SubId=C.SubId ');
|
||||||
|
sql.Add(' where A.CRFlag=''出库'' ');
|
||||||
|
|
||||||
|
sql.Add(' and A.CRTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)));
|
||||||
|
sql.Add(' and A.CRTime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)));
|
||||||
|
SQL.Add(' AND b.CustomerNoName=' + QuotedStr(CDS_Main.FIELDBYNAME('CustomerNoName').AsString));
|
||||||
|
SQL.Add(' AND B.MPRTCodeName=' + QuotedStr(CDS_Main.FIELDBYNAME('MPRTCodeName').AsString));
|
||||||
|
SQL.Add(' AND isnull(jycolor,PRTColor)=' + QuotedStr(CDS_Main.FIELDBYNAME('PRTColor').AsString));
|
||||||
|
SQL.Add(' AND ISNULL(B.PRICE,0)=' + (CDS_Main.FIELDBYNAME('PRICE').AsString));
|
||||||
|
SQL.Add(' AND ISNULL(a.cknote,'''')=' + QuotedStr(CDS_Main.FIELDBYNAME('cknote').AsString));
|
||||||
|
|
||||||
|
sql.Add(')');
|
||||||
|
// ShowMessage(SQL.Text);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
@ -21,7 +21,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 31
|
Height = 31
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 95
|
ButtonWidth = 95
|
||||||
|
|
@ -78,7 +78,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 31
|
Top = 31
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 70
|
Height = 70
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -328,8 +328,8 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 101
|
Top = 101
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 331
|
Height = 323
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
|
|
@ -526,8 +526,8 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
end
|
end
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 432
|
Top = 424
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 291
|
Height = 291
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
|
@ -676,6 +676,18 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 126
|
Width = 126
|
||||||
end
|
end
|
||||||
|
object TV2Column3: TcxGridDBColumn
|
||||||
|
Caption = #19979#21333#26085#26399
|
||||||
|
DataBinding.FieldName = 'OrdDate'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 68
|
||||||
|
end
|
||||||
|
object TV2Column4: TcxGridDBColumn
|
||||||
|
Caption = #25910#27719#26085#26399
|
||||||
|
DataBinding.FieldName = 'CRTIME'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 74
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGridLevel1: TcxGridLevel
|
object cxGridLevel1: TcxGridLevel
|
||||||
GridView = TV2
|
GridView = TV2
|
||||||
|
|
|
||||||
|
|
@ -101,6 +101,8 @@ type
|
||||||
Tv1Column12: TcxGridDBColumn;
|
Tv1Column12: TcxGridDBColumn;
|
||||||
Tv1MXOrderNoSummary: TcxGridDBColumn;
|
Tv1MXOrderNoSummary: TcxGridDBColumn;
|
||||||
CheckBox2: TCheckBox;
|
CheckBox2: TCheckBox;
|
||||||
|
TV2Column3: TcxGridDBColumn;
|
||||||
|
TV2Column4: TcxGridDBColumn;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
|
@ -566,7 +568,10 @@ begin
|
||||||
Close;
|
Close;
|
||||||
SQL.Clear;
|
SQL.Clear;
|
||||||
sql.Add(' select A.*,B.SDNO');
|
sql.Add(' select A.*,B.SDNO');
|
||||||
|
SQL.Add(',CRTIME ');
|
||||||
|
|
||||||
SQL.Add(',GSDYSJE=(SELECT sum(HXNUM) from YF_Money_CR_SUB e INNER JOIN YF_Money_CR f ON e.YFID=f.YFID where f.sdno=b.sdno)');
|
SQL.Add(',GSDYSJE=(SELECT sum(HXNUM) from YF_Money_CR_SUB e INNER JOIN YF_Money_CR f ON e.YFID=f.YFID where f.sdno=b.sdno)');
|
||||||
|
SQL.Add(',OrdDate=(select OrdDate from jyorder_main c where a.mxorderno=c.orderno)');
|
||||||
sql.Add(' from YF_Money_CR_SUB A INNER JOIN YF_Money_CR B ON A.YFID=B.YFID where SUBWXFPNO=' + Quotedstr(Trim(CDS_HZ.fieldbyname('SUBWXFPNO').AsString)));
|
sql.Add(' from YF_Money_CR_SUB A INNER JOIN YF_Money_CR B ON A.YFID=B.YFID where SUBWXFPNO=' + Quotedstr(Trim(CDS_HZ.fieldbyname('SUBWXFPNO').AsString)));
|
||||||
SQL.Add('ORDER BY SDNO');
|
SQL.Add('ORDER BY SDNO');
|
||||||
Open;
|
Open;
|
||||||
|
|
|
||||||
|
|
@ -72,7 +72,7 @@ begin
|
||||||
pswd := 'rightsoft@9101';
|
pswd := 'rightsoft@9101';
|
||||||
// pswd := 'rightsoft';
|
// pswd := 'rightsoft';
|
||||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||||
// DConString := DataBaseStr;
|
DConString := DataBaseStr;
|
||||||
|
|
||||||
if not ConnData() then
|
if not ConnData() then
|
||||||
begin
|
begin
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
object frmSDmanage: TfrmSDmanage
|
object frmSDmanage: TfrmSDmanage
|
||||||
Left = 173
|
Left = 271
|
||||||
Top = 54
|
Top = 230
|
||||||
Width = 1382
|
Width = 1382
|
||||||
Height = 754
|
Height = 754
|
||||||
Caption = #27700#21333#31649#29702
|
Caption = #27700#21333#31649#29702
|
||||||
|
|
@ -20,7 +20,7 @@ object frmSDmanage: TfrmSDmanage
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 31
|
Height = 31
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 83
|
ButtonWidth = 83
|
||||||
|
|
@ -97,17 +97,25 @@ object frmSDmanage: TfrmSDmanage
|
||||||
ImageIndex = 53
|
ImageIndex = 53
|
||||||
OnClick = TBexcelClick
|
OnClick = TBexcelClick
|
||||||
end
|
end
|
||||||
object ToolButton1: TToolButton
|
object ToolButton2: TToolButton
|
||||||
Left = 528
|
Left = 528
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
|
Caption = #26126#32454#23548#20986
|
||||||
|
ImageIndex = 57
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 615
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
Caption = #38468#20214#19978#20256
|
Caption = #38468#20214#19978#20256
|
||||||
ImageIndex = 49
|
ImageIndex = 49
|
||||||
Visible = False
|
Visible = False
|
||||||
OnClick = ToolButton1Click
|
OnClick = ToolButton1Click
|
||||||
end
|
end
|
||||||
object TBPrint: TToolButton
|
object TBPrint: TToolButton
|
||||||
Left = 615
|
Left = 702
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360
|
Caption = #25171#21360
|
||||||
|
|
@ -116,7 +124,7 @@ object frmSDmanage: TfrmSDmanage
|
||||||
OnClick = TBPrintClick
|
OnClick = TBPrintClick
|
||||||
end
|
end
|
||||||
object TBClose: TToolButton
|
object TBClose: TToolButton
|
||||||
Left = 678
|
Left = 765
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20851#38381
|
Caption = #20851#38381
|
||||||
|
|
@ -127,7 +135,7 @@ object frmSDmanage: TfrmSDmanage
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 31
|
Top = 31
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 74
|
Height = 74
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -281,8 +289,8 @@ object frmSDmanage: TfrmSDmanage
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 127
|
Top = 127
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 305
|
Height = 297
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object Tv2: TcxGridDBTableView
|
object Tv2: TcxGridDBTableView
|
||||||
|
|
@ -407,7 +415,7 @@ object frmSDmanage: TfrmSDmanage
|
||||||
object cxTabControl1: TcxTabControl
|
object cxTabControl1: TcxTabControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 105
|
Top = 105
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 22
|
Height = 22
|
||||||
Align = alTop
|
Align = alTop
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
|
@ -420,13 +428,13 @@ object frmSDmanage: TfrmSDmanage
|
||||||
#20840#37096)
|
#20840#37096)
|
||||||
OnChange = cxTabControl1Change
|
OnChange = cxTabControl1Change
|
||||||
ClientRectBottom = 22
|
ClientRectBottom = 22
|
||||||
ClientRectRight = 1374
|
ClientRectRight = 1366
|
||||||
ClientRectTop = 19
|
ClientRectTop = 19
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 432
|
Top = 424
|
||||||
Width = 1374
|
Width = 1366
|
||||||
Height = 291
|
Height = 291
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
|
|
@ -567,6 +575,214 @@ object frmSDmanage: TfrmSDmanage
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 403
|
||||||
|
Top = 81
|
||||||
|
Width = 363
|
||||||
|
Height = 313
|
||||||
|
Caption = 'Panel2'
|
||||||
|
TabOrder = 5
|
||||||
|
Visible = False
|
||||||
|
object cxGrid3: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 361
|
||||||
|
Height = 311
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
Visible = False
|
||||||
|
object TV3: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
Navigator.Buttons.Delete.Enabled = False
|
||||||
|
Navigator.Buttons.Delete.Visible = False
|
||||||
|
OnFocusedRecordChanged = Tv2FocusedRecordChanged
|
||||||
|
DataController.DataSource = DS_DC
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = cxGridDBColumn6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = TV3Column4
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = TV3Column5
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = TV3Column6
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsData.Editing = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
OptionsView.Indicator = True
|
||||||
|
Styles.Header = DataLink_YSYF.Default
|
||||||
|
object cxGridDBColumn1: TcxGridDBColumn
|
||||||
|
Caption = #27700#21333#32534#21495
|
||||||
|
DataBinding.FieldName = 'SDNO'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn2: TcxGridDBColumn
|
||||||
|
Caption = #30331#35760#26085#26399
|
||||||
|
DataBinding.FieldName = 'FILLTime'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn3: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'factoryName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn4: TcxGridDBColumn
|
||||||
|
Caption = #22806#38144#21457#31080#21495
|
||||||
|
DataBinding.FieldName = 'WXFPNO'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn5: TcxGridDBColumn
|
||||||
|
Caption = #25910#27719#26085#26399
|
||||||
|
DataBinding.FieldName = 'CRTIME'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn6: TcxGridDBColumn
|
||||||
|
Caption = #25910#27719#37329#39069
|
||||||
|
DataBinding.FieldName = 'MONEY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_YSYF.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn7: TcxGridDBColumn
|
||||||
|
Caption = #22806#24065#36153#29992
|
||||||
|
DataBinding.FieldName = 'ZWBFY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn8: TcxGridDBColumn
|
||||||
|
Caption = #22269#20869#25187#36153
|
||||||
|
DataBinding.FieldName = 'ZGNKF'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_YSYF.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn9: TcxGridDBColumn
|
||||||
|
Caption = #32034#36180#27454
|
||||||
|
DataBinding.FieldName = 'ZSKP'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn10: TcxGridDBColumn
|
||||||
|
Caption = #20323#37329
|
||||||
|
DataBinding.FieldName = 'ZYJ'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn11: TcxGridDBColumn
|
||||||
|
Caption = #20854#20182
|
||||||
|
DataBinding.FieldName = 'ZQITA'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object cxGridDBColumn12: TcxGridDBColumn
|
||||||
|
Caption = #24065#31181
|
||||||
|
DataBinding.FieldName = 'BZTYPE'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridDBColumn13: TcxGridDBColumn
|
||||||
|
Caption = #21040#36134#20928#39069
|
||||||
|
DataBinding.FieldName = 'DZMONEY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object cxGridDBColumn14: TcxGridDBColumn
|
||||||
|
Caption = #26410#26680#38144#37329#39069
|
||||||
|
DataBinding.FieldName = 'WHXJE'
|
||||||
|
OnCustomDrawCell = Tv2Column2CustomDrawCell
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 96
|
||||||
|
end
|
||||||
|
object TV3Column1: TcxGridDBColumn
|
||||||
|
Caption = #31867#22411
|
||||||
|
DataBinding.FieldName = 'kxtype'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object TV3Column2: TcxGridDBColumn
|
||||||
|
Caption = #22806#38144#21457#31080#21495
|
||||||
|
DataBinding.FieldName = 'SUBWXFPNO'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object TV3Column3: TcxGridDBColumn
|
||||||
|
Caption = #35746#21333#21495
|
||||||
|
DataBinding.FieldName = 'MXORDERNO'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object TV3Column4: TcxGridDBColumn
|
||||||
|
Caption = #21457#31080#37329#39069
|
||||||
|
DataBinding.FieldName = 'MXMONEY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object TV3Column5: TcxGridDBColumn
|
||||||
|
Caption = #26680#38144#37329#39069
|
||||||
|
DataBinding.FieldName = 'HXNUM'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object TV3Column6: TcxGridDBColumn
|
||||||
|
Caption = #32034#36180#37329#39069
|
||||||
|
DataBinding.FieldName = 'SPK'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object TV3Column7: TcxGridDBColumn
|
||||||
|
Caption = #32034#36180#35828#26126
|
||||||
|
DataBinding.FieldName = 'SPNOTE'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object TV3Column8: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'MXNOTE'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object TV3Column9: TcxGridDBColumn
|
||||||
|
Caption = #23454#38469#20986#24211#31859#25968
|
||||||
|
DataBinding.FieldName = 'CKQTY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 85
|
||||||
|
end
|
||||||
|
object TV3Column10: TcxGridDBColumn
|
||||||
|
Caption = #23454#38469#20986#24211#20928#37325
|
||||||
|
DataBinding.FieldName = 'CKkgqty'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 90
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel2: TcxGridLevel
|
||||||
|
GridView = TV3
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
object ADOQueryTemp: TADOQuery
|
object ADOQueryTemp: TADOQuery
|
||||||
Connection = DataLink_YSYF.ADOLink
|
Connection = DataLink_YSYF.ADOLink
|
||||||
LockType = ltReadOnly
|
LockType = ltReadOnly
|
||||||
|
|
@ -639,12 +855,23 @@ object frmSDmanage: TfrmSDmanage
|
||||||
object CDS_SUB: TClientDataSet
|
object CDS_SUB: TClientDataSet
|
||||||
Aggregates = <>
|
Aggregates = <>
|
||||||
Params = <>
|
Params = <>
|
||||||
Left = 444
|
Left = 443
|
||||||
Top = 489
|
Top = 488
|
||||||
end
|
end
|
||||||
object DS_SUB: TDataSource
|
object DS_SUB: TDataSource
|
||||||
DataSet = CDS_SUB
|
DataSet = CDS_SUB
|
||||||
Left = 492
|
Left = 492
|
||||||
Top = 477
|
Top = 477
|
||||||
end
|
end
|
||||||
|
object CDS_DC: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 730
|
||||||
|
Top = 487
|
||||||
|
end
|
||||||
|
object DS_DC: TDataSource
|
||||||
|
DataSet = CDS_DC
|
||||||
|
Left = 779
|
||||||
|
Top = 477
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -14,7 +14,18 @@ uses
|
||||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||||
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||||
dxBarBuiltInMenu, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
|
dxBarBuiltInMenu, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
|
||||||
dxSkinscxPCPainter;
|
dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||||||
|
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||||
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||||||
|
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||||||
|
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
|
||||||
|
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||||
|
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||||
|
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmSDmanage = class(TForm)
|
TfrmSDmanage = class(TForm)
|
||||||
|
|
@ -88,6 +99,37 @@ type
|
||||||
CheckBox2: TCheckBox;
|
CheckBox2: TCheckBox;
|
||||||
Label5: TLabel;
|
Label5: TLabel;
|
||||||
BZTYPE: TEdit;
|
BZTYPE: TEdit;
|
||||||
|
Panel2: TPanel;
|
||||||
|
cxGrid3: TcxGrid;
|
||||||
|
TV3: TcxGridDBTableView;
|
||||||
|
cxGridDBColumn1: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn2: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn3: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn4: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn5: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn6: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn7: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn8: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn9: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn10: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn11: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn12: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn13: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn14: TcxGridDBColumn;
|
||||||
|
cxGridLevel2: TcxGridLevel;
|
||||||
|
TV3Column1: TcxGridDBColumn;
|
||||||
|
TV3Column2: TcxGridDBColumn;
|
||||||
|
TV3Column3: TcxGridDBColumn;
|
||||||
|
TV3Column4: TcxGridDBColumn;
|
||||||
|
TV3Column5: TcxGridDBColumn;
|
||||||
|
TV3Column6: TcxGridDBColumn;
|
||||||
|
TV3Column7: TcxGridDBColumn;
|
||||||
|
TV3Column8: TcxGridDBColumn;
|
||||||
|
TV3Column9: TcxGridDBColumn;
|
||||||
|
TV3Column10: TcxGridDBColumn;
|
||||||
|
CDS_DC: TClientDataSet;
|
||||||
|
DS_DC: TDataSource;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
|
@ -108,6 +150,7 @@ type
|
||||||
procedure Tv2Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
procedure Tv2Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
procedure CheckBox1Click(Sender: TObject);
|
procedure CheckBox1Click(Sender: TObject);
|
||||||
procedure CheckBox2Click(Sender: TObject);
|
procedure CheckBox2Click(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
procedure InitGrid();
|
procedure InitGrid();
|
||||||
|
|
@ -322,6 +365,7 @@ begin
|
||||||
end;
|
end;
|
||||||
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||||||
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
ADOQueryMain.EnableControls;
|
ADOQueryMain.EnableControls;
|
||||||
TBfind.Click;
|
TBfind.Click;
|
||||||
|
|
@ -628,5 +672,61 @@ begin
|
||||||
InitGrid();
|
InitGrid();
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmSDmanage.ToolButton2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
Filtered := False;
|
||||||
|
SQL.Clear;
|
||||||
|
SQL.Add('SELECT * FROM (');
|
||||||
|
sql.Add(' select A.*,B.kxtype AS KXTYPE2,SUBWXFPNO,MXORDERNO,MXMONEY,HXNUM,SPNOTE,MXNOTE ');
|
||||||
|
SQL.Add(',WHXJE=MONEY-isnull((SELECT SUM(HXNUM) FROM yf_money_cr_SUB C WHERE C.YFID=A.YFID),0)');
|
||||||
|
sql.Add(',CKQTY=(SELECT SUM(QTY) FROM CK_BanCP_CR F INNER JOIN JYOrder_Main E ON F.MAINID=E.MAINID WHERE E.ORDERNO=B.MXORDERNO AND f.CRFlag=''出库'')');
|
||||||
|
sql.Add(',CKkgqty=(SELECT sum(kgqty) FROM CK_BanCP_CR F INNER JOIN JYOrder_Main E ON F.MAINID=E.MAINID WHERE E.ORDERNO=B.MXORDERNO AND f.CRFlag=''出库'')');
|
||||||
|
|
||||||
|
sql.Add(',STUFF(( SELECT '', '' +convert(VARCHAR, kxtype) FROM YF_Money_CR_SUB C where C.yfid=a.yfid FOR XML PATH('''')), 1, 1, '''') AS kxtype');
|
||||||
|
sql.Add(' from yf_money_cr A INNER JOIN yf_money_cr_SUB B ON A.YFID=B.YFID where ');
|
||||||
|
|
||||||
|
sql.Add(' A.CRtype=''收款登记'' AND A.SKTYPE=''水单''');
|
||||||
|
if cxTabControl1.TabIndex < 2 then
|
||||||
|
begin
|
||||||
|
sql.Add('and A.status=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
|
||||||
|
end;
|
||||||
|
if CheckBox1.Checked = True then
|
||||||
|
begin
|
||||||
|
sql.Add('and ZSKP>0');
|
||||||
|
end;
|
||||||
|
|
||||||
|
SQL.Add(')AA ');
|
||||||
|
|
||||||
|
// sql.Add('or WHXJE>10');
|
||||||
|
if CheckBox2.Checked = True then
|
||||||
|
begin
|
||||||
|
sql.Add('where WHXJE>10');
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
sql.Add(' where CRTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' ');
|
||||||
|
sql.Add('and CRTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
|
||||||
|
sql.Add('or WHXJE>10');
|
||||||
|
end;
|
||||||
|
|
||||||
|
sql.Add('ORDER BY FILLTIME DESC');
|
||||||
|
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryCmd, CDS_DC);
|
||||||
|
SInitCDSData20(ADOQueryCmd, CDS_DC);
|
||||||
|
|
||||||
|
if ADOQueryCmd.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryCmd, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryCmd, CDS_DC);
|
||||||
|
SInitCDSData20(ADOQueryCmd, CDS_DC);
|
||||||
|
|
||||||
|
TcxGridToExcel(self.Caption + '明细', cxgrid3);
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Project\D7myzhenyong\壇澗壇마\testDll.exe
|
HostApplication=D:\D7W\淃커덜쯤\D7myzhenyong\壇澗壇마\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
||||||
|
|
@ -6,6 +6,7 @@ uses
|
||||||
forms,
|
forms,
|
||||||
WinTypes,
|
WinTypes,
|
||||||
WinProcs,
|
WinProcs,
|
||||||
|
MidasLib,
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule},
|
U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule},
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
U_GetDllForm in 'U_GetDllForm.pas',
|
||||||
U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
||||||
|
|
|
||||||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Dp7Repo\项目代码\振永\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
|
HostApplication=D:\D7W\项目代码\D7myzhenyong\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
||||||
|
|
@ -507,7 +507,7 @@ begin
|
||||||
end;
|
end;
|
||||||
SCreateCDS20(ADOQueryPrint, CDS_PRT);
|
SCreateCDS20(ADOQueryPrint, CDS_PRT);
|
||||||
SInitCDSData20(ADOQueryPrint, CDS_PRT);
|
SInitCDSData20(ADOQueryPrint, CDS_PRT);
|
||||||
if ComboBox1.Text = '丹빻紺쯤데(쵠路좆)' then
|
if (ComboBox1.Text = '丹빻紺쯤데(쵠路좆)') or (ComboBox1.Text = 'AZ') then
|
||||||
begin
|
begin
|
||||||
with ADOQueryPrint do
|
with ADOQueryPrint do
|
||||||
begin
|
begin
|
||||||
|
|
|
||||||
|
|
@ -249,7 +249,7 @@ begin
|
||||||
SCreateCDS20(ADOQueryPrint, CDS_PRT);
|
SCreateCDS20(ADOQueryPrint, CDS_PRT);
|
||||||
SInitCDSData20(ADOQueryPrint, CDS_PRT);
|
SInitCDSData20(ADOQueryPrint, CDS_PRT);
|
||||||
|
|
||||||
if ComboBox1.Text = '丹빻紺쯤데(쵠路좆)' then
|
if (ComboBox1.Text = '丹빻紺쯤데(쵠路좆)') or (ComboBox1.Text = 'AZ') then
|
||||||
begin
|
begin
|
||||||
with ADOQueryPrint do
|
with ADOQueryPrint do
|
||||||
begin
|
begin
|
||||||
|
|
|
||||||
|
|
@ -213,7 +213,7 @@ begin
|
||||||
end;
|
end;
|
||||||
SCreateCDS20(ADOQueryPrint, CDS_PRT);
|
SCreateCDS20(ADOQueryPrint, CDS_PRT);
|
||||||
SInitCDSData20(ADOQueryPrint, CDS_PRT);
|
SInitCDSData20(ADOQueryPrint, CDS_PRT);
|
||||||
if ComboBox1.Text = '丹빻紺쯤데(쵠路좆)' then
|
if (ComboBox1.Text = '丹빻紺쯤데(쵠路좆)') or (ComboBox1.Text = 'AZ') then
|
||||||
begin
|
begin
|
||||||
with ADOQueryPrint do
|
with ADOQueryPrint do
|
||||||
begin
|
begin
|
||||||
|
|
|
||||||
|
|
@ -193,13 +193,13 @@ begin
|
||||||
end;
|
end;
|
||||||
SCreateCDS20(ADOQueryPrint, CDS_PRT);
|
SCreateCDS20(ADOQueryPrint, CDS_PRT);
|
||||||
SInitCDSData20(ADOQueryPrint, CDS_PRT);
|
SInitCDSData20(ADOQueryPrint, CDS_PRT);
|
||||||
if ComboBox1.Text = '丹빻紺쯤데(쵠路좆)' then
|
if (ComboBox1.Text = '丹빻紺쯤데(쵠路좆)') or (ComboBox1.Text = 'AZ') then
|
||||||
begin
|
begin
|
||||||
with ADOQueryPrint do
|
with ADOQueryPrint do
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.add('exec P_Print_CKMD_DXHZ3 @code=' + quotedstr(Trim(DCode)));
|
sql.add('exec P_Print_CKMD_DXHZ3_R @code=' + quotedstr(Trim(DCode)));
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
SCreateCDS20(ADOQueryPrint, CDS_HZ);
|
SCreateCDS20(ADOQueryPrint, CDS_HZ);
|
||||||
|
|
@ -211,7 +211,7 @@ begin
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.add('exec P_Print_CKMD_DXHZ @code=' + quotedstr(Trim(DCode)));
|
sql.add('exec P_Print_rKMD_DXHZ_R @code=' + quotedstr(Trim(DCode)));
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
SCreateCDS20(ADOQueryPrint, CDS_HZ);
|
SCreateCDS20(ADOQueryPrint, CDS_HZ);
|
||||||
|
|
|
||||||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Project\D7myzhenyong\报关管理(BaoGuan.dll)\testDll.exe
|
HostApplication=D:\D7W\项目代码\D7myzhenyong\报关管理(BaoGuan.dll)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
||||||
|
|
@ -1,11 +1,13 @@
|
||||||
library BaoGuan;
|
library BaoGuan;
|
||||||
//ÒѸÄ
|
//ÒѸÄ
|
||||||
|
|
||||||
uses
|
uses
|
||||||
SysUtils,
|
SysUtils,
|
||||||
classes,
|
classes,
|
||||||
forms,
|
forms,
|
||||||
WinTypes,
|
WinTypes,
|
||||||
WinProcs,
|
WinProcs,
|
||||||
|
MidasLib,
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
U_GetDllForm in 'U_GetDllForm.pas',
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_DDMD: TDataModule},
|
U_DataLink in 'U_DataLink.pas' {DataLink_DDMD: TDataModule},
|
||||||
U_FjList in 'U_FjList.pas' {frmFjList},
|
U_FjList in 'U_FjList.pas' {frmFjList},
|
||||||
|
|
@ -38,7 +40,7 @@ uses
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
|
|
||||||
procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
|
procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
|
||||||
begin
|
begin
|
||||||
DLLProc := @DLLEnterPoint;
|
DLLProc := @DLLEnterPoint;
|
||||||
DllEnterPoint(DLL_PROCESS_ATTACH);
|
DllEnterPoint(DLL_PROCESS_ATTACH);
|
||||||
|
|
@ -49,14 +51,16 @@ begin
|
||||||
// if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
|
// if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
|
||||||
// Application:=NewDllApp;
|
// Application:=NewDllApp;
|
||||||
end;
|
end;
|
||||||
exports
|
|
||||||
GetDllForm;
|
|
||||||
begin
|
|
||||||
try
|
|
||||||
NewDllApp:=Application;
|
|
||||||
DLLProc := @DLLUnloadProc;
|
|
||||||
except
|
|
||||||
|
|
||||||
end;
|
exports
|
||||||
|
GetDllForm;
|
||||||
|
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
NewDllApp := Application;
|
||||||
|
DLLProc := @DLLUnloadProc;
|
||||||
|
except
|
||||||
|
|
||||||
|
end;
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -20,7 +20,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1318
|
Width = 1310
|
||||||
Height = 33
|
Height = 33
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 59
|
ButtonWidth = 59
|
||||||
|
|
@ -67,8 +67,8 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 370
|
Top = 370
|
||||||
Width = 1318
|
Width = 1310
|
||||||
Height = 307
|
Height = 299
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
|
|
@ -468,7 +468,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 33
|
Top = 33
|
||||||
Width = 1318
|
Width = 1310
|
||||||
Height = 304
|
Height = 304
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -1007,7 +1007,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut
|
||||||
object ToolBar2: TToolBar
|
object ToolBar2: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 337
|
Top = 337
|
||||||
Width = 1318
|
Width = 1310
|
||||||
Height = 33
|
Height = 33
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 83
|
ButtonWidth = 83
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,20 @@ uses
|
||||||
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
|
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
|
||||||
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, BtnEdit,
|
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, BtnEdit,
|
||||||
ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||||
dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
|
||||||
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||||
|
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||||
|
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||||
|
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||||
|
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||||
|
dxSkinXmas2008Blue;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmBaoGuanInPut = class(TForm)
|
TfrmBaoGuanInPut = class(TForm)
|
||||||
|
|
|
||||||
|
|
@ -21,7 +21,7 @@ object frmCHList: TfrmCHList
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1376
|
Width = 1368
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 83
|
ButtonWidth = 83
|
||||||
|
|
@ -100,7 +100,7 @@ object frmCHList: TfrmCHList
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 1376
|
Width = 1368
|
||||||
Height = 59
|
Height = 59
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -259,8 +259,8 @@ object frmCHList: TfrmCHList
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 91
|
Top = 91
|
||||||
Width = 1376
|
Width = 1368
|
||||||
Height = 548
|
Height = 540
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object TV1: TcxGridDBTableView
|
object TV1: TcxGridDBTableView
|
||||||
|
|
@ -440,6 +440,12 @@ object frmCHList: TfrmCHList
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 66
|
Width = 66
|
||||||
end
|
end
|
||||||
|
object TV1Column16: TcxGridDBColumn
|
||||||
|
Caption = #25253#20851#22791#27880
|
||||||
|
DataBinding.FieldName = 'MXNOTE'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
object TV1Column8: TcxGridDBColumn
|
object TV1Column8: TcxGridDBColumn
|
||||||
Caption = #37096#38376
|
Caption = #37096#38376
|
||||||
DataBinding.FieldName = 'ywzb'
|
DataBinding.FieldName = 'ywzb'
|
||||||
|
|
|
||||||
|
|
@ -105,6 +105,7 @@ type
|
||||||
ywzb: TEdit;
|
ywzb: TEdit;
|
||||||
TV1E4JingZ: TcxGridDBColumn;
|
TV1E4JingZ: TcxGridDBColumn;
|
||||||
TV1JS: TcxGridDBColumn;
|
TV1JS: TcxGridDBColumn;
|
||||||
|
TV1Column16: TcxGridDBColumn;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
|
|
|
||||||
|
|
@ -20,7 +20,7 @@ object frmJHDInPut: TfrmJHDInPut
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1256
|
Width = 1248
|
||||||
Height = 33
|
Height = 33
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 59
|
ButtonWidth = 59
|
||||||
|
|
@ -58,7 +58,7 @@ object frmJHDInPut: TfrmJHDInPut
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 33
|
Top = 33
|
||||||
Width = 1256
|
Width = 1248
|
||||||
Height = 360
|
Height = 360
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -836,7 +836,7 @@ object frmJHDInPut: TfrmJHDInPut
|
||||||
object FKR: TMemo
|
object FKR: TMemo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 799
|
Left = 799
|
||||||
Top = 126
|
Top = 127
|
||||||
Width = 397
|
Width = 397
|
||||||
Height = 64
|
Height = 64
|
||||||
Hint = 'WZhiLiangNote/'#36136#37327#35201#27714
|
Hint = 'WZhiLiangNote/'#36136#37327#35201#27714
|
||||||
|
|
@ -997,15 +997,15 @@ object frmJHDInPut: TfrmJHDInPut
|
||||||
object Panel2: TPanel
|
object Panel2: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 393
|
Top = 393
|
||||||
Width = 796
|
Width = 788
|
||||||
Height = 351
|
Height = 343
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Panel2'
|
Caption = 'Panel2'
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object ToolBar2: TToolBar
|
object ToolBar2: TToolBar
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 794
|
Width = 786
|
||||||
Height = 33
|
Height = 33
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 107
|
ButtonWidth = 107
|
||||||
|
|
@ -1101,8 +1101,8 @@ object frmJHDInPut: TfrmJHDInPut
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 34
|
Top = 34
|
||||||
Width = 794
|
Width = 786
|
||||||
Height = 316
|
Height = 308
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
|
|
@ -1425,10 +1425,10 @@ object frmJHDInPut: TfrmJHDInPut
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object Panel3: TPanel
|
object Panel3: TPanel
|
||||||
Left = 796
|
Left = 788
|
||||||
Top = 393
|
Top = 393
|
||||||
Width = 460
|
Width = 460
|
||||||
Height = 351
|
Height = 343
|
||||||
Align = alRight
|
Align = alRight
|
||||||
Caption = 'Panel2'
|
Caption = 'Panel2'
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
|
@ -1483,7 +1483,7 @@ object frmJHDInPut: TfrmJHDInPut
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 34
|
Top = 34
|
||||||
Width = 458
|
Width = 458
|
||||||
Height = 181
|
Height = 173
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object TV2: TcxGridDBTableView
|
object TV2: TcxGridDBTableView
|
||||||
|
|
@ -1596,7 +1596,7 @@ object frmJHDInPut: TfrmJHDInPut
|
||||||
end
|
end
|
||||||
object Panel4: TPanel
|
object Panel4: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 215
|
Top = 207
|
||||||
Width = 458
|
Width = 458
|
||||||
Height = 135
|
Height = 135
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
|
|
|
||||||
|
|
@ -9,8 +9,20 @@ uses
|
||||||
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||||
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
|
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
|
||||||
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, BtnEdit,
|
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, BtnEdit,
|
||||||
ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
|
||||||
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||||
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||||
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||||
|
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||||
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||||
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
|
||||||
|
dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmJHDInPut = class(TForm)
|
TfrmJHDInPut = class(TForm)
|
||||||
|
|
@ -400,6 +412,9 @@ begin
|
||||||
|
|
||||||
RTSetsavedata(ADOQueryCmd, 'JHD_Main', Panel1, 1);
|
RTSetsavedata(ADOQueryCmd, 'JHD_Main', Panel1, 1);
|
||||||
RTSetsavedata(ADOQueryCmd, 'JHD_Main', Panel1, 2);
|
RTSetsavedata(ADOQueryCmd, 'JHD_Main', Panel1, 2);
|
||||||
|
|
||||||
|
FieldByName('FKR').Value := UpperCase(FKR.Text);
|
||||||
|
|
||||||
if chuandate.Checked = true then
|
if chuandate.Checked = true then
|
||||||
begin
|
begin
|
||||||
FieldByName('chuandate').Value := chuandate.DateTime;
|
FieldByName('chuandate').Value := chuandate.DateTime;
|
||||||
|
|
|
||||||
|
|
@ -21,7 +21,7 @@ object frmJHDMAKEList: TfrmJHDMAKEList
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1358
|
Width = 1350
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 107
|
ButtonWidth = 107
|
||||||
|
|
@ -172,7 +172,7 @@ object frmJHDMAKEList: TfrmJHDMAKEList
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 1358
|
Width = 1350
|
||||||
Height = 59
|
Height = 59
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -279,8 +279,8 @@ object frmJHDMAKEList: TfrmJHDMAKEList
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 91
|
Top = 91
|
||||||
Width = 1358
|
Width = 1350
|
||||||
Height = 548
|
Height = 540
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
|
|
||||||
|
|
@ -14,7 +14,20 @@ uses
|
||||||
BtnEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
BtnEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||||
dxBarBuiltInMenu, MovePanel, Registry, frxExportRTF, frxExportImage,
|
dxBarBuiltInMenu, MovePanel, Registry, frxExportRTF, frxExportImage,
|
||||||
frxExportPDF, frxExportXLSX, frxExportDOCX, frxClass, frxExportBIFF, frxDBSet,
|
frxExportPDF, frxExportXLSX, frxExportDOCX, frxClass, frxExportBIFF, frxDBSet,
|
||||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
|
||||||
|
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||||
|
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||||
|
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||||
|
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||||
|
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||||
|
dxSkinXmas2008Blue;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmJHDMAKEList = class(TForm)
|
TfrmJHDMAKEList = class(TForm)
|
||||||
|
|
|
||||||
|
|
@ -21,7 +21,7 @@ object frmYFGLList: TfrmYFGLList
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1376
|
Width = 1368
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 107
|
ButtonWidth = 107
|
||||||
|
|
@ -137,7 +137,7 @@ object frmYFGLList: TfrmYFGLList
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 1376
|
Width = 1368
|
||||||
Height = 59
|
Height = 59
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -260,8 +260,8 @@ object frmYFGLList: TfrmYFGLList
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 91
|
Top = 91
|
||||||
Width = 1376
|
Width = 1368
|
||||||
Height = 548
|
Height = 540
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object TV1: TcxGridDBTableView
|
object TV1: TcxGridDBTableView
|
||||||
|
|
@ -389,7 +389,7 @@ object frmYFGLList: TfrmYFGLList
|
||||||
end
|
end
|
||||||
object TV1Column12: TcxGridDBColumn
|
object TV1Column12: TcxGridDBColumn
|
||||||
Caption = #24320#33337#26085#26399
|
Caption = #24320#33337#26085#26399
|
||||||
DataBinding.FieldName = 'chuandate'
|
DataBinding.FieldName = 'chuandate2'
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 66
|
Width = 66
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -222,6 +222,7 @@ begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('select A.* ');
|
sql.Add('select A.* ');
|
||||||
|
SQL.Add(',CHUANDATE2=(SELECT CHUANDATE FROM JHD_MAIN E WHERE E.VALID=''Y'' and E.A4FPNO=A.A4FPNO )');
|
||||||
SQL.Add(',ZUSD=(SELECT SUM(FYMONEY)FROM FP_SUB B WHERE B.FPID=A.FPID AND B.FYBZ=''美元'')');
|
SQL.Add(',ZUSD=(SELECT SUM(FYMONEY)FROM FP_SUB B WHERE B.FPID=A.FPID AND B.FYBZ=''美元'')');
|
||||||
sql.Add(',ZRMB=(SELECT SUM(FYMONEY)FROM FP_SUB B WHERE B.FPID=A.FPID AND B.FYBZ=''人民币'')');
|
sql.Add(',ZRMB=(SELECT SUM(FYMONEY)FROM FP_SUB B WHERE B.FPID=A.FPID AND B.FYBZ=''人民币'')');
|
||||||
SQL.Add('FROM FP_MAIN A where 1=1 ');
|
SQL.Add('FROM FP_MAIN A where 1=1 ');
|
||||||
|
|
|
||||||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Project\D7myzhenyong\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
|
HostApplication=D:\D7W\ÏîÄ¿´úÂë\D7myzhenyong\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
object frmJYG: TfrmJYG
|
object frmJYG: TfrmJYG
|
||||||
Left = 442
|
Left = 442
|
||||||
Top = 228
|
Top = 228
|
||||||
Width = 1033
|
Width = 1090
|
||||||
Height = 512
|
Height = 512
|
||||||
Caption = #25968#25454#36873#25321
|
Caption = #25968#25454#36873#25321
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
|
|
@ -20,7 +20,7 @@ object frmJYG: TfrmJYG
|
||||||
object ScrollBox1: TScrollBox
|
object ScrollBox1: TScrollBox
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1017
|
Width = 1074
|
||||||
Height = 473
|
Height = 473
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
|
@ -53,7 +53,7 @@ object frmJYG: TfrmJYG
|
||||||
end
|
end
|
||||||
object btn3: TSpeedButton
|
object btn3: TSpeedButton
|
||||||
Left = 577
|
Left = 577
|
||||||
Top = 19
|
Top = 17
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 70
|
Height = 70
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -66,8 +66,8 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object btn4: TSpeedButton
|
object btn4: TSpeedButton
|
||||||
Left = 23
|
Left = 843
|
||||||
Top = 131
|
Top = 19
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 70
|
Height = 70
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -80,8 +80,8 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object btn5: TSpeedButton
|
object btn5: TSpeedButton
|
||||||
Left = 300
|
Left = 23
|
||||||
Top = 131
|
Top = 126
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 70
|
Height = 70
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -94,8 +94,8 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object SpeedButton1: TSpeedButton
|
object SpeedButton1: TSpeedButton
|
||||||
Left = 577
|
Left = 300
|
||||||
Top = 131
|
Top = 126
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 70
|
Height = 70
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -108,8 +108,8 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object SpeedButton2: TSpeedButton
|
object SpeedButton2: TSpeedButton
|
||||||
Left = 23
|
Left = 577
|
||||||
Top = 243
|
Top = 125
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 69
|
Height = 69
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -122,8 +122,8 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object SpeedButton4: TSpeedButton
|
object SpeedButton4: TSpeedButton
|
||||||
Left = 302
|
Left = 843
|
||||||
Top = 243
|
Top = 126
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 69
|
Height = 69
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -136,8 +136,8 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object SpeedButton5: TSpeedButton
|
object SpeedButton5: TSpeedButton
|
||||||
Left = 577
|
Left = 23
|
||||||
Top = 243
|
Top = 233
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 69
|
Height = 69
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -150,8 +150,8 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object SpeedButton3: TSpeedButton
|
object SpeedButton3: TSpeedButton
|
||||||
Left = 23
|
Left = 300
|
||||||
Top = 354
|
Top = 234
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 69
|
Height = 69
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -164,8 +164,8 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object SpeedButton6: TSpeedButton
|
object SpeedButton6: TSpeedButton
|
||||||
Left = 302
|
Left = 577
|
||||||
Top = 354
|
Top = 231
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 69
|
Height = 69
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -178,8 +178,64 @@ object frmJYG: TfrmJYG
|
||||||
OnClick = btn1Click
|
OnClick = btn1Click
|
||||||
end
|
end
|
||||||
object SpeedButton7: TSpeedButton
|
object SpeedButton7: TSpeedButton
|
||||||
|
Left = 843
|
||||||
|
Top = 231
|
||||||
|
Width = 208
|
||||||
|
Height = 69
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object SpeedButton8: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 339
|
||||||
|
Width = 208
|
||||||
|
Height = 69
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object SpeedButton9: TSpeedButton
|
||||||
|
Left = 300
|
||||||
|
Top = 340
|
||||||
|
Width = 208
|
||||||
|
Height = 69
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object SpeedButton10: TSpeedButton
|
||||||
Left = 577
|
Left = 577
|
||||||
Top = 354
|
Top = 338
|
||||||
|
Width = 208
|
||||||
|
Height = 69
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object SpeedButton11: TSpeedButton
|
||||||
|
Left = 843
|
||||||
|
Top = 337
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 69
|
Height = 69
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
|
||||||
|
|
@ -22,6 +22,10 @@ type
|
||||||
SpeedButton3: TSpeedButton;
|
SpeedButton3: TSpeedButton;
|
||||||
SpeedButton6: TSpeedButton;
|
SpeedButton6: TSpeedButton;
|
||||||
SpeedButton7: TSpeedButton;
|
SpeedButton7: TSpeedButton;
|
||||||
|
SpeedButton8: TSpeedButton;
|
||||||
|
SpeedButton9: TSpeedButton;
|
||||||
|
SpeedButton10: TSpeedButton;
|
||||||
|
SpeedButton11: TSpeedButton;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure btn1Click(Sender: TObject);
|
procedure btn1Click(Sender: TObject);
|
||||||
|
|
@ -89,9 +93,9 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
i := i - 1;
|
i := i - 1;
|
||||||
if i > 11 then
|
if i > 15 then
|
||||||
begin
|
begin
|
||||||
i := 11;
|
i := 15;
|
||||||
end;
|
end;
|
||||||
for j := 0 to i do
|
for j := 0 to i do
|
||||||
begin
|
begin
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
object frmMarkingInspection: TfrmMarkingInspection
|
object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 556
|
Left = 214
|
||||||
Top = 370
|
Top = 185
|
||||||
Width = 1539
|
Width = 1539
|
||||||
Height = 825
|
Height = 825
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
|
|
@ -23,7 +23,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 236
|
Left = 236
|
||||||
Top = 113
|
Top = 113
|
||||||
Width = 621
|
Width = 621
|
||||||
Height = 681
|
Height = 673
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
Visible = False
|
Visible = False
|
||||||
|
|
@ -1572,8 +1572,8 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
object cxGrid3: TcxGrid
|
object cxGrid3: TcxGrid
|
||||||
Left = 1151
|
Left = 1151
|
||||||
Top = 113
|
Top = 113
|
||||||
Width = 380
|
Width = 372
|
||||||
Height = 681
|
Height = 673
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
|
@ -1699,7 +1699,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 113
|
Top = 113
|
||||||
Width = 236
|
Width = 236
|
||||||
Height = 681
|
Height = 673
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
|
|
@ -2155,7 +2155,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
end
|
end
|
||||||
object Button3: TButton
|
object Button3: TButton
|
||||||
Left = 191
|
Left = 191
|
||||||
Top = 362
|
Top = 363
|
||||||
Width = 39
|
Width = 39
|
||||||
Height = 41
|
Height = 41
|
||||||
Caption = #36873#25321
|
Caption = #36873#25321
|
||||||
|
|
@ -2256,7 +2256,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 857
|
Left = 857
|
||||||
Top = 113
|
Top = 113
|
||||||
Width = 294
|
Width = 294
|
||||||
Height = 681
|
Height = 673
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
|
|
@ -2281,7 +2281,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 2
|
Left = 2
|
||||||
Top = 404
|
Top = 404
|
||||||
Width = 290
|
Width = 290
|
||||||
Height = 275
|
Height = 267
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Tv2: TcxGridDBTableView
|
object Tv2: TcxGridDBTableView
|
||||||
|
|
@ -2397,14 +2397,14 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
object Panel5: TPanel
|
object Panel5: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1531
|
Width = 1523
|
||||||
Height = 113
|
Height = 113
|
||||||
Align = alTop
|
Align = alTop
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Panel6: TPanel
|
object Panel6: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 31
|
Top = 31
|
||||||
Width = 1529
|
Width = 1521
|
||||||
Height = 81
|
Height = 81
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -2654,7 +2654,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 1529
|
Width = 1521
|
||||||
Height = 30
|
Height = 30
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 119
|
ButtonWidth = 119
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
object frmProductOrderList: TfrmProductOrderList
|
object frmProductOrderList: TfrmProductOrderList
|
||||||
Left = 495
|
Left = 315
|
||||||
Top = 367
|
Top = 201
|
||||||
Width = 1363
|
Width = 1439
|
||||||
Height = 801
|
Height = 801
|
||||||
Caption = #29983#20135#25351#31034#21333
|
Caption = #29983#20135#25351#31034#21333
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
|
|
@ -21,7 +21,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1355
|
Width = 1423
|
||||||
Height = 62
|
Height = 62
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
|
|
@ -295,7 +295,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 62
|
Top = 62
|
||||||
Width = 1355
|
Width = 1423
|
||||||
Height = 64
|
Height = 64
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -497,6 +497,19 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
Font.Style = [fsBold]
|
Font.Style = [fsBold]
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
end
|
||||||
|
object Label41: TLabel
|
||||||
|
Left = 1278
|
||||||
|
Top = 14
|
||||||
|
Width = 54
|
||||||
|
Height = 12
|
||||||
|
Caption = #38376' '#24133
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
object BegDate: TDateTimePicker
|
object BegDate: TDateTimePicker
|
||||||
Left = 109
|
Left = 109
|
||||||
Top = 11
|
Top = 11
|
||||||
|
|
@ -698,12 +711,21 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
#26797#32455
|
#26797#32455
|
||||||
'')
|
'')
|
||||||
end
|
end
|
||||||
|
object MPRTMF: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 1332
|
||||||
|
Top = 10
|
||||||
|
Width = 80
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 21
|
||||||
|
OnKeyPress = CustomerNoNameKeyPress
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 157
|
Top = 157
|
||||||
Width = 1355
|
Width = 1423
|
||||||
Height = 372
|
Height = 364
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
|
@ -1011,8 +1033,8 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
end
|
end
|
||||||
object cxSplitter1: TcxSplitter
|
object cxSplitter1: TcxSplitter
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 566
|
Top = 558
|
||||||
Width = 1355
|
Width = 1423
|
||||||
Height = 8
|
Height = 8
|
||||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||||
AlignSplitter = salBottom
|
AlignSplitter = salBottom
|
||||||
|
|
@ -1020,8 +1042,8 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
end
|
end
|
||||||
object Panel2: TPanel
|
object Panel2: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 574
|
Top = 566
|
||||||
Width = 1355
|
Width = 1423
|
||||||
Height = 196
|
Height = 196
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
|
|
@ -1030,7 +1052,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1355
|
Width = 1423
|
||||||
Height = 196
|
Height = 196
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu2
|
PopupMenu = PopupMenu2
|
||||||
|
|
@ -1869,8 +1891,8 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
end
|
end
|
||||||
object Panel11: TPanel
|
object Panel11: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 529
|
Top = 521
|
||||||
Width = 1355
|
Width = 1423
|
||||||
Height = 37
|
Height = 37
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
|
|
@ -1930,7 +1952,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object Panel12: TPanel
|
object Panel12: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 126
|
Top = 126
|
||||||
Width = 1355
|
Width = 1423
|
||||||
Height = 31
|
Height = 31
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
|
|
@ -1938,7 +1960,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
BorderStyle = bsSingle
|
BorderStyle = bsSingle
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
1351
|
1419
|
||||||
27)
|
27)
|
||||||
object Label30: TLabel
|
object Label30: TLabel
|
||||||
Left = 506
|
Left = 506
|
||||||
|
|
|
||||||
|
|
@ -299,6 +299,8 @@ type
|
||||||
Tv1Column12: TcxGridDBColumn;
|
Tv1Column12: TcxGridDBColumn;
|
||||||
ToolButton12: TToolButton;
|
ToolButton12: TToolButton;
|
||||||
YSBQ: TcxButtonEdit;
|
YSBQ: TcxButtonEdit;
|
||||||
|
Label41: TLabel;
|
||||||
|
MPRTMF: TEdit;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
|
|
|
||||||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÕñÓÀ\Ñù²¼²Ö¿â(Ⱦɫ)\testDll.exe
|
HostApplication=D:\D7W\ÏîÄ¿´úÂë\D7myzhenyong\Ñù²¼²Ö¿â(Ⱦɫ)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
object frmSMPBCK: TfrmSMPBCK
|
object frmSMPBCK: TfrmSMPBCK
|
||||||
Left = 143
|
Left = 381
|
||||||
Top = 152
|
Top = 265
|
||||||
Width = 1230
|
Width = 1230
|
||||||
Height = 638
|
Height = 638
|
||||||
BorderIcons = [biSystemMenu]
|
BorderIcons = [biSystemMenu]
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,20 @@ uses
|
||||||
DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, BtnEdit, cxContainer,
|
DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, BtnEdit, cxContainer,
|
||||||
cxTextEdit, cxCurrencyEdit, cxCheckBox, Menus, RM_Common, RM_Class, RM_e_Xls,
|
cxTextEdit, cxCurrencyEdit, cxCheckBox, Menus, RM_Common, RM_Class, RM_e_Xls,
|
||||||
RM_Dataset, RM_System, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters,
|
RM_Dataset, RM_System, 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;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmSMPBCK = class(TForm)
|
TfrmSMPBCK = class(TForm)
|
||||||
|
|
@ -626,46 +639,46 @@ begin
|
||||||
begin
|
begin
|
||||||
|
|
||||||
cds_main.DisableControls;
|
cds_main.DisableControls;
|
||||||
// cds_main.First;
|
cds_main.First;
|
||||||
|
|
||||||
// while not cds_main.Eof do
|
while not cds_main.Eof do
|
||||||
// begin
|
|
||||||
if (not self.cds_main.Locate('MJID', trim(cds_main.fieldbyname('MJID').AsString), [])) then
|
|
||||||
begin
|
begin
|
||||||
self.cds_main.Append;
|
if (not self.cds_main.Locate('MJID', trim(cds_main.fieldbyname('MJID').AsString), [])) and (cds_main.FieldByName('SSel').AsBoolean = True) then
|
||||||
|
begin
|
||||||
|
self.cds_main.Append;
|
||||||
// self.cds_main.FieldByName('JYSQD').Value := fjysq;
|
// self.cds_main.FieldByName('JYSQD').Value := fjysq;
|
||||||
self.cds_main.FieldByName('OrderNo').Value := trim(cds_main.fieldbyname('OrderNo').AsString);
|
self.cds_main.FieldByName('OrderNo').Value := trim(cds_main.fieldbyname('OrderNo').AsString);
|
||||||
self.cds_main.FieldByName('mainID').Value := trim(cds_main.fieldbyname('mainID').AsString);
|
self.cds_main.FieldByName('mainID').Value := trim(cds_main.fieldbyname('mainID').AsString);
|
||||||
self.cds_main.FieldByName('subID').Value := trim(cds_main.fieldbyname('subID').AsString);
|
self.cds_main.FieldByName('subID').Value := trim(cds_main.fieldbyname('subID').AsString);
|
||||||
self.cds_main.fieldbyname('fromFactoryName').Value := trim(cds_main.fieldbyname('fromFactoryName').AsString);
|
self.cds_main.fieldbyname('fromFactoryName').Value := trim(cds_main.fieldbyname('fromFactoryName').AsString);
|
||||||
self.cds_main.fieldbyname('FactoryName').Value := trim(cds_main.fieldbyname('FactoryName').AsString);
|
self.cds_main.fieldbyname('FactoryName').Value := trim(cds_main.fieldbyname('FactoryName').AsString);
|
||||||
self.cds_main.fieldbyname('JGId').Value := trim(cds_main.fieldbyname('JGId').AsString);
|
self.cds_main.fieldbyname('JGId').Value := trim(cds_main.fieldbyname('JGId').AsString);
|
||||||
self.cds_main.FieldByName('MJID').Value := trim(cds_main.fieldbyname('MJID').AsString);
|
self.cds_main.FieldByName('MJID').Value := trim(cds_main.fieldbyname('MJID').AsString);
|
||||||
self.cds_main.FieldByName('MJXH').Value := trim(cds_main.fieldbyname('MJXH').AsString);
|
self.cds_main.FieldByName('MJXH').Value := trim(cds_main.fieldbyname('MJXH').AsString);
|
||||||
self.cds_main.FieldByName('CPTYPE').Value := trim(cds_main.fieldbyname('CPTYPE').AsString);
|
self.cds_main.FieldByName('CPTYPE').Value := trim(cds_main.fieldbyname('CPTYPE').AsString);
|
||||||
self.cds_main.FieldByName('P_Code').Value := trim(cds_main.fieldbyname('P_Code').AsString);
|
self.cds_main.FieldByName('P_Code').Value := trim(cds_main.fieldbyname('P_Code').AsString);
|
||||||
self.cds_main.FieldByName('P_CodeName').Value := trim(cds_main.fieldbyname('P_CodeName').AsString);
|
self.cds_main.FieldByName('P_CodeName').Value := trim(cds_main.fieldbyname('P_CodeName').AsString);
|
||||||
self.cds_main.FieldByName('kuwei').Value := trim(cds_main.fieldbyname('kuwei').AsString);
|
self.cds_main.FieldByName('kuwei').Value := trim(cds_main.fieldbyname('kuwei').AsString);
|
||||||
self.cds_main.FieldByName('P_spec').Value := trim(cds_main.fieldbyname('P_spec').AsString);
|
self.cds_main.FieldByName('P_spec').Value := trim(cds_main.fieldbyname('P_spec').AsString);
|
||||||
self.cds_main.FieldByName('P_Color').Value := trim(cds_main.fieldbyname('P_Color').AsString);
|
self.cds_main.FieldByName('P_Color').Value := trim(cds_main.fieldbyname('P_Color').AsString);
|
||||||
self.cds_main.FieldByName('P_HX').Value := trim(cds_main.fieldbyname('P_HX').AsString);
|
self.cds_main.FieldByName('P_HX').Value := trim(cds_main.fieldbyname('P_HX').AsString);
|
||||||
self.cds_main.FieldByName('P_CF').Value := trim(cds_main.fieldbyname('P_CF').AsString);
|
self.cds_main.FieldByName('P_CF').Value := trim(cds_main.fieldbyname('P_CF').AsString);
|
||||||
self.cds_main.FieldByName('P_MF').Value := trim(cds_main.fieldbyname('P_MF').AsString);
|
self.cds_main.FieldByName('P_MF').Value := trim(cds_main.fieldbyname('P_MF').AsString);
|
||||||
|
|
||||||
self.cds_main.FieldByName('SJBDH').Value := trim(cds_main.fieldbyname('SJBDH').AsString);
|
self.cds_main.FieldByName('SJBDH').Value := trim(cds_main.fieldbyname('SJBDH').AsString);
|
||||||
self.cds_main.FieldByName('CGPZ').Value := trim(cds_main.fieldbyname('CGPZ').AsString);
|
self.cds_main.FieldByName('CGPZ').Value := trim(cds_main.fieldbyname('CGPZ').AsString);
|
||||||
self.cds_main.FieldByName('P_KZ').Value := trim(cds_main.fieldbyname('P_KZ').AsString);
|
self.cds_main.FieldByName('P_KZ').Value := trim(cds_main.fieldbyname('P_KZ').AsString);
|
||||||
self.cds_main.FieldByName('RollNum').Value := cds_main.fieldbyname('RollNum').AsFloat;
|
self.cds_main.FieldByName('RollNum').Value := cds_main.fieldbyname('RollNum').AsFloat;
|
||||||
self.cds_main.FieldByName('Qty').Value := 0; // cds_main.fieldbyname('kcQty').AsFloat;
|
self.cds_main.FieldByName('Qty').Value := 0; // cds_main.fieldbyname('kcQty').AsFloat;
|
||||||
// self.cds_main.FieldByName('yptype').Value := trim(cds_main.fieldbyname('yptype').AsString);
|
// self.cds_main.FieldByName('yptype').Value := trim(cds_main.fieldbyname('yptype').AsString);
|
||||||
|
|
||||||
self.cds_main.FieldByName('SJKC').Value := cds_main.fieldbyname('kcQty').AsFloat;
|
self.cds_main.FieldByName('SJKC').Value := cds_main.fieldbyname('kcQty').AsFloat;
|
||||||
self.cds_main.FieldByName('QtyUnit').Value := trim(cds_main.fieldbyname('QtyUnit').AsString);
|
self.cds_main.FieldByName('QtyUnit').Value := trim(cds_main.fieldbyname('QtyUnit').AsString);
|
||||||
self.cds_main.FieldByName('Price').Value := 0;
|
self.cds_main.FieldByName('Price').Value := 0;
|
||||||
self.cds_main.FieldByName('Money').Value := 0;
|
self.cds_main.FieldByName('Money').Value := 0;
|
||||||
self.cds_main.Post;
|
self.cds_main.Post;
|
||||||
// end;
|
end;
|
||||||
// cds_main.Next;
|
cds_main.Next;
|
||||||
end;
|
end;
|
||||||
cds_main.EnableControls;
|
cds_main.EnableControls;
|
||||||
end;
|
end;
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,20 @@ uses
|
||||||
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common,
|
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common,
|
||||||
RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC,
|
RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC,
|
||||||
cxCheckBox, Menus, U_SLT, jpeg, cxLookAndFeels, cxLookAndFeelPainters,
|
cxCheckBox, Menus, U_SLT, jpeg, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
cxNavigator;
|
cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||||
|
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||||
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||||
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmsmpbCKlist = class(TForm)
|
TfrmsmpbCKlist = class(TForm)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user