Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

调整查询

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-03-08 17:11:09 +08:00
parent 5cc9996a3c
commit a7de57e54e
9 changed files with 2115 additions and 1663 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

385
A02基础产品管理/U_ClothInfo.dfm
View File

@ -2,7 +2,7 @@ inherited frmClothInfo: TfrmClothInfo
Left = 117 Left = 117
Top = 154 Top = 154
Caption = #20135#21697#26723#26696 Caption = #20135#21697#26723#26696
ClientHeight = 845 ClientHeight = 581
ClientWidth = 1540 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -10,8 +10,9 @@ inherited frmClothInfo: TfrmClothInfo
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -46
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 884 ExplicitHeight = 620
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -177,17 +178,19 @@ inherited frmClothInfo: TfrmClothInfo
end end
object cxSplitter1: TcxSplitter [1] object cxSplitter1: TcxSplitter [1]
Left = 220 Left = 220
Top = 175 Top = 105
Width = 8 Width = 8
Height = 670 Height = 476
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
Control = Panel5 Control = Panel5
ExplicitTop = 175
ExplicitHeight = 670
end end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
Top = 60 Top = 60
Width = 1540 Width = 1540
Height = 115 Height = 45
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -207,185 +210,65 @@ inherited frmClothInfo: TfrmClothInfo
Height = 21 Height = 21
end end
object Label3: TLabel object Label3: TLabel
Left = 553 Left = 22
Top = 11 Top = 10
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
end end
object Label4: TLabel object Label4: TLabel
Left = 794 Left = 244
Top = 11 Top = 10
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #33394#24067#21517#31216 Caption = #33394#24067#21517#31216
end end
object Label9: TLabel object Label9: TLabel
Left = 794 Left = 688
Top = 81 Top = 10
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #20811#37325 Caption = #20811#37325
end end
object Label8: TLabel object Label8: TLabel
Left = 553 Left = 466
Top = 81 Top = 10
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20013#25991#25104#20221 Caption = #20013#25991#25104#20221
end 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 object C_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 623 Left = 90
Top = 7 Top = 6
TabOrder = 0 TabOrder = 0
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
Width = 150 Width = 150
end end
object C_Name: TcxTextEdit object C_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 864 Left = 312
Top = 7 Top = 6
TabOrder = 1 TabOrder = 1
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
Width = 150 Width = 150
end end
object C_GramWeight: TcxTextEdit object C_GramWeight: TcxTextEdit
Tag = 2 Tag = 2
Left = 864 Left = 724
Top = 77 Top = 6
TabOrder = 2 TabOrder = 2
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
Width = 150 Width = 150
end end
object C_Composition: TcxTextEdit object C_Composition: TcxTextEdit
Tag = 2 Tag = 2
Left = 623 Left = 534
Top = 77 Top = 6
TabOrder = 3 TabOrder = 3
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
Width = 150 Width = 150
end 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 end
object Panel2: TPanel [3] object Panel2: TPanel [3]
Left = 512 Left = 512
@ -400,18 +283,20 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Panel5: TPanel [4] object Panel5: TPanel [4]
Left = 0 Left = 0
Top = 175 Top = 105
Width = 220 Width = 220
Height = 670 Height = 476
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 2 TabOrder = 2
ExplicitTop = 175
ExplicitHeight = 670
object cxDBTreeList1: TcxDBTreeList object cxDBTreeList1: TcxDBTreeList
Left = 2 Left = 2
Top = 2 Top = 2
Width = 216 Width = 216
Height = 666 Height = 472
Align = alClient Align = alClient
Bands = < Bands = <
item item
@ -429,6 +314,7 @@ inherited frmClothInfo: TfrmClothInfo
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 0 TabOrder = 0
OnDblClick = cxDBTreeList1DblClick OnDblClick = cxDBTreeList1DblClick
ExplicitHeight = 666
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
Width = 210 Width = 210
@ -442,33 +328,38 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Panel3: TPanel [5] object Panel3: TPanel [5]
Left = 228 Left = 228
Top = 175 Top = 105
Width = 1312 Width = 1108
Height = 670 Height = 476
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = 'Panel3' Caption = 'Panel3'
TabOrder = 4 TabOrder = 4
ExplicitTop = 175
ExplicitWidth = 1312
ExplicitHeight = 670
object Panel7: TPanel object Panel7: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1308 Width = 1104
Height = 40 Height = 40
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1308
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1308 Width = 1104
Height = 40 Height = 40
Align = alClient Align = alClient
AutoSize = True AutoSize = True
ParentColor = True ParentColor = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1308
DesignSize = ( DesignSize = (
1308 1104
40) 40)
object Label14: TLabel object Label14: TLabel
Left = 21 Left = 21
@ -534,37 +425,42 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Panel9: TPanel object Panel9: TPanel
Left = 2 Left = 2
Top = 463 Top = 269
Width = 1308 Width = 1104
Height = 205 Height = 205
Align = alBottom Align = alBottom
Caption = 'Panel9' Caption = 'Panel9'
TabOrder = 1 TabOrder = 1
ExplicitTop = 463
ExplicitWidth = 1308
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1306 Width = 1102
Height = 203 Height = 203
Align = alClient Align = alClient
Caption = 'Panel9' Caption = 'Panel9'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1306
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1304 Width = 1100
Height = 201 Height = 201
Align = alClient Align = alClient
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1304
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 23 Top = 23
Width = 1300 Width = 1096
Height = 176 Height = 176
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1300
end end
end end
end end
@ -573,11 +469,13 @@ inherited frmClothInfo: TfrmClothInfo
Left = 10 Left = 10
Top = 42 Top = 42
Width = 1088 Width = 1088
Height = 421 Height = 227
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitHeight = 421
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -818,13 +716,46 @@ inherited frmClothInfo: TfrmClothInfo
GridView = Tv1 GridView = Tv1
end end
end end
object cxGrid2: TcxGrid object cxSplitter2: TcxSplitter
Left = 1106 Left = 2
Top = 42 Top = 42
Width = 8
Height = 227
HotZoneClassName = 'TcxMediaPlayer9Style'
ExplicitHeight = 421
end
object cxSplitter3: TcxSplitter
Left = 1098
Top = 42
Width = 8
Height = 227
AlignSplitter = salRight
ExplicitLeft = 1091
end
end
inherited loadProcess: TPanel
Left = 886
Top = 338
ExplicitLeft = 886
ExplicitTop = 338
end
inherited cxProgressBar2: TcxProgressBar
Left = 687
Top = 343
ExplicitLeft = 687
ExplicitTop = 343
ExplicitHeight = 29
end
object cxGrid2: TcxGrid [8]
Left = 1336
Top = 105
Width = 204 Width = 204
Height = 421 Height = 476
Align = alRight Align = alRight
TabOrder = 3 TabOrder = 8
ExplicitLeft = 1106
ExplicitTop = 42
ExplicitHeight = 421
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -867,93 +798,64 @@ inherited frmClothInfo: TfrmClothInfo
GridView = Tv2 GridView = Tv2
end end
end end
object cxSplitter2: TcxSplitter
Left = 2
Top = 42
Width = 8
Height = 421
HotZoneClassName = 'TcxMediaPlayer9Style'
end
object cxSplitter3: TcxSplitter
Left = 1098
Top = 42
Width = 8
Height = 421
AlignSplitter = salRight
Control = cxGrid2
end
end
inherited loadProcess: TPanel
Left = 886
Top = 338
ExplicitLeft = 886
ExplicitTop = 338
end
inherited cxProgressBar2: TcxProgressBar
Left = 687
Top = 343
ExplicitLeft = 687
ExplicitTop = 343
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
Left = 161 Left = 634
Top = 240 Top = 124
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
Left = 57 Left = 695
Top = 241 Top = 124
end end
object DS_Tree: TDataSource object DS_Tree: TDataSource
DataSet = CDS_Tree DataSet = CDS_Tree
Left = 155 Left = 756
Top = 195 Top = 307
end end
object ADOQueryTree: TADOQuery object ADOQueryTree: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 53 Left = 756
Top = 201 Top = 185
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 739 Left = 695
Top = 312 Top = 185
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
Parameters = <> Parameters = <>
Left = 837 Left = 756
Top = 269 Top = 124
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 672 Left = 756
Top = 512 Top = 246
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 883 Left = 634
Top = 491 Top = 307
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 653 Left = 817
Top = 289 Top = 124
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 784 Left = 878
Top = 528 Top = 185
end end
object RM1: TRMGridReport object RM1: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
@ -972,20 +874,20 @@ inherited frmClothInfo: TfrmClothInfo
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 265 Left = 878
Top = 305 Top = 368
ReportData = {} ReportData = {}
end end
object RMDB_Main: TRMDBDataSet object RMDB_Main: TRMDBDataSet
Visible = True Visible = True
DataSet = ADOQueryPrint DataSet = ADOQueryPrint
Left = 952 Left = 817
Top = 400 Top = 368
end end
object ODPat: TOpenDialog object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 302 Left = 878
Top = 284 Top = 307
end end
object IdFTP1: TIdFTP object IdFTP1: TIdFTP
ConnectTimeout = 0 ConnectTimeout = 0
@ -995,37 +897,37 @@ inherited frmClothInfo: TfrmClothInfo
ProxySettings.ProxyType = fpcmNone ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0 ProxySettings.Port = 0
ReadTimeout = 0 ReadTimeout = 0
Left = 374 Left = 817
Top = 367 Top = 307
end end
object SaveDialog1: TSaveDialog object SaveDialog1: TSaveDialog
Left = 394 Left = 634
Top = 289 Top = 429
end end
object DSCYNO: TDataSource object DSCYNO: TDataSource
DataSet = CDS_CYNO DataSet = CDS_CYNO
Left = 495 Left = 878
Top = 282 Top = 246
end end
object CDS_CYNO: TClientDataSet object CDS_CYNO: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 566 Left = 634
Top = 343 Top = 246
end end
object adoqueryPicture: TADOQuery object adoqueryPicture: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
Parameters = <> Parameters = <>
Left = 293 Left = 878
Top = 357 Top = 124
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
Left = 459 Left = 634
Top = 367 Top = 368
end end
object PM_1: TPopupMenu object PM_1: TPopupMenu
Left = 1160 Left = 695
Top = 352 Top = 368
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click
@ -1040,37 +942,38 @@ inherited frmClothInfo: TfrmClothInfo
end end
end end
object RMBarCodeObject1: TRMBarCodeObject object RMBarCodeObject1: TRMBarCodeObject
Left = 1044 Left = 756
Top = 408 Top = 368
end end
object CDS_Tree: TClientDataSet object CDS_Tree: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 96 Left = 695
Top = 200 Top = 246
end end
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 851 Left = 634
Top = 392 Top = 185
end end
object GPM_2: TcxGridPopupMenu object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 554 Left = 817
Top = 540 Top = 246
end end
object DS_2: TDataSource object DS_2: TDataSource
DataSet = ADO_2 DataSet = ADO_2
Left = 702 Left = 695
Top = 629 Top = 307
end end
object ADO_2: TADOQuery object ADO_2: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 355 Left = 817
Top = 569 Top = 185
end end
end end

