diff --git a/A00通用窗体/U_ClothInfoSel.dfm b/A00通用窗体/U_ClothInfoSel.dfm
index 7300bc6..e17d58a 100644
--- a/A00通用窗体/U_ClothInfoSel.dfm
+++ b/A00通用窗体/U_ClothInfoSel.dfm
@@ -2,22 +2,22 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 372
Top = 106
Caption = #20135#21697#20449#24687#36873#25321
- ClientHeight = 611
- ClientWidth = 1519
+ ClientHeight = 813
+ ClientWidth = 1807
Font.Charset = GB2312_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poScreenCenter
OnClose = FormClose
- ExplicitWidth = 1535
- ExplicitHeight = 650
+ ExplicitWidth = 1823
+ ExplicitHeight = 852
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
- Width = 1519
+ Width = 1807
Height = 30
AutoSize = True
ButtonHeight = 30
@@ -28,6 +28,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
List = True
ShowCaptions = True
TabOrder = 0
+ ExplicitWidth = 1519
object ToolButton1: TToolButton
Left = 0
Top = 0
@@ -57,7 +58,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 0
Top = 119
Width = 216
- Height = 492
+ Height = 694
Align = alLeft
Bands = <
item
@@ -75,6 +76,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 1
OnDblClick = cxDBTreeList1DblClick
+ ExplicitHeight = 492
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName'
Width = 210
@@ -88,32 +90,38 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object Panel3: TPanel [2]
Left = 216
Top = 119
- Width = 1303
- Height = 492
+ Width = 1591
+ Height = 694
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel3'
TabOrder = 2
+ ExplicitLeft = 530
+ ExplicitTop = 120
+ ExplicitWidth = 1303
+ ExplicitHeight = 492
object Panel7: TPanel
Left = 2
Top = 2
- Width = 1299
+ Width = 1587
Height = 40
Align = alTop
BevelOuter = bvNone
TabOrder = 0
+ ExplicitWidth = 1299
object Panel4: TPanel
Left = 0
Top = 0
- Width = 1299
+ Width = 1587
Height = 40
Align = alClient
AutoSize = True
ParentColor = True
TabOrder = 0
+ ExplicitWidth = 1299
DesignSize = (
- 1299
+ 1587
40)
object Label14: TLabel
Left = 19
@@ -193,7 +201,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 661
Top = 2
ParentColor = True
- ParentFont = False
TabOrder = 3
OnKeyPress = cxtxtdtscanKeyPress
Width = 172
@@ -203,16 +210,18 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object cxGrid1: TcxGrid
Left = 2
Top = 42
- Width = 982
- Height = 448
+ Width = 919
+ Height = 650
Align = alClient
TabOrder = 1
+ ExplicitTop = 40
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
+ OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -246,7 +255,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 66
+ Width = 124
end
object v1Column9: TcxGridDBColumn
Caption = #20013#25991#21697#21517
@@ -459,10 +468,10 @@ inherited frmClothInfoSel: TfrmClothInfoSel
end
end
object GroupBox1: TGroupBox
- Left = 984
+ Left = 1272
Top = 42
Width = 317
- Height = 448
+ Height = 650
Align = alRight
Caption = #20505#36873#21462
Color = clWhite
@@ -470,13 +479,16 @@ inherited frmClothInfoSel: TfrmClothInfoSel
ParentColor = False
TabOrder = 2
Visible = False
+ ExplicitLeft = 984
+ ExplicitHeight = 448
object cxGrid2: TcxGrid
Left = 2
Top = 23
Width = 313
- Height = 423
+ Height = 625
Align = alClient
TabOrder = 0
+ ExplicitHeight = 423
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -532,17 +544,91 @@ inherited frmClothInfoSel: TfrmClothInfoSel
end
end
end
+ object cxGrid3: TcxGrid
+ Left = 921
+ Top = 42
+ Width = 351
+ Height = 650
+ Align = alRight
+ TabOrder = 3
+ object TV3: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_3
+ 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 TV3Column1: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'ssel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ HeaderAlignmentHorz = taCenter
+ end
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn2: TcxGridDBColumn
+ Caption = #33394#21495
+ DataBinding.FieldName = 'C_ColorNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 58
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 75
+ end
+ object cxGridDBColumn8: TcxGridDBColumn
+ Caption = #27454#21495
+ DataBinding.FieldName = 'C_StyleNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 58
+ end
+ end
+ object cxGridLevel2: TcxGridLevel
+ GridView = TV3
+ end
+ end
end
object Panel1: TPanel [3]
Left = 0
Top = 30
- Width = 1519
+ Width = 1807
Height = 89
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
ParentColor = True
TabOrder = 3
+ ExplicitWidth = 1519
object Label3: TLabel
Left = 1010
Top = 53
@@ -618,7 +704,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 1078
Top = 47
ParentColor = True
- ParentFont = False
TabOrder = 0
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -628,7 +713,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 1078
Top = 7
ParentColor = True
- ParentFont = False
TabOrder = 1
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -638,7 +722,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 571
Top = 47
ParentColor = True
- ParentFont = False
TabOrder = 2
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -648,7 +731,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 371
Top = 47
ParentColor = True
- ParentFont = False
TabOrder = 3
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -658,7 +740,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 115
Top = 7
ParentColor = True
- ParentFont = False
TabOrder = 4
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -668,7 +749,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 115
Top = 47
ParentColor = True
- ParentFont = False
TabOrder = 5
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -678,7 +758,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 574
Top = 7
ParentColor = True
- ParentFont = False
TabOrder = 6
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -688,7 +767,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 371
Top = 7
ParentColor = True
- ParentFont = False
TabOrder = 7
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -698,7 +776,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 840
Top = 47
ParentColor = True
- ParentFont = False
TabOrder = 8
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -708,7 +785,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 840
Top = 7
ParentColor = True
- ParentFont = False
TabOrder = 9
OnKeyPress = GC_NameKeyPress
Width = 150
@@ -10880,4 +10956,28 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Left = 592
Top = 432
end
+ object CDS_3: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 518
+ Top = 602
+ end
+ object GPM_3: TcxGridPopupMenu
+ Grid = cxGrid3
+ PopupMenus = <>
+ Left = 430
+ Top = 636
+ end
+ object DS_3: TDataSource
+ DataSet = CDS_3
+ Left = 608
+ Top = 578
+ end
+ object ADO_3: TADOQuery
+ Connection = ADOConnection1
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 290
+ Top = 528
+ end
end
diff --git a/A00通用窗体/U_ClothInfoSel.pas b/A00通用窗体/U_ClothInfoSel.pas
index 4847ab2..bc386be 100644
--- a/A00通用窗体/U_ClothInfoSel.pas
+++ b/A00通用窗体/U_ClothInfoSel.pas
@@ -9,26 +9,10 @@ uses
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
- cxLookAndFeelPainters, cxNavigator,
- dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
- cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
- cxTLData, math,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- dxScrollbarAnnotations, cxImageList, cxContainer;
+ cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
+ System.ImageList, U_BaseInput, cxTL, cxMaskEdit, cxTLdxBarBuiltInMenu,
+ cxCheckBox, cxInplaceContainer, cxDBTL, cxTLData, math, dxScrollbarAnnotations,
+ cxImageList, cxContainer;
type
TfrmClothInfoSel = class(TfrmBaseHelp)
@@ -140,6 +124,18 @@ type
DS_2: TDataSource;
cxtxtdtscan: TcxTextEdit;
Label11: TLabel;
+ cxGrid3: TcxGrid;
+ TV3: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridDBColumn2: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ cxGridDBColumn8: TcxGridDBColumn;
+ cxGridLevel2: TcxGridLevel;
+ TV3Column1: TcxGridDBColumn;
+ CDS_3: TClientDataSet;
+ GPM_3: TcxGridPopupMenu;
+ DS_3: TDataSource;
+ ADO_3: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@@ -155,6 +151,9 @@ type
procedure cxDBTreeList1DblClick(Sender: TObject);
procedure cxtxtdtscanKeyPress(Sender: TObject; var Key: Char);
procedure GC_NameKeyPress(Sender: TObject; var Key: Char);
+ procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+ APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+ ANewItemRecordFocusingChanged: Boolean);
private
IsOnShow: Boolean;
CurrentPage, RecordsNumber: Integer;
@@ -363,6 +362,7 @@ begin
FCTType := 'ͨ';
ReadCxGrid(trim(self.Caption) + 'TV1', TV1, 'Զ');
ReadCxGrid(trim(self.Caption) + 'TV2', TV2, 'Զ');
+ ReadCxGrid(trim(self.Caption) + 'TV3', TV3, 'Զ');
InitTree();
InitGrid('');
@@ -385,6 +385,7 @@ procedure TfrmClothInfoSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'TV1', TV1, 'Զ');
WriteCxGrid(trim(self.Caption) + 'TV2', TV2, 'Զ');
+ WriteCxGrid(trim(self.Caption) + 'TV3', TV3, 'Զ');
end;
procedure TfrmClothInfoSel.TCBNOR1Change(Sender: TObject);
@@ -412,6 +413,24 @@ begin
ModalResult := 1;
end;
+procedure TfrmClothInfoSel.Tv1FocusedRecordChanged(
+ Sender: TcxCustomGridTableView; APrevFocusedRecord,
+ AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+
+var
+ SqlStr: string;
+begin
+
+ if CDS_1.IsEmpty then
+ exit;
+
+ SqlStr := 'select * from BS_Cloth_Info_Sub A where BCIID =' + quotedstr((CDS_1.fieldbyname('BCIID').AsString));
+
+ InitCDSData(ADO_3,CDS_3, Tv3, SqlStr, '', '');
+
+
+end;
+
procedure TfrmClothInfoSel.FormDestroy(Sender: TObject);
begin
inherited;
diff --git a/A02基础产品管理/U_ClothInfo.dfm b/A02基础产品管理/U_ClothInfo.dfm
index 0d38ab0..ec222d5 100644
--- a/A02基础产品管理/U_ClothInfo.dfm
+++ b/A02基础产品管理/U_ClothInfo.dfm
@@ -9,6 +9,7 @@ inherited frmClothInfo: TfrmClothInfo
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
+ Visible = True
ExplicitWidth = 1871
ExplicitHeight = 965
PixelsPerInch = 96
@@ -563,8 +564,6 @@ inherited frmClothInfo: TfrmClothInfo
Align = alClient
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 0
- ExplicitLeft = 1
- ExplicitWidth = 1619
object ScrollBox1: TScrollBox
Left = 2
Top = 23
@@ -574,7 +573,6 @@ inherited frmClothInfo: TfrmClothInfo
BevelInner = bvLowered
BorderStyle = bsNone
TabOrder = 0
- ExplicitWidth = 1615
end
end
object cxGrid2: TcxGrid
@@ -584,7 +582,8 @@ inherited frmClothInfo: TfrmClothInfo
Height = 201
Align = alLeft
TabOrder = 1
- ExplicitLeft = 3
+ ExplicitLeft = 7
+ ExplicitTop = 5
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -653,8 +652,6 @@ inherited frmClothInfo: TfrmClothInfo
Align = alClient
PopupMenu = PM_1
TabOrder = 2
- ExplicitLeft = 0
- ExplicitTop = 44
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm
index b27499d..dcc2a7e 100644
--- a/A02基础产品管理/U_ClothInfoInput.dfm
+++ b/A02基础产品管理/U_ClothInfoInput.dfm
@@ -23,7 +23,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 30
AutoSize = True
ButtonHeight = 30
- ButtonWidth = 83
+ ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_ClothInfo.cxImageList_bar
@@ -32,7 +32,6 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
- ExplicitWidth = 812
object ToolButton1: TToolButton
Tag = 1
Left = 0
@@ -43,7 +42,7 @@ object frmClothInfoInput: TfrmClothInfoInput
OnClick = ToolButton1Click
end
object ToolButton6: TToolButton
- Left = 63
+ Left = 71
Top = 0
AutoSize = True
Caption = #38468#20214
@@ -51,7 +50,7 @@ object frmClothInfoInput: TfrmClothInfoInput
OnClick = ToolButton6Click
end
object ToolButton2: TToolButton
- Left = 126
+ Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -59,7 +58,7 @@ object frmClothInfoInput: TfrmClothInfoInput
OnClick = ToolButton2Click
end
object TBClose: TToolButton
- Left = 213
+ Left = 245
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -78,7 +77,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
- ExplicitHeight = 733
object Label1: TLabel
Left = 33
Top = 19
@@ -550,10 +548,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 499
Align = alClient
TabOrder = 2
- ExplicitLeft = 581
- ExplicitTop = 32
- ExplicitWidth = 185
- ExplicitHeight = 733
object ToolBar2: TToolBar
Left = 1
Top = 1
@@ -570,8 +564,6 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
- ExplicitTop = 507
- ExplicitWidth = 183
object ToolButton3: TToolButton
Left = 0
Top = 0
@@ -596,9 +588,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 467
Align = alClient
TabOrder = 1
- ExplicitLeft = -1
- ExplicitWidth = 185
- ExplicitHeight = 701
+ ExplicitLeft = 3
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/A02基础产品管理11/ClothInfo.res b/A02基础产品管理11/ClothInfo.res
deleted file mode 100644
index 45c0920..0000000
Binary files a/A02基础产品管理11/ClothInfo.res and /dev/null differ
diff --git a/A02基础产品管理11/U_CloInfoFileUp.dfm b/A02基础产品管理11/U_CloInfoFileUp.dfm
deleted file mode 100644
index 3381b5e..0000000
--- a/A02基础产品管理11/U_CloInfoFileUp.dfm
+++ /dev/null
@@ -1,266 +0,0 @@
-object frmCloInfoFileUp: TfrmCloInfoFileUp
- Left = 612
- Top = 236
- Caption = #19978#20256#25991#20214
- ClientHeight = 595
- ClientWidth = 929
- Color = clBtnFace
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 12
- object cxGrid7: TcxGrid
- Left = 0
- Top = 41
- Width = 858
- Height = 554
- Align = alClient
- TabOrder = 0
- object TV7: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- DataController.DataSource = DataSource1
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsBehavior.GoToNextCellOnEnter = True
- OptionsBehavior.FocusCellOnCycle = True
- OptionsCustomize.ColumnFiltering = False
- OptionsData.Editing = False
- OptionsView.GroupByBox = False
- OptionsView.Indicator = True
- object FileName: TcxGridDBColumn
- Tag = 1
- Caption = #25991#20214#21517#31216
- DataBinding.FieldName = 'FileName'
- FooterAlignmentHorz = taCenter
- HeaderAlignmentHorz = taCenter
- Width = 121
- end
- object TV7Column1: TcxGridDBColumn
- Caption = #33457#22411#21517#31216
- DataBinding.FieldName = 'HXName'
- GroupSummaryAlignment = taCenter
- HeaderAlignmentHorz = taCenter
- Width = 91
- end
- object FileDate: TcxGridDBColumn
- Tag = 1
- Caption = #19978#20256#26085#26399
- DataBinding.FieldName = 'TFDate'
- FooterAlignmentHorz = taCenter
- HeaderAlignmentHorz = taCenter
- Width = 104
- end
- end
- object cxGridLevel6: TcxGridLevel
- GridView = TV7
- end
- end
- object Panel16: TPanel
- Left = 190
- Top = 126
- Width = 138
- Height = 30
- BevelInner = bvRaised
- Caption = #27491#22312#19978#20256#12290#12290#12290
- Color = clSkyBlue
- TabOrder = 1
- Visible = False
- end
- object ToolBar6: TToolBar
- Left = 858
- Top = 41
- Width = 71
- Height = 554
- Align = alRight
- AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 75
- Caption = 'ToolBar1'
- Images = DataLink_ClothInfo.ImageList_new32
- List = True
- ShowCaptions = True
- TabOrder = 2
- object FileUp: TToolButton
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #19978#20256
- ImageIndex = 2
- Wrap = True
- OnClick = FileUpClick
- end
- object FileDel: TToolButton
- Left = 0
- Top = 38
- AutoSize = True
- Caption = #21024#38500
- ImageIndex = 5
- Wrap = True
- OnClick = FileDelClick
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 929
- Height = 41
- Align = alTop
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 3
- object Label1: TLabel
- Left = 8
- Top = 14
- Width = 72
- Height = 17
- Caption = #20135#21697#32534#21495
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -17
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Image2: TImage
- Left = 773
- Top = 7
- Width = 60
- Height = 28
- Visible = False
- end
- object Image1: TImage
- Left = 861
- Top = 6
- Width = 60
- Height = 28
- Visible = False
- end
- object Label2: TLabel
- Left = 336
- Top = 14
- Width = 36
- Height = 17
- Caption = #33457#22411
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -17
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Visible = False
- end
- object Code: TEdit
- Left = 78
- Top = 10
- Width = 211
- Height = 25
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- object HXName: TBtnEditC
- Tag = 2
- Left = 378
- Top = 8
- Width = 168
- Height = 29
- Hint = 'CYKZ/'#20811#37325
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- Visible = False
- OnBtnUpClick = HXNameBtnUpClick
- OnBtnDnClick = HXNameBtnDnClick
- end
- end
- object ODPat: TOpenDialog
- Filter =
- 'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' +
- 'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' +
- 'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' +
- ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' +
- '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' +
- 'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' +
- 'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' +
- 'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' +
- ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
- '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' +
- '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
- 'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' +
- 'if)|*.tif|TIFF Images (*.tiff)|*.tiff'
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
- Left = 380
- Top = 333
- end
- object IdFTP1: TIdFTP
- ConnectTimeout = 0
- NATKeepAlive.UseKeepAlive = False
- NATKeepAlive.IdleTimeMS = 0
- NATKeepAlive.IntervalMS = 0
- ProxySettings.ProxyType = fpcmNone
- ProxySettings.Port = 0
- ReadTimeout = 0
- Left = 261
- Top = 244
- end
- object SaveDialog1: TSaveDialog
- Filter =
- 'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' +
- 'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' +
- 'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' +
- ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' +
- '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' +
- 'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' +
- 'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' +
- 'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' +
- ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
- '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' +
- '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
- 'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' +
- 'if)|*.tif|TIFF Images (*.tiff)|*.tiff'
- Left = 305
- Top = 333
- end
- object ADOQueryFile: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 488
- Top = 144
- end
- object DataSource1: TDataSource
- DataSet = ADOQueryFile
- Left = 376
- Top = 136
- end
- object ADOQueryCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Parameters = <>
- Left = 584
- Top = 256
- end
- object ADOQueryTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 432
- Top = 224
- end
-end
diff --git a/A02基础产品管理11/U_CloInfoFileUp.pas b/A02基础产品管理11/U_CloInfoFileUp.pas
deleted file mode 100644
index 6f9e0b9..0000000
--- a/A02基础产品管理11/U_CloInfoFileUp.pas
+++ /dev/null
@@ -1,382 +0,0 @@
-unit U_CloInfoFileUp;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
- cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls, cxGridLevel,
- cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
- cxControls, cxGridCustomView, cxGrid, IdBaseComponent, IdComponent,
- IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles,
- strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
- dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase,
- Vcl.ExtDlgs;
-
-type
- TfrmCloInfoFileUp = class(TForm)
- cxGrid7: TcxGrid;
- TV7: TcxGridDBTableView;
- FileName: TcxGridDBColumn;
- FileDate: TcxGridDBColumn;
- cxGridLevel6: TcxGridLevel;
- Panel16: TPanel;
- ToolBar6: TToolBar;
- FileUp: TToolButton;
- FileDel: TToolButton;
- Panel1: TPanel;
- Label1: TLabel;
- Code: TEdit;
- ODPat: TOpenDialog;
- IdFTP1: TIdFTP;
- SaveDialog1: TSaveDialog;
- ADOQueryFile: TADOQuery;
- DataSource1: TDataSource;
- ADOQueryCmd: TADOQuery;
- ADOQueryTemp: TADOQuery;
- Image2: TImage;
- Image1: TImage;
- TV7Column1: TcxGridDBColumn;
- Label2: TLabel;
- HXName: TBtnEditC;
- procedure FileUpClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FileDelClick(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure HXNameBtnUpClick(Sender: TObject);
- procedure HXNameBtnDnClick(Sender: TObject);
- private
- lstPat: TStringList;
- AJpeg: TJPEGImage;
- procedure CreThumb(Image1, Image2: TImage; Width, Height: Integer);
- procedure SaveImageOther(FTFID: string);
- procedure ReadINIFile10();
- procedure InitTP();
- { Private declarations }
- public
- FBCIID: string;
- FWidth, FHeight:Integer
- { Public declarations }
- end;
-
-var
- frmCloInfoFileUp: TfrmCloInfoFileUp;
-
-implementation
-
-uses
- U_DataLink, U_RTFun, U_ZDYHelp;
-
-{$R *.dfm} procedure TfrmCloInfoFileUp.InitTP();
-begin
- with ADOQueryFile do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName,HXName from TP_File where WBID=''' + Trim(FBCIID) + '''');
- SQL.Add(' and FileType=''YP''');
- Open;
- end;
-end;
-
-procedure TfrmCloInfoFileUp.ReadINIFile10();
-var
- programIni: Tinifile; //ļ
- FileName: string;
-begin
- FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
- programIni := Tinifile.create(FileName);
- server := programIni.ReadString('SERVER', 'ַ', '127.0.0.1');
- programIni.Free;
-end;
-
-procedure TfrmCloInfoFileUp.FileUpClick(Sender: TObject);
-var
- i, j: Integer;
- PatFile: string;
- FTPPath, FConNo, MaxNo: string;
- AJpeg: TJPEGImage;
- myStream: TADOBlobStream;
-begin
- if Trim(Code.Text) = '' then
- begin
- Application.MessageBox('ŲΪգ', 'ʾ', 0);
- Exit;
- end;
-// if Trim(HXName.Text) = '' then
-// begin
-// if Application.MessageBox('ȷΪ', 'ʾ', 32 + 4) <> IDYES then
-// Exit;
-// end;
-// ODPat
- lstPat.Clear;
- if ODPat.Execute then
- begin
- lstPat.AddStrings(ODPat.Files);
- end;
- if lstPat.Count > 0 then
- begin
- try
- IdFTP1.Host := PicSvr;
- IdFTP1.Username := 'three';
- IdFTP1.Password := '641010';
- IdFTP1.Connect();
- except
- IdFTP1.Quit;
- Application.MessageBox('ӵļ飡', 'ʾ', MB_ICONWARNING);
- Exit;
- end;
- end;
-
- Panel16.Visible := True;
- Panel16.Refresh;
-
- try
- AJpeg := TJpegImage.Create();
- ADOQueryCmd.Connection.BeginTrans;
- for i := 0 to lstPat.Count - 1 do
- begin
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select isnull(max(abs(cast(right(left(FileName,charindex(''.'',FileName)-1),2) as int))),0)+1 as BH from TP_File');
- sql.Add('where FileType =''YP'' and WBID=''' + trim(FBCIID) + ''' ');
- open;
- end;
- PatFile := trim(Code.Text) + '-' + inttostr(ADOQueryTemp.fieldbyname('BH').AsInteger) + '.' + Copy(ExtractFileName(lstPat[i]), (Pos('.', ExtractFileName(lstPat[i])) + 1), (Length(ExtractFileName(lstPat[i])) - Pos('.', ExtractFileName(lstPat[i]))));
- image1.Picture.LoadFromFile((lstPat[i]));
- CreThumb(Image1, Image2, FWidth, FHeight);
-
- if IdFTP1.Connected then
- begin
- try
- IdFTP1.Put(lstPat[i], Trim(UserDataFlag + 'YP') + '\' + Trim(PatFile));
-
- if GetLSNo(ADOQueryCmd, MaxNo, 'YP', 'XD_File', 4, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡͼƬʧܣ', 'ʾ', 0);
- Exit;
- end;
- with ADOQueryCmd do
- begin
- close;
- sql.Clear;
- sql.Add(' select * from TP_File where TFID=''' + Trim(MaxNo) + '''');
- open;
- end;
- with ADOQueryCmd do
- begin
- if ADOQueryCmd.IsEmpty then
- begin
- Append;
- FieldByName('Filler').Value := Trim(DName);
- FieldByName('TFDate').Value := SGetServerDateTime(ADOQueryTemp);
- end
- else
- begin
- Edit;
- FieldByName('Editer').Value := Trim(DName);
- FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
- end;
- FieldByName('TFID').Value := Trim(MaxNo);
- FieldByName('WBID').Value := Trim(FBCIID);
- FieldByName('TFType').Value := 'Ʒ';
- FieldByName('FileType').Value := 'YP';
- FieldByName('HXName').Value := trim(HXName.Text);
- FieldByName('filename').Value := Trim(PatFile);
- myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
- AJpeg.Assign(Image2.Picture.Graphic);
- AJpeg.SaveToStream(myStream);
- myStream.Free;
- Post;
- end;
- except
- end;
- end;
- end;
-
- ADOQueryCmd.Connection.CommitTrans;
- AJpeg.Free;
- except
- AJpeg.Free;
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ͼƬϴʧܣ', 'ʾ', 0);
- end;
-
- if IdFTP1.Connected then
- IdFTP1.Quit;
- InitTP();
- Panel16.Visible := False;
- if i > 0 then
- Application.MessageBox(PChar(inttostr(i) + 'ļϴɹ'), 'ʾ', 0);
- ModalResult := 1;
-end;
-
-procedure TfrmCloInfoFileUp.CreThumb(Image1, Image2: TImage; Width, Height: Integer);
-var
- Bitmap: TBitmap;
- Ratio: Double;
- ARect: TRect;
- AHeight, AHeightOffset: Integer;
- AWidth, AWidthOffset: Integer;
-begin
- Bitmap := TBitmap.Create;
- try
- Ratio := Image1.Picture.Graphic.Width / Image1.Picture.Graphic.Height;
- if Ratio > 1.333 then
- begin
- AHeight := Round(Width / Ratio);
- AHeightOffset := (Height - AHeight) div 2;
- AWidth := Width;
- AWidthOffset := 0;
- end
- else
- begin
- AWidth := Round(Height * Ratio);
- AWidthOffset := (Width - AWidth) div 2;
- AHeight := Height;
- AHeightOffset := 0;
- end;
- Bitmap.Width := Width;
- Bitmap.Height := Height;
- Bitmap.Canvas.Brush.Color := clBtnFace;
- Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
- ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset);
- Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic);
- Image2.Picture.Assign(Bitmap);
- finally
- Bitmap.Free;
- end;
-end;
-
-procedure TfrmCloInfoFileUp.SaveImageOther(FTFID: string);
-var
- AJpeg: TJPEGImage;
- myStream: TADOBlobStream;
- ImgMaxNo: string;
- i, j: Integer;
- PatFile: string;
- FConNo, MaxNo: string;
-begin
- if Image2.Picture = nil then
- Exit;
- AJpeg := TJpegImage.Create();
- with ADOQueryCmd do
- begin
- close;
- sql.Clear;
- sql.Add(' select * from TP_File where TFID=''' + Trim(FTFID) + '''');
- open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(FTFID) = '' then
- begin
- Append;
- FieldByName('Filler').Value := Trim(DName);
- end
- else
- begin
- Edit;
- FieldByName('Editer').Value := Trim(DName);
- FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
- end;
- FieldByName('TFID').Value := Trim(FTFID);
- FieldByName('WBID').Value := Trim(FBCIID);
- FieldByName('TFType').Value := 'Ʒ';
- AJpeg.Assign(Image2.Picture.Graphic);
- myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
- AJpeg.Assign(Image2.Picture.Graphic);
- AJpeg.SaveToStream(myStream);
- myStream.Free;
- Post;
- end;
-end;
-
-procedure TfrmCloInfoFileUp.FormCreate(Sender: TObject);
-begin
- lstPat := TStringList.Create;
- if FWidth = 0 then
- FWidth := 160;
- if FHeight = 0 then
- FHeight := 120;
-end;
-
-procedure TfrmCloInfoFileUp.FileDelClick(Sender: TObject);
-begin
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- SQL.Add(' Delete TP_File where TFID=''' + Trim(ADOQueryFile.fieldbyname('TFID').AsString) + '''');
- ExecSQL;
- end;
-
- with ADOQueryFile do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + '''');
- SQL.Add(' and FileType=''YP''');
- Open;
- end;
-// with ADOQueryFile do
-// begin
-// Close;
-// SQL.Clear;
-// SQL.Add('select * from XD_File where FBCIID=''' + Trim(FBCIID) + '''');
-// SQL.Add(' and FileType=''YP''');
-// open;
-// end;
-// if ADOQueryFile.IsEmpty then
-// begin
-// with ADOQueryCmd do
-// begin
-// Close;
-// sql.Clear;
-// sql.Add('Update CP_YDang Set TPFlag=0 where FBCIID=''' + Trim(FBCIID) + '''');
-// ExecSQL;
-// end;
-// end;
-end;
-
-procedure TfrmCloInfoFileUp.FormShow(Sender: TObject);
-begin
- with ADOQueryFile do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + '''');
- SQL.Add(' and FileType=''YP''');
- Open;
- end;
-end;
-
-procedure TfrmCloInfoFileUp.HXNameBtnDnClick(Sender: TObject);
-begin
- TBtnEditC(Sender).Text := '';
- TBtnEditC(Sender).TxtCode := '';
-end;
-
-procedure TfrmCloInfoFileUp.HXNameBtnUpClick(Sender: TObject);
-begin
- try
- frmZDYHelp := TfrmZDYHelp.Create(Application);
- with frmZDYHelp do
- begin
- flag := 'HX' + Trim(Code.Text);
- flagname := '';
- if ShowModal = 1 then
- begin
- TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
- end;
- end;
- finally
- frmZDYHelp.Free;
- end;
-end;
-
-end.
-
diff --git a/A02基础产品管理11/U_ClothInfo.dfm b/A02基础产品管理11/U_ClothInfo.dfm
deleted file mode 100644
index 30a102f..0000000
--- a/A02基础产品管理11/U_ClothInfo.dfm
+++ /dev/null
@@ -1,950 +0,0 @@
-inherited frmClothInfo: TfrmClothInfo
- Left = 117
- Top = 154
- Caption = #20135#21697#26723#26696
- ClientHeight = 754
- ClientWidth = 1444
- FormStyle = fsMDIChild
- Position = poScreenCenter
- Visible = True
- ExplicitWidth = 1460
- ExplicitHeight = 793
- PixelsPerInch = 96
- TextHeight = 12
- object ToolBar1: TToolBar [0]
- Tag = 1
- Left = 0
- Top = 0
- Width = 1444
- Height = 38
- AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 91
- Caption = 'ToolBar1'
- Color = clSkyBlue
- DisabledImages = DataLink_ClothInfo.ImageList_new32
- Images = DataLink_ClothInfo.ImageList_new32
- List = True
- ParentColor = False
- ShowCaptions = True
- TabOrder = 0
- object TBRafresh: TToolButton
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #21047#26032
- ImageIndex = 1
- OnClick = TBRafreshClick
- end
- object TBFilter: TToolButton
- Left = 71
- Top = 0
- AutoSize = True
- Caption = #36807#28388
- ImageIndex = 0
- OnClick = TBFilterClick
- end
- object TBAdd: TToolButton
- Left = 142
- Top = 0
- AutoSize = True
- Caption = #26032#22686
- ImageIndex = 9
- OnClick = TBAddClick
- end
- object ToolButton1: TToolButton
- Left = 213
- Top = 0
- AutoSize = True
- Caption = #26597#30475
- ImageIndex = 4
- OnClick = ToolButton1Click
- end
- object TBCopy: TToolButton
- Left = 284
- Top = 0
- AutoSize = True
- Caption = #22797#21046
- ImageIndex = 13
- OnClick = TBCopyClick
- end
- object TBEdit: TToolButton
- Left = 355
- Top = 0
- AutoSize = True
- Caption = #20462#25913
- ImageIndex = 3
- OnClick = TBEditClick
- end
- object TBMLEdit: TToolButton
- Left = 426
- Top = 0
- AutoSize = True
- Caption = #30446#24405#20462#25913
- ImageIndex = 3
- OnClick = TBMLEditClick
- end
- object TBDel: TToolButton
- Left = 521
- Top = 0
- AutoSize = True
- Caption = #21024#38500
- ImageIndex = 5
- OnClick = TBDelClick
- end
- object ToolButton3: TToolButton
- Left = 592
- Top = 0
- AutoSize = True
- Caption = #26631#31614#25171#21360
- ImageIndex = 21
- OnClick = ToolButton3Click
- end
- object TBExport: TToolButton
- Left = 687
- Top = 0
- AutoSize = True
- Caption = #23548#20986
- ImageIndex = 20
- OnClick = TBExportClick
- end
- object TBUP: TToolButton
- Left = 758
- Top = 0
- AutoSize = True
- Caption = #22270#29255#19978#20256
- ImageIndex = 19
- OnClick = TBUPClick
- end
- object ToolButton2: TToolButton
- Left = 853
- Top = 0
- AutoSize = True
- Caption = #20445#23384#26684#24335
- ImageIndex = 16
- OnClick = ToolButton2Click
- end
- object TBClose: TToolButton
- Left = 948
- Top = 0
- AutoSize = True
- Caption = #20851#38381
- ImageIndex = 7
- OnClick = TBCloseClick
- end
- end
- object cxSplitter1: TcxSplitter [1]
- Left = 220
- Top = 119
- Width = 8
- Height = 635
- HotZoneClassName = 'TcxMediaPlayer9Style'
- Control = Panel5
- end
- object Panel1: TPanel [2]
- Left = 0
- Top = 38
- Width = 1444
- Height = 81
- Align = alTop
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Color = 16242829
- ParentBackground = False
- TabOrder = 1
- object Label3: TLabel
- Left = 42
- Top = 15
- Width = 48
- Height = 12
- Caption = #20135#21697#32534#21495
- end
- object Label11: TLabel
- Left = 1072
- Top = 107
- Width = 7
- Height = 12
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label12: TLabel
- Left = 1120
- Top = 111
- Width = 7
- Height = 12
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 42
- Top = 47
- Width = 48
- Height = 12
- Caption = #20135#21697#21517#31216
- end
- object Label9: TLabel
- Left = 254
- Top = 51
- Width = 24
- Height = 12
- Caption = #20811#37325
- end
- object Label8: TLabel
- Left = 254
- Top = 15
- Width = 24
- Height = 12
- Caption = #38376#24133
- end
- object Label1: TLabel
- Left = 453
- Top = 10
- Width = 24
- Height = 12
- Caption = #22791#27880
- end
- object Label5: TLabel
- Left = 453
- Top = 51
- Width = 36
- Height = 12
- Caption = #22635#21333#20154
- end
- object C_Code: TEdit
- Tag = 2
- Left = 115
- Top = 11
- Width = 89
- Height = 20
- TabOrder = 0
- OnKeyPress = C_CodeKeyPress
- end
- object C_Name: TEdit
- Tag = 2
- Left = 115
- Top = 43
- Width = 89
- Height = 20
- TabOrder = 1
- OnKeyPress = C_CodeKeyPress
- end
- object C_GramWeight: TEdit
- Tag = 2
- Left = 296
- Top = 47
- Width = 89
- Height = 20
- TabOrder = 3
- OnKeyPress = C_CodeKeyPress
- end
- object C_Width: TEdit
- Tag = 2
- Left = 296
- Top = 11
- Width = 89
- Height = 20
- TabOrder = 2
- OnKeyPress = C_CodeKeyPress
- end
- object Note: TEdit
- Tag = 2
- Left = 502
- Top = 6
- Width = 89
- Height = 20
- TabOrder = 4
- OnKeyPress = C_CodeKeyPress
- end
- object filler: TEdit
- Tag = 2
- Left = 502
- Top = 47
- Width = 89
- Height = 20
- TabOrder = 5
- OnKeyPress = C_CodeKeyPress
- end
- end
- object Panel2: TPanel [3]
- Left = 512
- Top = 232
- Width = 185
- Height = 41
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
- Color = clSkyBlue
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- Visible = False
- end
- object Panel5: TPanel [4]
- Left = 0
- Top = 119
- Width = 220
- Height = 635
- Align = alLeft
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 2
- object cxDBTreeList1: TcxDBTreeList
- Left = 2
- Top = 2
- Width = 216
- Height = 631
- Align = alClient
- Bands = <
- item
- end>
- DataController.DataSource = DS_Tree
- DataController.ParentField = 'CTParent'
- DataController.KeyField = 'CTID'
- Navigator.Buttons.CustomButtons = <>
- OptionsBehavior.CopyCaptionsToClipboard = False
- OptionsBehavior.ExpandOnDblClick = False
- OptionsSelection.CellSelect = False
- OptionsView.CellAutoHeight = True
- OptionsView.Headers = False
- RootValue = -1
- ScrollbarAnnotations.CustomAnnotations = <>
- Styles.Inactive = DataLink_ClothInfo.Red
- Styles.Selection = DataLink_ClothInfo.Red
- Styles.IncSearch = DataLink_ClothInfo.Red
- TabOrder = 0
- OnDblClick = cxDBTreeList1DblClick
- object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
- DataBinding.FieldName = 'CTName'
- Width = 210
- Position.ColIndex = 0
- Position.RowIndex = 0
- Position.BandIndex = 0
- Summary.FooterSummaryItems = <>
- Summary.GroupFooterSummaryItems = <>
- end
- end
- end
- object Panel3: TPanel [5]
- Left = 228
- Top = 119
- Width = 1216
- Height = 635
- Align = alClient
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Panel3'
- TabOrder = 4
- object cxGrid1: TcxGrid
- Left = 2
- Top = 42
- Width = 1212
- Height = 386
- Align = alClient
- PopupMenu = PM_1
- TabOrder = 0
- object Tv1: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- Navigator.Buttons.Delete.Enabled = False
- Navigator.Buttons.Delete.Visible = False
- ScrollbarAnnotations.CustomAnnotations = <>
- OnFocusedRecordChanged = Tv1FocusedRecordChanged
- DataController.DataSource = DS_1
- DataController.Filter.AutoDataSetFilter = True
- DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsCustomize.ColumnFiltering = False
- OptionsData.Deleting = False
- OptionsData.DeletingConfirmation = False
- OptionsView.GroupByBox = False
- Styles.IncSearch = DataLink_ClothInfo.SHuangSe
- Styles.Header = DataLink_ClothInfo.Default
- Styles.Inactive = DataLink_ClothInfo.SHuangSe
- Styles.Selection = DataLink_ClothInfo.SHuangSe
- object v1SSel: TcxGridDBColumn
- Caption = #36873#25321
- DataBinding.FieldName = 'SSel'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxCheckBoxProperties'
- HeaderAlignmentHorz = taCenter
- Styles.Header = DataLink_ClothInfo.Default
- Width = 41
- end
- object v1Column12: TcxGridDBColumn
- Caption = #31867#21035
- DataBinding.FieldName = 'CTName'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Styles.Header = DataLink_ClothInfo.Default
- Width = 70
- end
- object v1CYNo: TcxGridDBColumn
- Caption = #20135#21697#32534#21495
- DataBinding.FieldName = 'C_Code'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Styles.Header = DataLink_ClothInfo.Default
- Width = 92
- end
- object v1Column9: TcxGridDBColumn
- Caption = #20135#21697#21517#31216
- DataBinding.FieldName = 'C_Name'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 96
- end
- object v1Column3: TcxGridDBColumn
- Caption = #38376#24133
- DataBinding.FieldName = 'C_Width'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Styles.Header = DataLink_ClothInfo.Default
- Width = 80
- end
- object v1Column1: TcxGridDBColumn
- Caption = #20811#37325
- DataBinding.FieldName = 'C_GramWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 80
- end
- object Tv1Column3: TcxGridDBColumn
- Caption = #25104#20998
- DataBinding.FieldName = 'C_Composition'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 80
- end
- object Tv1Column11: TcxGridDBColumn
- Caption = #35268#26684
- DataBinding.FieldName = 'C_Spec'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 80
- end
- object v1Column11: TcxGridDBColumn
- Caption = #22270#29255
- DataBinding.FieldName = 'IsImg'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxCheckBoxProperties'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 57
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #22635#21333#20154
- DataBinding.FieldName = 'filler'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 71
- end
- object Tv1Column6: TcxGridDBColumn
- Caption = #20462#25913#20154
- DataBinding.FieldName = 'editer'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 68
- end
- object Tv1Column7: TcxGridDBColumn
- Caption = #20462#25913#26102#38388
- DataBinding.FieldName = 'edittime'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 67
- end
- object Tv1Column9: TcxGridDBColumn
- Caption = #24405#20837#26102#38388
- DataBinding.FieldName = 'FILLTIME'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column4: TcxGridDBColumn
- Caption = #22791#27880
- DataBinding.FieldName = 'Note'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 200
- end
- end
- object cxGrid1Level1: TcxGridLevel
- GridView = Tv1
- end
- end
- object Panel7: TPanel
- Left = 2
- Top = 2
- Width = 1212
- Height = 40
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 1212
- Height = 40
- Align = alClient
- AutoSize = True
- TabOrder = 0
- DesignSize = (
- 1212
- 40)
- object Label14: TLabel
- Left = 19
- Top = 13
- Width = 84
- Height = 13
- Alignment = taCenter
- Anchors = [akLeft]
- Caption = #27599#39029#35760#24405#26465#25968
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Layout = tlCenter
- end
- object LBCPAP1: TLabel
- Left = 276
- Top = 9
- Width = 85
- Height = 21
- Alignment = taCenter
- Anchors = [akLeft]
- AutoSize = False
- Caption = #24403#21069#39029'/'#24635#39029#25968
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Layout = tlCenter
- end
- object Button1: TButton
- Left = 195
- Top = 8
- Width = 75
- Height = 23
- Anchors = [akLeft]
- Caption = #19978#19968#39029
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 367
- Top = 9
- Width = 78
- Height = 22
- Anchors = [akLeft]
- Caption = #19979#19968#39029
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnClick = Button2Click
- end
- object TCBNOR1: TComboBox
- Tag = 2
- Left = 111
- Top = 10
- Width = 78
- Height = 20
- Anchors = [akLeft]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ItemIndex = 2
- ParentFont = False
- TabOrder = 2
- Text = '500'
- OnChange = TCBNOR1Change
- Items.Strings = (
- '100'
- '300'
- '500'
- '1000'
- '5000'
- '10000')
- end
- end
- end
- object Panel9: TPanel
- Left = 2
- Top = 428
- Width = 1212
- Height = 205
- Align = alBottom
- Caption = 'Panel9'
- TabOrder = 2
- object Panel10: TPanel
- Left = 1
- Top = 1
- Width = 1210
- Height = 203
- Align = alClient
- Caption = 'Panel9'
- TabOrder = 0
- object GroupBox1: TGroupBox
- Left = 608
- Top = 42
- Width = 601
- Height = 160
- Align = alRight
- Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
- TabOrder = 0
- object ScrollBox1: TScrollBox
- Left = 2
- Top = 14
- Width = 597
- Height = 144
- Align = alClient
- BevelInner = bvLowered
- BorderStyle = bsNone
- TabOrder = 0
- end
- end
- object Panel11: TPanel
- Left = 1
- Top = 1
- Width = 1208
- Height = 41
- Align = alTop
- TabOrder = 1
- Visible = False
- DesignSize = (
- 1208
- 41)
- object Label7: TLabel
- Left = 33
- Top = 8
- Width = 88
- Height = 21
- Caption = #33457#22411#36873#25321
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -21
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object cbbHX: TComboBox
- Left = 368
- Top = 3
- Width = 210
- Height = 32
- Style = csDropDownList
- Anchors = []
- Color = clWhite
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -24
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = cbbHXChange
- Items.Strings = (
- #33457#22411)
- end
- end
- object cxGrid2: TcxGrid
- Left = 1
- Top = 42
- Width = 607
- Height = 160
- Align = alClient
- TabOrder = 2
- 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 TV1Column1: TcxGridDBColumn
- Caption = #39068#33394
- DataBinding.FieldName = 'C_Color'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 150
- end
- object TV1Column2: TcxGridDBColumn
- Caption = #33394#21495
- DataBinding.FieldName = 'C_ColorNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 150
- end
- object cxGridDBColumn1: TcxGridDBColumn
- Caption = #33457#22411
- DataBinding.FieldName = 'C_Pattern'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 150
- end
- object cxGridDBColumn2: TcxGridDBColumn
- Caption = #27454#21495
- DataBinding.FieldName = 'C_StyleNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 150
- end
- end
- object cxGridLevel2: TcxGridLevel
- GridView = Tv2
- end
- end
- end
- end
- end
- inherited ADOQueryBaseCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Left = 161
- Top = 240
- end
- inherited ADOQueryBaseTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Left = 57
- Top = 241
- end
- object DS_Tree: TDataSource
- DataSet = CDS_Tree
- Left = 155
- Top = 131
- end
- object ADOQueryTree: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 53
- Top = 137
- end
- object ADOQueryTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 899
- Top = 192
- end
- object ADOQueryCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Parameters = <>
- Left = 997
- Top = 197
- end
- object GPM_1: TcxGridPopupMenu
- Grid = cxGrid1
- PopupMenus = <>
- Left = 888
- Top = 360
- end
- object DS_1: TDataSource
- DataSet = CDS_1
- Left = 1043
- Top = 395
- end
- object ADOQueryMain: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 1061
- Top = 201
- end
- object CDS_1: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 960
- Top = 408
- end
- object RM1: TRMGridReport
- ThreadPrepareReport = True
- InitialZoom = pzDefault
- PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
- DefaultCollate = False
- ShowPrintDialog = False
- SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
- PreviewOptions.RulerUnit = rmutScreenPixels
- PreviewOptions.RulerVisible = False
- PreviewOptions.DrawBorder = False
- PreviewOptions.BorderPen.Color = clGray
- PreviewOptions.BorderPen.Style = psDash
- Dataset = RMDB_Main
- CompressLevel = rmzcFastest
- CompressThread = False
- LaterBuildEvents = True
- OnlyOwnerDataSet = False
- Left = 312
- Top = 216
- ReportData = {}
- end
- object RMDB_Main: TRMDBDataSet
- Visible = True
- DataSet = ADOQueryPrint
- Left = 952
- Top = 296
- end
- object ODPat: TOpenDialog
- Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
- Left = 324
- Top = 285
- end
- object IdFTP1: TIdFTP
- ConnectTimeout = 0
- NATKeepAlive.UseKeepAlive = False
- NATKeepAlive.IdleTimeMS = 0
- NATKeepAlive.IntervalMS = 0
- ProxySettings.ProxyType = fpcmNone
- ProxySettings.Port = 0
- ReadTimeout = 0
- Left = 381
- Top = 380
- end
- object SaveDialog1: TSaveDialog
- Left = 385
- Top = 285
- end
- object DSCYNO: TDataSource
- DataSet = CDS_CYNO
- Left = 499
- Top = 299
- end
- object CDS_CYNO: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 496
- Top = 240
- end
- object adoqueryPicture: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Parameters = <>
- Left = 299
- Top = 360
- end
- object OpenDialog1: TOpenDialog
- Left = 458
- Top = 354
- end
- object PM_1: TPopupMenu
- Left = 1160
- Top = 352
- object N1: TMenuItem
- Caption = #20840#36873
- OnClick = N1Click
- end
- object N2: TMenuItem
- Caption = #20840#24323
- OnClick = N2Click
- end
- object N3: TMenuItem
- Caption = #22797#21046
- OnClick = N3Click
- end
- end
- object RMBarCodeObject1: TRMBarCodeObject
- Left = 1052
- Top = 296
- end
- object DataSource3: TDataSource
- DataSet = CDS_Sub
- Left = 746
- Top = 312
- end
- object CDS_Sub: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 747
- Top = 439
- end
- object GPM_2: TcxGridPopupMenu
- Grid = cxGrid1
- PopupMenus = <>
- Left = 525
- Top = 494
- end
- object CDS_Tree: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 96
- Top = 136
- end
- object ADOQueryPrint: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 875
- Top = 296
- end
- object CDS_Label: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 520
- Top = 426
- end
- object CDS_2: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 586
- Top = 492
- end
- object DS_2: TDataSource
- DataSet = CDS_2
- Left = 642
- Top = 494
- end
-end
diff --git a/A02基础产品管理11/U_ClothInfo.pas b/A02基础产品管理11/U_ClothInfo.pas
deleted file mode 100644
index dd6e541..0000000
--- a/A02基础产品管理11/U_ClothInfo.pas
+++ /dev/null
@@ -1,867 +0,0 @@
-unit U_ClothInfo;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
- cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
- cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
- cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
- cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
- cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
- RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
- IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, jpeg, U_SLT, ComObj, Menus,
- cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator,
- dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters,
- dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer,
- dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils,
- dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
- dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
- dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
- dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
- dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
- dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
- dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
- dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
- dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
- dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
- dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
- dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
- dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
- dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
- dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
- dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
-
-type
- FdDy = record
- inc: integer; //ͻ־
- FDdys: string[32]; //ͻ
- FdDysName: string[32]; //ͻ
- end;
-
- TfrmClothInfo = class(TfrmBaseList)
- ToolBar1: TToolBar;
- TBRafresh: TToolButton;
- TBDel: TToolButton;
- TBClose: TToolButton;
- DS_Tree: TDataSource;
- ADOQueryTree: TADOQuery;
- ADOQueryTemp: TADOQuery;
- ADOQueryCmd: TADOQuery;
- GPM_1: TcxGridPopupMenu;
- Tv1: TcxGridDBTableView;
- cxGrid1Level1: TcxGridLevel;
- cxGrid1: TcxGrid;
- cxSplitter1: TcxSplitter;
- Panel1: TPanel;
- TBFilter: TToolButton;
- v1CYNo: TcxGridDBColumn;
- v1Column3: TcxGridDBColumn;
- DS_1: TDataSource;
- ADOQueryMain: TADOQuery;
- CDS_1: TClientDataSet;
- v1Column12: TcxGridDBColumn;
- TBExport: TToolButton;
- RM1: TRMGridReport;
- RMDB_Main: TRMDBDataSet;
- ODPat: TOpenDialog;
- IdFTP1: TIdFTP;
- SaveDialog1: TSaveDialog;
- TBUP: TToolButton;
- Label3: TLabel;
- C_Code: TEdit;
- TBCopy: TToolButton;
- Panel2: TPanel;
- v1SSel: TcxGridDBColumn;
- DSCYNO: TDataSource;
- CDS_CYNO: TClientDataSet;
- Panel5: TPanel;
- cxDBTreeList1: TcxDBTreeList;
- cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
- Label11: TLabel;
- Label12: TLabel;
- Panel3: TPanel;
- adoqueryPicture: TADOQuery;
- v1Column1: TcxGridDBColumn;
- v1Column9: TcxGridDBColumn;
- Label4: TLabel;
- C_Name: TEdit;
- TBAdd: TToolButton;
- TBEdit: TToolButton;
- TBMLEdit: TToolButton;
- OpenDialog1: TOpenDialog;
- Label9: TLabel;
- C_GramWeight: TEdit;
- Label8: TLabel;
- C_Width: TEdit;
- PM_1: TPopupMenu;
- N1: TMenuItem;
- N2: TMenuItem;
- v1Column11: TcxGridDBColumn;
- Panel7: TPanel;
- Panel4: TPanel;
- Label14: TLabel;
- LBCPAP1: TLabel;
- Button1: TButton;
- Button2: TButton;
- TCBNOR1: TComboBox;
- RMBarCodeObject1: TRMBarCodeObject;
- Tv1Column5: TcxGridDBColumn;
- Tv1Column6: TcxGridDBColumn;
- Tv1Column7: TcxGridDBColumn;
- ToolButton1: TToolButton;
- DataSource3: TDataSource;
- CDS_Sub: TClientDataSet;
- Tv1Column9: TcxGridDBColumn;
- Tv1Column11: TcxGridDBColumn;
- GPM_2: TcxGridPopupMenu;
- ToolButton2: TToolButton;
- N3: TMenuItem;
- Panel9: TPanel;
- Panel10: TPanel;
- GroupBox1: TGroupBox;
- ScrollBox1: TScrollBox;
- Panel11: TPanel;
- cbbHX: TComboBox;
- Label7: TLabel;
- CDS_Tree: TClientDataSet;
- ADOQueryPrint: TADOQuery;
- CDS_Label: TClientDataSet;
- ToolButton3: TToolButton;
- Tv1Column3: TcxGridDBColumn;
- Tv1Column4: TcxGridDBColumn;
- Label1: TLabel;
- Note: TEdit;
- Label5: TLabel;
- filler: TEdit;
- cxGrid2: TcxGrid;
- Tv2: TcxGridDBTableView;
- TV1Column1: TcxGridDBColumn;
- TV1Column2: TcxGridDBColumn;
- cxGridDBColumn1: TcxGridDBColumn;
- cxGridDBColumn2: TcxGridDBColumn;
- cxGridLevel2: TcxGridLevel;
- CDS_2: TClientDataSet;
- DS_2: TDataSource;
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure TBCloseClick(Sender: TObject);
- procedure TBDelClick(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure cxDBTreeList1DblClick(Sender: TObject);
- procedure TBRafreshClick(Sender: TObject);
- procedure TBFilterClick(Sender: TObject);
- procedure CYNoChange(Sender: TObject);
- procedure TBExportClick(Sender: TObject);
- procedure TBUPClick(Sender: TObject);
- procedure TBCopyClick(Sender: TObject);
- procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
- procedure TBAddClick(Sender: TObject);
- procedure TBEditClick(Sender: TObject);
- procedure TBMLEditClick(Sender: TObject);
- procedure N1Click(Sender: TObject);
- procedure N2Click(Sender: TObject);
- procedure TCBNOR1Change(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure ToolButton1Click(Sender: TObject);
- procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
- procedure ToolButton2Click(Sender: TObject);
- procedure N3Click(Sender: TObject);
- procedure TextEdit(Sender: TObject);
- procedure HXNameBtnUpClick(Sender: TObject);
- procedure HXNameBtnDnClick(Sender: TObject);
- procedure cbbHXChange(Sender: TObject);
- procedure ToolButton3Click(Sender: TObject);
- private
- { Private declarations }
- CurrentPage, RecordsNumber: Integer;
- CTID: string;
- PState: Integer;
- FCTID, FTopID: string;
-
- procedure SetStatus();
- procedure InitTree();
- procedure InitGrid();
- procedure ReadINIFile();
- procedure InitImage();
- procedure LookImage(FileName: string);
-
- public
- dFdDy: array[0..20] of FdDy; //ͻ
- FJurisdiction: string;
- { Public declarations }
- end;
-
-var
- Mach: array of TfrmSlt;
-
-implementation
-
-uses
- U_DataLink, U_RTFun, U_ClothInfoInput, U_CloInfoFileUp, U_YPTypeHelpCP,
- U_ZDYHelp, U_LabelPrint;
-
-{$R *.dfm}
-
-procedure TfrmClothInfo.LookImage(FileName: string);
-var
- sFieldName: string;
-begin
-
- sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ鿴';
-
- if not DirectoryExists(pchar(sFieldName)) then
- CreateDirectory(pchar(sFieldName), nil);
-
- sFieldName := sFieldName + '\' + trim(FileName);
-
- try
- IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1');
- IdFTP1.Username := 'three';
- IdFTP1.Password := '641010';
- IdFTP1.Connect();
- except
-
- end;
-
- if IdFTP1.Connected then
- begin
- application.ProcessMessages;
- try
-// ShowMessage(PChar(Trim('D:\' + Trim(FileName))));
- IdFTP1.Get(Trim(UserDataFlag + 'YP\' + FileName), sFieldName, true, false);
- except
- Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING);
- IdFTP1.Quit;
- Exit;
- end;
- end
- else
- begin
- Application.MessageBox('ļ', 'ʾ', MB_ICONWARNING);
- IdFTP1.Quit;
- Exit;
- end;
- if IdFTP1.Connected then
- IdFTP1.Quit;
- ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
-end;
-
-procedure TfrmClothInfo.SetStatus();
-begin
-
-end;
-
-procedure TfrmClothInfo.InitTree();
-var
- i: Integer;
-begin
-
- with ADOQueryTree do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from BS_Cloth_Type');
- Open;
- end;
-
- SCreateCDS(ADOQueryTree, CDS_Tree);
- SInitCDSData(ADOQueryTree, CDS_Tree);
- cxDBTreeList1.Items[0].Expand(false);
-end;
-
-procedure TfrmClothInfo.InitGrid();
-var
- fwhere, MBCIID, Pwhere: string;
-begin
- Panel2.Visible := True;
- Panel2.Refresh;
- if not CDS_1.IsEmpty then
- MBCIID := Trim(CDS_1.FieldByName('BCIID').AsString)
- else
- MBCIID := '';
-
- Pwhere := SGetFilters(Panel1, 1, 2);
-
- if trim(Pwhere) <> '' then
- begin
- if fwhere <> '' then
- fwhere := fwhere + ' and ' + trim(Pwhere)
- else
- fwhere := ' where ' + trim(Pwhere);
- end;
- try
- ADOQueryMain.DisableControls;
-
- with ADOQueryMain do
- begin
- Close;
- Filtered := False;
- sql.Clear;
- sql.Add(' exec P_BS_CloInfo_Get ');
- sql.Add(' @CTID=' + quotedstr(Trim(CDS_Tree.fieldbyname('CTID').AsString)));
- sql.Add(',@pageIndex=' + inttostr(CurrentPage));
- sql.Add(',@pageSize=' + inttostr(RecordsNumber));
- sql.Add(',@criteria= ' + quotedstr(fwhere));
-// ShowMessage(sql.Text);
- Open;
- end;
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryMain, CDS_1);
- SInitCDSData(ADOQueryMain, CDS_1);
- TV1.DataController.Filter.Clear;
- LBCPAP1.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
-
- finally
- ADOQueryMain.EnableControls;
- TV1.DataController.Filter.Clear;
- end;
- Panel2.Visible := False;
-
- if MBCIID <> '' then
- CDS_1.Locate('BCIID', MBCIID, []);
-
-end;
-
-procedure TfrmClothInfo.FormClose(Sender: TObject; var Action: TCloseAction);
-var
- i, j: integer;
-begin
- inherited;
- j := length(Mach);
- if j > 0 then
- begin
- for i := 0 to j - 1 do
- begin
- Mach[i].free;
- end;
- end;
- SetLength(Mach, 0);
- Action := cafree;
-end;
-
-procedure TfrmClothInfo.TBCloseClick(Sender: TObject);
-begin
-
- if DirectoryExists(ExtractFileDir('D:\Right1209')) then
- winexec('cmd /c rd /s /q D:\Right1209', sw_hide);
- Close;
-end;
-
-procedure TfrmClothInfo.TBDelClick(Sender: TObject);
-begin
- if CDS_1.IsEmpty then
- Exit;
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
- Exit;
-
- while CDS_1.Locate('SSel', true, []) do
- begin
- if Trim(CDS_1.fieldbyname('BCIID').AsString) <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('delete BS_Cloth_Info where BCIID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + '''');
- ExecSQL;
- end;
- end;
- CDS_1.Delete;
- end;
-
-end;
-
-procedure TfrmClothInfo.FormShow(Sender: TObject);
-begin
- inherited;
- FJurisdiction := Self.fParameters1;
-
- ReadCxGrid(self.Caption + 'TV1', Tv1, 'Ʒ');
-
- if trim(FJurisdiction) <> '' then
- begin
- filler.text := trim(DName);
- filler.Enabled := false;
- end;
-
-
-// pnlreport.Top := FTop + 110;
- application.ProcessMessages;
-
- RecordsNumber := 500;
- CurrentPage := 1;
- InitTree();
- SetStatus();
- InitGrid();
-
-end;
-
-procedure TfrmClothInfo.cbbHXChange(Sender: TObject);
-begin
- InitImage();
-
-end;
-
-procedure TfrmClothInfo.cxDBTreeList1DblClick(Sender: TObject);
-begin
- InitGrid();
-end;
-
-procedure TfrmClothInfo.TBRafreshClick(Sender: TObject);
-begin
- InitTree();
- InitGrid();
-end;
-
-procedure TfrmClothInfo.TBFilterClick(Sender: TObject);
-begin
- if ADOQueryMain.Active then
- begin
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryMain, CDS_1);
- SInitCDSData(ADOQueryMain, CDS_1);
- end;
-
-end;
-
-procedure TfrmClothInfo.CYNoChange(Sender: TObject);
-begin
- //if Length(Trim(TEdit(Sender).Text))<4 then Exit;
- if ADOQueryMain.Active then
- begin
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryMain, CDS_1);
- SInitCDSData(ADOQueryMain, CDS_1);
- end;
-
-end;
-
-procedure TfrmClothInfo.TBExportClick(Sender: TObject);
-begin
- if CDS_1.IsEmpty then
- Exit;
- TcxGridToExcel(self.Caption, cxGrid1);
-end;
-
-procedure TfrmClothInfo.TBUPClick(Sender: TObject);
-begin
- try
- frmCloInfoFileUp := TfrmCloInfoFileUp.Create(Application);
- with frmCloInfoFileUp do
- begin
- Code.Text := Trim(Self.CDS_1.fieldbyname('C_Code').AsString);
- FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
- if ShowModal = 1 then
- begin
- Self.InitGrid();
-// Self.CDS_1.Locate('BCIID', BCIID, []);
- end;
- end;
- finally
- frmCloInfoFileUp.Free;
- end;
- InitImage();
-end;
-
-procedure TfrmClothInfo.ReadINIFile();
-var
- programIni: Tinifile; //ļ
- FileName: string;
-begin
- FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
- programIni := Tinifile.create(FileName);
- server := programIni.ReadString('SERVER', 'ַ', '127.0.0.1');
- programIni.Free;
-end;
-
-procedure TfrmClothInfo.InitImage();
-var
- i, j: integer;
- jpg: TJpegImage;
- myStream: TADOBlobStream;
-begin
-
- j := length(Mach);
- if j > 0 then
- begin
- for i := 0 to j - 1 do
- begin
- Mach[i].free;
- end;
- end;
- SetLength(Mach, 0);
- if CDS_1.IsEmpty then
- exit;
- try
- with adoqueryPicture do
- begin
- close;
- sql.Clear;
- sql.Add(' select A.TFID,A.WBID,A.FilesOther,A.FileName from TP_File A ');
- sql.add('where A.WBID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString)));
- if Trim(cbbHX.Text) <> '' then
- sql.add(' and A.HXName=' + quotedstr(trim(cbbHX.Text)));
-
- open;
- end;
- j := adoqueryPicture.RecordCount;
- if j < 1 then
- exit;
- adoqueryPicture.DisableControls;
- adoqueryPicture.First;
- SetLength(Mach, j);
- jpg := TJpegImage.Create();
- for i := 0 to j - 1 do
- begin
- if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
- begin
- myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
- jpg.LoadFromStream(myStream);
- Mach[i] := TfrmSlt.Create(Self);
- Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
- Mach[i].Parent := ScrollBox1;
- Mach[i].Left := 0 + i * 165;
- Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
- end;
- adoqueryPicture.Next;
- end;
- adoqueryPicture.EnableControls;
- finally
- jpg.free;
- application.ProcessMessages;
- end;
-end;
-
-procedure TfrmClothInfo.TBCopyClick(Sender: TObject);
-begin
- try
- frmClothInfoInput := TfrmClothInfoInput.Create(Application);
- with frmClothInfoInput do
- begin
- CopyInt := 1;
- FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
- FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
- if ShowModal = 1 then
- begin
- Self.InitGrid();
- end;
- end;
- finally
- frmClothInfoInput.Free;
- end;
-end;
-
-procedure TfrmClothInfo.C_CodeKeyPress(Sender: TObject; var Key: Char);
-begin
- if Key = #13 then
- begin
- CurrentPage := 1;
- InitGrid();
- end;
-end;
-
-procedure TfrmClothInfo.TBAddClick(Sender: TObject);
-var
- i: Integer;
- FieldName: string;
-begin
- try
- frmClothInfoInput := TfrmClothInfoInput.Create(Application);
- with frmClothInfoInput do
- begin
- CopyInt := 0;
- FBCIID := '';
- FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
-
- if ShowModal = 1 then
- begin
- Self.InitGrid();
- end;
- end;
- finally
- frmClothInfoInput.Free;
- end;
-end;
-
-procedure TfrmClothInfo.TBEditClick(Sender: TObject);
-begin
- if CDS_1.IsEmpty then
- Exit;
- try
- frmClothInfoInput := TfrmClothInfoInput.Create(Application);
- with frmClothInfoInput do
- begin
- CopyInt := 0;
- FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
- FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
- if ShowModal = 1 then
- begin
- Self.InitGrid();
- end;
- end;
- finally
- frmClothInfoInput.Free;
- end;
-end;
-
-procedure TfrmClothInfo.TextEdit(Sender: TObject);
-var
- mvalue, FFieldName: string;
-begin
-
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
- with CDS_1 do
- begin
- Edit;
- FieldByName(FFieldName).Value := mvalue;
- Post;
-
- end;
- if mvalue = '' then
- mvalue := '0';
-
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('update BS_Cloth_Info set ' + FFieldName + '=' + (Trim(mvalue)));
- sql.Add('where BCIID=' + quotedstr(Trim(CDS_1.fieldbyname('BCIID').AsString)));
- ExecSQL;
- end;
- Tv1.Controller.EditingController.ShowEdit();
-end;
-
-procedure TfrmClothInfo.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
-var
- fsj: string;
-begin
- fsj := 'select DISTINCT HXNAME name from TP_File where ISNULL(HXNAME,'''')<>'''' AND WBID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString));
-
- SInitComBoxBySql(ADOQueryTemp, cbbHX, True, fsj);
-
- InitImage();
-
- if CDS_1.IsEmpty then
- exit;
-
- with ADOQueryTemp do
- begin
- close;
- sql.Clear;
- sql.Add('select * from BS_Cloth_Info_Sub A ');
- sql.Add('where BCIID =' + quotedstr((CDS_1.fieldbyname('BCIID').AsString)));
-// ShowMessage(sql.text);
- open;
- end;
- SCreateCDS(ADOQueryTemp, CDS_2);
- SInitCDSData(ADOQueryTemp, CDS_2);
-
-end;
-
-procedure TfrmClothInfo.TBMLEditClick(Sender: TObject);
-var
- fYPType: string;
-begin
- if CDS_1.IsEmpty then
- exit;
- if CDS_1.Locate('ssel', true, []) = false then
- begin
- Application.MessageBox('ûѡ!', 'ʾ', 0);
- Exit;
- end;
- fYPType := '';
-
- frmYPTypeHelpCP := TfrmYPTypeHelpCP.create(self);
- with frmYPTypeHelpCP do
- begin
- if showmodal = 1 then
- begin
- fYPType := trim(ADOQueryHelp.fieldbyname('CTID').asstring);
- end;
- free;
- end;
-
- if trim(fYPType) = '' then
- exit;
-
- try
- with CDS_1 do
- begin
- DisableControls;
- First;
- while not eof do
- begin
- if fieldbyname('ssel').AsBoolean then
- begin
- with ADOQueryCmd do
- begin
- close;
- sql.Clear;
- sql.Add('update BS_Cloth_Info SET CTID=''' + trim(fYPType) + ''' ');
- sql.Add('where BCIID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString)));
- execsql;
- end;
- end;
- next;
- end;
- First;
- EnableControls;
- end;
- application.MessageBox('ɹ', 'ʾϢ');
- initgrid();
- except
- CDS_1.EnableControls;
- application.MessageBox('ʧܣ', 'ʾϢ', 0);
- end;
-end;
-
-procedure TfrmClothInfo.N1Click(Sender: TObject);
-begin
- SelOKNoFiler(Tv1, True);
-end;
-
-procedure TfrmClothInfo.N2Click(Sender: TObject);
-begin
- SelOKNoFiler(Tv1, False);
-end;
-
-procedure TfrmClothInfo.N3Click(Sender: TObject);
-begin
- Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
-end;
-
-procedure TfrmClothInfo.TCBNOR1Change(Sender: TObject);
-begin
- RecordsNumber := StrToInt(TCBNOR1.Text);
- CurrentPage := 1;
- C_Code.SetFocus;
- InitGrid();
-end;
-
-procedure TfrmClothInfo.HXNameBtnDnClick(Sender: TObject);
-begin
- TBtnEditC(Sender).Text := '';
- TBtnEditC(Sender).TxtCode := '';
-
-end;
-
-procedure TfrmClothInfo.HXNameBtnUpClick(Sender: TObject);
-begin
- try
- frmZDYHelp := TfrmZDYHelp.Create(Application);
- with frmZDYHelp do
- begin
- flag := 'HX' + Trim(Self.CDS_1.fieldbyname('CYNO').AsString);
- flagname := '';
- if ShowModal = 1 then
- begin
- TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
- end;
- end;
- finally
- frmZDYHelp.Free;
- end;
-end;
-
-procedure TfrmClothInfo.Button1Click(Sender: TObject);
-begin
- if CurrentPage > 1 then
- CurrentPage := CurrentPage - 1;
- InitGrid();
-end;
-
-procedure TfrmClothInfo.Button2Click(Sender: TObject);
-begin
- if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
- CurrentPage := CurrentPage + 1;
- InitGrid();
-end;
-
-procedure TfrmClothInfo.ToolButton1Click(Sender: TObject);
-begin
- try
- frmClothInfoInput := TfrmClothInfoInput.Create(Application);
- with frmClothInfoInput do
- begin
- CopyInt := 0;
- ToolButton1.Visible := False;
- FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
- FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
- if ShowModal = 1 then
- begin
- Self.InitGrid();
- end;
- end;
- finally
- frmClothInfoInput.Free;
- end;
-end;
-
-procedure TfrmClothInfo.ToolButton2Click(Sender: TObject);
-begin
- WriteCxGrid(self.Caption + 'TV1', Tv1, 'Ʒ');
-end;
-
-procedure TfrmClothInfo.ToolButton3Click(Sender: TObject);
-var
- WSql: string;
-begin
- if CDS_1.IsEmpty then
- Exit;
- Tv1.OnFocusedRecordChanged := nil;
- if CDS_1.Locate('SSel', True, []) = False then
- begin
- Tv1.OnFocusedRecordChanged := Tv1FocusedRecordChanged;
- Application.MessageBox('ûѡ!', 'ʾ', 0);
- Exit;
- end;
-
- WSql := '';
- CDS_1.DisableControls;
-
- with CDS_1 do
- begin
- First;
- while not Eof do
- begin
- if CDS_1.fieldbyname('SSel').AsBoolean then
- begin
- if WSql <> '' then
- begin
- WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString));
- end
- else
- begin
- WSql := QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString));
- end;
- end;
- Next;
- end;
- end;
-
- CDS_1.Locate('SSel', True, []);
- Tv1.OnFocusedRecordChanged := Tv1FocusedRecordChanged;
- CDS_1.EnableControls;
-
- try
- frmLabelPrint := TfrmLabelPrint.Create(Application);
- with frmLabelPrint do
- begin
- FLMType := 'ClothInfoPrint';
- FFiltration1 := WSql;
- if ShowModal = 1 then
- begin
-// Self.InitGrid();
- end;
- end;
- finally
- frmLabelPrint.Free;
- end;
-
-end;
-
-end.
-
diff --git a/A02基础产品管理11/U_ClothInfoInput.dfm b/A02基础产品管理11/U_ClothInfoInput.dfm
deleted file mode 100644
index 1971498..0000000
--- a/A02基础产品管理11/U_ClothInfoInput.dfm
+++ /dev/null
@@ -1,435 +0,0 @@
-object frmClothInfoInput: TfrmClothInfoInput
- Left = 459
- Top = 231
- Anchors = []
- Caption = #20135#21697#20449#24687#24405#20837
- ClientHeight = 507
- ClientWidth = 931
- Color = clWhite
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 12
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 931
- Height = 38
- AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 75
- Caption = 'ToolBar1'
- Color = clWhite
- DisabledImages = DataLink_ClothInfo.ImageList_new32
- Images = DataLink_ClothInfo.ImageList_new32
- List = True
- ParentColor = False
- ShowCaptions = True
- TabOrder = 0
- object ToolButton1: TToolButton
- Tag = 1
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #20445#23384
- ImageIndex = 16
- OnClick = ToolButton1Click
- end
- object TBClose: TToolButton
- Left = 71
- Top = 0
- AutoSize = True
- Caption = #20851#38381
- ImageIndex = 7
- OnClick = TBCloseClick
- end
- end
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 38
- Width = 931
- Height = 469
- Align = alClient
- AutoSize = True
- BevelInner = bvNone
- BevelOuter = bvNone
- Color = clWhite
- Ctl3D = False
- ParentColor = False
- ParentCtl3D = False
- TabOrder = 1
- object Label1: TLabel
- Left = 42
- Top = 41
- Width = 85
- Height = 16
- Caption = #20135#21697#32534#21495#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label5: TLabel
- Left = 402
- Top = 41
- Width = 85
- Height = 16
- Caption = #20135#21697#21517#31216#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label15: TLabel
- Left = 40
- Top = 85
- Width = 87
- Height = 16
- Caption = #38376' '#24133#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label22: TLabel
- Left = 400
- Top = 85
- Width = 87
- Height = 16
- Caption = #20811' '#37325#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 52
- Top = 7
- Width = 51
- Height = 16
- Caption = #26465#30721#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Visible = False
- end
- object Label6: TLabel
- Left = 400
- Top = 132
- Width = 87
- Height = 16
- Caption = #35268' '#26684#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label7: TLabel
- Left = 40
- Top = 132
- Width = 87
- Height = 16
- Caption = #25104' '#20998#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label8: TLabel
- Left = 40
- Top = 185
- Width = 87
- Height = 16
- Caption = #22791' '#27880#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object C_Code: TEdit
- Tag = 2
- Left = 129
- Top = 38
- Width = 240
- Height = 22
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnKeyPress = CYColorKeyPress
- end
- object C_Name: TEdit
- Tag = 2
- Left = 497
- Top = 38
- Width = 240
- Height = 22
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnKeyPress = CYColorKeyPress
- end
- object C_Width: TBtnEditC
- Tag = 2
- Left = 129
- Top = 80
- Width = 240
- Height = 25
- Hint = 'CYMF/'#38376#24133
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- OnBtnUpClick = C_WidthBtnUpClick
- OnBtnDnClick = C_WidthBtnDnClick
- end
- object C_GramWeight: TBtnEditC
- Tag = 2
- Left = 497
- Top = 81
- Width = 240
- Height = 25
- Hint = 'CYKZ/'#20811#37325
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnBtnUpClick = C_WidthBtnUpClick
- OnBtnDnClick = C_WidthBtnDnClick
- end
- object BCIID: TEdit
- Left = 109
- Top = 5
- Width = 218
- Height = 22
- Enabled = False
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- Visible = False
- end
- object C_Spec: TBtnEditC
- Tag = 2
- Left = 497
- Top = 128
- Width = 240
- Height = 25
- Hint = 'C_Spec/'#35268#26684
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- OnBtnUpClick = C_WidthBtnUpClick
- OnBtnDnClick = C_WidthBtnDnClick
- end
- object C_Composition: TBtnEditC
- Tag = 2
- Left = 129
- Top = 128
- Width = 240
- Height = 25
- Hint = 'CYCF/'#25104#20998
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- OnBtnUpClick = C_WidthBtnUpClick
- OnBtnDnClick = C_WidthBtnDnClick
- end
- object Note: TBtnEditC
- Tag = 2
- Left = 129
- Top = 180
- Width = 615
- Height = 25
- Hint = 'YPNote/'#22791#27880
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 7
- OnBtnUpClick = C_WidthBtnUpClick
- OnBtnDnClick = C_WidthBtnDnClick
- end
- object cxGrid1: TcxGrid
- Left = 0
- Top = 272
- Width = 929
- Height = 195
- Align = alBottom
- TabOrder = 8
- object TV1: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_1
- 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 TV1Column1: TcxGridDBColumn
- Caption = #39068#33394
- DataBinding.FieldName = 'C_Color'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 150
- end
- object TV1Column2: TcxGridDBColumn
- Caption = #33394#21495
- DataBinding.FieldName = 'C_ColorNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 150
- end
- object TV1Column3: TcxGridDBColumn
- Caption = #33457#22411
- DataBinding.FieldName = 'C_Pattern'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 150
- end
- object TV1Column4: TcxGridDBColumn
- Caption = #27454#21495
- DataBinding.FieldName = 'C_StyleNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 150
- end
- end
- object cxGridLevel2: TcxGridLevel
- GridView = TV1
- end
- end
- object ToolBar2: TToolBar
- Left = 0
- Top = 234
- Width = 929
- Height = 38
- Align = alBottom
- AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 75
- Caption = 'ToolBar1'
- Color = clWhite
- DisabledImages = DataLink_ClothInfo.ImageList_new32
- Images = DataLink_ClothInfo.ImageList_new32
- List = True
- ParentColor = False
- ShowCaptions = True
- TabOrder = 9
- object ToolButton3: TToolButton
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #22686#34892
- ImageIndex = 2
- OnClick = ToolButton3Click
- end
- object ToolButton4: TToolButton
- Left = 71
- Top = 0
- AutoSize = True
- Caption = #21024#34892
- ImageIndex = 6
- OnClick = ToolButton4Click
- end
- end
- end
- object ADOQueryMain: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 393
- Top = 1
- end
- object ADOQueryCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Parameters = <>
- Left = 476
- Top = 4
- end
- object ADOQueryTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 555
- Top = 4
- end
- object DS_1: TDataSource
- DataSet = CDS_1
- Left = 852
- Top = 353
- end
- object CDS_1: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 819
- Top = 349
- end
- object GPM_1: TcxGridPopupMenu
- Grid = cxGrid1
- PopupMenus = <>
- Left = 782
- Top = 349
- end
-end
diff --git a/A02基础产品管理11/U_ClothInfoInput.pas b/A02基础产品管理11/U_ClothInfoInput.pas
deleted file mode 100644
index 251894a..0000000
--- a/A02基础产品管理11/U_ClothInfoInput.pas
+++ /dev/null
@@ -1,433 +0,0 @@
-unit U_ClothInfoInput;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
- cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
- cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
- cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
- cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
- cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
- cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxSkinBasic, dxSkinBlack,
- dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom,
- dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
- dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
- dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
- dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
- dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
- dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
- dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
- dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
- dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
- dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
- dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
- dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
- dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
- dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
- dxSkinXmas2008Blue, dxScrollbarAnnotations;
-
-type
- TfrmClothInfoInput = class(TForm)
- ToolBar1: TToolBar;
- ToolButton1: TToolButton;
- TBClose: TToolButton;
- ADOQueryMain: TADOQuery;
- ADOQueryCmd: TADOQuery;
- ADOQueryTemp: TADOQuery;
- ScrollBox1: TScrollBox;
- Label1: TLabel;
- Label5: TLabel;
- Label15: TLabel;
- Label22: TLabel;
- Label3: TLabel;
- C_Code: TEdit;
- C_Name: TEdit;
- C_Width: TBtnEditC;
- C_GramWeight: TBtnEditC;
- BCIID: TEdit;
- Label6: TLabel;
- C_Spec: TBtnEditC;
- Label7: TLabel;
- C_Composition: TBtnEditC;
- Label8: TLabel;
- Note: TBtnEditC;
- cxGrid1: TcxGrid;
- TV1: TcxGridDBTableView;
- cxGridLevel2: TcxGridLevel;
- TV1Column1: TcxGridDBColumn;
- TV1Column2: TcxGridDBColumn;
- TV1Column3: TcxGridDBColumn;
- TV1Column4: TcxGridDBColumn;
- DS_1: TDataSource;
- CDS_1: TClientDataSet;
- GPM_1: TcxGridPopupMenu;
- ToolBar2: TToolBar;
- ToolButton3: TToolButton;
- ToolButton4: TToolButton;
- procedure FormShow(Sender: TObject);
- procedure ToolButton1Click(Sender: TObject);
- procedure CYColorKeyPress(Sender: TObject; var Key: Char);
- procedure CYJGGYBtnDnClick(Sender: TObject);
- procedure C_WidthBtnDnClick(Sender: TObject);
- procedure C_WidthBtnUpClick(Sender: TObject);
- procedure ToolButton3Click(Sender: TObject);
- procedure ToolButton4Click(Sender: TObject);
- procedure TBCloseClick(Sender: TObject);
- private
- canshu1: string;
- Fint: Integer;
- procedure InitGrid();
- function SaveData(): Boolean;
- { Private declarations }
- public
- FBCIID, FCTID: string;
- CopyInt: Integer;
-
- { Public declarations }
- end;
-
-var
- frmClothInfoInput: TfrmClothInfoInput;
-
-implementation
-
-uses
- U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload;
-
-{$R *.dfm}
-
-procedure TfrmClothInfoInput.InitGrid();
-begin
-
- try
- ADOQueryMain.DisableControls;
- with ADOQueryMain do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
- Open;
- end;
-
- SCSHData(ADOQueryMain, ScrollBox1, 2);
- SCSHData(ADOQueryMain, ScrollBox1, 0);
- finally
- ADOQueryMain.EnableControls;
- end;
-
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select A.* from BS_Cloth_Info_Sub A ');
- sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
- //ShowMessage(sql.text);
- Open;
- end;
- SCreateCDS(ADOQueryTemp, CDS_1);
- SInitCDSData(ADOQueryTemp, CDS_1);
-
-end;
-
-procedure TfrmClothInfoInput.FormShow(Sender: TObject);
-var
- maxno: string;
-begin
-
- InitGrid();
-
- if CopyInt = 1 then
- begin
- FBCIID := '';
- BCIID.text := '';
- C_Code.text := '';
-
- with CDS_1 do
- begin
- First;
- while not Eof do
- begin
- if GetLSNo(ADOQueryCmd, maxno, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then
- begin
- Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
- Exit;
- end;
-
- Edit;
- FieldByName('BCIID').Value := '';
- FieldByName('YSID').Value := maxno;
- Post;
- Next;
- end;
- end;
- end;
-
-end;
-
-function TfrmClothInfoInput.SaveData(): Boolean;
-var
- maxId, maxId2, maxno: string;
-begin
- try
- ADOQueryCmd.Connection.BeginTrans;
- if Trim(FBCIID) = '' then
- begin
- if GetLSNo(ADOQueryCmd, maxId, 'Y', 'BS_Cloth_Info', 4, 1) = False then
- begin
- Result := False;
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡʧܣ', 'ʾ', 0);
- Exit;
- end;
-
- BCIID.Text := trim(maxId);
- end
- else
- begin
- maxId := Trim(FBCIID);
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(FBCIID) = '' then
- begin
- Append;
- FieldByName('CTID').Value := Trim(FCTID);
- FieldByName('FILLID').Value := Trim(DCode);
- FieldByName('FILLER').Value := Trim(DName);
- FieldByName('FILLTIME').Value := SGetServerDateTime(ADOQueryTemp);
- end
- else
- begin
- Edit;
- FieldByName('EDITER').Value := Trim(DName);
- FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp);
- end;
- FieldByName('BCIID').Value := Trim(maxId);
- if trim(C_Code.Text) = '' then
- C_Code.Text := Trim(maxId);
- RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
- Post;
- end;
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
- Open;
- if FieldByName('AA').AsInteger > 1 then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Result := False;
- Application.MessageBox('ظ', 'ʾ', 0);
- Exit;
- end;
- end;
-
- ////////////////////////// ӱ //////////////////////////
- with CDS_1 do
- begin
- First;
- while not Eof do
- begin
- if Trim(CDS_1.fieldbyname('YSID').AsString) = '' then
- begin
- if GetLSNo(ADOQueryTemp, maxId2, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
- Exit;
- end;
- end
- else
- begin
- maxId2 := Trim(CDS_1.fieldbyname('YSID').AsString);
- end;
-
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add(' select * from BS_Cloth_Info_Sub where ');
- sql.Add(' YSID=''' + Trim(maxId2) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(CDS_1.fieldbyname('YSID').AsString) = '' then
- begin
- Append;
- FieldByName('FillID').Value := Trim(DCode);
- FieldByName('Filler').Value := Trim(DName);
- FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
- end
- else
- begin
- Edit;
- FieldByName('EditID').Value := Trim(DCode);
- FieldByName('Editer').Value := Trim(DName);
- FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
- end;
- FieldByName('BCIID').Value := Trim(maxId);
- FieldByName('YSId').Value := Trim(maxId2);
- RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Info_Sub', 0);
- Post;
- end;
- CDS_1.Edit;
- CDS_1.FieldByName('BCIID').Value := Trim(maxId);
- CDS_1.FieldByName('YSId').Value := Trim(maxId2);
-
- Next;
- end;
- end;
-
-////////////////////////// ӱ //////////////////////////
-
- ADOQueryCmd.Connection.CommitTrans;
- FBCIID := maxId;
- Result := True;
- except
- Result := False;
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ʧ!', 'ʾ', 0);
- end;
-end;
-
-procedure TfrmClothInfoInput.CYJGGYBtnDnClick(Sender: TObject);
-begin
- TBtnEditC(Sender).Text := '';
-end;
-
-procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject);
-begin
- Close;
-end;
-
-procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
-var
- MC_Code: string;
-begin
-
-// if C_Name.Text = '' then
-// begin
-// Application.MessageBox('ƷƲΪգ', 'ʾ', 0);
-// Exit;
-// end;
-
- if CDS_1.IsEmpty then
- begin
- Application.MessageBox('ɫΪգ', 'ʾ', 0);
- Exit;
- end;
-
- if trim(C_Code.Text) = '' then
- begin
-
- if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
- begin
- Application.MessageBox('ȡƷʧ!', 'ʾ', 0);
- Exit;
- end;
- C_Code.Text := MC_Code;
-
- end;
-
- if SaveData() then
- begin
- Application.MessageBox('ɹ', 'ʾ', 0);
- ModalResult := 1;
- end;
-end;
-
-procedure TfrmClothInfoInput.ToolButton3Click(Sender: TObject);
-var
- maxno: string;
-begin
-
- if GetLSNo(ADOQueryCmd, maxno, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then
- begin
- Application.MessageBox('ȡʧ!', 'ʾ', 0);
- Exit;
- end;
-
- CopyAddRow(Tv1, CDS_1);
-
- with CDS_1 do
- begin
- Edit;
- fieldbyname('YSID').Value := trim(maxno);
- Post;
- end;
-
-end;
-
-procedure TfrmClothInfoInput.ToolButton4Click(Sender: TObject);
-begin
- if CDS_1.IsEmpty then
- Exit;
-
- if Trim(CDS_1.fieldbyname('YSID').AsString) <> '' then
- begin
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
- Exit;
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('delete from BS_Cloth_Info_Sub where YSID=''' + Trim(CDS_1.fieldbyname('YSID').AsString) + '''');
- ExecSQL;
- end;
- end;
-
- CDS_1.Delete;
-
-end;
-
-procedure TfrmClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
-begin
- if Key = #13 then
- begin
- Key := #0;
- SelectNext(ActiveControl as TWinControl, True, True);
- end;
-end;
-
-procedure TfrmClothInfoInput.C_WidthBtnDnClick(Sender: TObject);
-begin
- TBtnEditC(Sender).Text := '';
- TBtnEditC(Sender).TxtCode := '';
-end;
-
-procedure TfrmClothInfoInput.C_WidthBtnUpClick(Sender: TObject);
-var
- fsj: string;
- FWZ: Integer;
-begin
- fsj := Trim(TEdit(Sender).Hint);
- FWZ := Pos('/', fsj);
- try
- frmZDYHelp := TfrmZDYHelp.Create(Application);
- with frmZDYHelp do
- begin
- flag := Copy(fsj, 1, FWZ - 1);
- flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
- if ShowModal = 1 then
- begin
- TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
- end;
- end;
- finally
- frmZDYHelp.Free;
- end;
-end;
-
-end.
-
diff --git a/A02基础产品管理11/U_ClothInfoInput_Tat.dfm b/A02基础产品管理11/U_ClothInfoInput_Tat.dfm
deleted file mode 100644
index 0749342..0000000
--- a/A02基础产品管理11/U_ClothInfoInput_Tat.dfm
+++ /dev/null
@@ -1,410 +0,0 @@
-object frmClothInfoInput_Tat: TfrmClothInfoInput_Tat
- Left = 459
- Top = 231
- Anchors = []
- Caption = #20135#21697#20449#24687#24405#20837
- ClientHeight = 243
- ClientWidth = 718
- Color = clWhite
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 12
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 718
- Height = 38
- AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 75
- Caption = 'ToolBar1'
- Color = clWhite
- DisabledImages = DataLink_ClothInfo.ImageList_new32
- Images = DataLink_ClothInfo.ImageList_new32
- List = True
- ParentColor = False
- ShowCaptions = True
- TabOrder = 0
- ExplicitWidth = 735
- object ToolButton1: TToolButton
- Tag = 1
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #20445#23384
- ImageIndex = 16
- OnClick = ToolButton1Click
- end
- object ToolButton6: TToolButton
- Left = 71
- Top = 0
- AutoSize = True
- Caption = #38468#20214
- ImageIndex = 22
- OnClick = ToolButton6Click
- end
- object TBClose: TToolButton
- Left = 142
- Top = 0
- AutoSize = True
- Caption = #20851#38381
- ImageIndex = 7
- OnClick = TBCloseClick
- end
- end
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 38
- Width = 718
- Height = 205
- Align = alClient
- AutoSize = True
- BevelInner = bvNone
- BevelOuter = bvNone
- Color = clWhite
- Ctl3D = False
- ParentColor = False
- ParentCtl3D = False
- TabOrder = 1
- ExplicitTop = 44
- ExplicitWidth = 735
- ExplicitHeight = 267
- object Label1: TLabel
- Left = 31
- Top = 33
- Width = 65
- Height = 12
- Caption = #20135#21697#32534#21495#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label5: TLabel
- Left = 362
- Top = 33
- Width = 65
- Height = 12
- Caption = #20135#21697#21517#31216#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label15: TLabel
- Left = 29
- Top = 64
- Width = 67
- Height = 12
- Caption = #38376' '#24133#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label22: TLabel
- Left = 360
- Top = 64
- Width = 67
- Height = 12
- Caption = #20811' '#37325#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 360
- Top = 156
- Width = 67
- Height = 12
- Caption = #22836' '#32441#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 29
- Top = 93
- Width = 67
- Height = 12
- Caption = #32428' '#23494#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 46
- Top = 302
- Width = 51
- Height = 16
- Caption = #26465#30721#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Visible = False
- end
- object Label12: TLabel
- Left = 360
- Top = 93
- Width = 67
- Height = 12
- Caption = #32463' '#23494#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 29
- Top = 156
- Width = 67
- Height = 12
- Caption = #31576' '#21495#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label7: TLabel
- Left = 31
- Top = 125
- Width = 65
- Height = 12
- Caption = #32428#32433#35268#26684#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label8: TLabel
- Left = 362
- Top = 125
- Width = 65
- Height = 12
- Caption = #32463#32433#35268#26684#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object C_Code: TEdit
- Tag = 2
- Left = 93
- Top = 30
- Width = 234
- Height = 18
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnKeyPress = CYColorKeyPress
- end
- object C_Name: TEdit
- Tag = 2
- Left = 426
- Top = 30
- Width = 234
- Height = 18
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnKeyPress = CYColorKeyPress
- end
- object C_EphalicStria: TEdit
- Tag = 2
- Left = 426
- Top = 153
- Width = 234
- Height = 18
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- end
- object C_FinishLatitudeDensity: TEdit
- Tag = 2
- Left = 93
- Top = 90
- Width = 234
- Height = 18
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- end
- object C_Width: TBtnEditC
- Tag = 2
- Left = 93
- Top = 60
- Width = 234
- Height = 20
- Hint = 'CYMF/'#38376#24133
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- OnBtnUpClick = C_WidthBtnUpClick
- OnBtnDnClick = C_WidthBtnDnClick
- end
- object C_GramWeight: TBtnEditC
- Tag = 2
- Left = 426
- Top = 60
- Width = 234
- Height = 20
- Hint = 'CYKZ/'#20811#37325
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnBtnUpClick = C_WidthBtnUpClick
- OnBtnDnClick = C_WidthBtnDnClick
- end
- object C_FinishLongitudeDensity: TEdit
- Tag = 2
- Left = 426
- Top = 90
- Width = 234
- Height = 18
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- OnKeyPress = CYColorKeyPress
- end
- object BCIID: TEdit
- Left = 103
- Top = 300
- Width = 218
- Height = 22
- Enabled = False
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 7
- Visible = False
- end
- object C_LatitudeSpec: TEdit
- Tag = 2
- Left = 93
- Top = 122
- Width = 234
- Height = 18
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 8
- end
- object C_LongitudeSpec: TEdit
- Tag = 2
- Left = 426
- Top = 122
- Width = 234
- Height = 18
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 9
- OnKeyPress = CYColorKeyPress
- end
- object C_ReedNo: TEdit
- Tag = 2
- Left = 93
- Top = 152
- Width = 234
- Height = 18
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 10
- end
- end
- object ADOQueryMain: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 421
- Top = 9
- end
- object ADOQueryCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Parameters = <>
- Left = 505
- Top = 9
- end
- object ADOQueryTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 613
- Top = 17
- end
-end
diff --git a/A02基础产品管理11/U_ClothInfoInput_Tat.pas b/A02基础产品管理11/U_ClothInfoInput_Tat.pas
deleted file mode 100644
index e1ae143..0000000
--- a/A02基础产品管理11/U_ClothInfoInput_Tat.pas
+++ /dev/null
@@ -1,348 +0,0 @@
-unit U_ClothInfoInput_Tat;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
- cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
- cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
- cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
- cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
- cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
- cxNavigator, dxDateRanges, dxBarBuiltInMenu;
-
-type
- TfrmClothInfoInput_Tat = class(TForm)
- ToolBar1: TToolBar;
- ToolButton1: TToolButton;
- TBClose: TToolButton;
- ADOQueryMain: TADOQuery;
- ADOQueryCmd: TADOQuery;
- ADOQueryTemp: TADOQuery;
- ScrollBox1: TScrollBox;
- Label1: TLabel;
- Label5: TLabel;
- Label15: TLabel;
- Label22: TLabel;
- Label2: TLabel;
- Label4: TLabel;
- Label3: TLabel;
- C_Code: TEdit;
- C_Name: TEdit;
- C_EphalicStria: TEdit;
- C_FinishLatitudeDensity: TEdit;
- C_Width: TBtnEditC;
- C_GramWeight: TBtnEditC;
- Label12: TLabel;
- C_FinishLongitudeDensity: TEdit;
- ToolButton6: TToolButton;
- BCIID: TEdit;
- Label6: TLabel;
- Label7: TLabel;
- Label8: TLabel;
- C_LatitudeSpec: TEdit;
- C_LongitudeSpec: TEdit;
- C_ReedNo: TEdit;
- procedure FormShow(Sender: TObject);
- procedure TBCloseClick(Sender: TObject);
- procedure ToolButton1Click(Sender: TObject);
- procedure CYColorKeyPress(Sender: TObject; var Key: Char);
- procedure CYKZExit(Sender: TObject);
- procedure CYMFExit(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure CYJGGYBtnDnClick(Sender: TObject);
- procedure C_WidthBtnDnClick(Sender: TObject);
- procedure C_WidthBtnUpClick(Sender: TObject);
- procedure ToolButton6Click(Sender: TObject);
- private
- canshu1: string;
- Fint: Integer;
- procedure InitGrid();
- function SaveData(): Boolean;
- { Private declarations }
- public
- FBCIID, FCTID: string;
- CopyInt: Integer;
-
- { Public declarations }
- end;
-
-var
- frmClothInfoInput_Tat: TfrmClothInfoInput_Tat;
-
-implementation
-
-uses
- U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload;
-
-{$R *.dfm}
-
-procedure TfrmClothInfoInput_Tat.InitGrid();
-begin
-
- try
- ADOQueryMain.DisableControls;
- with ADOQueryMain do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
- Open;
- end;
-
- SCSHData(ADOQueryMain, ScrollBox1, 2);
- SCSHData(ADOQueryMain, ScrollBox1, 0);
- finally
- ADOQueryMain.EnableControls;
- end;
-
-end;
-
-procedure TfrmClothInfoInput_Tat.FormShow(Sender: TObject);
-begin
- InitGrid();
- if CopyInt = 1 then
- begin
- FBCIID := '';
- BCIID.text := '';
- C_Code.text := '';
-
- end;
-// if C_Code.text = '' then
-// begin
-// with ADOQueryTemp do
-// begin
-// Close;
-// sql.Clear;
-// sql.Add(' exec P_YP_Get_CPBH ');
-// sql.Add('@CTID=' + quotedstr(Trim(FCTID)));
-//
-// Open;
-// end;
-// end;
-// if trim(C_Code.Text) = '' then
-// begin
-// with ADOQueryTemp do
-// begin
-// Close;
-// sql.Clear;
-// sql.Add(' exec P_YP_Get_No @Str=''CP'' ');
-// Open;
-// end;
-// C_Code.Text := trim(ADOQueryTemp.FieldByName('NewC_Code').asstring);
-// end;
-
-// if FCPName = '֯' then
-// begin
-// CYPUnit.text := 'KG';
-// end;
-// if FCPName = '֯' then
-// begin
-// CYPUnit.text := 'M';
-// end;
-
-end;
-
-procedure TfrmClothInfoInput_Tat.TBCloseClick(Sender: TObject);
-begin
- Close;
-end;
-
-function TfrmClothInfoInput_Tat.SaveData(): Boolean;
-var
- maxId, maxno: string;
-begin
- try
- ADOQueryCmd.Connection.BeginTrans;
- if Trim(FBCIID) = '' then
- begin
- if GetLSNo(ADOQueryCmd, maxId, 'Y', 'BS_Cloth_Info', 4, 1) = False then
- begin
- Result := False;
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡʧܣ', 'ʾ', 0);
- Exit;
- end;
-
- BCIID.Text := trim(maxId);
- end
- else
- begin
- maxId := Trim(FBCIID);
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(FBCIID) = '' then
- begin
- Append;
- FieldByName('CTID').Value := Trim(FCTID);
- FieldByName('FILLID').Value := Trim(DCode);
- FieldByName('FILLER').Value := Trim(DName);
- FieldByName('FILLTIME').Value := SGetServerDateTime(ADOQueryTemp);
- end
- else
- begin
- Edit;
- FieldByName('EDITER').Value := Trim(DName);
- FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp);
- end;
- FieldByName('BCIID').Value := Trim(maxId);
- if trim(C_Code.Text) = '' then
- C_Code.Text := Trim(maxId);
- RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
- Post;
- end;
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
- Open;
- if FieldByName('AA').AsInteger > 1 then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Result := False;
- Application.MessageBox('ظ', 'ʾ', 0);
- Exit;
- end;
- end;
-
- ADOQueryCmd.Connection.CommitTrans;
- FBCIID := maxId;
- Result := True;
- except
- Result := False;
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ʧ!', 'ʾ', 0);
- end;
-end;
-
-procedure TfrmClothInfoInput_Tat.CYJGGYBtnDnClick(Sender: TObject);
-begin
- TBtnEditC(Sender).Text := '';
-end;
-
-procedure TfrmClothInfoInput_Tat.ToolButton1Click(Sender: TObject);
-var
- MC_Code: string;
-begin
- if C_Name.Text = '' then
- begin
- Application.MessageBox('ƷƲΪգ', 'ʾ', 0);
- Exit;
- end;
- if trim(C_Code.Text) = '' then
- begin
-
- if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
- begin
- Application.MessageBox('ȡƷʧ!', 'ʾ', 0);
- Exit;
- end;
- C_Code.Text := MC_Code;
-
- end;
-
- if SaveData() then
- begin
- Application.MessageBox('ɹ', 'ʾ', 0);
- ModalResult := 1;
- end;
-end;
-
-procedure TfrmClothInfoInput_Tat.CYColorKeyPress(Sender: TObject; var Key: Char);
-begin
- if Key = #13 then
- begin
- Key := #0;
- SelectNext(ActiveControl as TWinControl, True, True);
- end;
-end;
-
-procedure TfrmClothInfoInput_Tat.CYKZExit(Sender: TObject);
-begin
-// if pos('G/M2', trim(CYKZ.Text)) = 0 then
-// begin
-// if pos('G/M', trim(CYKZ.Text)) = 0 then
-// begin
-// CYKZ.Text := trim(CYKZ.Text) + 'G/M2';
-// end;
-// end;
-end;
-
-procedure TfrmClothInfoInput_Tat.C_WidthBtnDnClick(Sender: TObject);
-begin
- TBtnEditC(Sender).Text := '';
- TBtnEditC(Sender).TxtCode := '';
-end;
-
-procedure TfrmClothInfoInput_Tat.C_WidthBtnUpClick(Sender: TObject);
-var
- fsj: string;
- FWZ: Integer;
-begin
- fsj := Trim(TEdit(Sender).Hint);
- FWZ := Pos('/', fsj);
- try
- frmZDYHelp := TfrmZDYHelp.Create(Application);
- with frmZDYHelp do
- begin
- flag := Copy(fsj, 1, FWZ - 1);
- flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
- if ShowModal = 1 then
- begin
- TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
- end;
- end;
- finally
- frmZDYHelp.Free;
- end;
-end;
-
-procedure TfrmClothInfoInput_Tat.CYMFExit(Sender: TObject);
-begin
-// if pos('"', trim(CYMF.Text)) = 0 then
-// begin
-// if pos('CM', trim(CYMF.Text)) = 0 then
-// CYMF.Text := trim(CYMF.Text) + 'CM';
-// end;
-
-end;
-
-procedure TfrmClothInfoInput_Tat.FormCreate(Sender: TObject);
-begin
-
-// LaYangDate.DateTime := SGetServerDateTime(ADOQueryTemp);
-end;
-
-procedure TfrmClothInfoInput_Tat.ToolButton6Click(Sender: TObject);
-begin
- if trim(C_Code.Text) = '' then
- Exit;
- try
- frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
- with frmAttachmentUpload do
- begin
- FEditAuthority := True;
- fkeyNO := trim(C_Code.Text);
- fType := 'Ʒ';
- if ShowModal = 1 then
- begin
-
- end;
- end;
- finally
- frmAttachmentUpload.Free;
- end;
-end;
-
-end.
-
diff --git a/A02基础产品管理11/U_ClothInfo_Tat.dfm b/A02基础产品管理11/U_ClothInfo_Tat.dfm
deleted file mode 100644
index 9628826..0000000
--- a/A02基础产品管理11/U_ClothInfo_Tat.dfm
+++ /dev/null
@@ -1,846 +0,0 @@
-inherited frmClothInfo_Tat: TfrmClothInfo_Tat
- Left = 117
- Top = 154
- Caption = #26797#32455#20135#21697#26723#26696
- ClientHeight = 702
- ClientWidth = 1444
- FormStyle = fsMDIChild
- Position = poScreenCenter
- Visible = True
- ExplicitWidth = 1460
- ExplicitHeight = 741
- PixelsPerInch = 96
- TextHeight = 12
- object ToolBar1: TToolBar [0]
- Tag = 1
- Left = 0
- Top = 0
- Width = 1444
- Height = 38
- AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 91
- Caption = 'ToolBar1'
- Color = clSkyBlue
- DisabledImages = DataLink_ClothInfo.ImageList_new32
- Images = DataLink_ClothInfo.ImageList_new32
- List = True
- ParentColor = False
- ShowCaptions = True
- TabOrder = 0
- object TBRafresh: TToolButton
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #21047#26032
- ImageIndex = 1
- OnClick = TBRafreshClick
- end
- object TBFilter: TToolButton
- Left = 71
- Top = 0
- AutoSize = True
- Caption = #36807#28388
- ImageIndex = 0
- OnClick = TBFilterClick
- end
- object TBAdd: TToolButton
- Left = 142
- Top = 0
- AutoSize = True
- Caption = #26032#22686
- ImageIndex = 9
- OnClick = TBAddClick
- end
- object ToolButton1: TToolButton
- Left = 213
- Top = 0
- AutoSize = True
- Caption = #26597#30475
- ImageIndex = 4
- OnClick = ToolButton1Click
- end
- object TBCopy: TToolButton
- Left = 284
- Top = 0
- AutoSize = True
- Caption = #22797#21046
- ImageIndex = 13
- OnClick = TBCopyClick
- end
- object TBEdit: TToolButton
- Left = 355
- Top = 0
- AutoSize = True
- Caption = #20462#25913
- ImageIndex = 3
- OnClick = TBEditClick
- end
- object TBMLEdit: TToolButton
- Left = 426
- Top = 0
- AutoSize = True
- Caption = #30446#24405#20462#25913
- ImageIndex = 3
- OnClick = TBMLEditClick
- end
- object TBDel: TToolButton
- Left = 521
- Top = 0
- AutoSize = True
- Caption = #21024#38500
- ImageIndex = 5
- OnClick = TBDelClick
- end
- object ToolButton3: TToolButton
- Left = 592
- Top = 0
- AutoSize = True
- Caption = #26631#31614#25171#21360
- ImageIndex = 21
- OnClick = ToolButton3Click
- end
- object TBExport: TToolButton
- Left = 687
- Top = 0
- AutoSize = True
- Caption = #23548#20986
- ImageIndex = 20
- OnClick = TBExportClick
- end
- object TBUP: TToolButton
- Left = 758
- Top = 0
- AutoSize = True
- Caption = #22270#29255#19978#20256
- ImageIndex = 19
- OnClick = TBUPClick
- end
- object ToolButton2: TToolButton
- Left = 853
- Top = 0
- AutoSize = True
- Caption = #20445#23384#26684#24335
- ImageIndex = 16
- OnClick = ToolButton2Click
- end
- object TBClose: TToolButton
- Left = 948
- Top = 0
- AutoSize = True
- Caption = #20851#38381
- ImageIndex = 7
- OnClick = TBCloseClick
- end
- end
- object cxSplitter1: TcxSplitter [1]
- Left = 220
- Top = 83
- Width = 8
- Height = 619
- HotZoneClassName = 'TcxMediaPlayer9Style'
- Control = Panel5
- end
- object Panel1: TPanel [2]
- Left = 0
- Top = 38
- Width = 1444
- Height = 45
- Align = alTop
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Color = 16242829
- ParentBackground = False
- TabOrder = 1
- object Label3: TLabel
- Left = 42
- Top = 15
- Width = 48
- Height = 12
- Caption = #20135#21697#32534#21495
- end
- object Label11: TLabel
- Left = 1072
- Top = 107
- Width = 7
- Height = 12
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label12: TLabel
- Left = 1120
- Top = 111
- Width = 7
- Height = 12
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 199
- Top = 15
- Width = 48
- Height = 12
- Caption = #20135#21697#21517#31216
- end
- object Label9: TLabel
- Left = 509
- Top = 15
- Width = 24
- Height = 12
- Caption = #20811#37325
- end
- object Label8: TLabel
- Left = 357
- Top = 15
- Width = 24
- Height = 12
- Caption = #38376#24133
- end
- object C_Code: TEdit
- Tag = 2
- Left = 91
- Top = 11
- Width = 89
- Height = 20
- TabOrder = 0
- OnKeyPress = C_CodeKeyPress
- end
- object C_Name: TEdit
- Tag = 2
- Left = 248
- Top = 11
- Width = 89
- Height = 20
- TabOrder = 1
- OnKeyPress = C_CodeKeyPress
- end
- object C_GramWeight: TEdit
- Tag = 2
- Left = 536
- Top = 11
- Width = 89
- Height = 20
- TabOrder = 3
- OnKeyPress = C_CodeKeyPress
- end
- object C_Width: TEdit
- Tag = 2
- Left = 384
- Top = 11
- Width = 89
- Height = 20
- TabOrder = 2
- OnKeyPress = C_CodeKeyPress
- end
- end
- object Panel2: TPanel [3]
- Left = 512
- Top = 232
- Width = 185
- Height = 41
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
- Color = clSkyBlue
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- Visible = False
- end
- object Panel5: TPanel [4]
- Left = 0
- Top = 83
- Width = 220
- Height = 619
- Align = alLeft
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 2
- object cxDBTreeList1: TcxDBTreeList
- Left = 2
- Top = 2
- Width = 216
- Height = 615
- Align = alClient
- Bands = <
- item
- end>
- DataController.DataSource = DS_Tree
- DataController.ParentField = 'CTParent'
- DataController.KeyField = 'CTID'
- Navigator.Buttons.CustomButtons = <>
- OptionsBehavior.CopyCaptionsToClipboard = False
- OptionsBehavior.ExpandOnDblClick = False
- OptionsSelection.CellSelect = False
- OptionsView.CellAutoHeight = True
- OptionsView.Headers = False
- RootValue = -1
- Styles.Inactive = DataLink_ClothInfo.Red
- Styles.Selection = DataLink_ClothInfo.Red
- Styles.IncSearch = DataLink_ClothInfo.Red
- TabOrder = 0
- OnDblClick = cxDBTreeList1DblClick
- object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
- DataBinding.FieldName = 'CTName'
- Width = 210
- Position.ColIndex = 0
- Position.RowIndex = 0
- Position.BandIndex = 0
- Summary.FooterSummaryItems = <>
- Summary.GroupFooterSummaryItems = <>
- end
- end
- end
- object Panel3: TPanel [5]
- Left = 228
- Top = 83
- Width = 1216
- Height = 619
- Align = alClient
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Panel3'
- TabOrder = 4
- object cxGrid1: TcxGrid
- Left = 2
- Top = 42
- Width = 1212
- Height = 370
- Align = alClient
- PopupMenu = PM_1
- TabOrder = 0
- ExplicitLeft = 6
- ExplicitTop = 41
- object Tv1: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- Navigator.Buttons.Delete.Enabled = False
- Navigator.Buttons.Delete.Visible = False
- OnFocusedRecordChanged = Tv1FocusedRecordChanged
- DataController.DataSource = DS_1
- DataController.Filter.AutoDataSetFilter = True
- DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsCustomize.ColumnFiltering = False
- OptionsData.Deleting = False
- OptionsData.DeletingConfirmation = False
- OptionsView.GroupByBox = False
- Styles.IncSearch = DataLink_ClothInfo.SHuangSe
- Styles.Header = DataLink_ClothInfo.Default
- Styles.Inactive = DataLink_ClothInfo.SHuangSe
- Styles.Selection = DataLink_ClothInfo.SHuangSe
- object v1SSel: TcxGridDBColumn
- Caption = #36873#25321
- DataBinding.FieldName = 'SSel'
- PropertiesClassName = 'TcxCheckBoxProperties'
- HeaderAlignmentHorz = taCenter
- Styles.Header = DataLink_ClothInfo.Default
- Width = 41
- end
- object v1Column12: TcxGridDBColumn
- Caption = #31867#21035
- DataBinding.FieldName = 'CTName'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Styles.Header = DataLink_ClothInfo.Default
- Width = 70
- end
- object v1CYNo: TcxGridDBColumn
- Caption = #20135#21697#32534#21495
- DataBinding.FieldName = 'C_Code'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Styles.Header = DataLink_ClothInfo.Default
- Width = 92
- end
- object v1Column9: TcxGridDBColumn
- Caption = #20135#21697#21517#31216
- DataBinding.FieldName = 'C_Name'
- HeaderAlignmentHorz = taCenter
- Width = 96
- end
- object v1Column3: TcxGridDBColumn
- Caption = #38376#24133
- DataBinding.FieldName = 'C_Width'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Styles.Header = DataLink_ClothInfo.Default
- Width = 66
- end
- object v1Column1: TcxGridDBColumn
- Caption = #20811#37325
- DataBinding.FieldName = 'C_GramWeight'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 81
- end
- object Tv1Column11: TcxGridDBColumn
- Caption = #32428#23494
- DataBinding.FieldName = 'C_FinishLatitudeDensity'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column3: TcxGridDBColumn
- Caption = #32463#23494
- DataBinding.FieldName = 'C_FinishLongitudeDensity'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 80
- end
- object Tv1Column2: TcxGridDBColumn
- Caption = #32428#32433#35268#26684
- DataBinding.FieldName = 'C_LatitudeSpec'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 80
- end
- object Tv1Column1: TcxGridDBColumn
- Caption = #32463#32433#35268#26684
- DataBinding.FieldName = 'C_LongitudeSpec'
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv1Column4: TcxGridDBColumn
- Caption = #31576#21495
- DataBinding.FieldName = 'C_ReedNo'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 80
- end
- object Tv1Column8: TcxGridDBColumn
- Caption = #22836#32441
- DataBinding.FieldName = 'C_EphalicStria'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 80
- end
- object v1Column11: TcxGridDBColumn
- Caption = #22270#29255
- DataBinding.FieldName = 'IsImg'
- PropertiesClassName = 'TcxCheckBoxProperties'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 57
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #22635#21333#20154
- DataBinding.FieldName = 'filler'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 71
- end
- object Tv1Column6: TcxGridDBColumn
- Caption = #20462#25913#20154
- DataBinding.FieldName = 'editer'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 68
- end
- object Tv1Column7: TcxGridDBColumn
- Caption = #20462#25913#26102#38388
- DataBinding.FieldName = 'edittime'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 67
- end
- object Tv1Column9: TcxGridDBColumn
- Caption = #24405#20837#26102#38388
- DataBinding.FieldName = 'FILLTIME'
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- end
- object cxGrid1Level1: TcxGridLevel
- GridView = Tv1
- end
- end
- object Panel7: TPanel
- Left = 2
- Top = 2
- Width = 1212
- Height = 40
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 1212
- Height = 40
- Align = alClient
- AutoSize = True
- TabOrder = 0
- DesignSize = (
- 1212
- 40)
- object Label14: TLabel
- Left = 19
- Top = 13
- Width = 84
- Height = 13
- Alignment = taCenter
- Anchors = [akLeft]
- Caption = #27599#39029#35760#24405#26465#25968
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Layout = tlCenter
- end
- object LBCPAP1: TLabel
- Left = 276
- Top = 9
- Width = 85
- Height = 21
- Alignment = taCenter
- Anchors = [akLeft]
- AutoSize = False
- Caption = #24403#21069#39029'/'#24635#39029#25968
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Layout = tlCenter
- end
- object Button1: TButton
- Left = 195
- Top = 8
- Width = 75
- Height = 23
- Anchors = [akLeft]
- Caption = #19978#19968#39029
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 367
- Top = 9
- Width = 78
- Height = 22
- Anchors = [akLeft]
- Caption = #19979#19968#39029
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnClick = Button2Click
- end
- object TCBNOR1: TComboBox
- Tag = 2
- Left = 111
- Top = 10
- Width = 78
- Height = 20
- Anchors = [akLeft]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ItemIndex = 2
- ParentFont = False
- TabOrder = 2
- Text = '500'
- OnChange = TCBNOR1Change
- Items.Strings = (
- '100'
- '300'
- '500'
- '1000'
- '5000'
- '10000')
- end
- end
- end
- object Panel9: TPanel
- Left = 2
- Top = 412
- Width = 1212
- Height = 205
- Align = alBottom
- Caption = 'Panel9'
- TabOrder = 2
- object Panel10: TPanel
- Left = 1
- Top = 1
- Width = 1210
- Height = 203
- Align = alClient
- Caption = 'Panel9'
- TabOrder = 0
- object GroupBox1: TGroupBox
- Left = 1
- Top = 42
- Width = 1208
- Height = 160
- Align = alClient
- Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
- TabOrder = 0
- object ScrollBox1: TScrollBox
- Left = 2
- Top = 14
- Width = 1204
- Height = 144
- Align = alClient
- BevelInner = bvLowered
- BorderStyle = bsNone
- TabOrder = 0
- end
- end
- object Panel11: TPanel
- Left = 1
- Top = 1
- Width = 1208
- Height = 41
- Align = alTop
- TabOrder = 1
- DesignSize = (
- 1208
- 41)
- object Label7: TLabel
- Left = 33
- Top = 8
- Width = 88
- Height = 21
- Caption = #33457#22411#36873#25321
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -21
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object cbbHX: TComboBox
- Left = 368
- Top = 3
- Width = 210
- Height = 32
- Style = csDropDownList
- Anchors = []
- Color = clWhite
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -24
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = cbbHXChange
- Items.Strings = (
- #33457#22411)
- end
- end
- end
- end
- end
- inherited ADOQueryBaseCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Left = 161
- Top = 240
- end
- inherited ADOQueryBaseTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Left = 57
- Top = 241
- end
- object DS_Tree: TDataSource
- DataSet = CDS_Tree
- Left = 155
- Top = 131
- end
- object ADOQueryTree: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 53
- Top = 137
- end
- object ADOQueryTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 899
- Top = 192
- end
- object ADOQueryCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Parameters = <>
- Left = 997
- Top = 197
- end
- object GPM_1: TcxGridPopupMenu
- Grid = cxGrid1
- PopupMenus = <>
- Left = 888
- Top = 360
- end
- object DS_1: TDataSource
- DataSet = CDS_1
- Left = 1043
- Top = 395
- end
- object ADOQueryMain: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 1061
- Top = 201
- end
- object CDS_1: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 960
- Top = 408
- end
- object RM1: TRMGridReport
- ThreadPrepareReport = True
- InitialZoom = pzDefault
- PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
- DefaultCollate = False
- ShowPrintDialog = False
- SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
- PreviewOptions.RulerUnit = rmutScreenPixels
- PreviewOptions.RulerVisible = False
- PreviewOptions.DrawBorder = False
- PreviewOptions.BorderPen.Color = clGray
- PreviewOptions.BorderPen.Style = psDash
- Dataset = RMDB_Main
- CompressLevel = rmzcFastest
- CompressThread = False
- LaterBuildEvents = True
- OnlyOwnerDataSet = False
- Left = 312
- Top = 216
- ReportData = {}
- end
- object RMDB_Main: TRMDBDataSet
- Visible = True
- DataSet = ADOQueryPrint
- Left = 952
- Top = 296
- end
- object ODPat: TOpenDialog
- Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
- Left = 324
- Top = 285
- end
- object IdFTP1: TIdFTP
- ConnectTimeout = 0
- NATKeepAlive.UseKeepAlive = False
- NATKeepAlive.IdleTimeMS = 0
- NATKeepAlive.IntervalMS = 0
- ProxySettings.ProxyType = fpcmNone
- ProxySettings.Port = 0
- ReadTimeout = 0
- Left = 381
- Top = 380
- end
- object SaveDialog1: TSaveDialog
- Left = 385
- Top = 285
- end
- object DSCYNO: TDataSource
- DataSet = CDS_CYNO
- Left = 499
- Top = 299
- end
- object CDS_CYNO: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 496
- Top = 240
- end
- object adoqueryPicture: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Parameters = <>
- Left = 299
- Top = 360
- end
- object OpenDialog1: TOpenDialog
- Left = 458
- Top = 354
- end
- object PM_1: TPopupMenu
- Left = 1160
- Top = 352
- object N1: TMenuItem
- Caption = #20840#36873
- OnClick = N1Click
- end
- object N2: TMenuItem
- Caption = #20840#24323
- OnClick = N2Click
- end
- object N3: TMenuItem
- Caption = #22797#21046
- OnClick = N3Click
- end
- end
- object RMBarCodeObject1: TRMBarCodeObject
- Left = 1052
- Top = 296
- end
- object DataSource3: TDataSource
- DataSet = CDS_Sub
- Left = 1019
- Top = 627
- end
- object CDS_Sub: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 1024
- Top = 688
- end
- object cxGridPopupMenu2: TcxGridPopupMenu
- PopupMenus = <>
- Left = 928
- Top = 688
- end
- object CDS_Tree: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 96
- Top = 136
- end
- object ADOQueryPrint: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 875
- Top = 296
- end
- object CDS_Label: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 520
- Top = 426
- end
-end
diff --git a/A02基础产品管理11/U_ClothInfo_Tat.pas b/A02基础产品管理11/U_ClothInfo_Tat.pas
deleted file mode 100644
index 6212cb7..0000000
--- a/A02基础产品管理11/U_ClothInfo_Tat.pas
+++ /dev/null
@@ -1,822 +0,0 @@
-unit U_ClothInfo_Tat;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
- cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
- cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
- cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
- cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
- cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
- RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
- IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, jpeg, U_SLT, ComObj, Menus,
- cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator,
- dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters,
- dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer,
- dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils;
-
-type
- FdDy = record
- inc: integer; //ͻ־
- FDdys: string[32]; //ͻ
- FdDysName: string[32]; //ͻ
- end;
-
- TfrmClothInfo_Tat = class(TfrmBaseList)
- ToolBar1: TToolBar;
- TBRafresh: TToolButton;
- TBDel: TToolButton;
- TBClose: TToolButton;
- DS_Tree: TDataSource;
- ADOQueryTree: TADOQuery;
- ADOQueryTemp: TADOQuery;
- ADOQueryCmd: TADOQuery;
- GPM_1: TcxGridPopupMenu;
- Tv1: TcxGridDBTableView;
- cxGrid1Level1: TcxGridLevel;
- cxGrid1: TcxGrid;
- cxSplitter1: TcxSplitter;
- Panel1: TPanel;
- TBFilter: TToolButton;
- v1CYNo: TcxGridDBColumn;
- v1Column3: TcxGridDBColumn;
- DS_1: TDataSource;
- ADOQueryMain: TADOQuery;
- CDS_1: TClientDataSet;
- v1Column12: TcxGridDBColumn;
- TBExport: TToolButton;
- RM1: TRMGridReport;
- RMDB_Main: TRMDBDataSet;
- ODPat: TOpenDialog;
- IdFTP1: TIdFTP;
- SaveDialog1: TSaveDialog;
- TBUP: TToolButton;
- Label3: TLabel;
- C_Code: TEdit;
- TBCopy: TToolButton;
- Panel2: TPanel;
- v1SSel: TcxGridDBColumn;
- DSCYNO: TDataSource;
- CDS_CYNO: TClientDataSet;
- Panel5: TPanel;
- cxDBTreeList1: TcxDBTreeList;
- cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
- Label11: TLabel;
- Label12: TLabel;
- Panel3: TPanel;
- adoqueryPicture: TADOQuery;
- v1Column1: TcxGridDBColumn;
- v1Column9: TcxGridDBColumn;
- Label4: TLabel;
- C_Name: TEdit;
- TBAdd: TToolButton;
- TBEdit: TToolButton;
- TBMLEdit: TToolButton;
- OpenDialog1: TOpenDialog;
- Label9: TLabel;
- C_GramWeight: TEdit;
- Label8: TLabel;
- C_Width: TEdit;
- PM_1: TPopupMenu;
- N1: TMenuItem;
- N2: TMenuItem;
- v1Column11: TcxGridDBColumn;
- Panel7: TPanel;
- Panel4: TPanel;
- Label14: TLabel;
- LBCPAP1: TLabel;
- Button1: TButton;
- Button2: TButton;
- TCBNOR1: TComboBox;
- RMBarCodeObject1: TRMBarCodeObject;
- Tv1Column5: TcxGridDBColumn;
- Tv1Column6: TcxGridDBColumn;
- Tv1Column7: TcxGridDBColumn;
- ToolButton1: TToolButton;
- DataSource3: TDataSource;
- CDS_Sub: TClientDataSet;
- Tv1Column2: TcxGridDBColumn;
- Tv1Column9: TcxGridDBColumn;
- Tv1Column11: TcxGridDBColumn;
- cxGridPopupMenu2: TcxGridPopupMenu;
- ToolButton2: TToolButton;
- N3: TMenuItem;
- Panel9: TPanel;
- Panel10: TPanel;
- GroupBox1: TGroupBox;
- ScrollBox1: TScrollBox;
- Panel11: TPanel;
- cbbHX: TComboBox;
- Label7: TLabel;
- CDS_Tree: TClientDataSet;
- ADOQueryPrint: TADOQuery;
- CDS_Label: TClientDataSet;
- Tv1Column1: TcxGridDBColumn;
- ToolButton3: TToolButton;
- Tv1Column3: TcxGridDBColumn;
- Tv1Column4: TcxGridDBColumn;
- Tv1Column8: TcxGridDBColumn;
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure TBCloseClick(Sender: TObject);
- procedure TBDelClick(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure cxDBTreeList1DblClick(Sender: TObject);
- procedure TBRafreshClick(Sender: TObject);
- procedure TBFilterClick(Sender: TObject);
- procedure CYNoChange(Sender: TObject);
- procedure TBExportClick(Sender: TObject);
- procedure TBUPClick(Sender: TObject);
- procedure TBCopyClick(Sender: TObject);
- procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
- procedure TBAddClick(Sender: TObject);
- procedure TBEditClick(Sender: TObject);
- procedure TBMLEditClick(Sender: TObject);
- procedure N1Click(Sender: TObject);
- procedure N2Click(Sender: TObject);
- procedure TCBNOR1Change(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure ToolButton1Click(Sender: TObject);
- procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
- procedure ToolButton2Click(Sender: TObject);
- procedure N3Click(Sender: TObject);
- procedure TextEdit(Sender: TObject);
- procedure HXNameBtnUpClick(Sender: TObject);
- procedure HXNameBtnDnClick(Sender: TObject);
- procedure cbbHXChange(Sender: TObject);
- procedure ToolButton3Click(Sender: TObject);
- private
- { Private declarations }
- CurrentPage, RecordsNumber: Integer;
- CTID: string;
- PState: Integer;
- FCTID, FTopID: string;
- FJurisdiction: string;
- procedure SetStatus();
- procedure InitTree();
- procedure InitGrid();
- procedure ReadINIFile();
- procedure InitImage();
- procedure LookImage(FileName: string);
-
- public
- dFdDy: array[0..20] of FdDy; //ͻ
- { Public declarations }
- end;
-
-var
- Mach: array of TfrmSlt;
-
-implementation
-
-uses
- U_DataLink, U_RTFun, U_ClothInfoInput_Tat, U_CloInfoFileUp, U_YPTypeHelpCP,
- U_ZDYHelp, U_LabelPrint;
-
-{$R *.dfm}
-
-procedure TfrmClothInfo_Tat.LookImage(FileName: string);
-var
- sFieldName: string;
-begin
-
- sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ鿴';
-
- if not DirectoryExists(pchar(sFieldName)) then
- CreateDirectory(pchar(sFieldName), nil);
-
- sFieldName := sFieldName + '\' + trim(FileName);
-
- try
- IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1');
- IdFTP1.Username := 'three';
- IdFTP1.Password := '641010';
- IdFTP1.Connect();
- except
-
- end;
-
- if IdFTP1.Connected then
- begin
- application.ProcessMessages;
- try
-// ShowMessage(PChar(Trim('D:\' + Trim(FileName))));
- IdFTP1.Get(Trim(UserDataFlag + 'YP\' + FileName), sFieldName, true, false);
- except
- Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING);
- IdFTP1.Quit;
- Exit;
- end;
- end
- else
- begin
- Application.MessageBox('ļ', 'ʾ', MB_ICONWARNING);
- IdFTP1.Quit;
- Exit;
- end;
- if IdFTP1.Connected then
- IdFTP1.Quit;
- ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
-end;
-
-procedure TfrmClothInfo_Tat.SetStatus();
-begin
-
-end;
-
-procedure TfrmClothInfo_Tat.InitTree();
-var
- i: Integer;
-begin
-
- with ADOQueryTree do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from BS_Cloth_Type');
- Open;
- end;
-
- SCreateCDS(ADOQueryTree, CDS_Tree);
- SInitCDSData(ADOQueryTree, CDS_Tree);
- cxDBTreeList1.Items[0].Expand(false);
-end;
-
-procedure TfrmClothInfo_Tat.InitGrid();
-var
- fwhere, MBCIID, Pwhere: string;
-begin
- Panel2.Visible := True;
- Panel2.Refresh;
- if not CDS_1.IsEmpty then
- MBCIID := Trim(CDS_1.FieldByName('BCIID').AsString)
- else
- MBCIID := '';
-
- Pwhere := SGetFilters(Panel1, 1, 2);
-
- if trim(Pwhere) <> '' then
- begin
- if fwhere <> '' then
- fwhere := fwhere + ' and ' + trim(Pwhere)
- else
- fwhere := ' where ' + trim(Pwhere);
- end;
- try
- ADOQueryMain.DisableControls;
-
- with ADOQueryMain do
- begin
- Close;
- Filtered := False;
- sql.Clear;
- sql.Add(' exec P_BS_CloInfo_Get ');
- sql.Add(' @CTID=' + quotedstr(Trim(CDS_Tree.fieldbyname('CTID').AsString)));
- sql.Add(',@pageIndex=' + inttostr(CurrentPage));
- sql.Add(',@pageSize=' + inttostr(RecordsNumber));
- sql.Add(',@criteria= ' + quotedstr(fwhere));
-// ShowMessage(sql.Text);
- Open;
- end;
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryMain, CDS_1);
- SInitCDSData(ADOQueryMain, CDS_1);
- TV1.DataController.Filter.Clear;
- LBCPAP1.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
-
- finally
- ADOQueryMain.EnableControls;
- TV1.DataController.Filter.Clear;
- end;
- Panel2.Visible := False;
-
- if MBCIID <> '' then
- CDS_1.Locate('BCIID', MBCIID, []);
-
-end;
-
-procedure TfrmClothInfo_Tat.FormClose(Sender: TObject; var Action: TCloseAction);
-var
- i, j: integer;
-begin
- inherited;
- j := length(Mach);
- if j > 0 then
- begin
- for i := 0 to j - 1 do
- begin
- Mach[i].free;
- end;
- end;
- SetLength(Mach, 0);
- Action := cafree;
-end;
-
-procedure TfrmClothInfo_Tat.TBCloseClick(Sender: TObject);
-begin
-
- if DirectoryExists(ExtractFileDir('D:\Right1209')) then
- winexec('cmd /c rd /s /q D:\Right1209', sw_hide);
- Close;
-end;
-
-procedure TfrmClothInfo_Tat.TBDelClick(Sender: TObject);
-begin
- if CDS_1.IsEmpty then
- Exit;
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
- Exit;
-
- while CDS_1.Locate('SSel', true, []) do
- begin
- if Trim(CDS_1.fieldbyname('BCIID').AsString) <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('delete BS_Cloth_Info where BCIID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + '''');
- ExecSQL;
- end;
- end;
- CDS_1.Delete;
- end;
-
-end;
-
-procedure TfrmClothInfo_Tat.FormShow(Sender: TObject);
-begin
- inherited;
- FJurisdiction := Self.fParameters1;
-
- ReadCxGrid(self.Caption + 'TV1', Tv1, 'Ʒ');
-
-// pnlreport.Top := FTop + 110;
- application.ProcessMessages;
-
- RecordsNumber := 500;
- CurrentPage := 1;
- InitTree();
- SetStatus();
- InitGrid();
-
-end;
-
-procedure TfrmClothInfo_Tat.cbbHXChange(Sender: TObject);
-begin
- InitImage();
-
-end;
-
-procedure TfrmClothInfo_Tat.cxDBTreeList1DblClick(Sender: TObject);
-begin
- InitGrid();
-end;
-
-procedure TfrmClothInfo_Tat.TBRafreshClick(Sender: TObject);
-begin
- InitTree();
- InitGrid();
-end;
-
-procedure TfrmClothInfo_Tat.TBFilterClick(Sender: TObject);
-begin
- if ADOQueryMain.Active then
- begin
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryMain, CDS_1);
- SInitCDSData(ADOQueryMain, CDS_1);
- end;
-
-end;
-
-procedure TfrmClothInfo_Tat.CYNoChange(Sender: TObject);
-begin
- //if Length(Trim(TEdit(Sender).Text))<4 then Exit;
- if ADOQueryMain.Active then
- begin
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryMain, CDS_1);
- SInitCDSData(ADOQueryMain, CDS_1);
- end;
-
-end;
-
-procedure TfrmClothInfo_Tat.TBExportClick(Sender: TObject);
-begin
- if CDS_1.IsEmpty then
- Exit;
- TcxGridToExcel(self.Caption, cxGrid1);
-end;
-
-procedure TfrmClothInfo_Tat.TBUPClick(Sender: TObject);
-begin
- try
- frmCloInfoFileUp := TfrmCloInfoFileUp.Create(Application);
- with frmCloInfoFileUp do
- begin
- Code.Text := Trim(Self.CDS_1.fieldbyname('C_Code').AsString);
- FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
- if ShowModal = 1 then
- begin
- Self.InitGrid();
-// Self.CDS_1.Locate('BCIID', BCIID, []);
- end;
- end;
- finally
- frmCloInfoFileUp.Free;
- end;
- InitImage();
-end;
-
-procedure TfrmClothInfo_Tat.ReadINIFile();
-var
- programIni: Tinifile; //ļ
- FileName: string;
-begin
- FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
- programIni := Tinifile.create(FileName);
- server := programIni.ReadString('SERVER', 'ַ', '127.0.0.1');
- programIni.Free;
-end;
-
-procedure TfrmClothInfo_Tat.InitImage();
-var
- i, j: integer;
- jpg: TJpegImage;
- myStream: TADOBlobStream;
-begin
-
- j := length(Mach);
- if j > 0 then
- begin
- for i := 0 to j - 1 do
- begin
- Mach[i].free;
- end;
- end;
- SetLength(Mach, 0);
- if CDS_1.IsEmpty then
- exit;
- try
- with adoqueryPicture do
- begin
- close;
- sql.Clear;
- sql.Add(' select A.TFID,A.WBID,A.FilesOther,A.FileName from TP_File A ');
- sql.add('where A.WBID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString)));
- if Trim(cbbHX.Text) <> '' then
- sql.add(' and A.HXName=' + quotedstr(trim(cbbHX.Text)));
-
- open;
- end;
- j := adoqueryPicture.RecordCount;
- if j < 1 then
- exit;
- adoqueryPicture.DisableControls;
- adoqueryPicture.First;
- SetLength(Mach, j);
- jpg := TJpegImage.Create();
- for i := 0 to j - 1 do
- begin
- if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
- begin
- myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
- jpg.LoadFromStream(myStream);
- Mach[i] := TfrmSlt.Create(Self);
- Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
- Mach[i].Parent := ScrollBox1;
- Mach[i].Left := 0 + i * 165;
- Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
- end;
- adoqueryPicture.Next;
- end;
- adoqueryPicture.EnableControls;
- finally
- jpg.free;
- application.ProcessMessages;
- end;
-end;
-
-procedure TfrmClothInfo_Tat.TBCopyClick(Sender: TObject);
-begin
- try
- frmClothInfoInput_Tat := TfrmClothInfoInput_Tat.Create(Application);
- with frmClothInfoInput_Tat do
- begin
- CopyInt := 1;
- FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
- FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
- if Trim(Self.CDS_Tree.fieldbyname('CPName').AsString) = 'Ʒ' then
- begin
- Application.MessageBox('ѡٸ', 'ʾ', 0);
- Exit;
- end;
- if ShowModal = 1 then
- begin
- Self.InitGrid();
- end;
- end;
- finally
- frmClothInfoInput_Tat.Free;
- end;
-end;
-
-procedure TfrmClothInfo_Tat.C_CodeKeyPress(Sender: TObject; var Key: Char);
-begin
- if Key = #13 then
- begin
- CurrentPage := 1;
- InitGrid();
- end;
-end;
-
-procedure TfrmClothInfo_Tat.TBAddClick(Sender: TObject);
-var
- i: Integer;
- FieldName: string;
-begin
- try
- frmClothInfoInput_Tat := TfrmClothInfoInput_Tat.Create(Application);
- with frmClothInfoInput_Tat do
- begin
- CopyInt := 0;
- FBCIID := '';
- FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
-
- if ShowModal = 1 then
- begin
- Self.InitGrid();
- end;
- end;
- finally
- frmClothInfoInput_Tat.Free;
- end;
-end;
-
-procedure TfrmClothInfo_Tat.TBEditClick(Sender: TObject);
-begin
- if CDS_1.IsEmpty then
- Exit;
- try
- frmClothInfoInput_Tat := TfrmClothInfoInput_Tat.Create(Application);
- with frmClothInfoInput_Tat do
- begin
- CopyInt := 0;
- FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
- FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
- if ShowModal = 1 then
- begin
- Self.InitGrid();
- end;
- end;
- finally
- frmClothInfoInput_Tat.Free;
- end;
-end;
-
-procedure TfrmClothInfo_Tat.TextEdit(Sender: TObject);
-var
- mvalue, FFieldName: string;
-begin
-
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
- with CDS_1 do
- begin
- Edit;
- FieldByName(FFieldName).Value := mvalue;
- Post;
-
- end;
- if mvalue = '' then
- mvalue := '0';
-
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('update BS_Cloth_Info set ' + FFieldName + '=' + (Trim(mvalue)));
- sql.Add('where BCIID=' + quotedstr(Trim(CDS_1.fieldbyname('BCIID').AsString)));
- ExecSQL;
- end;
- Tv1.Controller.EditingController.ShowEdit();
-end;
-
-procedure TfrmClothInfo_Tat.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
-var
- fsj: string;
-begin
- fsj := 'select DISTINCT HXNAME name from TP_File where ISNULL(HXNAME,'''')<>'''' AND WBID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString));
-
- SInitComBoxBySql(ADOQueryTemp, cbbHX, True, fsj);
-
- InitImage();
-end;
-
-procedure TfrmClothInfo_Tat.TBMLEditClick(Sender: TObject);
-var
- fYPType: string;
-begin
- if CDS_1.IsEmpty then
- exit;
- if CDS_1.Locate('ssel', true, []) = false then
- begin
- Application.MessageBox('ûѡ!', 'ʾ', 0);
- Exit;
- end;
- fYPType := '';
-
- frmYPTypeHelpCP := TfrmYPTypeHelpCP.create(self);
- with frmYPTypeHelpCP do
- begin
- if showmodal = 1 then
- begin
- fYPType := trim(ADOQueryHelp.fieldbyname('CTID').asstring);
- end;
- free;
- end;
-
- if trim(fYPType) = '' then
- exit;
-
- try
- with CDS_1 do
- begin
- DisableControls;
- First;
- while not eof do
- begin
- if fieldbyname('ssel').AsBoolean then
- begin
- with ADOQueryCmd do
- begin
- close;
- sql.Clear;
- sql.Add('update BS_Cloth_Info SET CTID=''' + trim(fYPType) + ''' ');
- sql.Add('where BCIID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString)));
- execsql;
- end;
- end;
- next;
- end;
- First;
- EnableControls;
- end;
- application.MessageBox('ɹ', 'ʾϢ');
- initgrid();
- except
- CDS_1.EnableControls;
- application.MessageBox('ʧܣ', 'ʾϢ', 0);
- end;
-end;
-
-procedure TfrmClothInfo_Tat.N1Click(Sender: TObject);
-begin
- SelOKNoFiler(Tv1, True);
-end;
-
-procedure TfrmClothInfo_Tat.N2Click(Sender: TObject);
-begin
- SelOKNoFiler(Tv1, False);
-end;
-
-procedure TfrmClothInfo_Tat.N3Click(Sender: TObject);
-begin
- Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
-end;
-
-procedure TfrmClothInfo_Tat.TCBNOR1Change(Sender: TObject);
-begin
- RecordsNumber := StrToInt(TCBNOR1.Text);
- CurrentPage := 1;
- C_Code.SetFocus;
- InitGrid();
-end;
-
-procedure TfrmClothInfo_Tat.HXNameBtnDnClick(Sender: TObject);
-begin
- TBtnEditC(Sender).Text := '';
- TBtnEditC(Sender).TxtCode := '';
-
-end;
-
-procedure TfrmClothInfo_Tat.HXNameBtnUpClick(Sender: TObject);
-begin
- try
- frmZDYHelp := TfrmZDYHelp.Create(Application);
- with frmZDYHelp do
- begin
- flag := 'HX' + Trim(Self.CDS_1.fieldbyname('CYNO').AsString);
- flagname := '';
- if ShowModal = 1 then
- begin
- TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
- end;
- end;
- finally
- frmZDYHelp.Free;
- end;
-end;
-
-procedure TfrmClothInfo_Tat.Button1Click(Sender: TObject);
-begin
- if CurrentPage > 1 then
- CurrentPage := CurrentPage - 1;
- InitGrid();
-end;
-
-procedure TfrmClothInfo_Tat.Button2Click(Sender: TObject);
-begin
- if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
- CurrentPage := CurrentPage + 1;
- InitGrid();
-end;
-
-procedure TfrmClothInfo_Tat.ToolButton1Click(Sender: TObject);
-begin
- try
- frmClothInfoInput_Tat := TfrmClothInfoInput_Tat.Create(Application);
- with frmClothInfoInput_Tat do
- begin
- CopyInt := 0;
- ToolButton1.Visible := False;
- FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
- FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
- if ShowModal = 1 then
- begin
- Self.InitGrid();
- end;
- end;
- finally
- frmClothInfoInput_Tat.Free;
- end;
-end;
-
-procedure TfrmClothInfo_Tat.ToolButton2Click(Sender: TObject);
-begin
- WriteCxGrid(self.Caption + 'TV1', Tv1, 'Ʒ');
-end;
-
-procedure TfrmClothInfo_Tat.ToolButton3Click(Sender: TObject);
-var
- WSql: string;
-begin
- if CDS_1.IsEmpty then
- Exit;
- Tv1.OnFocusedRecordChanged := nil;
- if CDS_1.Locate('SSel', True, []) = False then
- begin
- Tv1.OnFocusedRecordChanged := Tv1FocusedRecordChanged;
- Application.MessageBox('ûѡ!', 'ʾ', 0);
- Exit;
- end;
-
- WSql := '';
- CDS_1.DisableControls;
-
- with CDS_1 do
- begin
- First;
- while not Eof do
- begin
- if CDS_1.fieldbyname('SSel').AsBoolean then
- begin
- if WSql <> '' then
- begin
- WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString));
- end
- else
- begin
- WSql := QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString));
- end;
- end;
- Next;
- end;
- end;
-
- CDS_1.Locate('SSel', True, []);
- Tv1.OnFocusedRecordChanged := Tv1FocusedRecordChanged;
- CDS_1.EnableControls;
-
- try
- frmLabelPrint := TfrmLabelPrint.Create(Application);
- with frmLabelPrint do
- begin
- FLMType := 'ClothInfoPrint';
- FFiltration1 := WSql;
- if ShowModal = 1 then
- begin
-// Self.InitGrid();
- end;
- end;
- finally
- frmLabelPrint.Free;
- end;
-
-end;
-
-end.
-
diff --git a/A02基础产品管理11/U_ClothType.dfm b/A02基础产品管理11/U_ClothType.dfm
deleted file mode 100644
index 5f511d5..0000000
--- a/A02基础产品管理11/U_ClothType.dfm
+++ /dev/null
@@ -1,200 +0,0 @@
-inherited frmClothType: TfrmClothType
- Left = 192
- Top = 155
- Caption = #20135#21697#31867#21035
- ClientHeight = 529
- ClientWidth = 981
- FormStyle = fsMDIChild
- Visible = True
- ExplicitWidth = 997
- ExplicitHeight = 568
- PixelsPerInch = 96
- TextHeight = 12
- object ToolBar1: TToolBar [0]
- Tag = 1
- Left = 0
- Top = 0
- Width = 981
- Height = 33
- ButtonHeight = 38
- ButtonWidth = 91
- Caption = 'ToolBar1'
- Color = clSkyBlue
- DisabledImages = DataLink_ClothInfo.ImageList_new32
- Images = DataLink_ClothInfo.ImageList_new32
- List = True
- ParentColor = False
- ShowCaptions = True
- TabOrder = 0
- object TBRafresh: TToolButton
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #21047#26032
- ImageIndex = 1
- OnClick = TBRafreshClick
- end
- object TBAdd: TToolButton
- Left = 71
- Top = 0
- AutoSize = True
- Caption = #26032#22686#23376#31867
- ImageIndex = 2
- OnClick = TBAddClick
- end
- object ToolButton1: TToolButton
- Left = 166
- Top = 0
- AutoSize = True
- Caption = #20445#23384
- ImageIndex = 16
- OnClick = ToolButton1Click
- end
- object TBDel: TToolButton
- Left = 237
- Top = 0
- AutoSize = True
- Caption = #21024#38500
- ImageIndex = 5
- OnClick = TBDelClick
- end
- object TBClose: TToolButton
- Left = 308
- Top = 0
- AutoSize = True
- Caption = #20851#38381
- ImageIndex = 7
- OnClick = TBCloseClick
- end
- end
- object cxDBTreeList1: TcxDBTreeList [1]
- Left = 0
- Top = 33
- Width = 249
- Height = 496
- Align = alLeft
- Bands = <
- item
- end>
- DataController.DataSource = DataSource1
- DataController.ParentField = 'CTParent'
- DataController.KeyField = 'CTID'
- Navigator.Buttons.CustomButtons = <>
- OptionsBehavior.CopyCaptionsToClipboard = False
- OptionsBehavior.ExpandOnDblClick = False
- OptionsSelection.CellSelect = False
- OptionsView.CellAutoHeight = True
- OptionsView.Headers = False
- RootValue = -1
- Styles.Inactive = DataLink_ClothInfo.FoneRed
- Styles.Selection = DataLink_ClothInfo.FoneRed
- Styles.IncSearch = DataLink_ClothInfo.FoneRed
- TabOrder = 1
- OnClick = cxDBTreeList1Click
- object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
- DataBinding.FieldName = 'CTName'
- Width = 210
- Position.ColIndex = 0
- Position.RowIndex = 0
- Position.BandIndex = 0
- Summary.FooterSummaryItems = <>
- Summary.GroupFooterSummaryItems = <>
- end
- end
- object Panel1: TPanel [2]
- Left = 249
- Top = 33
- Width = 732
- Height = 496
- Align = alClient
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Color = clSkyBlue
- TabOrder = 2
- object Label1: TLabel
- Left = 66
- Top = 24
- Width = 48
- Height = 12
- Caption = #29238' '#31867
- end
- object Label2: TLabel
- Left = 66
- Top = 65
- Width = 48
- Height = 12
- Caption = #31867#21035#21517#31216
- end
- object Label3: TLabel
- Left = 170
- Top = 137
- Width = 48
- Height = 12
- Caption = #31867#21035#32534#30721
- Visible = False
- end
- object CTTopName: TEdit
- Left = 129
- Top = 21
- Width = 121
- Height = 20
- ReadOnly = True
- TabOrder = 0
- end
- object CTName: TEdit
- Left = 129
- Top = 61
- Width = 121
- Height = 20
- TabOrder = 1
- OnKeyPress = CTNameKeyPress
- end
- object CTNo: TEdit
- Left = 233
- Top = 133
- Width = 121
- Height = 20
- TabOrder = 2
- Visible = False
- end
- end
- inherited ADOQueryBaseCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- end
- inherited ADOQueryBaseTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Left = 201
- Top = 105
- end
- object DataSource1: TDataSource
- DataSet = ADOQueryTree
- Left = 91
- Top = 355
- end
- object ADOQueryTree10: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 61
- Top = 209
- end
- object ADOQueryTemp: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- LockType = ltReadOnly
- Parameters = <>
- Left = 709
- Top = 209
- end
- object ADOQueryCmd: TADOQuery
- Connection = DataLink_ClothInfo.ADOLink
- Parameters = <>
- Left = 677
- Top = 137
- end
- object ADOQueryTree: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 88
- Top = 280
- end
-end
diff --git a/A02基础产品管理11/U_ClothType.pas b/A02基础产品管理11/U_ClothType.pas
deleted file mode 100644
index 6bbd3d8..0000000
--- a/A02基础产品管理11/U_ClothType.pas
+++ /dev/null
@@ -1,251 +0,0 @@
-unit U_ClothType;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
- cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
- ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters,
- cxTLdxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters;
-
-type
- TfrmClothType = class(TfrmBaseList)
- ToolBar1: TToolBar;
- TBRafresh: TToolButton;
- TBAdd: TToolButton;
- TBDel: TToolButton;
- TBClose: TToolButton;
- cxDBTreeList1: TcxDBTreeList;
- cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
- DataSource1: TDataSource;
- ADOQueryTree10: TADOQuery;
- ToolButton1: TToolButton;
- ADOQueryTemp: TADOQuery;
- ADOQueryCmd: TADOQuery;
- Panel1: TPanel;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- CTTopName: TEdit;
- CTName: TEdit;
- CTNo: TEdit;
- ADOQueryTree: TClientDataSet;
- procedure FormDestroy(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure TBRafreshClick(Sender: TObject);
- procedure TBCloseClick(Sender: TObject);
- procedure TBAddClick(Sender: TObject);
- procedure cxDBTreeList1Click(Sender: TObject);
- procedure ToolButton1Click(Sender: TObject);
- procedure TBDelClick(Sender: TObject);
- procedure CTNameKeyPress(Sender: TObject; var Key: Char);
- procedure FormShow(Sender: TObject);
- private
- { Private declarations }
- PState: Integer;
- FCTID, FTopID: string;
- procedure InitTree();
-
- public
- { Public declarations }
- end;
-
-var
- frmClothType: TfrmClothType;
-
-implementation
-
-uses
- U_DataLink, U_RTFun;
-
-{$R *.dfm}
-
-procedure TfrmClothType.InitTree();
-var
- i: Integer;
-begin
- with ADOQueryTree10 do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from BS_Cloth_Type order by CTlevel,CTOrder,CTName');
- Open;
- end;
- SCreateCDS(ADOQueryTree10, ADOQueryTree);
- SInitCDSData(ADOQueryTree10, ADOQueryTree);
- if ADOQueryTree.IsEmpty then
- Exit;
- cxDBTreeList1.Items[0].Expand(True);
-end;
-
-procedure TfrmClothType.FormDestroy(Sender: TObject);
-begin
- inherited;
- frmClothType := nil;
-end;
-
-procedure TfrmClothType.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
- inherited;
- Action := caFree;
-end;
-
-procedure TfrmClothType.TBRafreshClick(Sender: TObject);
-begin
- InitTree();
-end;
-
-procedure TfrmClothType.TBCloseClick(Sender: TObject);
-begin
- Close;
-end;
-
-procedure TfrmClothType.TBAddClick(Sender: TObject);
-begin
- PState := 11;
- CTTopName.Text := Trim(ADOQueryTree.fieldbyname('CTName').AsString);
- FCTID := '';
- CTName.Text := '';
- CTNo.Text := '';
- CTName.SetFocus;
-end;
-
-procedure TfrmClothType.cxDBTreeList1Click(Sender: TObject);
-begin
- PState := 22;
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select * from BS_Cloth_Type where CTID=''' + Trim(ADOQueryTree.fieldbyname('CTParent').AsString) + '''');
- Open;
- end;
- FCTID := Trim(ADOQueryTree.fieldbyname('CTID').AsString);
- CTTopName.Text := Trim(ADOQueryTemp.fieldbyname('CTName').AsString);
- CTName.Text := Trim(ADOQueryTree.fieldbyname('CTName').AsString);
- CTNo.Text := Trim(ADOQueryTree.fieldbyname('CTNo').AsString);
-end;
-
-procedure TfrmClothType.ToolButton1Click(Sender: TObject);
-var
- maxId, FLMainId: string;
-begin
- if Trim(CTName.Text) = '' then
- begin
- Application.MessageBox('ƲΪգ', 'ʾ', 0);
- Exit;
- end;
-
- try
- ADOQueryCmd.Connection.BeginTrans;
- if PState = 11 then
- begin
- if GetLSNo(ADOQueryCmd, maxId, 'CT', 'BS_Cloth_Type', 4, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡʧܣ', 'ʾ', 0);
- Exit;
- end;
- end
- else
- begin
- maxId := Trim(FCTID);
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from BS_Cloth_Type where CTID=''' + Trim(FCTID) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if PState = 11 then
- begin
- Append;
- FieldByName('CTID').Value := Trim(maxId);
- FieldByName('CTName').Value := Trim(CTName.Text);
- FieldByName('CTNo').Value := Trim(CTNo.Text);
- FieldByName('CTParent').Value := Trim(ADOQueryTree.fieldbyname('CTID').AsString);
- FieldByName('CTLevel').Value := ADOQueryTree.fieldbyname('CTLevel').AsInteger + 1;
- Post;
- end
- else if PState = 22 then
- begin
- Edit;
- FieldByName('CTID').Value := Trim(maxId);
- FieldByName('CTName').Value := Trim(CTName.Text);
- FieldByName('CTNo').Value := Trim(CTNo.Text);
- //FieldByName('CTParent').Value:=Trim(ADOQueryTree.fieldbyname('CTID').AsString);
- //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1;
- Post;
- end;
- end;
- ADOQueryCmd.Connection.CommitTrans;
- Application.MessageBox('ɹ!', 'ʾ', 0);
- FLMainId := Trim(ADOQueryTree.fieldbyname('CTID').AsString);
- InitTree();
- ADOQueryTree.Locate('CTID', FLMainId, []);
-
- except
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ʧ!', 'ʾ', 0);
- end;
-end;
-
-procedure TfrmClothType.TBDelClick(Sender: TObject);
-begin
- if ADOQueryTree.FieldByName('CTLevel').AsInteger = 0 then
- Exit;
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select * from BS_Cloth_Type where CTParent=''' + Trim(ADOQueryTree.fieldbyname('CTID').AsString) + '''');
- Open;
- if not IsEmpty then
- begin
- Application.MessageBox('Ѿɾ', 'ʾ', 0);
- Exit;
- end;
- end;
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select * from BS_Cloth_Info where CTID=''' + Trim(ADOQueryTree.fieldbyname('CTID').AsString) + '''');
- Open;
- if not IsEmpty then
- begin
- Application.MessageBox('ѾвƷڴɾ', 'ʾ', 0);
- Exit;
- end;
- end;
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
- Exit;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('delete BS_Cloth_Type where CTID=''' + Trim(ADOQueryTree.fieldbyname('CTID').AsString) + '''');
- sql.Add('delete BS_Cloth_Type where CTParent=''' + Trim(ADOQueryTree.fieldbyname('CTID').AsString) + '''');
- ExecSQL;
- end;
- InitTree();
-end;
-
-procedure TfrmClothType.CTNameKeyPress(Sender: TObject; var Key: Char);
-begin
- if Key = #13 then
- CTNo.SetFocus;
-end;
-
-procedure TfrmClothType.FormShow(Sender: TObject);
-begin
- inherited;
- InitTree();
-end;
-
-end.
-
diff --git a/A02基础产品管理11/U_SLT.dfm b/A02基础产品管理11/U_SLT.dfm
deleted file mode 100644
index 004753f..0000000
--- a/A02基础产品管理11/U_SLT.dfm
+++ /dev/null
@@ -1,35 +0,0 @@
-object frmSLT: TfrmSLT
- Left = 0
- Top = 0
- Width = 161
- Height = 138
- TabOrder = 0
- object Panel1: TPanel
- Left = 0
- Top = 121
- Width = 161
- Height = 17
- Align = alClient
- BevelOuter = bvNone
- Caption = 'Panel1'
- Color = clWindow
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object cxImage1: TcxImage
- Left = 0
- Top = 0
- Align = alTop
- Style.BorderStyle = ebsOffice11
- StyleHot.TextStyle = []
- TabOrder = 1
- OnDblClick = cxImage1DblClick
- Height = 121
- Width = 161
- end
-end
diff --git a/A02基础产品管理11/U_SLT.pas b/A02基础产品管理11/U_SLT.pas
deleted file mode 100644
index ee45601..0000000
--- a/A02基础产品管理11/U_SLT.pas
+++ /dev/null
@@ -1,77 +0,0 @@
-unit U_SLT;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, ExtCtrls, jpeg, cxControls, cxContainer, cxEdit, cxImage, IdFTP,
- ShellAPI, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
- dxSkinsDefaultPainters;
-
-type
- TfrmSLT = class(TFrame)
- cxImage1: TcxImage;
- Panel1: TPanel;
- procedure cxImage1DblClick(Sender: TObject);
- private
- CYID, FileName: string;
- { Private declarations }
- public
- procedure Init(fCYID: string; fFileName: string; fPicture: TJpegImage);
- { Public declarations }
- end;
-
-implementation
-
-uses
- U_DataLink;
-{$R *.dfm}
-
-procedure TfrmSLT.Init(fCYID: string; fFileName: string; fPicture: TJpegImage);
-begin
- CYID := trim(fCYID);
- FileName := trim(fFileName);
- Panel1.Caption := FileName;
- cxImage1.Picture.Assign(fPicture);
-end;
-
-procedure TfrmSLT.cxImage1DblClick(Sender: TObject);
-var
- IdFTP1: TIdFTP;
- FPath, FFName: string;
- FInt: integer;
-begin
- try
- IdFTP1 := TIdFTP.Create(self);
- IdFTP1.Host := PicSvr;
- IdFTP1.Username := 'three';
- IdFTP1.Password := '641010';
- IdFTP1.Connect();
- except
- IdFTP1.Quit;
- IdFTP1.Free;
- Application.MessageBox('ӵļ飡', 'ʾ', MB_ICONWARNING);
- Exit;
- end;
- FPath := 'D:\Right1209\';
- if not DirectoryExists(ExtractFileDir(FPath)) then
- CreateDir(ExtractFileDir(FPath));
- FFName := Trim(FileName);
- FFName := FPath + FFName;
- if FileExists(FFName) then
- begin
- FInt := 1;
- end;
- if FInt <> 1 then
- IdFTP1.Get(UserDataFlag + 'YP\' + FileName, FFName);
- if IdFTP1.Connected then
- begin
- IdFTP1.Quit;
- IdFTP1.Free;
- end;
- ShellExecute(Handle, 'open', PChar(FFName), '', '', SW_SHOWNORMAL);
-
-end;
-
-end.
-
diff --git a/A02基础产品管理11/U_YPTypeHelpCP.dfm b/A02基础产品管理11/U_YPTypeHelpCP.dfm
deleted file mode 100644
index 055bbad..0000000
--- a/A02基础产品管理11/U_YPTypeHelpCP.dfm
+++ /dev/null
@@ -1,66 +0,0 @@
-object frmYPTypeHelpCP: TfrmYPTypeHelpCP
- Left = 561
- Top = 284
- Caption = #26679#21697#31867#21035#36873#25321#21015#34920
- ClientHeight = 485
- ClientWidth = 355
- Color = clBtnFace
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 12
- object cxDBTreeList1: TcxDBTreeList
- Left = 0
- Top = 0
- Width = 249
- Height = 485
- Align = alLeft
- Bands = <
- item
- end>
- DataController.DataSource = DataSource1
- DataController.ParentField = 'CTParent'
- DataController.KeyField = 'CTID'
- Navigator.Buttons.CustomButtons = <>
- OptionsBehavior.CopyCaptionsToClipboard = False
- OptionsBehavior.ExpandOnDblClick = False
- OptionsSelection.CellSelect = False
- OptionsView.CellAutoHeight = True
- OptionsView.Headers = False
- RootValue = -1
- TabOrder = 0
- OnDblClick = cxDBTreeList1DblClick
- object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
- DataBinding.FieldName = 'CTName'
- Width = 210
- Position.ColIndex = 0
- Position.RowIndex = 0
- Position.BandIndex = 0
- Summary.FooterSummaryItems = <>
- Summary.GroupFooterSummaryItems = <>
- end
- end
- object ADOConnection1: TADOConnection
- LoginPrompt = False
- Left = 288
- Top = 60
- end
- object DataSource1: TDataSource
- DataSet = ADOQueryHelp
- Left = 280
- Top = 188
- end
- object ADOQueryHelp: TADOQuery
- Connection = ADOConnection1
- Parameters = <>
- Left = 184
- Top = 136
- end
-end
diff --git a/A02基础产品管理11/U_YPTypeHelpCP.pas b/A02基础产品管理11/U_YPTypeHelpCP.pas
deleted file mode 100644
index 5fe4766..0000000
--- a/A02基础产品管理11/U_YPTypeHelpCP.pas
+++ /dev/null
@@ -1,73 +0,0 @@
-unit U_YPTypeHelpCP;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit,
- cxInplaceContainer, cxDBTL, cxControls, cxTLData, DB, ADODB, cxLookAndFeels,
- cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxSkinsCore,
- dxSkinsDefaultPainters;
-
-type
- TfrmYPTypeHelpCP = class(TForm)
- ADOConnection1: TADOConnection;
- cxDBTreeList1: TcxDBTreeList;
- cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
- DataSource1: TDataSource;
- ADOQueryHelp: TADOQuery;
- procedure FormCreate(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure cxDBTreeList1DblClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- frmYPTypeHelpCP: TfrmYPTypeHelpCP;
-
-implementation
-
-uses
- U_DataLink;
-{$R *.dfm}
-
-procedure TfrmYPTypeHelpCP.FormCreate(Sender: TObject);
-begin
- cxDBTreeList1.Align := alclient;
- try
- with ADOConnection1 do
- begin
- Connected := false;
- ConnectionString := DConString;
- //ConnectionString:='';
- Connected := true;
- end;
- except
- end;
-end;
-
-procedure TfrmYPTypeHelpCP.FormShow(Sender: TObject);
-begin
- with ADOQueryHelp do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from BS_Cloth_Type order by CTlevel,CTOrder,CTName');
- Open;
- end;
- cxDBTreeList1.Items[0].Expand(false);
-
-end;
-
-procedure TfrmYPTypeHelpCP.cxDBTreeList1DblClick(Sender: TObject);
-begin
- if ADOQueryHelp.IsEmpty then
- exit;
- ModalResult := 1;
-end;
-
-end.
-
diff --git a/A05基础资料管理/AllSkins.skinres b/A05基础资料管理/AllSkins.skinres
new file mode 100644
index 0000000..bfaa46e
Binary files /dev/null and b/A05基础资料管理/AllSkins.skinres differ
diff --git a/A05基础资料管理/BaseInfo.dpr b/A05基础资料管理/BaseInfo.dpr
index 5499f22..fccc880 100644
--- a/A05基础资料管理/BaseInfo.dpr
+++ b/A05基础资料管理/BaseInfo.dpr
@@ -17,17 +17,20 @@ uses
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
- U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
- U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_MachineManage in 'U_MachineManage.pas' {frmMachineManage},
- U_PositionList in 'U_PositionList.pas' {frmPositionList},
U_WarpBeamManage in 'U_WarpBeamManage.pas' {frmWarpBeamManage},
U_TrayManage in 'U_TrayManage.pas' {frmTrayManage},
U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint},
+ U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
+ U_PositionInPut in 'U_PositionInPut.pas' {frmPositionInPut},
+ U_PositionList in 'U_PositionList.pas' {frmPositionList},
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
+ U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
+ U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
+ uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas';
{$R *.res}
diff --git a/A05基础资料管理/BaseInfo.dproj b/A05基础资料管理/BaseInfo.dproj
index a39a2c5..7aac423 100644
--- a/A05基础资料管理/BaseInfo.dproj
+++ b/A05基础资料管理/BaseInfo.dproj
@@ -123,7 +123,7 @@
Debug
- D:\Dp10RepoV1\项目代码\D10myXushang\A05基础资料管理\testDll.exe
+ D:\Dp10RepoV1\项目代码\D10xhGemei\A05基础资料管理\testDll.exe
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
@@ -158,17 +158,11 @@
dfm
-
-
dfm
-
-
- dfm
-
dfm
@@ -185,8 +179,24 @@
dfm
+
+
+ dfm
+ TDataModule
+
+
+
+ dfm
+
+
+
+ dfm
+
+
+
+
Cfg_2
diff --git a/A05基础资料管理/BaseInfo.skincfg b/A05基础资料管理/BaseInfo.skincfg
index e48deaa..f0fe216 100644
--- a/A05基础资料管理/BaseInfo.skincfg
+++ b/A05基础资料管理/BaseInfo.skincfg
@@ -1,62 +1,62 @@
[ExpressSkins]
-Default=1
+Default=0
ShowNotifications=1
Enabled=1
-dxSkinBasic=1
-dxSkinBlack=1
-dxSkinBlue=1
-dxSkinBlueprint=1
-dxSkinCaramel=1
-dxSkinCoffee=1
-dxSkinDarkroom=1
-dxSkinDarkSide=1
-dxSkinDevExpressDarkStyle=1
-dxSkinDevExpressStyle=1
-dxSkinFoggy=1
-dxSkinGlassOceans=1
-dxSkinHighContrast=1
-dxSkiniMaginary=1
-dxSkinLilian=1
-dxSkinLiquidSky=1
-dxSkinLondonLiquidSky=1
-dxSkinMcSkin=1
-dxSkinMetropolis=1
-dxSkinMetropolisDark=1
-dxSkinMoneyTwins=1
-dxSkinOffice2007Black=1
-dxSkinOffice2007Blue=1
-dxSkinOffice2007Green=1
-dxSkinOffice2007Pink=1
-dxSkinOffice2007Silver=1
-dxSkinOffice2010Black=1
-dxSkinOffice2010Blue=1
-dxSkinOffice2010Silver=1
-dxSkinOffice2013DarkGray=1
-dxSkinOffice2013LightGray=1
-dxSkinOffice2013White=1
-dxSkinOffice2016Colorful=1
-dxSkinOffice2016Dark=1
-dxSkinOffice2019Black=1
-dxSkinOffice2019Colorful=1
-dxSkinOffice2019DarkGray=1
-dxSkinOffice2019White=1
-dxSkinPumpkin=1
-dxSkinSeven=1
-dxSkinSevenClassic=1
-dxSkinSharp=1
-dxSkinSharpPlus=1
-dxSkinSilver=1
-dxSkinSpringtime=1
-dxSkinStardust=1
-dxSkinSummer2008=1
-dxSkinTheAsphaltWorld=1
-dxSkinTheBezier=1
+dxSkinBasic=0
+dxSkinBlack=0
+dxSkinBlue=0
+dxSkinBlueprint=0
+dxSkinCaramel=0
+dxSkinCoffee=0
+dxSkinDarkroom=0
+dxSkinDarkSide=0
+dxSkinDevExpressDarkStyle=0
+dxSkinDevExpressStyle=0
+dxSkinFoggy=0
+dxSkinGlassOceans=0
+dxSkinHighContrast=0
+dxSkiniMaginary=0
+dxSkinLilian=0
+dxSkinLiquidSky=0
+dxSkinLondonLiquidSky=0
+dxSkinMcSkin=0
+dxSkinMetropolis=0
+dxSkinMetropolisDark=0
+dxSkinMoneyTwins=0
+dxSkinOffice2007Black=0
+dxSkinOffice2007Blue=0
+dxSkinOffice2007Green=0
+dxSkinOffice2007Pink=0
+dxSkinOffice2007Silver=0
+dxSkinOffice2010Black=0
+dxSkinOffice2010Blue=0
+dxSkinOffice2010Silver=0
+dxSkinOffice2013DarkGray=0
+dxSkinOffice2013LightGray=0
+dxSkinOffice2013White=0
+dxSkinOffice2016Colorful=0
+dxSkinOffice2016Dark=0
+dxSkinOffice2019Black=0
+dxSkinOffice2019Colorful=0
+dxSkinOffice2019DarkGray=0
+dxSkinOffice2019White=0
+dxSkinPumpkin=0
+dxSkinSeven=0
+dxSkinSevenClassic=0
+dxSkinSharp=0
+dxSkinSharpPlus=0
+dxSkinSilver=0
+dxSkinSpringtime=0
+dxSkinStardust=0
+dxSkinSummer2008=0
+dxSkinTheAsphaltWorld=0
+dxSkinTheBezier=0
dxSkinsDefaultPainters=1
-dxSkinValentine=1
-dxSkinVisualStudio2013Blue=1
-dxSkinVisualStudio2013Dark=1
-dxSkinVisualStudio2013Light=1
-dxSkinVS2010=1
-dxSkinWhiteprint=1
+dxSkinValentine=0
+dxSkinVisualStudio2013Blue=0
+dxSkinVisualStudio2013Dark=0
+dxSkinVisualStudio2013Light=0
+dxSkinVS2010=0
+dxSkinWhiteprint=0
dxSkinWXI=1
-dxSkinXmas2008Blue=1
+dxSkinXmas2008Blue=0
diff --git a/A05基础资料管理/U_DataLink.dfm b/A05基础资料管理/U_DataLink.dfm
index 2a78534..983eb66 100644
--- a/A05基础资料管理/U_DataLink.dfm
+++ b/A05基础资料管理/U_DataLink.dfm
@@ -1,9 +1,26 @@
-object DataLink_BaseInfo: TDataLink_BaseInfo
- OldCreateOrder = False
- OnCreate = DataModuleCreate
+inherited DataLink_BaseInfo: TDataLink_BaseInfo
+ OldCreateOrder = True
OnDestroy = DataModuleDestroy
Height = 349
Width = 482
+ inherited cxEditStyleController1: TcxEditStyleController
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ PixelsPerInch = 96
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
+ inherited ThreeColorBase: TcxStyleRepository
+ PixelsPerInch = 96
+ end
+ inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+ inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
+ PixelsPerInch = 96
+ end
+ end
object AdoDataLink: TADOQuery
Connection = ADOLink
Parameters = <>
@@ -10423,140 +10440,6 @@ object DataLink_BaseInfo: TDataLink_BaseInfo
FF800001000000F003FFFE00FFE0000300000000000000000000000000000000
000000000000}
end
- object ThreeLookAndFeelCol: TcxLookAndFeelController
- Kind = lfStandard
- NativeStyle = False
- Left = 252
- Top = 13
- end
- object ThreeColorBase: TcxStyleRepository
- Left = 147
- Top = 80
- PixelsPerInch = 96
- object SHuangSe: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = 4707838
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- TextColor = clBtnText
- end
- object SkyBlue: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = clSkyBlue
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- TextColor = clBlack
- end
- object Default: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = clWhite
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- end
- object QHuangSe: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = 8454143
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object Red: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = clRed
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object FontBlue: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clBlue
- end
- object TextSHuangSe: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clOlive
- end
- object FonePurple: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindow
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clPurple
- end
- object FoneClMaroon: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clMaroon
- end
- object FoneRed: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clRed
- end
- object RowColor: TcxStyle
- AssignedValues = [svColor]
- Color = 16311512
- end
- object handBlack: TcxStyle
- AssignedValues = [svFont]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- end
- object cxBlue: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = 16711731
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object SHuangSeCu: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = 4707838
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clRed
- end
- end
object Timer_link: TTimer
Interval = 15000
OnTimer = Timer_linkTimer
diff --git a/A05基础资料管理/U_DataLink.pas b/A05基础资料管理/U_DataLink.pas
index 9ea4d44..f5ae9cb 100644
--- a/A05基础资料管理/U_DataLink.pas
+++ b/A05基础资料管理/U_DataLink.pas
@@ -5,7 +5,8 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
- System.ImageList;
+ System.ImageList, U_BaseDataLink, dxCore, cxLocalization, dxLayoutLookAndFeels,
+ cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm;
type
TMyThread = class(TThread)
@@ -34,26 +35,10 @@ var
PicSvr: string;
type
- TDataLink_BaseInfo = class(TDataModule)
+ TDataLink_BaseInfo = class(TBaseDataLink)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
- ThreeLookAndFeelCol: TcxLookAndFeelController;
- ThreeColorBase: TcxStyleRepository;
- SHuangSe: TcxStyle;
- SkyBlue: TcxStyle;
- Default: TcxStyle;
- QHuangSe: TcxStyle;
- Red: TcxStyle;
- FontBlue: TcxStyle;
- TextSHuangSe: TcxStyle;
- FonePurple: TcxStyle;
- FoneClMaroon: TcxStyle;
- FoneRed: TcxStyle;
- RowColor: TcxStyle;
- handBlack: TcxStyle;
- cxBlue: TcxStyle;
- SHuangSeCu: TcxStyle;
Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject);
@@ -109,6 +94,7 @@ end;
procedure TDataLink_BaseInfo.DataModuleDestroy(Sender: TObject);
begin
+ inherited;
CriticalSection.Free;
DataLink_BaseInfo := nil;
end;
@@ -120,6 +106,7 @@ end;
procedure TDataLink_BaseInfo.DataModuleCreate(Sender: TObject);
begin
+ inherited;
CriticalSection := TCriticalSection.Create;
end;
diff --git a/A05基础资料管理/U_GetDllForm.pas b/A05基础资料管理/U_GetDllForm.pas
index 5384811..6884f8d 100644
--- a/A05基础资料管理/U_GetDllForm.pas
+++ b/A05基础资料管理/U_GetDllForm.pas
@@ -67,12 +67,13 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
- dtbase := 'RTBasicsData';
+ dtbase := 'gemeiData';
user := 'rtsa';
pswd := 'rightsoft@5740';
-
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='Ȩ';
+// Parameters2 := '֯';
+
end
else
begin
@@ -115,6 +116,7 @@ begin
/////////////////////
//ģ鴰
case FormID of
+
111: //λ
begin
with TfrmPositionList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
@@ -127,7 +129,7 @@ begin
end;
end;
- 112: //̨
+ 112: //
begin
with TfrmMachineManage.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
begin
@@ -141,9 +143,6 @@ begin
{
-
-
-
141: //
begin
with TfrmWarpBeamManage.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
diff --git a/A05基础资料管理/U_MachineInPut.dfm b/A05基础资料管理/U_MachineInPut.dfm
new file mode 100644
index 0000000..036cf71
--- /dev/null
+++ b/A05基础资料管理/U_MachineInPut.dfm
@@ -0,0 +1,183 @@
+inherited frmMachineInPut: TfrmMachineInPut
+ Left = 88
+ Top = 141
+ Caption = #26426#21488#24405#20837
+ ClientHeight = 333
+ ClientWidth = 632
+ Color = clWhite
+ Font.Height = -16
+ Position = poMainFormCenter
+ ExplicitWidth = 648
+ ExplicitHeight = 372
+ PixelsPerInch = 96
+ TextHeight = 21
+ object cxGrid2: TcxGrid [0]
+ Left = 0
+ Top = 30
+ Width = 632
+ Height = 303
+ Align = alClient
+ TabOrder = 0
+ ExplicitLeft = -8
+ ExplicitTop = 71
+ ExplicitHeight = 262
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource3
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.GroupByBox = False
+ object v1Column2: TcxGridDBColumn
+ Caption = #36710#29260#21495
+ DataBinding.FieldName = 'VNO'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #36710#36742#31867#22411
+ DataBinding.FieldName = 'VType'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #21496#26426
+ DataBinding.FieldName = 'Driver'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 226
+ end
+ end
+ object cxGrid2Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object ToolBar1: TToolBar [1]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 632
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 99
+ Caption = 'ToolBar1'
+ Images = DataLink_BaseInfo.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 1
+ object TBSave: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384
+ ImageIndex = 16
+ OnClick = TBSaveClick
+ end
+ object TBAdd: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #26032#22686
+ ImageIndex = 2
+ OnClick = TBAddClick
+ end
+ object TBDel: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #21024#38500
+ ImageIndex = 6
+ OnClick = TBDelClick
+ end
+ object ToolButton1: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton1Click
+ end
+ object TBClose: TToolButton
+ Left = 316
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ Left = 225
+ Top = 136
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ Left = 73
+ Top = 161
+ end
+ inherited ImageList_new32: TImageList
+ Left = 248
+ Top = 288
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
+ object DataSource3: TDataSource
+ DataSet = CDS_Sub
+ Left = 576
+ Top = 136
+ end
+ object CDS_Sub: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 528
+ Top = 192
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ Parameters = <>
+ Left = 328
+ Top = 136
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 408
+ Top = 136
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 496
+ Top = 136
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 160
+ Top = 192
+ end
+end
diff --git a/A05基础资料管理/U_MachineInPut.pas b/A05基础资料管理/U_MachineInPut.pas
new file mode 100644
index 0000000..301e702
--- /dev/null
+++ b/A05基础资料管理/U_MachineInPut.pas
@@ -0,0 +1,235 @@
+unit U_MachineInPut;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
+ cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+ cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
+ cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
+ StrUtils, U_BaseInput, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, cxContainer, dxBarBuiltInMenu,
+ System.ImageList, Vcl.ImgList, cxImageList;
+
+type
+ TfrmMachineInPut = class(TfrmBaseInput)
+ cxGrid2: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ v1Column2: TcxGridDBColumn;
+ cxGrid2Level1: TcxGridLevel;
+ ToolBar1: TToolBar;
+ TBAdd: TToolButton;
+ TBDel: TToolButton;
+ TBSave: TToolButton;
+ TBClose: TToolButton;
+ DataSource3: TDataSource;
+ CDS_Sub: TClientDataSet;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ ToolButton1: TToolButton;
+ Tv1Column1: TcxGridDBColumn;
+ Tv1Column2: TcxGridDBColumn;
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBDelClick(Sender: TObject);
+ procedure TBSaveClick(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure TBAddClick(Sender: TObject);
+ private
+ { Private declarations }
+ function SaveCKData(): Boolean;
+ public
+ { Public declarations }
+ FBCId, FSTKName: string;
+ end;
+
+var
+ frmMachineInPut: TfrmMachineInPut;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmMachineInPut.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+function TfrmMachineInPut.SaveCKData(): Boolean;
+var
+ MaxNo, MWBID: string;
+begin
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+ CDS_Sub.DisableControls;
+ with CDS_Sub do
+ begin
+ First;
+ while not eof do
+ begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Bs_Vehicle where VID=''' + Trim(CDS_Sub.fieldbyname('VID').AsString) + '''');
+ open;
+ end;
+ MWBID := Trim(ADOQueryTemp.fieldbyname('VID').AsString);
+ if Trim(MWBID) = '' then
+ begin
+ if GetLSNo(ADOQueryCmd, MaxNo, 'M', 'Bs_Vehicle', 4, 1) = False then
+ raise Exception.Create('ȡʧܣ');
+ end
+ else
+ begin
+ MaxNo := Trim(MWBID);
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Bs_Vehicle where VID=''' + Trim(MaxNo) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(MWBID) = '' then
+ begin
+ Append;
+ FieldByName('Fillid').Value := Trim(Dcode);
+ FieldByName('Filler').Value := Trim(DName)
+ end
+ else
+ begin
+ Edit;
+ FieldByName('Editid').Value := Trim(Dcode);
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
+ end;
+ FieldByName('VID').Value := Trim(MaxNo);
+// FieldByName('STKName').Value := Trim(FSTKName);
+ RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'Bs_Vehicle', 0);
+ Post;
+ end;
+
+ Edit;
+ FieldByName('VID').Value := Trim(MaxNo);
+ Post;
+ Next;
+ end;
+ end;
+ CDS_Sub.EnableControls;
+ ADOQueryCmd.Connection.CommitTrans;
+ Result := True;
+ except
+ Result := False;
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ end;
+
+end;
+
+procedure TfrmMachineInPut.TBAddClick(Sender: TObject);
+begin
+ with CDS_Sub do
+ begin
+ Append;
+
+ Post;
+ end;
+end;
+
+procedure TfrmMachineInPut.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmMachineInPut.FormShow(Sender: TObject);
+var
+ fsj: string;
+begin
+ inherited;
+ ReadCxGrid(trim(self.Caption), Tv1, 'Ⱦɫֿ');
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* ');
+ sql.Add(' from Bs_Vehicle A');
+ sql.Add(' where VID=''' + Trim(FBCId) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_Sub);
+ SInitCDSData(ADOQueryTemp, CDS_Sub);
+end;
+
+procedure TfrmMachineInPut.TBDelClick(Sender: TObject);
+begin
+ if CDS_Sub.IsEmpty then
+ Exit;
+ if Trim(CDS_Sub.fieldbyname('VID').AsString) <> '' then
+ begin
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' delete Bs_Vehicle where VID=''' + Trim(CDS_Sub.fieldbyname('VID').AsString) + '''');
+ ExecSQL;
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ CDS_Sub.Delete;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ Application.MessageBox('ɾ쳣!', 'ʾ', 0);
+ end;
+
+ end
+ else
+ begin
+ CDS_Sub.Delete;
+ end;
+
+end;
+
+procedure TfrmMachineInPut.TBSaveClick(Sender: TObject);
+begin
+ if CDS_Sub.IsEmpty then
+ Exit;
+
+ if CDS_Sub.Locate('VNO', null, []) = True then
+ begin
+ Application.MessageBox('ŲΪ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if SaveCKData() then
+ begin
+ Application.MessageBox('ɹ!', 'ʾ', 0);
+ ModalResult := 1;
+ Exit;
+ end;
+end;
+
+procedure TfrmMachineInPut.ToolButton1Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption), Tv1, 'Ⱦɫֿ');
+end;
+
+end.
+
diff --git a/A05基础资料管理/U_MachineManage.dfm b/A05基础资料管理/U_MachineManage.dfm
index 94d84d5..6f1f0b1 100644
--- a/A05基础资料管理/U_MachineManage.dfm
+++ b/A05基础资料管理/U_MachineManage.dfm
@@ -4,28 +4,29 @@ inherited frmMachineManage: TfrmMachineManage
Caption = #26426#21488#31649#29702
ClientHeight = 523
ClientWidth = 1107
+ Font.Height = -16
KeyPreview = True
ExplicitWidth = 1123
ExplicitHeight = 562
PixelsPerInch = 96
- TextHeight = 12
+ TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1107
- Height = 38
+ Height = 30
AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 75
+ ButtonHeight = 30
+ ButtonWidth = 67
Caption = 'ToolBar1'
Color = clSkyBlue
- DisabledImages = DataLink_BaseInfo.ImageList_new32
- Images = DataLink_BaseInfo.ImageList_new32
+ DisabledImages = DataLink_BaseInfo.cxImageList_bar
+ Images = DataLink_BaseInfo.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
- TabOrder = 0
+ TabOrder = 3
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -41,24 +42,23 @@ inherited frmMachineManage: TfrmMachineManage
Caption = #36807#28388
ImageIndex = 0
Visible = False
- OnClick = ToolButton2Click
+ end
+ object ToolButton4: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 9
+ OnClick = ToolButton4Click
end
object ToolButton6: TToolButton
- Left = 142
+ Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = ToolButton6Click
end
- object ToolButton4: TToolButton
- Left = 213
- Top = 0
- AutoSize = True
- Caption = #22686#34892
- ImageIndex = 2
- OnClick = ToolButton4Click
- end
object ToolButton5: TToolButton
Left = 284
Top = 0
@@ -94,9 +94,9 @@ inherited frmMachineManage: TfrmMachineManage
end
object cxGrid2: TcxGrid [1]
Left = 0
- Top = 96
+ Top = 73
Width = 1107
- Height = 427
+ Height = 450
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@@ -104,6 +104,7 @@ inherited frmMachineManage: TfrmMachineManage
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@@ -136,30 +137,37 @@ inherited frmMachineManage: TfrmMachineManage
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
- Styles.Footer = DataLink_BaseInfo.Default
- Styles.Header = DataLink_BaseInfo.Default
object v2Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
+ Width = 53
end
object v2Column12: TcxGridDBColumn
- Caption = #26426#21488#21495
- DataBinding.FieldName = 'MCNO'
+ Caption = #36710#29260
+ DataBinding.FieldName = 'VNO'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 149
end
object v2Column8: TcxGridDBColumn
- Caption = #26426#21488#31867#22411
- DataBinding.FieldName = 'MCType'
+ Caption = #31867#22411
+ DataBinding.FieldName = 'VType'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 180
end
+ object Tv2Column1: TcxGridDBColumn
+ Caption = #21496#26426
+ DataBinding.FieldName = 'Driver'
+ DataBinding.IsNullValueType = True
+ end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
@@ -167,58 +175,62 @@ inherited frmMachineManage: TfrmMachineManage
end
object Panel1: TPanel [2]
Left = 0
- Top = 38
+ Top = 30
Width = 1107
- Height = 58
+ Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
- Color = clSkyBlue
- TabOrder = 1
+ Color = clWhite
+ ParentBackground = False
+ TabOrder = 4
object Label1: TLabel
- Left = 66
- Top = 20
- Width = 36
- Height = 12
- Caption = #26426#21488#21495
+ Left = 37
+ Top = 10
+ Width = 32
+ Height = 21
+ Caption = #36710#29260
end
- object MCNO: TEdit
+ object VNO: TcxTextEdit
Tag = 2
- Left = 105
- Top = 16
- Width = 89
- Height = 20
+ Left = 91
+ Top = 6
+ ParentColor = True
+ ParentFont = False
+ Properties.OnChange = MCNOPropertiesChange
TabOrder = 0
- OnChange = CustomerChange
+ Width = 158
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
+ Left = 113
+ Top = 256
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
- Left = 153
- Top = 129
+ Left = 137
+ Top = 169
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
- Left = 299
- Top = 209
+ Left = 459
+ Top = 169
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Parameters = <>
- Left = 261
- Top = 209
+ Left = 357
+ Top = 153
end
object ADOQueryMain: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
- Left = 229
- Top = 209
+ Left = 253
+ Top = 161
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
@@ -234,12 +246,12 @@ inherited frmMachineManage: TfrmMachineManage
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
- Left = 445
- Top = 199
+ Left = 429
+ Top = 271
end
object PopupMenu1: TPopupMenu
- Left = 379
- Top = 338
+ Left = 355
+ Top = 250
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
diff --git a/A05基础资料管理/U_MachineManage.pas b/A05基础资料管理/U_MachineManage.pas
index 3e3eb7c..98a3995 100644
--- a/A05基础资料管理/U_MachineManage.pas
+++ b/A05基础资料管理/U_MachineManage.pas
@@ -13,8 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
- cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
- dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_BarCode;
+ cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
+ dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
+ cxProgressBar;
type
TfrmMachineManage = class(TfrmBaseList)
@@ -36,7 +37,6 @@ type
N1: TMenuItem;
N2: TMenuItem;
Panel1: TPanel;
- MCNO: TEdit;
v2Column8: TcxGridDBColumn;
Label1: TLabel;
v2Column12: TcxGridDBColumn;
@@ -45,29 +45,28 @@ type
ToolButton5: TToolButton;
v2Column1: TcxGridDBColumn;
ToolButton6: TToolButton;
+ VNO: TcxTextEdit;
+ Tv2Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
- procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure CustomerChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
- procedure v2Column8PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure Tv2Column1PropertiesChange(Sender: TObject);
+ procedure MCNOPropertiesChange(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
- procedure EditValueT();
- procedure EditValueF();
public
fFlag: integer;
{ Public declarations }
@@ -80,21 +79,20 @@ var
implementation
uses
- U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
+ U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_MachineInPut;
{$R *.dfm}
-
procedure TfrmMachineManage.InitGrid();
begin
- MCNO.SetFocus;
+ ToolBar1.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
- sql.Add(' select A.* from BS_Machine A order by MCNO ');
+ sql.Add(' select A.* from Bs_Vehicle A order by VNO ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
@@ -103,7 +101,19 @@ begin
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
- EditValueF();
+end;
+
+procedure TfrmMachineManage.MCNOPropertiesChange(Sender: TObject);
+var
+ sql: string;
+begin
+ if ADOQueryMain.Active then
+ begin
+ sql := SGetFilters(Panel1, 1, 2);
+ SDofilter(ADOQueryMain, sql);
+ SCreateCDS(ADOQueryMain, CDS_HZ);
+ SInitCDSData(ADOQueryMain, CDS_HZ);
+ end;
end;
procedure TfrmMachineManage.FormDestroy(Sender: TObject);
@@ -138,19 +148,6 @@ begin
InitGrid();
end;
-procedure TfrmMachineManage.ToolButton2Click(Sender: TObject);
-var
- sql: string;
-begin
- if ADOQueryMain.Active then
- begin
- sql := SGetFilters(Panel1, 1, 2);
- SDofilter(ADOQueryMain, sql);
- SCreateCDS(ADOQueryMain, CDS_HZ);
- SInitCDSData(ADOQueryMain, CDS_HZ);
- end;
-end;
-
procedure TfrmMachineManage.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
@@ -189,40 +186,6 @@ begin
fmanage := Trim(DParameters1);
end;
-procedure TfrmMachineManage.v2Column8PropertiesEditValueChanged(Sender: TObject);
-var
- mvalue, FFieldName: string;
-begin
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
- try
- ADOQueryCmd.Connection.BeginTrans;
- with CDS_HZ do
- begin
- Edit;
- FieldByName(FFieldName).Value := Trim(mvalue);
- Post;
- end;
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('UPdate BS_Machine ');
- sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
- sql.Add(' , Editer=''' + Trim(DName) + '''');
- sql.Add(' , Edittime=getdate()');
- sql.Add(' where MCID=' + quotedstr(CDS_HZ.fieldbyname('MCID').AsString));
- ExecSQL;
- end;
- ADOQueryCmd.Connection.CommitTrans;
- tv2.Controller.EditingController.ShowEdit();
- except
- tv2.Controller.EditingController.ShowEdit();
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ʧܣ', 'ʾ', 0);
- end
-end;
-
procedure TfrmMachineManage.ToolButton3Click(Sender: TObject);
var
RTValues: TArray;
@@ -235,7 +198,7 @@ begin
Application.MessageBox('ѡݣ', 'ʾ', 0);
Exit;
end;
- RTValues := SelCDSKey(CDS_HZ, ['MCID']);
+ RTValues := SelCDSKey(CDS_HZ, ['VID']);
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
@@ -257,21 +220,33 @@ procedure TfrmMachineManage.ToolButton4Click(Sender: TObject);
var
maxId: string;
begin
- MCNO.SetFocus;
- if GetLSNo(ADOQueryCmd, maxId, 'M', 'BS_Machine', 4, 1) = False then
- begin
- Application.MessageBox('ȡʧܣ', 'ʾ', 0);
- Exit;
+ try
+ frmMachineInPut := TfrmMachineInPut.Create(Application);
+ with frmMachineInPut do
+ begin
+ FBCId := '';
+ if ShowModal = 1 then
+ begin
+ Self.InitGrid();
+ end;
+ end;
+ finally
+ frmMachineInPut.Free;
end;
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('insert into BS_Machine(Filler) values(' + quotedstr(Trim(dname)) + ')');
- ExecSQL;
- end;
- InitGrid();
- EditValueT();
+// VNO.SetFocus;
+// if GetLSNo(ADOQueryCmd, maxId, 'M', 'Bs_Vehicle', 4, 1) = False then
+// begin
+// Application.MessageBox('ȡʧܣ', 'ʾ', 0);
+// Exit;
+// end;
+// with ADOQueryCmd do
+// begin
+// Close;
+// sql.Clear;
+// sql.Add('insert into Bs_Vehicle(Filler) values(' + quotedstr(Trim(dname)) + ')');
+// ExecSQL;
+// end;
+// InitGrid();
end;
procedure TfrmMachineManage.ToolButton5Click(Sender: TObject);
@@ -298,7 +273,7 @@ begin
begin
Close;
sql.Clear;
- sql.Add('delete BS_Machine where MCID=' + QuotedStr(CDS_HZ.FieldByName('MCID').AsString));
+ sql.Add('delete Bs_Vehicle where VID=' + QuotedStr(CDS_HZ.FieldByName('VID').AsString));
ExecSQL;
end;
end;
@@ -315,28 +290,20 @@ procedure TfrmMachineManage.ToolButton6Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
- EditValueT();
-end;
-
-procedure TfrmMachineManage.EditValueT();
-var
- i: Integer;
-begin
- for i := 0 to tv2.ColumnCount - 1 do
- begin
- if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then
- tv2.Columns[i].Options.Editing := True;
- end;
-end;
-
-procedure TfrmMachineManage.EditValueF();
-var
- i: Integer;
-begin
- for i := 0 to tv2.ColumnCount - 1 do
- begin
- if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then
- tv2.Columns[i].Options.Editing := false;
+ try
+ frmMachineInPut := TfrmMachineInPut.Create(Application);
+ with frmMachineInPut do
+ begin
+ FBCId := Trim(CDS_HZ.fieldbyname('VID').AsString);
+ TBDel.Visible := False;
+ TBAdd.Visible := False;
+ if ShowModal = 1 then
+ begin
+ Self.InitGrid();
+ end;
+ end;
+ finally
+ frmMachineInPut.Free;
end;
end;
@@ -358,11 +325,11 @@ begin
begin
Close;
sql.Clear;
- sql.Add('UPdate BS_Machine ');
+ sql.Add('UPdate Bs_Vehicle ');
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
sql.Add(' , Editer=''' + Trim(DName) + '''');
sql.Add(' , Edittime=getdate()');
- sql.Add(' where MCID=' + quotedstr(CDS_HZ.fieldbyname('MCID').AsString));
+ sql.Add(' where VID=' + quotedstr(CDS_HZ.fieldbyname('VID').AsString));
// ShowMessage(sql.text);
ExecSQL;
end;
diff --git a/A05基础资料管理/U_PositionInPut.dfm b/A05基础资料管理/U_PositionInPut.dfm
new file mode 100644
index 0000000..0649719
--- /dev/null
+++ b/A05基础资料管理/U_PositionInPut.dfm
@@ -0,0 +1,245 @@
+inherited frmPositionInPut: TfrmPositionInPut
+ Left = 88
+ Top = 141
+ Caption = #26426#21488#24405#20837
+ ClientHeight = 333
+ ClientWidth = 632
+ Color = clWhite
+ Font.Height = -16
+ Position = poMainFormCenter
+ ExplicitWidth = 648
+ ExplicitHeight = 372
+ PixelsPerInch = 96
+ TextHeight = 21
+ object cxGrid2: TcxGrid [0]
+ Left = 0
+ Top = 79
+ Width = 632
+ Height = 254
+ Align = alClient
+ TabOrder = 0
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource3
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.GroupByBox = False
+ object v1Column2: TcxGridDBColumn
+ Caption = #24211#20301#32534#21495
+ DataBinding.FieldName = 'POSNO'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #24211#20301#21517#31216
+ DataBinding.FieldName = 'POSName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ end
+ object cxGrid2Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object ToolBar1: TToolBar [1]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 632
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 99
+ Caption = 'ToolBar1'
+ Images = DataLink_BaseInfo.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 1
+ object TBSave: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384
+ ImageIndex = 16
+ OnClick = TBSaveClick
+ end
+ object TBAdd: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #26032#22686
+ ImageIndex = 2
+ OnClick = TBAddClick
+ end
+ object TBDel: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #21024#38500
+ ImageIndex = 6
+ OnClick = TBDelClick
+ end
+ object ToolButton1: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton1Click
+ end
+ object TBClose: TToolButton
+ Left = 316
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [2]
+ Left = 0
+ Top = 30
+ Width = 632
+ Height = 49
+ Align = alTop
+ TabOrder = 2
+ object Label4: TLabel
+ Left = 158
+ Top = 14
+ Width = 32
+ Height = 21
+ Caption = #33539#22260
+ end
+ object Label1: TLabel
+ Left = 256
+ Top = 14
+ Width = 7
+ Height = 21
+ Caption = '-'
+ end
+ object Label2: TLabel
+ Left = 18
+ Top = 14
+ Width = 32
+ Height = 21
+ Caption = #21069#32512
+ end
+ object Label3: TLabel
+ Left = 346
+ Top = 14
+ Width = 64
+ Height = 21
+ Caption = #24211#20301#21517#31216
+ end
+ object cxtxtdtQS: TcxTextEdit
+ Tag = 2
+ Left = 194
+ Top = 8
+ ParentColor = True
+ ParentFont = False
+ TabOrder = 0
+ Width = 58
+ end
+ object cxtxtdtJS: TcxTextEdit
+ Tag = 2
+ Left = 267
+ Top = 8
+ ParentColor = True
+ ParentFont = False
+ TabOrder = 1
+ Width = 58
+ end
+ object QZ: TcxTextEdit
+ Tag = 2
+ Left = 54
+ Top = 8
+ ParentColor = True
+ ParentFont = False
+ TabOrder = 2
+ Width = 100
+ end
+ object POSName: TcxTextEdit
+ Tag = 2
+ Left = 416
+ Top = 8
+ ParentColor = True
+ ParentFont = False
+ TabOrder = 3
+ Width = 100
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ Left = 225
+ Top = 136
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ Left = 73
+ Top = 161
+ end
+ inherited ImageList_new32: TImageList
+ Left = 248
+ Top = 288
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
+ object DataSource3: TDataSource
+ DataSet = CDS_Sub
+ Left = 576
+ Top = 136
+ end
+ object CDS_Sub: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 528
+ Top = 192
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ Parameters = <>
+ Left = 328
+ Top = 136
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 408
+ Top = 136
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_BaseInfo.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 496
+ Top = 136
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 160
+ Top = 192
+ end
+end
diff --git a/A05基础资料管理/U_PositionInPut.pas b/A05基础资料管理/U_PositionInPut.pas
new file mode 100644
index 0000000..18c9b48
--- /dev/null
+++ b/A05基础资料管理/U_PositionInPut.pas
@@ -0,0 +1,252 @@
+unit U_PositionInPut;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
+ cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+ cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
+ cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
+ StrUtils, U_BaseInput, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, cxContainer, dxBarBuiltInMenu,
+ System.ImageList, Vcl.ImgList, cxImageList;
+
+type
+ TfrmPositionInPut = class(TfrmBaseInput)
+ cxGrid2: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ v1Column2: TcxGridDBColumn;
+ cxGrid2Level1: TcxGridLevel;
+ ToolBar1: TToolBar;
+ TBAdd: TToolButton;
+ TBDel: TToolButton;
+ TBSave: TToolButton;
+ TBClose: TToolButton;
+ DataSource3: TDataSource;
+ CDS_Sub: TClientDataSet;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ ToolButton1: TToolButton;
+ Tv1Column1: TcxGridDBColumn;
+ Panel1: TPanel;
+ cxtxtdtQS: TcxTextEdit;
+ cxtxtdtJS: TcxTextEdit;
+ Label4: TLabel;
+ Label1: TLabel;
+ QZ: TcxTextEdit;
+ Label2: TLabel;
+ Label3: TLabel;
+ POSName: TcxTextEdit;
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure TBAddClick(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBDelClick(Sender: TObject);
+ procedure TBSaveClick(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ private
+ { Private declarations }
+ function SaveCKData(): Boolean;
+ public
+ { Public declarations }
+ FBCId, FSTKName: string;
+ end;
+
+var
+ frmPositionInPut: TfrmPositionInPut;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmPositionInPut.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmPositionInPut.TBAddClick(Sender: TObject);
+var
+ I: Integer;
+begin
+ for I := strtointdef(cxtxtdtQS.Text, 0) to strtointdef(cxtxtdtJS.Text, 0) do
+ begin
+ with CDS_Sub do
+ begin
+ Append;
+
+ CDS_Sub.fieldbyname('POSNO').Value := Trim(QZ.Text) + RightStr(('0000' + inttostr(I)), 5);
+
+ CDS_Sub.fieldbyname('POSName').Value := Trim(POSName.Text);
+ Post;
+ end;
+ end;
+
+end;
+
+function TfrmPositionInPut.SaveCKData(): Boolean;
+var
+ MaxNo, MWBID: string;
+begin
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+ CDS_Sub.DisableControls;
+ with CDS_Sub do
+ begin
+ First;
+ while not eof do
+ begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from BS_Position where POSID=''' + Trim(CDS_Sub.fieldbyname('POSID').AsString) + '''');
+ open;
+ end;
+ MWBID := Trim(ADOQueryTemp.fieldbyname('POSID').AsString);
+ if Trim(MWBID) = '' then
+ begin
+ if GetLSNo(ADOQueryCmd, MaxNo, 'M', 'BS_Position', 4, 1) = False then
+ raise Exception.Create('ȡʧܣ');
+ end
+ else
+ begin
+ MaxNo := Trim(MWBID);
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from BS_Position where POSID=''' + Trim(MaxNo) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(MWBID) = '' then
+ begin
+ Append;
+ FieldByName('Fillid').Value := Trim(Dcode);
+ FieldByName('Filler').Value := Trim(DName)
+ end
+ else
+ begin
+ Edit;
+ FieldByName('Editid').Value := Trim(Dcode);
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
+ end;
+ FieldByName('POSID').Value := Trim(MaxNo);
+// FieldByName('STKName').Value := Trim(FSTKName);
+ RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Position', 0);
+ Post;
+ end;
+
+ Edit;
+ FieldByName('POSID').Value := Trim(MaxNo);
+ Post;
+ Next;
+ end;
+ end;
+ CDS_Sub.EnableControls;
+ ADOQueryCmd.Connection.CommitTrans;
+ Result := True;
+ except
+ Result := False;
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ end;
+
+end;
+
+procedure TfrmPositionInPut.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmPositionInPut.FormShow(Sender: TObject);
+var
+ fsj: string;
+begin
+ inherited;
+ ReadCxGrid(trim(self.Caption), Tv1, 'Ⱦɫֿ');
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* ');
+ sql.Add(' from BS_Position A');
+ sql.Add(' where POSID=''' + Trim(FBCId) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_Sub);
+ SInitCDSData(ADOQueryTemp, CDS_Sub);
+end;
+
+procedure TfrmPositionInPut.TBDelClick(Sender: TObject);
+begin
+ if CDS_Sub.IsEmpty then
+ Exit;
+ if Trim(CDS_Sub.fieldbyname('POSID').AsString) <> '' then
+ begin
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' delete BS_Position where POSID=''' + Trim(CDS_Sub.fieldbyname('POSID').AsString) + '''');
+ ExecSQL;
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ CDS_Sub.Delete;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ Application.MessageBox('ɾ쳣!', 'ʾ', 0);
+ end;
+
+ end
+ else
+ begin
+ CDS_Sub.Delete;
+ end;
+
+end;
+
+procedure TfrmPositionInPut.TBSaveClick(Sender: TObject);
+begin
+ if CDS_Sub.IsEmpty then
+ Exit;
+
+ if CDS_Sub.Locate('POSNO', null, []) = True then
+ begin
+ Application.MessageBox('ŲΪ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if SaveCKData() then
+ begin
+ Application.MessageBox('ɹ!', 'ʾ', 0);
+ ModalResult := 1;
+ Exit;
+ end;
+end;
+
+procedure TfrmPositionInPut.ToolButton1Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption), Tv1, 'Ⱦɫֿ');
+end;
+
+end.
+
diff --git a/A05基础资料管理/U_PositionList.dfm b/A05基础资料管理/U_PositionList.dfm
index 9a2a39e..63a443b 100644
--- a/A05基础资料管理/U_PositionList.dfm
+++ b/A05基础资料管理/U_PositionList.dfm
@@ -4,28 +4,29 @@ inherited frmPositionList: TfrmPositionList
Caption = #24211#20301#31649#29702
ClientHeight = 532
ClientWidth = 1107
+ Font.Height = -16
KeyPreview = True
ExplicitWidth = 1123
ExplicitHeight = 571
PixelsPerInch = 96
- TextHeight = 12
+ TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1107
- Height = 38
+ Height = 30
AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 75
+ ButtonHeight = 30
+ ButtonWidth = 67
Caption = 'ToolBar1'
Color = clSkyBlue
- DisabledImages = DataLink_BaseInfo.ImageList_new32
- Images = DataLink_BaseInfo.ImageList_new32
+ DisabledImages = DataLink_BaseInfo.cxImageList_bar
+ Images = DataLink_BaseInfo.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
- TabOrder = 0
+ TabOrder = 3
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -43,22 +44,22 @@ inherited frmPositionList: TfrmPositionList
Visible = False
OnClick = ToolButton2Click
end
- object ToolButton6: TToolButton
+ object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
+ Caption = #26032#22686
+ ImageIndex = 9
+ OnClick = ToolButton4Click
+ end
+ object ToolButton6: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = ToolButton6Click
end
- object ToolButton4: TToolButton
- Left = 213
- Top = 0
- AutoSize = True
- Caption = #22686#34892
- ImageIndex = 2
- OnClick = ToolButton4Click
- end
object ToolButton5: TToolButton
Left = 284
Top = 0
@@ -94,9 +95,9 @@ inherited frmPositionList: TfrmPositionList
end
object cxGrid2: TcxGrid [1]
Left = 0
- Top = 96
+ Top = 88
Width = 1107
- Height = 436
+ Height = 444
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@@ -104,6 +105,7 @@ inherited frmPositionList: TfrmPositionList
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@@ -131,27 +133,29 @@ inherited frmPositionList: TfrmPositionList
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
- Styles.Header = DataLink_BaseInfo.Default
object v2Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
end
object v2Column12: TcxGridDBColumn
Caption = #24211#20301#32534#21495
DataBinding.FieldName = 'POSNO'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 149
end
object v2Column8: TcxGridDBColumn
Caption = #24211#20301#21517#31216
DataBinding.FieldName = 'POSName'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 180
end
end
@@ -161,31 +165,44 @@ inherited frmPositionList: TfrmPositionList
end
object Panel1: TPanel [2]
Left = 0
- Top = 38
+ Top = 30
Width = 1107
Height = 58
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
- TabOrder = 1
+ TabOrder = 4
object Label1: TLabel
- Left = 66
- Top = 20
- Width = 48
- Height = 12
+ Left = 58
+ Top = 19
+ Width = 64
+ Height = 21
Caption = #24211#20301#32534#21495
end
object POSNO: TEdit
Tag = 2
- Left = 120
- Top = 16
- Width = 89
- Height = 20
+ Left = 126
+ Top = 15
+ Width = 120
+ Height = 29
TabOrder = 0
OnChange = CustomerChange
end
end
+ inherited loadProcess: TPanel
+ Left = 730
+ Top = 246
+ ExplicitLeft = 730
+ ExplicitTop = 246
+ end
+ inherited cxProgressBar2: TcxProgressBar
+ Left = 594
+ Top = 138
+ ExplicitLeft = 594
+ ExplicitTop = 138
+ ExplicitHeight = 29
+ end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Left = 417
diff --git a/A05基础资料管理/U_PositionList.pas b/A05基础资料管理/U_PositionList.pas
index d47b153..eea8375 100644
--- a/A05基础资料管理/U_PositionList.pas
+++ b/A05基础资料管理/U_PositionList.pas
@@ -13,8 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
- cxLookAndFeels, cxLookAndFeelPainters,
- cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_BarCode;
+ cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
+ dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
+ cxProgressBar;
type
TfrmPositionList = class(TfrmBaseList)
@@ -62,7 +63,6 @@ type
procedure N2Click(Sender: TObject);
procedure CustomerChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
- procedure v2Column8PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
@@ -71,8 +71,6 @@ type
{ Private declarations }
procedure PrintReport(FZDYNo: string);
procedure InitGrid();
- procedure EditValueT();
- procedure EditValueF();
public
fFlag: integer;
{ Public declarations }
@@ -85,7 +83,7 @@ var
implementation
uses
- U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
+ U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_PositionInPut;
{$R *.dfm}
@@ -136,29 +134,6 @@ begin
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
- EditValueF();
-end;
-
-procedure TfrmPositionList.EditValueT();
-var
- i: Integer;
-begin
- for i := 0 to tv2.ColumnCount - 1 do
- begin
- if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then
- tv2.Columns[i].Options.Editing := True;
- end;
-end;
-
-procedure TfrmPositionList.EditValueF();
-var
- i: Integer;
-begin
- for i := 0 to tv2.ColumnCount - 1 do
- begin
- if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then
- tv2.Columns[i].Options.Editing := false;
- end;
end;
procedure TfrmPositionList.FormDestroy(Sender: TObject);
@@ -244,40 +219,6 @@ begin
fmanage := Trim(DParameters1);
end;
-procedure TfrmPositionList.v2Column8PropertiesEditValueChanged(Sender: TObject);
-var
- mvalue, FFieldName: string;
-begin
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
- try
- ADOQueryCmd.Connection.BeginTrans;
- with CDS_HZ do
- begin
- Edit;
- FieldByName(FFieldName).Value := Trim(mvalue);
- Post;
- end;
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('UPdate BS_Position ');
- sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
- sql.Add(' , Editer=''' + Trim(DName) + '''');
- sql.Add(' , Edittime=getdate()');
- sql.Add(' where POSID=' + quotedstr(CDS_HZ.fieldbyname('POSID').AsString));
- ExecSQL;
- end;
- ADOQueryCmd.Connection.CommitTrans;
- tv2.Controller.EditingController.ShowEdit();
- except
- tv2.Controller.EditingController.ShowEdit();
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ʧܣ', 'ʾ', 0);
- end
-end;
-
procedure TfrmPositionList.ToolButton3Click(Sender: TObject);
var
RTValues: TArray;
@@ -309,24 +250,20 @@ begin
end;
procedure TfrmPositionList.ToolButton4Click(Sender: TObject);
-var
- maxId: string;
begin
- POSNO.SetFocus;
- if GetLSNo(ADOQueryCmd, maxId, 'KW', 'BS_Position', 4, 1) = False then
- begin
- Application.MessageBox('ȡʧܣ', 'ʾ', 0);
- Exit;
+ try
+ frmPositionInPut := TfrmPositionInPut.Create(Application);
+ with frmPositionInPut do
+ begin
+ FBCId := '';
+ if ShowModal = 1 then
+ begin
+ Self.InitGrid();
+ end;
+ end;
+ finally
+ frmPositionInPut.Free;
end;
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('insert into BS_Position(POSID,Filler) values(' + quotedstr(Trim(maxId)) + ',' + quotedstr(Trim(dname)) + ')');
- ExecSQL;
- end;
- InitGrid();
- EditValueT();
end;
procedure TfrmPositionList.ToolButton5Click(Sender: TObject);
@@ -368,13 +305,24 @@ begin
end;
procedure TfrmPositionList.ToolButton6Click(Sender: TObject);
-var
- i: Integer;
begin
if CDS_HZ.IsEmpty then
Exit;
-
- EditValueT();
+ try
+ frmPositionInPut := TfrmPositionInPut.Create(Application);
+ with frmPositionInPut do
+ begin
+ FBCId := Trim(CDS_HZ.fieldbyname('POSID').AsString);
+ TBDel.Visible := False;
+ TBAdd.Visible := False;
+ if ShowModal = 1 then
+ begin
+ Self.InitGrid();
+ end;
+ end;
+ finally
+ frmPositionInPut.Free;
+ end;
end;
end.
diff --git a/T01贸易生产计划/TradePlan.dproj b/T01贸易生产计划/TradePlan.dproj
index 5f7847a..92edd20 100644
--- a/T01贸易生产计划/TradePlan.dproj
+++ b/T01贸易生产计划/TradePlan.dproj
@@ -124,7 +124,7 @@
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
- D:\Dp10RepoV1\项目代码\D10myXushang\T01贸易生产计划\testDll.exe
+ D:\Dp10RepoV1\项目代码\D10xhGemei\T01贸易生产计划\testDll.exe
diff --git a/T01贸易生产计划/U_GetDllForm.pas b/T01贸易生产计划/U_GetDllForm.pas
index 9cd5e96..14b322e 100644
--- a/T01贸易生产计划/U_GetDllForm.pas
+++ b/T01贸易生产计划/U_GetDllForm.pas
@@ -72,14 +72,9 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
- dtbase := 'xushangData';
+ dtbase := 'gemeiData';
user := 'rtsa';
pswd := 'rightsoft@5740';
-
-// server := '127.0.0.1';
-// dtbase := 'xushangData';
-// user := 'sa';
-// pswd := 'rightsoft@123';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '';
// Parameters1 := '¼';
diff --git a/T01贸易生产计划/U_TradePlanInPut.dfm b/T01贸易生产计划/U_TradePlanInPut.dfm
index ec449cc..54159ba 100644
--- a/T01贸易生产计划/U_TradePlanInPut.dfm
+++ b/T01贸易生产计划/U_TradePlanInPut.dfm
@@ -2,7 +2,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Left = 143
Top = 4
Caption = #29983#20135#35745#21010#21333#24405#20837
- ClientHeight = 845
+ ClientHeight = 808
ClientWidth = 1722
Font.Charset = GB2312_CHARSET
Font.Height = -16
@@ -11,7 +11,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OnClose = FormClose
OnResize = FormResize
ExplicitWidth = 1738
- ExplicitHeight = 884
+ ExplicitHeight = 847
PixelsPerInch = 96
TextHeight = 21
object Label51: TLabel [0]
@@ -87,7 +87,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Left = 0
Top = 30
Width = 1722
- Height = 362
+ Height = 335
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@@ -113,9 +113,9 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
object Label1: TLabel
Left = 13
Top = 96
- Width = 48
+ Width = 64
Height = 21
- Caption = #35746#21333#21495
+ Caption = #35745#21010#21333#21495
end
object Label2: TLabel
Left = 329
@@ -132,7 +132,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Caption = #23458#25143#21333#21495
end
object Label6: TLabel
- Left = 600
+ Left = 329
Top = 135
Width = 64
Height = 21
@@ -147,7 +147,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
end
object Label9: TLabel
Left = 13
- Top = 170
+ Top = 174
Width = 32
Height = 21
Caption = #25104#20998
@@ -195,18 +195,20 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Caption = #23436#25104#24230
end
object Label16: TLabel
- Left = 13
- Top = 131
+ Left = 1193
+ Top = 245
Width = 32
Height = 21
Caption = #24067#31181
+ Visible = False
end
object Label17: TLabel
- Left = 329
- Top = 135
+ Left = 1509
+ Top = 249
Width = 48
Height = 21
Caption = #21152#24037#21035
+ Visible = False
end
object Label18: TLabel
Left = 13
@@ -220,7 +222,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Top = 53
Width = 64
Height = 21
- Caption = #35746#21333#31867#22411
+ Caption = #35745#21010#31867#22411
end
object Label38: TLabel
Left = 876
@@ -257,13 +259,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Height = 21
Caption = #21518#25972#29702#33521#25991
end
- object Label26: TLabel
- Left = 324
- Top = 289
- Width = 64
- Height = 21
- Caption = #29992#36884#21035#31216
- end
object Label29: TLabel
Left = 600
Top = 252
@@ -278,30 +273,16 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Height = 21
Caption = #20184#27454#26041#24335
end
- object Label31: TLabel
- Left = 13
- Top = 279
- Width = 103
- Height = 42
- Caption = #26579#21378'/'#21518#21152#24037#21378#13#10'('#24320#21457#21333')'
- end
- object Label32: TLabel
- Left = 600
- Top = 279
- Width = 58
- Height = 42
- Caption = #22791#27880'2'#13#10'('#24320#21457#21333')'
- end
object lbl23: TLabel
Left = 13
- Top = 330
+ Top = 295
Width = 80
Height = 21
Caption = #19979#21333#31867#22411#65306
end
object Label12: TLabel
- Left = 1356
- Top = 285
+ Left = 1166
+ Top = 47
Width = 80
Height = 21
AutoSize = False
@@ -309,8 +290,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Visible = False
end
object Label13: TLabel
- Left = 1356
- Top = 324
+ Left = 1166
+ Top = 86
Width = 80
Height = 21
AutoSize = False
@@ -324,6 +305,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Height = 21
Caption = '%'
end
+ object Label23: TLabel
+ Left = 13
+ Top = 135
+ Width = 64
+ Height = 21
+ Caption = #20135#21697#32534#21495
+ end
object OrderNo: TcxTextEdit
Tag = 1
Left = 123
@@ -340,7 +328,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
end
object C_Name: TcxTextEdit
Tag = 2
- Left = 673
+ Left = 396
Top = 129
TabOrder = 2
Width = 475
@@ -458,16 +446,18 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
end
object GC_Name: TcxTextEdit
Tag = 2
- Left = 123
- Top = 129
+ Left = 1303
+ Top = 243
TabOrder = 14
+ Visible = False
Width = 200
end
object CraftCode: TcxTextEdit
Tag = 2
- Left = 396
- Top = 129
+ Left = 1576
+ Top = 243
TabOrder = 15
+ Visible = False
Width = 200
end
object CraftName: TcxTextEdit
@@ -521,28 +511,11 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
TabOrder = 20
Width = 200
end
- object ClothUse: TcxButtonEdit
- Tag = 1
- Left = 394
- Top = 285
- Hint = 'ClothUse/'#29992#36884#21035
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- Properties.ReadOnly = False
- Properties.OnButtonClick = QtyNotePropertiesButtonClick
- Style.ButtonStyle = btsDefault
- TabOrder = 21
- OnDblClick = CustNameDblClick
- Width = 200
- end
object SalesId: TcxTextEdit
Tag = 1
Left = 1385
Top = 84
- TabOrder = 22
+ TabOrder = 21
Visible = False
Width = 200
end
@@ -550,7 +523,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Tag = 1
Left = 1385
Top = 123
- TabOrder = 23
+ TabOrder = 22
Visible = False
Width = 200
end
@@ -558,7 +531,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Tag = 1
Left = 1385
Top = 168
- TabOrder = 24
+ TabOrder = 23
Visible = False
Width = 200
end
@@ -566,7 +539,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Tag = 1
Left = 1385
Top = 207
- TabOrder = 25
+ TabOrder = 24
Visible = False
Width = 200
end
@@ -578,7 +551,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.Items.Strings = (
#26159
#21542)
- TabOrder = 26
+ TabOrder = 25
Text = #26159
Width = 197
end
@@ -595,57 +568,34 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.ReadOnly = False
Properties.OnButtonClick = QtyNotePropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 27
+ TabOrder = 26
OnDblClick = CustNameDblClick
Width = 200
end
- object FactoryName: TcxButtonEdit
- Tag = 1
- Left = 123
- Top = 285
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- Properties.ReadOnly = True
- Properties.OnButtonClick = FactoryNamePropertiesButtonClick
- Style.ButtonStyle = btsDefault
- TabOrder = 28
- OnDblClick = CustNameDblClick
- Width = 200
- end
- object Note2: TcxTextEdit
- Tag = 1
- Left = 673
- Top = 285
- TabOrder = 29
- Width = 473
- end
object OrdReason: TcxComboBox
Tag = 1
Left = 123
- Top = 326
+ Top = 289
Properties.Items.Strings = (
#27491#24120#29983#20135
#23458#35785#34917#25237)
- TabOrder = 30
+ TabOrder = 27
Text = #27491#24120#29983#20135
Width = 200
end
object C_EComposition: TcxTextEdit
Tag = 2
- Left = 1440
- Top = 279
- TabOrder = 31
+ Left = 1250
+ Top = 41
+ TabOrder = 28
Visible = False
Width = 133
end
object C_EName: TcxTextEdit
Tag = 2
- Left = 1440
- Top = 318
- TabOrder = 32
+ Left = 1250
+ Top = 80
+ TabOrder = 29
Visible = False
Width = 133
end
@@ -654,7 +604,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Left = 396
Top = 248
Properties.AssignedValues.DisplayFormat = True
- TabOrder = 33
+ TabOrder = 30
Width = 165
end
object Tallyer: TcxButtonEdit
@@ -669,27 +619,37 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.ReadOnly = True
Properties.OnButtonClick = TallyerPropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 34
+ TabOrder = 31
OnDblClick = TallyerDblClick
Width = 200
end
+ object C_Code: TcxTextEdit
+ Tag = 2
+ Left = 123
+ Top = 129
+ TabOrder = 32
+ Width = 200
+ end
end
object cxPageControl3: TcxPageControl [4]
Left = 0
- Top = 392
+ Top = 365
Width = 1722
- Height = 453
+ Height = 443
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
- ClientRectBottom = 453
+ ExplicitTop = 392
+ ExplicitHeight = 453
+ ClientRectBottom = 443
ClientRectRight = 1722
ClientRectTop = 28
object cxTabSheet2: TcxTabSheet
Caption = ' '#20135#21697#35814#24773' '
ImageIndex = 1
+ ExplicitHeight = 425
object tlb2: TToolBar
Tag = 1
Left = 0
@@ -708,16 +668,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ParentColor = False
ShowCaptions = True
TabOrder = 0
- object btnConSel: TToolButton
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #38144#21806#21512#21516
- ImageIndex = 12
- OnClick = btnConSelClick
- end
object ToolButton5: TToolButton
- Left = 103
+ Left = 0
Top = 0
AutoSize = True
Caption = #20135#21697#26723#26696
@@ -725,7 +677,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OnClick = ToolButton5Click
end
object ToolButton7: TToolButton
- Left = 206
+ Left = 103
Top = 0
AutoSize = True
Caption = #24555#36895#26032#22686
@@ -734,7 +686,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OnClick = ToolButton7Click
end
object ToolButton4: TToolButton
- Left = 309
+ Left = 206
Top = 0
AutoSize = True
Caption = 'Excel'
@@ -743,7 +695,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
- Left = 386
+ Left = 283
Top = 0
AutoSize = True
Caption = #22686#34892
@@ -751,7 +703,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OnClick = ToolButton1Click
end
object ToolButton6: TToolButton
- Left = 457
+ Left = 354
Top = 0
AutoSize = True
Caption = #22686#31354#34892
@@ -759,7 +711,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OnClick = ToolButton6Click
end
object ToolButton2: TToolButton
- Left = 544
+ Left = 441
Top = 0
AutoSize = True
Caption = #21024#34892
@@ -767,22 +719,33 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OnClick = ToolButton2Click
end
object ToolButton8: TToolButton
- Left = 615
+ Left = 512
Top = 0
AutoSize = True
Caption = #35745#31639#25237#22383#25968#37327
ImageIndex = 49
OnClick = ToolButton8Click
end
+ object btnConSel: TToolButton
+ Left = 647
+ Top = 0
+ AutoSize = True
+ Caption = #38144#21806#21512#21516
+ ImageIndex = 12
+ Visible = False
+ OnClick = btnConSelClick
+ end
end
object cxGrid1: TcxGrid
Left = 0
Top = 30
Width = 1722
- Height = 395
+ Height = 385
Align = alClient
PopupMenu = PM_1
TabOrder = 1
+ ExplicitLeft = 2
+ ExplicitTop = 28
object TV1: TcxGridDBTableView
OnMouseDown = TV1MouseDown
Navigator.Buttons.CustomButtons = <>
@@ -1016,13 +979,15 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
object cxTabSheet3: TcxTabSheet
Caption = ' '#21152#24037#35201#27714' '
ImageIndex = 3
+ ExplicitHeight = 425
object ScrollBox2: TScrollBox
Left = 0
Top = 30
Width = 1722
- Height = 395
+ Height = 385
Align = alClient
TabOrder = 0
+ ExplicitHeight = 395
object Label5: TLabel
Left = 30
Top = 62
@@ -1535,6 +1500,9 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
object cxTabSheet4: TcxTabSheet
Caption = ' '#25216#26415#35201#27714' '
ImageIndex = 3
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object cxGrid2: TcxGrid
Left = 0
Top = 30
@@ -1699,6 +1667,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
object cxTabSheet1: TcxTabSheet
Caption = ' '#21462#26679#19982#21253#35013#35201#27714' '
ImageIndex = 2
+ ExplicitHeight = 425
object cxGroupBox3: TcxGroupBox
Left = 785
Top = 0
@@ -1706,7 +1675,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Caption = #21367#26631#31614
ParentFont = False
TabOrder = 0
- Height = 425
+ ExplicitHeight = 425
+ Height = 415
Width = 937
object cxDBImage4: TcxDBImage
Left = 4
@@ -1725,7 +1695,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
OnDblClick = cxDBImage1DblClick
- Height = 394
+ ExplicitHeight = 394
+ Height = 384
Width = 929
end
end
@@ -1733,9 +1704,10 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Left = 0
Top = 0
Width = 785
- Height = 425
+ Height = 415
Align = alLeft
TabOrder = 1
+ ExplicitHeight = 425
object lbl1: TLabel
Left = 29
Top = 410
@@ -2125,6 +2097,9 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
+ Left = 1246
+ Top = 159
+ DesignInfo = 10421470
end
object ADOTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
diff --git a/T01贸易生产计划/U_TradePlanInPut.pas b/T01贸易生产计划/U_TradePlanInPut.pas
index 37718b6..b3c8def 100644
--- a/T01贸易生产计划/U_TradePlanInPut.pas
+++ b/T01贸易生产计划/U_TradePlanInPut.pas
@@ -177,8 +177,6 @@ type
CraftEName: TcxTextEdit;
Label24: TLabel;
ShippingMark: TcxMemo;
- Label26: TLabel;
- ClothUse: TcxButtonEdit;
TV1Column11: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
@@ -193,10 +191,6 @@ type
ISTax: TcxComboBox;
Label30: TLabel;
PayMent: TcxButtonEdit;
- Label31: TLabel;
- FactoryName: TcxButtonEdit;
- Label32: TLabel;
- Note2: TcxTextEdit;
TV1Column15: TcxGridDBColumn;
ScrollBox2: TScrollBox;
Label5: TLabel;
@@ -251,6 +245,8 @@ type
Tallyer: TcxButtonEdit;
ToolBar3: TToolBar;
ToolButton9: TToolButton;
+ Label23: TLabel;
+ C_Code: TcxTextEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -294,7 +290,6 @@ type
procedure TV2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FollowerPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TV2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
- procedure FactoryNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
@@ -595,35 +590,6 @@ var
begin
end;
-procedure TfrmTradePlanInPut.FactoryNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-begin
- try
- frmCompanySel := TfrmCompanySel.Create(Application);
- with frmCompanySel do
- begin
- FCoType := 'Ӧ';
- if ShowModal = 1 then
- begin
- if Trim(self.FactoryName.Properties.LookupItems.Text) <> '' then
- begin
- self.FactoryName.Properties.LookupItems.Text := self.FactoryName.Properties.LookupItems.Text + '/' + Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
- self.FactoryName.Text := self.FactoryName.Text + '/' + Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
- end
- else
- begin
- self.FactoryName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
- self.FactoryName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
- end;
-
- end;
- end;
-
- finally
- frmCompanySel.Free;
- end;
-
-end;
-
procedure TfrmTradePlanInPut.FollowerPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@@ -764,7 +730,6 @@ begin
FieldByName('OrdType').Value := '';
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('CustNo').Value := Trim(CustName.Properties.LookupItems.Text);
- FieldByName('FactoryNo').Value := Trim(FactoryName.Properties.LookupItems.Text);
Post;
end;
@@ -1272,36 +1237,81 @@ begin
begin
if ShowModal = 1 then
begin
- while CDS_1.locate('SSel', true, []) do
+
+ with CDS_3 do
begin
- with self.CDS_1 do
+ DisableControls;
+ First;
+
+ while not eof do
begin
- append;
- FieldByName('SSel').Value := false;
- Fieldbyname('C_Code').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
- self.C_Name.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
- self.C_EName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_EName').AsString);
- self.C_Spec.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
- self.C_Composition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
- self.C_EComposition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_EComposition').AsString);
+ if FieldByName('SSEL').AsBoolean then
+ begin
+ with self.CDS_1 do
+ begin
+ append;
+ FieldByName('SSel').Value := false;
+ Fieldbyname('C_Code').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
- self.C_Width.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
- self.C_GramWeight.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
- self.GC_Name.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('GC_Name').AsString);
- self.CraftCode.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftCode').AsString);
- self.CraftName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftName').AsString);
- self.CraftEName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftEName').AsString);
+ self.C_Code.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
+ self.C_Name.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
+ self.C_EName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_EName').AsString);
- Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
- Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
- Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
- Fieldbyname('SerialNo').value := 999;
+ self.C_Spec.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
+ self.C_Composition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
+ self.C_EComposition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_EComposition').AsString);
+
+ self.C_Width.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
+ self.C_GramWeight.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
+ self.GC_Name.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('GC_Name').AsString);
+ self.CraftCode.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftCode').AsString);
+ self.CraftName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftName').AsString);
+ self.CraftEName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftEName').AsString);
+
+ Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_ColorNo').AsString);
+ Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Color').AsString);
+ Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Pattern').AsString);
+ Fieldbyname('C_StyleNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_StyleNo').AsString);
+ Fieldbyname('SerialNo').value := 999;
+ end;
+ end;
+ Next;
end;
- CDS_1.Edit;
- CDS_1.fieldbyname('SSel').value := false;
+ EnableControls;
end;
+
+// while CDS_1.locate('SSel', true, []) do
+// begin
+//
+// with self.CDS_1 do
+// begin
+// append;
+// FieldByName('SSel').Value := false;
+// Fieldbyname('C_Code').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
+// self.C_Name.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
+// self.C_EName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_EName').AsString);
+//
+// self.C_Spec.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
+// self.C_Composition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
+// self.C_EComposition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_EComposition').AsString);
+//
+// self.C_Width.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
+// self.C_GramWeight.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
+// self.GC_Name.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('GC_Name').AsString);
+// self.CraftCode.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftCode').AsString);
+// self.CraftName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftName').AsString);
+// self.CraftEName.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftEName').AsString);
+//
+// Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
+// Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
+// Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
+// Fieldbyname('SerialNo').value := 999;
+// end;
+// CDS_1.Edit;
+// CDS_1.fieldbyname('SSel').value := false;
+// end;
end;
end;
finally
@@ -1398,7 +1408,6 @@ begin
Open;
end;
-
Feel.Text := trim(ADOTemp.FieldByName('Feel').AsString);
LightNote.Text := trim(ADOTemp.FieldByName('LightNote').AsString);
LightType.Text := trim(ADOTemp.FieldByName('LightType').AsString);
diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dpr b/T02贸易汇总仓库/TradeTotalClothStk.dpr
index e22934e..6fe5ee7 100644
--- a/T02贸易汇总仓库/TradeTotalClothStk.dpr
+++ b/T02贸易汇总仓库/TradeTotalClothStk.dpr
@@ -72,7 +72,9 @@ uses
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
U_CustomFun in '..\A00ͨ÷\U_CustomFun.pas',
U_TradeClothSplit in 'U_TradeClothSplit.pas' {frmTradeClothSplit},
- uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
+ uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
+ U_TradeRRList in 'U_TradeRRList.pas' {frmTradeRRList},
+ U_TradeRRInPut in 'U_TradeRRInPut.pas' {frmTradeRRInPut};
{$R *.res}
diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj b/T02贸易汇总仓库/TradeTotalClothStk.dproj
index 03d1fe1..309b030 100644
--- a/T02贸易汇总仓库/TradeTotalClothStk.dproj
+++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj
@@ -124,7 +124,7 @@
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
- D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\testDll.exe
+ D:\Dp10RepoV1\项目代码\D10xhGemei\T02贸易汇总仓库\testDll.exe
@@ -354,6 +354,14 @@
dfm
+
+
+ dfm
+
+
+
+ dfm
+
Cfg_2
Base
diff --git a/T02贸易汇总仓库/U_ClothScheduleList.dfm b/T02贸易汇总仓库/U_ClothScheduleList.dfm
index b2234bc..2819252 100644
--- a/T02贸易汇总仓库/U_ClothScheduleList.dfm
+++ b/T02贸易汇总仓库/U_ClothScheduleList.dfm
@@ -2,14 +2,14 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Left = 246
Top = 116
Caption = #24067#21305#21152#24037#35745#21010
- ClientHeight = 585
+ ClientHeight = 725
ClientWidth = 1520
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1536
- ExplicitHeight = 624
+ ExplicitHeight = 764
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@@ -150,7 +150,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Width = 1516
Height = 37
Align = alTop
+ Color = clWhite
ParentBackground = False
+ ParentColor = False
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
@@ -192,10 +194,12 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Left = 0
Top = 143
Width = 1520
- Height = 173
+ Height = 313
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
+ ExplicitLeft = -113
+ ExplicitTop = 247
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -447,13 +451,13 @@ inherited frmClothScheduleList: TfrmClothScheduleList
object ToolBar2: TToolBar [3]
Tag = 1
Left = 0
- Top = 316
+ Top = 456
Width = 1520
Height = 30
Align = alBottom
AutoSize = True
ButtonHeight = 30
- ButtonWidth = 99
+ ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
@@ -462,48 +466,17 @@ inherited frmClothScheduleList: TfrmClothScheduleList
ParentColor = False
ShowCaptions = True
TabOrder = 3
- object ToolButton2: TToolButton
+ ExplicitTop = 316
+ object ToolButton5: TToolButton
Left = 0
Top = 0
AutoSize = True
- Caption = #22383#24067#39044#25237
- ImageIndex = 2
- OnClick = ToolButton2Click
- end
- object ToolButton5: TToolButton
- Left = 103
- Top = 0
- AutoSize = True
- Caption = #23454#38469#25237#20837
+ Caption = #22383#24067#25237#22383
ImageIndex = 6
OnClick = ToolButton5Click
end
- object ToolButton6: TToolButton
- Left = 206
- Top = 0
- AutoSize = True
- Caption = #35746#21333#23436#24037
- ImageIndex = 2
- OnClick = ToolButton6Click
- end
- object ToolButton9: TToolButton
- Left = 309
- Top = 0
- AutoSize = True
- Caption = #21518#25972#39044#25237
- ImageIndex = 2
- OnClick = ToolButton9Click
- end
- object ToolButton10: TToolButton
- Left = 412
- Top = 0
- AutoSize = True
- Caption = #21518#25972#25237#20837
- ImageIndex = 6
- OnClick = ToolButton10Click
- end
object ToolButton11: TToolButton
- Left = 515
+ Left = 87
Top = 0
AutoSize = True
Caption = #35746#21333#23436#24037
@@ -511,7 +484,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton11Click
end
object ToolButton3: TToolButton
- Left = 618
+ Left = 174
Top = 0
AutoSize = True
Caption = #38754#26009#20986#24211
@@ -519,7 +492,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton3Click
end
object ToolButton12: TToolButton
- Left = 721
+ Left = 261
Top = 0
AutoSize = True
Caption = #29983#20135#22791#27880
@@ -527,34 +500,41 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton12Click
end
object ToolButton4: TToolButton
- Left = 824
+ Left = 348
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = ToolButton4Click
end
+ object ToolButton2: TToolButton
+ Left = 411
+ Top = 0
+ AutoSize = True
+ Caption = #22383#24067#39044#25237
+ ImageIndex = 2
+ Visible = False
+ OnClick = ToolButton2Click
+ end
end
object cxPageControl1: TcxPageControl [4]
Left = 0
- Top = 346
+ Top = 486
Width = 1520
Height = 239
Align = alBottom
TabOrder = 4
- Properties.ActivePage = cxTabSheet1
+ Properties.ActivePage = cxTabSheet3
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
+ ExplicitTop = 346
ClientRectBottom = 239
ClientRectRight = 1520
ClientRectTop = 32
object cxTabSheet2: TcxTabSheet
Caption = ' '#37197#24067#25968#25454' '
ImageIndex = 1
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object cxGrid2: TcxGrid
Left = 0
Top = 0
@@ -735,9 +715,6 @@ inherited frmClothScheduleList: TfrmClothScheduleList
object cxTabSheet3: TcxTabSheet
Caption = ' '#25237#20837#25968#25454' '
ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object cxGrid3: TcxGrid
Left = 0
Top = 0
@@ -925,6 +902,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Height = 207
Align = alClient
TabOrder = 0
+ ExplicitLeft = 2
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -1412,11 +1390,17 @@ inherited frmClothScheduleList: TfrmClothScheduleList
ClientRectRight = 0
ClientRectTop = 0
end
+ inherited loadProcess: TPanel
+ Left = 524
+ Top = 310
+ ExplicitLeft = 524
+ ExplicitTop = 310
+ end
inherited cxProgressBar2: TcxProgressBar
- Left = 535
- Top = 170
- ExplicitLeft = 535
- ExplicitTop = 170
+ Left = 725
+ Top = 306
+ ExplicitLeft = 725
+ ExplicitTop = 306
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
@@ -1432,8 +1416,8 @@ inherited frmClothScheduleList: TfrmClothScheduleList
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
- Left = 584
- Top = 264
+ Left = 496
+ Top = 204
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
@@ -1457,14 +1441,14 @@ inherited frmClothScheduleList: TfrmClothScheduleList
end
object DS_1: TDataSource
DataSet = CDS_1
- Left = 744
- Top = 288
+ Left = 788
+ Top = 238
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
- Left = 704
- Top = 288
+ Left = 746
+ Top = 184
end
object pm1: TPopupMenu
Left = 384
diff --git a/T02贸易汇总仓库/U_ClothScheduleList.pas b/T02贸易汇总仓库/U_ClothScheduleList.pas
index c8ba21a..d85f1ef 100644
--- a/T02贸易汇总仓库/U_ClothScheduleList.pas
+++ b/T02贸易汇总仓库/U_ClothScheduleList.pas
@@ -67,7 +67,6 @@ type
TV1Column9: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
ToolButton5: TToolButton;
- ToolButton6: TToolButton;
cxPageControl1: TcxPageControl;
cxTabSheet2: TcxTabSheet;
cxTabSheet3: TcxTabSheet;
@@ -159,8 +158,6 @@ type
TV4Column3: TcxGridDBColumn;
TV4Column4: TcxGridDBColumn;
TV4Column5: TcxGridDBColumn;
- ToolButton9: TToolButton;
- ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
cxTabSheet5: TcxTabSheet;
diff --git a/T02贸易汇总仓库/U_GetDllForm.pas b/T02贸易汇总仓库/U_GetDllForm.pas
index ae5217a..472083c 100644
--- a/T02贸易汇总仓库/U_GetDllForm.pas
+++ b/T02贸易汇总仓库/U_GetDllForm.pas
@@ -22,7 +22,7 @@ uses
U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList,
U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList,
U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList,
- U_TradeClothTotalOutList, U_TradeDeliveryRequest;
+ U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList;
/////////////////////////////////////////////////////////////////
// ˵:ȡDllеô //
@@ -78,15 +78,10 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
- dtbase := 'xushangData';
+ dtbase := 'gemeiData';
user := 'rtsa';
pswd := 'rightsoft@5740';
-// server := '127.0.0.1';
-// dtbase := 'xushangData';
-// user := 'sa';
-// pswd := 'rightsoft@123';
-
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '';
DName := 'ADMIN';
@@ -170,6 +165,18 @@ begin
end;
end;
+ 221: //˻
+ 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;
+
211: //
begin
with TfrmTradeDeliveryRequest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
diff --git a/T02贸易汇总仓库/U_TradeClothProcessCastingInput.pas b/T02贸易汇总仓库/U_TradeClothProcessCastingInput.pas
index fa6ec78..df44bb0 100644
--- a/T02贸易汇总仓库/U_TradeClothProcessCastingInput.pas
+++ b/T02贸易汇总仓库/U_TradeClothProcessCastingInput.pas
@@ -108,8 +108,8 @@ begin
sql.Add(',KYPiece=StkPiece,KYQty=StkQty ');
sql.Add(' from BS_Cloth_IO A ');
SQL.Add(' where A.IOFlag='''' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
- sql.Add(' and isnull(stkName,'''')=''óײƥ'' and IOType='''' ');
- sql.Add(' and fromMasterOrdNo= ' + QuotedStr(TRIM(FMasterOrderNo)));
+ sql.Add(' and isnull(stkName,'''')=''óײƥ'' ');
+// sql.Add(' and fromMasterOrdNo= ' + QuotedStr(TRIM(FMasterOrderNo))); and IOType=''''
Open;
end;
diff --git a/T02贸易汇总仓库/U_TradeClothTotalInList.dfm b/T02贸易汇总仓库/U_TradeClothTotalInList.dfm
index 6daa1ab..a247cc0 100644
--- a/T02贸易汇总仓库/U_TradeClothTotalInList.dfm
+++ b/T02贸易汇总仓库/U_TradeClothTotalInList.dfm
@@ -265,7 +265,9 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Width = 1964
Height = 37
Align = alTop
+ Color = clWhite
ParentBackground = False
+ ParentColor = False
TabOrder = 6
ExplicitLeft = 2
ExplicitTop = 2
diff --git a/T02贸易汇总仓库/U_TradeDeliveryRequest.dfm b/T02贸易汇总仓库/U_TradeDeliveryRequest.dfm
index bf299de..8eb775c 100644
--- a/T02贸易汇总仓库/U_TradeDeliveryRequest.dfm
+++ b/T02贸易汇总仓库/U_TradeDeliveryRequest.dfm
@@ -359,7 +359,6 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
ParentBackground = False
ParentColor = True
TabOrder = 6
- ExplicitTop = 29
object Label4: TLabel
Left = 243
Top = 47
@@ -419,7 +418,9 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
Width = 1575
Height = 36
Align = alTop
+ Color = clWhite
ParentBackground = False
+ ParentColor = False
TabOrder = 2
ExplicitLeft = 2
ExplicitTop = 2
@@ -655,11 +656,17 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
GridView = TV2
end
end
+ inherited loadProcess: TPanel
+ Left = 796
+ Top = 294
+ ExplicitLeft = 796
+ ExplicitTop = 294
+ end
inherited cxProgressBar2: TcxProgressBar
- Left = 649
- Top = 274
- ExplicitLeft = 649
- ExplicitTop = 274
+ Left = 571
+ Top = 286
+ ExplicitLeft = 571
+ ExplicitTop = 286
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
diff --git a/T02贸易汇总仓库/U_TradeRRInPut.dfm b/T02贸易汇总仓库/U_TradeRRInPut.dfm
new file mode 100644
index 0000000..2d7541e
--- /dev/null
+++ b/T02贸易汇总仓库/U_TradeRRInPut.dfm
@@ -0,0 +1,379 @@
+object frmTradeRRInPut: TfrmTradeRRInPut
+ Left = 302
+ Top = 139
+ Caption = #21457#36135#30003#35831#24405#20837
+ ClientHeight = 644
+ ClientWidth = 1252
+ Color = clBtnFace
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ OldCreateOrder = True
+ Position = poScreenCenter
+ OnShow = FormShow
+ PixelsPerInch = 96
+ TextHeight = 21
+ object ToolBar1: TToolBar
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1252
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 99
+ Caption = 'ToolBar1'
+ DisabledImages = DataLink_TradeTotalClothStk.ImageList_new32
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Images = DataLink_TradeTotalClothStk.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 0
+ object TBSave: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384
+ ImageIndex = 16
+ OnClick = TBSaveClick
+ end
+ object ToolButton4: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton4Click
+ end
+ object TBClose: TToolButton
+ Left = 174
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object ScrollBox1: TScrollBox
+ Left = 0
+ Top = 30
+ Width = 1252
+ Height = 75
+ Align = alTop
+ BevelInner = bvNone
+ BevelOuter = bvNone
+ Ctl3D = False
+ ParentCtl3D = False
+ TabOrder = 1
+ ExplicitTop = 18
+ object Label1: TLabel
+ Left = 254
+ Top = 13
+ Width = 80
+ Height = 21
+ Caption = #36864#36135#31867#22411#65306
+ end
+ object Label12: TLabel
+ Left = 31
+ Top = 45
+ Width = 68
+ Height = 21
+ Caption = #22791' '#27880#65306
+ end
+ object Label11: TLabel
+ Left = 478
+ Top = 13
+ Width = 80
+ Height = 21
+ Caption = #36864#36135#21333#20301#65306
+ end
+ object Label2: TLabel
+ Left = 31
+ Top = 13
+ Width = 80
+ Height = 21
+ Caption = #21457#36135#26085#26399#65306
+ end
+ object Label27: TLabel
+ Left = 704
+ Top = 13
+ Width = 64
+ Height = 21
+ Caption = #25968#37327#21333#20301
+ end
+ object InType: TComboBox
+ Tag = 1
+ Left = 338
+ Top = 9
+ Width = 136
+ Height = 29
+ Style = csDropDownList
+ TabOrder = 0
+ Items.Strings = (
+ #38144#21806#36864#22238
+ #21152#24037#36864#22238)
+ end
+ object Note: TEdit
+ Tag = 1
+ Left = 111
+ Top = 42
+ Width = 962
+ Height = 27
+ TabOrder = 2
+ end
+ object fromCoName: TBtnEditC
+ Tag = 1
+ Left = 562
+ Top = 9
+ Width = 138
+ Height = 30
+ TabOrder = 1
+ OnBtnUpClick = fromCoNameBtnUpClick
+ OnBtnDnClick = fromCoNameBtnDnClick
+ end
+ object DlyDate: TDateTimePicker
+ Tag = 1
+ Left = 111
+ Top = 9
+ Width = 132
+ Height = 29
+ Date = 40675.000000000000000000
+ Format = 'yyyy-MM-dd'
+ Time = 0.464761099538009100
+ TabOrder = 3
+ end
+ object QtyUnit: TComboBox
+ Tag = 2
+ Left = 772
+ Top = 9
+ Width = 96
+ Height = 29
+ Style = csDropDownList
+ TabOrder = 4
+ Items.Strings = (
+ 'M'
+ 'Y'
+ 'Kg')
+ end
+ end
+ object ToolBar2: TToolBar
+ Tag = 1
+ Left = 0
+ Top = 105
+ Width = 1252
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 59
+ Caption = 'ToolBar1'
+ Color = clBtnFace
+ DisabledImages = DataLink_TradeTotalClothStk.ImageList_new32
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_TradeTotalClothStk.cxImageList_bar
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 2
+ object ToolButton3: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #36873#21333
+ ImageIndex = 12
+ OnClick = ToolButton3Click
+ end
+ object ToolButton1: TToolButton
+ Left = 63
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = ToolButton1Click
+ end
+ object ToolButton2: TToolButton
+ Left = 126
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = ToolButton2Click
+ end
+ end
+ object cxGrid1: TcxGrid
+ Left = 0
+ Top = 135
+ Width = 1252
+ Height = 509
+ Align = alClient
+ TabOrder = 3
+ ExplicitTop = 111
+ ExplicitHeight = 533
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource1
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = '0'
+ Position = spFooter
+ end
+ item
+ Format = '0'
+ Position = spFooter
+ end
+ item
+ Format = '0'
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = Tv1Column2
+ end
+ item
+ Kind = skSum
+ Column = cv1Column3
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.FocusCellOnTab = True
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object v1Column2: TcxGridDBColumn
+ Caption = #21512#21516#21495
+ DataBinding.FieldName = 'ConNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column3: TcxGridDBColumn
+ Caption = #23458#25143#35746#21333#21495
+ DataBinding.FieldName = 'BuyConNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 122
+ end
+ object v1Column5: TcxGridDBColumn
+ Caption = #20135#21697#32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 125
+ end
+ object v1Column6: TcxGridDBColumn
+ Caption = #20135#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 151
+ end
+ object v1Column1: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 73
+ end
+ object v1Column7: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 60
+ end
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #33394#21495
+ DataBinding.FieldName = 'C_ColorNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 72
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 74
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #30003#35831#21305#25968
+ DataBinding.FieldName = 'Piece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 81
+ end
+ object cv1Column3: TcxGridDBColumn
+ Caption = #30003#35831#25968#37327
+ DataBinding.FieldName = 'Qty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object ADOTemp: TADOQuery
+ Connection = DataLink_TradeTotalClothStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 256
+ Top = 281
+ end
+ object ADOCmd: TADOQuery
+ Connection = DataLink_TradeTotalClothStk.ADOLink
+ Parameters = <>
+ Left = 328
+ Top = 281
+ end
+ object DataSource1: TDataSource
+ DataSet = Order_Sub
+ Left = 684
+ Top = 276
+ end
+ object Order_Sub: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 596
+ Top = 284
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ Grid = cxGrid1
+ PopupMenus = <>
+ Left = 456
+ Top = 276
+ end
+ object cxStyleRepository1: TcxStyleRepository
+ Left = 200
+ Top = 432
+ PixelsPerInch = 96
+ object dazi1: TcxStyle
+ AssignedValues = [svColor]
+ Color = clRed
+ end
+ end
+end
diff --git a/T02贸易汇总仓库/U_TradeRRInPut.pas b/T02贸易汇总仓库/U_TradeRRInPut.pas
new file mode 100644
index 0000000..ea3a684
--- /dev/null
+++ b/T02贸易汇总仓库/U_TradeRRInPut.pas
@@ -0,0 +1,448 @@
+unit U_TradeRRInPut;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+ cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+ cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+ StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+ cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
+ cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
+ dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations;
+
+type
+ TfrmTradeRRInPut = class(Tform)
+ ToolBar1: TToolBar;
+ TBSave: TToolButton;
+ TBClose: TToolButton;
+ ScrollBox1: TScrollBox;
+ ToolBar2: TToolBar;
+ ToolButton1: TToolButton;
+ ToolButton2: TToolButton;
+ cxGrid1: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ cxGrid1Level1: TcxGridLevel;
+ ADOTemp: TADOQuery;
+ ADOCmd: TADOQuery;
+ DataSource1: TDataSource;
+ Order_Sub: TClientDataSet;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ Label1: TLabel;
+ InType: TComboBox;
+ Note: TEdit;
+ Label12: TLabel;
+ Label11: TLabel;
+ fromCoName: TBtnEditC;
+ v1Column1: TcxGridDBColumn;
+ cv1Column3: TcxGridDBColumn;
+ cxStyleRepository1: TcxStyleRepository;
+ dazi1: TcxStyle;
+ v1Column2: TcxGridDBColumn;
+ v1Column5: TcxGridDBColumn;
+ v1Column6: TcxGridDBColumn;
+ v1Column7: TcxGridDBColumn;
+ Label2: TLabel;
+ DlyDate: TDateTimePicker;
+ Tv1Column2: TcxGridDBColumn;
+ ToolButton3: TToolButton;
+ Tv1Column3: TcxGridDBColumn;
+ Tv1Column6: TcxGridDBColumn;
+ ToolButton4: TToolButton;
+ Label27: TLabel;
+ QtyUnit: TComboBox;
+ Tv1Column1: TcxGridDBColumn;
+ Tv1Column4: TcxGridDBColumn;
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBSaveClick(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure fromCoNameBtnUpClick(Sender: TObject);
+ procedure fromCoNameBtnDnClick(Sender: TObject);
+ procedure JSQtyUnitChange(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure ToolButton4Click(Sender: TObject);
+ private
+ fuserName: string;
+ procedure InitData();
+ function SaveData(): Boolean;
+ { Private declarations }
+ public
+ PState, CopyInt: Integer;
+ FRRMID: string;
+ { Public declarations }
+ end;
+
+var
+ frmTradeRRInPut: TfrmTradeRRInPut;
+ newh: hwnd;
+
+implementation
+
+uses
+ U_DataLink, U_ZDYHelp, U_RTFun, U_TradePlanSel, U_TradeSalesContractSel,
+ U_CompanySel;
+
+{$R *.dfm}
+
+procedure TfrmTradeRRInPut.TBCloseClick(Sender: TObject);
+begin
+ Close;
+
+end;
+
+procedure TfrmTradeRRInPut.InitData();
+var
+ fsj: string;
+begin
+ if PState = 0 then
+ begin
+ DlyDate.DateTime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now)));
+
+ end;
+ with ADOTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.* ');
+ sql.Add(' from Trade_Cloth_RR_Sub A');
+ if PState = 1 then
+ begin
+ sql.Add('where RRMID=''' + Trim(FRRMID) + '''');
+ end;
+ if PState = 0 then
+ begin
+ sql.Add(' where 1<>1');
+ end;
+ Open;
+ end;
+ SCreateCDS(ADOTemp, Order_Sub);
+ SInitCDSData(ADOTemp, Order_Sub);
+
+ with ADOTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* ');
+ sql.Add(' from Trade_Cloth_RR_Main A');
+ sql.Add(' where RRMID=''' + Trim(FRRMID) + ''' ');
+ Open;
+ end;
+ SCSHData(ADOTemp, ScrollBox1, 1);
+ fromCoName.TxtCode := ADOTemp.FieldByName('fromCoNo').AsString;
+end;
+
+procedure TfrmTradeRRInPut.JSQtyUnitChange(Sender: TObject);
+begin
+ if not Order_Sub.IsEmpty then
+ begin
+
+ exit;
+ end;
+end;
+
+procedure TfrmTradeRRInPut.FormShow(Sender: TObject);
+var
+ fsj: string;
+begin
+
+ readCxGrid(trim(self.Caption), Tv1, '');
+
+ InitData();
+end;
+
+function TfrmTradeRRInPut.SaveData(): Boolean;
+var
+ MaxMid, MaxSid: string;
+begin
+ try
+ ADOCmd.Connection.BeginTrans;
+ ///////////////// /////////////////
+ if Trim(FRRMID) = '' then
+ begin
+ if GetLSNo(ADOCmd, MaxMid, 'DM', 'Trade_Cloth_RR_Main', 4, 1) = False then
+ raise Exception.Create('ȡʧܣ');
+ end
+ else
+ begin
+ MaxMid := Trim(FRRMID);
+ end;
+ with ADOCmd do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select * from Trade_Cloth_RR_Main where RRMID=''' + Trim(MaxMid) + '''');
+ Open;
+ end;
+ with ADOCmd do
+ begin
+ if Trim(FRRMID) = '' then
+ begin
+ Append;
+ FieldByName('FillID').Value := Trim(DCode);
+ FieldByName('Filler').Value := Trim(DName);
+ end
+ else
+ begin
+ Edit;
+ FieldByName('EditID').Value := Trim(DCode);
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
+ end;
+ RTSetsavedata(ADOCmd, 'Trade_Cloth_RR_Main', ScrollBox1, 1);
+
+ FieldByName('fromCoNo').Value := fromCoName.TxtCode;
+
+ FieldByName('RRMID').Value := Trim(MaxMid);
+ FieldByName('Status').Value := '0';
+ Post;
+ end;
+ ///////////////// /////////////////
+ ///
+ ///////////////// ӱ /////////////////
+ Order_Sub.DisableControls;
+ with Order_Sub do
+ begin
+ First;
+ while not Eof do
+ begin
+ if Trim(Order_Sub.fieldbyname('RRSID').AsString) = '' then
+ begin
+ if GetLSNo(ADOCmd, MaxSid, 'DS', 'Trade_Cloth_RR_Sub', 4, 1) = False then
+ raise Exception.Create('ȡˮʧܣ');
+ end
+ else
+ begin
+ MaxSid := Trim(Order_Sub.fieldbyname('RRSID').AsString);
+ end;
+
+ with ADOCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Trade_Cloth_RR_Sub ');
+ sql.Add(' where RRMID=''' + Trim(MaxMid) + '''');
+ sql.Add(' and RRSID=''' + Trim(MaxSid) + '''');
+ Open;
+ if ADOCmd.IsEmpty then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Trade_Cloth_RR_Sub', 0);
+ FieldByName('RRMID').Value := Trim(MaxMid);
+ FieldByName('RRSID').Value := Trim(MaxSid);
+ FieldByName('QtyUnit').Value := QtyUnit.Text;
+ FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
+ FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
+ FieldByName('ConMId').Value := Order_Sub.fieldbyname('ConMId').Value;
+ FieldByName('ConSId').Value := Order_Sub.fieldbyname('ConSId').Value;
+ Post;
+ end;
+ Order_Sub.Edit;
+ Order_Sub.FieldByName('RRSID').Value := Trim(MaxSid);
+ Next;
+ end;
+ end;
+ Order_Sub.EnableControls;
+ ///////////////// ӱ /////////////////
+ FRRMID := Trim(MaxMid);
+ ADOCmd.Connection.CommitTrans;
+ Result := True;
+ except
+ ADOCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ Result := False;
+ end;
+end;
+
+procedure TfrmTradeRRInPut.TBSaveClick(Sender: TObject);
+var
+ Freal: Double;
+begin
+ ToolBar1.SetFocus;
+
+ if Trim(InType.Text) = '' then
+ begin
+ Application.MessageBox('ͲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if Trim(fromCoName.Text) = '' then
+ begin
+ Application.MessageBox('˻λΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then
+ begin
+ Application.MessageBox('ϸƥȫΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if SaveData() then
+ begin
+ Application.MessageBox('ɹ', 'ʾ', 0);
+ ModalResult := 1;
+ end;
+end;
+
+procedure TfrmTradeRRInPut.ToolButton1Click(Sender: TObject);
+var
+ FQtyUnit, FFSubid: string;
+begin
+
+ try
+ frmTradePlanSel := TfrmTradePlanSel.Create(Application);
+ with frmTradePlanSel do
+ begin
+ if ShowModal = 1 then
+ begin
+ while CDS_1.locate('SSel', true, []) do
+ begin
+ begin
+ with Self.Order_Sub do
+ begin
+ Append;
+ FieldByName('OrderNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('Orderno').AsString);
+ FieldByName('ConMId').Value := frmTradePlanSel.CDS_1.fieldbyname('ConMId').Value;
+ FieldByName('ConSId').Value := frmTradePlanSel.CDS_1.fieldbyname('ConSId').Value;
+ FieldByName('MainId').Value := frmTradePlanSel.CDS_1.fieldbyname('MainId').Value;
+ FieldByName('SubId').Value := frmTradePlanSel.CDS_1.fieldbyname('SubId').Value;
+ FieldByName('C_Code').Value := frmTradePlanSel.CDS_1.fieldbyname('C_Code').Value;
+ FieldByName('C_Name').Value := frmTradePlanSel.CDS_1.fieldbyname('C_Name').Value;
+ FieldByName('C_Composition').Value := frmTradePlanSel.CDS_1.fieldbyname('C_Composition').Value;
+ FieldByName('C_Spec').Value := frmTradePlanSel.CDS_1.fieldbyname('C_Spec').Value;
+ FieldByName('C_Width').Value := frmTradePlanSel.CDS_1.fieldbyname('C_Width').Value;
+ FieldByName('C_GramWeight').Value := frmTradePlanSel.CDS_1.fieldbyname('C_GramWeight').Value;
+ FieldByName('C_Color').Value := frmTradePlanSel.CDS_1.fieldbyname('C_Color').Value;
+ FieldByName('C_ColorNo').Value := frmTradePlanSel.CDS_1.fieldbyname('C_ColorNo').Value;
+ FieldByName('C_Pattern').Value := frmTradePlanSel.CDS_1.fieldbyname('C_Pattern').Value;
+ FieldByName('C_StyleNo').Value := frmTradePlanSel.CDS_1.fieldbyname('C_StyleNo').Value;
+ end;
+ end;
+ CDS_1.Delete;
+ end;
+ end;
+ end;
+ finally
+ frmTradePlanSel.Free;
+ end;
+end;
+
+procedure TfrmTradeRRInPut.ToolButton2Click(Sender: TObject);
+begin
+ if Order_Sub.IsEmpty then
+ Exit;
+ if Trim(Order_Sub.fieldbyname('RRSID').AsString) <> '' then
+ begin
+ with ADOTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Trade_Cloth_RR_Sub where RRSID=''' + Trim(Order_Sub.fieldbyname('RRSID').AsString) + '''');
+ sql.add(' and isnull(DlyPiece,0)>0');
+ Open;
+ end;
+ if ADOTemp.IsEmpty = False then
+ begin
+ Application.MessageBox('˻ɾ!', 'ʾ', 0);
+ exit;
+ end;
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ with ADOCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Trade_Cloth_RR_Sub where RRSID=''' + Trim(Order_Sub.fieldbyname('RRSID').AsString) + '''');
+ ExecSQL;
+ end;
+
+ end;
+ Order_Sub.Delete;
+end;
+
+procedure TfrmTradeRRInPut.ToolButton3Click(Sender: TObject);
+var
+ FConMainId, FMPRTCode: string;
+begin
+ try
+ frmTradeSalesContractSel := TfrmTradeSalesContractSel.Create(Application);
+ with frmTradeSalesContractSel do
+ begin
+ BuyName.Text := Self.fromCoName.Text;
+ if ShowModal = 1 then
+ begin
+ while CDS_1.locate('SSel', true, []) do
+ begin
+ if not self.Order_Sub.locate('ConSId', trim(frmTradeSalesContractSel.CDS_1.Fieldbyname('ConSId').AsString), []) then
+ begin
+ with Self.Order_Sub do
+ begin
+ Append;
+ FieldByName('ConNo').Value := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
+ FieldByName('ConMId').Value := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString);
+ FieldByName('ConSId').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').Value;
+ FieldByName('C_Code').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').Value;
+ FieldByName('C_Name').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Name').Value;
+ FieldByName('C_Composition').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Composition').Value;
+ FieldByName('C_Spec').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Spec').Value;
+ FieldByName('C_Width').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Width').Value;
+ FieldByName('C_GramWeight').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').Value;
+ FieldByName('C_Color').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Color').Value;
+ FieldByName('C_ColorNo').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_ColorNo').Value;
+ FieldByName('C_EColor').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_EColor').Value;
+ FieldByName('C_Pattern').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Pattern').Value;
+ FieldByName('C_StyleNo').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_StyleNo').Value;
+// FieldByName('C_ColorDepth').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_ColorDepth').Value;
+ end;
+ end;
+
+ CDS_1.Edit;
+ CDS_1.fieldbyname('SSel').value := false;
+ end;
+
+ end;
+ end;
+ finally
+ frmTradeSalesContractSel.Free;
+ end;
+end;
+
+procedure TfrmTradeRRInPut.ToolButton4Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption), Tv1, '')
+end;
+
+procedure TfrmTradeRRInPut.fromCoNameBtnUpClick(Sender: TObject);
+begin
+
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := 'ͻ';
+ if ShowModal = 1 then
+ begin
+ self.fromCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+ self.fromCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+ end;
+ end;
+
+ finally
+ frmCompanySel.Free;
+ end;
+
+end;
+
+procedure TfrmTradeRRInPut.fromCoNameBtnDnClick(Sender: TObject);
+begin
+ fromCoName.Text := '';
+end;
+
+end.
+
diff --git a/T02贸易汇总仓库/U_TradeRRList.dfm b/T02贸易汇总仓库/U_TradeRRList.dfm
new file mode 100644
index 0000000..711b6cf
--- /dev/null
+++ b/T02贸易汇总仓库/U_TradeRRList.dfm
@@ -0,0 +1,629 @@
+inherited frmTradeRRList: TfrmTradeRRList
+ Left = 220
+ Top = 16
+ BorderStyle = bsNone
+ Caption = #36864#36135#30003#35831
+ ClientHeight = 752
+ ClientWidth = 1453
+ Color = clBtnFace
+ Font.Height = -16
+ FormStyle = fsMDIChild
+ Position = poScreenCenter
+ Visible = True
+ ExplicitWidth = 1469
+ ExplicitHeight = 791
+ PixelsPerInch = 96
+ TextHeight = 21
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1453
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 83
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ DisabledImages = DataLink_TradeTotalClothStk.ImageList_new32
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_TradeTotalClothStk.cxImageList_bar
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 4
+ object TBRafresh: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #21047#26032
+ ImageIndex = 1
+ OnClick = TBRafreshClick
+ end
+ object TBFind: TToolButton
+ Left = 63
+ Top = 0
+ AutoSize = True
+ Caption = #36807#28388
+ ImageIndex = 0
+ OnClick = TBFindClick
+ end
+ object TBAdd: TToolButton
+ Left = 126
+ Top = 0
+ AutoSize = True
+ Caption = #26032#22686
+ ImageIndex = 9
+ OnClick = TBAddClick
+ end
+ object ToolButton1: TToolButton
+ Left = 189
+ Top = 0
+ AutoSize = True
+ Caption = #26597#30475
+ ImageIndex = 4
+ OnClick = ToolButton1Click
+ end
+ object TBDel: TToolButton
+ Left = 252
+ Top = 0
+ AutoSize = True
+ Caption = #21024#38500
+ ImageIndex = 5
+ OnClick = TBDelClick
+ end
+ object TBEdit: TToolButton
+ Left = 315
+ Top = 0
+ AutoSize = True
+ Caption = #20462#25913
+ ImageIndex = 3
+ OnClick = TBEditClick
+ end
+ object TBPrint: TToolButton
+ Left = 378
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360
+ ImageIndex = 21
+ OnClick = TBPrintClick
+ end
+ object tchk: TToolButton
+ Left = 441
+ Top = 0
+ AutoSize = True
+ Caption = #23457#26680
+ ImageIndex = 12
+ OnClick = tchkClick
+ end
+ object Tnochk: TToolButton
+ Left = 504
+ Top = 0
+ AutoSize = True
+ Caption = #25764#38144#23457#26680
+ ImageIndex = 11
+ OnClick = TnochkClick
+ end
+ object btnWC: TToolButton
+ Left = 591
+ Top = 0
+ AutoSize = True
+ Caption = #23436#25104
+ ImageIndex = 12
+ OnClick = btnWCClick
+ end
+ object btnWCCX: TToolButton
+ Left = 654
+ Top = 0
+ AutoSize = True
+ Caption = #25764#38144#23436#25104
+ ImageIndex = 11
+ OnClick = btnWCCXClick
+ end
+ object TBExport: TToolButton
+ Left = 741
+ Top = 0
+ AutoSize = True
+ Caption = #23548#20986
+ ImageIndex = 20
+ OnClick = TBExportClick
+ end
+ object ToolButton6: TToolButton
+ Left = 804
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton6Click
+ end
+ object TBClose: TToolButton
+ Left = 891
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object cxGrid1: TcxGrid [1]
+ Left = 0
+ Top = 141
+ Width = 1453
+ Height = 341
+ Align = alClient
+ TabOrder = 3
+ ExplicitTop = 139
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnFocusedRecordChanged = Tv1FocusedRecordChanged
+ DataController.DataSource = DataSource1
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.GroupFooters = gfAlwaysVisible
+ OptionsView.IndicatorWidth = 30
+ object v1Column4: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ Properties.MultiLine = True
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Width = 49
+ end
+ object v1Column8: TcxGridDBColumn
+ Caption = #30003#35831#21333#21495
+ DataBinding.FieldName = 'RRMID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 93
+ end
+ object v1OrdDate: TcxGridDBColumn
+ Caption = #30331#35760#26085#26399
+ DataBinding.FieldName = 'Filltime'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 85
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #36864#36135#31867#22411
+ DataBinding.FieldName = 'inType'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 84
+ end
+ object v1Column27: TcxGridDBColumn
+ Caption = #20132#36135#26085#26399
+ DataBinding.FieldName = 'DlyDate'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 69
+ end
+ object v1Column10: TcxGridDBColumn
+ Caption = #25910#36135#21333#20301
+ DataBinding.FieldName = 'fromCoName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 124
+ end
+ object v1Column1: TcxGridDBColumn
+ Caption = #30003#35831#20154
+ DataBinding.FieldName = 'Filler'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v1Column13: TcxGridDBColumn
+ Caption = #23457#26680#20154
+ DataBinding.FieldName = 'Chker'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 65
+ end
+ object v1Column17: TcxGridDBColumn
+ Caption = #23457#26680#26085#26399
+ DataBinding.FieldName = 'ChkTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v1Column7: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 70
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object Panel1: TPanel [2]
+ Left = 0
+ Top = 30
+ Width = 1453
+ Height = 81
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ ParentBackground = False
+ ParentColor = True
+ TabOrder = 6
+ object Label4: TLabel
+ Left = 196
+ Top = 52
+ Width = 64
+ Height = 21
+ Caption = #25910#36135#21333#20301
+ end
+ object Label1: TLabel
+ Left = 25
+ Top = 52
+ Width = 64
+ Height = 21
+ Caption = #30003#35831#21333#21495
+ end
+ object ToCoName: TEdit
+ Tag = 2
+ Left = 264
+ Top = 44
+ Width = 115
+ Height = 29
+ TabOrder = 0
+ OnChange = ToCoNameChange
+ end
+ object RRMID: TEdit
+ Tag = 2
+ Left = 93
+ Top = 44
+ Width = 99
+ Height = 29
+ TabOrder = 1
+ OnChange = ToCoNameChange
+ end
+ inline frmFrameDateSel1: TfrmFrameDateSel
+ Left = 2
+ Top = 2
+ Width = 1449
+ Height = 37
+ Align = alTop
+ Color = clWhite
+ ParentBackground = False
+ ParentColor = False
+ TabOrder = 2
+ ExplicitLeft = 2
+ ExplicitTop = 2
+ ExplicitWidth = 1964
+ ExplicitHeight = 37
+ inherited lbl2: TLabel
+ Width = 16
+ Height = 21
+ ExplicitWidth = 16
+ ExplicitHeight = 21
+ end
+ end
+ end
+ object cxTabControl1: TcxTabControl [3]
+ Left = 0
+ Top = 111
+ Width = 1453
+ Height = 30
+ Align = alTop
+ TabOrder = 2
+ Properties.CustomButtons.Buttons = <>
+ Properties.Style = 9
+ Properties.TabIndex = 0
+ Properties.Tabs.Strings = (
+ #26410#23457#26680
+ #24050#23457#26680
+ #24050#23436#25104
+ #20840#37096)
+ OnChange = cxTabControl1Change
+ ExplicitTop = 73
+ ClientRectRight = 0
+ ClientRectTop = 0
+ end
+ object cxSplitter1: TcxSplitter [4]
+ Left = 0
+ Top = 482
+ Width = 1453
+ Height = 8
+ HotZoneClassName = 'TcxMediaPlayer9Style'
+ AlignSplitter = salBottom
+ Control = cxGrid2
+ ExplicitTop = 308
+ end
+ object cxGrid2: TcxGrid [5]
+ Left = 0
+ Top = 490
+ Width = 1453
+ Height = 262
+ Align = alBottom
+ TabOrder = 5
+ ExplicitLeft = 6
+ ExplicitTop = 314
+ object TV2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_2
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = '0'
+ Position = spFooter
+ end
+ item
+ Format = '0'
+ Position = spFooter
+ end
+ item
+ Format = '0'
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ 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 = #21512#21516#21495
+ DataBinding.FieldName = 'ConNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn2: TcxGridDBColumn
+ Caption = #23458#25143#35746#21333#21495
+ DataBinding.FieldName = 'BuyConNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 146
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #20135#21697#32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 88
+ end
+ object v1Column6: TcxGridDBColumn
+ Caption = #20135#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 71
+ end
+ object cxGridDBColumn4: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 73
+ end
+ object cxGridDBColumn5: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 60
+ end
+ object cxGridDBColumn6: TcxGridDBColumn
+ Caption = #33394#21495
+ DataBinding.FieldName = 'C_ColorNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 71
+ end
+ object cxGridDBColumn7: TcxGridDBColumn
+ Caption = #30003#35831#21305#25968
+ DataBinding.FieldName = 'Piece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 103
+ end
+ object cv1Column3: TcxGridDBColumn
+ Caption = #30003#35831#25968#37327
+ DataBinding.FieldName = 'Qty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 108
+ end
+ object TV2Column1: TcxGridDBColumn
+ Caption = #25968#37327#21333#20301
+ DataBinding.FieldName = 'QtyUnit'
+ DataBinding.IsNullValueType = True
+ Options.Editing = False
+ Width = 112
+ end
+ object TV2Column2: TcxGridDBColumn
+ Caption = #26816#39564#21305#25968
+ DataBinding.FieldName = 'DlyPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 120
+ end
+ object TV2Column3: TcxGridDBColumn
+ Caption = #26816#39564#25968#37327
+ DataBinding.FieldName = 'DlyQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 134
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = TV2
+ end
+ end
+ inherited loadProcess: TPanel
+ Left = 388
+ Top = 212
+ ExplicitLeft = 388
+ ExplicitTop = 212
+ end
+ inherited cxProgressBar2: TcxProgressBar
+ Left = 636
+ Top = 222
+ ExplicitLeft = 636
+ ExplicitTop = 222
+ ExplicitHeight = 29
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeTotalClothStk.ADOLink
+ Left = 73
+ Top = 224
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeTotalClothStk.ADOLink
+ Left = 73
+ Top = 161
+ end
+ object cxGridPopupMenu1: TcxGridPopupMenu
+ Grid = cxGrid1
+ PopupMenus = <>
+ Left = 1000
+ Top = 184
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_TradeTotalClothStk.ADOLink
+ Parameters = <>
+ Left = 292
+ Top = 250
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TradeTotalClothStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 560
+ Top = 160
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_TradeTotalClothStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 688
+ Top = 152
+ end
+ object DataSource1: TDataSource
+ DataSet = Order_Main
+ Left = 968
+ Top = 184
+ end
+ object Order_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 936
+ Top = 184
+ end
+ object DS_2: TDataSource
+ DataSet = ClientDataSet2
+ Left = 352
+ Top = 600
+ end
+ object ClientDataSet2: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 272
+ Top = 592
+ end
+ object GPM_2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 408
+ Top = 600
+ end
+end
diff --git a/T02贸易汇总仓库/U_TradeRRList.pas b/T02贸易汇总仓库/U_TradeRRList.pas
new file mode 100644
index 0000000..fb9427a
--- /dev/null
+++ b/T02贸易汇总仓库/U_TradeRRList.pas
@@ -0,0 +1,746 @@
+unit U_TradeRRList;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+ cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+ cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
+ cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+ cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
+ RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
+ cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+ dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList,
+ dxDateRanges, cxContainer, dxScrollbarAnnotations, cxProgressBar, FrameDateSel;
+
+type
+ TfrmTradeRRList = class(TfrmBaseList)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBFind: TToolButton;
+ TBAdd: TToolButton;
+ TBEdit: TToolButton;
+ TBDel: TToolButton;
+ TBPrint: TToolButton;
+ TBClose: TToolButton;
+ Tv1: TcxGridDBTableView;
+ cxGrid1Level1: TcxGridLevel;
+ cxGrid1: TcxGrid;
+ cxGridPopupMenu1: TcxGridPopupMenu;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DataSource1: TDataSource;
+ TBExport: TToolButton;
+ v1OrdDate: TcxGridDBColumn;
+ Order_Main: TClientDataSet;
+ ToolButton1: TToolButton;
+ v1Column4: TcxGridDBColumn;
+ Panel1: TPanel;
+ Label4: TLabel;
+ ToCoName: TEdit;
+ cxTabControl1: TcxTabControl;
+ tchk: TToolButton;
+ Tnochk: TToolButton;
+ cxSplitter1: TcxSplitter;
+ DS_2: TDataSource;
+ v1Column8: TcxGridDBColumn;
+ ClientDataSet2: TClientDataSet;
+ GPM_2: TcxGridPopupMenu;
+ v1Column13: TcxGridDBColumn;
+ v1Column17: TcxGridDBColumn;
+ v1Column1: TcxGridDBColumn;
+ v1Column7: TcxGridDBColumn;
+ v1Column10: TcxGridDBColumn;
+ v1Column27: TcxGridDBColumn;
+ btnWC: TToolButton;
+ btnWCCX: TToolButton;
+ ToolButton6: TToolButton;
+ Label1: TLabel;
+ cxGrid2: TcxGrid;
+ TV2: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridDBColumn2: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ v1Column6: TcxGridDBColumn;
+ cxGridDBColumn4: TcxGridDBColumn;
+ cxGridDBColumn5: TcxGridDBColumn;
+ cxGridDBColumn6: TcxGridDBColumn;
+ cxGridDBColumn7: TcxGridDBColumn;
+ cv1Column3: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ TV2Column1: TcxGridDBColumn;
+ TV2Column2: TcxGridDBColumn;
+ TV2Column3: TcxGridDBColumn;
+ Tv1Column1: TcxGridDBColumn;
+ frmFrameDateSel1: TfrmFrameDateSel;
+ //RMllPDFExport1: TRMllPDFExport;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure TBCloseClick(Sender: TObject);
+ procedure TBFindClick(Sender: TObject);
+ procedure TBEditClick(Sender: TObject);
+ procedure TBDelClick(Sender: TObject);
+ procedure TBExportClick(Sender: TObject);
+ procedure TBPrintClick(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure TBAddClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure CheckBox1Click(Sender: TObject);
+ procedure CheckBox2Click(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure ToCoNameChange(Sender: TObject);
+ procedure tchkClick(Sender: TObject);
+ procedure TnochkClick(Sender: TObject);
+ procedure cxTabControl1Change(Sender: TObject);
+ procedure btnWCClick(Sender: TObject);
+ procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+ procedure btnWCCXClick(Sender: TObject);
+ procedure v1Column7PropertiesEditValueChanged(Sender: TObject);
+ procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject);
+ procedure ToolButton6Click(Sender: TObject);
+ private
+ procedure InitGrid();
+ procedure InitSubGrid();
+ procedure SetStatus();
+ function DelData(): Boolean;
+ { Private declarations }
+ public
+ FFInt: Integer;
+ canshu1, canshu2: string;
+ { Public declarations }
+ end;
+
+//var
+ //frmContractListNX: TfrmContractListNX;
+
+implementation
+
+uses
+ U_DataLink, U_TradeRRInPut, U_RTFun, U_ZDYHelp, U_LabelPrint;
+
+{$R *.dfm}
+
+procedure TfrmTradeRRList.SetStatus();
+begin
+ tchk.Enabled := False;
+ Tnochk.Enabled := False;
+ btnWC.Enabled := False;
+ btnWCCX.Enabled := False;
+
+ if canshu1 = '¼' then
+ begin
+ case cxTabControl1.TabIndex of
+ 0:
+ begin
+ tchk.Enabled := true;
+ end;
+ 1:
+ begin
+ Tnochk.Enabled := true;
+ btnWC.Enabled := true;
+ end;
+ 2:
+ begin
+ btnWCCX.Enabled := true;
+ end;
+ end;
+ end
+ else if canshu1 = '' then
+ begin
+ case cxTabControl1.TabIndex of
+ 0:
+ begin
+ tchk.Enabled := true;
+ end;
+ 1:
+ begin
+ Tnochk.Enabled := true;
+ btnWC.Enabled := true;
+ end;
+ 2:
+ begin
+ btnWCCX.Enabled := true;
+ end;
+ end;
+ end;
+end;
+
+procedure TfrmTradeRRList.FormDestroy(Sender: TObject);
+begin
+ inherited;
+ //frmFHSQList:=nil;
+
+end;
+
+procedure TfrmTradeRRList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmTradeRRList.TBCloseClick(Sender: TObject);
+begin
+ Close;
+end;
+
+procedure TfrmTradeRRList.InitGrid();
+begin
+ try
+ ADOQueryMain.DisableControls;
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ Sql.Add(' select A.* ');
+ sql.Add(' from Trade_Cloth_RR_Main A where 1=1');
+
+ sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date) + ''' ');
+ sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1) + ''' ');
+
+ case cxTabControl1.TabIndex of
+ 0:
+ begin
+ SQL.Add(' and isnull(A.status,''0'')=''0'' ');
+ end;
+ 1:
+ begin
+ SQL.Add(' and isnull(A.status,''0'')=''9'' ');
+ end;
+ 2:
+ begin
+ SQL.Add(' and isnull(A.status,''0'')=''10'' ');
+ end;
+ end;
+ if Trim(canshu1) <> '' then
+ begin
+ sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
+ end;
+ sql.Add(' order by Filltime desc ');
+ Open;
+ end;
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ TV1.DataController.Filter.Clear;
+ TV2.DataController.Filter.Clear;
+ end;
+end;
+
+procedure TfrmTradeRRList.TBFindClick(Sender: TObject);
+begin
+ if ADOQueryMain.Active = False then
+ Exit;
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmTradeRRList.TBEditClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+// if cxTabControl1.TabIndex <> 0 then
+// Exit;
+ if Trim(canshu1) <> 'Ȩ' then
+ begin
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select FILLER from Trade_Cloth_RR_Main A ');
+ SQL.Add('where RRMID=''' + Trim(Order_Main.fieldbyname('RRMID').AsString) + ''' ');
+ SQL.Add('and filler in ( select username from SY_User where UType=(select UType from SY_User where UserName=' + quotedstr(Trim(dname)));
+ SQL.Add('))');
+ Open;
+ end;
+
+ if ADOQueryTemp.ISEMPTY = True then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+// begin
+// Application.MessageBox('ܲ˵!', 'ʾ', 0);
+// Exit;
+// end;
+ end;
+ with ADOQueryTemp do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Cloth_RR_Main');
+ sql.Add('where RRMID=' + quotedstr(trim(Order_Main.fieldbyname('RRMID').AsString)));
+ Open;
+ end;
+// if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
+// begin
+// Application.MessageBox('Ӧ˿!', 'ʾ', 0);
+// Exit;
+// end;
+ try
+ frmTradeRRInPut := TfrmTradeRRInPut.Create(Application);
+ with frmTradeRRInPut do
+ begin
+ PState := 1;
+ FRRMID := Trim(Self.Order_Main.fieldbyname('RRMID').AsString);
+ if ShowModal = 1 then
+ begin
+ InitGrid();
+ end;
+ end;
+ finally
+ frmTradeRRInPut.Free;
+ end;
+end;
+
+procedure TfrmTradeRRList.TBDelClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+ if cxTabControl1.TabIndex <> 0 then
+ Exit;
+ if canshu1 <> 'Ȩ' then
+ begin
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ if DelData() then
+ begin
+ initgrid();
+ InitSubGrid();
+ end;
+end;
+
+function TfrmTradeRRList.DelData(): Boolean;
+begin
+ try
+ with Order_Main do
+ begin
+ Result := false;
+ ADOQueryCmd.Connection.BeginTrans;
+ DisableControls;
+ First;
+ while not eof do
+ begin
+ if fieldbyname('SSel').AsBoolean then
+ begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' select * from Trade_Cloth_IO where IOFlag=''''');
+ sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('RRMID').AsString) + '''');
+ Open;
+ end;
+ if ADOQueryTemp.IsEmpty = False then
+ begin
+ Order_Main.EnableControls;
+ ADOQueryCmd.Connection.RollbackTrans;
+ Application.MessageBox('ѷɾ!', 'ʾ', 0);
+ exit;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Trade_Cloth_RR_Sub where RRMID=''' + Trim(Order_Main.fieldbyname('RRMID').AsString) + '''');
+ ExecSQL;
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Trade_Cloth_RR_Main where RRMID=''' + Trim(Order_Main.fieldbyname('RRMID').AsString) + '''');
+ ExecSQL;
+ end;
+ end;
+ next;
+ end;
+ First;
+ EnableControls;
+ end;
+ ADOQueryCmd.Connection.CommitTrans;
+ Result := True;
+ except
+ order_main.EnableControls;
+ ADOQueryCmd.Connection.RollbackTrans;
+ Result := False;
+ Application.MessageBox('ɾ쳣', 'ʾ', 0);
+ end;
+end;
+
+procedure TfrmTradeRRList.TBExportClick(Sender: TObject);
+begin
+ if ADOQueryMain.IsEmpty then
+ Exit;
+// SelExportData(Tv1, ADOQueryMain, 'б');
+end;
+
+procedure TfrmTradeRRList.TBPrintClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'TradeClothDR1';
+ FFiltration1 := Trim(self.Order_Main.fieldbyname('RRMID').AsString);
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TfrmTradeRRList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+
+end;
+
+procedure TfrmTradeRRList.TBAddClick(Sender: TObject);
+var
+ maxno: string;
+begin
+ try
+ frmTradeRRInPut := TfrmTradeRRInPut.Create(Application);
+ with frmTradeRRInPut do
+ begin
+ PState := 0;
+ FRRMID := '';
+ if ShowModal = 1 then
+ begin
+ InitGrid();
+ end;
+ end;
+ finally
+ frmTradeRRInPut.Free;
+ end;
+end;
+
+procedure TfrmTradeRRList.FormShow(Sender: TObject);
+begin
+ inherited;
+ canshu1 := self.fParameters1;
+ ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '');
+ ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '');
+
+ frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
+ frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 60;
+ SetStatus();
+ InitGrid();
+end;
+
+procedure TfrmTradeRRList.CheckBox1Click(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeRRList.CheckBox2Click(Sender: TObject);
+begin
+ TBRafresh.Click;
+end;
+
+procedure TfrmTradeRRList.ToolButton1Click(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+ try
+ frmTradeRRInPut := TfrmTradeRRInPut.Create(Application);
+ with frmTradeRRInPut do
+ begin
+ PState := 1;
+ FRRMID := Trim(Self.Order_Main.fieldbyname('RRMID').AsString);
+ ToolBar2.Visible := False;
+ TBSave.Visible := False;
+ ScrollBox1.Enabled := False;
+ Tv1.OptionsSelection.CellSelect := False;
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmTradeRRInPut.Free;
+ end;
+end;
+
+procedure TfrmTradeRRList.ToCoNameChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active = False then
+ Exit;
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmTradeRRList.tchkClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ if cxTabControl1.TabIndex <> 0 then
+ exit;
+ try
+ with Order_Main do
+ begin
+ DisableControls;
+ First;
+ while not eof do
+ begin
+ if fieldbyname('SSel').AsBoolean then
+ begin
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Cloth_RR_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),Status=''9'' ');
+ sql.Add('where RRMID=' + quotedstr(trim(Order_Main.fieldbyname('RRMID').AsString)));
+ execsql;
+ end;
+ end;
+ next;
+ end;
+ First;
+ EnableControls;
+ end;
+ InitGrid();
+ application.MessageBox('˳ɹ', 'ʾϢ');
+ except
+ application.MessageBox('ʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeRRList.InitSubGrid();
+begin
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* ');
+ sql.Add('from Trade_Cloth_RR_Sub A where A.RRMID=''' + Trim(Order_Main.fieldbyname('RRMID').AsString) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, ClientDataSet2);
+ SInitCDSData(ADOQueryTemp, ClientDataSet2);
+end;
+
+procedure TfrmTradeRRList.TnochkClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ if cxTabControl1.TabIndex <> 1 then
+ exit;
+ try
+ with Order_Main do
+ begin
+ DisableControls;
+ First;
+ while not eof do
+ begin
+ if fieldbyname('SSel').AsBoolean then
+ begin
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Cloth_RR_Main SET Chker=Null,ChkTime=Null,status=''0'' ');
+ sql.Add('where RRMID=' + quotedstr(trim(Order_Main.fieldbyname('RRMID').AsString)));
+ execsql;
+ end;
+ end;
+ next;
+ end;
+ First;
+ EnableControls;
+ end;
+ InitGrid();
+ application.MessageBox('ɹ', 'ʾϢ');
+ except
+ application.MessageBox('ʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeRRList.cxTabControl1Change(Sender: TObject);
+begin
+
+ SetStatus();
+ InitGrid();
+end;
+
+procedure TfrmTradeRRList.btnWCCXClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ try
+ with Order_Main do
+ begin
+ DisableControls;
+ First;
+ while not eof do
+ begin
+ if fieldbyname('SSel').AsBoolean then
+ begin
+// with ADOQueryTemp do
+// begin
+// Close;
+// sql.Clear;
+// sql.Add('exec P_CW_Judge_All @DataID=' + quotedstr(trim(Order_Main.fieldbyname('RRMID').AsString)));
+// Open;
+// end;
+// if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
+// begin
+// Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0);
+// exit;
+// end;
+
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Cloth_RR_Main SET Comper=null,CompTime=null, status=''9'' ');
+ sql.Add('where RRMID=' + quotedstr(trim(Order_Main.fieldbyname('RRMID').AsString)));
+ execsql;
+ end;
+ end;
+ next;
+ end;
+ First;
+ EnableControls;
+ end;
+ InitGrid();
+ application.MessageBox('ɹ', 'ʾϢ');
+ except
+ application.MessageBox('ʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeRRList.ToolButton6Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '');
+ WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '');
+end;
+
+procedure TfrmTradeRRList.btnWCClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ try
+ with Order_Main do
+ begin
+ DisableControls;
+ First;
+ while not eof do
+ begin
+ if fieldbyname('SSel').AsBoolean then
+ begin
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Cloth_RR_Main SET Comper=''' + Trim(DName) + ''',CompTime=getdate(), status=''10'' ');
+ sql.Add('where RRMID=' + quotedstr(trim(Order_Main.fieldbyname('RRMID').AsString)));
+ execsql;
+ end;
+ end;
+ next;
+ end;
+ EnableControls;
+ end;
+ InitGrid();
+ application.MessageBox('ɹ', 'ʾϢ');
+ except
+ application.MessageBox('ʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeRRList.Tv1Column9PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText;
+ FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+ if mvalue = '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('update Trade_Cloth_RR_Main set ' + FFieldName + '=' + 'NULL');
+ sql.Add('where RRMID=' + quotedstr(Trim(Order_Main.fieldbyname('RRMID').AsString)));
+ ExecSQL;
+ end;
+ end
+ else
+ begin
+ with Order_Main do
+ begin
+ Edit;
+ FieldByName(FFieldName).Value := mvalue;
+ Post;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('update Trade_Cloth_RR_Main set ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
+ sql.Add('where RRMID=' + quotedstr(Trim(Order_Main.fieldbyname('RRMID').AsString)));
+ ExecSQL;
+ end;
+ end;
+
+ tv1.Controller.EditingController.ShowEdit();
+end;
+
+procedure TfrmTradeRRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+ InitSubGrid();
+end;
+
+procedure TfrmTradeRRList.v1Column7PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText;
+ FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+ with Order_Main do
+ begin
+ Edit;
+ FieldByName(FFieldName).Value := mvalue;
+ Post;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('update Trade_Cloth_RR_Main set ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
+ sql.Add('where RRMID=' + quotedstr(Trim(Order_Main.fieldbyname('RRMID').AsString)));
+ ExecSQL;
+ end;
+ tv1.Controller.EditingController.ShowEdit();
+end;
+
+end.
+
diff --git a/T05贸易门市管理/AllSkins.skinres b/T05贸易门市管理/AllSkins.skinres
new file mode 100644
index 0000000..bfaa46e
Binary files /dev/null and b/T05贸易门市管理/AllSkins.skinres differ
diff --git a/A02基础产品管理11/File.INI b/T05贸易门市管理/File.INI
similarity index 100%
rename from A02基础产品管理11/File.INI
rename to T05贸易门市管理/File.INI
diff --git a/A02基础产品管理11/FileHelp.ini b/T05贸易门市管理/FileHelp.ini
similarity index 100%
rename from A02基础产品管理11/FileHelp.ini
rename to T05贸易门市管理/FileHelp.ini
diff --git a/A02基础产品管理11/InformationBase_Icon.ico b/T05贸易门市管理/InformationBase_Icon.ico
similarity index 100%
rename from A02基础产品管理11/InformationBase_Icon.ico
rename to T05贸易门市管理/InformationBase_Icon.ico
diff --git a/A02基础产品管理11/ProjectGroup1.bpg b/T05贸易门市管理/ProjectGroup1.bpg
similarity index 100%
rename from A02基础产品管理11/ProjectGroup1.bpg
rename to T05贸易门市管理/ProjectGroup1.bpg
diff --git a/A02基础产品管理11/ProjectGroup1.groupproj b/T05贸易门市管理/ProjectGroup1.groupproj
similarity index 70%
rename from A02基础产品管理11/ProjectGroup1.groupproj
rename to T05贸易门市管理/ProjectGroup1.groupproj
index 50ad00c..492a783 100644
--- a/A02基础产品管理11/ProjectGroup1.groupproj
+++ b/T05贸易门市管理/ProjectGroup1.groupproj
@@ -3,7 +3,7 @@
{D75EC075-444C-40C2-8ACB-0AAD801B39FF}
-
+
@@ -17,14 +17,14 @@
-
-
+
+
-
-
+
+
-
-
+
+
@@ -36,13 +36,13 @@
-
+
-
+
-
+
diff --git a/A02基础产品管理11/SYSTEMSET.ini b/T05贸易门市管理/SYSTEMSET.ini
similarity index 100%
rename from A02基础产品管理11/SYSTEMSET.ini
rename to T05贸易门市管理/SYSTEMSET.ini
diff --git a/A02基础产品管理11/ClothInfo.dpr b/T05贸易门市管理/TradeMarket.dpr
similarity index 58%
rename from A02基础产品管理11/ClothInfo.dpr
rename to T05贸易门市管理/TradeMarket.dpr
index e964bc2..736db85 100644
--- a/A02基础产品管理11/ClothInfo.dpr
+++ b/T05贸易门市管理/TradeMarket.dpr
@@ -1,4 +1,4 @@
-library ClothInfo;
+ library TradeMarket;
uses
SysUtils,
@@ -8,7 +8,7 @@ uses
WinProcs,
midaslib,
U_GetDllForm in 'U_GetDllForm.pas',
- U_DataLink in 'U_DataLink.pas' {DataLink_ClothInfo: TDataModule},
+ U_DataLink in 'U_DataLink.pas' {DataLink_TradeMarket: TDataModule},
U_iniParam in 'U_iniParam.pas',
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
@@ -19,16 +19,27 @@ uses
U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
+ Unit1 in 'Unit1.pas' {Form1},
U_AttachmentUpload in '..\A00ͨô\U_AttachmentUpload.pas' {frmFjList_RZ},
U_ClothInfoSel in '..\A00ͨô\U_ClothInfoSel.pas' {frmClothInfoSel},
U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel},
U_EmployeeSel in '..\A00ͨô\U_EmployeeSel.pas' {frmEmployeeSel},
- U_ClothType in 'U_ClothType.pas' {frmClothType},
- U_CloInfoFileUp in 'U_CloInfoFileUp.pas' {frmCloInfoFileUp},
- U_ClothInfo_Tat in 'U_ClothInfo_Tat.pas' {frmClothInfo_Tat},
- U_testdll in 'U_testdll.pas' {Form1},
U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet},
- U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint};
+ U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint},
+ U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
+ U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload},
+ U_TradeMarketDisScan in 'U_TradeMarketDisScan.pas' {frmTradeMarketDisScan},
+ U_TradeDispatchedSel in 'U_TradeDispatchedSel.pas' {frmTradeDispatchedSel},
+ uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
+ U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
+ FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame},
+ U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
+ U_FormDesign in '..\..\..\public10\design\U_FormDesign.pas',
+ U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
+ U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
+ U_TradeMarketList in 'U_TradeMarketList.pas' {frmTradeMarketList},
+ U_TradeDispatchedList in 'U_TradeDispatchedList.pas' {frmTradeDispatchedList},
+ U_TradeMarketDisSel in 'U_TradeMarketDisSel.pas' {frmTradeMarketDisSel};
{$R *.res}
diff --git a/A02基础产品管理11/ClothInfo.dproj b/T05贸易门市管理/TradeMarket.dproj
similarity index 95%
rename from A02基础产品管理11/ClothInfo.dproj
rename to T05贸易门市管理/TradeMarket.dproj
index eedd4d4..334c1dc 100644
--- a/A02基础产品管理11/ClothInfo.dproj
+++ b/T05贸易门市管理/TradeMarket.dproj
@@ -1,7 +1,7 @@
{7B70AA99-C84C-40AE-B4AE-13C5223B874C}
- ClothInfo.dpr
+ TradeMarket.dpr
True
Debug
38017
@@ -79,7 +79,7 @@
D:\富通ERP;$(DCC_UnitSearchPath)
vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL;$(DCC_UsePackage)
true
- ClothInfo
+ TradeMarket
Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;Data.Win;$(DCC_Namespace)
2052
CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
@@ -124,7 +124,7 @@
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
- D:\Dp10Repo\项目代码\D10xhBaisheng\A02基础产品管理\testDll.exe
+ D:\Dp10RepoV1\项目代码\D10xhGemei\T05贸易门市管理\testDll.exe
@@ -132,7 +132,7 @@
-
+
TDataModule
@@ -157,6 +157,10 @@
dfm
+
+
+ dfm
+
dfm
@@ -173,22 +177,6 @@
dfm
-
-
- dfm
-
-
-
- dfm
-
-
-
- dfm
-
-
-
- dfm
-
dfm
@@ -197,6 +185,49 @@
dfm
+
+
+ dfm
+
+
+
+ dfm
+
+
+
+ dfm
+
+
+
+ dfm
+
+
+
+
+ dfm
+ TDataModule
+
+
+
+ dfm
+ TFrame
+
+
+
+
+
+
+
+ dfm
+
+
+
+ dfm
+
+
+
+ dfm
+
Cfg_2
Base
@@ -215,7 +246,7 @@
- ClothInfo.dpr
+ TradeMarket.dpr
@@ -227,9 +258,9 @@
False
-
+
- ClothInfo.dll
+ TradeMarket.dll
true
diff --git a/T05贸易门市管理/TradeMarket.res b/T05贸易门市管理/TradeMarket.res
new file mode 100644
index 0000000..7a2b1a7
Binary files /dev/null and b/T05贸易门市管理/TradeMarket.res differ
diff --git a/A02基础产品管理11/U_DataLink.dfm b/T05贸易门市管理/U_DataLink.dfm
similarity index 99%
rename from A02基础产品管理11/U_DataLink.dfm
rename to T05贸易门市管理/U_DataLink.dfm
index 2645045..1a30e6d 100644
--- a/A02基础产品管理11/U_DataLink.dfm
+++ b/T05贸易门市管理/U_DataLink.dfm
@@ -1,9 +1,25 @@
-object DataLink_ClothInfo: TDataLink_ClothInfo
- OldCreateOrder = False
- OnCreate = DataModuleCreate
+inherited DataLink_TradeMarket: TDataLink_TradeMarket
OnDestroy = DataModuleDestroy
Height = 349
Width = 482
+ inherited cxEditStyleController1: TcxEditStyleController
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ PixelsPerInch = 96
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
+ inherited ThreeColorBase: TcxStyleRepository
+ PixelsPerInch = 96
+ end
+ inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+ inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
+ PixelsPerInch = 96
+ end
+ end
object AdoDataLink: TADOQuery
Connection = ADOLink
Parameters = <>
@@ -10423,139 +10439,6 @@ object DataLink_ClothInfo: TDataLink_ClothInfo
FF800001000000F003FFFE00FFE0000300000000000000000000000000000000
000000000000}
end
- object ThreeLookAndFeelCol: TcxLookAndFeelController
- Kind = lfStandard
- NativeStyle = False
- Left = 253
- Top = 12
- end
- object ThreeColorBase: TcxStyleRepository
- Left = 147
- Top = 80
- PixelsPerInch = 96
- object SHuangSe: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = 4707838
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- TextColor = clBtnText
- end
- object SkyBlue: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = clSkyBlue
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- TextColor = clBlack
- end
- object Default: TcxStyle
- AssignedValues = [svFont]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- end
- object QHuangSe: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = 8454143
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object Red: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = clRed
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object FontBlue: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clBlue
- end
- object TextSHuangSe: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clOlive
- end
- object FonePurple: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindow
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clPurple
- end
- object FoneClMaroon: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clMaroon
- end
- object FoneRed: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clRed
- end
- object RowColor: TcxStyle
- AssignedValues = [svColor]
- Color = 16311512
- end
- object handBlack: TcxStyle
- AssignedValues = [svFont]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- end
- object cxBlue: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = 16711731
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object SHuangSeCu: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = 4707838
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clRed
- end
- end
object Timer_link: TTimer
Interval = 15000
OnTimer = Timer_linkTimer
diff --git a/A02基础产品管理11/U_DataLink.pas b/T05贸易门市管理/U_DataLink.pas
similarity index 54%
rename from A02基础产品管理11/U_DataLink.pas
rename to T05贸易门市管理/U_DataLink.pas
index 9b25b4c..b240515 100644
--- a/A02基础产品管理11/U_DataLink.pas
+++ b/T05贸易门市管理/U_DataLink.pas
@@ -5,23 +5,9 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
- dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic,
- dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
- dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
- dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
- dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
- dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
- dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
- dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
- dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
- dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
- dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
- dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
- dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
- dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
- dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
- dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
- dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
+ dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, U_BaseDataLink, dxCore,
+ cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxContainer,
+ cxEdit, dxSkinsForm;
type
TMyThread = class(TThread)
@@ -53,26 +39,10 @@ var
UserDataFlag: string;
type
- TDataLink_ClothInfo = class(TDataModule)
+ TDataLink_TradeMarket = class(TBaseDataLink)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
- ThreeLookAndFeelCol: TcxLookAndFeelController;
- ThreeColorBase: TcxStyleRepository;
- SHuangSe: TcxStyle;
- SkyBlue: TcxStyle;
- Default: TcxStyle;
- QHuangSe: TcxStyle;
- Red: TcxStyle;
- FontBlue: TcxStyle;
- TextSHuangSe: TcxStyle;
- FonePurple: TcxStyle;
- FoneClMaroon: TcxStyle;
- FoneRed: TcxStyle;
- RowColor: TcxStyle;
- handBlack: TcxStyle;
- cxBlue: TcxStyle;
- SHuangSeCu: TcxStyle;
Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject);
@@ -89,7 +59,7 @@ type
TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall;
var
- DataLink_ClothInfo: TDataLink_ClothInfo;
+ DataLink_TradeMarket: TDataLink_TradeMarket;
CriticalSection: TCriticalSection; {ٽ}
implementation
@@ -100,7 +70,7 @@ begin
FreeOnTerminate := True;
CriticalSection.Enter;
try
- with DataLink_ClothInfo.AdoDataLink do
+ with DataLink_TradeMarket.AdoDataLink do
begin
close;
sql.Clear;
@@ -109,7 +79,7 @@ begin
end;
except
try
- with DataLink_ClothInfo.ADOLink do
+ with DataLink_TradeMarket.ADOLink do
begin
Connected := false;
ConnectionString := DConString;
@@ -123,19 +93,21 @@ begin
CriticalSection.Leave;
end;
-procedure TDataLink_ClothInfo.DataModuleDestroy(Sender: TObject);
+procedure TDataLink_TradeMarket.DataModuleDestroy(Sender: TObject);
begin
+ inherited;
CriticalSection.Free;
- DataLink_ClothInfo := nil;
+ DataLink_TradeMarket := nil;
end;
-procedure TDataLink_ClothInfo.Timer_linkTimer(Sender: TObject);
+procedure TDataLink_TradeMarket.Timer_linkTimer(Sender: TObject);
begin
TMyThread.Create(False);
end;
-procedure TDataLink_ClothInfo.DataModuleCreate(Sender: TObject);
+procedure TDataLink_TradeMarket.DataModuleCreate(Sender: TObject);
begin
+ inherited;
CriticalSection := TCriticalSection.Create;
end;
diff --git a/A02基础产品管理11/U_GetDllForm.pas b/T05贸易门市管理/U_GetDllForm.pas
similarity index 84%
rename from A02基础产品管理11/U_GetDllForm.pas
rename to T05贸易门市管理/U_GetDllForm.pas
index cac3e82..fd16327 100644
--- a/A02基础产品管理11/U_GetDllForm.pas
+++ b/T05贸易门市管理/U_GetDllForm.pas
@@ -15,7 +15,7 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation
uses
- U_DataLink, U_iniParam, U_ClothType, U_ClothInfo, U_ClothInfo_Tat;
+ U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList;
/////////////////////////////////////////////////////////////////
// ˵:ȡDllеô //
@@ -70,12 +70,13 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
- dtbase := 'BaiShengData';
+ dtbase := 'gemeiData';
user := 'rtsa';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
- Parameters1 := '¼';
- Parameters1 := '';
+// DParameters1:='Ȩ';
+// Parameters2 := '֯';
+
end
else
begin
@@ -124,11 +125,12 @@ begin
//ģ鴰
case FormID of
- 111: // Ʒ
+ 111: //
begin
- with TfrmClothType.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
+ with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
+ FOrdType := '';
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
@@ -136,11 +138,12 @@ begin
end;
end;
- 112: // ƷϢ
+ 112: //
begin
- with TfrmClothInfo.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
+ with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
+ FOrdType := '';
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
@@ -148,9 +151,9 @@ begin
end;
end;
- 113: // ֯ƷϢ
+ 121: //
begin
- with TfrmClothInfo_Tat.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
+ with TfrmTradeDispatchedList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
@@ -181,7 +184,7 @@ begin
//////////////////////////////
// shortDateFormat := 'yyyy-MM-dd';
//
- with DataLink_ClothInfo.AdoDataLink do
+ with DataLink_TradeMarket.AdoDataLink do
begin
close;
sql.Clear;
@@ -207,10 +210,10 @@ begin
finally
IniFile.Free;
end;
- if not Assigned(DataLink_ClothInfo) then
- DataLink_ClothInfo := TDataLink_ClothInfo.Create(Application);
+ if not Assigned(DataLink_TradeMarket) then
+ DataLink_TradeMarket := TDataLink_TradeMarket.Create(Application);
try
- with DataLink_ClothInfo.ADOLink do
+ with DataLink_TradeMarket.ADOLink do
begin
if not Connected then
begin
@@ -234,7 +237,7 @@ initialization
finalization
- DataLink_ClothInfo.Free;
+ DataLink_TradeMarket.Free;
application := NewDllApp;
dxUnitsLoader.Finalize;
diff --git a/T05贸易门市管理/U_TradeDispatchedList.dfm b/T05贸易门市管理/U_TradeDispatchedList.dfm
new file mode 100644
index 0000000..871853b
--- /dev/null
+++ b/T05贸易门市管理/U_TradeDispatchedList.dfm
@@ -0,0 +1,883 @@
+inherited frmTradeDispatchedList: TfrmTradeDispatchedList
+ Left = 165
+ Top = 13
+ Caption = #37197#36135#31649#29702
+ ClientHeight = 935
+ ClientWidth = 1540
+ Font.Height = -16
+ FormStyle = fsMDIChild
+ Position = poScreenCenter
+ Visible = True
+ ExplicitWidth = 1556
+ ExplicitHeight = 974
+ PixelsPerInch = 96
+ TextHeight = 21
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 95
+ Caption = 'ToolBar1'
+ Color = clBtnFace
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 5
+ object TBRafresh: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #21047#26032
+ ImageIndex = 1
+ OnClick = TBRafreshClick
+ end
+ object ToolButton1: TToolButton
+ Left = 63
+ Top = 0
+ AutoSize = True
+ Caption = #25195#25551#37197#36135
+ ImageIndex = 8
+ OnClick = ToolButton1Click
+ end
+ object TBPrint: TToolButton
+ Left = 150
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360
+ ImageIndex = 21
+ OnClick = TBPrintClick
+ end
+ object TBPrint1: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360#20986#24211#21333
+ ImageIndex = 21
+ OnClick = TBPrint1Click
+ end
+ object TBCK: TToolButton
+ Left = 312
+ Top = 0
+ AutoSize = True
+ Caption = #26597#30475
+ ImageIndex = 8
+ OnClick = TBCKClick
+ end
+ object TBFJ: TToolButton
+ Left = 375
+ Top = 0
+ AutoSize = True
+ Caption = #38468#20214
+ ImageIndex = 22
+ OnClick = TBFJClick
+ end
+ object ToolButton2: TToolButton
+ Left = 438
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton2Click
+ end
+ object TBClose: TToolButton
+ Left = 525
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [1]
+ Left = 0
+ Top = 30
+ Width = 1540
+ Height = 83
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clWhite
+ ParentBackground = False
+ TabOrder = 6
+ ExplicitTop = 38
+ object Label3: TLabel
+ Left = 35
+ Top = 48
+ Width = 64
+ Height = 21
+ Caption = #22823#36135#21333#21495
+ end
+ object Label1: TLabel
+ Left = 419
+ Top = 48
+ Width = 32
+ Height = 21
+ Caption = #23458#25143
+ end
+ object Label2: TLabel
+ Left = 227
+ Top = 48
+ Width = 64
+ Height = 21
+ Caption = #20135#21697#21517#31216
+ end
+ object TMMNo: TEdit
+ Tag = 2
+ Left = 103
+ Top = 44
+ Width = 120
+ Height = 29
+ TabOrder = 0
+ OnKeyPress = TMMNoKeyPress
+ end
+ object CustName: TEdit
+ Tag = 2
+ Left = 455
+ Top = 44
+ Width = 120
+ Height = 29
+ TabOrder = 1
+ OnKeyPress = TMMNoKeyPress
+ end
+ object C_Name: TEdit
+ Tag = 2
+ Left = 295
+ Top = 44
+ Width = 120
+ Height = 29
+ TabOrder = 2
+ OnKeyPress = TMMNoKeyPress
+ end
+ inline frmFrameDateSel1: TfrmFrameDateSel
+ Left = 2
+ Top = 2
+ Width = 1536
+ Height = 37
+ Align = alTop
+ Color = clWhite
+ ParentBackground = False
+ ParentColor = False
+ TabOrder = 3
+ ExplicitLeft = -380
+ ExplicitTop = 2
+ ExplicitWidth = 1920
+ ExplicitHeight = 37
+ inherited lbl2: TLabel
+ Width = 16
+ Height = 21
+ ExplicitWidth = 16
+ ExplicitHeight = 21
+ end
+ end
+ end
+ object cxGrid1: TcxGrid [2]
+ Left = 0
+ Top = 141
+ Width = 1540
+ Height = 465
+ Align = alTop
+ PopupMenu = PM_1
+ TabOrder = 2
+ ExplicitWidth = 1431
+ ExplicitHeight = 381
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnFocusedRecordChanged = Tv1FocusedRecordChanged
+ DataController.DataSource = DataSource1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = Tv1Column11
+ end
+ item
+ Kind = skSum
+ Column = Tv1Column10
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ object v1Column16: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ HeaderAlignmentHorz = taCenter
+ Width = 50
+ end
+ object Tv1Column14: TcxGridDBColumn
+ Caption = #22823#36135#21333#21495
+ DataBinding.FieldName = 'TMMNO'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 122
+ end
+ object v1OrdDate: TcxGridDBColumn
+ Caption = #21046#21333#26085#26399
+ DataBinding.FieldName = 'OrdDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 122
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #32463#33829#21333#20301
+ DataBinding.FieldName = 'OurCoName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 134
+ end
+ object v1DeliveryDate: TcxGridDBColumn
+ Caption = #20132#36135#26085#26399
+ DataBinding.FieldName = 'DlyDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column9: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ end
+ object Tv1Column12: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ end
+ object Tv1Column13: TcxGridDBColumn
+ Caption = #20013#25991#39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ end
+ object Tv1Column15: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column11: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'TMSPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column10: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'TMSQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column7: TcxGridDBColumn
+ Caption = #37197#36135#21305#25968
+ DataBinding.FieldName = 'PHRollNum'
+ DataBinding.IsNullValueType = True
+ end
+ object Tv1Column8: TcxGridDBColumn
+ Caption = #37197#36135#25968#37327
+ DataBinding.FieldName = 'PHQty'
+ DataBinding.IsNullValueType = True
+ end
+ object v1Column11: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'TMSUnit'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #21046#21333#20154
+ DataBinding.FieldName = 'FILLER'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'OrdNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column3: TcxGridDBColumn
+ Caption = #21457#36135#22320#22336
+ DataBinding.FieldName = 'ShippingAddress'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 134
+ end
+ object Tv1Column5: TcxGridDBColumn
+ Caption = #32852#31995#26041#24335
+ DataBinding.FieldName = 'CONTACT'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object Panel2: TPanel [3]
+ Left = 0
+ Top = 606
+ Width = 1540
+ Height = 329
+ Align = alClient
+ BevelOuter = bvNone
+ Caption = 'Panel2'
+ TabOrder = 3
+ ExplicitTop = 366
+ ExplicitHeight = 196
+ object cxGrid2: TcxGrid
+ Left = 0
+ Top = 30
+ Width = 1540
+ Height = 299
+ Align = alClient
+ TabOrder = 0
+ ExplicitLeft = -2
+ ExplicitWidth = 1431
+ object TV2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_PH
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Kind = skSum
+ Position = spFooter
+ Column = V2Column5
+ end
+ item
+ Kind = skCount
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Column = V2Column5
+ end
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Column = V2Column5
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsData.Deleting = False
+ OptionsData.Inserting = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object V2Column13: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'ssel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Width = 99
+ end
+ object V2Column10: TcxGridDBColumn
+ Caption = #21367#26465#30721
+ DataBinding.FieldName = 'stkid'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2Column2: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object TV2Column2: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 99
+ end
+ object V2Column3: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'C_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2C_Color: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object TV2Column1: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 99
+ end
+ object V2Column5: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'stkqty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2Column6: TcxGridDBColumn
+ Caption = #25209#21495
+ DataBinding.FieldName = 'batchno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2Column11: TcxGridDBColumn
+ Caption = #26579#21378#32568#21495
+ DataBinding.FieldName = 'ftypcid'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2Filler: TcxGridDBColumn
+ Caption = #37197#36135#20154#21592
+ DataBinding.FieldName = 'Filler'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2Column12: TcxGridDBColumn
+ Caption = #37197#36135#26102#38388
+ DataBinding.FieldName = 'FillTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2Column14: TcxGridDBColumn
+ Caption = #38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2Column15: TcxGridDBColumn
+ Caption = #20811#37325'(g/'#13217')'
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object V2Column16: TcxGridDBColumn
+ Caption = #21152#24037#21378
+ DataBinding.FieldName = 'factoryName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ end
+ object cxGrid2Level1: TcxGridLevel
+ GridView = TV2
+ end
+ end
+ object ToolBar2: TToolBar
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 30
+ ButtonHeight = 30
+ ButtonWidth = 83
+ Caption = 'ToolBar1'
+ Color = clWhite
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 1
+ object ToolButton4: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #36873#25321#24211#23384
+ ImageIndex = 9
+ OnClick = ToolButton4Click
+ end
+ object phwc: TToolButton
+ Left = 87
+ Top = 0
+ AutoSize = True
+ Caption = #37197#36135#23436#25104
+ ImageIndex = 12
+ OnClick = phwcClick
+ end
+ object ToolButton6: TToolButton
+ Left = 174
+ Top = 0
+ AutoSize = True
+ Caption = #20462#25913#37197#36135
+ ImageIndex = 3
+ OnClick = ToolButton6Click
+ end
+ object phok: TToolButton
+ Left = 261
+ Top = 0
+ AutoSize = True
+ Caption = #37197#36135#30830#35748
+ ImageIndex = 12
+ OnClick = phokClick
+ end
+ object fh: TToolButton
+ Left = 348
+ Top = 0
+ AutoSize = True
+ Caption = #25104#21697#21457#36135
+ ImageIndex = 12
+ OnClick = fhClick
+ end
+ object ToolButton9: TToolButton
+ Left = 435
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360#26631#31614
+ ImageIndex = 21
+ OnClick = ToolButton9Click
+ end
+ object del: TToolButton
+ Left = 522
+ Top = 0
+ AutoSize = True
+ Caption = #21024#38500
+ ImageIndex = 5
+ OnClick = delClick
+ end
+ object ToolButton5: TToolButton
+ Left = 585
+ Top = 0
+ AutoSize = True
+ Caption = #25972#21333#25764#38144
+ ImageIndex = 11
+ OnClick = ToolButton5Click
+ end
+ object Tdbchexiao: TToolButton
+ Left = 672
+ Top = 0
+ AutoSize = True
+ Caption = #25972#31508#25764#38144
+ ImageIndex = 11
+ OnClick = TdbchexiaoClick
+ end
+ object ToolButton3: TToolButton
+ Left = 759
+ Top = 0
+ AutoSize = True
+ Caption = #25764#38144#21457#36135
+ ImageIndex = 11
+ OnClick = ToolButton3Click
+ end
+ end
+ end
+ object cxTabControl1: TcxTabControl [4]
+ Left = 0
+ Top = 113
+ Width = 1540
+ Height = 28
+ Align = alTop
+ TabOrder = 4
+ Properties.CustomButtons.Buttons = <>
+ Properties.Style = 9
+ Properties.TabIndex = 0
+ Properties.Tabs.Strings = (
+ #26410#37197#36135
+ #24050#37197#36135
+ #24050#21457#36135
+ #20840#37096)
+ OnChange = cxTabControl1Change
+ ExplicitTop = 121
+ ClientRectRight = 0
+ ClientRectTop = 0
+ end
+ inherited cxProgressBar2: TcxProgressBar
+ Left = 626
+ Top = 344
+ ExplicitLeft = 626
+ ExplicitTop = 344
+ ExplicitHeight = 29
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 187
+ Top = 378
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 163
+ Top = 229
+ end
+ object cxgrdpmn1: TcxGridPopupMenu
+ Grid = cxGrid1
+ PopupMenus = <>
+ Left = 700
+ Top = 236
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 568
+ Top = 240
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 446
+ Top = 230
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 274
+ Top = 390
+ end
+ object DataSource1: TDataSource
+ DataSet = Order_Main
+ Left = 812
+ Top = 440
+ end
+ object Order_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 724
+ Top = 432
+ end
+ object ADOQuerySub: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 348
+ Top = 296
+ end
+ object DataSource2: TDataSource
+ DataSet = ORDER_SUB
+ Left = 616
+ Top = 420
+ end
+ object ADOQueryImage: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ EnableBCD = False
+ Parameters = <>
+ Left = 332
+ Top = 227
+ end
+ object DSImage: TDataSource
+ DataSet = ADOQueryImage
+ Left = 440
+ Top = 294
+ end
+ object IdFTP1: TIdFTP
+ ConnectTimeout = 0
+ NATKeepAlive.UseKeepAlive = False
+ NATKeepAlive.IdleTimeMS = 0
+ NATKeepAlive.IntervalMS = 0
+ ProxySettings.ProxyType = fpcmNone
+ ProxySettings.Port = 0
+ ReadTimeout = 0
+ Left = 92
+ Top = 258
+ end
+ object ORDER_SUB: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 248
+ Top = 276
+ end
+ object PopupMenu2: TPopupMenu
+ Left = 812
+ Top = 388
+ object N3: TMenuItem
+ Caption = #20840#36873
+ OnClick = N3Click
+ end
+ object N4: TMenuItem
+ Caption = #20840#24323
+ OnClick = N4Click
+ end
+ object N2: TMenuItem
+ Caption = #22797#21046
+ OnClick = N2Click
+ end
+ end
+ object cxgrdpmn2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 932
+ Top = 260
+ end
+ object CDS_WXTS: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 516
+ Top = 416
+ end
+ object PM_1: TPopupMenu
+ Left = 940
+ Top = 388
+ object N1: TMenuItem
+ Caption = #22797#21046
+ OnClick = N1Click
+ end
+ end
+ object GPM_3: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 860
+ Top = 228
+ end
+ object ADO_PH: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 296
+ Top = 476
+ end
+ object DS_PH: TDataSource
+ DataSet = CDS_PH
+ Left = 360
+ Top = 444
+ end
+ object CDS_PH: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 396
+ Top = 486
+ end
+ object ADOQueryPrint: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 1128
+ Top = 432
+ end
+ object RMDB_1: TRMDBDataSet
+ Visible = True
+ DataSet = ADOQueryPrint
+ Left = 1180
+ Top = 432
+ end
+ object RM1: TRMGridReport
+ ThreadPrepareReport = True
+ InitialZoom = pzDefault
+ PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
+ DefaultCollate = False
+ ShowPrintDialog = False
+ SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+ PreviewOptions.RulerUnit = rmutScreenPixels
+ PreviewOptions.RulerVisible = False
+ PreviewOptions.DrawBorder = False
+ PreviewOptions.BorderPen.Color = clGray
+ PreviewOptions.BorderPen.Style = psDash
+ Dataset = RMDB_1
+ CompressLevel = rmzcFastest
+ CompressThread = False
+ LaterBuildEvents = True
+ OnlyOwnerDataSet = False
+ Left = 1228
+ Top = 432
+ ReportData = {}
+ end
+end
diff --git a/T05贸易门市管理/U_TradeDispatchedList.pas b/T05贸易门市管理/U_TradeDispatchedList.pas
new file mode 100644
index 0000000..ec6e5fd
--- /dev/null
+++ b/T05贸易门市管理/U_TradeDispatchedList.pas
@@ -0,0 +1,1387 @@
+unit U_TradeDispatchedList;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+ cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+ cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+ StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+ cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
+ RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
+ cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
+ IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
+ cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
+ dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
+ IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxScrollbarAnnotations,
+ cxProgressBar, FrameDateSel;
+
+type
+ TfrmTradeDispatchedList = class(TfrmBaseList)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBPrint: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ Tv1: TcxGridDBTableView;
+ cxGrid1Level1: TcxGridLevel;
+ cxGrid1: TcxGrid;
+ cxgrdpmn1: TcxGridPopupMenu;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DataSource1: TDataSource;
+ Label3: TLabel;
+ TMMNo: TEdit;
+ v1OrdDate: TcxGridDBColumn;
+ v1DeliveryDate: TcxGridDBColumn;
+ Order_Main: TClientDataSet;
+ TBCK: TToolButton;
+ ADOQuerySub: TADOQuery;
+ DataSource2: TDataSource;
+ TBFJ: TToolButton;
+ Panel2: TPanel;
+ ADOQueryImage: TADOQuery;
+ DSImage: TDataSource;
+ IdFTP1: TIdFTP;
+ v1Column11: TcxGridDBColumn;
+ v1Column16: TcxGridDBColumn;
+ ORDER_SUB: TClientDataSet;
+ PopupMenu2: TPopupMenu;
+ N3: TMenuItem;
+ N4: TMenuItem;
+ Label1: TLabel;
+ CustName: TEdit;
+ Tv1Column6: TcxGridDBColumn;
+ cxgrdpmn2: TcxGridPopupMenu;
+ Tv1Column2: TcxGridDBColumn;
+ Tv1Column10: TcxGridDBColumn;
+ Tv1Column11: TcxGridDBColumn;
+ Tv1Column1: TcxGridDBColumn;
+ Label2: TLabel;
+ C_Name: TEdit;
+ CDS_WXTS: TClientDataSet;
+ ToolButton2: TToolButton;
+ PM_1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ GPM_3: TcxGridPopupMenu;
+ Tv1Column4: TcxGridDBColumn;
+ Tv1Column3: TcxGridDBColumn;
+ Tv1Column5: TcxGridDBColumn;
+ cxTabControl1: TcxTabControl;
+ ADO_PH: TADOQuery;
+ DS_PH: TDataSource;
+ CDS_PH: TClientDataSet;
+ Tv1Column7: TcxGridDBColumn;
+ Tv1Column8: TcxGridDBColumn;
+ Tv1Column9: TcxGridDBColumn;
+ Tv1Column12: TcxGridDBColumn;
+ Tv1Column13: TcxGridDBColumn;
+ cxGrid2: TcxGrid;
+ TV2: TcxGridDBTableView;
+ V2Column13: TcxGridDBColumn;
+ V2Column10: TcxGridDBColumn;
+ V2Column2: TcxGridDBColumn;
+ V2Column3: TcxGridDBColumn;
+ V2C_Color: TcxGridDBColumn;
+ V2Column5: TcxGridDBColumn;
+ V2Column6: TcxGridDBColumn;
+ V2Column11: TcxGridDBColumn;
+ V2Filler: TcxGridDBColumn;
+ V2Column12: TcxGridDBColumn;
+ V2Column14: TcxGridDBColumn;
+ V2Column15: TcxGridDBColumn;
+ V2Column16: TcxGridDBColumn;
+ cxGrid2Level1: TcxGridLevel;
+ Tv1Column14: TcxGridDBColumn;
+ TV2Column1: TcxGridDBColumn;
+ Tv1Column15: TcxGridDBColumn;
+ TV2Column2: TcxGridDBColumn;
+ TBPrint1: TToolButton;
+ ADOQueryPrint: TADOQuery;
+ RMDB_1: TRMDBDataSet;
+ RM1: TRMGridReport;
+ ToolButton1: TToolButton;
+ frmFrameDateSel1: TfrmFrameDateSel;
+ ToolBar2: TToolBar;
+ ToolButton4: TToolButton;
+ phwc: TToolButton;
+ ToolButton6: TToolButton;
+ phok: TToolButton;
+ fh: TToolButton;
+ ToolButton9: TToolButton;
+ del: TToolButton;
+ ToolButton5: TToolButton;
+ Tdbchexiao: TToolButton;
+ ToolButton3: TToolButton;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure FormCreate(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure TBPrintClick(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure TMMNoMChange(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBTPClick(Sender: TObject);
+ procedure CheckBox1Click(Sender: TObject);
+ procedure TBCKClick(Sender: TObject);
+ procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
+ procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+ procedure TBFJClick(Sender: TObject);
+ procedure cxTabControl1Change(Sender: TObject);
+ procedure N3Click(Sender: TObject);
+ procedure N4Click(Sender: TObject);
+ procedure ComboBox1Change(Sender: TObject);
+ procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+ procedure ToolButton5Click(Sender: TObject);
+ procedure JGTypeChange(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure N1Click(Sender: TObject);
+ procedure N2Click(Sender: TObject);
+ procedure ToolButton4Click(Sender: TObject);
+ procedure phwcClick(Sender: TObject);
+ procedure ToolButton6Click(Sender: TObject);
+ procedure phokClick(Sender: TObject);
+ procedure fhClick(Sender: TObject);
+ procedure TBPrint1Click(Sender: TObject);
+ procedure ToolButton9Click(Sender: TObject);
+ procedure delClick(Sender: TObject);
+ procedure TdbchexiaoClick(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ private
+ DQdate: TDateTime;
+ MSubIds: string;
+ procedure InitGrid();
+ procedure InitForm();
+ function DelData(): Boolean;
+ procedure InitGridFH();
+ procedure InitSub();
+ procedure InitPH();
+ procedure SetStatus();
+ procedure InitImage(fwbid: string);
+ function SaveData(): Boolean;
+
+ procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
+ { Private declarations }
+ public
+ FFInt, FCloth: Integer;
+ canshu1, canshu2: string;
+ fFlileFlag: string;
+ FNOTE: string;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
+ U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan;
+
+{$R *.dfm}
+
+procedure TfrmTradeDispatchedList.InitImage(fwbid: string);
+begin
+ ADOQueryImage.close;
+ if fwbid = '' then
+ exit;
+ with ADOQueryImage do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from TP_File A');
+ sql.Add('where WBID=' + quotedstr(trim(fwbid)));
+ open;
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.SetStatus();
+begin
+
+ del.Visible := false;
+ phwc.Visible := false;
+ phok.Visible := false;
+ fh.Visible := false;
+ ToolButton4.Visible := false;
+ ToolButton5.Visible := false;
+ TBPrint1.Visible := false;
+ ToolButton6.Visible := false;
+ Tdbchexiao.Visible := false;
+ ToolButton3.Visible := false;
+ case cxTabControl1.TabIndex of
+ 0:
+ begin
+ del.Visible := true;
+ phwc.Visible := true;
+ Panel2.Visible := true;
+ ToolButton4.Visible := true;
+ end;
+ 1:
+ begin
+ fh.Visible := true;
+ ToolButton5.Visible := true;
+
+ Tdbchexiao.Visible := true;
+ end;
+ 2:
+ begin
+ TBPrint1.Visible := true;
+ ToolButton3.Visible := True;
+ end;
+ end;
+ application.ProcessMessages;
+end;
+
+procedure TfrmTradeDispatchedList.InitSub();
+begin
+ ADOQuerySub.Close;
+ if Order_Main.IsEmpty then
+ exit;
+ ADOQuerySub.DisableControls;
+ with ADOQuerySub do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * ');
+ sql.Add(' from Trade_Market_Sub A');
+ sql.Add('where TMMId =' + quotedstr((Order_Main.fieldbyname('TMMId').AsString)));
+ open;
+ end;
+ SCreateCDS(ADOQuerySub, ORDER_SUB);
+ SInitCDSData(ADOQuerySub, ORDER_SUB);
+
+ ADOQuerySub.EnableControls;
+ TV2.DataController.Filter.Clear;
+end;
+
+procedure TfrmTradeDispatchedList.InitPH();
+var
+ SqlStr: string;
+begin
+
+ if Order_Main.IsEmpty then
+ EXIT;
+ SqlStr := 'select A.*,B.* ';
+ SqlStr := SqlStr + 'from Trade_Market_Distribution A ';
+ SqlStr := SqlStr + 'INNER join BS_Cloth_IO B on B.STKID=A.STKID and B.IOFlag=''''';
+ SqlStr := SqlStr + 'where A.TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').asstring));
+ SqlStr := SqlStr + 'and A.TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').asstring));
+ SqlStr := SqlStr + 'order by A.TMDID ';
+
+ InitCDSData(ADO_PH, CDS_PH, Tv2, SqlStr, '', '');
+
+end;
+
+procedure TfrmTradeDispatchedList.JGTypeChange(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedList.FormDestroy(Sender: TObject);
+begin
+ inherited;
+// frmProductOrderList:=nil;
+end;
+
+procedure TfrmTradeDispatchedList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmTradeDispatchedList.FormCreate(Sender: TObject);
+begin
+ inherited;
+
+ DQdate := SGetServerDate(ADOQueryTemp);
+
+end;
+
+procedure TfrmTradeDispatchedList.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+
+end;
+
+procedure TfrmTradeDispatchedList.InitGrid();
+var
+ STRwhere, Pwhere: string;
+begin
+ STRwhere := '';
+ Pwhere := SGetFilters(Panel1, 1, 2);
+
+ begin
+ if trim(Pwhere) <> '' then
+ STRwhere := STRwhere + ' and ' + trim(Pwhere);
+ end;
+ STRwhere := STRwhere + ' and isnull(A.Status,''0'')=''9'' ';
+ if cxTabControl1.TabIndex = 0 then
+ begin
+ STRwhere := STRwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + '''';
+ end;
+ if (cxTabControl1.TabIndex >= 1) and (cxTabControl1.TabIndex < 3) then
+ STRwhere := STRwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex + 1) + '''';
+
+ try
+ ADOQueryMain.DisableControls;
+
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.add(' select * ');
+ sql.Add(' ,PHRollNum=(select count(X.STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+ sql.Add(' ,PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+ sql.add(' from Trade_Market_Sub B');
+ sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
+
+ sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
+ sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
+
+// if canshu1 = '¼' then
+// begin
+// sql.add(' and A.Filler= ' + QuotedStr(Trim(DName)));
+// end;
+ sql.add(' ' + STRwhere);
+
+ sql.Add(' and ordtype='''' ');
+
+ sql.add(' order by filltime desc');
+// ShowMessage(SQL.Text);
+ Open;
+ end;
+
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ TV1.DataController.Filter.Clear;
+
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
+begin
+// with ADOQueryTemp do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add('select distinct A.* from SY_User A inner join SY_Purview B on A.UserID=B.UserID where A.Valid=''Y'' ');
+// SQL.Add('and isnull(A.wxid,'''')<>''''');
+// SQL.Add(' and exists(select 1 from SY_ModuleSub X where X.ModuleID=B.ModuleID and X.ModuleSubID=B.ModuleSubID and X.FormName=''ƻ'' )');
+//// showmessage(sql.text);
+// Open;
+// end;
+// SCreateCDS(ADOQueryTemp, CDS_WXTS);
+// SInitCDSData(ADOQueryTemp, CDS_WXTS);
+//
+// if CDS_WXTS.IsEmpty then
+// begin
+// Application.MessageBox('ûδ,ύʧܣ', 'ʾϢ', 0);
+// Exit;
+// end;
+ CDS_WXTS.First;
+ while not CDS_WXTS.eof do
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('select * from WeixinMessage where 1<>1');
+ Open;
+ Append;
+ FieldByName('MessageType').Value := 'OrderToAudit';
+ FieldByName('MessageName').Value := 'ƻ';
+ FieldByName('Title').Value := 'µƻ';
+ FieldByName('URL').Value := 'subpages/plan/view?id=' + Trim(MDateId);
+ FieldByName('OpenId').Value := Trim(CDS_WXTS.FieldByName('wxid').AsString);
+ FieldByName('Status').Value := '0';
+ FieldByName('CreateDate').Value := FormatDateTime('yyyymmdd', SGetServerDateTime(ADOQueryTemp));
+ FieldByName('CreateTime').Value := FormatDateTime('HH:mm:ss', SGetServerDateTime(ADOQueryTemp));
+ FieldByName('BusinessId').Value := Trim(MDateId);
+ FieldByName('KeyWord1').Value := Trim(KeyWord1);
+ FieldByName('KeyWord2').Value := Trim(KeyWord2);
+ FieldByName('KeyWord3').Value := Trim(KeyWord3);
+ FieldByName('Remark').Value := 'ɲѯ飡';
+ Post;
+ end;
+ CDS_WXTS.Next;
+ end;
+
+ GetHTTP('http://aotang.rightsoft.top/api/message/send/OrderToAudit');
+end;
+
+procedure TfrmTradeDispatchedList.InitGridFH();
+begin
+ try
+ ADOQueryMain.DisableControls;
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.Add('exec Order_QryList :TMMId,:WSql');
+ Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)) + '''';
+ Open;
+ end;
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.InitForm();
+begin
+ ReadCxGrid('ָʾбFF1', Tv1, 'ָʾ');
+ ReadCxGrid('ָʾбFFTv21', Tv2, 'ָʾ');
+ frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
+ frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
+
+ SetStatus();
+ InitGrid();
+end;
+
+function TfrmTradeDispatchedList.DelData(): Boolean;
+begin
+ try
+ Result := false;
+ ADOQueryCmd.Connection.BeginTrans;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Trade_Market_Main where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+ sql.Add('delete Trade_Market_Sub where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+ sql.Add('delete Trade_Plan_Fty where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ָʾɾ')));
+ sql.Add(',' + quotedstr(trim('ָʾţ' + trim(Order_Main.FieldByName('TMMNo').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ ExecSQL;
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ Result := True;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ Result := False;
+ Application.MessageBox('ɾ쳣', 'ʾ', 0);
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.TBPrintClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'TradePlanPrint';
+ FFiltration1 := Trim(Order_Main.fieldbyname('TMMId').AsString);
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedList.TMMNoMChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active = False then
+ Exit;
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmTradeDispatchedList.FormShow(Sender: TObject);
+begin
+ inherited;
+ canshu1 := self.fParameters1;
+ fFlileFlag := UserDataFlag + 'HX';
+ cxTabControl1.TabIndex := 0;
+ InitForm();
+end;
+
+procedure TfrmTradeDispatchedList.TBTPClick(Sender: TObject);
+var
+ FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string;
+begin
+end;
+
+procedure TfrmTradeDispatchedList.CheckBox1Click(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedList.TBCKClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+
+ try
+ frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
+ with frmTradeMarketInPut do
+ begin
+ PState := 1;
+ FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
+ ToolBar2.Visible := False;
+ TBSave.Visible := False;
+ ScrollBox1.Enabled := True;
+ N2.Visible := False;
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmTradeMarketInPut.Free;
+ end;
+
+end;
+
+procedure TfrmTradeDispatchedList.TMMNoKeyPress(Sender: TObject; var Key: Char);
+begin
+
+ if Key = #13 then
+ begin
+ initgrid();
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+
+ if Order_Main.IsEmpty then
+ exit;
+ InitPH();
+end;
+
+procedure TfrmTradeDispatchedList.TBFJClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+ try
+ frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
+ with frmAttachmentUpload do
+ begin
+ if Trim(canshu1) <> 'ѯ' then
+ FEditAuthority := True;
+ fkeyNO := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
+ fType := 'ָʾ';
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmAttachmentUpload.Free;
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.ToolButton6Click(Sender: TObject);
+begin
+ inherited;
+ if Order_Main.IsEmpty then
+ exit;
+ frmTradeMarketDisSel := TfrmTradeMarketDisSel.create(self);
+ with frmTradeMarketDisSel do
+ begin
+
+ fmainID := trim(self.Order_Main.FieldByName('mainID').AsString);
+ if showmodal = 1 then
+ begin
+
+ end;
+ free;
+ end;
+ TBRafresh.Click;
+end;
+
+procedure TfrmTradeDispatchedList.phokClick(Sender: TObject);
+begin
+ inherited;
+ if cds_ph.IsEmpty then
+ exit;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Sub ');
+ sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ open;
+ edit;
+ fieldbyname('substatus').Value := '2';
+ post;
+ end;
+ application.MessageBox('ȷϳɹ', 'ʾϢ');
+ TBRafresh.Click;
+ except
+ application.MessageBox('ȷʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.fhClick(Sender: TObject);
+var
+ MStkIds, maxno: string;
+ i, fRoll: integer;
+ fNum: double;
+begin
+ if cds_ph.IsEmpty then
+ exit;
+
+ if Order_Main.Locate('ssel', true, []) = false then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+ if Application.MessageBox('ȷҪƷ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ if GetLSNo(ADOQueryCmd, maxno, 'CK', 'Trade_Cloth_IO', 3, 1) = False then
+ begin
+ Application.MessageBox('ȡⵥʧ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ ADOQueryCmd.Connection.BeginTrans;
+ try
+ Order_Main.First;
+ Order_Main.DisableControls;
+ CDS_ph.DisableControls;
+ MSubIds := '';
+ MStkIds := '';
+ while not Order_Main.eof do
+ begin
+
+ if Order_Main.FieldByName('ssel').AsBoolean then
+ begin
+ InitPH();
+
+ MSubIds := MSubIds + (Trim(Order_Main.FieldByName('TMSID').AsString)) + ',';
+ with cds_ph do
+ begin
+ while not eof do
+ begin
+ MStkIds := MStkIds + (Trim(cds_ph.FieldByName('StkId').AsString)) + ',';
+ next;
+ end;
+ end;
+
+ end;
+ Order_Main.Next;
+ end;
+ MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1);
+ MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1);
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('insert into Trade_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
+ sql.Add('values('''' ');
+ sql.Add(',' + quotedstr(MSubIds));
+ sql.Add(','''' ');
+ sql.Add(',' + quotedstr(DName));
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(MStkIds));
+ sql.Add(') ');
+ execsql;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
+ sql.Add('values(''ó׳Ʒ'' ');
+ sql.Add(',' + quotedstr(maxno));
+ sql.Add(','''' ');
+ sql.Add(',' + quotedstr(DName));
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(MStkIds));
+ sql.Add(') ');
+ execsql;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_BS_Cloth_Out_Multiple ');
+ Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
+ Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', Now())));
+ Sql.Add(',@IOType=' + Quotedstr(''));
+ Sql.Add(',@BCIONO=' + Quotedstr(maxno));
+ Sql.Add(',@ToCoNo=' + Quotedstr(Trim(Order_Main.FieldByName('CustNo').AsString)));
+ Sql.Add(',@ToCoName=' + Quotedstr(Trim(Order_Main.FieldByName('CustName').AsString)));
+ Sql.Add(',@Dcode=' + Quotedstr(DCode));
+ Sql.Add(',@DName=' + Quotedstr(DName));
+ ShowMessage(sql.text);
+ Open;
+ end;
+
+ if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+ begin
+ raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+ end;
+
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Market_Sub set substatus =3 ');
+ sql.add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](''' + MSubIds + ''','','') X where X.RTValue=Trade_Market_Sub.TMSID ) ');
+// ShowMessage(sql.text);
+ execsql;
+ end;
+
+ CDS_ph.EnableControls;
+ Order_Main.EnableControls;
+ ADOQueryCmd.Connection.CommitTrans;
+ if Application.MessageBox('ȷҪӡⵥ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ TBPrint1.Click;
+ end;
+ TBRafresh.Click;
+
+ except
+ CDS_ph.EnableControls;
+ Order_Main.EnableControls;
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox('ʧܣ', 'ʾϢ');
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.ToolButton9Click(Sender: TObject);
+var
+ fPrintFile, FLabVolume: string;
+begin
+ if CDS_PH.IsEmpty then
+ Exit;
+ if CDS_PH.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+ CDS_PH.DisableControls;
+ with CDS_PH do
+ begin
+ First;
+ while not Eof do
+ begin
+ if CDS_PH.FieldByName('SSel').AsBoolean = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + '''');
+ sql.Add(' where BCIOID=''' + Trim(CDS_PH.fieldbyname('BCIOID').AsString) + '''');
+ ExecSQL;
+ end;
+
+ with ADOQueryPrint do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' EXEC P_BS_Cloth_Prt13 ');
+ SQL.Add(' @Filtration=''' + Trim(CDS_PH.fieldbyname('BCIOID').AsString) + '''');
+ Open;
+ end;
+ if ADOQueryPrint.IsEmpty then
+ begin
+ application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR);
+ CDS_PH.EnableControls;
+ exit;
+ end;
+
+ if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = 'Ʒ' then
+ FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString)
+ else
+ FLabVolume := 'Ʒǩ';
+
+ ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp);
+ fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
+
+ if FileExists(fPrintFile) then
+ begin
+ RM1.LoadFromFile(fPrintFile);
+ if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then
+ Rm1.DefaultCopies := 1
+ else
+ Rm1.DefaultCopies := 1;
+ RM1.PrintReport;
+ end
+ else
+ begin
+ Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);
+ end;
+ end;
+ Next;
+ end;
+ end;
+ CDS_PH.EnableControls;
+
+ initPH();
+end;
+
+procedure TfrmTradeDispatchedList.delClick(Sender: TObject);
+begin
+ inherited;
+ if cds_ph.IsEmpty then
+ exit;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('delete from Trade_Market_Distribution ');
+ sql.Add('where TMD=' + quotedstr(trim(cds_ph.fieldbyname('TMD').AsString)));
+ execsql;
+ end;
+ cds_ph.Delete;
+end;
+
+procedure TfrmTradeDispatchedList.TBPrint1Click(Sender: TObject);
+begin
+ inherited;
+ if Order_Main.IsEmpty then
+ Exit;
+ MSubIds := '';
+ Order_Main.DisableControls;
+ with Order_Main do
+ begin
+ First;
+ while Order_Main.Locate('SSel', True, []) do
+ begin
+
+ MSubIds := MSubIds + (Trim(Order_Main.fieldbyname('TMSID').AsString)) + ',';
+
+ Edit;
+ FieldByName('SSel').Value := False;
+ Post;
+ end;
+ end;
+ Order_Main.EnableControls;
+
+ MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1);
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'DistributionPrint';
+ FFiltration1 := Trim(MSubIds);
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.cxTabControl1Change(Sender: TObject);
+begin
+ SetStatus();
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedList.N1Click(Sender: TObject);
+begin
+ Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmTradeDispatchedList.N2Click(Sender: TObject);
+begin
+ Clipboard.SetTextBuf(PChar(Trim(ORDER_SUB.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmTradeDispatchedList.N3Click(Sender: TObject);
+begin
+ SelOKNoFiler(Tv1, True); //ȫѡ
+end;
+
+procedure TfrmTradeDispatchedList.N4Click(Sender: TObject);
+begin
+ SelOKNoFiler(Tv1, False); //ȫ
+end;
+
+procedure TfrmTradeDispatchedList.ComboBox1Change(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedList.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ InitGrid();
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.ToolButton5Click(Sender: TObject);
+begin
+ if cds_ph.IsEmpty then
+ exit;
+ if cxTabControl1.TabIndex = 1 then
+ begin
+ if Application.MessageBox('ȷҪִв', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ try
+
+ ADOQueryCmd.Connection.BeginTrans;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Sub ');
+ sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ open;
+ edit;
+ fieldbyname('substatus').Value := '0';
+ post;
+ end;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update BS_Cloth_IO SET disstatus=null ');
+ sql.Add('from Trade_Market_Distribution B where B.stkid=A.stkid ');
+ sql.Add('and TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ execsql;
+ end;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('delete from Trade_Market_Distribution ');
+ sql.Add('where TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ execsql;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('')));
+ sql.Add(',' + quotedstr(trim(':' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' :' + trim(Order_Main.FieldByName('C_Code').AsString) + ' ɫ:' + trim(Order_Main.FieldByName('C_Color').AsString) + ' :' + trim(Order_Main.FieldByName('C_Pattern').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ ExecSQL;
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+
+ application.MessageBox('ɹ', 'ʾϢ');
+ TBRafresh.Click;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox('ʧܣ', 'ʾϢ', 0);
+ end;
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.TdbchexiaoClick(Sender: TObject);
+begin
+ inherited;
+ if CDS_PH.IsEmpty then
+ exit;
+ CDS_PH.first;
+ try
+ if Application.MessageBox('ȷҪִв', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ ADOQueryCmd.Connection.BeginTrans;
+ while not CDS_PH.eof do
+ begin
+ if CDS_PH.FieldByName('ssel').AsBoolean then
+ begin
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update BS_Cloth_IO SET disstatus=null ');
+ sql.Add('where stkid=' + quotedstr(trim(CDS_PH.fieldbyname('stkid').AsString)));
+ execsql;
+ end;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('delete from Trade_Market_Distribution ');
+ sql.Add('where TMDID=' + quotedstr(trim(CDS_PH.fieldbyname('TMDID').AsString)));
+ execsql;
+ end;
+ end;
+ CDS_PH.next;
+ end;
+ with ADOQueryTemp do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Distribution ');
+ sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ open;
+ end;
+ if ADOQueryTemp.IsEmpty then
+ begin
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Sub ');
+ sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ open;
+ edit;
+ fieldbyname('substatus').Value := '0';
+ post;
+ end;
+ end;
+ CDS_PH.first;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('')));
+ sql.Add(',' + quotedstr(trim(':' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' :' + trim(Order_Main.FieldByName('C_Code').AsString) + ' ɫ:' + trim(Order_Main.FieldByName('C_Color').AsString) + ' :' + trim(Order_Main.FieldByName('C_Pattern').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ ExecSQL;
+ end;
+ ADOQueryCmd.Connection.CommitTrans;
+
+ Application.MessageBox('ɹ!', 'ʾ', 0);
+ initph();
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ Application.MessageBox('쳣!', 'ʾ', 0);
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.ToolButton4Click(Sender: TObject);
+var
+ fsubid: string;
+begin
+ inherited;
+ if Order_Main.IsEmpty then
+ exit;
+ fsubid := order_main.FieldByName('TMSID').AsString;
+
+ frmTradeMarketDisSel := TfrmTradeMarketDisSel.create(self);
+ with frmTradeMarketDisSel do
+ begin
+ fmainID := trim(self.Order_Main.FieldByName('TMMID').AsString);
+ if showmodal = 1 then
+ begin
+
+ end;
+ free;
+ end;
+
+ TBRafresh.Click;
+ Order_Main.Locate('Tmsid', fsubid, []);
+end;
+
+procedure TfrmTradeDispatchedList.ToolButton1Click(Sender: TObject);
+begin
+ inherited;
+ try
+ frmTradeMarketDisScan := TfrmTradeMarketDisScan.Create(Application);
+ with frmTradeMarketDisScan do
+ begin
+ show;
+ end;
+ finally
+ end;
+end;
+
+procedure TfrmTradeDispatchedList.ToolButton2Click(Sender: TObject);
+begin
+ WriteCxGrid('ָʾбFF1', Tv1, 'ָʾ');
+ WriteCxGrid('ָʾбFFTv21', Tv2, 'ָʾ');
+end;
+
+procedure TfrmTradeDispatchedList.ToolButton3Click(Sender: TObject);
+var
+ MStkIds: string;
+begin
+ if Order_Main.Locate('ssel', true, []) = false then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+ MSubIds := '';
+ MStkIds := '';
+ Order_Main.First;
+ while not Order_Main.eof do
+ begin
+
+ if Order_Main.FieldByName('ssel').AsBoolean then
+ begin
+ InitPH();
+
+ MSubIds := MSubIds + (Trim(Order_Main.FieldByName('TMSID').AsString)) + ',';
+ with cds_ph do
+ begin
+ while not eof do
+ begin
+ MStkIds := MStkIds + (Trim(cds_ph.FieldByName('StkId').AsString)) + ',';
+ next;
+ end;
+ end;
+
+ end;
+ Order_Main.Next;
+ end;
+ MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1);
+ MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1);
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('insert into Trade_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
+ sql.Add('values(''ó׳Ʒ'' ');
+ sql.Add(',' + quotedstr(MSubIDS));
+ sql.Add(','''' ');
+ sql.Add(',' + quotedstr(DName));
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(MStkIds));
+ sql.Add(') ');
+ execsql;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
+ sql.Add('values(''ó׳Ʒ'' ');
+ sql.Add(',' + quotedstr(''));
+ sql.Add(','''' ');
+ sql.Add(',' + quotedstr(DName));
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(MStkIds));
+ sql.Add(') ');
+ execsql;
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_BS_Cloth_Out_TMMDel ');
+ Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
+ Sql.Add(',@DCode=' + Quotedstr(DCode));
+ Sql.Add(',@DName=' + Quotedstr(DName));
+// ShowMessage(sql.Text);
+ Open;
+ end;
+ if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+ begin
+ raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+ end;
+
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Market_Sub set substatus =2 ');
+ sql.add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](''' + MSubIds + ''','','') X where X.RTValue=Trade_Market_Sub.TMSID ) ');
+// ShowMessage(sql.text);
+ execsql;
+ end;
+
+// PlayWav('ȷ');
+
+ Application.MessageBox('ɹ!', 'ʾ', 0);
+ ADOQueryCmd.Connection.CommitTrans;
+
+ TBRafresh.Click;
+ except
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ order_main.EnableControls;
+ ADOQueryCmd.Connection.RollbackTrans;
+ end;
+
+end;
+
+procedure TfrmTradeDispatchedList.phwcClick(Sender: TObject);
+var
+ phRollNum, phQty: double;
+begin
+ if cds_ph.IsEmpty then
+ exit;
+
+ with CDS_PH do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+ if (trim(fieldbyname('C_Code').AsString) <> trim(Order_Main.FieldByName('C_Code').AsString)) or (trim(fieldbyname('C_Color').AsString) <> trim(Order_Main.FieldByName('C_Color').AsString)) or (trim(fieldbyname('C_Pattern').AsString) <> trim(Order_Main.FieldByName('C_Pattern').AsString)) then
+ begin
+ application.MessageBox('Ʒţͻɫһ£', 'ʾϢ', 0);
+ EnableControls;
+ exit;
+ end;
+ next;
+ end;
+ first;
+ EnableControls;
+ end;
+ phRollNum := 0;
+ phQty := 0;
+ with CDS_PH do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+ phRollNum := phRollNum + 1;
+ phQty := phQty + CDS_PH.fieldbyname('stkmeter').AsFloat;
+ next;
+ end;
+ first;
+ EnableControls;
+ end;
+
+ if (phRollNum <> Order_Main.FieldByName('TMSPiece').AsFloat) or (phQty <> Order_Main.FieldByName('TMSQty').AsFloat) then
+ begin
+ if Application.MessageBox('δﵽҪȷ', 'ʾϢ', 32 + 4) <> IDYES then
+ Exit;
+ end;
+
+ if SaveData() then
+ begin
+ application.MessageBox('ɹ!', 'ʾϢ');
+ TBRafresh.Click;
+ end
+ else
+ begin
+ application.MessageBox('ʧ!', 'ʾϢ', 0);
+ end;
+end;
+
+function TfrmTradeDispatchedList.SaveData(): Boolean;
+var
+ phID: string;
+begin
+ Result := false;
+ ADOQueryCmd.Connection.BeginTrans;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('delete from Trade_Market_Distribution ');
+ sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ execsql;
+ end;
+
+ with CDS_PH do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+ if fieldbyname('stkmeter').AsFloat = 0 then
+ continue;
+ if GetLSNo(ADOQueryTemp, phID, 'PH', 'Trade_Market_Distribution', 4, 1) = False then
+ begin
+ ADOQueryCmd.Connection.RollbackTrans;
+ Application.MessageBox('ȡʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Distribution ');
+ sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ open;
+ end;
+ ADOQueryCmd.Append;
+ ADOQueryCmd.FieldByName('TMDID').Value := trim(phID);
+ ADOQueryCmd.FieldByName('TMMID').Value := trim(Order_main.fieldbyname('TMMID').AsString);
+ ADOQueryCmd.FieldByName('TMSID').Value := trim(Order_main.fieldbyname('TMSID').AsString);
+ ADOQueryCmd.FieldByName('STKID').Value := trim(CDS_PH.fieldbyname('STKID').AsString);
+ ADOQueryCmd.FieldByName('Filler').Value := trim(DName);
+ ADOQueryCmd.Post;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Cloth_Stock ');
+ sql.Add('where StkID=' + quotedstr(trim(CDS_PH.fieldbyname('StkID').AsString)));
+ open;
+ edit;
+ fieldbyname('Disstatus').Value := '1';
+ post;
+ end;
+ next;
+ end;
+ first;
+ EnableControls;
+
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Sub ');
+ sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
+ open;
+ edit;
+ fieldbyname('substatus').Value := '2';
+ post;
+ end;
+ end;
+ ADOQueryCmd.Connection.CommitTrans;
+ Result := true;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ end;
+end;
+
+end.
+
diff --git a/T05贸易门市管理/U_TradeDispatchedSel.dfm b/T05贸易门市管理/U_TradeDispatchedSel.dfm
new file mode 100644
index 0000000..84c8960
--- /dev/null
+++ b/T05贸易门市管理/U_TradeDispatchedSel.dfm
@@ -0,0 +1,458 @@
+inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
+ Left = 165
+ Top = 13
+ Caption = #37197#36135#31649#29702
+ ClientHeight = 562
+ ClientWidth = 1540
+ Position = poScreenCenter
+ ExplicitLeft = -70
+ ExplicitWidth = 1556
+ ExplicitHeight = 601
+ PixelsPerInch = 96
+ TextHeight = 13
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 91
+ Caption = 'ToolBar1'
+ Color = clBtnFace
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_TradeMarket.ImageList_new32
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 0
+ object TBRafresh: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #21047#26032
+ ImageIndex = 1
+ OnClick = TBRafreshClick
+ end
+ object ToolButton2: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton2Click
+ end
+ object TBClose: TToolButton
+ Left = 166
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [1]
+ Left = 0
+ Top = 38
+ Width = 1540
+ Height = 51
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clWhite
+ ParentBackground = False
+ TabOrder = 1
+ object Label3: TLabel
+ Left = 317
+ Top = 20
+ Width = 52
+ Height = 12
+ Caption = #22823#36135#21333#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label12: TLabel
+ Left = 613
+ Top = 119
+ Width = 26
+ Height = 12
+ Caption = #20811#37325
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label1: TLabel
+ Left = 637
+ Top = 20
+ Width = 26
+ Height = 12
+ Caption = #23458#25143
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label2: TLabel
+ Left = 478
+ Top = 20
+ Width = 52
+ Height = 12
+ Caption = #20135#21697#21517#31216
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object BegDate: TDateTimePicker
+ Left = 128
+ Top = 16
+ Width = 85
+ Height = 20
+ Date = 40675.000000000000000000
+ Format = 'yyyy-MM-dd'
+ Time = 0.464742650459811600
+ TabOrder = 0
+ end
+ object EndDate: TDateTimePicker
+ Left = 219
+ Top = 16
+ Width = 86
+ Height = 20
+ Date = 40675.000000000000000000
+ Format = 'yyyy-MM-dd'
+ Time = 0.464761099538009200
+ TabOrder = 2
+ end
+ object TMMNo: TEdit
+ Tag = 2
+ Left = 375
+ Top = 16
+ Width = 77
+ Height = 21
+ TabOrder = 1
+ OnKeyPress = TMMNoKeyPress
+ end
+ object MPRTKZ: TEdit
+ Tag = 2
+ Left = 654
+ Top = 99
+ Width = 56
+ Height = 21
+ TabOrder = 3
+ end
+ object ComboBox1: TComboBox
+ Left = 49
+ Top = 16
+ Width = 71
+ Height = 21
+ Enabled = False
+ TabOrder = 4
+ Text = #21046#21333#26085#26399
+ OnChange = ComboBox1Change
+ Items.Strings = (
+ #21046#21333#26085#26399
+ #20132#36135#26085#26399)
+ end
+ object CustName: TEdit
+ Tag = 2
+ Left = 669
+ Top = 16
+ Width = 80
+ Height = 21
+ TabOrder = 5
+ OnKeyPress = TMMNoKeyPress
+ end
+ object C_Name: TEdit
+ Tag = 2
+ Left = 533
+ Top = 16
+ Width = 77
+ Height = 21
+ TabOrder = 6
+ OnKeyPress = TMMNoKeyPress
+ end
+ object CheckBox1: TCheckBox
+ Left = 28
+ Top = 18
+ Width = 19
+ Height = 17
+ Checked = True
+ State = cbChecked
+ TabOrder = 7
+ end
+ object CheckBox3: TCheckBox
+ Left = 776
+ Top = 16
+ Width = 99
+ Height = 19
+ Caption = #20840#36873
+ TabOrder = 8
+ OnClick = CheckBox3Click
+ end
+ end
+ object cxGrid1: TcxGrid [2]
+ Left = 0
+ Top = 111
+ Width = 1540
+ Height = 451
+ Align = alClient
+ TabOrder = 2
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ OnCellDblClick = Tv1CellDblClick
+ DataController.DataSource = DataSource1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = Tv1Column11
+ end
+ item
+ Kind = skSum
+ Column = Tv1Column10
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ Styles.Content = DataLink_TradeMarket.Default
+ Styles.IncSearch = DataLink_TradeMarket.SHuangSe
+ Styles.Footer = DataLink_TradeMarket.Default
+ Styles.Header = DataLink_TradeMarket.Default
+ Styles.Inactive = DataLink_TradeMarket.SHuangSe
+ Styles.Selection = DataLink_TradeMarket.SHuangSe
+ object Tv1Column14: TcxGridDBColumn
+ Caption = #22823#36135#21333#21495
+ DataBinding.FieldName = 'TMMNO'
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object v1OrdDate: TcxGridDBColumn
+ Caption = #21046#21333#26085#26399
+ DataBinding.FieldName = 'OrdDate'
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Styles.Header = DataLink_TradeMarket.Default
+ Width = 66
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #32463#33829#21333#20301
+ DataBinding.FieldName = 'OurCoName'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Styles.Header = DataLink_TradeMarket.FontBlue
+ Width = 66
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Styles.Header = DataLink_TradeMarket.FoneClMaroon
+ Width = 66
+ end
+ object v1DeliveryDate: TcxGridDBColumn
+ Caption = #20132#36135#26085#26399
+ DataBinding.FieldName = 'DlyDate'
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Styles.Header = DataLink_TradeMarket.Default
+ Width = 66
+ end
+ object Tv1Column9: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'C_Code'
+ HeaderAlignmentHorz = taCenter
+ end
+ object Tv1Column12: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'C_Name'
+ HeaderAlignmentHorz = taCenter
+ end
+ object Tv1Column13: TcxGridDBColumn
+ Caption = #20013#25991#39068#33394
+ DataBinding.FieldName = 'C_Color'
+ HeaderAlignmentHorz = taCenter
+ end
+ object Tv1Column15: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column11: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'TMSPiece'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column10: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'TMSQty'
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column7: TcxGridDBColumn
+ Caption = #37197#36135#21305#25968
+ DataBinding.FieldName = 'PHRollNum'
+ end
+ object Tv1Column8: TcxGridDBColumn
+ Caption = #37197#36135#25968#37327
+ DataBinding.FieldName = 'PHQty'
+ end
+ object v1Column11: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'OrdUnit'
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #21046#21333#20154
+ DataBinding.FieldName = 'FILLER'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'Note'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column3: TcxGridDBColumn
+ Caption = #21457#36135#22320#22336
+ DataBinding.FieldName = 'ShippingAddress'
+ HeaderAlignmentHorz = taCenter
+ Width = 134
+ end
+ object Tv1Column5: TcxGridDBColumn
+ Caption = #32852#31995#26041#24335
+ DataBinding.FieldName = 'CONTACT'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object cxTabControl1: TcxTabControl [3]
+ Left = 0
+ Top = 89
+ Width = 1540
+ Height = 22
+ Align = alTop
+ Enabled = False
+ TabOrder = 3
+ Properties.CustomButtons.Buttons = <>
+ Properties.Style = 9
+ Properties.TabIndex = 0
+ Properties.Tabs.Strings = (
+ #26410#37197#36135
+ #24050#37197#36135
+ #24050#21457#36135
+ #20840#37096)
+ OnChange = cxTabControl1Change
+ ClientRectRight = 0
+ ClientRectTop = 0
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 257
+ Top = 152
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 121
+ Top = 153
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 568
+ Top = 240
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 428
+ Top = 176
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 328
+ Top = 168
+ end
+ object DataSource1: TDataSource
+ DataSet = Order_Main
+ Left = 812
+ Top = 440
+ end
+ object Order_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 724
+ Top = 432
+ end
+ object ADOQuerySub: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 328
+ Top = 272
+ end
+ object DataSource2: TDataSource
+ DataSet = ORDER_SUB
+ Left = 616
+ Top = 420
+ end
+ object IdFTP1: TIdFTP
+ ConnectTimeout = 0
+ NATKeepAlive.UseKeepAlive = False
+ NATKeepAlive.IdleTimeMS = 0
+ NATKeepAlive.IntervalMS = 0
+ ProxySettings.ProxyType = fpcmNone
+ ProxySettings.Port = 0
+ ReadTimeout = 0
+ Left = 92
+ Top = 258
+ end
+ object ORDER_SUB: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 228
+ Top = 264
+ end
+end
diff --git a/T05贸易门市管理/U_TradeDispatchedSel.pas b/T05贸易门市管理/U_TradeDispatchedSel.pas
new file mode 100644
index 0000000..dae718e
--- /dev/null
+++ b/T05贸易门市管理/U_TradeDispatchedSel.pas
@@ -0,0 +1,449 @@
+unit U_TradeDispatchedSel;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+ cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+ cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+ StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+ cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
+ RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
+ cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
+ IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
+ cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
+ dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
+ IdExplicitTLSClientServerBase, U_BaseHelp, Vcl.Clipbrd, U_BaseList,
+ System.ImageList, Vcl.ImgList;
+
+type
+ TfrmTradeDispatchedSel = class(TfrmBaseHelp)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ BegDate: TDateTimePicker;
+ EndDate: TDateTimePicker;
+ Tv1: TcxGridDBTableView;
+ cxGrid1Level1: TcxGridLevel;
+ cxGrid1: TcxGrid;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DataSource1: TDataSource;
+ Label3: TLabel;
+ TMMNo: TEdit;
+ v1OrdDate: TcxGridDBColumn;
+ v1DeliveryDate: TcxGridDBColumn;
+ Order_Main: TClientDataSet;
+ Label12: TLabel;
+ MPRTKZ: TEdit;
+ ADOQuerySub: TADOQuery;
+ DataSource2: TDataSource;
+ IdFTP1: TIdFTP;
+ v1Column11: TcxGridDBColumn;
+ ORDER_SUB: TClientDataSet;
+ ComboBox1: TComboBox;
+ Label1: TLabel;
+ CustName: TEdit;
+ Tv1Column6: TcxGridDBColumn;
+ Tv1Column2: TcxGridDBColumn;
+ Tv1Column10: TcxGridDBColumn;
+ Tv1Column11: TcxGridDBColumn;
+ Tv1Column1: TcxGridDBColumn;
+ Label2: TLabel;
+ C_Name: TEdit;
+ CheckBox1: TCheckBox;
+ ToolButton2: TToolButton;
+ Tv1Column4: TcxGridDBColumn;
+ Tv1Column3: TcxGridDBColumn;
+ Tv1Column5: TcxGridDBColumn;
+ cxTabControl1: TcxTabControl;
+ Tv1Column7: TcxGridDBColumn;
+ Tv1Column8: TcxGridDBColumn;
+ Tv1Column9: TcxGridDBColumn;
+ Tv1Column12: TcxGridDBColumn;
+ Tv1Column13: TcxGridDBColumn;
+ Tv1Column14: TcxGridDBColumn;
+ Tv1Column15: TcxGridDBColumn;
+ CheckBox3: TCheckBox;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure FormCreate(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure TMMNoMChange(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBTPClick(Sender: TObject);
+ procedure CheckBox1Click(Sender: TObject);
+ procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
+ procedure cxTabControl1Change(Sender: TObject);
+ procedure N3Click(Sender: TObject);
+ procedure N4Click(Sender: TObject);
+ procedure ComboBox1Change(Sender: TObject);
+ procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+ procedure JGTypeChange(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure N1Click(Sender: TObject);
+ procedure fhClick(Sender: TObject);
+ procedure CheckBox3Click(Sender: TObject);
+ procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ private
+ DQdate: TDateTime;
+ MSubIds: string;
+ procedure InitGrid();
+ procedure InitForm();
+ function DelData(): Boolean;
+ procedure InitGridFH();
+ procedure InitSub();
+ procedure InitPH();
+ procedure SetStatus();
+ procedure InitImage(fwbid: string);
+ function SaveData(): Boolean;
+
+ procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
+ { Private declarations }
+ public
+ FFInt, FCloth: Integer;
+ canshu1, canshu2: string;
+ fFlileFlag: string;
+ FNOTE: string;
+ { Public declarations }
+ end;
+
+var
+ frmTradeDispatchedSel: TfrmTradeDispatchedSel;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
+ U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan;
+
+{$R *.dfm}
+
+procedure TfrmTradeDispatchedSel.InitImage(fwbid: string);
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.SetStatus();
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.InitSub();
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.InitPH();
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.JGTypeChange(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.FormDestroy(Sender: TObject);
+begin
+ inherited;
+// frmProductOrderList:=nil;
+end;
+
+procedure TfrmTradeDispatchedSel.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmTradeDispatchedSel.FormCreate(Sender: TObject);
+begin
+ inherited;
+ cxgrid1.Align := alClient;
+ DQdate := SGetServerDate(ADOQueryTemp);
+
+end;
+
+procedure TfrmTradeDispatchedSel.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+
+end;
+
+procedure TfrmTradeDispatchedSel.InitGrid();
+var
+ STRwhere, Pwhere: string;
+begin
+ STRwhere := '';
+ Pwhere := SGetFilters(Panel1, 1, 2);
+
+ begin
+ if trim(Pwhere) <> '' then
+ STRwhere := STRwhere + ' and ' + trim(Pwhere);
+ end;
+ STRwhere := STRwhere + ' and isnull(A.Status,''0'')=''9'' ';
+ if cxTabControl1.TabIndex = 0 then
+ begin
+ STRwhere := STRwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + '''';
+ end;
+ if (cxTabControl1.TabIndex >= 1) and (cxTabControl1.TabIndex < 3) then
+ STRwhere := STRwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex + 1) + '''';
+
+ try
+ ADOQueryMain.DisableControls;
+
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.add(' select * ');
+ sql.Add(' ,PHRollNum=(select count(X.STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+ sql.Add(' ,PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+ sql.add(' from Trade_Market_Sub B');
+ sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
+
+ if (ComboBox1.Text = 'Ƶ') and (CheckBox1.Checked = True) then
+ begin
+ sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+ sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+ end;
+ if (ComboBox1.Text = 'Ƶ') and (CheckBox1.Checked = False) then
+ begin
+ sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+ sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+ end;
+
+ if (ComboBox1.Text = '') and (CheckBox1.Checked = True) then
+ begin
+ sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+ sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+ end;
+ if (ComboBox1.Text = '') and (CheckBox1.Checked = False) then
+ begin
+ sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+ sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+ end;
+
+ if canshu1 = '¼' then
+ begin
+ sql.add(' and A.Filler= ' + QuotedStr(Trim(DName)));
+ end;
+ sql.add(' ' + STRwhere);
+
+ sql.Add(' and ordtype='''' ');
+
+ sql.add(' order by filltime desc');
+// ShowMessage(SQL.Text);
+ Open;
+ end;
+
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ TV1.DataController.Filter.Clear;
+
+ end;
+end;
+
+procedure TfrmTradeDispatchedSel.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.InitGridFH();
+begin
+ try
+ ADOQueryMain.DisableControls;
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.Add('exec Order_QryList :TMMId,:WSql');
+ Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
+ Open;
+ end;
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ end;
+end;
+
+procedure TfrmTradeDispatchedSel.InitForm();
+begin
+ ReadCxGrid('ָʾбFF1', Tv1, 'ָʾ');
+ BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
+ EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+
+ SetStatus();
+ InitGrid();
+end;
+
+function TfrmTradeDispatchedSel.DelData(): Boolean;
+begin
+ try
+ Result := false;
+ ADOQueryCmd.Connection.BeginTrans;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Trade_Market_Main where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+ sql.Add('delete Trade_Market_Sub where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+ sql.Add('delete Trade_Plan_Fty where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ָʾɾ')));
+ sql.Add(',' + quotedstr(trim('ָʾţ' + trim(Order_Main.FieldByName('TMMNo').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ ExecSQL;
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ Result := True;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ Result := False;
+ Application.MessageBox('ɾ쳣', 'ʾ', 0);
+ end;
+end;
+
+procedure TfrmTradeDispatchedSel.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.TMMNoMChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active = False then
+ Exit;
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmTradeDispatchedSel.FormShow(Sender: TObject);
+begin
+ inherited;
+ InitForm();
+end;
+
+procedure TfrmTradeDispatchedSel.TBTPClick(Sender: TObject);
+var
+ FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string;
+begin
+end;
+
+procedure TfrmTradeDispatchedSel.CheckBox1Click(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.CheckBox3Click(Sender: TObject);
+begin
+ inherited;
+ if Order_Main.IsEmpty then
+ exit;
+ with Order_Main do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+ edit;
+ fieldbyname('ssel').Value := checkbox1.Checked;
+ post;
+ next;
+ end;
+ First;
+ EnableControls;
+ end;
+end;
+
+procedure TfrmTradeDispatchedSel.TMMNoKeyPress(Sender: TObject; var Key: Char);
+begin
+
+ if Key = #13 then
+ begin
+ initgrid();
+ end;
+end;
+
+procedure TfrmTradeDispatchedSel.fhClick(Sender: TObject);
+var
+ MStkIds, maxno: string;
+ i, fRoll: integer;
+ fNum: double;
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.cxTabControl1Change(Sender: TObject);
+begin
+ SetStatus();
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.N1Click(Sender: TObject);
+begin
+ Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmTradeDispatchedSel.N3Click(Sender: TObject);
+begin
+ SelOKNoFiler(Tv1, True); //ȫѡ
+end;
+
+procedure TfrmTradeDispatchedSel.N4Click(Sender: TObject);
+begin
+ SelOKNoFiler(Tv1, False); //ȫ
+end;
+
+procedure TfrmTradeDispatchedSel.ComboBox1Change(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ InitGrid();
+ end;
+end;
+
+procedure TfrmTradeDispatchedSel.ToolButton2Click(Sender: TObject);
+begin
+ WriteCxGrid('ָʾбFF1', Tv1, 'ָʾ');
+
+end;
+
+procedure TfrmTradeDispatchedSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+ inherited;
+ if Order_Main.IsEmpty then
+ exit;
+
+ ModalResult := 1;
+end;
+
+function TfrmTradeDispatchedSel.SaveData(): Boolean;
+begin
+
+end;
+
+end.
+
diff --git a/T05贸易门市管理/U_TradeMarketDisScan.dfm b/T05贸易门市管理/U_TradeMarketDisScan.dfm
new file mode 100644
index 0000000..3bd3310
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketDisScan.dfm
@@ -0,0 +1,722 @@
+inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
+ Left = 143
+ Top = 4
+ Caption = #25195#25551#37197#36135
+ ClientHeight = 650
+ ClientWidth = 1540
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Name = #23435#20307
+ Position = poMainFormCenter
+ WindowState = wsMaximized
+ ExplicitWidth = 1556
+ ExplicitHeight = 689
+ PixelsPerInch = 96
+ TextHeight = 12
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 91
+ Caption = 'ToolBar1'
+ Color = clWhite
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_TradeMarket.ImageList_new32
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 0
+ object TBSave: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384
+ ImageIndex = 16
+ OnClick = TBSaveClick
+ end
+ object ToolButton3: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ end
+ object TBClose: TToolButton
+ Left = 166
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object MovePanel2: TMovePanel [1]
+ Left = 408
+ Top = 192
+ Width = 289
+ Height = 49
+ BevelInner = bvLowered
+ Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+ Color = clSkyBlue
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -13
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 1
+ Visible = False
+ end
+ object Panel1: TPanel [2]
+ Left = 0
+ Top = 38
+ Width = 1540
+ Height = 75
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clSkyBlue
+ TabOrder = 2
+ object Label1: TLabel
+ Left = 24
+ Top = 24
+ Width = 100
+ Height = 24
+ Caption = #26465#30721#32534#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clBlue
+ Font.Height = -24
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label15: TLabel
+ Left = 428
+ Top = 28
+ Width = 80
+ Height = 20
+ Caption = #37197#36135#20154#21592
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -20
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object SmNO: TEdit
+ Left = 130
+ Top = 20
+ Width = 153
+ Height = 32
+ CharCase = ecUpperCase
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clBlue
+ Font.Height = -24
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 0
+ OnKeyPress = SmNOKeyPress
+ end
+ object PHYG: TBtnEditA
+ Left = 514
+ Top = 24
+ Width = 149
+ Height = 29
+ Hint = 'PHYG/'#37197#36135#21592
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -20
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 1
+ OnBtnClick = PHYGBtnClick
+ end
+ object Button1: TButton
+ Left = 281
+ Top = 20
+ Width = 75
+ Height = 33
+ Caption = #36873#25321
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -24
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 2
+ OnClick = Button1Click
+ end
+ end
+ object cxGrid1: TcxGrid [3]
+ Left = 0
+ Top = 113
+ Width = 713
+ Height = 537
+ Align = alLeft
+ TabOrder = 3
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = 'C_Code'
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = v1RollNum
+ end
+ item
+ Kind = skSum
+ Column = v1Qty
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.FocusCellOnTab = True
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsData.Editing = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object v1MJID: TcxGridDBColumn
+ Caption = #35746#21333#21495
+ DataBinding.FieldName = 'TMMNO'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 133
+ end
+ object v1MJXH: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object v1P_Code: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 88
+ end
+ object v1P_Color: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 62
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object v1RollNum: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'TMSPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 73
+ end
+ object v1Qty: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'TMSQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 76
+ end
+ object v1PHRollNum: TcxGridDBColumn
+ Caption = #37197#36135#21305#25968
+ DataBinding.FieldName = 'PHRollNum'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 131
+ end
+ object v1PHQty: TcxGridDBColumn
+ Caption = #37197#36135#25968#37327
+ DataBinding.FieldName = 'PHQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 125
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object cxGrid2: TcxGrid [4]
+ Left = 713
+ Top = 113
+ Width = 827
+ Height = 537
+ Align = alClient
+ TabOrder = 4
+ object TV2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnCustomDrawCell = TV2CustomDrawCell
+ DataController.DataSource = DataSource2
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = 'C_Code'
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = cxGridDBColumn5
+ end
+ item
+ Kind = skSum
+ Column = cxGridDBColumn6
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.FocusCellOnTab = True
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsCustomize.ColumnSorting = False
+ OptionsData.Deleting = False
+ OptionsData.Inserting = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object V2Column2: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'Ssel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ Width = 66
+ end
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #25195#25551#20449#24687
+ DataBinding.FieldName = 'SDefNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 204
+ end
+ object cxGridDBColumn5: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'RollNum'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 70
+ end
+ object cxGridDBColumn6: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'stkmetet'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 102
+ end
+ object cxGridDBColumn2: TcxGridDBColumn
+ Caption = #26465#30721
+ DataBinding.FieldName = 'ciid'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 166
+ end
+ object cxGridDBColumn4: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 109
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 78
+ end
+ object TV2Column1: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ end
+ object V2Column1: TcxGridDBColumn
+ Caption = #32568#21495
+ DataBinding.FieldName = 'batchno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 84
+ end
+ object cxGridDBColumn7: TcxGridDBColumn
+ Caption = #31561#32423
+ DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 93
+ end
+ object V2Column3: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 67
+ end
+ object V2Column4: TcxGridDBColumn
+ Caption = #38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 60
+ end
+ object TV2Column2: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = TV2
+ end
+ end
+ object MovePanel1: TMovePanel [5]
+ Left = 54
+ Top = 201
+ Width = 561
+ Height = 305
+ BevelInner = bvLowered
+ Color = clSkyBlue
+ TabOrder = 5
+ Visible = False
+ object Label2: TLabel
+ Left = 48
+ Top = 160
+ Width = 150
+ Height = 48
+ Caption = 'Label2'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -48
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Edit2: TEdit
+ Left = 85
+ Top = 35
+ Width = 386
+ Height = 72
+ Enabled = False
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -64
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ ReadOnly = True
+ TabOrder = 0
+ Text = '91209120001'
+ end
+ object Button4: TButton
+ Left = 224
+ Top = 248
+ Width = 75
+ Height = 41
+ Caption = #20851#38381
+ TabOrder = 1
+ OnClick = Button4Click
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 265
+ Top = 504
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 353
+ Top = 505
+ end
+ inherited ImageList_new32: TImageList
+ Left = 1480
+ Top = 32
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
+ object GPM_1: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 436
+ Top = 509
+ end
+ object cxStyleRepository1: TcxStyleRepository
+ Left = 69
+ Top = 130
+ PixelsPerInch = 96
+ object cxStyle1: TcxStyle
+ AssignedValues = [svColor, svFont]
+ Color = clInactiveCaption
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ end
+ object cxStyle2: TcxStyle
+ AssignedValues = [svColor, svFont, svTextColor]
+ Color = 4707838
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ TextColor = clBtnText
+ end
+ object cxStyle_gridRow: TcxStyle
+ AssignedValues = [svColor, svFont]
+ Color = 16311512
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ end
+ object cxStyle_gridFoot: TcxStyle
+ AssignedValues = [svFont]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ end
+ object cxStyle_gridHead: TcxStyle
+ AssignedValues = [svFont]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ end
+ object cxStyle_gridGroupBox: TcxStyle
+ AssignedValues = [svColor, svFont]
+ Color = clMoneyGreen
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ end
+ object cxStyle_yellow: TcxStyle
+ AssignedValues = [svColor, svFont]
+ Color = 8454143
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ end
+ object cxStyle_Red: TcxStyle
+ AssignedValues = [svColor, svFont]
+ Color = clRed
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ end
+ object cxStyle_fontBlack: TcxStyle
+ AssignedValues = [svFont]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ end
+ object cxStyle_fontclFuchsia: TcxStyle
+ AssignedValues = [svFont, svTextColor]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ TextColor = clFuchsia
+ end
+ object cxStyle_fontclPurple: TcxStyle
+ AssignedValues = [svFont, svTextColor]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ TextColor = clPurple
+ end
+ object cxStyle_fontclGreen: TcxStyle
+ AssignedValues = [svFont, svTextColor]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ TextColor = clGreen
+ end
+ object cxStyle_fontclBlue: TcxStyle
+ AssignedValues = [svFont, svTextColor]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ TextColor = clBlue
+ end
+ object cxStyle_fontclTeal: TcxStyle
+ AssignedValues = [svFont, svTextColor]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ TextColor = clTeal
+ end
+ object cxStyle_fontclOlive: TcxStyle
+ AssignedValues = [svFont, svTextColor]
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ TextColor = clOlive
+ end
+ end
+ object CDSOrder: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 172
+ Top = 144
+ end
+ object DataSource1: TDataSource
+ DataSet = CDSOrder
+ Left = 232
+ Top = 160
+ end
+ object ADOQueryTmp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 352
+ Top = 312
+ end
+ object ADOQueryPrint: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 360
+ Top = 240
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 404
+ Top = 216
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 492
+ Top = 252
+ end
+ object RMDB_Main: TRMDBDataSet
+ Visible = True
+ Left = 608
+ Top = 264
+ end
+ object ADOQuery1: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 648
+ Top = 232
+ end
+ object CDSMJID: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 732
+ Top = 212
+ end
+ object DataSource2: TDataSource
+ DataSet = CDSMJID
+ Left = 872
+ Top = 248
+ end
+ object RMXLSExport2: TRMXLSExport
+ ShowAfterExport = True
+ ExportPrecision = 1
+ PagesOfSheet = 1
+ ExportImages = True
+ ExportFrames = True
+ ExportImageFormat = ifBMP
+ JPEGQuality = 0
+ ScaleX = 1.000000000000000000
+ ScaleY = 1.000000000000000000
+ CompressFile = False
+ Left = 860
+ Top = 164
+ end
+ object RM1: TRMGridReport
+ ThreadPrepareReport = True
+ InitialZoom = pzDefault
+ PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
+ DefaultCollate = False
+ ShowPrintDialog = False
+ SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+ PreviewOptions.RulerUnit = rmutScreenPixels
+ PreviewOptions.RulerVisible = False
+ PreviewOptions.DrawBorder = False
+ PreviewOptions.BorderPen.Color = clGray
+ PreviewOptions.BorderPen.Style = psDash
+ CompressLevel = rmzcFastest
+ CompressThread = False
+ LaterBuildEvents = True
+ OnlyOwnerDataSet = False
+ Left = 784
+ Top = 136
+ ReportData = {}
+ end
+end
diff --git a/T05贸易门市管理/U_TradeMarketDisScan.pas b/T05贸易门市管理/U_TradeMarketDisScan.pas
new file mode 100644
index 0000000..c5f8dda
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketDisScan.pas
@@ -0,0 +1,593 @@
+unit U_TradeMarketDisScan;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+ cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+ cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+ StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+ cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
+ RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
+ cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
+ dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
+ System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
+ IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
+ IdFTP, ShellAPI, MovePanel, RM_e_Xls, MMSystem, dxScrollbarAnnotations,
+ cxImageList;
+
+type
+ TfrmTradeMarketDisScan = class(TfrmBaseInput)
+ ToolBar1: TToolBar;
+ TBSave: TToolButton;
+ TBClose: TToolButton;
+ GPM_1: TcxGridPopupMenu;
+ ToolButton3: TToolButton;
+ MovePanel2: TMovePanel;
+ Panel1: TPanel;
+ cxGrid1: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ v1MJID: TcxGridDBColumn;
+ v1MJXH: TcxGridDBColumn;
+ v1P_Code: TcxGridDBColumn;
+ v1P_Color: TcxGridDBColumn;
+ v1RollNum: TcxGridDBColumn;
+ v1Qty: TcxGridDBColumn;
+ v1PHRollNum: TcxGridDBColumn;
+ v1PHQty: TcxGridDBColumn;
+ cxGrid1Level1: TcxGridLevel;
+ cxGrid2: TcxGrid;
+ TV2: TcxGridDBTableView;
+ V2Column2: TcxGridDBColumn;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridDBColumn5: TcxGridDBColumn;
+ cxGridDBColumn6: TcxGridDBColumn;
+ cxGridDBColumn2: TcxGridDBColumn;
+ cxGridDBColumn4: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ V2Column1: TcxGridDBColumn;
+ cxGridDBColumn7: TcxGridDBColumn;
+ V2Column3: TcxGridDBColumn;
+ V2Column4: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ MovePanel1: TMovePanel;
+ Label2: TLabel;
+ Edit2: TEdit;
+ Button4: TButton;
+ Label1: TLabel;
+ SmNO: TEdit;
+ Label15: TLabel;
+ PHYG: TBtnEditA;
+ cxStyleRepository1: TcxStyleRepository;
+ cxStyle1: TcxStyle;
+ cxStyle2: TcxStyle;
+ cxStyle_gridRow: TcxStyle;
+ cxStyle_gridFoot: TcxStyle;
+ cxStyle_gridHead: TcxStyle;
+ cxStyle_gridGroupBox: TcxStyle;
+ cxStyle_yellow: TcxStyle;
+ cxStyle_Red: TcxStyle;
+ cxStyle_fontBlack: TcxStyle;
+ cxStyle_fontclFuchsia: TcxStyle;
+ cxStyle_fontclPurple: TcxStyle;
+ cxStyle_fontclGreen: TcxStyle;
+ cxStyle_fontclBlue: TcxStyle;
+ cxStyle_fontclTeal: TcxStyle;
+ cxStyle_fontclOlive: TcxStyle;
+ CDSOrder: TClientDataSet;
+ DataSource1: TDataSource;
+ ADOQueryTmp: TADOQuery;
+ ADOQueryPrint: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ RMDB_Main: TRMDBDataSet;
+ ADOQuery1: TADOQuery;
+ CDSMJID: TClientDataSet;
+ DataSource2: TDataSource;
+ RMXLSExport2: TRMXLSExport;
+ RM1: TRMGridReport;
+ Tv1Column2: TcxGridDBColumn;
+ TV2Column1: TcxGridDBColumn;
+ Button1: TButton;
+ TV2Column2: TcxGridDBColumn;
+ Tv1Column1: TcxGridDBColumn;
+ procedure TBCloseClick(Sender: TObject);
+ procedure CustomerNoNameBtnDnClick(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+ procedure SmNOKeyPress(Sender: TObject; var Key: Char);
+ procedure TBSaveClick(Sender: TObject);
+ procedure Button4Click(Sender: TObject);
+ procedure Button1Click(Sender: TObject);
+ procedure PHYGBtnClick(Sender: TObject);
+ private
+ fCode, fColor, FPattern: string;
+ function SaveData(): Boolean;
+ procedure InitOrder();
+ procedure InitMJID();
+ procedure initGrid();
+
+ { Private declarations }
+ public
+ FMainid: string;
+ { Public declarations }
+ end;
+
+var
+ frmTradeMarketDisScan: TfrmTradeMarketDisScan;
+ newh: hwnd;
+
+implementation
+
+uses
+ U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
+ U_ClothInfoSel, U_TradeDispatchedSel;
+
+
+{$R *.dfm}
+
+procedure TfrmTradeMarketDisScan.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+
+end;
+
+function TfrmTradeMarketDisScan.SaveData(): Boolean;
+var
+ phID: string;
+ P_ID: integer;
+begin
+
+ Result := false;
+ ADOQueryCmd.Connection.BeginTrans;
+ P_ID := 1;
+ try
+ with CDSMJID do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+ if trim(CDSMJID.fieldbyname('SDefNote').AsString) = 'ɨɹ' then
+ begin
+ if GetLSNo(ADOQueryTmp, phID, 'PH', 'Trade_Market_Distribution', 4, 1) = False then
+ begin
+ Application.MessageBox('ȡʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Distribution ');
+ sql.Add('where 1=2 ');
+ open;
+ end;
+ ADOQueryCmd.Append;
+ ADOQueryCmd.FieldByName('TMDID').Value := trim(phID);
+ ADOQueryCmd.FieldByName('TMMID').Value := trim(cdsmjid.fieldbyname('TMMID').AsString);
+ ADOQueryCmd.FieldByName('TMSID').Value := trim(cdsmjid.fieldbyname('TMSID').AsString);
+ ADOQueryCmd.FieldByName('STKID').Value := trim(cdsmjid.fieldbyname('STKID').AsString);
+ ADOQueryCmd.FieldByName('Filler').Value := trim(DName);
+ ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text);
+ ADOQueryCmd.FieldByName('TMDType').Value := 'ɨ';
+ ADOQueryCmd.Post;
+
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Cloth_Stock ');
+ sql.Add('where stkid=' + quotedstr(trim(CDSMJID.fieldbyname('stkid').AsString)));
+ open;
+ edit;
+ fieldbyname('DISstatus').Value := '1';
+ post;
+ end;
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Sub ');
+ sql.Add('where TMSID=' + quotedstr(trim(CDSMJID.fieldbyname('TMSID').AsString)));
+ open;
+ edit;
+ fieldbyname('substatus').Value := '2';
+ post;
+ end;
+ end;
+ next;
+ end;
+ first;
+ EnableControls;
+ end;
+ ADOQueryCmd.Connection.CommitTrans;
+ Result := true;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ end;
+end;
+
+procedure TfrmTradeMarketDisScan.SmNOKeyPress(Sender: TObject; var Key: Char);
+begin
+ inherited;
+ if Key = #13 then
+ begin
+ MovePanel1.Visible := false;
+ if trim(smno.Text) = '' then
+ exit;
+ if uppercase(leftBstr(trim(smno.Text), 2)) = 'JM' then
+ begin
+ if not CDSMJID.IsEmpty then
+ begin
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\δ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\δ.wav'), 0, SND_ASYNC);
+ exit;
+ end;
+ inItorder();
+ end
+ else
+ begin
+ if CDSOrder.IsEmpty then
+ begin
+ MovePanel1.Visible := true;
+ Edit2.Text := SmNO.Text;
+ Label2.Caption := 'Ϊգ';
+ smno.Text := '';
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\Ϊ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\Ϊ.wav'), 0, SND_ASYNC);
+ exit;
+ end;
+ if not CDSMJID.Locate('CIID', trim(smNo.Text), []) then
+ begin
+ initMjid();
+ end
+ else
+ begin
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ظɨ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ظɨ.wav'), 0, SND_ASYNC);
+ end;
+ end;
+ smno.Text := '';
+ smno.SetFocus;
+ end;
+end;
+
+procedure TfrmTradeMarketDisScan.TBRafreshClick(Sender: TObject);
+begin
+ inherited;
+ MovePanel2.Visible := True;
+ MovePanel2.Refresh;
+ initOrder();
+ MovePanel2.Visible := False;
+
+end;
+
+procedure TfrmTradeMarketDisScan.TBSaveClick(Sender: TObject);
+begin
+ inherited;
+ if CDSOrder.IsEmpty then
+ exit;
+ if CDSMJID.IsEmpty then
+ exit;
+
+ try
+ if not SaveData() then
+ begin
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ʧ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ʧ.wav'), 0, SND_ASYNC);
+ exit;
+ end
+ else
+ begin
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɹ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɹ.wav'), 0, SND_ASYNC);
+ initGrid();
+ exit;
+ end;
+ except
+ end;
+end;
+
+procedure TfrmTradeMarketDisScan.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+ inherited;
+ var i: integer;
+ begin
+ i := tv2.GetColumnByFieldName('SDefNote').Index;
+ if (AViewInfo.GridRecord.Values[i] <> 'ɨɹ') then
+ ACanvas.Brush.Color := clred;
+ end;
+end;
+
+procedure TfrmTradeMarketDisScan.Button1Click(Sender: TObject);
+var
+ key: Char;
+begin
+ inherited;
+ key := #13;
+ frmTradeDispatchedSel := TfrmTradeDispatchedSel.create(self);
+ with frmTradeDispatchedSel do
+ begin
+
+ if showmodal = 1 then
+ begin
+ smno.Text := trim(Order_Main.FieldByName('TMMID').AsString);
+
+ SmNOKeyPress(smno, key);
+ end;
+ free;
+ end;
+end;
+
+procedure TfrmTradeMarketDisScan.Button4Click(Sender: TObject);
+begin
+ inherited;
+ MovePanel1.Visible := False;
+end;
+
+procedure TfrmTradeMarketDisScan.CustomerNoNameBtnDnClick(Sender: TObject);
+begin
+ TBtnEditC(Sender).Text := '';
+ TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmTradeMarketDisScan.InitOrder();
+var
+ fP_No: string;
+begin
+ MovePanel1.Visible := false;
+ CDSMJID.EmptyDataSet;
+ with ADOQueryMain do
+ begin
+ Close;
+ sql.Clear;
+ sql.add(' select * ');
+ sql.Add(' ,PHRollNum=(select count(STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID),');
+ sql.Add(' PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+ sql.add(' from Trade_Market_Sub B');
+ sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
+ SQL.Add(' where A.TMMID=' + quotedstr(trim(SmNO.text)));
+ SQL.Add(' and isnull(B.substatus,''0'')<=''2'' ');
+ Open;
+ end;
+ if ADOQueryMain.IsEmpty then
+ begin
+ MovePanel1.Visible := true;
+ Edit2.text := SmNO.Text;
+ Label2.Caption := 'δ˻ѷ';
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav'), 0, SND_ASYNC);
+ exit;
+ end
+ else
+ begin
+ SCreateCDS(ADOQueryMain, CDSOrder);
+ SInitCDSData(ADOQueryMain, CDSOrder);
+ with CDSOrder do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+
+ next;
+ end;
+ first;
+ EnableControls;
+ end;
+ end;
+
+end;
+
+procedure TfrmTradeMarketDisScan.PHYGBtnClick(Sender: TObject);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
+ with frmZDYHelpSel do
+ begin
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TEdit(Sender).Text := ReturnStr;
+ end;
+ end;
+ finally
+ frmZDYHelpSel.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketDisScan.InitGrid();
+begin
+ with ADOQueryMain do
+ begin
+ Close;
+ sql.Clear;
+ sql.add(' select * ');
+ sql.Add(' ,PHRollNum=(select count(X.STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID),');
+ sql.Add(' PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+ sql.add(' from Trade_Market_Sub B');
+ sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
+ SQL.Add(' where 1=2 ');
+ Open;
+ end;
+ SCreateCDS(ADOQueryMain, CDSOrder);
+ SInitCDSData(ADOQueryMain, CDSOrder);
+
+ with ADOQueryMain do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select A.*,B.TMMID,TMSID,TMDID,cast(0 as int) as RollNum from Trade_Cloth_Stock A ');
+ SQL.Add('inner join Trade_Market_Distribution B on B.STKID=A.STKID ');
+ SQL.Add('where 1=2 ');
+ Open;
+ end;
+ SCreateCDS(ADOQueryMain, CDSMJID);
+ SInitCDSData(ADOQueryMain, CDSMJID);
+
+end;
+
+procedure TfrmTradeMarketDisScan.FormShow(Sender: TObject);
+begin
+ MovePanel1.Left := (Width - MovePanel1.Width) div 2;
+ MovePanel1.top := (Height - MovePanel1.Height - 200) div 2;
+ InitGrid();
+end;
+
+procedure TfrmTradeMarketDisScan.InitMJID();
+var
+ fP_No: string;
+ i: integer;
+begin
+ MovePanel1.Visible := false;
+
+ with ADOQueryTmp do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select CIID from Trade_Cloth_Inspect A');
+ SQL.Add('where A.CIID=' + quotedstr(trim(SmNO.text)));
+ SQL.Add('and CIIOFlag=''δ''');
+ Open;
+ if not IsEmpty then
+ begin
+ CDSMJID.Append;
+ CDSMJID.FieldByName('SDefNote').Value := 'δ';
+ CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
+ CDSMJID.Post;
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\δ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\δ.wav'), 0, SND_ASYNC);
+ Exit;
+ end;
+ end;
+
+ with ADOQueryTmp do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select Stkid from Trade_Cloth_IO A');
+ SQL.Add('where A.stkid=' + quotedstr(trim(SmNO.text)));
+ SQL.Add('and IOFlag=''''');
+ Open;
+ if not IsEmpty then
+ begin
+ CDSMJID.Append;
+ CDSMJID.FieldByName('SDefNote').Value := 'ѳ';
+ CDSMJID.FieldByName('Stkid').Value := trim(SmNO.Text);
+ CDSMJID.Post;
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ѳ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ѳ.wav'), 0, SND_ASYNC);
+ Exit;
+ end;
+ end;
+
+ with ADOQueryMain do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select A.* from Trade_Cloth_Stock A');
+ sql.add('left join Trade_Cloth_IO B on B.stkid=A.stkid and B.IOFlag='''' ');
+ SQL.Add('where A.CIID=' + quotedstr(trim(SmNO.text)));
+ sql.Add('and isnull(A.DisStatus,''0'')=''0'' ');
+ sql.Add('and StkExists=1 ');
+ Open;
+ end;
+ if ADOQueryMain.IsEmpty then
+ begin
+ CDSMJID.Append;
+ CDSMJID.FieldByName('SDefNote').Value := '벻ڻѾ';
+ CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
+ CDSMJID.Post;
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav'), 0, SND_ASYNC);
+ exit;
+ end;
+ with ADOQueryTmp do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select A.STKID,B.TMMID,B.TMSID from Trade_Cloth_Stock A');
+ sql.Add('inner join Trade_Market_Sub B on isnull(B.C_Color,'''')=isnull(A.C_Color,'''') and isnull(B.C_Pattern,'''')= isnull(A.C_Pattern,'''') ');
+ SQL.Add('where A.STKID=' + quotedstr(trim(SmNO.text)));
+ SQL.Add('and B.TMMID=' + quotedstr(trim(CDSOrder.Fieldbyname('TMMID').AsString)));
+ // SQL.ADD('and isnull(B.PRTKZ,'''')<>'''' ');
+ Open;
+ end;
+
+ if ADOQueryTmp.IsEmpty then
+ begin
+ CDSMJID.Append;
+ CDSMJID.FieldByName('SDefNote').Value := 'ɫͻͲӦ';
+ CDSMJID.FieldByName('STKID').Value := trim(SmNO.Text);
+ CDSMJID.Post;
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ƷɫӦ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ƷɫӦ.wav'), 0, SND_ASYNC);
+ exit;
+ end;
+ i := 0;
+ while not ADOQueryTmp.eof do
+ begin
+ if CDSOrder.Locate('TMSID', trim(ADOQueryTmp.fieldbyname('TMSID').AsString), []) then
+ begin
+ if (CDSOrder.fieldbyName('TMSPiece').AsInteger = CDSOrder.FieldByName('PHRollNum').AsInteger) and (CDSOrder.fieldbyName('TMSPiece').AsInteger > 0) then
+ begin
+ end
+ else
+ begin
+ i := 1;
+ CDSMJID.Append;
+ CDSMJID.FieldByName('SDefNote').Value := 'ɨɹ';
+ CDSMJID.FieldByName('CIID').Value := trim(ADOQueryMain.Fieldbyname('CIID').AsString);
+ CDSMJID.FieldByName('stkid').Value := trim(ADOQueryMain.Fieldbyname('stkid').AsString);
+ CDSMJID.FieldByName('C_Name').Value := trim(ADOQueryMain.Fieldbyname('C_Name').AsString);
+ CDSMJID.FieldByName('C_Color').Value := trim(ADOQueryMain.Fieldbyname('C_Color').AsString);
+ CDSMJID.FieldByName('Grade').Value := trim(ADOQueryMain.Fieldbyname('Grade').AsString);
+ CDSMJID.FieldByName('RollNum').Value := 1;
+ CDSMJID.FieldByName('stkmeter').Value := ADOQueryMain.Fieldbyname('stkmeter').AsFloat;
+ CDSMJID.FieldByName('TMMID').Value := trim(ADOQueryTmp.Fieldbyname('TMMID').AsString);
+ CDSMJID.FieldByName('TMSID').Value := trim(ADOQueryTmp.Fieldbyname('TMSID').AsString);
+ CDSMJID.FieldByName('C_Width').Value := ADOQueryMain.Fieldbyname('C_Width').AsString;
+ CDSMJID.FieldByName('C_GramWeight').Value := ADOQueryMain.Fieldbyname('C_GramWeight').AsString;
+ // CDSMJID.FieldByName('conNo').Value:=trim(ADOQueryMain.Fieldbyname('conNo').AsString);
+ CDSMJID.Post;
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ȷ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ȷ.wav'), 0, SND_ASYNC);
+ CDSOrder.Edit;
+ CDSOrder.fieldbyName('PHRollNum').Value := CDSOrder.fieldbyName('PHRollNum').AsInteger + 1;
+ CDSOrder.fieldbyName('PHQty').Value := CDSOrder.fieldbyName('PHQty').AsFloat + ADOQueryMain.Fieldbyname('stkmeter').AsFloat;
+ CDSOrder.Post;
+ if tv1.DataController.Summary.FooterSummaryValues[0] <> 0 then
+ begin
+ if tv1.DataController.Summary.FooterSummaryValues[0] = tv2.DataController.Summary.FooterSummaryValues[0] then
+ begin
+ TBSave.Click;
+ exit;
+ end;
+ end;
+ exit;
+ end;
+ end;
+ ADOQueryTmp.Next;
+ end;
+
+ if i = 0 then
+ begin
+ if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\µƥ.wav')) then
+ PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\µƥ.wav'), 0, SND_ASYNC);
+
+ end;
+end;
+
+end.
+
diff --git a/T05贸易门市管理/U_TradeMarketDisSel.dfm b/T05贸易门市管理/U_TradeMarketDisSel.dfm
new file mode 100644
index 0000000..3f6950c
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketDisSel.dfm
@@ -0,0 +1,861 @@
+inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
+ Left = 143
+ Top = 4
+ Caption = #35746#21333#24405#20837
+ ClientHeight = 650
+ ClientWidth = 1540
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Name = #23435#20307
+ Position = poMainFormCenter
+ WindowState = wsMaximized
+ ExplicitWidth = 1556
+ ExplicitHeight = 689
+ PixelsPerInch = 96
+ TextHeight = 12
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 91
+ Caption = 'ToolBar1'
+ Color = clWhite
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_TradeMarket.ImageList_new32
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 0
+ object TBRafresh: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #21047#26032
+ ImageIndex = 1
+ OnClick = TBRafreshClick
+ end
+ object TBFind: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #36807#28388
+ ImageIndex = 0
+ OnClick = TBFindClick
+ end
+ object TBSave: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #30830#35748#37197#36135
+ ImageIndex = 4
+ OnClick = TBSaveClick
+ end
+ object ToolButton3: TToolButton
+ Left = 237
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ end
+ object TBClose: TToolButton
+ Left = 332
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel2: TPanel [1]
+ Left = 0
+ Top = 81
+ Width = 497
+ Height = 569
+ Align = alLeft
+ Caption = 'Panel2'
+ TabOrder = 1
+ object cxGrid3: TcxGrid
+ Left = 1
+ Top = 1
+ Width = 495
+ Height = 567
+ Align = alClient
+ TabOrder = 0
+ object Tv3: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnFocusedRecordChanged = Tv3FocusedRecordChanged
+ DataController.DataSource = DS_1
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsData.Editing = False
+ OptionsView.GroupByBox = False
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.NullStyle = nssUnchecked
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 49
+ end
+ object v1OrderNo: TcxGridDBColumn
+ Caption = #35746#21333#21495
+ DataBinding.FieldName = 'TMMNO'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 72
+ end
+ object v1CustomerNoName: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 73
+ end
+ object v1MPRTCodeName: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 69
+ end
+ object v1PRTColor: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 60
+ end
+ object v1MPRTKZ: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'PRTKZ'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Options.Focusing = False
+ VisibleForCustomization = False
+ Width = 54
+ end
+ object v1PRTRollNum: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'TMSPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 40
+ end
+ object v1PRTOrderQty: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'TMSQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 52
+ end
+ object cxGridDBColumn19: TcxGridDBColumn
+ Caption = #25968#37327#21333#20301
+ DataBinding.FieldName = 'TMSUnit'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 58
+ end
+ object v1OrdDefStr1: TcxGridDBColumn
+ Caption = #20844#21496#32534#21495
+ DataBinding.FieldName = 'OrdDefStr1'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 90
+ end
+ object cxGridDBColumn17: TcxGridDBColumn
+ Caption = #20844#21496#21488#22836
+ DataBinding.FieldName = 'OrdDefStr2'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 90
+ end
+ object v1OrdPerson1: TcxGridDBColumn
+ Caption = #19994#21153#21592
+ DataBinding.FieldName = 'OrdPerson1'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ VisibleForCustomization = False
+ Width = 73
+ end
+ object v1JGFactoryName: TcxGridDBColumn
+ Caption = #26579#21378
+ DataBinding.FieldName = 'JGFactoryName'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 60
+ end
+ object v1OrdDate: TcxGridDBColumn
+ Caption = #21046#21333#26085#26399
+ DataBinding.FieldName = 'OrdDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 68
+ end
+ object cxGridDBColumn18: TcxGridDBColumn
+ Caption = #22791#27880#21450#35201#27714
+ DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 96
+ end
+ object v1DeliveryDate: TcxGridDBColumn
+ Caption = #20132#36135#26085#26399
+ DataBinding.FieldName = 'DlyDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 62
+ end
+ object v1MPRTSpec: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'C_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ Width = 68
+ end
+ object v3Column11: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 60
+ end
+ object v1MPRTMF: TcxGridDBColumn
+ Caption = #38376#24133
+ DataBinding.FieldName = 'PRTMF'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Focusing = False
+ VisibleForCustomization = False
+ Width = 70
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv3
+ end
+ end
+ end
+ object Panel3: TPanel [2]
+ Left = 497
+ Top = 81
+ Width = 1043
+ Height = 569
+ Align = alClient
+ TabOrder = 2
+ object cxGrid2: TcxGrid
+ Left = 1
+ Top = 1
+ Width = 1041
+ Height = 207
+ Align = alClient
+ TabOrder = 0
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnCellDblClick = Tv1CellDblClick
+ DataController.DataSource = DS_MX
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skCount
+ Column = v1Column6
+ end
+ item
+ Kind = skSum
+ Column = v2Column5
+ end
+ item
+ Kind = skSum
+ Column = v2Column6
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsCustomize.ColumnSorting = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ OptionsView.IndicatorWidth = 20
+ object v1Ssel: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'Ssel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Width = 49
+ end
+ object v2Column1: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'C_CODE'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 91
+ end
+ object v2Column3: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 77
+ end
+ object v1C_Color: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 60
+ end
+ object v2Column6: TcxGridDBColumn
+ Caption = #24211#23384#25968#37327
+ DataBinding.FieldName = 'stkqty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 85
+ end
+ object v1Column7: TcxGridDBColumn
+ Caption = #25968#37327#21333#20301
+ DataBinding.FieldName = 'QtyUnit'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 83
+ end
+ object v1Column2: TcxGridDBColumn
+ Caption = #32568#21495
+ DataBinding.FieldName = 'batchno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 62
+ end
+ object v1Column3: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 63
+ end
+ object v2Column5: TcxGridDBColumn
+ Caption = #24211#23384#20844#26020#25968
+ DataBinding.FieldName = 'KCKGQty'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 83
+ end
+ object v1Column6: TcxGridDBColumn
+ Caption = #26465#30721
+ DataBinding.FieldName = 'CIID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 92
+ end
+ object v1KCKW: TcxGridDBColumn
+ Caption = #24211#20301
+ DataBinding.FieldName = 'IOPosition'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 60
+ end
+ object v1Column5: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 60
+ end
+ end
+ object cxGrid2Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object cxGrid1: TcxGrid
+ Left = 1
+ Top = 208
+ Width = 1041
+ Height = 360
+ Align = alBottom
+ TabOrder = 1
+ object Tv2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnCellDblClick = Tv2CellDblClick
+ DataController.DataSource = DS_MXSel
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skCount
+ Column = cxGridDBColumn7
+ end
+ item
+ Kind = skSum
+ Column = cxGridDBColumn11
+ end
+ item
+ Kind = skSum
+ Column = cxGridDBColumn13
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsCustomize.ColumnSorting = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ OptionsView.IndicatorWidth = 20
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'C_CODE'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 92
+ end
+ object cxGridDBColumn4: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 77
+ end
+ object cxGridDBColumn11: TcxGridDBColumn
+ Caption = #24211#23384#20844#26020#25968
+ DataBinding.FieldName = 'KCKGQty'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 83
+ end
+ object cxGridDBColumn16: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 60
+ end
+ object cxGridDBColumn13: TcxGridDBColumn
+ Caption = #24211#23384#25968#37327
+ DataBinding.FieldName = 'stkqty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 76
+ end
+ object cxGridDBColumn14: TcxGridDBColumn
+ Caption = #25968#37327#21333#20301
+ DataBinding.FieldName = 'QtyUnit'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 68
+ end
+ object cxGridDBColumn15: TcxGridDBColumn
+ Caption = #26579#21378#32568#21495
+ DataBinding.FieldName = 'gangNO'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 60
+ end
+ object cxGridDBColumn10: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 63
+ end
+ object cxGridDBColumn9: TcxGridDBColumn
+ Caption = #21367#21495
+ DataBinding.FieldName = 'pieceno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 59
+ end
+ object cxGridDBColumn7: TcxGridDBColumn
+ Caption = #26465#30721
+ DataBinding.FieldName = 'ciid'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 92
+ end
+ object cxGridDBColumn5: TcxGridDBColumn
+ Caption = #38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 70
+ end
+ object cxGridDBColumn6: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 59
+ end
+ object v2Column4: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 60
+ end
+ object v2Column7: TcxGridDBColumn
+ Caption = #32568#21495
+ DataBinding.FieldName = 'batchno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = Tv2
+ end
+ end
+ end
+ object MovePanel2: TMovePanel [3]
+ Left = 408
+ Top = 192
+ Width = 289
+ Height = 49
+ BevelInner = bvLowered
+ Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+ Color = clSkyBlue
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -13
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 3
+ Visible = False
+ end
+ object Panel1: TPanel [4]
+ Left = 0
+ Top = 38
+ Width = 1540
+ Height = 43
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clSkyBlue
+ TabOrder = 4
+ object Label3: TLabel
+ Left = 55
+ Top = 15
+ Width = 24
+ Height = 12
+ Caption = #32534#21495
+ end
+ object Label4: TLabel
+ Left = 201
+ Top = 15
+ Width = 24
+ Height = 12
+ Caption = #39068#33394
+ end
+ object Label7: TLabel
+ Left = 492
+ Top = 68
+ Width = 24
+ Height = 12
+ Caption = #31867#22411
+ end
+ object Label15: TLabel
+ Left = 844
+ Top = 15
+ Width = 48
+ Height = 12
+ Caption = #37197#36135#20154#21592
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ Visible = False
+ end
+ object Label1: TLabel
+ Left = 338
+ Top = 15
+ Width = 24
+ Height = 12
+ Caption = #32568#21495
+ end
+ object Label2: TLabel
+ Left = 471
+ Top = 15
+ Width = 24
+ Height = 12
+ Caption = #33457#22411
+ end
+ object c_code: TEdit
+ Tag = 2
+ Left = 83
+ Top = 11
+ Width = 100
+ Height = 20
+ ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+ TabOrder = 1
+ end
+ object C_color: TEdit
+ Tag = 2
+ Left = 228
+ Top = 11
+ Width = 100
+ Height = 20
+ ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+ TabOrder = 2
+ end
+ object CPType: TComboBox
+ Tag = 2
+ Left = 518
+ Top = 64
+ Width = 68
+ Height = 20
+ Style = csDropDownList
+ ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+ TabOrder = 6
+ OnChange = TBFindClick
+ Items.Strings = (
+ #27491#21697
+ #27425#21697
+ #30041#26679
+ '')
+ end
+ object Button1: TButton
+ Left = 1008
+ Top = 8
+ Width = 75
+ Height = 25
+ Caption = #30830#23450#36873#25321
+ TabOrder = 0
+ OnClick = Button1Click
+ end
+ object PHYG: TBtnEditA
+ Left = 896
+ Top = 11
+ Width = 100
+ Height = 20
+ ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+ TabOrder = 4
+ Visible = False
+ end
+ object CheckBox1: TCheckBox
+ Left = 1097
+ Top = 11
+ Width = 99
+ Height = 19
+ Caption = #20840#36873
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 5
+ OnClick = CheckBox1Click
+ end
+ object batchno: TEdit
+ Tag = 2
+ Left = 368
+ Top = 11
+ Width = 100
+ Height = 20
+ ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+ TabOrder = 3
+ end
+ object C_Pattern: TEdit
+ Tag = 2
+ Left = 498
+ Top = 11
+ Width = 100
+ Height = 20
+ ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+ TabOrder = 7
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 265
+ Top = 504
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 353
+ Top = 505
+ end
+ inherited ImageList_new32: TImageList
+ Left = 1480
+ Top = 32
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
+ object ADOTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 504
+ Top = 396
+ end
+ object ADOCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 592
+ Top = 389
+ end
+ object DS_1: TDataSource
+ DataSet = CDS_1
+ Left = 208
+ Top = 344
+ end
+ object CDS_1: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 139
+ Top = 348
+ end
+ object GPM_1: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 436
+ Top = 509
+ end
+ object ADOQueryLabel: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 916
+ Top = 357
+ end
+ object IdFTP1: TIdFTP
+ ConnectTimeout = 0
+ NATKeepAlive.UseKeepAlive = False
+ NATKeepAlive.IdleTimeMS = 0
+ NATKeepAlive.IntervalMS = 0
+ ProxySettings.ProxyType = fpcmNone
+ ProxySettings.Port = 0
+ ReadTimeout = 0
+ Left = 840
+ Top = 162
+ end
+ object DS_MX: TDataSource
+ DataSet = CDS_MX
+ Left = 1040
+ Top = 156
+ end
+ object CDS_MX: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 992
+ Top = 156
+ end
+ object CDS_MXSel: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 1024
+ Top = 380
+ end
+ object DS_MXSel: TDataSource
+ DataSet = CDS_MXSel
+ Left = 1072
+ Top = 380
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 980
+ Top = 124
+ end
+end
diff --git a/T05贸易门市管理/U_TradeMarketDisSel.pas b/T05贸易门市管理/U_TradeMarketDisSel.pas
new file mode 100644
index 0000000..ac6e244
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketDisSel.pas
@@ -0,0 +1,468 @@
+unit U_TradeMarketDisSel;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+ cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+ cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+ StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+ cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
+ RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
+ cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
+ dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
+ System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
+ IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
+ IdFTP, ShellAPI, MovePanel, dxScrollbarAnnotations, cxImageList;
+
+type
+ TfrmTradeMarketDisSel = class(TfrmBaseInput)
+ ToolBar1: TToolBar;
+ TBSave: TToolButton;
+ TBClose: TToolButton;
+ ADOTemp: TADOQuery;
+ ADOCmd: TADOQuery;
+ DS_1: TDataSource;
+ CDS_1: TClientDataSet;
+ GPM_1: TcxGridPopupMenu;
+ ADOQueryLabel: TADOQuery;
+ ToolButton3: TToolButton;
+ IdFTP1: TIdFTP;
+ DS_MX: TDataSource;
+ CDS_MX: TClientDataSet;
+ Panel2: TPanel;
+ cxGrid3: TcxGrid;
+ Tv3: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ v1OrderNo: TcxGridDBColumn;
+ v1CustomerNoName: TcxGridDBColumn;
+ v1MPRTCodeName: TcxGridDBColumn;
+ v1PRTColor: TcxGridDBColumn;
+ v1MPRTKZ: TcxGridDBColumn;
+ v1PRTRollNum: TcxGridDBColumn;
+ v1PRTOrderQty: TcxGridDBColumn;
+ cxGridDBColumn19: TcxGridDBColumn;
+ v1OrdDefStr1: TcxGridDBColumn;
+ cxGridDBColumn17: TcxGridDBColumn;
+ v1OrdPerson1: TcxGridDBColumn;
+ v1JGFactoryName: TcxGridDBColumn;
+ v1OrdDate: TcxGridDBColumn;
+ cxGridDBColumn18: TcxGridDBColumn;
+ v1DeliveryDate: TcxGridDBColumn;
+ v1MPRTSpec: TcxGridDBColumn;
+ v3Column11: TcxGridDBColumn;
+ v1MPRTMF: TcxGridDBColumn;
+ cxGrid1Level1: TcxGridLevel;
+ Panel3: TPanel;
+ cxGrid2: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ v1Ssel: TcxGridDBColumn;
+ v2Column1: TcxGridDBColumn;
+ v2Column3: TcxGridDBColumn;
+ v1C_Color: TcxGridDBColumn;
+ v2Column6: TcxGridDBColumn;
+ v1Column7: TcxGridDBColumn;
+ v1Column2: TcxGridDBColumn;
+ v1Column3: TcxGridDBColumn;
+ v2Column5: TcxGridDBColumn;
+ v1Column6: TcxGridDBColumn;
+ v1KCKW: TcxGridDBColumn;
+ v1Column5: TcxGridDBColumn;
+ cxGrid2Level1: TcxGridLevel;
+ cxGrid1: TcxGrid;
+ Tv2: TcxGridDBTableView;
+ cxGridDBColumn3: TcxGridDBColumn;
+ cxGridDBColumn4: TcxGridDBColumn;
+ cxGridDBColumn11: TcxGridDBColumn;
+ cxGridDBColumn16: TcxGridDBColumn;
+ cxGridDBColumn13: TcxGridDBColumn;
+ cxGridDBColumn14: TcxGridDBColumn;
+ cxGridDBColumn15: TcxGridDBColumn;
+ cxGridDBColumn10: TcxGridDBColumn;
+ cxGridDBColumn9: TcxGridDBColumn;
+ cxGridDBColumn7: TcxGridDBColumn;
+ cxGridDBColumn5: TcxGridDBColumn;
+ cxGridDBColumn6: TcxGridDBColumn;
+ v2Column4: TcxGridDBColumn;
+ v2Column7: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ TBRafresh: TToolButton;
+ TBFind: TToolButton;
+ MovePanel2: TMovePanel;
+ CDS_MXSel: TClientDataSet;
+ DS_MXSel: TDataSource;
+ ADOQueryMain: TADOQuery;
+ Panel1: TPanel;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label7: TLabel;
+ Label15: TLabel;
+ Label1: TLabel;
+ c_code: TEdit;
+ C_color: TEdit;
+ CPType: TComboBox;
+ Button1: TButton;
+ PHYG: TBtnEditA;
+ CheckBox1: TCheckBox;
+ batchno: TEdit;
+ Label2: TLabel;
+ C_Pattern: TEdit;
+ procedure TBCloseClick(Sender: TObject);
+ procedure CustomerNoNameBtnDnClick(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+ procedure FormShow(Sender: TObject);
+ procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ procedure TBSaveClick(Sender: TObject);
+ procedure TBFindClick(Sender: TObject);
+ procedure CheckBox1Click(Sender: TObject);
+ procedure Button1Click(Sender: TObject);
+ private
+ fCode, fColor, FPattern: string;
+ function SaveData(): Boolean;
+ procedure InitOrder();
+ procedure InitGrid();
+
+ { Private declarations }
+ public
+ FMainid: string;
+ { Public declarations }
+ end;
+
+var
+ frmTradeMarketDisSel: TfrmTradeMarketDisSel;
+ newh: hwnd;
+
+implementation
+
+uses
+ U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
+ U_ClothInfoSel;
+
+
+{$R *.dfm}
+
+procedure TfrmTradeMarketDisSel.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+
+end;
+
+procedure TfrmTradeMarketDisSel.TBFindClick(Sender: TObject);
+begin
+ inherited;
+ if ADOQueryMain.Active then
+ begin
+ SCreateCDS(ADOQueryMain, cds_mx);
+ SInitCDSData(ADOQueryMain, cds_mx);
+ end;
+end;
+
+function TfrmTradeMarketDisSel.SaveData(): Boolean;
+var
+ phID: string;
+ P_ID: integer;
+begin
+ Result := false;
+ ADOCmd.Connection.BeginTrans;
+ P_ID := 1;
+ try
+ with CDS_MXSel do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+ if GetLSNo(adotemp, phID, 'PH', 'Trade_Market_Distribution', 4, 1) = False then
+ begin
+ Application.MessageBox('ȡʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ with ADOCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Distribution ');
+ sql.Add('where 1=2 ');
+ open;
+ end;
+ ADOCmd.Append;
+ ADOCmd.FieldByName('TMDID').Value := trim(phID);
+ ADOCmd.FieldByName('TMMID').Value := trim(cds_1.fieldbyname('TMMID').AsString);
+ ADOCmd.FieldByName('TMSID').Value := trim(cds_1.fieldbyname('TMSID').AsString);
+ ADOCmd.FieldByName('STKID').Value := trim(cds_mxsel.fieldbyname('STKID').AsString);
+ ADOCmd.FieldByName('Filler').Value := trim(DName);
+ ADOCmd.Post;
+
+ with adocmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from BS_Cloth_IO ');
+ sql.Add('where STKID=' + quotedstr(trim(CDS_MXSel.fieldbyname('STKID').AsString)));
+ open;
+ edit;
+ fieldbyname('DisStatus').Value := '1';
+ post;
+ end;
+
+ next;
+ end;
+ first;
+ EnableControls;
+
+ with adocmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Sub ');
+ sql.Add('where TMMID=' + quotedstr(trim(cds_1.fieldbyname('TMMID').AsString)));
+ sql.Add('and TMSID=' + quotedstr(trim(cds_1.fieldbyname('TMSID').AsString)));
+// ShowMessage(sql.Text);
+ open;
+ edit;
+ fieldbyname('substatus').Value := '2';
+ post;
+ end;
+ end;
+ ADOCmd.Connection.CommitTrans;
+ Result := true;
+ except
+ ADOCmd.Connection.RollbackTrans;
+ end;
+end;
+
+procedure TfrmTradeMarketDisSel.TBRafreshClick(Sender: TObject);
+begin
+ inherited;
+ MovePanel2.Visible := True;
+ MovePanel2.Refresh;
+ initOrder();
+ MovePanel2.Visible := False;
+
+end;
+
+procedure TfrmTradeMarketDisSel.TBSaveClick(Sender: TObject);
+begin
+ if CDS_MXSel.IsEmpty then
+ exit;
+ Panel1.SetFocus;
+ with CDS_MXSel do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+ if (trim(fieldbyname('c_code').AsString) <> trim(cds_1.FieldByName('c_code').AsString)) or (uppercase(trim(fieldbyname('c_color').AsString)) <> uppercase(trim(cds_1.FieldByName('C_Color').AsString))) or (uppercase(trim(fieldbyname('C_Pattern').AsString)) <> uppercase(trim(cds_1.FieldByName('C_Pattern').AsString))) then
+ begin
+ application.MessageBox('Ʒ,ͻɫһ', 'ʾϢ', 0);
+ EnableControls;
+ exit;
+ end;
+ next;
+ end;
+ first;
+ EnableControls;
+ end;
+
+ if SaveData() then
+ begin
+ application.MessageBox('ɹ!', 'ʾϢ');
+ CDS_1.Delete;
+ CDS_MXSel.EmptyDataSet;
+ // TBRafresh.Click;
+ end
+ else
+ begin
+ application.MessageBox('ʧ!', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeMarketDisSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+var
+ i: Integer;
+begin
+ if cds_mx.IsEmpty then
+ Exit;
+ CDS_MXSel.Append;
+ for i := 0 to CDS_MXSel.FieldCount - 1 do
+ begin
+ CDS_MXSel.Fields[i].Value := cds_mx.Fields[i].Value;
+ end;
+ CDS_MXSel.Post;
+ CDS_MX.Delete;
+end;
+
+procedure TfrmTradeMarketDisSel.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+var
+ i: Integer;
+begin
+ if CDS_MXSel.IsEmpty then
+ Exit;
+ CDS_MX.Append;
+ for i := 0 to CDS_MX.FieldCount - 1 do
+ begin
+ CDS_MX.Fields[i].Value := CDS_MXSel.Fields[i].Value;
+ end;
+ CDS_MX.FieldByName('ssel').Value := false;
+ CDS_MX.Post;
+ CDS_MXSel.Delete;
+end;
+
+procedure TfrmTradeMarketDisSel.Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+ inherited;
+ if CDS_1.IsEmpty then
+ begin
+ fCode := '!##@';
+ fColor := '!##@';
+ FPattern := '!##@';
+ end
+ else
+ begin
+ FCode := trim(cds_1.FieldByName('C_Code').AsString);
+ fColor := trim(cds_1.FieldByName('C_Color').AsString);
+ FPattern := trim(cds_1.FieldByName('C_Pattern').AsString);
+ end;
+ InitGrid();
+end;
+
+procedure TfrmTradeMarketDisSel.Button1Click(Sender: TObject);
+var
+ i: integer;
+ mfieldName: string;
+begin
+ if CDS_MX.IsEmpty then
+ Exit;
+ CDS_mxSel.DisableControls;
+ with CDS_MX do
+ begin
+ DisableControls;
+ First;
+ while not eof do
+ begin
+ if (CDS_MX.Locate('ssel', true, [])) and not CDS_mxSel.Locate('stkid', CDS_MX.fieldbyname('stkid').AsString, []) then
+ begin
+ CDS_mxSel.Append;
+ for i := 0 to CDS_mxSel.FieldCount - 1 do
+ begin
+ mfieldName := trim(CDS_mxSel.fields[i].FieldName);
+ CDS_mxSel.Fields[i].Value := CDS_MX.fieldbyName(mfieldName).Value;
+ end;
+ CDS_mxSel.Post;
+ CDS_MX.Delete;
+ end;
+ next;
+ end;
+ EnableControls;
+ First;
+ end;
+ with CDS_MX do
+ begin
+ DisableControls;
+ First;
+ while not eof do
+ begin
+ if (CDS_MX.Locate('ssel', true, [])) and not CDS_mxSel.Locate('stkid', CDS_MX.fieldbyname('stkid').AsString, []) then
+ begin
+ CDS_mxSel.Append;
+ for i := 0 to CDS_mxSel.FieldCount - 1 do
+ begin
+ mfieldName := trim(CDS_mxSel.fields[i].FieldName);
+ CDS_mxSel.Fields[i].Value := CDS_MX.fieldbyName(mfieldName).Value;
+ // CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value;
+ end;
+ CDS_mxSel.Post;
+ CDS_MX.Delete;
+ end;
+ next;
+ end;
+ EnableControls;
+ First;
+ end;
+ CDS_mxSel.EnableControls;
+end;
+
+procedure TfrmTradeMarketDisSel.CheckBox1Click(Sender: TObject);
+begin
+ inherited;
+ if cds_mx.IsEmpty then
+ exit;
+ with cds_mx do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+ edit;
+ fieldbyname('ssel').Value := checkbox1.Checked;
+ post;
+ next;
+ end;
+ First;
+ EnableControls;
+ end;
+end;
+
+procedure TfrmTradeMarketDisSel.CustomerNoNameBtnDnClick(Sender: TObject);
+begin
+ TBtnEditC(Sender).Text := '';
+ TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmTradeMarketDisSel.InitOrder();
+begin
+ try
+ with ADOTemp do
+ begin
+ close;
+ sql.Clear;
+ sql.Add(' select A.* ');
+ sql.Add(' from Trade_Market_Sub A ');
+ sql.Add(' inner join Trade_Market_Main B on B.TMMID=A.TMMID');
+ sql.Add(' and isnull(substatus,''0'')=''0''');
+ sql.Add(' and A.TMMID=' + quotedstr(trim(fmainID)));
+ open;
+ end;
+ SCreateCDS(ADOTemp, cds_1);
+ SInitCDSData(ADOTemp, cds_1);
+ finally
+ // Order_Main.EnableControls;
+ end;
+end;
+
+procedure TfrmTradeMarketDisSel.FormShow(Sender: TObject);
+begin
+ inherited;
+ TBRafresh.Click;
+end;
+
+procedure TfrmTradeMarketDisSel.InitGrid();
+begin
+ try
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ SQL.Add('exec P_Trade_Dispatched_View');
+ SQL.Add('@C_Code=' + quotedstr(trim(fCode)));
+ SQL.Add(',@C_Color=' + quotedstr(trim(fColor)));
+ SQL.Add(',@C_Pattern=' + quotedstr(trim(FPattern)));
+// ShowMessage(sql.Text);
+ Open;
+ end;
+ SCreateCDS(ADOQueryMain, cds_mx);
+ SInitCDSData(ADOQueryMain, cds_mx);
+ SCreateCDS(ADOQueryMain, cds_mxSel);
+ finally
+ TBFind.Click;
+ end;
+end;
+
+end.
+
diff --git a/T05贸易门市管理/U_TradeMarketInPut.dfm b/T05贸易门市管理/U_TradeMarketInPut.dfm
new file mode 100644
index 0000000..ad09dae
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketInPut.dfm
@@ -0,0 +1,751 @@
+inherited frmTradeMarketInPut: TfrmTradeMarketInPut
+ Left = 143
+ Top = 4
+ Caption = #35746#21333#24405#20837
+ ClientHeight = 865
+ ClientWidth = 1360
+ Font.Charset = GB2312_CHARSET
+ Font.Height = -16
+ Position = poMainFormCenter
+ WindowState = wsMaximized
+ ExplicitWidth = 1376
+ ExplicitHeight = 904
+ PixelsPerInch = 96
+ TextHeight = 21
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1360
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 83
+ Caption = 'ToolBar1'
+ Color = clWhite
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = cxImageList_bar
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 0
+ ExplicitWidth = 1692
+ object TBSave: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384
+ ImageIndex = 16
+ OnClick = TBSaveClick
+ end
+ object ToolButton3: TToolButton
+ Left = 63
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton3Click
+ end
+ object TBClose: TToolButton
+ Left = 150
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object ToolBar2: TToolBar [1]
+ Left = 0
+ Top = 254
+ Width = 1360
+ Height = 30
+ ButtonHeight = 30
+ ButtonWidth = 83
+ Caption = 'ToolBar1'
+ Color = clBtnFace
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = cxImageList_bar
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 1
+ object ToolButton4: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20135#21697#36873#25321
+ ImageIndex = 4
+ OnClick = ToolButton4Click
+ end
+ object ToolButton1: TToolButton
+ Left = 87
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = ToolButton1Click
+ end
+ object ToolButton2: TToolButton
+ Left = 150
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = ToolButton2Click
+ end
+ object ToolButton5: TToolButton
+ Left = 213
+ Top = 0
+ Caption = #19968#38190#26367#25442
+ ImageIndex = 17
+ OnClick = ToolButton3Click
+ end
+ end
+ object Panel2: TPanel [2]
+ Left = 0
+ Top = 284
+ Width = 1360
+ Height = 581
+ Align = alClient
+ Caption = 'Panel2'
+ TabOrder = 2
+ ExplicitTop = 251
+ ExplicitWidth = 1540
+ ExplicitHeight = 399
+ object Panel3: TPanel
+ Left = 1
+ Top = 1
+ Width = 1072
+ Height = 579
+ Align = alClient
+ Caption = 'Panel2'
+ TabOrder = 0
+ ExplicitWidth = 900
+ ExplicitHeight = 397
+ object cxGrid1: TcxGrid
+ Left = 1
+ Top = 1
+ Width = 1070
+ Height = 577
+ Align = alClient
+ TabOrder = 0
+ ExplicitLeft = 0
+ ExplicitWidth = 1392
+ ExplicitHeight = 573
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnFocusedRecordChanged = Tv1FocusedRecordChanged
+ DataController.DataSource = DS_1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = '0'
+ Position = spFooter
+ end
+ item
+ Format = '0'
+ Position = spFooter
+ Column = v1PRTOrderQty
+ end
+ item
+ Format = '0'
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = v1PRTOrderQty
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Column = VC_PRTPs
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.FocusCellOnTab = True
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsData.Deleting = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object Tv1Column3: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'SerialNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 50
+ end
+ object v1Column11: TcxGridDBColumn
+ Tag = 99
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Options.Sorting = False
+ Width = 66
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #20135#21697#32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1Column7: TcxGridDBColumn
+ Caption = #20135#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object v1PRTColor: TcxGridDBColumn
+ Caption = #20013#25991#39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ HeaderAlignmentHorz = taCenter
+ Width = 116
+ end
+ object Tv1Column9: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'C_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column11: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1Column5: TcxGridDBColumn
+ Caption = #38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column10: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object VC_PRTPs: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'TMSPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 112
+ end
+ object v1PRTOrderQty: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'TMSQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 98
+ end
+ object Tv1Column8: TcxGridDBColumn
+ Caption = #25968#37327#21333#20301
+ DataBinding.FieldName = 'TMSUnit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxComboBoxProperties'
+ Properties.Items.Strings = (
+ 'M'
+ 'Y'
+ 'Kg'
+ #21305)
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #21333#20215
+ DataBinding.FieldName = 'Price'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #21253#32568#36153
+ DataBinding.FieldName = 'GangFee'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column13: TcxGridDBColumn
+ Caption = #36816#36153
+ DataBinding.FieldName = 'Transfee'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column14: TcxGridDBColumn
+ Caption = #20854#23427#36153
+ DataBinding.FieldName = 'Otherfee'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'OrdSNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 105
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ end
+ object Panel4: TPanel
+ Left = 1073
+ Top = 1
+ Width = 286
+ Height = 579
+ Align = alRight
+ Caption = 'Panel4'
+ TabOrder = 1
+ object Panel5: TPanel
+ Left = 1
+ Top = 1
+ Width = 284
+ Height = 41
+ Align = alTop
+ TabOrder = 0
+ ExplicitLeft = 215
+ ExplicitTop = 393
+ ExplicitWidth = 421
+ object Label33: TLabel
+ Left = 113
+ Top = 10
+ Width = 44
+ Height = 21
+ Caption = #25968#37327
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -21
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label38: TLabel
+ Left = 20
+ Top = 10
+ Width = 44
+ Height = 21
+ Caption = #24207#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -21
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object QtyMX: TEdit
+ Left = 163
+ Top = 6
+ Width = 89
+ Height = 29
+ TabOrder = 0
+ OnKeyPress = QtyMXKeyPress
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = 1
+ Top = 42
+ Width = 284
+ Height = 536
+ Align = alClient
+ Caption = #21452#20987#21024#38500#26126#32454#20449#24687
+ TabOrder = 1
+ ExplicitWidth = 636
+ ExplicitHeight = 354
+ object cxGrid2: TcxGrid
+ Left = 2
+ Top = 23
+ Width = 280
+ Height = 511
+ Align = alClient
+ TabOrder = 0
+ ExplicitLeft = -2
+ ExplicitWidth = 784
+ ExplicitHeight = 507
+ object TvMX: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ Navigator.Buttons.Delete.Enabled = False
+ Navigator.Buttons.Delete.Visible = False
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnCellDblClick = TvMXCellDblClick
+ DataController.DataSource = DS_MX
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Kind = skCount
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ Column = cxGridDBColumn8
+ end
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ Column = cxGridDBColumn8
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = cxGridDBColumn8
+ end
+ item
+ Kind = skCount
+ Column = cxGridDBColumn8
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ OptionsView.IndicatorWidth = 33
+ object cxGridDBColumn8: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'Meter'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.Alignment.Horz = taCenter
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Sorting = False
+ Width = 66
+ end
+ end
+ object cxGridLevel2: TcxGridLevel
+ GridView = TvMX
+ end
+ end
+ end
+ end
+ end
+ object ScrollBox1: TScrollBox [3]
+ Left = 0
+ Top = 30
+ Width = 1360
+ Height = 224
+ Align = alTop
+ BevelInner = bvNone
+ BevelOuter = bvNone
+ BorderStyle = bsNone
+ Color = clWhite
+ Ctl3D = False
+ ParentColor = False
+ ParentCtl3D = False
+ TabOrder = 3
+ OnClick = ScrollBox1Click
+ ExplicitTop = 72
+ ExplicitWidth = 1692
+ object Label3: TLabel
+ Left = 722
+ Top = 13
+ Width = 64
+ Height = 21
+ Caption = #21046#21333#26085#26399
+ end
+ object Label25: TLabel
+ Left = 363
+ Top = 13
+ Width = 64
+ Height = 21
+ Caption = #20132#36135#26085#26399
+ end
+ object Label1: TLabel
+ Left = 21
+ Top = 126
+ Width = 77
+ Height = 21
+ Caption = #22791' '#27880
+ end
+ object Label2: TLabel
+ Left = 23
+ Top = 13
+ Width = 48
+ Height = 21
+ Caption = #35746#21333#21495
+ end
+ object Label14: TLabel
+ Left = 363
+ Top = 49
+ Width = 72
+ Height = 21
+ Caption = #23458' '#25143
+ end
+ object Label20: TLabel
+ Left = 23
+ Top = 49
+ Width = 64
+ Height = 21
+ Caption = #32463#33829#21333#20301
+ end
+ object Label19: TLabel
+ Left = 363
+ Top = 87
+ Width = 80
+ Height = 21
+ Caption = #32852#31995#26041#24335#65306
+ end
+ object Label37: TLabel
+ Left = 23
+ Top = 87
+ Width = 80
+ Height = 21
+ Caption = #35746#21333#31867#22411#65306
+ end
+ object Label18: TLabel
+ Left = 722
+ Top = 49
+ Width = 64
+ Height = 21
+ Caption = #21457#36135#22320#22336
+ end
+ object TMMNo: TEdit
+ Tag = 2
+ Left = 114
+ Top = 10
+ Width = 150
+ Height = 27
+ TabOrder = 0
+ end
+ object TMMDate: TDateTimePicker
+ Tag = 2
+ Left = 806
+ Top = 9
+ Width = 150
+ Height = 29
+ BevelInner = bvNone
+ Date = 40916.000000000000000000
+ Format = 'yyyy-MM-dd'
+ Time = 0.670856296288548000
+ TabOrder = 1
+ end
+ object DLYDate: TDateTimePicker
+ Tag = 2
+ Left = 461
+ Top = 9
+ Width = 150
+ Height = 29
+ BevelInner = bvNone
+ Date = 40916.000000000000000000
+ Format = 'yyyy-MM-dd'
+ Time = 0.670856296288548000
+ ShowCheckbox = True
+ TabOrder = 2
+ end
+ object OrdNote: TMemo
+ Tag = 2
+ Left = 112
+ Top = 131
+ Width = 842
+ Height = 58
+ Hint = 'OrdNote/'#22791#27880
+ ScrollBars = ssVertical
+ TabOrder = 3
+ OnDblClick = PackNoteDblClick
+ end
+ object CustName: TBtnEditC
+ Tag = 2
+ Left = 461
+ Top = 44
+ Width = 150
+ Height = 30
+ ReadOnly = True
+ TabOrder = 4
+ OnBtnUpClick = CustNameBtnUpClick
+ OnBtnDnClick = OurCoNameBtnDnClick
+ end
+ object OurCoName: TBtnEditC
+ Tag = 2
+ Left = 114
+ Top = 45
+ Width = 150
+ Height = 30
+ ReadOnly = True
+ TabOrder = 5
+ OnBtnUpClick = OurCoNameBtnUpClick
+ OnBtnDnClick = OurCoNameBtnDnClick
+ end
+ object CONTACT: TBtnEditC
+ Tag = 2
+ Left = 461
+ Top = 82
+ Width = 493
+ Height = 30
+ TabOrder = 6
+ end
+ object OrdType: TComboBox
+ Tag = 2
+ Left = 114
+ Top = 83
+ Width = 100
+ Height = 29
+ Style = csDropDownList
+ Ctl3D = False
+ Enabled = False
+ ItemIndex = 0
+ ParentCtl3D = False
+ TabOrder = 7
+ Text = #27491#24120#21333
+ Items.Strings = (
+ #27491#24120#21333)
+ end
+ object ShippingAddress: TBtnEditC
+ Tag = 2
+ Left = 806
+ Top = 44
+ Width = 150
+ Height = 30
+ TabOrder = 8
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 265
+ Top = 504
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 353
+ Top = 505
+ end
+ inherited ImageList_new32: TImageList
+ Left = 1480
+ Top = 32
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
+ object ADOTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 504
+ Top = 396
+ end
+ object ADOCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 592
+ Top = 389
+ end
+ object DS_1: TDataSource
+ DataSet = CDS_1
+ Left = 584
+ Top = 512
+ end
+ object CDS_1: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 515
+ Top = 508
+ end
+ object GPM_1: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 436
+ Top = 509
+ end
+ object ADOQueryLabel: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 932
+ Top = 421
+ end
+ object ADO_I1: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 1226
+ Top = 189
+ end
+ object DS_I1: TDataSource
+ DataSet = ADO_I1
+ Left = 1166
+ Top = 157
+ end
+ object IdFTP1: TIdFTP
+ ConnectTimeout = 0
+ NATKeepAlive.UseKeepAlive = False
+ NATKeepAlive.IdleTimeMS = 0
+ NATKeepAlive.IntervalMS = 0
+ ProxySettings.ProxyType = fpcmNone
+ ProxySettings.Port = 0
+ ReadTimeout = 0
+ Left = 1058
+ Top = 238
+ end
+ object ADO_I2: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 1048
+ Top = 75
+ end
+ object DS_I2: TDataSource
+ DataSet = ADO_I2
+ Left = 1124
+ Top = 71
+ end
+ object DS_MX: TDataSource
+ DataSet = CDS_MX
+ Left = 1056
+ Top = 444
+ end
+ object CDS_MX: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 1008
+ Top = 412
+ end
+end
diff --git a/T05贸易门市管理/U_TradeMarketInPut.pas b/T05贸易门市管理/U_TradeMarketInPut.pas
new file mode 100644
index 0000000..78eee30
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketInPut.pas
@@ -0,0 +1,1345 @@
+unit U_TradeMarketInPut;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+ cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+ cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+ StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+ cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
+ RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
+ cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
+ dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
+ System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
+ IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
+ IdFTP, ShellAPI, dxScrollbarAnnotations, cxImageList;
+
+type
+ TfrmTradeMarketInPut = class(TfrmBaseInput)
+ ToolBar1: TToolBar;
+ TBSave: TToolButton;
+ TBClose: TToolButton;
+ ADOTemp: TADOQuery;
+ ADOCmd: TADOQuery;
+ DS_1: TDataSource;
+ CDS_1: TClientDataSet;
+ GPM_1: TcxGridPopupMenu;
+ ADOQueryLabel: TADOQuery;
+ ADO_I1: TADOQuery;
+ DS_I1: TDataSource;
+ ToolButton3: TToolButton;
+ IdFTP1: TIdFTP;
+ ADO_I2: TADOQuery;
+ DS_I2: TDataSource;
+ ToolBar2: TToolBar;
+ ToolButton4: TToolButton;
+ ToolButton1: TToolButton;
+ ToolButton2: TToolButton;
+ ToolButton5: TToolButton;
+ Panel2: TPanel;
+ Panel3: TPanel;
+ cxGrid1: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ v1Column11: TcxGridDBColumn;
+ v1PRTColor: TcxGridDBColumn;
+ VC_PRTPs: TcxGridDBColumn;
+ v1PRTOrderQty: TcxGridDBColumn;
+ Tv1Column2: TcxGridDBColumn;
+ cxGrid1Level1: TcxGridLevel;
+ Tv1Column1: TcxGridDBColumn;
+ Tv1Column7: TcxGridDBColumn;
+ Tv1Column8: TcxGridDBColumn;
+ Tv1Column9: TcxGridDBColumn;
+ Tv1Column4: TcxGridDBColumn;
+ Tv1Column6: TcxGridDBColumn;
+ Tv1Column13: TcxGridDBColumn;
+ Tv1Column14: TcxGridDBColumn;
+ Panel4: TPanel;
+ Panel5: TPanel;
+ Label33: TLabel;
+ Label38: TLabel;
+ QtyMX: TEdit;
+ GroupBox2: TGroupBox;
+ cxGrid2: TcxGrid;
+ TvMX: TcxGridDBTableView;
+ cxGridDBColumn8: TcxGridDBColumn;
+ cxGridLevel2: TcxGridLevel;
+ DS_MX: TDataSource;
+ CDS_MX: TClientDataSet;
+ Tv1Column3: TcxGridDBColumn;
+ Tv1Column5: TcxGridDBColumn;
+ Tv1Column10: TcxGridDBColumn;
+ Tv1Column11: TcxGridDBColumn;
+ ScrollBox1: TScrollBox;
+ Label3: TLabel;
+ Label25: TLabel;
+ Label1: TLabel;
+ Label2: TLabel;
+ Label14: TLabel;
+ Label20: TLabel;
+ Label19: TLabel;
+ Label37: TLabel;
+ Label18: TLabel;
+ TMMNo: TEdit;
+ TMMDate: TDateTimePicker;
+ DLYDate: TDateTimePicker;
+ OrdNote: TMemo;
+ CustName: TBtnEditC;
+ OurCoName: TBtnEditC;
+ CONTACT: TBtnEditC;
+ OrdType: TComboBox;
+ ShippingAddress: TBtnEditC;
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBSaveClick(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure CustomerNoNameBtnDnClick(Sender: TObject);
+ procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure YCLFactoryBtnUpClick(Sender: TObject);
+ procedure ScrollBox1Click(Sender: TObject);
+ procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
+ procedure HYTTBtnUpClick(Sender: TObject);
+ procedure KYTTBtnUpClick(Sender: TObject);
+ procedure edtGYBtnUpClick(Sender: TObject);
+ procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject);
+ procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure cxDBImage1DblClick(Sender: TObject);
+ procedure SYRNameBtnUpClick(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure CustNameBtnUpClick(Sender: TObject);
+ procedure OurCoNameBtnUpClick(Sender: TObject);
+ procedure OurCoNameBtnDnClick(Sender: TObject);
+ procedure TechnicsBtnUpClick(Sender: TObject);
+ procedure TechnicsBtnDnClick(Sender: TObject);
+ procedure PackNoteDblClick(Sender: TObject);
+ procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure ToolButton4Click(Sender: TObject);
+ procedure QtyMXKeyPress(Sender: TObject; var Key: Char);
+ procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+ procedure TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ private
+ FSCXDH: string;
+ procedure InitData();
+ procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
+ function SaveData(): Boolean;
+ function getTMMNo(fconNo: string): string;
+ procedure InitImage1();
+ procedure InitImage2();
+ procedure LookImage(FileName: string);
+ procedure InitMXGrid(MTMSId: string);
+ { Private declarations }
+ public
+ PState, CopyInt, PriceFlag: Integer;
+ FTMMID, FFTMMID, FTMMNo, MTMSId: string;
+ FXS: Integer;
+ canshu1: string;
+ fFlileFlag: string;
+ fordtype: string;
+ { Public declarations }
+ end;
+
+var
+ frmTradeMarketInPut: TfrmTradeMarketInPut;
+ newh: hwnd;
+
+implementation
+
+uses
+ U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
+ U_ClothInfoSel;
+
+
+{$R *.dfm}
+
+procedure TfrmTradeMarketInPut.InitImage1();
+begin
+
+end;
+
+procedure TfrmTradeMarketInPut.InitImage2();
+begin
+
+end;
+
+function TfrmTradeMarketInPut.getTMMNo(fconNo: string): string;
+var
+ str1: string;
+ i: integer;
+begin
+ str1 := trim(fconNo) + '01';
+ with ADOTemp do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select TMMID from Trade_Plan_Main where TMMNo=' + quotedstr(trim(str1)));
+ open;
+ end;
+ if not ADOTemp.IsEmpty then
+ begin
+ for i := 1 to 99 do
+ begin
+ str1 := trim(fconNo) + rightstr(inttostr(100 + i), 2);
+ with ADOCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select TMMID from Trade_Plan_Main where TMMNo=' + quotedstr(trim(str1)));
+ open;
+ end;
+ if ADOCmd.IsEmpty then
+ break;
+ end;
+ end;
+ result := str1;
+end;
+
+procedure TfrmTradeMarketInPut.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+
+end;
+
+procedure TfrmTradeMarketInPut.InitData();
+var
+ FDate: TDateTime;
+begin
+ FDate := SGetServerDateTime(ADOTemp);
+ TMMDate.DateTime := FDate;
+ DlyDate.DateTime := FDate;
+
+ with ADOTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Main where TMMID=''' + Trim(FTMMID) + '''');
+ Open;
+ end;
+ SCSHData(ADOTemp, ScrollBox1, 2);
+ SCSHData(ADOTemp, ScrollBox1, 5);
+ SCSHData(ADOTemp, ScrollBox1, 9);
+ SCSHData(ADOTemp, ScrollBox1, 7);
+ OurCoName.TxtCode := Trim(ADOTemp.FieldByName('OurCoNo').AsString);
+ CustName.TxtCode := Trim(ADOTemp.FieldByName('CustNo').AsString);
+ with ADOTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select * from Trade_Market_Sub where 1=1 ');
+ if PState = 1 then
+ begin
+ sql.Add(' and TMMID=''' + Trim(FTMMID) + '''');
+ end;
+ if PState = 0 then
+ begin
+ sql.Add(' and 1<>1');
+ end;
+ Open;
+ end;
+ SCreateCDS(ADOTemp, CDS_1);
+ SInitCDSData(ADOTemp, CDS_1);
+
+ if PState = 0 then
+ begin
+ TMMDate.DateTime := SGetServerDateTime(ADOTemp);
+ DlyDate.DateTime := TMMDate.DateTime;
+ TMMNo.Text := '';
+ TMMNo.Enabled := True;
+ end
+ else
+ begin
+ end;
+ if CopyInt = 99 then
+ begin
+ PState := 0;
+ FTMMID := '';
+ TMMNo.Text := '';
+ TMMNo.Enabled := True;
+
+ TMMDate.DateTime := FDate;
+
+ with CDS_1 do
+ begin
+ First;
+ while not Eof do
+ begin
+ Edit;
+ FieldByName('TMMID').Value := '';
+ FieldByName('TMSId').Value := '';
+ Post;
+ Next;
+ end;
+ end;
+
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
+var
+ FType, ZDYName, FText: string;
+begin
+end;
+
+procedure TfrmTradeMarketInPut.FormShow(Sender: TObject);
+var
+ i: Integer;
+begin
+ inherited;
+ readCxGrid(TRIM(SELF.Caption), Tv1, 'ָʾ');
+ TMMNo.Text := '';
+ fFlileFlag := UserDataFlag + 'HX';
+ InitData();
+ ordtype.Items.Clear;
+ ordtype.Items.Add(fordtype);
+ ordtype.ItemIndex := 0;
+ InitImage1();
+ InitImage2();
+end;
+
+function TfrmTradeMarketInPut.SaveData(): Boolean;
+var
+ maxno, Smaxno, maxTMMNo, MaxFNo: string;
+begin
+ try
+ ADOCmd.Connection.BeginTrans;
+ ///
+ if Trim(FTMMID) = '' then
+ begin
+ if GetLSNo(ADOCmd, maxno, 'JM', 'Trade_Market_Main', 3, 1) = False then
+ raise Exception.Create('ȡʧ!');
+ end
+ else
+ begin
+ maxno := Trim(FTMMID);
+ end;
+
+ if TMMNo.Text = '' then
+ TMMNo.Text := maxno;
+
+ with ADOCmd do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select * from Trade_Market_Main where TMMID=''' + Trim(FTMMID) + '''');
+ Open;
+ end;
+ with ADOCmd do
+ begin
+ if Trim(FTMMID) = '' then
+ begin
+ Append;
+ FieldByName('FillId').Value := Trim(DCode);
+ FieldByName('Filler').Value := Trim(DName);
+ end
+ else
+ begin
+ Edit;
+ FieldByName('EditId').Value := Trim(DCode);
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
+ end;
+ RTSetsavedata(ADOCmd, 'Trade_Market_Main', ScrollBox1, 2);
+ FieldByName('TMMID').Value := Trim(maxno);
+ FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
+ FieldByName('CustNo').Value := Trim(CustName.TxtCode);
+
+ Post;
+ end;
+
+///////////////////// ӱ ///////////////////////////
+ with CDS_1 do
+ begin
+ First;
+ while not Eof do
+ begin
+ if Trim(CDS_1.fieldbyname('TMSId').AsString) = '' then
+ begin
+ if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then
+ raise Exception.Create('ȡˮʧ!');
+ end
+ else
+ begin
+ Smaxno := Trim(CDS_1.fieldbyname('TMSId').AsString);
+ end;
+ with ADOCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Trade_Market_Sub where TMMID=''' + Trim(maxno) + '''');
+ sql.Add(' and TMSId=''' + Trim(Smaxno) + '''');
+ Open;
+ end;
+ with ADOCmd do
+ begin
+ if Trim(CDS_1.fieldbyname('TMSId').AsString) = '' then
+ Append
+ else
+ Edit;
+ RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Market_Sub', 0);
+
+ RTSetsavedata(ADOCmd, 'Trade_Market_Sub', ScrollBox1, 7);
+ FieldByName('TMMID').Value := Trim(maxno);
+ FieldByName('TMSId').Value := Trim(Smaxno);
+// FieldByName('ConSId').Value := Trim(CDS_1.fieldbyname('ConSId').AsString);
+// FieldByName('ConMId').Value := Trim(CDS_1.fieldbyname('ConMId').AsString);
+ Post;
+ with CDS_1 do
+ begin
+ Edit;
+ fieldbyname('TMSId').Value := Trim(Smaxno);
+ Post;
+ end;
+
+ end;
+ Next;
+ end;
+ end;
+///////////////////// ӱ ///////////////////////////
+///////////////////// ӹ ///////////////////////////
+// with ADOCmd do
+// begin
+// Close;
+// sql.Clear;
+// SQL.Add('select * from Trade_Plan_Fty where TPFId=''' + Trim(FTMMID) + '''');
+// Open;
+// end;
+// with ADOCmd do
+// begin
+// if ADOCmd.IsEmpty then
+// begin
+// Append;
+// end
+// else
+// Edit;
+// RTSetsavedata(ADOCmd, 'Trade_Plan_Fty', ScrollBox1, 5);
+// FieldByName('TMMID').Value := Trim(FTMMID);
+// FieldByName('TPFId').Value := Trim(FTMMID);
+// Post;
+// end;
+
+///////////////////// ӹ ///////////////////////////
+///
+/////////////// ///////////////
+// with ADOCmd do
+// begin
+// Close;
+// sql.Clear;
+// SQL.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FTMMID) + '''');
+// Open;
+// end;
+// with ADOCmd do
+// begin
+// if ADOCmd.IsEmpty then
+// begin
+// Append;
+// end
+// else
+// Edit;
+// RTSetsavedata(ADOCmd, 'Trade_Cloth_Inspect_Rule', ScrollBox1, 9);
+// FieldByName('RuleID').Value := Trim(FTMMID);
+// Post;
+// end;
+
+/////////////// ///////////////
+
+ with ADOCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Trade_Market_Main where TMMNo=''' + Trim(TMMNo.Text) + '''');
+ Open;
+ end;
+ if ADOCmd.RecordCount > 1 then
+ raise Exception.Create('ظ!');
+
+ FTMMID := Trim(maxno);
+
+ ADOCmd.Connection.CommitTrans;
+ Result := True;
+ except
+ Result := False;
+ ADOCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+
+ if pos('KEY Լ', Exception(ExceptObject).Message) > 0 then
+ begin
+ if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then
+ begin
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ end;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.TBSaveClick(Sender: TObject);
+var
+ MAXNO1: string;
+begin
+ if PState <> 1 then
+ begin
+ TMMDate.SetFocus;
+ end;
+
+ if CDS_1.IsEmpty then
+ begin
+ Application.MessageBox('ϸΪ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if CDS_1.Locate('TMSUnit', null, []) then
+ begin
+ Application.MessageBox('λΪ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if CDS_1.Locate('TMSQty', null, []) then
+ begin
+ Application.MessageBox('Ϊ!', 'ʾ', 0);
+ Exit;
+ end;
+
+// if CDS_1.Locate('C_Color', null, []) then
+// begin
+// Application.MessageBox('ɫΪ!', 'ʾ', 0);
+// Exit;
+// end;
+
+ if SaveData() then
+ begin
+ Application.MessageBox('ɹ', 'ʾ', 0);
+// ModalResult := 1;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.ToolButton1Click(Sender: TObject);
+var
+ i: Integer;
+ maxno: string;
+begin
+ if Trim(TMMNo.Text) = '' then
+ begin
+ Application.MessageBox('ŲΪ!', 'ʾ', 0);
+ Exit;
+ end;
+ i := cds_1.RecordCount;
+ i := i + 1;
+ CopyAddRow(Tv1, cds_1);
+
+ if GetLSNo(ADOTemp, maxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then
+ begin
+ ADOCmd.Connection.RollbackTrans;
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ with cds_1 do
+ begin
+ Edit;
+ FieldByName('SerialNo').Value := IntToStr(i);
+ FieldByName('TMSId').Value := Trim(maxno);
+ FieldByName('TMSUnit').Value := 'M';
+ Post;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.ToolButton2Click(Sender: TObject);
+begin
+ if CDS_1.IsEmpty then
+ Exit;
+ if CDS_1.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+ if Application.MessageBox('ȷҪɾѡ', 'ʾ', 32 + 4) <> IDYES then
+ exit;
+ CDS_1.DisableControls;
+ with CDS_1 do
+ begin
+ First;
+ while Locate('SSel', True, []) do
+ begin
+ if Trim(CDS_1.fieldbyname('TMSId').AsString) <> '' then
+ begin
+ with ADOCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Trade_Market_Sub where TMSId=''' + Trim(CDS_1.fieldbyname('TMSId').AsString) + '''');
+ sql.Add('delete Trade_Market_Sub_Qty where TMSId=''' + Trim(CDS_1.fieldbyname('TMSId').AsString) + '''');
+ ExecSQL;
+ end;
+ end;
+ Delete;
+ end;
+ end;
+ CDS_1.EnableControls;
+
+end;
+
+procedure TfrmTradeMarketInPut.ToolButton3Click(Sender: TObject);
+begin
+ WriteCxGrid(TRIM(SELF.Caption), Tv1, 'ָʾ');
+
+end;
+
+procedure TfrmTradeMarketInPut.ToolButton4Click(Sender: TObject);
+var
+ i: Integer;
+ maxno: string;
+begin
+ inherited;
+ try
+ frmClothInfoSel := TfrmClothInfoSel.Create(Application);
+ with frmClothInfoSel do
+ begin
+
+ if ShowModal = 1 then
+ begin
+
+
+
+// while CDS_1.locate('SSel', true, []) do
+ begin
+
+ if self.CDS_1.locate('C_Code', trim(CDS_1.Fieldbyname('C_Code').AsString), []) then
+ begin
+ CDS_1.Edit;
+ CDS_1.fieldbyname('SSel').value := false;
+// continue;
+ end;
+
+ i := cds_1.RecordCount;
+
+ with CDS_3 do
+ begin
+
+ DisableControls;
+ First;
+
+ while not eof do
+ begin
+
+ if FieldByName('SSEL').AsBoolean then
+ begin
+ i := i + 1;
+ if GetLSNo(ADOTemp, maxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then
+ begin
+ ADOCmd.Connection.RollbackTrans;
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ with self.CDS_1 do
+ begin
+ append;
+ FieldByName('SSel').Value := false;
+ FieldByName('SerialNo').Value := IntToStr(i);
+ FieldByName('TMSId').Value := Trim(maxno);
+ FieldByName('TMSUnit').Value := 'M';
+ Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
+ Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
+ Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
+ Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
+ Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
+ Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
+
+// Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
+// Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
+// Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
+
+ Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_ColorNo').AsString);
+ Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Color').AsString);
+ Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Pattern').AsString);
+// Fieldbyname('C_StyleNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_StyleNo').AsString);
+// Fieldbyname('SerialNo').value := 999;
+ end;
+ end;
+ Next;
+ end;
+ EnableControls;
+ end;
+
+// with self.CDS_1 do
+// begin
+// append;
+// FieldByName('SSel').Value := false;
+// FieldByName('SerialNo').Value := IntToStr(i);
+// FieldByName('TMSId').Value := Trim(maxno);
+// FieldByName('TMSUnit').Value := 'M';
+// Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
+// Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
+// Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
+// Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
+// Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
+// Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
+//
+// Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
+// Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
+// Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
+//
+// end;
+// CDS_1.Edit;
+// CDS_1.fieldbyname('SSel').value := false;
+ end;
+ end;
+ end;
+ finally
+ frmClothInfoSel.Free;
+ end;
+
+end;
+
+procedure TfrmTradeMarketInPut.edtGYBtnUpClick(Sender: TObject);
+var
+ fsj: string;
+ FWZ: Integer;
+ i: integer;
+begin
+// fsj := Trim(TBtnEditC(Sender).Hint);
+// FWZ := Pos('/', fsj);
+// i := 0;
+// try
+// frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
+// with frmZDYHelpSel do
+// begin
+// flag := Copy(fsj, 1, FWZ - 1);
+// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+// if ShowModal = 1 then
+// begin
+// TBtnEditC(Sender).text := '';
+// with ClientDataSet1 do
+// begin
+// First;
+// while not Eof do
+// begin
+// if FieldByName('SSel').AsBoolean = True then
+// begin
+// i := i + 1;
+// if TBtnEditC(Sender).text = '' then
+// TBtnEditC(Sender).text := FieldByName('ZDYName').AsString
+// else
+// TBtnEditC(Sender).text := TBtnEditC(Sender).text + ',' + FieldByName('ZDYName').AsString; //inttostr(i)+'.'+
+// end;
+// Next;
+// end;
+// end;
+// end;
+// end;
+// finally
+// frmZDYHelpSel.Free;
+// end;
+end;
+
+procedure TfrmTradeMarketInPut.TechnicsBtnDnClick(Sender: TObject);
+begin
+ TBtnEditC(Sender).Text := '';
+ TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmTradeMarketInPut.TechnicsBtnUpClick(Sender: TObject);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+
+end;
+
+procedure TfrmTradeMarketInPut.CustNameBtnUpClick(Sender: TObject);
+begin
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := 'ͻ';
+ if ShowModal = 1 then
+ begin
+ self.CustName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+ self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+ end;
+ end;
+
+ finally
+ frmCompanySel.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.CustomerNoNameBtnDnClick(Sender: TObject);
+begin
+ TBtnEditC(Sender).Text := '';
+ TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject);
+begin
+ if TcxDBImage(Sender).Picture.Height = 0 then
+ exit;
+ LookImage(ADO_I1.fieldbyname(TcxDBImage(Sender).Hint).asstring);
+end;
+
+procedure TfrmTradeMarketInPut.LookImage(FileName: string);
+var
+ sFieldName: string;
+begin
+
+ sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ鿴';
+
+ if not DirectoryExists(pchar(sFieldName)) then
+ CreateDirectory(pchar(sFieldName), nil);
+
+ sFieldName := sFieldName + '\' + trim(FileName);
+
+ try
+ IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1');
+ IdFTP1.Username := 'three';
+ IdFTP1.Password := '641010';
+ IdFTP1.Connect();
+ except
+ ;
+ end;
+
+ if IdFTP1.Connected then
+ begin
+ try
+ IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false);
+ except
+ Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING);
+ IdFTP1.Quit;
+ Exit;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ļ', 'ʾ', MB_ICONWARNING);
+ IdFTP1.Quit;
+ Exit;
+ end;
+ if IdFTP1.Connected then
+ IdFTP1.Quit;
+ ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
+end;
+
+procedure TfrmTradeMarketInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+var
+ mvalues: string;
+begin
+ mvalues := tv1.Columns[tv1.Controller.FocusedColumn.index].DataBinding.FieldName;
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ flag := 'OrderUnit';
+ flagname := 'λ';
+ if ShowModal = 1 then
+ begin
+ Self.CDS_1.Edit;
+ Self.CDS_1.FieldByName(mvalues).Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.v1OrderUnitPropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue, FFieldName, YValue: string;
+ FDDQty, FCPCDXS, FQty, FDKCQty: Double;
+begin
+ mvalue := TcxComboBox(Sender).EditingText; //仯λ
+ FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+ with CDS_1 do
+ begin
+
+ Edit;
+ FieldByName(FFieldName).Value := mvalue;
+ Post;
+ YValue := FieldByName('DDQtyUnit').AsString; //ԭλ=λ
+ FDDQty := FieldByName('DDQty').AsFloat; //
+ FCPCDXS := FieldByName('CPCDXS').AsFloat;
+ FDKCQty := FieldByName('DKCQty').AsFloat;
+ FQty := FieldByName('PRTOrderQty').AsFloat;
+ end;
+ if mvalue = 'Kg' then
+ begin
+ if YValue = 'Y' then
+ begin
+ FQty := FDDQty * 0.9144 / FCPCDXS;
+ end;
+ if YValue = 'M' then
+ begin
+ FQty := FDDQty / FCPCDXS;
+ end;
+ if YValue = 'Kg' then
+ begin
+ FQty := FDDQty;
+ end;
+ end;
+
+ if mvalue = 'M' then
+ begin
+ if YValue = 'Y' then
+ begin
+ FQty := FDDQty * 0.9144;
+ end;
+ if YValue = 'Kg' then
+ begin
+ FQty := FDDQty * FCPCDXS;
+ end;
+ if YValue = 'M' then
+ begin
+ FQty := FDDQty;
+ end;
+ end;
+ if mvalue = 'Y' then
+ begin
+ if YValue = 'M' then
+ begin
+ FQty := FDDQty / 0.9144;
+ end;
+ if YValue = 'Kg' then
+ begin
+ FQty := FDDQty * FCPCDXS / 0.9144;
+ end;
+ if YValue = 'Y' then
+ begin
+ FQty := FDDQty;
+ end;
+ end;
+
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('PRTOrderQty').Value := FQty - FDKCQty;
+ Post;
+ end;
+
+ Tv1.Controller.EditingController.ShowEdit();
+end;
+
+procedure TfrmTradeMarketInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ flag := 'PriceUnit';
+ flagname := '۸λ';
+ if Trim(DParameters1) <> 'Ȩ' then
+ begin
+ TBAdd.Visible := False;
+ TBEdit.Visible := False;
+ TBDel.Visible := False;
+ end;
+
+ if ShowModal = 1 then
+ begin
+ Self.CDS_1.Edit;
+ Self.CDS_1.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.YCLFactoryBtnUpClick(Sender: TObject);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.ScrollBox1Click(Sender: TObject);
+begin
+ TMMDate.SetFocus;
+end;
+
+procedure TfrmTradeMarketInPut.OurCoNameBtnDnClick(Sender: TObject);
+begin
+ TBtnEditC(Sender).Text := '';
+ TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmTradeMarketInPut.OurCoNameBtnUpClick(Sender: TObject);
+begin
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := '˾';
+ if ShowModal = 1 then
+ begin
+ self.OurCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+ self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+ end;
+ end;
+
+ finally
+ frmCompanySel.Free;
+ end;
+
+end;
+
+procedure TfrmTradeMarketInPut.PackNoteDblClick(Sender: TObject);
+var
+ fsj: string;
+ FWZ: Integer;
+ i: integer;
+begin
+ fsj := Trim(TMemo(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ i := 0;
+ try
+ frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
+ with frmZDYHelpSel do
+ begin
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TMemo(Sender).Lines.Clear;
+ with ClientDataSet1 do
+ begin
+ First;
+ while not Eof do
+ begin
+ if FieldByName('SSel').AsBoolean = True then
+ begin
+ i := i + 1;
+ TMemo(Sender).Lines.Add(FieldByName('ZDYName').AsString) //inttostr(i)+'.'+
+ end;
+ Next;
+ end;
+ end;
+ end;
+ end;
+ finally
+ frmZDYHelpSel.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.QtyMXKeyPress(Sender: TObject; var Key: Char);
+var
+ MaxNo: string;
+begin
+ if Key = #13 then
+ begin
+ if Label38.Caption = '' then
+ begin
+ Application.MessageBox('ѡ', 'ʾ', 0);
+ Exit;
+ end;
+ if StrTofloatDef(QtyMX.Text, 0) = 0 then
+ Exit;
+ if GetLSNo(ADOTemp, MaxNo, 'MX', 'Trade_Market_Sub_Qty', 4, 1) = False then
+ begin
+ Application.MessageBox('ȡʧ!', 'ʾ', 0);
+ Exit;
+ end;
+ try
+ ADOCmd.Connection.BeginTrans;
+ with ADOCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('insert into Trade_Market_Sub_Qty (TMSQID,TMSId,Meter)');
+ sql.Add('values(' + quotedstr(Trim(MaxNo)));
+ sql.Add(',' + quotedstr(Trim(MTMSId)));
+ sql.Add(',' + QtyMX.Text);
+ sql.Add(')');
+ ExecSQL;
+ end;
+ ADOCmd.Connection.CommitTrans;
+
+ with CDS_MX do
+ begin
+ Append;
+ FieldByName('TMSQID').Value := MaxNo;
+ FieldByName('TMSId').Value := MTMSId;
+ FieldByName('Meter').Value := QtyMX.Text;
+ post;
+ end;
+ except
+ ADOCmd.Connection.RollbackTrans;
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+ QtyMX.Text := '';
+ TvMX.Controller.EditingController.ShowEdit();
+ end;
+ with cds_1 do
+ begin
+ edit;
+ if CDS_MX.IsEmpty then
+ begin
+ Fieldbyname('TMSPiece').Value := 0;
+ Fieldbyname('TMSQty').Value := 0;
+ end
+ else
+ begin
+ Fieldbyname('TMSPiece').Value := TvMX.DataController.Summary.FooterSummaryValues[1];
+ Fieldbyname('TMSQty').Value := TvMX.DataController.Summary.FooterSummaryValues[0];
+ end;
+
+ post;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.SYRNameBtnUpClick(Sender: TObject);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ fnote := True;
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ inherited;
+ try
+ frmClothInfoSel := TfrmClothInfoSel.Create(Application);
+ with frmClothInfoSel do
+ begin
+// xzflag := 0;
+// kcflag := 1;
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_1 do
+ begin
+ edit;
+ Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
+ Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
+ Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
+ Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
+ Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
+ Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
+
+ Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
+ Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
+ Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
+ post;
+ end;
+
+ end;
+ end;
+ finally
+ frmClothInfoSel.Free;
+ end;
+
+end;
+
+procedure TfrmTradeMarketInPut.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+
+ try
+ frmPictureUpload := TfrmPictureUpload.create(self);
+ with frmPictureUpload do
+ begin
+ fFlileFlag := self.fFlileFlag;
+ FDataId := Trim(self.CDS_1.fieldbyname('AttName').AsString);
+ FPictureName := Trim(self.CDS_1.fieldbyname('AttName').AsString);
+ FWidth := 450;
+ FHeight := 600;
+ FTFType := 'HX';
+ if showmodal = 1 then
+ begin
+ with self.CDS_1 do
+ begin
+ Edit;
+ Fieldbyname('AttName').Value := frmPictureUpload.FPictureName;
+ Post;
+ end;
+ end;
+ end;
+ finally
+ frmPictureUpload.free;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+ inherited;
+ Label38.Caption := 'ţ' + Trim(cds_1.fieldbyname('SerialNo').AsString);
+ MTMSId := Trim(cds_1.fieldbyname('TMSId').AsString);
+ InitMXGrid(MTMSId);
+end;
+
+procedure TfrmTradeMarketInPut.TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+ inherited;
+ if ToolBar2.Enabled = False then
+ Exit;
+ with ADOCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('delete Trade_Market_Sub_Qty where TMSQID=' + quotedstr(Trim(CDS_MX.FieldByName('TMSQID').AsString)));
+ ExecSQL;
+ end;
+
+// with ADOCmd do
+// begin
+// close;
+// sql.Clear;
+// sql.Add(' exec P_KCSD_AllNew ');
+// sql.Add(' @Operation=''ϸɾ'' ');
+// sql.Add(' ,@TMMNo=' + quotedstr(trim(TMMNo.Text)));
+// ExecSQL;
+// end;
+ CDS_MX.Delete;
+ with cds_1 do
+ begin
+ edit;
+ if CDS_MX.IsEmpty then
+ begin
+ Fieldbyname('TMSPiece').Value := 0;
+ Fieldbyname('TMSQty').Value := 0;
+ end
+ else
+ begin
+ Fieldbyname('TMSPiece').Value := TvMX.DataController.Summary.FooterSummaryValues[1];
+ Fieldbyname('TMSQty').Value := TvMX.DataController.Summary.FooterSummaryValues[0];
+ end;
+
+ post;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.InitMXGrid(MTMSId: string);
+begin
+ with ADOTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.* from Trade_Market_Sub_Qty A ');
+ sql.Add('where TMSId=''' + Trim(MTMSId) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOTemp, CDS_MX);
+ SInitCDSData(ADOTemp, CDS_MX);
+end;
+
+procedure TfrmTradeMarketInPut.v1Column5PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+begin
+
+ mvalue := TcxTextEdit(Sender).EditingText;
+ FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName(FFieldName).Value := mvalue;
+ FieldByName('MGTMMID').Value := '';
+ Post;
+ end;
+ Tv1.Controller.EditingController.ShowEdit();
+end;
+
+procedure TfrmTradeMarketInPut.HYTTBtnUpClick(Sender: TObject);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketInPut.KYTTBtnUpClick(Sender: TObject);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if Trim(flag) = 'OrdDefStr2' then
+ begin
+ V1Name.Caption := '';
+ V1Note.Caption := 'Ӣ';
+ fnote := True;
+ end;
+ if ShowModal = 1 then
+ begin
+ TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
+end.
+
diff --git a/T05贸易门市管理/U_TradeMarketList.dfm b/T05贸易门市管理/U_TradeMarketList.dfm
new file mode 100644
index 0000000..cbab765
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketList.dfm
@@ -0,0 +1,722 @@
+inherited frmTradeMarketList: TfrmTradeMarketList
+ Left = 165
+ Top = 13
+ Caption = #29983#20135#35745#21010#21333#31649#29702
+ ClientHeight = 760
+ ClientWidth = 1540
+ Color = clBtnFace
+ Font.Height = -16
+ FormStyle = fsMDIChild
+ Position = poScreenCenter
+ Visible = True
+ ExplicitWidth = 1556
+ ExplicitHeight = 799
+ PixelsPerInch = 96
+ TextHeight = 21
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 83
+ Caption = 'ToolBar1'
+ Color = clBtnFace
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 4
+ object TBRafresh: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #21047#26032
+ ImageIndex = 1
+ OnClick = TBRafreshClick
+ end
+ object TBAdd: TToolButton
+ Left = 63
+ Top = 0
+ AutoSize = True
+ Caption = #26032#22686
+ ImageIndex = 9
+ OnClick = TBAddClick
+ end
+ object btnCopy: TToolButton
+ Left = 126
+ Top = 0
+ AutoSize = True
+ Caption = #22797#21046
+ ImageIndex = 13
+ OnClick = btnCopyClick
+ end
+ object TBEdit: TToolButton
+ Left = 189
+ Top = 0
+ AutoSize = True
+ Caption = #20462#25913
+ ImageIndex = 3
+ OnClick = TBEditClick
+ end
+ object TBDel: TToolButton
+ Left = 252
+ Top = 0
+ AutoSize = True
+ Caption = #21024#38500
+ ImageIndex = 5
+ OnClick = TBDelClick
+ end
+ object TBPrint: TToolButton
+ Left = 315
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360
+ ImageIndex = 21
+ OnClick = TBPrintClick
+ end
+ object TBCK: TToolButton
+ Left = 378
+ Top = 0
+ AutoSize = True
+ Caption = #26597#30475
+ ImageIndex = 8
+ OnClick = TBCKClick
+ end
+ object ToolButton4: TToolButton
+ Left = 441
+ Top = 0
+ AutoSize = True
+ Caption = #38468#20214
+ ImageIndex = 22
+ OnClick = ToolButton4Click
+ end
+ object TBTJ: TToolButton
+ Left = 504
+ Top = 0
+ AutoSize = True
+ Caption = #25552#20132
+ ImageIndex = 12
+ OnClick = TBTJClick
+ end
+ object TBTJCX: TToolButton
+ Left = 567
+ Top = 0
+ AutoSize = True
+ Caption = #25552#20132#25764#38144
+ ImageIndex = 11
+ OnClick = TBTJCXClick
+ end
+ object Tchk: TToolButton
+ Left = 654
+ Top = 0
+ AutoSize = True
+ Caption = #23457#26680
+ ImageIndex = 12
+ OnClick = TchkClick
+ end
+ object Tnochk: TToolButton
+ Left = 717
+ Top = 0
+ AutoSize = True
+ Caption = #25764#38144#23457#26680
+ ImageIndex = 11
+ OnClick = TnochkClick
+ end
+ object TWC: TToolButton
+ Left = 804
+ Top = 0
+ AutoSize = True
+ Caption = #23436#25104
+ ImageIndex = 12
+ OnClick = TWCClick
+ end
+ object TNowc: TToolButton
+ Left = 867
+ Top = 0
+ AutoSize = True
+ Caption = #25764#38144#23436#25104
+ ImageIndex = 11
+ OnClick = TNowcClick
+ end
+ object ToolButton2: TToolButton
+ Left = 954
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton2Click
+ end
+ object TBClose: TToolButton
+ Left = 1041
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [1]
+ Left = 0
+ Top = 30
+ Width = 1540
+ Height = 91
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clWhite
+ ParentBackground = False
+ TabOrder = 6
+ ExplicitTop = 38
+ object Label3: TLabel
+ Left = 24
+ Top = 51
+ Width = 64
+ Height = 21
+ Caption = #35745#21010#21333#21495
+ end
+ object Label1: TLabel
+ Left = 408
+ Top = 51
+ Width = 32
+ Height = 21
+ Caption = #23458#25143
+ end
+ object Label2: TLabel
+ Left = 216
+ Top = 51
+ Width = 64
+ Height = 21
+ Caption = #20135#21697#21517#31216
+ end
+ object Label4: TLabel
+ Left = 568
+ Top = 51
+ Width = 48
+ Height = 21
+ Caption = #21512#21516#21495
+ end
+ object TMMNo: TEdit
+ Tag = 2
+ Left = 92
+ Top = 47
+ Width = 120
+ Height = 29
+ TabOrder = 0
+ OnKeyPress = TMMNoKeyPress
+ end
+ object CustName: TEdit
+ Tag = 2
+ Left = 444
+ Top = 47
+ Width = 120
+ Height = 29
+ TabOrder = 1
+ OnKeyPress = TMMNoKeyPress
+ end
+ object C_Name: TEdit
+ Tag = 2
+ Left = 284
+ Top = 47
+ Width = 120
+ Height = 29
+ TabOrder = 2
+ OnKeyPress = TMMNoKeyPress
+ end
+ object ConNo: TEdit
+ Tag = 2
+ Left = 620
+ Top = 47
+ Width = 120
+ Height = 29
+ TabOrder = 3
+ OnKeyPress = TMMNoKeyPress
+ end
+ inline frmFrameDateSel1: TfrmFrameDateSel
+ Left = 2
+ Top = 2
+ Width = 1536
+ Height = 37
+ Align = alTop
+ ParentBackground = False
+ TabOrder = 4
+ ExplicitLeft = -380
+ ExplicitTop = 2
+ ExplicitWidth = 1920
+ ExplicitHeight = 37
+ inherited lbl2: TLabel
+ Width = 16
+ Height = 21
+ ExplicitWidth = 16
+ ExplicitHeight = 21
+ end
+ end
+ end
+ object cxGrid1: TcxGrid [2]
+ Left = 0
+ Top = 152
+ Width = 1540
+ Height = 404
+ Align = alClient
+ PopupMenu = PM_1
+ TabOrder = 3
+ ExplicitTop = 120
+ ExplicitHeight = 436
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnCellDblClick = Tv1CellDblClick
+ OnFocusedRecordChanged = Tv1FocusedRecordChanged
+ DataController.DataSource = DataSource1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = Tv1Column11
+ end
+ item
+ Kind = skSum
+ Column = Tv1Column10
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.CellHints = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ object v1Column16: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ HeaderAlignmentHorz = taCenter
+ Width = 50
+ end
+ object v1OrdDate: TcxGridDBColumn
+ Caption = #21046#21333#26085#26399
+ DataBinding.FieldName = 'TMMDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #32463#33829#21333#20301
+ DataBinding.FieldName = 'OurCoName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v1DeliveryDate: TcxGridDBColumn
+ Caption = #20132#36135#26085#26399
+ DataBinding.FieldName = 'DlyDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ OnCustomDrawCell = v1DeliveryDateCustomDrawCell
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column11: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'HZPiQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column10: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'OrdQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v1Column11: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'OrdUnit'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #21046#21333#20154
+ DataBinding.FieldName = 'FILLER'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'OrdNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column3: TcxGridDBColumn
+ Caption = #21457#36135#22320#22336
+ DataBinding.FieldName = 'ShippingAddress'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 134
+ end
+ object Tv1Column5: TcxGridDBColumn
+ Caption = #32852#31995#26041#24335
+ DataBinding.FieldName = 'CONTACT'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object cxSplitter1: TcxSplitter [3]
+ Left = 0
+ Top = 556
+ Width = 1540
+ Height = 8
+ HotZoneClassName = 'TcxMediaPlayer9Style'
+ AlignSplitter = salBottom
+ end
+ object cxTabControl1: TcxTabControl [4]
+ Left = 0
+ Top = 121
+ Width = 1540
+ Height = 31
+ Align = alTop
+ TabOrder = 2
+ Properties.CustomButtons.Buttons = <>
+ Properties.Style = 9
+ Properties.TabIndex = 0
+ Properties.Tabs.Strings = (
+ ' '#24453#25552#20132' '
+ ' '#24453#23457#26680' '
+ ' '#24050#23457#26680' '
+ ' '#24050#23436#25104' '
+ ' '#20840#37096' ')
+ OnChange = cxTabControl1Change
+ ExplicitTop = 89
+ ClientRectBottom = 31
+ ClientRectRight = 1540
+ ClientRectTop = 28
+ end
+ object Panel2: TPanel [5]
+ Left = 0
+ Top = 564
+ Width = 1540
+ Height = 196
+ Align = alBottom
+ BevelOuter = bvNone
+ Caption = 'Panel2'
+ TabOrder = 5
+ object cxGrid2: TcxGrid
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 196
+ Align = alClient
+ PopupMenu = PopupMenu2
+ TabOrder = 0
+ object TV2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource2
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = '0'
+ Position = spFooter
+ end
+ item
+ Format = '0'
+ Position = spFooter
+ Column = v1PRTOrderQty
+ end
+ item
+ Format = '0'
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = v1PRTOrderQty
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Column = VC_PRTPs
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.FocusCellOnTab = True
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsData.Deleting = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object cxGridDBColumn1: TcxGridDBColumn
+ Tag = 99
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Sorting = False
+ Width = 66
+ end
+ object TV2Column1: TcxGridDBColumn
+ Caption = #20135#21697#32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object TV2Column2: TcxGridDBColumn
+ Caption = #20135#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object v1PRTColor: TcxGridDBColumn
+ Caption = #20013#25991#39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 79
+ end
+ object VC_PRTPs: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'TMSPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v1PRTOrderQty: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'TMSQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v1OrderUnit: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'OrdUnit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxComboBoxProperties'
+ Properties.Items.Strings = (
+ 'M'
+ 'Y'
+ 'Kg')
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn7: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'OrdSNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = TV2
+ end
+ end
+ end
+ inherited loadProcess: TPanel
+ Left = 616
+ Top = 346
+ ExplicitLeft = 616
+ ExplicitTop = 346
+ end
+ inherited cxProgressBar2: TcxProgressBar
+ Left = 484
+ Top = 280
+ ExplicitLeft = 484
+ ExplicitTop = 280
+ ExplicitHeight = 29
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 255
+ Top = 314
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 157
+ Top = 256
+ end
+ object cxgrdpmn1: TcxGridPopupMenu
+ Grid = cxGrid1
+ PopupMenus = <>
+ Left = 660
+ Top = 428
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 568
+ Top = 240
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 420
+ Top = 216
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 320
+ Top = 224
+ end
+ object DataSource1: TDataSource
+ DataSet = Order_Main
+ Left = 812
+ Top = 440
+ end
+ object Order_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 724
+ Top = 432
+ end
+ object ADOQuerySub: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 312
+ Top = 600
+ end
+ object DataSource2: TDataSource
+ DataSet = ORDER_SUB
+ Left = 408
+ Top = 604
+ end
+ object ADOQueryImage: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ EnableBCD = False
+ Parameters = <>
+ Left = 316
+ Top = 283
+ end
+ object DSImage: TDataSource
+ DataSet = ADOQueryImage
+ Left = 416
+ Top = 288
+ end
+ object IdFTP1: TIdFTP
+ ConnectTimeout = 0
+ NATKeepAlive.UseKeepAlive = False
+ NATKeepAlive.IdleTimeMS = 0
+ NATKeepAlive.IntervalMS = 0
+ ProxySettings.ProxyType = fpcmNone
+ ProxySettings.Port = 0
+ ReadTimeout = 0
+ Left = 92
+ Top = 258
+ end
+ object ORDER_SUB: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 212
+ Top = 608
+ end
+ object PopupMenu2: TPopupMenu
+ Left = 532
+ Top = 636
+ object N3: TMenuItem
+ Caption = #20840#36873
+ OnClick = N3Click
+ end
+ object N4: TMenuItem
+ Caption = #20840#24323
+ OnClick = N4Click
+ end
+ object N2: TMenuItem
+ Caption = #22797#21046
+ OnClick = N2Click
+ end
+ end
+ object cxgrdpmn2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 660
+ Top = 636
+ end
+ object CDS_WXTS: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 412
+ Top = 424
+ end
+ object PM_1: TPopupMenu
+ Left = 988
+ Top = 356
+ object N1: TMenuItem
+ Caption = #22797#21046
+ OnClick = N1Click
+ end
+ end
+ object GPM_3: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 860
+ Top = 228
+ end
+end
diff --git a/T05贸易门市管理/U_TradeMarketList.pas b/T05贸易门市管理/U_TradeMarketList.pas
new file mode 100644
index 0000000..f49bc8a
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketList.pas
@@ -0,0 +1,1036 @@
+unit U_TradeMarketList;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+ cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+ cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+ StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+ cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
+ RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
+ cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
+ IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
+ cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
+ dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
+ IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxScrollbarAnnotations,
+ cxProgressBar, FrameDateSel;
+
+type
+ TfrmTradeMarketList = class(TfrmBaseList)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBAdd: TToolButton;
+ TBEdit: TToolButton;
+ TBDel: TToolButton;
+ TBPrint: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ Tv1: TcxGridDBTableView;
+ cxGrid1Level1: TcxGridLevel;
+ cxGrid1: TcxGrid;
+ cxgrdpmn1: TcxGridPopupMenu;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DataSource1: TDataSource;
+ Label3: TLabel;
+ TMMNo: TEdit;
+ v1OrdDate: TcxGridDBColumn;
+ v1DeliveryDate: TcxGridDBColumn;
+ Order_Main: TClientDataSet;
+ TBCK: TToolButton;
+ btnCopy: TToolButton;
+ cxSplitter1: TcxSplitter;
+ ADOQuerySub: TADOQuery;
+ DataSource2: TDataSource;
+ ToolButton4: TToolButton;
+ cxTabControl1: TcxTabControl;
+ Tchk: TToolButton;
+ Tnochk: TToolButton;
+ TWC: TToolButton;
+ TNowc: TToolButton;
+ Panel2: TPanel;
+ ADOQueryImage: TADOQuery;
+ DSImage: TDataSource;
+ IdFTP1: TIdFTP;
+ v1Column11: TcxGridDBColumn;
+ TBTJ: TToolButton;
+ TBTJCX: TToolButton;
+ v1Column16: TcxGridDBColumn;
+ ORDER_SUB: TClientDataSet;
+ PopupMenu2: TPopupMenu;
+ N3: TMenuItem;
+ N4: TMenuItem;
+ Label1: TLabel;
+ CustName: TEdit;
+ Tv1Column6: TcxGridDBColumn;
+ cxgrdpmn2: TcxGridPopupMenu;
+ cxGrid2: TcxGrid;
+ TV2: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ v1PRTColor: TcxGridDBColumn;
+ VC_PRTPs: TcxGridDBColumn;
+ v1PRTOrderQty: TcxGridDBColumn;
+ v1OrderUnit: TcxGridDBColumn;
+ cxGridDBColumn7: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ Tv1Column2: TcxGridDBColumn;
+ Tv1Column10: TcxGridDBColumn;
+ Tv1Column11: TcxGridDBColumn;
+ Tv1Column1: TcxGridDBColumn;
+ Label2: TLabel;
+ C_Name: TEdit;
+ CDS_WXTS: TClientDataSet;
+ Label4: TLabel;
+ ConNo: TEdit;
+ ToolButton2: TToolButton;
+ PM_1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ GPM_3: TcxGridPopupMenu;
+ Tv1Column4: TcxGridDBColumn;
+ TV2Column1: TcxGridDBColumn;
+ TV2Column2: TcxGridDBColumn;
+ Tv1Column3: TcxGridDBColumn;
+ Tv1Column5: TcxGridDBColumn;
+ frmFrameDateSel1: TfrmFrameDateSel;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure FormCreate(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure TBEditClick(Sender: TObject);
+ procedure TBDelClick(Sender: TObject);
+ procedure TBPrintClick(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure TBAddClick(Sender: TObject);
+ procedure OrderNoMChange(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBTPClick(Sender: TObject);
+ procedure CheckBox1Click(Sender: TObject);
+ procedure CheckBox2Click(Sender: TObject);
+ procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+ procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+ procedure TBCKClick(Sender: TObject);
+ procedure btnCopyClick(Sender: TObject);
+ procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
+ procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+ procedure ToolButton4Click(Sender: TObject);
+ procedure cxTabControl1Change(Sender: TObject);
+ procedure TchkClick(Sender: TObject);
+ procedure TnochkClick(Sender: TObject);
+ procedure TWCClick(Sender: TObject);
+ procedure TNowcClick(Sender: TObject);
+ procedure TBTJClick(Sender: TObject);
+ procedure TBTJCXClick(Sender: TObject);
+ procedure N3Click(Sender: TObject);
+ procedure N4Click(Sender: TObject);
+ procedure ComboBox1Change(Sender: TObject);
+ procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+ procedure ToolButton10Click(Sender: TObject);
+ procedure JGTypeChange(Sender: TObject);
+ procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure N1Click(Sender: TObject);
+ procedure N2Click(Sender: TObject);
+ private
+ DQdate: TDateTime;
+ procedure InitGrid();
+ procedure InitForm();
+ function DelData(): Boolean;
+ procedure InitSub();
+ procedure SetStatus();
+ procedure InitImage(fwbid: string);
+
+ procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
+ { Private declarations }
+ public
+ FFInt, FCloth: Integer;
+ canshu1, canshu2: string;
+ fFlileFlag: string;
+ FNOTE: string;
+ FOrdType: string;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
+ U_TradeMarketInPut;
+
+{$R *.dfm}
+
+procedure TfrmTradeMarketList.InitImage(fwbid: string);
+begin
+ ADOQueryImage.close;
+ if fwbid = '' then
+ exit;
+ with ADOQueryImage do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from TP_File A');
+ sql.Add('where WBID=' + quotedstr(trim(fwbid)));
+ open;
+ end;
+end;
+
+procedure TfrmTradeMarketList.SetStatus();
+begin
+ btnCopy.Enabled := false;
+ tbadd.Enabled := false;
+ TBEdit.Enabled := False;
+ TBDel.Enabled := False;
+ TBTJ.Enabled := False;
+ TBTJCX.Enabled := False;
+ tchk.Enabled := false;
+ tnochk.Enabled := false;
+ TWC.Enabled := False;
+ TNowc.Enabled := False;
+ TBDel.Enabled := False;
+
+ case cxTabControl1.TabIndex of
+ 0:
+ begin
+ tbadd.Enabled := True;
+ TBEdit.Enabled := True;
+ TBDel.Enabled := True;
+ TBDel.Enabled := True;
+ TBTJ.Enabled := True;
+ btnCopy.Enabled := True;
+ end;
+ 1:
+ begin
+ TBTJCX.Enabled := True;
+ btnCopy.Enabled := True;
+ TBDel.Enabled := True;
+ tchk.Enabled := True;
+
+ end;
+ 2:
+ begin
+ TWC.Enabled := True;
+ btnCopy.Enabled := True;
+ tnochk.Enabled := True;
+ end;
+ 3:
+ begin
+ TNowc.Enabled := True;
+ btnCopy.Enabled := True;
+ end;
+ end;
+
+end;
+
+procedure TfrmTradeMarketList.InitSub();
+begin
+ ADOQuerySub.Close;
+ if Order_Main.IsEmpty then
+ exit;
+ ADOQuerySub.DisableControls;
+ with ADOQuerySub do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * ');
+ sql.Add(' from Trade_Market_Sub A');
+ sql.Add('where TMMId =' + quotedstr((Order_Main.fieldbyname('TMMId').AsString)));
+ open;
+ end;
+ SCreateCDS(ADOQuerySub, ORDER_SUB);
+ SInitCDSData(ADOQuerySub, ORDER_SUB);
+
+ ADOQuerySub.EnableControls;
+ TV2.DataController.Filter.Clear;
+end;
+
+procedure TfrmTradeMarketList.JGTypeChange(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeMarketList.FormDestroy(Sender: TObject);
+begin
+ inherited;
+// frmProductOrderList:=nil;
+end;
+
+procedure TfrmTradeMarketList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmTradeMarketList.FormCreate(Sender: TObject);
+begin
+ inherited;
+ cxgrid1.Align := alClient;
+ DQdate := SGetServerDate(ADOQueryTemp);
+
+end;
+
+procedure TfrmTradeMarketList.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+
+end;
+
+procedure TfrmTradeMarketList.InitGrid();
+var
+ STRwhere, Pwhere: string;
+begin
+ STRwhere := '';
+ Pwhere := SGetFilters(Panel1, 1, 2);
+
+ begin
+ if trim(Pwhere) <> '' then
+ STRwhere := STRwhere + ' and ' + trim(Pwhere);
+ end;
+
+ case cxTabControl1.TabIndex of
+ 0:
+ begin
+ STRwhere := STRwhere + ' and isnull(status,''0'')=''0'' ';
+ end;
+ 1:
+ begin
+ STRwhere := STRwhere + ' and isnull(status,''0'')=''1'' ';
+ end;
+ 2:
+ begin
+ STRwhere := STRwhere + ' and isnull(status,''0'')=''9'' ';
+ end;
+ 3:
+ begin
+ STRwhere := STRwhere + ' and isnull(status,''0'')=''10'' ';
+ end;
+ end;
+
+ try
+ ADOQueryMain.DisableControls;
+
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.add(' select * ');
+ sql.Add(' ,HZPiQty=(select sum(TMSPiece) from Trade_Market_Sub X where X.TMMId=A.TMMId)');
+ sql.Add(' ,OrdQty=(select sum(TMSQty) from Trade_Market_Sub X where X.TMMId=A.TMMId)');
+ sql.Add(' ,OrdUnit=(select top 1 TMSUnit from Trade_Market_Sub X where X.TMMId=A.TMMId)');
+ sql.add(' from Trade_Market_Main A ');
+// Sql.add(' inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
+
+ sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
+ sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
+
+ if canshu1 = '¼' then
+ begin
+ sql.add(' and A.Filler= ' + QuotedStr(Trim(DName)));
+ end;
+ sql.add(' ' + STRwhere);
+ sql.Add(' and ordtype=''' + FOrdType + ''' ');
+
+ sql.add(' order by filltime desc');
+// ShowMessage(SQL.Text);
+ Open;
+ end;
+
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ TV1.DataController.Filter.Clear;
+
+ end;
+end;
+
+procedure TfrmTradeMarketList.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
+begin
+// with ADOQueryTemp do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add('select distinct A.* from SY_User A inner join SY_Purview B on A.UserID=B.UserID where A.Valid=''Y'' ');
+// SQL.Add('and isnull(A.wxid,'''')<>''''');
+// SQL.Add(' and exists(select 1 from SY_ModuleSub X where X.ModuleID=B.ModuleID and X.ModuleSubID=B.ModuleSubID and X.FormName=''ƻ'' )');
+//// showmessage(sql.text);
+// Open;
+// end;
+// SCreateCDS(ADOQueryTemp, CDS_WXTS);
+// SInitCDSData(ADOQueryTemp, CDS_WXTS);
+//
+// if CDS_WXTS.IsEmpty then
+// begin
+// Application.MessageBox('ûδ,ύʧܣ', 'ʾϢ', 0);
+// Exit;
+// end;
+// CDS_WXTS.First;
+// while not CDS_WXTS.eof do
+// begin
+// with ADOQueryCmd do
+// begin
+// Close;
+// SQL.Clear;
+// SQL.Add('select * from WeixinMessage where 1<>1');
+// Open;
+// Append;
+// FieldByName('MessageType').Value := 'OrderToAudit';
+// FieldByName('MessageName').Value := 'ƻ';
+// FieldByName('Title').Value := 'µƻ';
+// FieldByName('URL').Value := 'subpages/plan/view?id=' + Trim(MDateId);
+// FieldByName('OpenId').Value := Trim(CDS_WXTS.FieldByName('wxid').AsString);
+// FieldByName('Status').Value := '0';
+// FieldByName('CreateDate').Value := FormatDateTime('yyyymmdd', SGetServerDateTime(ADOQueryTemp));
+// FieldByName('CreateTime').Value := FormatDateTime('HH:mm:ss', SGetServerDateTime(ADOQueryTemp));
+// FieldByName('BusinessId').Value := Trim(MDateId);
+// FieldByName('KeyWord1').Value := Trim(KeyWord1);
+// FieldByName('KeyWord2').Value := Trim(KeyWord2);
+// FieldByName('KeyWord3').Value := Trim(KeyWord3);
+// FieldByName('Remark').Value := 'ɲѯ飡';
+// Post;
+// end;
+// CDS_WXTS.Next;
+// end;
+//
+// GetHTTP('http://aotang.rightsoft.top/api/message/send/OrderToAudit');
+end;
+
+procedure TfrmTradeMarketList.InitForm();
+begin
+ ReadCxGrid('ָʾбFF1', Tv1, 'ָʾ');
+ ReadCxGrid('ָʾбFFTv21', Tv2, 'ָʾ');
+ frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
+ frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
+
+ SetStatus();
+ InitGrid();
+end;
+
+procedure TfrmTradeMarketList.TBEditClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+
+ try
+ frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
+ with frmTradeMarketInPut do
+ begin
+
+ PState := 1;
+ FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
+ FTMMNo := Trim(Self.Order_Main.fieldbyname('TMMNo').AsString);
+ canshu1 := self.canshu1;
+ frmTradeMarketInPut.fordtype := self.fordtype;
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmTradeMarketInPut.Free;
+ end;
+
+end;
+
+procedure TfrmTradeMarketList.TBDelClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ while Order_Main.Locate('SSel', true, []) do
+ begin
+ if Trim(Order_Main.fieldbyname('TMMId').AsString) <> '' then
+ begin
+ DelData()
+ end;
+ Order_Main.Delete;
+ end;
+end;
+
+function TfrmTradeMarketList.DelData(): Boolean;
+begin
+ try
+ Result := false;
+ ADOQueryCmd.Connection.BeginTrans;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Trade_Market_Main where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+ sql.Add('delete Trade_Market_Sub where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+
+ sql.Add('delete Trade_Market_Sub_Qty where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ɾ')));
+ sql.Add(',' + quotedstr(trim('ţ' + trim(Order_Main.FieldByName('TMMNo').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ ExecSQL;
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ Result := True;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ Result := False;
+ Application.MessageBox('ɾ쳣', 'ʾ', 0);
+ end;
+end;
+
+procedure TfrmTradeMarketList.TBPrintClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'TradePlanPrint';
+ FFiltration1 := Trim(Order_Main.fieldbyname('TMMId').AsString);
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeMarketList.TBAddClick(Sender: TObject);
+begin
+ try
+ frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
+ with frmTradeMarketInPut do
+ begin
+ PState := 0;
+ FTMMId := '';
+ canshu1 := self.canshu1;
+ frmTradeMarketInPut.fordtype := self.fordtype;
+ if ShowModal = 1 then
+ begin
+ InitGrid();
+ end;
+ end;
+ finally
+ frmTradeMarketInPut.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketList.OrderNoMChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active = False then
+ Exit;
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmTradeMarketList.FormShow(Sender: TObject);
+begin
+ inherited;
+ canshu1 := self.fParameters1;
+ fFlileFlag := UserDataFlag + 'HX';
+ cxTabControl1.TabIndex := 0;
+ InitForm();
+end;
+
+procedure TfrmTradeMarketList.TBTPClick(Sender: TObject);
+var
+ FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string;
+begin
+end;
+
+procedure TfrmTradeMarketList.CheckBox1Click(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeMarketList.CheckBox2Click(Sender: TObject);
+begin
+ TBRafresh.Click;
+end;
+
+procedure TfrmTradeMarketList.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+ id, id10: Integer;
+begin
+ {try
+ if Tv1.GroupedItemCount=0 then
+ begin
+ Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount;
+ Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount;
+ if Trim(VarToStr(ARecord.Values[id]))='' then Exit;
+ if Id<0 then Exit;
+ if ARecord.Values[id10]='' then exit;
+ if (ARecord.Values[id]-DQdate)>=4 then Exit;
+ if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then
+ AStyle:=DataLink_.QHuangSe
+ else
+ if ARecord.Values[id]-DQdate<0 then
+ begin
+ AStyle:=DataLink_OrderManage.FenHongS;
+ end;
+ end else
+ begin
+
+ end;
+ except
+ end; }
+end;
+
+procedure TfrmTradeMarketList.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+ { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount;
+ Id10:=TV1.GetColumnByFieldName('SubStatus').Index;
+ if Id<0 then Exit;
+ if AViewInfo.GridRecord.Values[Id10]='' then Exit;
+ if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit;
+ if ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then
+ ACanvas.Brush.Color:=clYellow
+ else
+ if (AViewInfo.GridRecord.Values[id])-(SGetServerDate(ADOQueryTemp)<0) then
+ begin
+ ACanvas.Brush.Color:=clRed;
+ end;
+ begin
+ ACanvas.Brush.Color:=clRed;
+ end else
+ if AViewInfo.GridRecord.Values[Id]='Purple' then
+ begin
+ ACanvas.Brush.Color:=clPurple;
+ end else
+ if AViewInfo.GridRecord.Values[Id]='Olive' then
+ begin
+ ACanvas.Brush.Color:=clOlive;
+ end else
+ if AViewInfo.GridRecord.Values[Id]='Teal' then
+ begin
+ ACanvas.Brush.Color:=clTeal;
+ end else
+ if AViewInfo.GridRecord.Values[Id]='Background' then
+ begin
+ ACanvas.Brush.Color:=clBackground;
+ end; }
+end;
+
+procedure TfrmTradeMarketList.TBCKClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+
+ try
+ frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
+ with frmTradeMarketInPut do
+ begin
+ PState := 1;
+ FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
+ ToolBar2.Visible := False;
+ TBSave.Visible := False;
+ ScrollBox1.Enabled := True;
+ N2.Visible := False;
+ frmTradeMarketInPut.fordtype := self.fordtype;
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmTradeMarketInPut.Free;
+ end;
+
+end;
+
+procedure TfrmTradeMarketList.btnCopyClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+
+ try
+ frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
+ with frmTradeMarketInPut do
+ begin
+ PState := 1;
+ CopyInt := 99;
+ FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
+ canshu1 := self.canshu1;
+ frmTradeMarketInPut.fordtype := self.fordtype;
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmTradeMarketInPut.Free;
+ end;
+
+end;
+
+procedure TfrmTradeMarketList.TMMNoKeyPress(Sender: TObject; var Key: Char);
+begin
+
+ if Key = #13 then
+ begin
+ initgrid();
+ end;
+end;
+
+procedure TfrmTradeMarketList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+ Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmTradeMarketList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+ InitSub();
+
+end;
+
+procedure TfrmTradeMarketList.ToolButton4Click(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+ try
+ frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
+ with frmAttachmentUpload do
+ begin
+ if Trim(canshu1) <> 'ѯ' then
+ FEditAuthority := True;
+ fkeyNO := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
+ fType := 'ָʾ';
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmAttachmentUpload.Free;
+ end;
+end;
+
+procedure TfrmTradeMarketList.cxTabControl1Change(Sender: TObject);
+begin
+ SetStatus();
+ InitGrid();
+end;
+
+procedure TfrmTradeMarketList.TchkClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ if cxTabControl1.TabIndex <> 1 then
+ begin
+ Application.MessageBox('ֻڴ״̬½˲!', 'ʾ', 0);
+ Exit;
+ end;
+ if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Market_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() ');
+ sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ƻ')));
+ sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ execsql;
+ end;
+
+ except
+ application.MessageBox('ƻʧܣ', 'ʾϢ', 0);
+ end;
+ TBRafresh.Click;
+end;
+
+procedure TfrmTradeMarketList.TnochkClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ if cxTabControl1.TabIndex <> 2 then
+ begin
+ Application.MessageBox('ֻ״̬½˲!', 'ʾ', 0);
+ Exit;
+ end;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Market_Main SET status=''1'',chker=null,Chktime=null ');
+ sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ƻ')));
+ sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ execsql;
+ end;
+ TBRafresh.Click;
+ except
+ application.MessageBox('ƻʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeMarketList.TWCClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+ if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Market_Main SET status=''10'' ');
+ sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
+
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ƻ')));
+ sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ execsql;
+ end;
+
+ application.MessageBox('ƻɳɹ', 'ʾϢ');
+ TBRafresh.Click;
+ except
+ application.MessageBox('ƻʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeMarketList.TNowcClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+ if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Market_Main SET status=''9'' ');
+ sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ƻ')));
+ sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ execsql;
+ end;
+ application.MessageBox('ƻɳɹ', 'ʾϢ');
+ TBRafresh.Click;
+ except
+ application.MessageBox('ƻʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeMarketList.TBTJClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+
+ if canshu1 <> 'Ȩ' then
+ begin
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+ end;
+
+ if cxTabControl1.TabIndex <> 0 then
+ begin
+ Application.MessageBox('ֻڴύ״̬½ύ!', 'ʾ', 0);
+ Exit;
+ end;
+ if Application.MessageBox('ȷҪύ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Market_Main SET status=''1'' ');
+ sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ƻύ')));
+ sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ execsql;
+ end;
+ SendMessageQR(trim(Order_Main.FieldByName('TMMId').AsString), trim(Order_Main.FieldByName('Filler').AsString), trim(Order_Main.FieldByName('TMMNO').AsString), Trim(FormatDateTime('yyyy-MM-dd', Order_Main.FieldByName('TMMDate').asdatetime)));
+
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('exec P_MSG_in ');
+ sql.Add(' @MSG=' + QuotedStr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' Ҫ')));
+ sql.Add(',@FillUserid=' + QuotedStr(trim(DCode)));
+ sql.Add(',@FillUserName=' + QuotedStr(trim(DName)));
+ sql.Add(',@FillType=' + QuotedStr(trim('Ҫȷ')));
+ sql.Add(',@MegType=' + QuotedStr(trim('ƻύ')));
+ execsql;
+ end;
+ application.MessageBox('ƻύɹ', 'ʾϢ');
+
+ except
+ application.MessageBox('ƻύʧܣ', 'ʾϢ', 0);
+ end;
+ TBRafresh.Click;
+end;
+
+procedure TfrmTradeMarketList.TBTJCXClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then
+ exit;
+ if canshu1 <> 'Ȩ' then
+ begin
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+ end;
+
+ if cxTabControl1.TabIndex <> 1 then
+ begin
+ Application.MessageBox('ֻڴ״̬½ύ!', 'ʾ', 0);
+ Exit;
+ end;
+ if Application.MessageBox('ȷҪύ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Market_Main SET status=''0'' ');
+ sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
+ sql.Add(' and isnull(status,''0'')=''1'' ');
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(trim(self.Caption)));
+ sql.Add(',' + quotedstr(trim('ƻύ')));
+ sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString))));
+ sql.Add(',' + quotedstr(trim('ɹ')));
+ sql.Add(')');
+ execsql;
+ end;
+ application.MessageBox('ƻύɹ', 'ʾϢ');
+ TBRafresh.Click;
+ except
+ application.MessageBox('ƻύʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTradeMarketList.N1Click(Sender: TObject);
+begin
+ Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmTradeMarketList.N2Click(Sender: TObject);
+begin
+ Clipboard.SetTextBuf(PChar(Trim(ORDER_SUB.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmTradeMarketList.N3Click(Sender: TObject);
+begin
+ SelOKNoFiler(Tv1, True); //ȫѡ
+end;
+
+procedure TfrmTradeMarketList.N4Click(Sender: TObject);
+begin
+ SelOKNoFiler(Tv1, False); //ȫ
+end;
+
+procedure TfrmTradeMarketList.ComboBox1Change(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmTradeMarketList.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ InitGrid();
+ end;
+end;
+
+procedure TfrmTradeMarketList.ToolButton10Click(Sender: TObject);
+begin
+ WriteCxGrid('ָʾбFF1', Tv1, 'ָʾ');
+ WriteCxGrid('ָʾбFFTv21', Tv2, 'ָʾ6');
+ application.MessageBox('ɹ', 'ʾϢ', 0);
+end;
+
+procedure TfrmTradeMarketList.ToolButton2Click(Sender: TObject);
+begin
+ WriteCxGrid('ָʾбFF1', Tv1, 'ָʾ');
+ WriteCxGrid('ָʾбFFTv21', Tv2, 'ָʾ');
+end;
+
+end.
+
diff --git a/A02基础产品管理11/U_iniParam.pas b/T05贸易门市管理/U_iniParam.pas
similarity index 100%
rename from A02基础产品管理11/U_iniParam.pas
rename to T05贸易门市管理/U_iniParam.pas
diff --git a/A02基础产品管理11/U_testdll.dfm b/T05贸易门市管理/U_testdll.dfm
similarity index 99%
rename from A02基础产品管理11/U_testdll.dfm
rename to T05贸易门市管理/U_testdll.dfm
index fccf82d..46765a7 100644
--- a/A02基础产品管理11/U_testdll.dfm
+++ b/T05贸易门市管理/U_testdll.dfm
@@ -46,7 +46,7 @@ object Form1: TForm1
Left = 138
Top = 0
Width = 79
- Height = 13
+ Height = 22
Caption = ' DllName'#65306
end
object DllName: TEdit
diff --git a/A02基础产品管理11/U_testdll.pas b/T05贸易门市管理/U_testdll.pas
similarity index 98%
rename from A02基础产品管理11/U_testdll.pas
rename to T05贸易门市管理/U_testdll.pas
index 163628f..fafa5f9 100644
--- a/A02基础产品管理11/U_testdll.pas
+++ b/T05贸易门市管理/U_testdll.pas
@@ -55,7 +55,7 @@ begin
//̬
// showMessage(intTostr(application.Handle));
- Th := LoadLibrary('ClothInfo.dll');
+ Th := LoadLibrary('TradeMarket.dll');
if Th > 0 then
begin
try
diff --git a/T05贸易门市管理/Unit1.dfm b/T05贸易门市管理/Unit1.dfm
new file mode 100644
index 0000000..6f1ed29
--- /dev/null
+++ b/T05贸易门市管理/Unit1.dfm
@@ -0,0 +1,64 @@
+inherited Form1: TForm1
+ Caption = 'Form1'
+ ClientHeight = 299
+ ClientWidth = 635
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ ExplicitWidth = 651
+ ExplicitHeight = 338
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Button1: TButton [0]
+ Left = 32
+ Top = 16
+ Width = 75
+ Height = 25
+ Caption = #23458#25143
+ TabOrder = 0
+ OnClick = Button1Click
+ end
+ object Button2: TButton [1]
+ Left = 32
+ Top = 47
+ Width = 75
+ Height = 25
+ Caption = #26679#21697
+ TabOrder = 1
+ OnClick = Button2Click
+ end
+ object Button3: TButton [2]
+ Left = 32
+ Top = 78
+ Width = 75
+ Height = 25
+ Caption = #24037#24207#36873#25321
+ TabOrder = 2
+ end
+ object Button4: TButton [3]
+ Left = 32
+ Top = 118
+ Width = 75
+ Height = 25
+ Caption = #21592#24037#36873#25321
+ TabOrder = 3
+ OnClick = Button4Click
+ end
+ object Button5: TButton [4]
+ Left = 32
+ Top = 174
+ Width = 75
+ Height = 25
+ Caption = #26631#31614#25171#21360
+ TabOrder = 4
+ OnClick = Button5Click
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_InformationBase.ADOLink
+ Left = 345
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_InformationBase.ADOLink
+ end
+end
diff --git a/T05贸易门市管理/Unit1.pas b/T05贸易门市管理/Unit1.pas
new file mode 100644
index 0000000..cac2d51
--- /dev/null
+++ b/T05贸易门市管理/Unit1.pas
@@ -0,0 +1,106 @@
+unit Unit1;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_BaseList,
+ Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
+
+type
+ TForm1 = class(TfrmBaseList)
+ Button1: TButton;
+ Button2: TButton;
+ Button3: TButton;
+ Button4: TButton;
+ Button5: TButton;
+ procedure Button1Click(Sender: TObject);
+ procedure Button2Click(Sender: TObject);
+ procedure Button4Click(Sender: TObject);
+ procedure Button5Click(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form1: TForm1;
+
+implementation
+
+uses
+ U_DataLink, U_CompanySel, U_ClothInfoSel, U_EmployeeSel, U_LabelPrint;
+{$R *.dfm}
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmCompanySel.Free;
+ end;
+
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+
+ try
+ frmClothInfoSel := TfrmClothInfoSel.Create(Application);
+ with frmClothInfoSel do
+ begin
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmClothInfoSel.Free;
+ end;
+end;
+
+procedure TForm1.Button4Click(Sender: TObject);
+begin
+ try
+ frmEmployeeSel := TfrmEmployeeSel.Create(Application);
+ with frmEmployeeSel do
+ begin
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmEmployeeSel.Free;
+ end;
+
+end;
+
+procedure TForm1.Button5Click(Sender: TObject);
+begin
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+
+end;
+
+end.
+
diff --git a/A02基础产品管理11/consvr.ini b/T05贸易门市管理/consvr.ini
similarity index 100%
rename from A02基础产品管理11/consvr.ini
rename to T05贸易门市管理/consvr.ini
diff --git a/A02基础产品管理11/testDll.cfg b/T05贸易门市管理/testDll.cfg
similarity index 100%
rename from A02基础产品管理11/testDll.cfg
rename to T05贸易门市管理/testDll.cfg
diff --git a/A02基础产品管理11/testDll.dof b/T05贸易门市管理/testDll.dof
similarity index 100%
rename from A02基础产品管理11/testDll.dof
rename to T05贸易门市管理/testDll.dof
diff --git a/A02基础产品管理11/testDll.dpr b/T05贸易门市管理/testDll.dpr
similarity index 100%
rename from A02基础产品管理11/testDll.dpr
rename to T05贸易门市管理/testDll.dpr
diff --git a/A02基础产品管理11/testDll.dproj b/T05贸易门市管理/testDll.dproj
similarity index 100%
rename from A02基础产品管理11/testDll.dproj
rename to T05贸易门市管理/testDll.dproj
diff --git a/A02基础产品管理11/testDll.res b/T05贸易门市管理/testDll.res
similarity index 100%
rename from A02基础产品管理11/testDll.res
rename to T05贸易门市管理/testDll.res
diff --git a/A02基础产品管理11/testDllDJ.cfg b/T05贸易门市管理/testDllDJ.cfg
similarity index 100%
rename from A02基础产品管理11/testDllDJ.cfg
rename to T05贸易门市管理/testDllDJ.cfg
diff --git a/A02基础产品管理11/testDllDJ.dof b/T05贸易门市管理/testDllDJ.dof
similarity index 100%
rename from A02基础产品管理11/testDllDJ.dof
rename to T05贸易门市管理/testDllDJ.dof
diff --git a/A02基础产品管理11/testDllDJ.res b/T05贸易门市管理/testDllDJ.res
similarity index 100%
rename from A02基础产品管理11/testDllDJ.res
rename to T05贸易门市管理/testDllDJ.res
diff --git a/A02基础产品管理11/testDll_Icon.ico b/T05贸易门市管理/testDll_Icon.ico
similarity index 100%
rename from A02基础产品管理11/testDll_Icon.ico
rename to T05贸易门市管理/testDll_Icon.ico