调整查询
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
5cc9996a3c
commit
a7de57e54e
|
|
@ -2,7 +2,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
Left = 117
|
||||
Top = 154
|
||||
Caption = #20135#21697#26723#26696
|
||||
ClientHeight = 845
|
||||
ClientHeight = 581
|
||||
ClientWidth = 1540
|
||||
Color = clBtnFace
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -10,8 +10,9 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitLeft = -46
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 884
|
||||
ExplicitHeight = 620
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -177,17 +178,19 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
end
|
||||
object cxSplitter1: TcxSplitter [1]
|
||||
Left = 220
|
||||
Top = 175
|
||||
Top = 105
|
||||
Width = 8
|
||||
Height = 670
|
||||
Height = 476
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
Control = Panel5
|
||||
ExplicitTop = 175
|
||||
ExplicitHeight = 670
|
||||
end
|
||||
object Panel1: TPanel [2]
|
||||
Left = 0
|
||||
Top = 60
|
||||
Width = 1540
|
||||
Height = 115
|
||||
Height = 45
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -207,185 +210,65 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
Height = 21
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 553
|
||||
Top = 11
|
||||
Left = 22
|
||||
Top = 10
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #20135#21697#32534#21495
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 794
|
||||
Top = 11
|
||||
Left = 244
|
||||
Top = 10
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #33394#24067#21517#31216
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 794
|
||||
Top = 81
|
||||
Left = 688
|
||||
Top = 10
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #20811#37325
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 553
|
||||
Top = 81
|
||||
Left = 466
|
||||
Top = 10
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #20013#25991#25104#20221
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 11
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #24067#31181
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 23
|
||||
Top = 46
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #21152#24037#21035
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 794
|
||||
Top = 46
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #35268#26684
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 553
|
||||
Top = 46
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #33521#25991#25104#20998
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 267
|
||||
Top = 11
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #21518#25972#29702#33521#25991
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 267
|
||||
Top = 46
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #21518#25972#29702#20013#25991
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 267
|
||||
Top = 81
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #20379#24212#21830#20195#21495
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 23
|
||||
Top = 81
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #27969#27700#21495
|
||||
end
|
||||
object C_Code: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 623
|
||||
Top = 7
|
||||
Left = 90
|
||||
Top = 6
|
||||
TabOrder = 0
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object C_Name: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 864
|
||||
Top = 7
|
||||
Left = 312
|
||||
Top = 6
|
||||
TabOrder = 1
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object C_GramWeight: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 864
|
||||
Top = 77
|
||||
Left = 724
|
||||
Top = 6
|
||||
TabOrder = 2
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object C_Composition: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 623
|
||||
Top = 77
|
||||
Left = 534
|
||||
Top = 6
|
||||
TabOrder = 3
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object GC_Name: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 80
|
||||
Top = 7
|
||||
TabOrder = 4
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object CraftCode: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 80
|
||||
Top = 42
|
||||
TabOrder = 5
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object C_Spec: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 864
|
||||
Top = 42
|
||||
TabOrder = 6
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object C_EComposition: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 623
|
||||
Top = 42
|
||||
TabOrder = 7
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object CraftEName: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 353
|
||||
Top = 7
|
||||
TabOrder = 8
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object CraftName: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 353
|
||||
Top = 42
|
||||
TabOrder = 9
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object FtyNo: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 353
|
||||
Top = 77
|
||||
TabOrder = 10
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object LSNo: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 80
|
||||
Top = 77
|
||||
TabOrder = 11
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
Width = 150
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel [3]
|
||||
Left = 512
|
||||
|
|
@ -400,18 +283,20 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
end
|
||||
object Panel5: TPanel [4]
|
||||
Left = 0
|
||||
Top = 175
|
||||
Top = 105
|
||||
Width = 220
|
||||
Height = 670
|
||||
Height = 476
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 2
|
||||
ExplicitTop = 175
|
||||
ExplicitHeight = 670
|
||||
object cxDBTreeList1: TcxDBTreeList
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 216
|
||||
Height = 666
|
||||
Height = 472
|
||||
Align = alClient
|
||||
Bands = <
|
||||
item
|
||||
|
|
@ -429,6 +314,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
TabOrder = 0
|
||||
OnDblClick = cxDBTreeList1DblClick
|
||||
ExplicitHeight = 666
|
||||
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
|
||||
DataBinding.FieldName = 'CTName'
|
||||
Width = 210
|
||||
|
|
@ -442,33 +328,38 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
end
|
||||
object Panel3: TPanel [5]
|
||||
Left = 228
|
||||
Top = 175
|
||||
Width = 1312
|
||||
Height = 670
|
||||
Top = 105
|
||||
Width = 1108
|
||||
Height = 476
|
||||
Align = alClient
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Panel3'
|
||||
TabOrder = 4
|
||||
ExplicitTop = 175
|
||||
ExplicitWidth = 1312
|
||||
ExplicitHeight = 670
|
||||
object Panel7: TPanel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1308
|
||||
Width = 1104
|
||||
Height = 40
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1308
|
||||
object Panel4: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1308
|
||||
Width = 1104
|
||||
Height = 40
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1308
|
||||
DesignSize = (
|
||||
1308
|
||||
1104
|
||||
40)
|
||||
object Label14: TLabel
|
||||
Left = 21
|
||||
|
|
@ -534,37 +425,42 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
end
|
||||
object Panel9: TPanel
|
||||
Left = 2
|
||||
Top = 463
|
||||
Width = 1308
|
||||
Top = 269
|
||||
Width = 1104
|
||||
Height = 205
|
||||
Align = alBottom
|
||||
Caption = 'Panel9'
|
||||
TabOrder = 1
|
||||
ExplicitTop = 463
|
||||
ExplicitWidth = 1308
|
||||
object Panel10: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1306
|
||||
Width = 1102
|
||||
Height = 203
|
||||
Align = alClient
|
||||
Caption = 'Panel9'
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1306
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1304
|
||||
Width = 1100
|
||||
Height = 201
|
||||
Align = alClient
|
||||
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1304
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 2
|
||||
Top = 23
|
||||
Width = 1300
|
||||
Width = 1096
|
||||
Height = 176
|
||||
Align = alClient
|
||||
BevelInner = bvLowered
|
||||
BorderStyle = bsNone
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1300
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
@ -573,11 +469,13 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
Left = 10
|
||||
Top = 42
|
||||
Width = 1088
|
||||
Height = 421
|
||||
Height = 227
|
||||
Align = alClient
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitHeight = 421
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnDblClick = Tv1DblClick
|
||||
OnMouseDown = Tv1MouseDown
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
|
|
@ -818,69 +716,21 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 1106
|
||||
Top = 42
|
||||
Width = 204
|
||||
Height = 421
|
||||
Align = alRight
|
||||
TabOrder = 3
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = 'C_Code'
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 105
|
||||
end
|
||||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'C_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
end
|
||||
object cxGridLevel2: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
object cxSplitter2: TcxSplitter
|
||||
Left = 2
|
||||
Top = 42
|
||||
Width = 8
|
||||
Height = 421
|
||||
Height = 227
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
ExplicitHeight = 421
|
||||
end
|
||||
object cxSplitter3: TcxSplitter
|
||||
Left = 1098
|
||||
Top = 42
|
||||
Width = 8
|
||||
Height = 421
|
||||
Height = 227
|
||||
AlignSplitter = salRight
|
||||
Control = cxGrid2
|
||||
ExplicitLeft = 1091
|
||||
end
|
||||
end
|
||||
inherited loadProcess: TPanel
|
||||
|
|
@ -896,64 +746,116 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
ExplicitTop = 343
|
||||
ExplicitHeight = 29
|
||||
end
|
||||
object cxGrid2: TcxGrid [8]
|
||||
Left = 1336
|
||||
Top = 105
|
||||
Width = 204
|
||||
Height = 476
|
||||
Align = alRight
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 1106
|
||||
ExplicitTop = 42
|
||||
ExplicitHeight = 421
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = 'C_Code'
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 105
|
||||
end
|
||||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'C_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
end
|
||||
object cxGridLevel2: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
Left = 161
|
||||
Top = 240
|
||||
Left = 634
|
||||
Top = 124
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
Left = 57
|
||||
Top = 241
|
||||
Left = 695
|
||||
Top = 124
|
||||
end
|
||||
object DS_Tree: TDataSource
|
||||
DataSet = CDS_Tree
|
||||
Left = 155
|
||||
Top = 195
|
||||
Left = 756
|
||||
Top = 307
|
||||
end
|
||||
object ADOQueryTree: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 53
|
||||
Top = 201
|
||||
Left = 756
|
||||
Top = 185
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 739
|
||||
Top = 312
|
||||
Left = 695
|
||||
Top = 185
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
Parameters = <>
|
||||
Left = 837
|
||||
Top = 269
|
||||
Left = 756
|
||||
Top = 124
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 672
|
||||
Top = 512
|
||||
Left = 756
|
||||
Top = 246
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 883
|
||||
Top = 491
|
||||
Left = 634
|
||||
Top = 307
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 653
|
||||
Top = 289
|
||||
Left = 817
|
||||
Top = 124
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 784
|
||||
Top = 528
|
||||
Left = 878
|
||||
Top = 185
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
|
|
@ -972,20 +874,20 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 265
|
||||
Top = 305
|
||||
Left = 878
|
||||
Top = 368
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDB_Main: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = ADOQueryPrint
|
||||
Left = 952
|
||||
Top = 400
|
||||
Left = 817
|
||||
Top = 368
|
||||
end
|
||||
object ODPat: TOpenDialog
|
||||
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
|
||||
Left = 302
|
||||
Top = 284
|
||||
Left = 878
|
||||
Top = 307
|
||||
end
|
||||
object IdFTP1: TIdFTP
|
||||
ConnectTimeout = 0
|
||||
|
|
@ -995,37 +897,37 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
ProxySettings.ProxyType = fpcmNone
|
||||
ProxySettings.Port = 0
|
||||
ReadTimeout = 0
|
||||
Left = 374
|
||||
Top = 367
|
||||
Left = 817
|
||||
Top = 307
|
||||
end
|
||||
object SaveDialog1: TSaveDialog
|
||||
Left = 394
|
||||
Top = 289
|
||||
Left = 634
|
||||
Top = 429
|
||||
end
|
||||
object DSCYNO: TDataSource
|
||||
DataSet = CDS_CYNO
|
||||
Left = 495
|
||||
Top = 282
|
||||
Left = 878
|
||||
Top = 246
|
||||
end
|
||||
object CDS_CYNO: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 566
|
||||
Top = 343
|
||||
Left = 634
|
||||
Top = 246
|
||||
end
|
||||
object adoqueryPicture: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
Parameters = <>
|
||||
Left = 293
|
||||
Top = 357
|
||||
Left = 878
|
||||
Top = 124
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
Left = 459
|
||||
Top = 367
|
||||
Left = 634
|
||||
Top = 368
|
||||
end
|
||||
object PM_1: TPopupMenu
|
||||
Left = 1160
|
||||
Top = 352
|
||||
Left = 695
|
||||
Top = 368
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
|
|
@ -1040,37 +942,38 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
end
|
||||
end
|
||||
object RMBarCodeObject1: TRMBarCodeObject
|
||||
Left = 1044
|
||||
Top = 408
|
||||
Left = 756
|
||||
Top = 368
|
||||
end
|
||||
object CDS_Tree: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 96
|
||||
Top = 200
|
||||
Left = 695
|
||||
Top = 246
|
||||
end
|
||||
object ADOQueryPrint: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 851
|
||||
Top = 392
|
||||
Left = 634
|
||||
Top = 185
|
||||
end
|
||||
object GPM_2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 554
|
||||
Top = 540
|
||||
Left = 817
|
||||
Top = 246
|
||||
end
|
||||
object DS_2: TDataSource
|
||||
DataSet = ADO_2
|
||||
Left = 702
|
||||
Top = 629
|
||||
Left = 695
|
||||
Top = 307
|
||||
end
|
||||
object ADO_2: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 355
|
||||
Top = 569
|
||||
Left = 817
|
||||
Top = 185
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -93,22 +93,6 @@ type
|
|||
C_Name: TcxTextEdit;
|
||||
C_GramWeight: TcxTextEdit;
|
||||
C_Composition: TcxTextEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
GC_Name: TcxTextEdit;
|
||||
CraftCode: TcxTextEdit;
|
||||
C_Spec: TcxTextEdit;
|
||||
C_EComposition: TcxTextEdit;
|
||||
Label7: TLabel;
|
||||
Label10: TLabel;
|
||||
CraftEName: TcxTextEdit;
|
||||
CraftName: TcxTextEdit;
|
||||
Label13: TLabel;
|
||||
FtyNo: TcxTextEdit;
|
||||
Label15: TLabel;
|
||||
LSNo: TcxTextEdit;
|
||||
ToolButton6: TToolButton;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
cxGrid1: TcxGrid;
|
||||
|
|
@ -144,17 +128,17 @@ type
|
|||
cxGrid1Level1: TcxGridLevel;
|
||||
DS_2: TDataSource;
|
||||
ADO_2: TADOQuery;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridDBColumn1: TcxGridDBColumn;
|
||||
cxGridDBColumn2: TcxGridDBColumn;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
cxSplitter2: TcxSplitter;
|
||||
cxSplitter3: TcxSplitter;
|
||||
ToolButton7: TToolButton;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
ToolButton8: TToolButton;
|
||||
ToolButton9: TToolButton;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridDBColumn1: TcxGridDBColumn;
|
||||
cxGridDBColumn2: TcxGridDBColumn;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBDelClick(Sender: TObject);
|
||||
|
|
@ -191,6 +175,7 @@ type
|
|||
procedure ToolButton7Click(Sender: TObject);
|
||||
procedure ToolButton8Click(Sender: TObject);
|
||||
procedure ToolButton9Click(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
|
|
@ -308,7 +293,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmClothInfo.InitTree();
|
||||
begin
|
||||
try
|
||||
|
|
@ -331,15 +315,7 @@ begin
|
|||
cxDBTreeList1.Items[0].Expand(false);
|
||||
end;
|
||||
|
||||
// if Self.cds_tree.Locate('CTName', '底布编号', []) then
|
||||
// begin
|
||||
// CTID2 := Self.cds_tree.FieldByName('CTID').AsString;
|
||||
// end;
|
||||
// if Self.cds_tree.Locate('CTName', '布种花型编号', []) then
|
||||
// begin
|
||||
// CTID1 := Self.cds_tree.FieldByName('CTID').AsString;
|
||||
// end;
|
||||
// Self.cds_tree.Locate('CTName', '成品', []);
|
||||
Self.cds_tree.Locate('CTName', '³ÉÆ·', []);
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfo.InitGrid();
|
||||
|
|
@ -483,7 +459,7 @@ end;
|
|||
|
||||
procedure TfrmClothInfo.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitTree();
|
||||
// InitTree();
|
||||
InitGrid();
|
||||
InitImage();
|
||||
InitGrid2();
|
||||
|
|
@ -1139,6 +1115,11 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfo.Tv1DblClick(Sender: TObject);
|
||||
begin
|
||||
ToolButton1.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfo.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
InitImage();
|
||||
|
|
|
|||
|
|
@ -85,6 +85,7 @@ begin
|
|||
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
Parameters1 := '¹ÜÀí';
|
||||
Parameters2 := 'óÒײ¼Æ¥';
|
||||
DName := 'ADMIN';
|
||||
DCode := 'ADMIN';
|
||||
end
|
||||
|
|
@ -169,7 +170,6 @@ begin
|
|||
begin
|
||||
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
FSTKName := 'óÒײ¼Æ¥';
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
mnewHandle := Handle;
|
||||
|
|
@ -181,9 +181,7 @@ begin
|
|||
with TfrmTradeRRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
FormStyle := mstyle;
|
||||
WindowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -202,7 +200,6 @@ begin
|
|||
begin
|
||||
with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
FSTKName := 'óÒײ¼Æ¥';
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
mnewHandle := Handle;
|
||||
|
|
@ -213,7 +210,6 @@ begin
|
|||
begin
|
||||
with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
FSTKName := 'óÒײ¼Æ¥';
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
mnewHandle := Handle;
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -44,72 +44,19 @@ type
|
|||
FromCoName: TcxTextEdit;
|
||||
BCIONo: TcxTextEdit;
|
||||
C_spec: TcxTextEdit;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
Label10: TLabel;
|
||||
BatchNo: TcxTextEdit;
|
||||
v1Column11: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column15: TcxGridDBColumn;
|
||||
v1Column19: TcxGridDBColumn;
|
||||
v1Column20: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
ToolButton1: TToolButton;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
ToolButton2: TToolButton;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
ToolButton3: TToolButton;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Label6: TLabel;
|
||||
FromOrdNo: TcxTextEdit;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
frmFrameDateSel1: TfrmFrameDateSel;
|
||||
IOType: TcxComboBox;
|
||||
Tv1Column22: TcxGridDBColumn;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
Tv1Column24: TcxGridDBColumn;
|
||||
Tv1Column25: TcxGridDBColumn;
|
||||
Tv1Column26: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
GC_Name: TcxTextEdit;
|
||||
CraftCode: TcxTextEdit;
|
||||
Tv1Column27: TcxGridDBColumn;
|
||||
Tv1Column29: TcxGridDBColumn;
|
||||
Tv1Column30: TcxGridDBColumn;
|
||||
Tv1Column32: TcxGridDBColumn;
|
||||
Tv1Column33: TcxGridDBColumn;
|
||||
Tv1Column34: TcxGridDBColumn;
|
||||
Tv1Column35: TcxGridDBColumn;
|
||||
Tv1Column36: TcxGridDBColumn;
|
||||
Tv1Column37: TcxGridDBColumn;
|
||||
Label7: TLabel;
|
||||
FtyPCId: TcxTextEdit;
|
||||
Label9: TLabel;
|
||||
|
|
@ -117,10 +64,83 @@ type
|
|||
Label11: TLabel;
|
||||
BCIOID: TcxTextEdit;
|
||||
btn1: TToolButton;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
CDS_2: TClientDataSet;
|
||||
DS_2: TDataSource;
|
||||
ADO_2: TADOQuery;
|
||||
cxPageControl1: TcxPageControl;
|
||||
cxTabSheet1: TcxTabSheet;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
cxGridDBColumn14: TcxGridDBColumn;
|
||||
cxGridDBColumn9: TcxGridDBColumn;
|
||||
cxGridDBColumn15: TcxGridDBColumn;
|
||||
cxGridDBColumn16: TcxGridDBColumn;
|
||||
cxGridDBColumn24: TcxGridDBColumn;
|
||||
cxGridDBColumn26: TcxGridDBColumn;
|
||||
cxGridDBColumn28: TcxGridDBColumn;
|
||||
cxGridDBColumn29: TcxGridDBColumn;
|
||||
cxGridDBColumn17: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
cxTabSheet2: TcxTabSheet;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column37: TcxGridDBColumn;
|
||||
Tv1Column29: TcxGridDBColumn;
|
||||
Tv1Column30: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column11: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
v1Column15: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
v1Column19: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
v1Column20: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column32: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column36: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column22: TcxGridDBColumn;
|
||||
Tv1Column27: TcxGridDBColumn;
|
||||
Tv1Column25: TcxGridDBColumn;
|
||||
Tv1Column24: TcxGridDBColumn;
|
||||
Tv1Column34: TcxGridDBColumn;
|
||||
Tv1Column26: TcxGridDBColumn;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
Tv1Column33: TcxGridDBColumn;
|
||||
Tv1Column35: TcxGridDBColumn;
|
||||
Tv1Column28: TcxGridDBColumn;
|
||||
Tv1Column31: TcxGridDBColumn;
|
||||
Tv1Column38: TcxGridDBColumn;
|
||||
Tv1Column39: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
TV2Column1: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -150,13 +170,15 @@ type
|
|||
procedure BCIONoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure IOTypePropertiesChange(Sender: TObject);
|
||||
procedure btn1Click(Sender: TObject);
|
||||
procedure TV2DblClick(Sender: TObject);
|
||||
procedure cxPageControl1Change(Sender: TObject);
|
||||
private
|
||||
canshu1, canshu2, canshu3, canshu4: string;
|
||||
procedure InitGrid();
|
||||
canshu1, FSTKName, canshu3, canshu4: string;
|
||||
procedure InitGrid1();
|
||||
procedure InitGrid2();
|
||||
procedure setStatus();
|
||||
{ Private declarations }
|
||||
public
|
||||
FSTKName: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
|
@ -182,17 +204,16 @@ procedure TfrmTradeClothTotalInList.FormCreate(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
|
||||
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 30;
|
||||
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 3;
|
||||
canshu1 := Trim(self.fParameters1);
|
||||
canshu2 := Trim(self.fParameters2);
|
||||
FSTKName := Trim(self.fParameters2);
|
||||
canshu3 := Trim(self.fParameters3);
|
||||
|
||||
canshu4 := Trim(self.fParameters4);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.InitGrid();
|
||||
procedure TfrmTradeClothTotalInList.InitGrid1();
|
||||
var
|
||||
SqlStr: string;
|
||||
SqlStr, WSqlStr: string;
|
||||
begin
|
||||
|
||||
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece) ';
|
||||
|
|
@ -203,6 +224,10 @@ begin
|
|||
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
|
||||
SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' ';
|
||||
|
||||
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
|
||||
if TRIM(WSqlStr) <> '' then
|
||||
SqlStr := SqlStr + ' and ' + WSqlStr;
|
||||
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
|
||||
|
|
@ -211,6 +236,24 @@ begin
|
|||
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.InitGrid2();
|
||||
var
|
||||
SqlStr: string;
|
||||
begin
|
||||
SqlStr := ' select A.BCIONO,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty),QtyUnit ';
|
||||
SqlStr := SqlStr + ' from BS_Cloth_IO A ';
|
||||
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
|
||||
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
|
||||
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
|
||||
SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' ';
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
|
||||
SqlStr := SqlStr + ' group by A.BCIONO,C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
|
||||
|
||||
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.IOTypePropertiesChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
|
|
@ -219,12 +262,14 @@ end;
|
|||
procedure TfrmTradeClothTotalInList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
frmFrameDateSel1.BegDate.SetFocus;
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(Self.Caption, Tv1, 'óÒ×»ã×ֿܲâ');
|
||||
|
||||
WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
|
||||
WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.ToolButton2Click(Sender: TObject);
|
||||
|
|
@ -232,6 +277,10 @@ var
|
|||
MFiltration: string;
|
||||
MPrintJson: string;
|
||||
begin
|
||||
|
||||
if cxPageControl1.ActivePageIndex <> 1 then
|
||||
Exit;
|
||||
|
||||
if CDS_1.IsEmpty then
|
||||
Exit;
|
||||
if CDS_1.Locate('SSel', True, []) = False then
|
||||
|
|
@ -252,6 +301,8 @@ end;
|
|||
|
||||
procedure TfrmTradeClothTotalInList.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
if cxPageControl1.ActivePageIndex <> 1 then
|
||||
Exit;
|
||||
if CDS_1.IsEmpty then
|
||||
Exit;
|
||||
try
|
||||
|
|
@ -271,10 +322,15 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.TV2DblClick(Sender: TObject);
|
||||
begin
|
||||
cxPageControl1.ActivePageIndex := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.btn1Click(Sender: TObject);
|
||||
|
|
@ -288,7 +344,7 @@ begin
|
|||
FSTKName := Self.FSTKName;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
Self.InitGrid2();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -324,9 +380,10 @@ begin
|
|||
inherited;
|
||||
mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''Èë¿â'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' ';
|
||||
SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql);
|
||||
ReadCxGrid(Self.Caption, Tv1, 'óÒ×»ã×ֿܲâ');
|
||||
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
|
||||
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
|
||||
setStatus();
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.TBExportClick(Sender: TObject);
|
||||
|
|
@ -357,6 +414,8 @@ var
|
|||
MBCIOID, MBCIONO: string;
|
||||
begin
|
||||
|
||||
if cxPageControl1.ActivePageIndex <> 1 then
|
||||
Exit;
|
||||
if CDS_1.IsEmpty then
|
||||
Exit;
|
||||
if CDS_1.Locate('SSel', True, []) = False then
|
||||
|
|
@ -408,11 +467,11 @@ begin
|
|||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
end;
|
||||
|
|
@ -428,7 +487,7 @@ begin
|
|||
FSTKName := Self.FSTKName;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
Self.InitGrid2();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -438,6 +497,8 @@ end;
|
|||
|
||||
procedure TfrmTradeClothTotalInList.TBEditClick(Sender: TObject);
|
||||
begin
|
||||
if cxPageControl1.ActivePageIndex <> 1 then
|
||||
Exit;
|
||||
if CDS_1.IsEmpty then
|
||||
Exit;
|
||||
with ADOQueryTemp do
|
||||
|
|
@ -479,7 +540,7 @@ begin
|
|||
FSTKName := Self.FSTKName;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
Self.InitGrid2();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -511,40 +572,50 @@ procedure TfrmTradeClothTotalInList.cxButton1Click(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton1Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.cxButton2Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton2Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.cxButton3Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton3Click(Sender);
|
||||
InitGrid()
|
||||
InitGrid2()
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.cxButton4Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton4Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.cxButton5Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton5Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.cxPageControl1Change(Sender: TObject);
|
||||
begin
|
||||
case cxPageControl1.ActivePageIndex of
|
||||
1:
|
||||
begin
|
||||
InitGrid1();
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalInList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -25,30 +25,17 @@ type
|
|||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADO_1: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
DS_1: TDataSource;
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
CDS_Main: TClientDataSet;
|
||||
CDS_1: TClientDataSet;
|
||||
TBDel: TToolButton;
|
||||
PopupMenu1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
TBAdd: TToolButton;
|
||||
TBEdit: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column15: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
Label3: TLabel;
|
||||
Label5: TLabel;
|
||||
Label8: TLabel;
|
||||
|
|
@ -56,36 +43,10 @@ type
|
|||
C_NAME: TcxTextEdit;
|
||||
BCIONO: TcxTextEdit;
|
||||
C_spec: TcxTextEdit;
|
||||
v1Column20: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
v1Column17: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column16: TcxGridDBColumn;
|
||||
v1Column18: TcxGridDBColumn;
|
||||
v1Column19: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
ToolButton1: TToolButton;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
ToolButton2: TToolButton;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
N3: TMenuItem;
|
||||
ToolButton3: TToolButton;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Label4: TLabel;
|
||||
Label9: TLabel;
|
||||
Label6: TLabel;
|
||||
|
|
@ -94,36 +55,95 @@ type
|
|||
ToCoName: TcxTextEdit;
|
||||
ToOrdNo: TcxTextEdit;
|
||||
FromOrdNo: TcxTextEdit;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
frmFrameDateSel1: TfrmFrameDateSel;
|
||||
IOType: TcxComboBox;
|
||||
Tv1Column22: TcxGridDBColumn;
|
||||
Tv1Column24: TcxGridDBColumn;
|
||||
Tv1Column25: TcxGridDBColumn;
|
||||
Tv1Column26: TcxGridDBColumn;
|
||||
Tv1Column27: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
GC_Name: TcxTextEdit;
|
||||
CraftCode: TcxTextEdit;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
ADOQueryPrint: TADOQuery;
|
||||
ToolButton4: TToolButton;
|
||||
cxPageControl1: TcxPageControl;
|
||||
cxTabSheet1: TcxTabSheet;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
cxGridDBColumn14: TcxGridDBColumn;
|
||||
cxGridDBColumn9: TcxGridDBColumn;
|
||||
cxGridDBColumn15: TcxGridDBColumn;
|
||||
cxGridDBColumn16: TcxGridDBColumn;
|
||||
cxGridDBColumn24: TcxGridDBColumn;
|
||||
cxGridDBColumn26: TcxGridDBColumn;
|
||||
cxGridDBColumn28: TcxGridDBColumn;
|
||||
cxGridDBColumn29: TcxGridDBColumn;
|
||||
cxGridDBColumn17: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
cxTabSheet2: TcxTabSheet;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column15: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column16: TcxGridDBColumn;
|
||||
v1Column17: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v1Column20: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
v1Column18: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column28: TcxGridDBColumn;
|
||||
Tv1Column29: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
v1Column19: TcxGridDBColumn;
|
||||
Tv1Column35: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column30: TcxGridDBColumn;
|
||||
Tv1Column31: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
Tv1Column22: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
Tv1Column32: TcxGridDBColumn;
|
||||
Tv1Column24: TcxGridDBColumn;
|
||||
Tv1Column25: TcxGridDBColumn;
|
||||
Tv1Column26: TcxGridDBColumn;
|
||||
Tv1Column27: TcxGridDBColumn;
|
||||
Tv1Column33: TcxGridDBColumn;
|
||||
Tv1Column34: TcxGridDBColumn;
|
||||
ADOQueryPrint: TADOQuery;
|
||||
Tv1Column35: TcxGridDBColumn;
|
||||
ToolButton4: TToolButton;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
TV2Column1: TcxGridDBColumn;
|
||||
TV2Column2: TcxGridDBColumn;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
CDS_2: TClientDataSet;
|
||||
DS_2: TDataSource;
|
||||
ADO_2: TADOQuery;
|
||||
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);
|
||||
|
|
@ -151,12 +171,14 @@ type
|
|||
procedure BCIONOKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure IOTypePropertiesChange(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure cxPageControl1Change(Sender: TObject);
|
||||
procedure TV2DblClick(Sender: TObject);
|
||||
private
|
||||
canshu1, canshu2, canshu4: string;
|
||||
procedure InitGrid();
|
||||
canshu1, FSTKName, canshu3, canshu4: string;
|
||||
procedure InitGrid1();
|
||||
procedure InitGrid2();
|
||||
{ Private declarations }
|
||||
public
|
||||
FFSPID, FstkName, FC_Degree: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
|
@ -171,6 +193,28 @@ uses
|
|||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.InitGrid2();
|
||||
var
|
||||
SqlStr: string;
|
||||
begin
|
||||
|
||||
SqlStr := ' select A.BCIONO,A.ToCoName,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit ';
|
||||
|
||||
SqlStr := SqlStr + ' ,Pieceint=sum(CEILING(A.Piece)),Qty=sum(Qty),QtyUnit ';
|
||||
SqlStr := SqlStr + ' from BS_Cloth_IO A ';
|
||||
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
|
||||
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
|
||||
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
|
||||
SqlStr := SqlStr + ' and ioFlag=''出库'' ';
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
SqlStr := SqlStr + ' group by A.BCIONO,A.ToCoName,C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
|
||||
|
||||
// ShowMessage(SqlStr);
|
||||
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
|
|
@ -180,16 +224,17 @@ end;
|
|||
procedure TfrmTradeClothTotalOutList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
canshu1 := Trim(DParameters1);
|
||||
canshu2 := Trim(DParameters2);
|
||||
canshu1 := Trim(self.fParameters1);
|
||||
FSTKName := Trim(self.fParameters2);
|
||||
canshu3 := Trim(self.fParameters3);
|
||||
canshu4 := Trim(self.fParameters4);
|
||||
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
|
||||
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.InitGrid();
|
||||
procedure TfrmTradeClothTotalOutList.InitGrid1();
|
||||
var
|
||||
SqlStr: string;
|
||||
SqlStr, WSqlStr: string;
|
||||
begin
|
||||
|
||||
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
|
||||
|
|
@ -200,10 +245,13 @@ begin
|
|||
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
|
||||
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
|
||||
SqlStr := SqlStr + ' and ioFlag=''出库'' ';
|
||||
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
|
||||
if TRIM(WSqlStr) <> '' then
|
||||
SqlStr := SqlStr + ' and ' + WSqlStr;
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
|
||||
InitCDSData(ADOQueryMain, CDS_Main, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
|
||||
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject);
|
||||
|
|
@ -214,27 +262,30 @@ end;
|
|||
procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
ToolBar1.SetFocus;
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(Self.Caption), Tv1, '贸易汇总仓库');
|
||||
WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库');
|
||||
WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易汇总仓库');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.ToolButton2Click(Sender: TObject);
|
||||
var
|
||||
MBCIOID: string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
MBCIOID := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]);
|
||||
case cxPageControl1.ActivePageIndex of
|
||||
0:
|
||||
begin
|
||||
MBCIOID := Trim(CDS_2.fieldbyname('BCIONo').AsString)
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
MBCIOID := Trim(CDS_1.fieldbyname('BCIONo').AsString)
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
|
|
@ -245,18 +296,18 @@ begin
|
|||
if ShowModal = 1 then
|
||||
begin
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('update BS_Cloth_IO ');
|
||||
sql.Add(' set PRTer=' + quotedstr(DName));
|
||||
sql.Add(', PRTCount=isnull(PRTCount,0)+1');
|
||||
sql.Add(', PRTDate=getdate()');
|
||||
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(MBCIOID) + ','','') SP where SP.RTValue=BS_Cloth_IO.BCIOID )');
|
||||
ExecSQL;
|
||||
end;
|
||||
Self.InitGrid();
|
||||
// with ADOQueryCmd do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.Add('update BS_Cloth_IO ');
|
||||
// sql.Add(' set PRTer=' + quotedstr(DName));
|
||||
// sql.Add(', PRTCount=isnull(PRTCount,0)+1');
|
||||
// sql.Add(', PRTDate=getdate()');
|
||||
// sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(MBCIOID) + ','','') SP where SP.RTValue=BS_Cloth_IO.BCIOID )');
|
||||
// ExecSQL;
|
||||
// end;
|
||||
// Self.InitGrid2();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -266,13 +317,13 @@ end;
|
|||
|
||||
procedure TfrmTradeClothTotalOutList.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
if CDS_1.IsEmpty then
|
||||
Exit;
|
||||
try
|
||||
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
|
||||
with frmAttachmentUpload do
|
||||
begin
|
||||
fkeyNO := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
|
||||
fkeyNO := Trim(Self.CDS_1.fieldbyname('BCIOID').AsString);
|
||||
fType := '贸易汇总布';
|
||||
FEditAuthority := True;
|
||||
if ShowModal = 1 then
|
||||
|
|
@ -287,7 +338,9 @@ end;
|
|||
|
||||
procedure TfrmTradeClothTotalOutList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
if cxPageControl1.ActivePageIndex <> 1 then
|
||||
Exit;
|
||||
if CDS_1.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
|
|
@ -297,7 +350,7 @@ begin
|
|||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'TradeLabVolume1';
|
||||
FFiltration1 := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]);
|
||||
FFiltration1 := Trim(SelCDSKey(self.CDS_1, ['BCIOID'])[0]);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
||||
|
|
@ -308,6 +361,11 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.TV2DblClick(Sender: TObject);
|
||||
begin
|
||||
cxPageControl1.ActivePageIndex := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.BCIOIDPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
|
||||
|
|
@ -318,15 +376,7 @@ end;
|
|||
procedure TfrmTradeClothTotalOutList.BCIONOKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
end;
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.TBCloseClick(Sender: TObject);
|
||||
|
|
@ -342,24 +392,30 @@ begin
|
|||
inherited;
|
||||
mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''出库'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' ';
|
||||
SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql);
|
||||
ReadCxGrid(trim(Self.Caption), Tv1, '贸易汇总仓库');
|
||||
InitGrid();
|
||||
|
||||
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库');
|
||||
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易汇总仓库');
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then
|
||||
if CDS_1.IsEmpty then
|
||||
exit;
|
||||
TcxGridToExcel(FstkName + '出库列表', cxGrid1);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS(ADOQueryMain, CDS_Main);
|
||||
SInitCDSData(ADOQueryMain, CDS_Main);
|
||||
case cxPageControl1.ActivePageIndex of
|
||||
0:
|
||||
begin
|
||||
CDSDataFilter(ADO_2, CDS_2, Tv2, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": "C_name|C_Color|C_ColorNo"}') + '" }');
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
CDSDataFilter(ADO_1, CDS_1, Tv1, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}') + '" }');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -380,27 +436,29 @@ end;
|
|||
|
||||
procedure TfrmTradeClothTotalOutList.N1Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main, True);
|
||||
SelOKNo(CDS_1, True);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.N2Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main, False);
|
||||
SelOKNo(CDS_1, False);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.N3Click(Sender: TObject);
|
||||
begin
|
||||
Clipboard.SetTextBuf(PChar(Trim(CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.TBDelClick(Sender: TObject);
|
||||
var
|
||||
MBCIOID, MBCIONO: string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
if cxPageControl1.ActivePageIndex <> 1 then
|
||||
Exit;
|
||||
if CDS_1.IsEmpty then
|
||||
Exit;
|
||||
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
if CDS_1.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
|
|
@ -408,8 +466,8 @@ begin
|
|||
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
MBCIOID := SelCDSKey(CDS_Main, ['BCIOID'])[0];
|
||||
MBCIONO := SelCDSKey(CDS_Main, ['BCIONO'])[0];
|
||||
MBCIOID := SelCDSKey(CDS_1, ['BCIOID'])[0];
|
||||
MBCIONO := SelCDSKey(CDS_1, ['BCIONO'])[0];
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -463,11 +521,11 @@ begin
|
|||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
end;
|
||||
|
|
@ -480,10 +538,9 @@ begin
|
|||
begin
|
||||
FBCId := '';
|
||||
FstkName := Self.FstkName;
|
||||
FC_Degree := Self.FC_Degree;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
Self.InitGrid2();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -493,14 +550,16 @@ end;
|
|||
|
||||
procedure TfrmTradeClothTotalOutList.TBEditClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
if cxPageControl1.ActivePageIndex <> 1 then
|
||||
Exit;
|
||||
if CDS_1.IsEmpty then
|
||||
Exit;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec P_Fin_Flow_Judge ');
|
||||
Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString)));
|
||||
Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_1.fieldbyname('BCIOID').AsString)));
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
Open;
|
||||
|
|
@ -515,7 +574,7 @@ begin
|
|||
Close;
|
||||
Sql.Clear;
|
||||
Sql.Add('exec P_Trade_BSCloth_Judge ');
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString)));
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_1.fieldbyname('BCIOID').AsString)));
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
Open;
|
||||
|
|
@ -530,7 +589,7 @@ begin
|
|||
Close;
|
||||
Sql.Clear;
|
||||
Sql.Add('exec P_BS_Cloth_Out_Edit ');
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString)));
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_1.fieldbyname('BCIOID').AsString)));
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
// ShowMessage(sql.Text);
|
||||
|
|
@ -545,13 +604,12 @@ begin
|
|||
frmTradeTotallClothOutinput := TfrmTradeTotallClothOutinput.Create(Application);
|
||||
with frmTradeTotallClothOutinput do
|
||||
begin
|
||||
FBCId := Trim(CDS_Main.fieldbyname('BCIOID').AsString);
|
||||
FBCId := Trim(CDS_1.fieldbyname('BCIOID').AsString);
|
||||
|
||||
FstkName := Self.FstkName;
|
||||
FC_Degree := Self.FC_Degree;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
Self.InitGrid2();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -582,44 +640,54 @@ begin
|
|||
// LabVolume.Text := Trim(ADOQueryTemp.fieldbyname('LabelCaption').AsString);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.cxPageControl1Change(Sender: TObject);
|
||||
begin
|
||||
case cxPageControl1.ActivePageIndex of
|
||||
1:
|
||||
begin
|
||||
InitGrid1();
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.cxButton1Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton1Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.cxButton2Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton2Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.cxButton3Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton4Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.cxButton4Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton4Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.cxButton5Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmFrameDateSel1.cxButton5Click(Sender);
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -127,12 +127,12 @@ type
|
|||
procedure TV2DblClick(Sender: TObject);
|
||||
procedure cxPageControl1Change(Sender: TObject);
|
||||
private
|
||||
canshu1, FSTKName, canshu3, canshu4: string;
|
||||
procedure InitGrid();
|
||||
procedure InitGrid1();
|
||||
procedure InitGrid2();
|
||||
{ Private declarations }
|
||||
public
|
||||
FStkIdS, FstkName, FC_Degree, FC_Pack, canshu4: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
|
@ -173,8 +173,10 @@ end;
|
|||
procedure TfrmTradeClothTotalStkList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FC_Degree := Trim(Self.fParameters2);
|
||||
FC_Pack := Trim(Self.fParameters3);
|
||||
canshu1 := Trim(self.fParameters1);
|
||||
FSTKName := Trim(self.fParameters2);
|
||||
canshu3 := Trim(self.fParameters3);
|
||||
canshu4 := Trim(self.fParameters4);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalStkList.InitGrid();
|
||||
|
|
@ -203,11 +205,6 @@ begin
|
|||
SqlStr := SqlStr + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
|
||||
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
|
||||
|
||||
if FC_Degree <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(C_Degree,'''')=''' + Trim(FC_Degree) + '''';
|
||||
if FC_Pack <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(C_Pack,'''')=''' + Trim(FC_Pack) + '''';
|
||||
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
|
||||
|
|
@ -228,10 +225,6 @@ begin
|
|||
SqlStr := SqlStr + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
|
||||
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
|
||||
|
||||
if FC_Degree <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(C_Degree,'''')=''' + Trim(FC_Degree) + '''';
|
||||
if FC_Pack <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(C_Pack,'''')=''' + Trim(FC_Pack) + '''';
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"C_Code|C_Name|C_Color|C_ColorNo|C_Pattern|C_Degree|QtyUnit"}');
|
||||
|
|
|
|||
|
|
@ -329,7 +329,7 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel
|
|||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_2
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user