45
A02基础产品管理/U_ClothInfo.pas
View File

@ -93,22 +93,6 @@ type
C_Name: TcxTextEdit; C_Name: TcxTextEdit;
C_GramWeight: TcxTextEdit; C_GramWeight: TcxTextEdit;
C_Composition: 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; ToolButton6: TToolButton;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
@ -144,17 +128,17 @@ type
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
DS_2: TDataSource; DS_2: TDataSource;
ADO_2: TADOQuery; ADO_2: TADOQuery;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxSplitter2: TcxSplitter; cxSplitter2: TcxSplitter;
cxSplitter3: TcxSplitter; cxSplitter3: TcxSplitter;
ToolButton7: TToolButton; ToolButton7: TToolButton;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
ToolButton8: TToolButton; ToolButton8: TToolButton;
ToolButton9: TToolButton; ToolButton9: TToolButton;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
@ -191,6 +175,7 @@ type
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
@ -308,7 +293,6 @@ begin
end; end;
end; end;
procedure TfrmClothInfo.InitTree(); procedure TfrmClothInfo.InitTree();
begin begin
try try
@ -331,15 +315,7 @@ begin
cxDBTreeList1.Items[0].Expand(false); cxDBTreeList1.Items[0].Expand(false);
end; end;
// if Self.cds_tree.Locate('CTName', '底布编号', []) then Self.cds_tree.Locate('CTName', '³ÉÆ·', []);
// 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', '成品', []);
end; end;
procedure TfrmClothInfo.InitGrid(); procedure TfrmClothInfo.InitGrid();
@ -483,7 +459,7 @@ end;
procedure TfrmClothInfo.TBRafreshClick(Sender: TObject); procedure TfrmClothInfo.TBRafreshClick(Sender: TObject);
begin begin
InitTree(); // InitTree();
InitGrid(); InitGrid();
InitImage(); InitImage();
InitGrid2(); InitGrid2();
@ -1139,6 +1115,11 @@ begin
end; end;
end; end;
procedure TfrmClothInfo.Tv1DblClick(Sender: TObject);
begin
ToolButton1.Click;
end;
procedure TfrmClothInfo.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmClothInfo.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
InitImage(); InitImage();

6
T02贸易汇总仓库/U_GetDllForm.pas
View File

@ -85,6 +85,7 @@ begin
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;
Parameters1 := '¹ÜÀí'; Parameters1 := '¹ÜÀí';
Parameters2 := 'óÒײ¼Æ¥';
DName := 'ADMIN'; DName := 'ADMIN';
DCode := 'ADMIN'; DCode := 'ADMIN';
end end
@ -169,7 +170,6 @@ begin
begin begin
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
FSTKName := 'óÒײ¼Æ¥';
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
mnewHandle := Handle; 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 // with TfrmTradeRRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate; WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle; mnewHandle := Handle;
end; end;
end; end;
@ -202,7 +200,6 @@ begin
begin begin
with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
FSTKName := 'óÒײ¼Æ¥';
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
mnewHandle := Handle; mnewHandle := Handle;
@ -213,7 +210,6 @@ begin
begin begin
with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
FSTKName := 'óÒײ¼Æ¥';
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
mnewHandle := Handle; mnewHandle := Handle;

295
T02贸易汇总仓库/U_TradeClothTotalInList.dfm
View File

@ -2,20 +2,20 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Left = 165 Left = 165
Top = 111 Top = 111
Caption = #38754#26009#20837#24211#21015#34920 Caption = #38754#26009#20837#24211#21015#34920
ClientHeight = 554 ClientHeight = 606
ClientWidth = 1540 ClientWidth = 1041
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
ExplicitWidth = 1556 ExplicitWidth = 1057
ExplicitHeight = 593 ExplicitHeight = 645
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1041
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -26,7 +26,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 2
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -52,16 +52,8 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
ImageIndex = 9 ImageIndex = 9
OnClick = TBAddClick OnClick = TBAddClick
end end
object btn1: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #26126#32454#20837#24211
ImageIndex = 9
OnClick = btn1Click
end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 316 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -69,7 +61,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBEditClick OnClick = TBEditClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 387 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -77,7 +69,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 458 Left = 355
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -85,7 +77,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 529 Left = 426
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -93,7 +85,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 600 Left = 497
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -101,7 +93,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 671 Left = 568
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -109,25 +101,35 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 774 Left = 671
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object btn1: TToolButton
Left = 742
Top = 0
AutoSize = True
Caption = #26126#32454#20837#24211
ImageIndex = 9
Visible = False
OnClick = btn1Click
end
end end
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1540 Width = 1041
Height = 119 Height = 119
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ParentBackground = False ParentBackground = False
ParentColor = True ParentColor = True
TabOrder = 4 TabOrder = 3
ExplicitWidth = 1540
object Label3: TLabel object Label3: TLabel
Left = 1080 Left = 1080
Top = 47 Top = 47
@ -269,7 +271,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1536 Width = 1037
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -355,14 +357,216 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Width = 150 Width = 150
end end
end end
object cxGrid1: TcxGrid [2] inherited loadProcess: TPanel
Left = 801
Top = 360
ExplicitLeft = 801
ExplicitTop = 360
end
inherited cxProgressBar2: TcxProgressBar
Left = 793
Top = 296
ExplicitLeft = 793
ExplicitTop = 296
ExplicitHeight = 29
end
object cxPageControl1: TcxPageControl [4]
Left = 0 Left = 0
Top = 149 Top = 149
Width = 1540 Width = 1041
Height = 405 Height = 457
Align = alClient
TabOrder = 4
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
ExplicitTop = 89
ExplicitWidth = 1404
ExplicitHeight = 426
ClientRectBottom = 457
ClientRectRight = 1041
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0
ExplicitWidth = 1404
ExplicitHeight = 394
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1041
Height = 425
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 0
ExplicitWidth = 1404
ExplicitHeight = 394
object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn16
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
Column = cxGridDBColumn15
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.IndicatorWidth = 40
object TV2Column1: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object cxGridDBColumn9: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'StkPieceint'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 98
end
object cxGridDBColumn16: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'StkQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object cxGridDBColumn24: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn26: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn28: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn29: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn17: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454
ImageIndex = 1
ExplicitWidth = 1540
ExplicitHeight = 184
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1041
Height = 425
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitTop = 8
ExplicitWidth = 1540
ExplicitHeight = 241
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -903,18 +1107,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
GridView = Tv1 GridView = Tv1
end end
end end
inherited loadProcess: TPanel
Left = 801
Top = 360
ExplicitLeft = 801
ExplicitTop = 360
end end
inherited cxProgressBar2: TcxProgressBar
Left = 793
Top = 296
ExplicitLeft = 793
ExplicitTop = 296
ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
@ -975,4 +1168,28 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = N2Click OnClick = N2Click
end end
end end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 512
Top = 320
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 576
Top = 320
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 640
Top = 320
end
object ADO_2: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 720
Top = 317
end
end end

225
T02贸易汇总仓库/U_TradeClothTotalInList.pas
View File

@ -44,72 +44,19 @@ type
FromCoName: TcxTextEdit; FromCoName: TcxTextEdit;
BCIONo: TcxTextEdit; BCIONo: TcxTextEdit;
C_spec: 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; Label10: TLabel;
BatchNo: TcxTextEdit; BatchNo: TcxTextEdit;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Label6: TLabel; Label6: TLabel;
FromOrdNo: TcxTextEdit; FromOrdNo: TcxTextEdit;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
IOType: TcxComboBox; IOType: TcxComboBox;
Tv1Column22: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
GC_Name: TcxTextEdit; GC_Name: TcxTextEdit;
CraftCode: TcxTextEdit; CraftCode: TcxTextEdit;
Tv1Column27: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn;
Tv1Column32: TcxGridDBColumn;
Tv1Column33: TcxGridDBColumn;
Tv1Column34: TcxGridDBColumn;
Tv1Column35: TcxGridDBColumn;
Tv1Column36: TcxGridDBColumn;
Tv1Column37: TcxGridDBColumn;
Label7: TLabel; Label7: TLabel;
FtyPCId: TcxTextEdit; FtyPCId: TcxTextEdit;
Label9: TLabel; Label9: TLabel;
@ -117,10 +64,83 @@ type
Label11: TLabel; Label11: TLabel;
BCIOID: TcxTextEdit; BCIOID: TcxTextEdit;
btn1: TToolButton; 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; Tv1Column28: TcxGridDBColumn;
Tv1Column31: TcxGridDBColumn; Tv1Column31: TcxGridDBColumn;
Tv1Column38: TcxGridDBColumn; Tv1Column38: TcxGridDBColumn;
Tv1Column39: TcxGridDBColumn; Tv1Column39: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -150,13 +170,15 @@ type
procedure BCIONoKeyPress(Sender: TObject; var Key: Char); procedure BCIONoKeyPress(Sender: TObject; var Key: Char);
procedure IOTypePropertiesChange(Sender: TObject); procedure IOTypePropertiesChange(Sender: TObject);
procedure btn1Click(Sender: TObject); procedure btn1Click(Sender: TObject);
procedure TV2DblClick(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
private private
canshu1, canshu2, canshu3, canshu4: string; canshu1, FSTKName, canshu3, canshu4: string;
procedure InitGrid(); procedure InitGrid1();
procedure InitGrid2();
procedure setStatus(); procedure setStatus();
{ Private declarations } { Private declarations }
public public
FSTKName: string;
{ Public declarations } { Public declarations }
end; end;
@ -182,17 +204,16 @@ procedure TfrmTradeClothTotalInList.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 30; frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 3;
canshu1 := Trim(self.fParameters1); canshu1 := Trim(self.fParameters1);
canshu2 := Trim(self.fParameters2); FSTKName := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3); canshu3 := Trim(self.fParameters3);
canshu4 := Trim(self.fParameters4); canshu4 := Trim(self.fParameters4);
end; end;
procedure TfrmTradeClothTotalInList.InitGrid(); procedure TfrmTradeClothTotalInList.InitGrid1();
var var
SqlStr: string; SqlStr, WSqlStr: string;
begin begin
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece) '; SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece) ';
@ -203,6 +224,10 @@ begin
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''''; SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' '; SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' ';
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
if TRIM(WSqlStr) <> '' then
SqlStr := SqlStr + ' and ' + WSqlStr;
if Trim(canshu4) <> '' then if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + ''''; SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
@ -211,6 +236,24 @@ begin
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end; 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); procedure TfrmTradeClothTotalInList.IOTypePropertiesChange(Sender: TObject);
begin begin
TBFind.Click; TBFind.Click;
@ -219,12 +262,14 @@ end;
procedure TfrmTradeClothTotalInList.TBRafreshClick(Sender: TObject); procedure TfrmTradeClothTotalInList.TBRafreshClick(Sender: TObject);
begin begin
frmFrameDateSel1.BegDate.SetFocus; frmFrameDateSel1.BegDate.SetFocus;
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.ToolButton1Click(Sender: TObject); procedure TfrmTradeClothTotalInList.ToolButton1Click(Sender: TObject);
begin begin
WriteCxGrid(Self.Caption, Tv1, 'óÒ×»ã×ֿܲâ');
WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
end; end;
procedure TfrmTradeClothTotalInList.ToolButton2Click(Sender: TObject); procedure TfrmTradeClothTotalInList.ToolButton2Click(Sender: TObject);
@ -232,6 +277,10 @@ var
MFiltration: string; MFiltration: string;
MPrintJson: string; MPrintJson: string;
begin begin
if cxPageControl1.ActivePageIndex <> 1 then
Exit;
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
if CDS_1.Locate('SSel', True, []) = False then if CDS_1.Locate('SSel', True, []) = False then
@ -252,6 +301,8 @@ end;
procedure TfrmTradeClothTotalInList.ToolButton3Click(Sender: TObject); procedure TfrmTradeClothTotalInList.ToolButton3Click(Sender: TObject);
begin begin
if cxPageControl1.ActivePageIndex <> 1 then
Exit;
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
try try
@ -271,10 +322,15 @@ begin
end; end;
end; end;
procedure TfrmTradeClothTotalInList.TV2DblClick(Sender: TObject);
begin
cxPageControl1.ActivePageIndex := 1;
end;
procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.btn1Click(Sender: TObject); procedure TfrmTradeClothTotalInList.btn1Click(Sender: TObject);
@ -288,7 +344,7 @@ begin
FSTKName := Self.FSTKName; FSTKName := Self.FSTKName;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitGrid(); Self.InitGrid2();
end; end;
end; end;
finally finally
@ -324,9 +380,10 @@ begin
inherited; inherited;
mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''Èë¿â'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' '; mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''Èë¿â'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' ';
SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql); SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql);
ReadCxGrid(Self.Caption, Tv1, 'óÒ×»ã×ֿܲâ'); ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
setStatus(); setStatus();
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.TBExportClick(Sender: TObject); procedure TfrmTradeClothTotalInList.TBExportClick(Sender: TObject);
@ -357,6 +414,8 @@ var
MBCIOID, MBCIONO: string; MBCIOID, MBCIONO: string;
begin begin
if cxPageControl1.ActivePageIndex <> 1 then
Exit;
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
if CDS_1.Locate('SSel', True, []) = False then if CDS_1.Locate('SSel', True, []) = False then
@ -408,11 +467,11 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
InitGrid(); InitGrid2();
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
InitGrid(); InitGrid2();
end; end;
end; end;
@ -428,7 +487,7 @@ begin
FSTKName := Self.FSTKName; FSTKName := Self.FSTKName;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitGrid(); Self.InitGrid2();
end; end;
end; end;
finally finally
@ -438,6 +497,8 @@ end;
procedure TfrmTradeClothTotalInList.TBEditClick(Sender: TObject); procedure TfrmTradeClothTotalInList.TBEditClick(Sender: TObject);
begin begin
if cxPageControl1.ActivePageIndex <> 1 then
Exit;
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
with ADOQueryTemp do with ADOQueryTemp do
@ -479,7 +540,7 @@ begin
FSTKName := Self.FSTKName; FSTKName := Self.FSTKName;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitGrid(); Self.InitGrid2();
end; end;
end; end;
finally finally
@ -511,40 +572,50 @@ procedure TfrmTradeClothTotalInList.cxButton1Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton1Click(Sender); frmFrameDateSel1.cxButton1Click(Sender);
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.cxButton2Click(Sender: TObject); procedure TfrmTradeClothTotalInList.cxButton2Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton2Click(Sender); frmFrameDateSel1.cxButton2Click(Sender);
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.cxButton3Click(Sender: TObject); procedure TfrmTradeClothTotalInList.cxButton3Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton3Click(Sender); frmFrameDateSel1.cxButton3Click(Sender);
InitGrid() InitGrid2()
end; end;
procedure TfrmTradeClothTotalInList.cxButton4Click(Sender: TObject); procedure TfrmTradeClothTotalInList.cxButton4Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton4Click(Sender); frmFrameDateSel1.cxButton4Click(Sender);
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.cxButton5Click(Sender: TObject); procedure TfrmTradeClothTotalInList.cxButton5Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton5Click(Sender); frmFrameDateSel1.cxButton5Click(Sender);
InitGrid(); InitGrid2();
end;
procedure TfrmTradeClothTotalInList.cxPageControl1Change(Sender: TObject);
begin
case cxPageControl1.ActivePageIndex of
1:
begin
InitGrid1();
end;
end;
end; end;
procedure TfrmTradeClothTotalInList.cxTabControl1Change(Sender: TObject); procedure TfrmTradeClothTotalInList.cxTabControl1Change(Sender: TObject);
begin begin
InitGrid(); InitGrid2();
end; end;
end. end.

335
T02贸易汇总仓库/U_TradeClothTotalOutList.dfm
View File

@ -2,22 +2,22 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 65 Left = 65
Top = 98 Top = 98
Caption = #36152#26131#24067#21305#20986#24211#21015#34920 Caption = #36152#26131#24067#21305#20986#24211#21015#34920
ClientHeight = 564 ClientHeight = 490
ClientWidth = 1597 ClientWidth = 1281
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1613 ExplicitWidth = 1297
ExplicitHeight = 603 ExplicitHeight = 529
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1597 Width = 1281
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -28,7 +28,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 2
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -43,7 +43,6 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
ImageIndex = 0 ImageIndex = 0
Visible = False
OnClick = TBFindClick OnClick = TBFindClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
@ -82,12 +81,12 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 458 Left = 458
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #30721#21333#25171#21360
ImageIndex = 21 ImageIndex = 21
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 529 Left = 561
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -95,7 +94,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 600 Left = 632
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -103,7 +102,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 671 Left = 703
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -111,7 +110,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 774 Left = 806
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -122,14 +121,15 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1597 Width = 1281
Height = 118 Height = 118
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ParentBackground = False ParentBackground = False
ParentColor = True ParentColor = True
TabOrder = 4 TabOrder = 3
ExplicitWidth = 1597
object Label3: TLabel object Label3: TLabel
Left = 261 Left = 261
Top = 46 Top = 46
@ -266,7 +266,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1593 Width = 1277
Height = 36 Height = 36
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -277,7 +277,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1593 ExplicitWidth = 1593
DesignSize = ( DesignSize = (
1593 1277
36) 36)
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -327,18 +327,228 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Width = 150 Width = 150
end end
end end
object cxGrid1: TcxGrid [2] inherited loadProcess: TPanel
Left = 888
Top = 296
ExplicitLeft = 888
ExplicitTop = 296
end
inherited cxProgressBar2: TcxProgressBar
Left = 721
Top = 398
ExplicitLeft = 721
ExplicitTop = 398
ExplicitHeight = 29
end
object cxPageControl1: TcxPageControl [4]
Left = 0 Left = 0
Top = 148 Top = 148
Width = 1597 Width = 1281
Height = 416 Height = 342
Align = alClient
TabOrder = 4
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
ExplicitTop = 89
ExplicitWidth = 1404
ExplicitHeight = 426
ClientRectBottom = 342
ClientRectRight = 1281
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0
ExplicitWidth = 1404
ExplicitHeight = 394
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1281
Height = 310
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 0
ExplicitWidth = 1404
ExplicitHeight = 394
object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn16
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
Column = cxGridDBColumn15
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.IndicatorWidth = 40
object TV2Column1: TcxGridDBColumn
Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BCIONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object TV2Column2: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn9: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Pieceint'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 98
end
object cxGridDBColumn16: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object cxGridDBColumn24: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn26: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn28: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn29: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object cxGridDBColumn17: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454
ImageIndex = 1
ExplicitWidth = 1597
ExplicitHeight = 255
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1281
Height = 310
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitTop = 8
ExplicitWidth = 1597
ExplicitHeight = 229
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -860,69 +1070,58 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
GridView = Tv1 GridView = Tv1
end end
end end
inherited loadProcess: TPanel
Left = 888
Top = 296
ExplicitLeft = 888
ExplicitTop = 296
end end
inherited cxProgressBar2: TcxProgressBar
Left = 721
Top = 398
ExplicitLeft = 721
ExplicitTop = 398
ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 260 Left = 504
Top = 246 Top = 170
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 92 Left = 565
Top = 230 Top = 170
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <> Parameters = <>
Left = 560 Left = 626
Top = 300 Top = 170
end end
object ADOQueryMain: TADOQuery object ADO_1: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 821 Left = 687
Top = 329 Top = 170
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 707 Left = 504
Top = 306 Top = 231
end end
object DataSource1: TDataSource object DS_1: TDataSource
DataSet = CDS_Main DataSet = CDS_1
Left = 792 Left = 565
Top = 234 Top = 292
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 425 Left = 748
Top = 254 Top = 231
end end
object CDS_Main: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 626 Left = 687
Top = 237 Top = 231
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 524 Left = 687
Top = 412 Top = 292
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click
@ -939,7 +1138,31 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <> Parameters = <>
Left = 655 Left = 748
Top = 444 Top = 170
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 504
Top = 292
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 626
Top = 231
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 626
Top = 292
end
object ADO_2: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 565
Top = 231
end end
end end

328
T02贸易汇总仓库/U_TradeClothTotalOutList.pas
View File

@ -25,30 +25,17 @@ type
TBClose: TToolButton; TBClose: TToolButton;
Panel1: TPanel; Panel1: TPanel;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery; ADO_1: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DataSource1: TDataSource; DS_1: TDataSource;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
CDS_Main: TClientDataSet; CDS_1: TClientDataSet;
TBDel: TToolButton; TBDel: TToolButton;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
TBAdd: TToolButton; TBAdd: TToolButton;
TBEdit: 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; Label3: TLabel;
Label5: TLabel; Label5: TLabel;
Label8: TLabel; Label8: TLabel;
@ -56,36 +43,10 @@ type
C_NAME: TcxTextEdit; C_NAME: TcxTextEdit;
BCIONO: TcxTextEdit; BCIONO: TcxTextEdit;
C_spec: 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; ToolButton1: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
N3: TMenuItem; N3: TMenuItem;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
Label9: TLabel; Label9: TLabel;
Label6: TLabel; Label6: TLabel;
@ -94,36 +55,95 @@ type
ToCoName: TcxTextEdit; ToCoName: TcxTextEdit;
ToOrdNo: TcxTextEdit; ToOrdNo: TcxTextEdit;
FromOrdNo: TcxTextEdit; FromOrdNo: TcxTextEdit;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
IOType: TcxComboBox; IOType: TcxComboBox;
Tv1Column22: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
GC_Name: TcxTextEdit; GC_Name: TcxTextEdit;
CraftCode: 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; Tv1Column28: TcxGridDBColumn;
Tv1Column29: 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; Tv1Column30: TcxGridDBColumn;
Tv1Column31: 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; Tv1Column32: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Tv1Column33: TcxGridDBColumn; Tv1Column33: TcxGridDBColumn;
Tv1Column34: TcxGridDBColumn; Tv1Column34: TcxGridDBColumn;
ADOQueryPrint: TADOQuery; cxGrid1Level1: TcxGridLevel;
Tv1Column35: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
ToolButton4: TToolButton; TV2Column2: TcxGridDBColumn;
GPM_2: TcxGridPopupMenu;
CDS_2: TClientDataSet;
DS_2: TDataSource;
ADO_2: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject); procedure TBExportClick(Sender: TObject);
@ -151,12 +171,14 @@ type
procedure BCIONOKeyPress(Sender: TObject; var Key: Char); procedure BCIONOKeyPress(Sender: TObject; var Key: Char);
procedure IOTypePropertiesChange(Sender: TObject); procedure IOTypePropertiesChange(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure TV2DblClick(Sender: TObject);
private private
canshu1, canshu2, canshu4: string; canshu1, FSTKName, canshu3, canshu4: string;
procedure InitGrid(); procedure InitGrid1();
procedure InitGrid2();
{ Private declarations } { Private declarations }
public public
FFSPID, FstkName, FC_Degree: string;
{ Public declarations } { Public declarations }
end; end;
@ -171,6 +193,28 @@ uses
{$R *.dfm} {$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); procedure TfrmTradeClothTotalOutList.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
inherited; inherited;
@ -180,16 +224,17 @@ end;
procedure TfrmTradeClothTotalOutList.FormCreate(Sender: TObject); procedure TfrmTradeClothTotalOutList.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
canshu1 := Trim(DParameters1); canshu1 := Trim(self.fParameters1);
canshu2 := Trim(DParameters2); FSTKName := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3);
canshu4 := Trim(self.fParameters4); canshu4 := Trim(self.fParameters4);
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90; frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
end; end;
procedure TfrmTradeClothTotalOutList.InitGrid(); procedure TfrmTradeClothTotalOutList.InitGrid1();
var var
SqlStr: string; SqlStr, WSqlStr: string;
begin begin
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)'; 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 A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''; SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
SqlStr := SqlStr + ' and ioFlag=''出库'' '; SqlStr := SqlStr + ' and ioFlag=''出库'' ';
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
if TRIM(WSqlStr) <> '' then
SqlStr := SqlStr + ' and ' + WSqlStr;
if Trim(canshu4) <> '' then if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + ''''; 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; end;
procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject); procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject);
@ -214,27 +262,30 @@ end;
procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject);
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalOutList.ToolButton1Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.ToolButton1Click(Sender: TObject);
begin begin
WriteCxGrid(trim(Self.Caption), Tv1, '贸易汇总仓库'); WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库');
WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易汇总仓库');
end; end;
procedure TfrmTradeClothTotalOutList.ToolButton2Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.ToolButton2Click(Sender: TObject);
var var
MBCIOID: string; MBCIOID: string;
begin 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 try
frmLabelPrint := TfrmLabelPrint.Create(Application); frmLabelPrint := TfrmLabelPrint.Create(Application);
@ -245,18 +296,18 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with ADOQueryCmd do // with ADOQueryCmd do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add('update BS_Cloth_IO '); // sql.Add('update BS_Cloth_IO ');
sql.Add(' set PRTer=' + quotedstr(DName)); // sql.Add(' set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=isnull(PRTCount,0)+1'); // sql.Add(', PRTCount=isnull(PRTCount,0)+1');
sql.Add(', PRTDate=getdate()'); // 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 )'); // sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(MBCIOID) + ','','') SP where SP.RTValue=BS_Cloth_IO.BCIOID )');
ExecSQL; // ExecSQL;
end; // end;
Self.InitGrid(); // Self.InitGrid2();
end; end;
end; end;
finally finally
@ -266,13 +317,13 @@ end;
procedure TfrmTradeClothTotalOutList.ToolButton3Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.ToolButton3Click(Sender: TObject);
begin begin
if CDS_Main.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
try try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do with frmAttachmentUpload do
begin begin
fkeyNO := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString); fkeyNO := Trim(Self.CDS_1.fieldbyname('BCIOID').AsString);
fType := '贸易汇总布'; fType := '贸易汇总布';
FEditAuthority := True; FEditAuthority := True;
if ShowModal = 1 then if ShowModal = 1 then
@ -287,7 +338,9 @@ end;
procedure TfrmTradeClothTotalOutList.ToolButton4Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.ToolButton4Click(Sender: TObject);
begin begin
if CDS_Main.Locate('SSel', True, []) = False then if cxPageControl1.ActivePageIndex <> 1 then
Exit;
if CDS_1.Locate('SSel', True, []) = False then
begin begin
Application.MessageBox('没有选择数据!', '提示', 0); Application.MessageBox('没有选择数据!', '提示', 0);
Exit; Exit;
@ -297,7 +350,7 @@ begin
with frmLabelPrint do with frmLabelPrint do
begin begin
FLMType := 'TradeLabVolume1'; FLMType := 'TradeLabVolume1';
FFiltration1 := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]); FFiltration1 := Trim(SelCDSKey(self.CDS_1, ['BCIOID'])[0]);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -308,6 +361,11 @@ begin
end; end;
end; end;
procedure TfrmTradeClothTotalOutList.TV2DblClick(Sender: TObject);
begin
cxPageControl1.ActivePageIndex := 1;
end;
procedure TfrmTradeClothTotalOutList.BCIOIDPropertiesChange(Sender: TObject); procedure TfrmTradeClothTotalOutList.BCIOIDPropertiesChange(Sender: TObject);
begin begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
@ -318,15 +376,7 @@ end;
procedure TfrmTradeClothTotalOutList.BCIONOKeyPress(Sender: TObject; var Key: Char); procedure TfrmTradeClothTotalOutList.BCIONOKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
InitGrid(); InitGrid2();
end;
procedure TfrmTradeClothTotalOutList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end; end;
procedure TfrmTradeClothTotalOutList.TBCloseClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBCloseClick(Sender: TObject);
@ -342,24 +392,30 @@ begin
inherited; inherited;
mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''出库'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' '; mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''出库'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' ';
SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql); 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; end;
procedure TfrmTradeClothTotalOutList.TBExportClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if CDS_1.IsEmpty then
exit; exit;
TcxGridToExcel(FstkName + '出库列表', cxGrid1); TcxGridToExcel(FstkName + '出库列表', cxGrid1);
end; end;
procedure TfrmTradeClothTotalOutList.TBFindClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active then case cxPageControl1.ActivePageIndex of
0:
begin begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); CDSDataFilter(ADO_2, CDS_2, Tv2, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": "C_name|C_Color|C_ColorNo"}') + '" }');
SCreateCDS(ADOQueryMain, CDS_Main); end;
SInitCDSData(ADOQueryMain, CDS_Main); 1:
begin
CDSDataFilter(ADO_1, CDS_1, Tv1, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}') + '" }');
end;
end; end;
end; end;
@ -380,27 +436,29 @@ end;
procedure TfrmTradeClothTotalOutList.N1Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.N1Click(Sender: TObject);
begin begin
SelOKNo(CDS_Main, True); SelOKNo(CDS_1, True);
end; end;
procedure TfrmTradeClothTotalOutList.N2Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.N2Click(Sender: TObject);
begin begin
SelOKNo(CDS_Main, False); SelOKNo(CDS_1, False);
end; end;
procedure TfrmTradeClothTotalOutList.N3Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.N3Click(Sender: TObject);
begin 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; end;
procedure TfrmTradeClothTotalOutList.TBDelClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBDelClick(Sender: TObject);
var var
MBCIOID, MBCIONO: string; MBCIOID, MBCIONO: string;
begin begin
if CDS_Main.IsEmpty then if cxPageControl1.ActivePageIndex <> 1 then
Exit;
if CDS_1.IsEmpty then
Exit; Exit;
if CDS_Main.Locate('SSel', True, []) = False then if CDS_1.Locate('SSel', True, []) = False then
begin begin
Application.MessageBox('没有选择数据!', '提示', 0); Application.MessageBox('没有选择数据!', '提示', 0);
Exit; Exit;
@ -408,8 +466,8 @@ begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit; Exit;
MBCIOID := SelCDSKey(CDS_Main, ['BCIOID'])[0]; MBCIOID := SelCDSKey(CDS_1, ['BCIOID'])[0];
MBCIONO := SelCDSKey(CDS_Main, ['BCIONO'])[0]; MBCIONO := SelCDSKey(CDS_1, ['BCIONO'])[0];
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
@ -463,11 +521,11 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
InitGrid(); InitGrid2();
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid(); InitGrid2();
end; end;
end; end;
@ -480,10 +538,9 @@ begin
begin begin
FBCId := ''; FBCId := '';
FstkName := Self.FstkName; FstkName := Self.FstkName;
FC_Degree := Self.FC_Degree;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitGrid(); Self.InitGrid2();
end; end;
end; end;
finally finally
@ -493,14 +550,16 @@ end;
procedure TfrmTradeClothTotalOutList.TBEditClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBEditClick(Sender: TObject);
begin begin
if CDS_Main.IsEmpty then if cxPageControl1.ActivePageIndex <> 1 then
Exit;
if CDS_1.IsEmpty then
Exit; Exit;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('exec P_Fin_Flow_Judge '); 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(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open; Open;
@ -515,7 +574,7 @@ begin
Close; Close;
Sql.Clear; Sql.Clear;
Sql.Add('exec P_Trade_BSCloth_Judge '); 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(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open; Open;
@ -530,7 +589,7 @@ begin
Close; Close;
Sql.Clear; Sql.Clear;
Sql.Add('exec P_BS_Cloth_Out_Edit '); 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(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
@ -545,13 +604,12 @@ begin
frmTradeTotallClothOutinput := TfrmTradeTotallClothOutinput.Create(Application); frmTradeTotallClothOutinput := TfrmTradeTotallClothOutinput.Create(Application);
with frmTradeTotallClothOutinput do with frmTradeTotallClothOutinput do
begin begin
FBCId := Trim(CDS_Main.fieldbyname('BCIOID').AsString); FBCId := Trim(CDS_1.fieldbyname('BCIOID').AsString);
FstkName := Self.FstkName; FstkName := Self.FstkName;
FC_Degree := Self.FC_Degree;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitGrid(); Self.InitGrid2();
end; end;
end; end;
finally finally
@ -582,44 +640,54 @@ begin
// LabVolume.Text := Trim(ADOQueryTemp.fieldbyname('LabelCaption').AsString); // LabVolume.Text := Trim(ADOQueryTemp.fieldbyname('LabelCaption').AsString);
end; end;
procedure TfrmTradeClothTotalOutList.cxPageControl1Change(Sender: TObject);
begin
case cxPageControl1.ActivePageIndex of
1:
begin
InitGrid1();
end;
end;
end;
procedure TfrmTradeClothTotalOutList.cxButton1Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.cxButton1Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton1Click(Sender); frmFrameDateSel1.cxButton1Click(Sender);
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalOutList.cxButton2Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.cxButton2Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton2Click(Sender); frmFrameDateSel1.cxButton2Click(Sender);
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalOutList.cxButton3Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.cxButton3Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton4Click(Sender); frmFrameDateSel1.cxButton4Click(Sender);
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalOutList.cxButton4Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.cxButton4Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton4Click(Sender); frmFrameDateSel1.cxButton4Click(Sender);
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalOutList.cxButton5Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.cxButton5Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton5Click(Sender); frmFrameDateSel1.cxButton5Click(Sender);
InitGrid(); InitGrid2();
end; end;
procedure TfrmTradeClothTotalOutList.cxTabControl1Change(Sender: TObject); procedure TfrmTradeClothTotalOutList.cxTabControl1Change(Sender: TObject);
begin begin
InitGrid(); InitGrid2();
end; end;
end. end.

17
T02贸易汇总仓库/U_TradeClothTotalStkList.pas
View File

@ -127,12 +127,12 @@ type
procedure TV2DblClick(Sender: TObject); procedure TV2DblClick(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject); procedure cxPageControl1Change(Sender: TObject);
private private
canshu1, FSTKName, canshu3, canshu4: string;
procedure InitGrid(); procedure InitGrid();
procedure InitGrid1(); procedure InitGrid1();
procedure InitGrid2(); procedure InitGrid2();
{ Private declarations } { Private declarations }
public public
FStkIdS, FstkName, FC_Degree, FC_Pack, canshu4: string;
{ Public declarations } { Public declarations }
end; end;
@ -173,8 +173,10 @@ end;
procedure TfrmTradeClothTotalStkList.FormCreate(Sender: TObject); procedure TfrmTradeClothTotalStkList.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
FC_Degree := Trim(Self.fParameters2); canshu1 := Trim(self.fParameters1);
FC_Pack := Trim(Self.fParameters3); FSTKName := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3);
canshu4 := Trim(self.fParameters4);
end; end;
procedure TfrmTradeClothTotalStkList.InitGrid(); 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 + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''; 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 if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + ''''; 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 + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''; 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 if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + ''''; 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"}'); WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"C_Code|C_Name|C_Color|C_ColorNo|C_Pattern|C_Degree|QtyUnit"}');

2
T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm
View File

@ -329,7 +329,7 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item