diff --git a/A00通用窗体/U_ClothInfoSel.dfm b/A00通用窗体/U_ClothInfoSel.dfm
index 783d713..eda969a 100644
--- a/A00通用窗体/U_ClothInfoSel.dfm
+++ b/A00通用窗体/U_ClothInfoSel.dfm
@@ -10,6 +10,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
+ OnKeyDown = FormKeyDown
ExplicitWidth = 1501
ExplicitHeight = 650
PixelsPerInch = 96
@@ -222,8 +223,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Height = 485
Align = alClient
TabOrder = 1
- ExplicitLeft = 6
- ExplicitTop = 39
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
diff --git a/A00通用窗体/U_ClothInfoSel.pas b/A00通用窗体/U_ClothInfoSel.pas
index d811848..1a6cb01 100644
--- a/A00通用窗体/U_ClothInfoSel.pas
+++ b/A00通用窗体/U_ClothInfoSel.pas
@@ -95,6 +95,7 @@ type
procedure TBCloseClick(Sender: TObject);
procedure cxDBTreeList1DblClick(Sender: TObject);
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
CurrentPage, RecordsNumber: Integer;
procedure InitGrid(PType: string);
@@ -280,7 +281,7 @@ begin
if Trim(FCTType) = '' then
FCTType := 'ͨ';
ReadCxGrid('λ' + Trim(FCTType), TV1, 'Զ');
-
+ KeyPreview := True;
InitTree();
InitGrid('');
end;
@@ -321,5 +322,16 @@ begin
frmClothInfoSel := nil;
end;
+procedure TfrmClothInfoSel.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
+
end.
diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local
index a683e81..628e085 100644
--- a/A02基础产品管理/ClothInfo.dproj.local
+++ b/A02基础产品管理/ClothInfo.dproj.local
@@ -18,15 +18,15 @@
1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas
+ 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas
+ 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm
diff --git a/A02基础产品管理/U_ClothInfo.dfm b/A02基础产品管理/U_ClothInfo.dfm
index bacea4d..6616a4d 100644
--- a/A02基础产品管理/U_ClothInfo.dfm
+++ b/A02基础产品管理/U_ClothInfo.dfm
@@ -3,11 +3,11 @@ inherited frmClothInfo: TfrmClothInfo
Top = 154
Caption = #20135#21697#26723#26696
ClientHeight = 702
- ClientWidth = 1444
+ ClientWidth = 1456
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
- ExplicitWidth = 1460
+ ExplicitWidth = 1472
ExplicitHeight = 741
PixelsPerInch = 96
TextHeight = 12
@@ -15,7 +15,7 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 1
Left = 0
Top = 0
- Width = 1444
+ Width = 1456
Height = 38
AutoSize = True
ButtonHeight = 38
@@ -28,6 +28,7 @@ inherited frmClothInfo: TfrmClothInfo
ParentColor = False
ShowCaptions = True
TabOrder = 0
+ ExplicitWidth = 1444
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -160,7 +161,7 @@ inherited frmClothInfo: TfrmClothInfo
object Panel1: TPanel [2]
Left = 0
Top = 38
- Width = 1444
+ Width = 1456
Height = 45
Align = alTop
BevelInner = bvRaised
@@ -168,6 +169,7 @@ inherited frmClothInfo: TfrmClothInfo
Color = 16242829
ParentBackground = False
TabOrder = 1
+ ExplicitWidth = 1444
object Label11: TLabel
Left = 1072
Top = 107
@@ -200,18 +202,32 @@ inherited frmClothInfo: TfrmClothInfo
Caption = #20135#21697#21517#31216
end
object Label9: TLabel
- Left = 365
+ Left = 628
Top = 15
Width = 24
Height = 12
Caption = #26448#36136
end
object Label8: TLabel
- Left = 197
+ Left = 481
Top = 15
- Width = 48
+ Width = 24
Height = 12
- Caption = #24037#33402#32534#21495
+ Caption = #24037#33402
+ end
+ object Label1: TLabel
+ Left = 335
+ Top = 15
+ Width = 24
+ Height = 12
+ Caption = #38376#24133
+ end
+ object Label2: TLabel
+ Left = 193
+ Top = 15
+ Width = 24
+ Height = 12
+ Caption = #33394#21495
end
object C_Name: TEdit
Tag = 2
@@ -224,22 +240,37 @@ inherited frmClothInfo: TfrmClothInfo
end
object Material: TEdit
Tag = 2
- Left = 392
+ Left = 654
Top = 11
Width = 89
Height = 20
TabOrder = 2
OnKeyPress = C_CodeKeyPress
end
- object DTMNo: TEdit
- Tag = 2
- Left = 244
+ object C_NameGY: TEdit
+ Left = 508
Top = 11
Width = 89
Height = 20
TabOrder = 1
OnKeyPress = C_CodeKeyPress
end
+ object C_NameWidth: TEdit
+ Left = 363
+ Top = 11
+ Width = 89
+ Height = 20
+ TabOrder = 3
+ OnKeyPress = C_CodeKeyPress
+ end
+ object C_NameSeHao: TEdit
+ Left = 220
+ Top = 11
+ Width = 89
+ Height = 20
+ TabOrder = 4
+ OnKeyPress = C_CodeKeyPress
+ end
end
object Panel2: TPanel [3]
Left = 512
@@ -307,15 +338,16 @@ inherited frmClothInfo: TfrmClothInfo
object Panel3: TPanel [5]
Left = 228
Top = 83
- Width = 1216
+ Width = 1228
Height = 619
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel3'
TabOrder = 4
+ ExplicitWidth = 1216
object Splitter1: TSplitter
- Left = 825
+ Left = 2
Top = 60
Height = 352
ExplicitLeft = 936
@@ -323,15 +355,16 @@ inherited frmClothInfo: TfrmClothInfo
ExplicitHeight = 100
end
object cxGrid1: TcxGrid
- Left = 2
+ Left = 5
Top = 60
- Width = 823
+ Width = 1175
Height = 352
- Align = alLeft
+ Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 59
+ ExplicitWidth = 1163
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -347,7 +380,6 @@ inherited frmClothInfo: TfrmClothInfo
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
- OptionsView.ColumnAutoWidth = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_ClothInfo.SHuangSe
Styles.Header = DataLink_ClothInfo.Default
@@ -360,7 +392,7 @@ inherited frmClothInfo: TfrmClothInfo
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default
- Width = 36
+ Width = 30
end
object v1Column12: TcxGridDBColumn
Caption = #31867#21035
@@ -369,60 +401,44 @@ inherited frmClothInfo: TfrmClothInfo
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
- Width = 62
+ Width = 51
end
object v1CYNo: TcxGridDBColumn
- Caption = #20135#21697#32534#21495
+ Caption = #25104#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
- Width = 82
+ Width = 68
end
object v1Column9: TcxGridDBColumn
- Caption = #20135#21697#21517#31216
+ Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 85
+ Width = 70
end
object Tv1Material: TcxGridDBColumn
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 71
+ Width = 59
end
object Tv1CFinishingStandards: TcxGridDBColumn
Caption = #21518#25972#29702#26631#20934
DataBinding.FieldName = 'FinishingStandards'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 90
+ Width = 75
end
object Tv1DTMNo: TcxGridDBColumn
Caption = #40664#35748#24037#33402#32534#21495
DataBinding.FieldName = 'DTMNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 101
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #24314#31435#20154
- DataBinding.FieldName = 'filler'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 63
- end
- object Tv1Column9: TcxGridDBColumn
- Caption = #24314#31435#26102#38388
- DataBinding.FieldName = 'FILLTIME'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 59
+ Width = 83
end
object Tv1Column6: TcxGridDBColumn
Caption = #26368#21518#20462#25913#20154
@@ -430,7 +446,7 @@ inherited frmClothInfo: TfrmClothInfo
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 95
+ Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #26368#21518#20462#25913#26102#38388
@@ -438,14 +454,91 @@ inherited frmClothInfo: TfrmClothInfo
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 103
+ Width = 88
+ end
+ object Tv1C_COLOR: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_COLOR'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_Width: TcxGridDBColumn
+ Caption = #25104#21697#38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_washWidth: TcxGridDBColumn
+ Caption = #28165#27927#21518#38376#24133
+ DataBinding.FieldName = 'C_washWidth'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1LatitudeSlope: TcxGridDBColumn
+ Caption = #32428#26012
+ DataBinding.FieldName = 'LatitudeSlope'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1F_Width: TcxGridDBColumn
+ Caption = #22383#24067#38376#24133
+ DataBinding.FieldName = 'F_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_FinishLatitudeDensity: TcxGridDBColumn
+ Caption = #25104#21697#32428#23494'('#26681'/'#33521#23544')'
+ DataBinding.FieldName = 'C_FinishLatitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 129
+ end
+ object Tv1C_GramWeight: TcxGridDBColumn
+ Caption = #25104#21697#20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1F_FinishLatitudeDensity: TcxGridDBColumn
+ Caption = #22383#24067#32428#23494'('#26681'/'#33521#23544')'
+ DataBinding.FieldName = 'F_FinishLatitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 130
+ end
+ object Tv1F_GramWeight: TcxGridDBColumn
+ Caption = #22383#24067#20811#37325
+ DataBinding.FieldName = 'F_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1DTMID: TcxGridDBColumn
+ Caption = #24037#33402#20027#38190
+ DataBinding.FieldName = 'DTMID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1DTMPSlist: TcxGridDBColumn
+ Caption = #20135#21697#40664#35748#24037#33402
+ DataBinding.FieldName = 'DTMPSlist'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 110
end
object Tv1CINote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'CINote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 62
+ Width = 49
end
end
object cxGrid1Level1: TcxGridLevel
@@ -455,21 +548,23 @@ inherited frmClothInfo: TfrmClothInfo
object Panel7: TPanel
Left = 2
Top = 2
- Width = 1212
+ Width = 1224
Height = 40
Align = alTop
BevelOuter = bvNone
TabOrder = 1
+ ExplicitWidth = 1212
object Panel4: TPanel
Left = 0
Top = 0
- Width = 1212
+ Width = 1224
Height = 40
Align = alClient
AutoSize = True
TabOrder = 0
+ ExplicitWidth = 1212
DesignSize = (
- 1212
+ 1224
40)
object Label14: TLabel
Left = 19
@@ -566,50 +661,53 @@ inherited frmClothInfo: TfrmClothInfo
object Panel9: TPanel
Left = 2
Top = 412
- Width = 1212
+ Width = 1224
Height = 205
Align = alBottom
Caption = 'Panel9'
TabOrder = 2
+ ExplicitWidth = 1212
object Panel10: TPanel
Left = 1
Top = 1
- Width = 1210
+ Width = 1222
Height = 203
Align = alClient
Caption = 'Panel9'
TabOrder = 0
+ ExplicitWidth = 1210
object GroupBox1: TGroupBox
Left = 1
Top = 42
- Width = 1208
+ Width = 1220
Height = 160
Align = alClient
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 0
+ ExplicitWidth = 1208
object ScrollBox1: TScrollBox
Left = 2
Top = 14
- Width = 1204
+ Width = 1216
Height = 144
Align = alClient
BevelInner = bvLowered
BorderStyle = bsNone
TabOrder = 0
- ExplicitLeft = 3
- ExplicitTop = 6
+ ExplicitWidth = 1204
end
end
object Panel11: TPanel
Left = 1
Top = 1
- Width = 1208
+ Width = 1220
Height = 41
Align = alTop
TabOrder = 1
Visible = False
+ ExplicitWidth = 1208
DesignSize = (
- 1208
+ 1220
41)
object Label7: TLabel
Left = 33
@@ -625,7 +723,7 @@ inherited frmClothInfo: TfrmClothInfo
ParentFont = False
end
object cbbHX: TComboBox
- Left = 368
+ Left = 373
Top = 3
Width = 210
Height = 32
@@ -642,6 +740,7 @@ inherited frmClothInfo: TfrmClothInfo
OnChange = cbbHXChange
Items.Strings = (
#33457#22411)
+ ExplicitLeft = 368
end
end
end
@@ -649,7 +748,7 @@ inherited frmClothInfo: TfrmClothInfo
object cxTabControl1: TcxTabControl
Left = 2
Top = 42
- Width = 1212
+ Width = 1224
Height = 18
Align = alTop
TabOrder = 3
@@ -661,16 +760,19 @@ inherited frmClothInfo: TfrmClothInfo
#24050#23457#26680
#20840#37096)
OnChange = cxTabControl1Change
+ ExplicitWidth = 1212
ClientRectRight = 0
ClientRectTop = 0
end
object cxGrid2: TcxGrid
- Left = 828
+ Left = 1180
Top = 60
- Width = 386
+ Width = 46
Height = 352
- Align = alClient
+ Align = alRight
TabOrder = 4
+ Visible = False
+ ExplicitLeft = 1168
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -774,8 +876,8 @@ inherited frmClothInfo: TfrmClothInfo
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
- Left = 952
- Top = 296
+ Left = 1032
+ Top = 240
end
object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
diff --git a/A02基础产品管理/U_ClothInfo.pas b/A02基础产品管理/U_ClothInfo.pas
index 636090a..27c6964 100644
--- a/A02基础产品管理/U_ClothInfo.pas
+++ b/A02基础产品管理/U_ClothInfo.pas
@@ -90,7 +90,7 @@ type
Label9: TLabel;
Material: TEdit;
Label8: TLabel;
- DTMNo: TEdit;
+ C_NameGY: TEdit;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
@@ -102,13 +102,11 @@ type
Button2: TButton;
TCBNOR1: TComboBox;
RMBarCodeObject1: TRMBarCodeObject;
- Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
TbLook: TToolButton;
DataSource3: TDataSource;
CDS_Sub: TClientDataSet;
- Tv1Column9: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
ToolButton2: TToolButton;
N3: TMenuItem;
@@ -137,6 +135,21 @@ type
Tv2DTMName: TcxGridDBColumn;
Tv1DTMNo: TcxGridDBColumn;
Tv1CFinishingStandards: TcxGridDBColumn;
+ Label1: TLabel;
+ C_NameWidth: TEdit;
+ Label2: TLabel;
+ C_NameSeHao: TEdit;
+ Tv1C_COLOR: TcxGridDBColumn;
+ Tv1C_Width: TcxGridDBColumn;
+ Tv1C_washWidth: TcxGridDBColumn;
+ Tv1LatitudeSlope: TcxGridDBColumn;
+ Tv1F_Width: TcxGridDBColumn;
+ Tv1C_FinishLatitudeDensity: TcxGridDBColumn;
+ Tv1C_GramWeight: TcxGridDBColumn;
+ Tv1F_FinishLatitudeDensity: TcxGridDBColumn;
+ Tv1F_GramWeight: TcxGridDBColumn;
+ Tv1DTMID: TcxGridDBColumn;
+ Tv1DTMPSlist: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@@ -303,7 +316,7 @@ var
fwhere, MBCIID, Pwhere: string;
begin
Panel2.Visible := True;
- Panel2.Refresh;
+// Panel2.Refresh;
if not CDS_1.IsEmpty then
MBCIID := Trim(CDS_1.FieldByName('BCIID').AsString)
else
@@ -314,6 +327,30 @@ begin
if cxTabControl1.TabIndex < 2 then
Pwhere := 'isnull(status,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' ';
+ if trim(C_NameGY.Text) <> '' then
+ begin
+ if Pwhere <> '' then
+ Pwhere := Pwhere + ' and C_Name like ''%-%-%-%' + trim(C_NameGY.Text) + '%'''
+ else
+ Pwhere := 'C_Name like ''%-%-%-%' + trim(C_NameGY.Text) + '%''';
+ end;
+
+ if trim(C_NameSeHao.Text) <> '' then
+ begin
+ if Pwhere <> '' then
+ Pwhere := Pwhere + ' and C_Name like ''%-%' + trim(C_NameSeHao.Text) + '%-%-%'''
+ else
+ Pwhere := 'C_Name like ''%-%' + trim(C_NameSeHao.Text) + '%-%-%''';
+ end;
+
+ if trim(C_NameWidth.Text) <> '' then
+ begin
+ if Pwhere <> '' then
+ Pwhere := Pwhere + ' and C_Name like ''%-%-%' + trim(C_NameWidth.Text) + '%-%'''
+ else
+ Pwhere := 'C_Name like ''%-%-%' + trim(C_NameWidth.Text) + '%-%''';
+ end;
+
if trim(Pwhere) <> '' then
begin
if fwhere <> '' then
@@ -321,6 +358,7 @@ begin
else
fwhere := ' where ' + trim(Pwhere);
end;
+// ShowMessage(fwhere);
try
ADOQueryMain.DisableControls;
@@ -338,6 +376,7 @@ begin
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+// SDofilter(ADOQueryMain, Pwhere);
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
TV1.DataController.Filter.Clear;
@@ -616,7 +655,7 @@ procedure TfrmClothInfo.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
- CurrentPage := 1;
+// CurrentPage := 1;
InitGrid();
end;
end;
@@ -698,11 +737,8 @@ procedure TfrmClothInfo.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
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();
+// InitImage();
end;
procedure TfrmClothInfo.TBMLEditClick(Sender: TObject);
diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm
index 1ed3c53..68e2b47 100644
--- a/A02基础产品管理/U_ClothInfoInput.dfm
+++ b/A02基础产品管理/U_ClothInfoInput.dfm
@@ -446,7 +446,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 272
Align = alBottom
TabOrder = 24
- ExplicitLeft = 0
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas
index c35075e..89d6a91 100644
--- a/A02基础产品管理/U_ClothInfoInput.pas
+++ b/A02基础产品管理/U_ClothInfoInput.pas
@@ -1128,9 +1128,9 @@ begin
if Trim(FBCIID) = '' then
begin
Append;
- FieldByName('FILLID').Value := Trim(DCode);
- FieldByName('FILLER').Value := Trim(DName);
- FieldByName('FILLTIME').Value := SGetServerDateTime(ADOQueryTemp);
+ FieldByName('EditId').Value := Trim(DCode);
+ FieldByName('EDITER').Value := Trim(DName);
+ FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
diff --git a/B03基础物料仓库/ProductStk.dproj.local b/B03基础物料仓库/ProductStk.dproj.local
index a88ab47..deb8b88 100644
--- a/B03基础物料仓库/ProductStk.dproj.local
+++ b/B03基础物料仓库/ProductStk.dproj.local
@@ -1,45 +1,45 @@
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899/12/30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas
- 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas
- 1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas
+ 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
1899/12/30 00:00:00.000.923,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\Unit1.pas=
- 1899/12/30 00:00:00.000.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm
+ 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm
- 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas
1899/12/30 00:00:00.000.686,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas
+ 1899/12/30 00:00:00.000.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm
diff --git a/B03基础物料仓库/ProductStk.identcache b/B03基础物料仓库/ProductStk.identcache
index 19234ff..34a61e9 100644
Binary files a/B03基础物料仓库/ProductStk.identcache and b/B03基础物料仓库/ProductStk.identcache differ
diff --git a/B03基础物料仓库/U_PrtDyeInfoInPut.pas b/B03基础物料仓库/U_PrtDyeInfoInPut.pas
index 9e3ec48..262cca0 100644
--- a/B03基础物料仓库/U_PrtDyeInfoInPut.pas
+++ b/B03基础物料仓库/U_PrtDyeInfoInPut.pas
@@ -166,7 +166,22 @@ begin
Edit;
FieldByName('BPIID').Value := Trim(MaxNo);
Post;
+
+ with ADOQueryCMD do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('EXEC P_UpdateBS_Cloth_Gy_SubZJ');
+ SQL.Add(' @BPIID = ' + QuotedStr(Trim(MaxNo)));
+ SQL.Add(' ,@P_Name = '+ QuotedStr(Trim(CDS_Sub.FieldByName('P_Name').asString)) );
+ SQL.Add(' ,@P_Type = ' + QuotedStr(Trim(CDS_Sub.FieldByName('P_Type').asString)) );
+ SQL.Add(' ,@QtyUnit = ' + QuotedStr(Trim(CDS_Sub.FieldByName('QtyUnit').asString)) );
+
+ ExecSQL;
+ end;
+
Next;
+
end;
end;
CDS_Sub.EnableControls;
diff --git a/B03基础物料仓库/U_PrtDyeInfoList.dfm b/B03基础物料仓库/U_PrtDyeInfoList.dfm
index 052e70b..4234f1a 100644
--- a/B03基础物料仓库/U_PrtDyeInfoList.dfm
+++ b/B03基础物料仓库/U_PrtDyeInfoList.dfm
@@ -163,6 +163,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
Height = 475
Align = alClient
TabOrder = 2
+ ExplicitTop = 87
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/F01染色坯布仓库/DyeGreyClothStk.dproj.local b/F01染色坯布仓库/DyeGreyClothStk.dproj.local
index c05bb81..e7422c7 100644
--- a/F01染色坯布仓库/DyeGreyClothStk.dproj.local
+++ b/F01染色坯布仓库/DyeGreyClothStk.dproj.local
@@ -1,46 +1,46 @@
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas
+ 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas
- 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas
- 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas
+ 1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj
1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas
1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas
+ 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm
+ 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm
1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas
1899/12/30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas
1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
2025/08/29 17:00:58.000.253,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyePlanForCardSel.pas
2025/09/29 17:18:11.000.618,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyePBImport.pas
2025/10/13 14:35:20.000.136,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyeGreyClothStkStats.pas
diff --git a/F01染色坯布仓库/DyeGreyClothStk.identcache b/F01染色坯布仓库/DyeGreyClothStk.identcache
index 90a8993..5b3f175 100644
Binary files a/F01染色坯布仓库/DyeGreyClothStk.identcache and b/F01染色坯布仓库/DyeGreyClothStk.identcache differ
diff --git a/F01染色坯布仓库/U_DyeGreyClothInList.dfm b/F01染色坯布仓库/U_DyeGreyClothInList.dfm
index 41d4e0e..3b90766 100644
--- a/F01染色坯布仓库/U_DyeGreyClothInList.dfm
+++ b/F01染色坯布仓库/U_DyeGreyClothInList.dfm
@@ -130,7 +130,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Caption = #33267
end
object Label3: TLabel
- Left = 351
+ Left = 365
Top = 12
Width = 48
Height = 12
@@ -139,12 +139,12 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
object Label5: TLabel
Left = 178
Top = 12
- Width = 48
+ Width = 60
Height = 12
- Caption = #20837#24211#21333#21495
+ Caption = #29983#20135#35746#21333#21495
end
object Label8: TLabel
- Left = 351
+ Left = 365
Top = 37
Width = 60
Height = 12
@@ -177,41 +177,41 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
end
object C_name: TEdit
Tag = 2
- Left = 413
+ Left = 427
Top = 8
Width = 100
Height = 20
TabOrder = 2
- OnChange = TBFindClick
+ OnKeyPress = OrderNoKeyPress
end
- object BCIOID: TEdit
+ object OrderNo: TEdit
Tag = 2
- Left = 228
+ Left = 242
Top = 8
Width = 109
Height = 20
TabOrder = 3
- OnChange = BCIOIDChange
+ OnKeyPress = OrderNoKeyPress
end
object finishDescription: TEdit
Tag = 2
- Left = 413
+ Left = 427
Top = 33
Width = 100
Height = 20
TabOrder = 4
- OnChange = finishDescriptionChange
+ OnKeyPress = OrderNoKeyPress
end
object IOType: TComboBox
Tag = 2
- Left = 228
+ Left = 242
Top = 33
Width = 109
Height = 20
Style = csDropDownList
DropDownCount = 20
TabOrder = 5
- OnChange = TBFindClick
+ OnChange = IOTypeChange
Items.Strings = (
#21152#24037#20837#24211
#22238#20462#20837#24211
@@ -230,6 +230,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
+ ExplicitTop = 97
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -559,13 +560,13 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Visible = True
DataSet = CDS_HZ
Left = 600
- Top = 232
+ Top = 233
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 520
- Top = 232
+ Top = 233
end
object CDS_PRT: TClientDataSet
Aggregates = <>
diff --git a/F01染色坯布仓库/U_DyeGreyClothInList.pas b/F01染色坯布仓库/U_DyeGreyClothInList.pas
index e905082..f62a106 100644
--- a/F01染色坯布仓库/U_DyeGreyClothInList.pas
+++ b/F01染色坯布仓库/U_DyeGreyClothInList.pas
@@ -50,7 +50,7 @@ type
Label8: TLabel;
Label12: TLabel;
C_name: TEdit;
- BCIOID: TEdit;
+ OrderNo: TEdit;
finishDescription: TEdit;
IOType: TComboBox;
cxGrid2: TcxGrid;
@@ -90,13 +90,12 @@ type
procedure TBDelClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
- procedure BCIOIDChange(Sender: TObject);
- procedure finishDescriptionChange(Sender: TObject);
- procedure FromCoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+ procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+ procedure IOTypeChange(Sender: TObject);
private
canshu1, canshu2, canshu3, FWorkshop: string;
@@ -170,6 +169,12 @@ begin
end;
end;
+procedure TfrmDyeGreyClothInList.IOTypeChange(Sender: TObject);
+begin
+ TBFind.Click;
+
+end;
+
procedure TfrmDyeGreyClothInList.TBRafreshClick(Sender: TObject);
begin
BegDate.SetFocus;
@@ -301,6 +306,16 @@ begin
SelOKNo(CDS_Main, False);
end;
+procedure TfrmDyeGreyClothInList.OrderNoKeyPress(Sender: TObject;
+ var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ TBFind.Click;
+ end;
+
+end;
+
procedure TfrmDyeGreyClothInList.TBDelClick(Sender: TObject);
var
MBCIOID: string;
@@ -416,25 +431,7 @@ begin
end;
end;
-procedure TfrmDyeGreyClothInList.BCIOIDChange(Sender: TObject);
-begin
- if Length(Trim(BCIOID.Text)) < 4 then
- begin
- if Trim(BCIOID.Text) <> '' then
- Exit;
- end;
- TBFind.Click;
-end;
-procedure TfrmDyeGreyClothInList.finishDescriptionChange(Sender: TObject);
-begin
- TBFind.Click;
-end;
-
-procedure TfrmDyeGreyClothInList.FromCoNameChange(Sender: TObject);
-begin
- TBFind.Click;
-end;
procedure TfrmDyeGreyClothInList.cxTabControl1Change(Sender: TObject);
begin
diff --git a/F01染色坯布仓库/U_DyeGreyClothOutList.dfm b/F01染色坯布仓库/U_DyeGreyClothOutList.dfm
index 4469847..b6e3ee3 100644
--- a/F01染色坯布仓库/U_DyeGreyClothOutList.dfm
+++ b/F01染色坯布仓库/U_DyeGreyClothOutList.dfm
@@ -115,6 +115,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
+ ExplicitTop = 44
object Label1: TLabel
Left = 28
Top = 12
@@ -130,7 +131,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #33267
end
object Label3: TLabel
- Left = 321
+ Left = 333
Top = 12
Width = 48
Height = 12
@@ -139,12 +140,12 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
object Label5: TLabel
Left = 178
Top = 12
- Width = 48
+ Width = 60
Height = 12
- Caption = #20986#24211#21333#21495
+ Caption = #29983#20135#35746#21333#21495
end
object Label8: TLabel
- Left = 321
+ Left = 333
Top = 39
Width = 60
Height = 12
@@ -184,34 +185,34 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
end
object C_NAME: TEdit
Tag = 2
- Left = 384
+ Left = 396
Top = 8
Width = 80
Height = 20
TabOrder = 2
- OnChange = TBFindClick
+ OnKeyPress = OrderNoKeyPress
end
- object BCIOID: TEdit
+ object OrderNo: TEdit
Tag = 2
- Left = 228
+ Left = 240
Top = 8
Width = 80
Height = 20
TabOrder = 3
- OnChange = BCIOIDChange
+ OnKeyPress = OrderNoKeyPress
end
object finishDescription: TEdit
Tag = 2
- Left = 384
+ Left = 396
Top = 35
Width = 80
Height = 20
TabOrder = 4
- OnChange = finishDescriptionChange
+ OnKeyPress = OrderNoKeyPress
end
object IOType: TComboBox
Tag = 2
- Left = 228
+ Left = 240
Top = 35
Width = 80
Height = 20
@@ -231,7 +232,6 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Width = 100
Height = 20
TabOrder = 6
- OnChange = finishDescriptionChange
end
end
object cxGrid2: TcxGrid [2]
diff --git a/F01染色坯布仓库/U_DyeGreyClothOutList.pas b/F01染色坯布仓库/U_DyeGreyClothOutList.pas
index 757304f..d5ea04d 100644
--- a/F01染色坯布仓库/U_DyeGreyClothOutList.pas
+++ b/F01染色坯布仓库/U_DyeGreyClothOutList.pas
@@ -50,7 +50,7 @@ type
Label8: TLabel;
Label12: TLabel;
C_NAME: TEdit;
- BCIOID: TEdit;
+ OrderNo: TEdit;
finishDescription: TEdit;
IOType: TComboBox;
ToolButton1: TToolButton;
@@ -88,16 +88,15 @@ type
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure SPNameChange(Sender: TObject);
- procedure BCIOIDChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
- procedure finishDescriptionChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
+ procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private
canshu1, canshu2, FWorkshop: string;
procedure InitGrid();
@@ -282,15 +281,6 @@ begin
TBFind.Click;
end;
-procedure TfrmDyeGreyClothOutList.BCIOIDChange(Sender: TObject);
-begin
- if Length(Trim(BCIOID.Text)) < 4 then
- begin
- if Trim(BCIOID.Text) <> '' then
- Exit;
- end;
- TBFind.Click;
-end;
procedure TfrmDyeGreyClothOutList.N1Click(Sender: TObject);
begin
@@ -302,6 +292,16 @@ begin
SelOKNo(CDS_Main, False);
end;
+procedure TfrmDyeGreyClothOutList.OrderNoKeyPress(Sender: TObject;
+ var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ TBFind.Click;
+ end;
+
+end;
+
procedure TfrmDyeGreyClothOutList.TBDelClick(Sender: TObject);
var
MBCIOID: string;
@@ -417,10 +417,6 @@ begin
end;
-procedure TfrmDyeGreyClothOutList.finishDescriptionChange(Sender: TObject);
-begin
- TBFind.Click;
-end;
procedure TfrmDyeGreyClothOutList.cxTabControl1Change(Sender: TObject);
begin
diff --git a/F01染色坯布仓库/U_DyeGreyClothStkList.dfm b/F01染色坯布仓库/U_DyeGreyClothStkList.dfm
index 77dbb43..b9bd8ad 100644
--- a/F01染色坯布仓库/U_DyeGreyClothStkList.dfm
+++ b/F01染色坯布仓库/U_DyeGreyClothStkList.dfm
@@ -92,14 +92,14 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
- Left = 324
+ Left = 331
Top = 14
Width = 48
Height = 12
Caption = #25104#21697#21517#31216
end
object Label8: TLabel
- Left = 487
+ Left = 494
Top = 14
Width = 60
Height = 12
@@ -108,12 +108,12 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Label2: TLabel
Left = 38
Top = 14
- Width = 48
+ Width = 60
Height = 12
- Caption = #20837#24211#21333#21495
+ Caption = #29983#20135#35746#21333#21495
end
object Label5: TLabel
- Left = 183
+ Left = 190
Top = 14
Width = 48
Height = 12
@@ -121,39 +121,39 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
end
object C_name: TEdit
Tag = 2
- Left = 373
+ Left = 380
Top = 10
Width = 100
Height = 20
TabOrder = 0
- OnChange = TBFindClick
+ OnKeyPress = OrderNoKeyPress
end
object finishDescription: TEdit
Tag = 2
- Left = 552
+ Left = 559
Top = 10
Width = 100
Height = 20
TabOrder = 1
- OnChange = TBFindClick
+ OnKeyPress = OrderNoKeyPress
end
- object BCIOID: TEdit
+ object OrderNo: TEdit
Tag = 2
- Left = 92
+ Left = 99
Top = 10
Width = 78
Height = 20
TabOrder = 2
- OnChange = FromCoNameChange
+ OnKeyPress = OrderNoKeyPress
end
object ioType: TEdit
Tag = 2
- Left = 237
+ Left = 244
Top = 10
Width = 78
Height = 20
TabOrder = 3
- OnChange = FromCoNameChange
+ OnKeyPress = OrderNoKeyPress
end
end
object cxGrid2: TcxGrid [2]
@@ -294,14 +294,14 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 71
+ Width = 80
end
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 63
+ Width = 81
end
object v2Column6: TcxGridDBColumn
Tag = 2
@@ -311,21 +311,21 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 74
+ Width = 89
end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 80
+ Width = 96
end
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 62
+ Width = 96
end
object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968
@@ -333,7 +333,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 69
+ Width = 97
end
object v1Column4: TcxGridDBColumn
Caption = #25104#21697#38376#24133
@@ -341,7 +341,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 74
+ Width = 80
end
object v1Column8: TcxGridDBColumn
Tag = 2
diff --git a/F01染色坯布仓库/U_DyeGreyClothStkList.pas b/F01染色坯布仓库/U_DyeGreyClothStkList.pas
index 7b851d8..ef9b53e 100644
--- a/F01染色坯布仓库/U_DyeGreyClothStkList.pas
+++ b/F01染色坯布仓库/U_DyeGreyClothStkList.pas
@@ -44,7 +44,7 @@ type
Label2: TLabel;
C_name: TEdit;
finishDescription: TEdit;
- BCIOID: TEdit;
+ OrderNo: TEdit;
Tv1IOTime: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
@@ -71,7 +71,6 @@ type
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure SXBatchNOChange(Sender: TObject);
- procedure FromCoNameChange(Sender: TObject);
// procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
@@ -81,6 +80,7 @@ type
procedure Tv1Column3PropertiesChange(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
procedure TbExportClick(Sender: TObject);
+ procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private
procedure InitGrid();
{ Private declarations }
@@ -127,7 +127,7 @@ begin
Close;
sql.Clear;
sql.Add(' select A.* ');
- sql.Add(' from BS_Cloth_IO A ');
+ sql.Add(' from V_BS_Cloth_Stk A ');
SQL.Add(' where A.IOFlag='''' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
if trim(FWorkshop) <> '' then
@@ -190,15 +190,23 @@ begin
TBFind.Click;
end;
+procedure TfrmDyeGreyClothStkList.OrderNoKeyPress(Sender: TObject;
+ var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ TBFind.Click;
+
+ end;
+
+end;
+
procedure TfrmDyeGreyClothStkList.SXBatchNOChange(Sender: TObject);
begin
TBFind.Click;
end;
-procedure TfrmDyeGreyClothStkList.FromCoNameChange(Sender: TObject);
-begin
- TBFind.Click;
-end;
+
//procedure TfrmDyeGreyClothStkList.ToolButton1Click(Sender: TObject);
//var
diff --git a/F01染色坯布仓库/U_DyeGreyClothStkSel.dfm b/F01染色坯布仓库/U_DyeGreyClothStkSel.dfm
index 8582f87..08d85d4 100644
--- a/F01染色坯布仓库/U_DyeGreyClothStkSel.dfm
+++ b/F01染色坯布仓库/U_DyeGreyClothStkSel.dfm
@@ -2,7 +2,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Left = 105
Top = 131
Caption = #24211#23384#36873#25321#21015#34920
- ClientHeight = 472
+ ClientHeight = 527
ClientWidth = 1165
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -11,7 +11,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1181
- ExplicitHeight = 511
+ ExplicitHeight = 566
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@@ -174,10 +174,11 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Left = 0
Top = 74
Width = 1165
- Height = 398
+ Height = 453
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
+ ExplicitTop = 71
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -223,10 +224,6 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
- Styles.IncSearch = DataLink_DyeGreyClothStk.SHuangSe
- Styles.Header = DataLink_DyeGreyClothStk.Default
- Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
- Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object Tv1Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
@@ -449,6 +446,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Top = 232
end
object cxGridPopupMenu1: TcxGridPopupMenu
+ Grid = cxGrid2
PopupMenus = <>
Left = 520
Top = 232
diff --git a/F01染色坯布仓库/U_DyeGreyClothStkStats.dfm b/F01染色坯布仓库/U_DyeGreyClothStkStats.dfm
index ceac403..fc86d40 100644
--- a/F01染色坯布仓库/U_DyeGreyClothStkStats.dfm
+++ b/F01染色坯布仓库/U_DyeGreyClothStkStats.dfm
@@ -5,7 +5,6 @@ inherited frmDyeGreyClothStkStats: TfrmDyeGreyClothStkStats
ClientHeight = 567
ClientWidth = 1400
Position = poDefault
- ExplicitLeft = -549
ExplicitWidth = 1416
ExplicitHeight = 606
PixelsPerInch = 96
@@ -144,7 +143,7 @@ inherited frmDyeGreyClothStkStats: TfrmDyeGreyClothStkStats
Width = 100
Height = 20
TabOrder = 1
- OnChange = TBFindClick
+ OnKeyPress = finishDescriptionKeyPress
end
object BegDate: TDateTimePicker
Left = 77
@@ -173,6 +172,7 @@ inherited frmDyeGreyClothStkStats: TfrmDyeGreyClothStkStats
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
+ ExplicitTop = 111
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -303,7 +303,7 @@ inherited frmDyeGreyClothStkStats: TfrmDyeGreyClothStkStats
Width = 104
end
object Tv1IOTime: TcxGridDBColumn
- Caption = #22383#24067#20837#24211#26102#38388
+ Caption = #22383#24067#20837#24211#26085#26399
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -348,6 +348,41 @@ inherited frmDyeGreyClothStkStats: TfrmDyeGreyClothStkStats
HeaderAlignmentHorz = taCenter
Width = 85
end
+ object Tv1CPRKQty: TcxGridDBColumn
+ Caption = #25104#21697#20837#24211#25968#37327
+ DataBinding.FieldName = 'CPRKQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1CPRKPiece: TcxGridDBColumn
+ Caption = #25104#21697#20837#24211#21305#25968
+ DataBinding.FieldName = 'CPRKPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1CPCKQty: TcxGridDBColumn
+ Caption = #25104#21697#20986#24211#25968#37327
+ DataBinding.FieldName = 'CPCKQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1CPCKPiece: TcxGridDBColumn
+ Caption = #25104#21697#20986#24211#21305#25968
+ DataBinding.FieldName = 'CPCKPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1CPCKIOTime: TcxGridDBColumn
+ Caption = #25104#21697#20986#24211#26102#38388
+ DataBinding.FieldName = 'CPCKIOTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #32553#29575
diff --git a/F01染色坯布仓库/U_DyeGreyClothStkStats.pas b/F01染色坯布仓库/U_DyeGreyClothStkStats.pas
index aff6f04..8936176 100644
--- a/F01染色坯布仓库/U_DyeGreyClothStkStats.pas
+++ b/F01染色坯布仓库/U_DyeGreyClothStkStats.pas
@@ -58,6 +58,11 @@ type
EndDate: TDateTimePicker;
Tv1CKIOTime: TcxGridDBColumn;
TbSave: TToolButton;
+ Tv1CPRKQty: TcxGridDBColumn;
+ Tv1CPRKPiece: TcxGridDBColumn;
+ Tv1CPCKQty: TcxGridDBColumn;
+ Tv1CPCKPiece: TcxGridDBColumn;
+ Tv1CPCKIOTime: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@@ -78,6 +83,7 @@ type
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
procedure TbExportClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
+ procedure finishDescriptionKeyPress(Sender: TObject; var Key: Char);
private
procedure InitGrid();
function SaveData(): Boolean;
@@ -103,6 +109,16 @@ begin
frmDyeGreyClothStkStats := nil;
end;
+procedure TfrmDyeGreyClothStkStats.finishDescriptionKeyPress(Sender: TObject;
+ var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ TBFind.Click;
+ end;
+
+end;
+
procedure TfrmDyeGreyClothStkStats.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@@ -169,7 +185,7 @@ end;
procedure TfrmDyeGreyClothStkStats.FormShow(Sender: TObject);
begin
inherited;
- ReadCxGrid(trim(Self.Caption), Tv1, 'ͳ');
+// ReadCxGrid(trim(Self.Caption), Tv1, 'ͳ');
BegDate.DateTime := SGetServerDate(ADOQueryCmd) - 2;
EndDate.DateTime := SGetServerDate(ADOQueryCmd);
InitGrid();
diff --git a/F01染色坯布仓库/U_GetDllForm.pas b/F01染色坯布仓库/U_GetDllForm.pas
index c515314..220955e 100644
--- a/F01染色坯布仓库/U_GetDllForm.pas
+++ b/F01染色坯布仓库/U_GetDllForm.pas
@@ -165,7 +165,7 @@ begin
end;
end;
- 411: //ͳ
+ 411: //ƻͳ
begin
with TfrmDyeGreyClothStkStats.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
diff --git a/F02染色计划单/DyePlan.dpr b/F02染色计划单/DyePlan.dpr
index c7e9359..8da058a 100644
--- a/F02染色计划单/DyePlan.dpr
+++ b/F02染色计划单/DyePlan.dpr
@@ -40,7 +40,9 @@ uses
U_DyeProcessDefin in 'U_DyeProcessDefin.pas' {frmDyeProcessDefin},
U_ProductInfoSel in '..\A00ͨô\U_ProductInfoSel.pas' {frmProductInfoSel},
U_CraftSel in 'U_CraftSel.pas' {frmCraftSel},
- U_DyeSimpleTechnicsList in 'U_DyeSimpleTechnicsList.pas' {frmDyeSimpleTechnicsList};
+ U_DyeSimpleTechnicsList in 'U_DyeSimpleTechnicsList.pas' {frmDyeSimpleTechnicsList},
+ U_DyeTechnicsinputKaika in 'U_DyeTechnicsinputKaika.pas' {frmDyeTechnicsinputKaika},
+ U_DyeSimpleTechnicsKaiKa in 'U_DyeSimpleTechnicsKaiKa.pas' {frmDyeSimpleTechnicsKaiKa};
{$R *.res}
diff --git a/F02染色计划单/DyePlan.dproj b/F02染色计划单/DyePlan.dproj
index 36834ba..e55f5ea 100644
--- a/F02染色计划单/DyePlan.dproj
+++ b/F02染色计划单/DyePlan.dproj
@@ -199,6 +199,14 @@
dfm
+
+
+ dfm
+
+
+
+ dfm
+
Cfg_2
Base
diff --git a/F02染色计划单/DyePlan.dproj.local b/F02染色计划单/DyePlan.dproj.local
index 4461dc0..745291f 100644
--- a/F02染色计划单/DyePlan.dproj.local
+++ b/F02染色计划单/DyePlan.dproj.local
@@ -30,13 +30,14 @@
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas
1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas
1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas
1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas
+ 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm
+ 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
@@ -44,22 +45,23 @@
1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm
1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm
- 1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=
+ 1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas
1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.pas
1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas
+ 1899/12/30 00:00:00.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.pas
1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas
1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899/12/30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas
- 1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas
- 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas
+ 1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas
1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas
2025/09/28 12:18:54.000.943,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeSimpleTechnicsList.pas
+ 2025/11/01 09:33:01.000.459,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeTechnicsinputKaika.pas
+ 2025/11/01 09:39:35.000.613,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeSimpleTechnicsKaiKa.pas
@@ -131,5 +133,9 @@
+
+
+
+
diff --git a/F02染色计划单/DyePlan.identcache b/F02染色计划单/DyePlan.identcache
index 74747d6..8493bfa 100644
Binary files a/F02染色计划单/DyePlan.identcache and b/F02染色计划单/DyePlan.identcache differ
diff --git a/F02染色计划单/U_CraftSel.dfm b/F02染色计划单/U_CraftSel.dfm
index 8e011e7..afc908d 100644
--- a/F02染色计划单/U_CraftSel.dfm
+++ b/F02染色计划单/U_CraftSel.dfm
@@ -10,6 +10,7 @@ inherited frmCraftSel: TfrmCraftSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
+ OnKeyDown = FormKeyDown
ExplicitWidth = 909
ExplicitHeight = 597
PixelsPerInch = 96
@@ -22,6 +23,7 @@ inherited frmCraftSel: TfrmCraftSel
Align = alClient
TabOrder = 0
object TV1: TcxGridDBTableView
+ OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
diff --git a/F02染色计划单/U_CraftSel.pas b/F02染色计划单/U_CraftSel.pas
index 56a679b..9dbff8e 100644
--- a/F02染色计划单/U_CraftSel.pas
+++ b/F02染色计划单/U_CraftSel.pas
@@ -63,6 +63,8 @@ type
procedure TBSaveFormatClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure DTMNoChange(Sender: TObject);
+ procedure TV1DblClick(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
procedure InitGrid();
{ Private declarations }
@@ -142,7 +144,7 @@ begin
InitGrid();
ReadCxGrid(self.Caption + 'TV1', TV1, 'Ϣѡ');
-
+ KeyPreview := True;
end;
procedure TfrmCraftSel.TBCloseClick(Sender: TObject);
@@ -169,11 +171,28 @@ begin
ModalResult := 1;
end;
+procedure TfrmCraftSel.TV1DblClick(Sender: TObject);
+begin
+ if CDS_1.IsEmpty then
+ Exit;
+ ModalResult := 1;
+end;
+
procedure TfrmCraftSel.FormDestroy(Sender: TObject);
begin
inherited;
frmCraftSel := nil;
end;
+procedure TfrmCraftSel.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
end.
diff --git a/F02染色计划单/U_DyeCardList.dfm b/F02染色计划单/U_DyeCardList.dfm
index 7b82c5b..626d961 100644
--- a/F02染色计划单/U_DyeCardList.dfm
+++ b/F02染色计划单/U_DyeCardList.dfm
@@ -2,7 +2,6 @@ inherited frmDyeCardList: TfrmDyeCardList
Caption = #29983#20135#27969#31243#21345
ClientHeight = 632
ClientWidth = 1503
- ExplicitTop = -2
ExplicitWidth = 1519
ExplicitHeight = 671
PixelsPerInch = 96
@@ -170,7 +169,6 @@ inherited frmDyeCardList: TfrmDyeCardList
Color = clWhite
ParentBackground = False
TabOrder = 1
- ExplicitTop = 32
object Label1: TLabel
Left = 23
Top = 12
@@ -454,7 +452,6 @@ inherited frmDyeCardList: TfrmDyeCardList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
- ExplicitTop = 125
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -760,7 +757,6 @@ inherited frmDyeCardList: TfrmDyeCardList
#24050#23436#25104
#20840#37096)
OnChange = cxTabControl1Change
- ExplicitTop = 96
ClientRectBottom = 22
ClientRectRight = 1503
ClientRectTop = 19
diff --git a/F02染色计划单/U_DyePlanCardInput.dfm b/F02染色计划单/U_DyePlanCardInput.dfm
index bd9c42b..3afb0ad 100644
--- a/F02染色计划单/U_DyePlanCardInput.dfm
+++ b/F02染色计划单/U_DyePlanCardInput.dfm
@@ -8,6 +8,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Name = #23435#20307
Position = poMainFormCenter
OnClose = FormClose
+ OnKeyDown = FormKeyDown
ExplicitWidth = 1464
ExplicitHeight = 828
PixelsPerInch = 96
@@ -173,22 +174,22 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
end
object PCType: TComboBox
Left = 683
- Top = 12
+ Top = 10
Width = 93
Height = 20
- Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
- ItemIndex = 0
+ ItemIndex = 2
ParentFont = False
TabOrder = 3
- Text = #27491#24120#21345
+ Text = #22806#22238#20462
Items.Strings = (
#27491#24120#21345
- #21069#36947#21345)
+ #26679#24067#21345
+ #22806#22238#20462)
end
object PCQty: TEdit
Tag = 2
@@ -232,6 +233,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
+ OnClick = avgCardClick
end
end
object pnlOrder: TPanel
@@ -285,7 +287,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
ParentFont = False
end
object Label11: TLabel
- Left = 721
+ Left = 743
Top = 11
Width = 26
Height = 12
@@ -311,7 +313,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
ParentFont = False
end
object Label24: TLabel
- Left = 876
+ Left = 898
Top = 11
Width = 52
Height = 12
@@ -324,7 +326,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
ParentFont = False
end
object Label2: TLabel
- Left = 1068
+ Left = 1090
Top = 10
Width = 52
Height = 12
@@ -389,6 +391,20 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Style = [fsBold]
ParentFont = False
end
+ object Label12: TLabel
+ Left = 892
+ Top = 45
+ Width = 52
+ Height = 12
+ Caption = #24037#33402#35201#27714
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMaroon
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ Visible = False
+ end
object OrderNo: TBtnEditA
Tag = 2
Left = 101
@@ -435,7 +451,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
end
object C_COLORNO: TEdit
Tag = 2
- Left = 753
+ Left = 775
Top = 7
Width = 100
Height = 20
@@ -447,24 +463,9 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
ParentFont = False
TabOrder = 3
end
- object C_Color: TComboBox
- Left = 590
- Top = 7
- Width = 117
- Height = 20
- Style = csDropDownList
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnChange = C_ColorChange
- end
object OrdQty: TEdit
Tag = 2
- Left = 930
+ Left = 952
Top = 7
Width = 81
Height = 20
@@ -475,11 +476,11 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
- TabOrder = 5
+ TabOrder = 4
end
object OrdUnit: TEdit
Tag = 2
- Left = 1009
+ Left = 1031
Top = 7
Width = 41
Height = 20
@@ -490,11 +491,11 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
- TabOrder = 6
+ TabOrder = 5
end
object OrdPiece: TEdit
Tag = 2
- Left = 1122
+ Left = 1148
Top = 6
Width = 81
Height = 20
@@ -505,7 +506,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
- TabOrder = 7
+ TabOrder = 6
end
object DTMPSlist: TBtnEditA
Left = 307
@@ -519,7 +520,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Style = []
ParentFont = False
ReadOnly = True
- TabOrder = 8
+ TabOrder = 7
OnBtnClick = DTMPSlistBtnClick
end
object C_Name: TEdit
@@ -534,7 +535,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
- TabOrder = 9
+ TabOrder = 8
end
object DTMID: TEdit
Tag = 2
@@ -548,12 +549,12 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
- TabOrder = 10
+ TabOrder = 9
Visible = False
end
object CINote: TEdit
Tag = 2
- Left = 782
+ Left = 781
Top = 37
Width = 100
Height = 20
@@ -563,7 +564,36 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
+ TabOrder = 10
+ end
+ object C_description: TEdit
+ Tag = 2
+ Left = 950
+ Top = 33
+ Width = 100
+ Height = 20
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clBlue
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
TabOrder = 11
+ Visible = False
+ end
+ object C_COLOR: TEdit
+ Tag = 2
+ Left = 592
+ Top = 6
+ Width = 129
+ Height = 20
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clBlue
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 12
end
end
object cxGrid2: TcxGrid
@@ -633,6 +663,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 80
end
object Tv1OrderNo: TcxGridDBColumn
@@ -640,7 +671,8 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 78
+ Options.Editing = False
+ Width = 115
end
object v2Column1: TcxGridDBColumn
Tag = 2
@@ -663,7 +695,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 84
+ Width = 115
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21305#25968
@@ -673,7 +705,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue
- Width = 86
+ Width = 91
end
object v2Column6: TcxGridDBColumn
Tag = 2
@@ -685,7 +717,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue
- Width = 84
+ Width = 102
end
object cxGridDBColumn6: TcxGridDBColumn
Tag = 2
@@ -700,7 +732,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 51
+ Width = 106
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #25104#21697#38376#24133
@@ -708,7 +740,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 66
+ Width = 104
end
object v1Column8: TcxGridDBColumn
Tag = 2
@@ -726,7 +758,14 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 70
+ Width = 100
+ end
+ object TV2C_description: TcxGridDBColumn
+ Caption = #24037#33402#35201#27714
+ DataBinding.FieldName = 'C_description'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
end
end
object cxGrid2Level1: TcxGridLevel
@@ -1244,6 +1283,14 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
HeaderAlignmentHorz = taCenter
Width = 32
end
+ object TV1KaZu: TcxGridDBColumn
+ Caption = #21345#32452#21495
+ DataBinding.FieldName = 'KaZu'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
object V1Column1: TcxGridDBColumn
Tag = 7
Caption = #21345#21495
@@ -1337,7 +1384,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 78
+ Width = 142
end
object V1Column6: TcxGridDBColumn
Caption = #21333#20301
@@ -1365,7 +1412,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.FieldName = 'PCNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 195
+ Width = 126
end
object TV1Column10: TcxGridDBColumn
Tag = 7
@@ -1400,6 +1447,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 70
end
object TV1Column13: TcxGridDBColumn
Tag = 7
@@ -1408,6 +1456,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 70
end
object TV1Column14: TcxGridDBColumn
Tag = 7
@@ -1416,6 +1465,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 70
end
object TV1Column15: TcxGridDBColumn
Tag = 7
@@ -1424,6 +1474,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 70
end
object TV1Column16: TcxGridDBColumn
Tag = 7
@@ -1432,6 +1483,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 70
end
object TV1Column17: TcxGridDBColumn
Tag = 7
@@ -1440,6 +1492,22 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 70
+ end
+ object TV1C_description: TcxGridDBColumn
+ Caption = #24037#33402#35201#27714
+ DataBinding.FieldName = 'C_description'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 70
+ end
+ object TV1CINote: TcxGridDBColumn
+ Caption = #20135#21697#20449#24687#22791#27880
+ DataBinding.FieldName = 'CINote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
@@ -1474,7 +1542,6 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
- Visible = False
OnClick = ToolButton5Click
end
object ToolButton1: TToolButton
@@ -1596,6 +1663,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
end
end
object GPM_2: TcxGridPopupMenu
+ Grid = cxGrid2
PopupMenus = <>
Left = 408
Top = 144
diff --git a/F02染色计划单/U_DyePlanCardInput.pas b/F02染色计划单/U_DyePlanCardInput.pas
index 0d03468..7c8fdbe 100644
--- a/F02染色计划单/U_DyePlanCardInput.pas
+++ b/F02染色计划单/U_DyePlanCardInput.pas
@@ -151,7 +151,6 @@ type
C_Width: TEdit;
C_GramWeight: TEdit;
C_COLORNO: TEdit;
- C_Color: TComboBox;
Label24: TLabel;
OrdQty: TEdit;
OrdUnit: TEdit;
@@ -171,6 +170,13 @@ type
avgCard: TButton;
Label8: TLabel;
CINote: TEdit;
+ TV1KaZu: TcxGridDBColumn;
+ TV2C_description: TcxGridDBColumn;
+ C_description: TEdit;
+ Label12: TLabel;
+ TV1C_description: TcxGridDBColumn;
+ TV1CINote: TcxGridDBColumn;
+ C_COLOR: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@@ -189,11 +195,13 @@ type
procedure Button1Click(Sender: TObject);
procedure TV3DblClick(Sender: TObject);
procedure OrderNoBtnClick(Sender: TObject);
- procedure C_ColorChange(Sender: TObject);
+ procedure C_COLORChange(Sender: TObject);
procedure TV3Column1PropertiesEditValueChanged(Sender: TObject);
procedure DTMPSlistBtnClick(Sender: TObject);
procedure TV2DblClick(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+ procedure avgCardClick(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
FC_Code: string;
FRollNum: integer;
@@ -205,6 +213,9 @@ type
function GetCard(): Boolean;
procedure InitRepairCard(PPCID: string);
{ Private declarations }
+ procedure ShowDistributionResult(cardCount: Integer; pieceArray, qtyArray: array of Double);
+ procedure CalculateDistribution(totalValue: Double; cardCount: Integer; var resultArray: array of Double);
+
public
FWorkshop, FPCIDS, FMainID: string;
@@ -337,13 +348,13 @@ begin
Filtered := False;
Close;
sql.Clear;
- sql.Add(' select OrderNo, C_Name, F_Name, QtyUnit, Material,SUM(StkQty) as StkQty, SUM(StkPiece) as StkPiece ');
- sql.Add(' ,IOTime = min(IOTime) ,IOType = min(ioType) ,C_Width = min(C_Width) ,F_Width = min(F_Width)');
- sql.Add(' from BS_Cloth_IO A where isnull(STKName,'''')=''Ⱦɫ'' ');
- SQL.Add(' and A.IOFlag='''' ');
+ sql.Add(' select A.OrderNo, A.C_Name, A.F_Name, A.QtyUnit, A.Material,SUM(A.StkQty) as StkQty, SUM(A.StkPiece) as StkPiece ');
+ sql.Add(' ,IOTime = min(A.IOTime) ,IOType = min(A.ioType) ,C_Width = min(A.C_Width) ,F_Width = min(A.F_Width),C_description = min(B.C_description)');
+ sql.Add(' from BS_Cloth_IO A left join Dye_Plan_Main B on A.OrderNo= B.OrderNo ');
+ SQL.Add(' where isnull(A.STKName,'''')=''Ⱦɫ'' and A.IOFlag='''' ');
// SQL.Add(' and EXISTS(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FGC_STKID) + ','','' ) X where X.RTValue=A.StkId AND ISNULL(RTValue,'''')<>'''') ');
SQL.Add(' and A.OrderNo= ' + QuotedStr(trim(OrderNo.Text)));
- SQL.Add(' group by OrderNo, C_Name, F_Name, QtyUnit, Material ');
+ SQL.Add(' group by A.OrderNo, A.C_Name, A.F_Name, A.QtyUnit, A.Material ');
// ShowMessage(sql.Text);
Open;
end;
@@ -408,15 +419,6 @@ end;
procedure TfrmDyePlanCardInput.OrderNoBtnClick(Sender: TObject);
begin
- with ADOQueryTmp do
- begin
- close;
- sql.Clear;
- sql.Add('exec P_OrderCR');
-
-// ShowMessage(sql.Text);
- execsql;
- end;
frmProductOrderListSel := TfrmProductOrderListSel.create(self);
with frmProductOrderListSel do
@@ -511,6 +513,16 @@ begin
frmDyePlanCardInput := nil;
end;
+procedure TfrmDyePlanCardInput.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmDyePlanCardInput.DTMPSlistBtnClick(Sender: TObject);
begin
try
@@ -538,6 +550,228 @@ begin
end;
end;
+procedure TfrmDyePlanCardInput.avgCardClick(Sender: TObject);
+var
+ i, k: integer;
+ maxId, KZmaxID: string;
+ totalPieces, totalQty: Double;
+ pieceArray: array of Double;
+ qtyArray: array of Double;
+ mQRCode : string;
+begin
+ // ֤
+ if trim(C_Name.Text) = '' then
+ begin
+ application.MessageBox('ƷƲΪգ', 'ʾϢ', MB_ICONERROR);
+ exit;
+ end;
+
+ if (StrToFloatDef(PCPiece.Text, 0) + StrToFloatDef(PCQty.Text, 0)) = 0 then
+ begin
+ application.MessageBox('ƥܶΪ㣡', 'ʾϢ', MB_OK);
+ exit;
+ end;
+
+ if DTMPSlist.Text = '' then
+ begin
+ application.MessageBox('ƷΪգ', 'ʾϢ', MB_OK);
+ exit;
+ end;
+
+ if GetLSNo(ADOQueryCmd, KZmaxID, 'KZ', 'Dye_Plan_Card_KZ', 3, 1) = False then
+ begin
+ Application.MessageBox('ȡʧ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ // ȡ
+ if strtointdef(trim(carNum.text), 0) <= 1 then
+ k := 1
+ else
+ k := strtointdef(trim(carNum.text), 0);
+
+ // ȡƥ
+ totalPieces := StrToFloatDef(PCPiece.Text, 0);
+ totalQty := StrToFloatDef(PCQty.Text, 0);
+
+ // Ԥ
+ SetLength(pieceArray, k);
+ SetLength(qtyArray, k);
+
+ // ÿſķֵ
+ CalculateDistribution(totalPieces, k, pieceArray);
+ CalculateDistribution(totalQty, k, qtyArray);
+
+ CDS_Color.Locate('C_Color', C_Color.Text, []);
+ CDS_1.Last;
+
+ for i := 0 to k - 1 do
+ begin
+ if GetLSNo(ADOQueryCmd, maxId, 'CZ', 'Dye_Plan_Card', 3, 1) = False then
+ begin
+ Application.MessageBox('ȡʧ!', 'ʾ', 0);
+ Exit;
+ end;
+ FPCIDS := FPCIDS + maxId + ';';
+
+ mQRCode := FC_Name + '|' + OrderNo.Text + '|0|';
+ mQRCode := mQRCode + FormatDateTime('yyyymmddhhnnss', SGetServerDateTime(ADOQueryBaseTemp));
+ mQRCode := mQRCode + '|0|';
+ mQRCode := mQRCode + OrderNo.Text + '*0|0';
+
+
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('select * from Dye_Plan_Card A where 1=2');
+ Open;
+ Append;
+ FieldByName('OrderNo').Value := OrderNo.Text;
+ FieldByName('Mainid').Value := FMainid;
+ FieldByName('Filler').Value := trim(DName);
+ FieldByName('Workshop').Value := trim(FWorkshop);
+ FieldByName('PCType').Value := trim(PCType.Text);
+ FieldByName('PCID').Value := trim(maxId);
+ FieldByName('KaZu').Value := trim(KZmaxID);
+ FieldByName('PCTime').Value := formatdateTime('yyyy-MM-dd', PCTime.DateTime);
+ FieldByName('GC_BatchNo').Value := trim(FGC_BatchNo);
+ FieldByName('GC_Piece').Value := trim(FGC_Piece);
+ FieldByName('GC_STKID').Value := trim(FGC_STKID);
+ FieldByName('GC_Position').Value := trim(FGC_Position);
+ FieldByName('DTMPSlist').Value := trim(DTMPSlist.Text);
+ FieldByName('C_description').Value := trim(C_description.Text);
+
+ FieldByName('bzunit').Value := trim(Fbzunit);
+ FieldByName('CustNo').Value := trim(FFromCoNo);
+ FieldByName('CustName').Value := trim(FFromCoName);
+ FieldByName('Saleser').Value := trim(FSaleser);
+ FieldByName('C_Name').Value := trim(FC_Name);
+ FieldByName('C_Code').Value := trim(FC_Code);
+ FieldByName('C_GramWeight').Value := trim(C_GramWeight.Text);
+ FieldByName('C_Width').Value := trim(C_Width.Text);
+ FieldByName('C_Color').Value := trim(C_Color.Text);
+ FieldByName('PCUnit').Value := trim(OrdUnit.Text);
+ FieldByName('C_ColorNo').Value := trim(C_ColorNo.Text);
+
+ FieldByName('CINote').Value := trim(CINote.Text);
+
+ // ʹԤƥ
+ FieldByName('PCPiece').Value := pieceArray[i];
+ FieldByName('PCQty').Value := qtyArray[i];
+
+ FieldByName('batchno').Value := INTTOSTR(k) + '-' + INTTOSTR(i + 1);
+
+ FieldByName('QRCode').Value := trim(mQRCode);
+ FieldByName('PrtCount').Value := 0;
+
+ post;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_Dye_GreyCloth_Out ');
+ Sql.Add('@PCID=' + quotedstr(trim(maxId)));
+ Sql.Add(',@Filler=' + quotedstr(trim(DName)));
+ Open;
+ end;
+
+ if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+ begin
+ FGC_STKID := '';
+ raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_Dye_Plan_UpdateOrderNo ');
+ Sql.Add('@OrderNo=' + quotedstr(Trim(OrderNo.Text)));
+ Open;
+ end;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_Dye_Cloth_GX @carno=' + QuotedStr(trim(KZmaxID)));
+ sql.add(',@dname=' + QuotedStr(trim(dname)));
+ SQL.Add(',@C_Name=' + QuotedStr(Trim(C_Name.Text)));
+ SQL.Add(',@OrderNo=' + QuotedStr(Trim(OrderNo.Text)));
+ SQL.Add(',@DTMID=' + QuotedStr(Trim(DTMID.Text)));
+ execsql;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ SQL.Clear;
+ SQL.Add('EXEC P_InsertGxToKaika @PCID = ' + quotedstr(trim(KZmaxID)));
+ ExecSQL;
+ end;
+
+ InitCard();
+ InitGreyClothStk();
+
+ // ʾϢ
+ ShowDistributionResult(k, pieceArray, qtyArray);
+end;
+
+
+// 㺯
+procedure TfrmDyePlanCardInput.CalculateDistribution(totalValue: Double; cardCount: Integer; var resultArray: array of Double);
+var
+ i: Integer;
+ baseValue, remainder: Double;
+ intBaseValue, intRemainder: Integer;
+begin
+ if cardCount <= 0 then
+ Exit;
+
+ //
+ if Frac(totalValue) = 0 then
+ begin
+ intBaseValue := Trunc(totalValue) div cardCount;
+ intRemainder := Trunc(totalValue) mod cardCount;
+
+ for i := 0 to cardCount - 1 do
+ begin
+ if i < intRemainder then
+ resultArray[i] := intBaseValue + 1
+ else
+ resultArray[i] := intBaseValue;
+ end;
+ end;
+end;
+
+// ʾ
+procedure TfrmDyePlanCardInput.ShowDistributionResult(cardCount: Integer; pieceArray, qtyArray: array of Double);
+var
+ i: Integer;
+ distributionInfo: string;
+begin
+ distributionInfo := 'ɹ' + IntToStr(cardCount) + 'ſ' + #13#10;
+
+ for i := 0 to cardCount - 1 do
+ begin
+ distributionInfo := distributionInfo + Format('%d: %.0fƥ, %.2f' + #13#10, [i + 1, pieceArray[i], qtyArray[i]]);
+ end;
+
+ ShowMessage(distributionInfo);
+end;
+
procedure TfrmDyePlanCardInput.Button1Click(Sender: TObject);
var
maxId: string;
@@ -637,7 +871,8 @@ end;
procedure TfrmDyePlanCardInput.Button2Click(Sender: TObject);
var
i, k, fhxInt: integer;
- maxId, maxno: string;
+ maxId, maxno, KZmaxID: string;
+ mQRCode : string;
begin
if trim(C_Name.Text) = '' then
@@ -656,6 +891,12 @@ begin
exit;
end;
+ if GetLSNo(ADOQueryCmd, KZmaxID, 'KZ', 'Dye_Plan_Card_KZ', 3, 1) = False then
+ begin
+ Application.MessageBox('ȡʧ!', 'ʾ', 0);
+ Exit;
+ end;
+
if strtointdef(trim(carNum.text), 0) <= 1 then
k := 1
else
@@ -674,8 +915,14 @@ begin
// if not GetLSNo(ADOQueryCmd, maxno, 'PC', 'BS_Cloth_IO', 3, 1) then
// raise Exception.Create('ȡȾɫʧܣ');
+ mQRCode := FC_Name + '|' + OrderNo.Text + '|0|';
+ mQRCode := mQRCode + FormatDateTime('yyyymmddhhnnss', SGetServerDateTime(ADOQueryBaseTemp));
+ mQRCode := mQRCode + '|0|';
+ mQRCode := mQRCode + OrderNo.Text + '*0|0';
+
try
ADOQueryCmd.Connection.BeginTrans;
+
with ADOQueryCmd do
begin
Close;
@@ -691,14 +938,17 @@ begin
FieldByName('Workshop').Value := trim(FWorkshop);
FieldByName('PCType').Value := trim(PCType.Text);
FieldByName('PCID').Value := trim(maxId);
+ FieldByName('KaZu').Value := trim(KZmaxID);
FieldByName('PCTime').Value := formatdateTime('yyyy-MM-dd', PCTime.DateTime);
FieldByName('GC_BatchNo').Value := trim(FGC_BatchNo);
FieldByName('GC_Piece').Value := trim(FGC_Piece);
FieldByName('GC_STKID').Value := trim(FGC_STKID);
FieldByName('GC_Position').Value := trim(FGC_Position);
FieldByName('DTMPSlist').Value := trim(DTMPSlist.Text);
-
+ FieldByName('C_description').Value := trim(C_description.Text);
FieldByName('bzunit').Value := trim(Fbzunit);
+
+ FieldByName('CINote').Value := trim(CINote.Text);
// FieldByName('STATUS').Value := '9';
FieldByName('CustNo').Value := trim(FFromCoNo);
@@ -715,6 +965,10 @@ begin
FieldByName('PCQty').Value := StrtoFloatDef(PCQty.Text, 0);
// ShowMessage(FieldByName('PCQty').Value);
FieldByName('batchno').Value := INTTOSTR(k) + '-' + INTTOSTR(i);
+
+
+ FieldByName('QRCode').Value := trim(mQRCode);
+ FieldByName('PrtCount').Value := 0;
post;
end;
@@ -738,17 +992,6 @@ begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
end;
- with ADOQueryCmd do
- begin
- Close;
- Sql.Clear;
- Sql.Add('exec P_Dye_Cloth_GX @carno=' + QuotedStr(trim(maxId)));
- sql.add(',@dname=' + QuotedStr(trim(dname)));
- SQL.Add(',@C_Name=' + QuotedStr(Trim(C_Name.Text)));
- SQL.Add(',@OrderNo=' + QuotedStr(Trim(OrderNo.Text)));
- SQL.Add(',@DTMID=' + QuotedStr(Trim(DTMID.Text)));
- execsql;
- end;
with ADOQueryCmd do
begin
@@ -761,11 +1004,30 @@ begin
end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_Dye_Cloth_GX @carno=' + QuotedStr(trim(KZmaxID)));
+ sql.add(',@dname=' + QuotedStr(trim(dname)));
+ SQL.Add(',@C_Name=' + QuotedStr(Trim(C_Name.Text)));
+ SQL.Add(',@OrderNo=' + QuotedStr(Trim(OrderNo.Text)));
+ SQL.Add(',@DTMID=' + QuotedStr(Trim(DTMID.Text)));
+ execsql;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ SQL.Clear;
+ SQL.Add('EXEC P_InsertGxToKaika @PCID = ' + quotedstr(trim(KZmaxID)));
+ ExecSQL;
+ end;
+
InitCard();
InitGreyClothStk();
end;
-procedure TfrmDyePlanCardInput.C_ColorChange(Sender: TObject);
+procedure TfrmDyePlanCardInput.C_COLORChange(Sender: TObject);
begin
CDS_Color.Locate('C_Color', C_Color.Text, []);
C_COLOR.Text := CDS_Color.FieldByName('C_COLOR').AsString;
@@ -791,10 +1053,12 @@ begin
inherited;
ReadCxGrid(self.Caption + 'TV1', Tv1, 'ָʾ');
ReadCxGrid(self.Caption + 'TV2', Tv2, 'ָʾ');
+ ReadCxGrid(self.Caption + 'TV3', Tv3, 'ָʾ');
InitOrder();
InitCard();
InitGreyClothStk();
InitRepairCard('');
+ KeyPreview := True;
end;
procedure TfrmDyePlanCardInput.ToolButton1Click(Sender: TObject);
@@ -857,6 +1121,7 @@ procedure TfrmDyePlanCardInput.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + 'TV1', Tv1, 'ָʾ');
WriteCxGrid(self.Caption + 'TV2', Tv2, 'ָʾ');
+ WriteCxGrid(self.Caption + 'TV3', Tv3, 'ָʾ');
end;
@@ -915,12 +1180,38 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
- with ADOQueryCmd do
+ with ADOQueryTmp do
begin
Close;
- Sql.Clear;
- Sql.Add('delete from Dye_Plan_glide where PCID = ' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
- ExecSQL;
+ SQL.Clear;
+ SQL.Add('select * from Dye_Plan_card where KaZu = ' + QuotedStr(Trim(CDS_1.FieldByName('KaZu').AsString)));
+ Open;
+ end;
+ if ADOQueryTmp.IsEmpty then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('delete from Dye_Plan_glide where PCID = ' + quotedstr(Trim(CDS_1.fieldbyname('KaZu').AsString)));
+ ExecSQL;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('delete from Bs_Cloth_GY_Main_Kaika where PCID = ' + quotedstr(Trim(CDS_1.fieldbyname('KaZu').AsString)));
+ ExecSQL;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('delete from Bs_Cloth_GY_Sub_Kaika where PCID = ' + quotedstr(Trim(CDS_1.fieldbyname('KaZu').AsString)));
+ ExecSQL;
+ end;
end;
if (Trim(CDS_1.fieldbyname('PCType').AsString) = '') or (Trim(CDS_1.fieldbyname('PCType').AsString) = 'ǰ') then
@@ -981,90 +1272,185 @@ begin
end;
procedure TfrmDyePlanCardInput.ToolButton5Click(Sender: TObject);
+var
+ HasSaved: Boolean; // ¼Ƿɹ
begin
+ HasSaved := False; // ʼ־
try
CDS_1.DisableControls;
CDS_1.First;
while not CDS_1.Eof do
begin
- if CDS_1.Fieldbyname('Ssel').AsBoolean then
- begin
- ADOQueryCmd.Connection.BeginTrans;
- try
+// if CDS_1.Fieldbyname('Ssel').AsBoolean then
+// begin
+ ADOQueryCmd.Connection.BeginTrans;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Dye_Plan_Card A');
+ sql.Add('where PCID=''' + trim(CDS_1.fieldbyname('PCID').AsString) + '''');
+ open;
+ edit;
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
+ RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Dye_Plan_Card', 0);
+ post;
+ end;
+
+ if (Trim(CDS_1.fieldbyname('PCType').AsString) = '') or (Trim(CDS_1.fieldbyname('PCType').AsString) = 'ǰ') then
+ begin
with ADOQueryCmd do
begin
- close;
- sql.Clear;
- sql.Add('select * from Dye_Plan_Card A');
- sql.Add('where PCID=''' + trim(CDS_1.fieldbyname('PCID').AsString) + '''');
- open;
- edit;
- FieldByName('Editer').Value := Trim(DName);
- FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
- RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Dye_Plan_Card', 0);
- post;
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_Dye_GreyCloth_Out_Del ');
+ Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+ Open;
end;
-
- if (Trim(CDS_1.fieldbyname('PCType').AsString) = '') or (Trim(CDS_1.fieldbyname('PCType').AsString) = 'ǰ') then
+ if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+ raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+ with ADOQueryCmd do
begin
- with ADOQueryCmd do
- begin
- Close;
- Sql.Clear;
- Sql.Add('exec P_Dye_GreyCloth_Out_Del ');
- Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
- Open;
- end;
- if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
- raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
- with ADOQueryCmd do
- begin
- Close;
- Sql.Clear;
- Sql.Add('exec P_Dye_GreyCloth_Out ');
- Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
- Sql.Add(',@Filler=' + quotedstr(trim(DName)));
- Open;
- end;
- if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
- begin
- raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
- end;
- end
- else
- begin
- with ADOQueryCmd do
- begin
- Close;
- Sql.Clear;
- Sql.Add('exec P_Dye_Card_Move ');
- Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
- Open;
- end;
- if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
- begin
- raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
- end;
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_Dye_GreyCloth_Out ');
+ Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+ Sql.Add(',@Filler=' + quotedstr(trim(DName)));
+ Open;
+ end;
+ if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+ begin
+ raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+ end;
+ end
+ else
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_Dye_Card_Move ');
+ Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+ Open;
+ end;
+ if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+ begin
+ raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
-
- ADOQueryCmd.Connection.CommitTrans;
- except
- ADOQueryCmd.Connection.RollbackTrans;
- raise Exception.Create(PChar(Exception(ExceptObject).Message));
end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ HasSaved := True; // б
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ raise Exception.Create(PChar(Exception(ExceptObject).Message));
end;
+// end;
CDS_1.Next;
end;
CDS_1.EnableControls;
+
+ // ʾɹʾ
+ if HasSaved then
+ begin
+ Application.MessageBox('ɹ', 'ʾϢ', MB_OK + MB_ICONINFORMATION);
+ end;
+
InitCard();
InitGreyClothStk();
except
CDS_1.EnableControls;
- application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', MB_OK + MB_ICONERROR);
end;
-
end;
+//procedure TfrmDyePlanCardInput.ToolButton5Click(Sender: TObject);
+//begin
+//
+// try
+// CDS_1.DisableControls;
+// CDS_1.First;
+// while not CDS_1.Eof do
+// begin
+// if CDS_1.Fieldbyname('Ssel').AsBoolean then
+// begin
+// ADOQueryCmd.Connection.BeginTrans;
+// try
+// with ADOQueryCmd do
+// begin
+// close;
+// sql.Clear;
+// sql.Add('select * from Dye_Plan_Card A');
+// sql.Add('where PCID=''' + trim(CDS_1.fieldbyname('PCID').AsString) + '''');
+// open;
+// edit;
+// FieldByName('Editer').Value := Trim(DName);
+// FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
+// RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Dye_Plan_Card', 0);
+// post;
+// end;
+//
+// if (Trim(CDS_1.fieldbyname('PCType').AsString) = '') or (Trim(CDS_1.fieldbyname('PCType').AsString) = 'ǰ') then
+// begin
+// with ADOQueryCmd do
+// begin
+// Close;
+// Sql.Clear;
+// Sql.Add('exec P_Dye_GreyCloth_Out_Del ');
+// Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+// Open;
+// end;
+// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+// with ADOQueryCmd do
+// begin
+// Close;
+// Sql.Clear;
+// Sql.Add('exec P_Dye_GreyCloth_Out ');
+// Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+// Sql.Add(',@Filler=' + quotedstr(trim(DName)));
+// Open;
+// end;
+// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+// begin
+// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+// end;
+// end
+// else
+// begin
+// with ADOQueryCmd do
+// begin
+// Close;
+// Sql.Clear;
+// Sql.Add('exec P_Dye_Card_Move ');
+// Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+// Open;
+// end;
+// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+// begin
+// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+// end;
+// end;
+//
+// ADOQueryCmd.Connection.CommitTrans;
+// except
+// ADOQueryCmd.Connection.RollbackTrans;
+// raise Exception.Create(PChar(Exception(ExceptObject).Message));
+// end;
+// end;
+// CDS_1.Next;
+// end;
+// CDS_1.EnableControls;
+// InitCard();
+// InitGreyClothStk();
+// except
+// CDS_1.EnableControls;
+// application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+// end;
+//
+//end;
procedure TfrmDyePlanCardInput.TV2DblClick(Sender: TObject);
begin
@@ -1083,6 +1469,14 @@ begin
C_COLORNO.Text := ADOQueryTmp.FieldByName('C_COLORNO').AsString;
C_Name.Text := ADOQueryTmp.FieldByName('C_Name').AsString;
CINote.Text := ADOQueryTmp.FieldByName('CINote').AsString;
+ PCType.Text := '';
+
+ carnum.Text := '1';
+ PCPiece.Text := CDS_2.FieldByName('StkPiece').AsString;
+ PCQty.Text := CDS_2.FieldByName('STKQty').AsString;
+
+ C_description.Text := CDS_2.FieldByName('C_description').AsString;
+
if (ADOQueryTmp.FieldByName('DTMID').AsString = '') or (ADOQueryTmp.FieldByName('DTMID').AsString = null) then
begin
Application.MessageBox('δĬϹ', 'ʾϢ', MB_OK);
diff --git a/F02染色计划单/U_DyePlanCardList.dfm b/F02染色计划单/U_DyePlanCardList.dfm
index 88f6664..05d907a 100644
--- a/F02染色计划单/U_DyePlanCardList.dfm
+++ b/F02染色计划单/U_DyePlanCardList.dfm
@@ -2,6 +2,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Caption = #29983#20135#27969#31243#21345
ClientHeight = 632
ClientWidth = 1503
+ OnKeyDown = FormKeyDown
ExplicitWidth = 1519
ExplicitHeight = 671
PixelsPerInch = 96
@@ -101,16 +102,40 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
ImageIndex = 11
OnClick = btnnowcClick
end
- object TBPrint: TToolButton
+ object TbDetailGY: TToolButton
Left = 687
Top = 0
AutoSize = True
+ Caption = #35814#32454#24037#33402
+ ImageIndex = 8
+ OnClick = TbDetailGYClick
+ end
+ object TbSimpleGY: TToolButton
+ Left = 782
+ Top = 0
+ AutoSize = True
+ Caption = #31616#26131#24037#33402
+ ImageIndex = 8
+ OnClick = TbSimpleGYClick
+ end
+ object TbUpdateGY: TToolButton
+ Left = 877
+ Top = 0
+ AutoSize = True
+ Caption = #26356#26032#24037#33402
+ ImageIndex = 1
+ OnClick = TbUpdateGYClick
+ end
+ object TBPrint: TToolButton
+ Left = 972
+ Top = 0
+ AutoSize = True
Caption = #25171#21360#27969#31243#21345
ImageIndex = 21
OnClick = TBPrintClick
end
object TBExport: TToolButton
- Left = 794
+ Left = 1079
Top = 0
AutoSize = True
Caption = #23548#20986
@@ -118,7 +143,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
OnClick = TBExportClick
end
object ToolButton6: TToolButton
- Left = 865
+ Left = 1150
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -126,7 +151,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
OnClick = ToolButton6Click
end
object TBClose: TToolButton
- Left = 960
+ Left = 1245
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -386,7 +411,6 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
- ExplicitTop = 125
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -432,6 +456,13 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
HeaderAlignmentHorz = taCenter
Width = 50
end
+ object Tv1KaZu: TcxGridDBColumn
+ Caption = #21345#32452#21495
+ DataBinding.FieldName = 'KaZu'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
object v1Column10: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCID'
@@ -626,9 +657,15 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Width = 80
end
object v1Column13: TcxGridDBColumn
- Caption = #24037#24207#20449#24687
- DataBinding.FieldName = 'GlideList'
+ Caption = #24037#33402#20449#24687
+ DataBinding.FieldName = 'DTMPSlist'
DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 200
@@ -720,6 +757,27 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
HeaderAlignmentHorz = taCenter
Width = 80
end
+ object Tv1C_description: TcxGridDBColumn
+ Caption = #24037#33402#35201#27714
+ DataBinding.FieldName = 'C_description'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1CINote: TcxGridDBColumn
+ Caption = #20135#21697#20449#24687#22791#27880
+ DataBinding.FieldName = 'CINote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 131
+ end
+ object Tv1C_Color: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@@ -734,7 +792,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
- Properties.TabIndex = 3
+ Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
diff --git a/F02染色计划单/U_DyePlanCardList.pas b/F02染色计划单/U_DyePlanCardList.pas
index a4131bc..227f067 100644
--- a/F02染色计划单/U_DyePlanCardList.pas
+++ b/F02染色计划单/U_DyePlanCardList.pas
@@ -121,6 +121,13 @@ type
Tv1Chktime: TcxGridDBColumn;
Tv1TotalPCID: TcxGridDBColumn;
Tv1TotalPCIDNum: TcxGridDBColumn;
+ TbDetailGY: TToolButton;
+ Tv1KaZu: TcxGridDBColumn;
+ Tv1C_description: TcxGridDBColumn;
+ TbUpdateGY: TToolButton;
+ TbSimpleGY: TToolButton;
+ Tv1CINote: TcxGridDBColumn;
+ Tv1C_Color: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@@ -144,6 +151,10 @@ type
procedure tbeditClick(Sender: TObject);
procedure btnWCClick(Sender: TObject);
procedure btnnowcClick(Sender: TObject);
+ procedure TbDetailGYClick(Sender: TObject);
+ procedure TbUpdateGYClick(Sender: TObject);
+ procedure TbSimpleGYClick(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
DQdate: TDateTime;
procedure InitGrid();
@@ -151,6 +162,8 @@ type
procedure InitForm();
// procedure SetStatus();
procedure PrintCar(MPCID: string);
+ function UpdateQRCodeWithPrtCount(ADOQuery: TADOQuery; const PCID: string): Boolean;
+
{ Private declarations }
public
FFInt, FCloth: Integer;
@@ -165,7 +178,8 @@ var
implementation
uses
- U_DataLink, U_RTFun, U_DyePlanCardInput, U_LabelPrint;
+ U_DataLink, U_RTFun, U_DyePlanCardInput, U_LabelPrint, U_DyeTechnicsinputKaika,
+ U_DyeSimpleTechnicsKaiKa;
{$R *.dfm}
procedure TfrmDyePlanCardList.PrintCar(MPCID: string);
@@ -215,9 +229,12 @@ begin
tbadd.Enabled := true;
if Trim(canshu1) = '¼' then
begin
+ tchk.Visible := False;
+ tnochk.Visible := False;
case cxTabControl1.TabIndex of
0:
begin
+
tbedit.Enabled := true;
tbdel.Enabled := true;
@@ -272,6 +289,16 @@ begin
frmDyePlanCardList := nil;
end;
+procedure TfrmDyePlanCardList.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmDyePlanCardList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@@ -385,11 +412,11 @@ procedure TfrmDyePlanCardList.TBDelClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
- if (Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName)) and (dname <> 'ADMIN') then
- begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
- Exit;
- end;
+// if (Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName)) and (dname <> 'ADMIN') then
+// begin
+// Application.MessageBox('ܲ˵!', 'ʾ', 0);
+// Exit;
+// end;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('ûѡ!', 'ʾ', 0);
@@ -442,6 +469,22 @@ begin
ExecSQL;
end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('delete from Bs_Cloth_GY_Main_Kaika where PCID = ' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+ ExecSQL;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('delete from Bs_Cloth_GY_Sub_Kaika where PCID = ' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+ ExecSQL;
+ end;
+
if (Trim(CDS_1.fieldbyname('PCType').AsString) = '') or (Trim(CDS_1.fieldbyname('PCType').AsString) = 'ǰ') then
begin
with ADOQueryCmd do
@@ -505,6 +548,54 @@ begin
// SelExportData(Tv1,ADOQueryMain,self.Caption);
end;
+function TfrmDyePlanCardList.UpdateQRCodeWithPrtCount(ADOQuery: TADOQuery; const PCID: string): Boolean;
+var
+ mQRCode: string;
+ mPrtCount: Integer;
+ NewQRCode: string;
+begin
+ Result := False;
+
+ try
+ with ADOQuery do
+ begin
+ // ѯ
+ Close;
+ SQL.Clear;
+ SQL.Add('SELECT QRCode, PrtCount FROM Dye_Plan_Card WHERE PCID = ' + QuotedStr(Trim(PCID)));
+ Open;
+
+ if not IsEmpty then
+ begin
+ // ȡֵֶ
+ mQRCode := FieldByName('QRCode').AsString;
+ mPrtCount := FieldByName('PrtCount').AsInteger;
+
+ // QRCodeǷΪ
+ if mQRCode <> '' then
+ begin
+ // һλ滻ΪPrtCount
+ NewQRCode := Copy(mQRCode, 1, Length(mQRCode) - 1) + IntToStr(mPrtCount);
+
+ // ¼¼
+ Edit;
+ FieldByName('QRCode').AsString := NewQRCode;
+ Post;
+
+ Result := True;
+ end;
+ end;
+ end;
+ except
+ on E: Exception do
+ begin
+ // 쳣
+ Application.MessageBox(PChar('QRCodeʱ: ' + E.Message), '', MB_ICONERROR);
+ Result := False;
+ end;
+ end;
+end;
+
procedure TfrmDyePlanCardList.TBPrintClick(Sender: TObject);
var
MPCID: string;
@@ -521,16 +612,34 @@ begin
CDS_1.DisableControls;
with CDS_1 do
begin
- MPCID := Trim(CDS_1.fieldbyname('PCID').AsString);
+
First;
while CDS_1.Locate('SSel', True, []) do
begin
-
-// MPCID := MPCID + ',' + Trim(CDS_1.fieldbyname('PCID').AsString);
+ if MPCID = '' then
+ begin
+ MPCID := Trim(CDS_1.fieldbyname('PCID').AsString);
+ end
+ else
+ begin
+ MPCID := MPCID + ',' + Trim(CDS_1.fieldbyname('PCID').AsString);
+ end;
Edit;
FieldByName('SSel').Value := False;
Post;
+
+ with Self.ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add(' update Dye_Plan_Card set PrtCount = PrtCount + 1 ');
+ sql.add(' where PCID = ' + QuotedStr(Trim(CDS_1.fieldbyname('PCID').AsString)));
+ ExecSQL;
+ end;
+
+ UpdateQRCodeWithPrtCount(ADOQueryCmd, CDS_1.fieldbyname('PCID').AsString);
+
end;
end;
CDS_1.EnableControls;
@@ -546,6 +655,7 @@ begin
// Self.InitGrid();
end;
end;
+
finally
frmLabelPrint.Free;
end;
@@ -588,6 +698,67 @@ begin
InitGrid();
end;
+procedure TfrmDyePlanCardList.TbSimpleGYClick(Sender: TObject);
+begin
+
+ try
+ frmDyeSimpleTechnicsKaiKa := TfrmDyeSimpleTechnicsKaiKa.Create(Application);
+ with frmDyeSimpleTechnicsKaiKa do
+ begin
+ fKaZu := CDS_1.FieldByName('KaZu').AsString;
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmDyeSimpleTechnicsKaiKa.Free;
+ end;
+end;
+
+procedure TfrmDyePlanCardList.TbUpdateGYClick(Sender: TObject);
+begin
+ if CDS_1.IsEmpty then
+ Exit;
+ if CDS_1.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ CDS_1.DisableControls;
+ with CDS_1 do
+ begin
+
+ First;
+ while CDS_1.Locate('SSel', True, []) do
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('Delete From Bs_Cloth_GY_Main_Kaika where PCID = ' + quoTedStr(Trim(CDS_1.FieldByName('KaZu').AsString)));
+ SQL.Add('Delete From Bs_Cloth_GY_Sub_Kaika where PCID = ' + quoTedStr(Trim(CDS_1.FieldByName('KaZu').AsString)));
+ ExecSQL;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ SQL.Clear;
+ SQL.Add('EXEC P_InsertGxToKaika @PCID = ' + quotedstr(trim(CDS_1.FieldByName('KaZu').AsString)));
+ ExecSQL;
+ end;
+
+ Edit;
+ FieldByName('SSel').Value := False;
+ Post;
+ end;
+ end;
+ Application.MessageBox('³ɹ', 'ʾϢ', MB_OK);
+ CDS_1.EnableControls;
+
+end;
+
procedure TfrmDyePlanCardList.TBAddClick(Sender: TObject);
begin
@@ -623,8 +794,10 @@ begin
fFlileFlag := UserDataFlag + 'HX';
canshu1 := self.fParameters1;
canshu2 := self.fParameters3;
+// canshu1 := '¼';
FWorkshop := self.fParameters3;
InitForm();
+ KeyPreview := True;
end;
procedure TfrmDyePlanCardList.CheckBox2Click(Sender: TObject);
@@ -665,7 +838,7 @@ begin
MPCIDS := MPCIDS + trim(CDS_1.FieldByName('PCID').AsString) + ';';
if j = 0 then
begin
- firstCurrentValue := VarToStr(Tv1.DataController.Values[0, Column.Index]);
+ firstCurrentValue := VarToStr(Tv1.DataController.Values[I, Column.Index]);
j := 1;//һѡִִֵ
end;
@@ -808,6 +981,24 @@ begin
end;
end;
+procedure TfrmDyePlanCardList.TbDetailGYClick(Sender: TObject);
+begin
+ try
+ frmDyeTechnicsinputKaika := TfrmDyeTechnicsinputKaika.Create(Application);
+ with frmDyeTechnicsinputKaika do
+ begin
+ PState := '鿴';
+ FPCID := Trim(self.CDS_1.fieldbyname('KaZu').AsString);
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmDyeTechnicsinputKaika.Free;
+ end;
+end;
+
procedure TfrmDyePlanCardList.ToolButton6Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + 'TV1', Tv1, 'ָʾ');
diff --git a/F02染色计划单/U_DyePlanForCardSel.dfm b/F02染色计划单/U_DyePlanForCardSel.dfm
index 66e8869..2fe87cf 100644
--- a/F02染色计划单/U_DyePlanForCardSel.dfm
+++ b/F02染色计划单/U_DyePlanForCardSel.dfm
@@ -15,6 +15,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
WindowState = wsMaximized
OnClose = FormClose
OnDestroy = FormDestroy
+ OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
@@ -186,7 +187,6 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
- ExplicitTop = 109
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@@ -200,6 +200,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
+ OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
diff --git a/F02染色计划单/U_DyePlanForCardSel.pas b/F02染色计划单/U_DyePlanForCardSel.pas
index 7910eda..a0a9e60 100644
--- a/F02染色计划单/U_DyePlanForCardSel.pas
+++ b/F02染色计划单/U_DyePlanForCardSel.pas
@@ -69,6 +69,7 @@ type
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
DQdate: TDateTime;
procedure InitGrid();
@@ -95,6 +96,16 @@ begin
frmProductOrderListSel := nil;
end;
+procedure TfrmProductOrderListSel.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmProductOrderListSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
@@ -163,6 +174,7 @@ begin
v1Column4.Visible := False;
v1Column4.Hidden := True;
end;
+ KeyPreview := True;
// InitGrid();
end;
@@ -222,10 +234,13 @@ begin
SelOKNo(Order_Main, false);
end;
-procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject;
- var Key: Char);
+procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
- InitGrid();
+ if Key = #13 then
+ begin
+ InitGrid();
+ end;
+
end;
procedure TfrmProductOrderListSel.TBRafreshClick(Sender: TObject);
diff --git a/F02染色计划单/U_DyePlanInPut.dfm b/F02染色计划单/U_DyePlanInPut.dfm
index 21b5b60..4f4ef87 100644
--- a/F02染色计划单/U_DyePlanInPut.dfm
+++ b/F02染色计划单/U_DyePlanInPut.dfm
@@ -13,6 +13,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
OldCreateOrder = False
Position = poMainFormCenter
WindowState = wsMaximized
+ OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
@@ -79,7 +80,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentColor = False
ParentCtl3D = False
TabOrder = 1
- ExplicitTop = 32
object Label1: TLabel
Left = 304
Top = 132
@@ -373,7 +373,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentFont = False
ShowCaptions = True
TabOrder = 3
- ExplicitTop = 315
object ToolButton1: TToolButton
Left = 0
Top = 0
diff --git a/F02染色计划单/U_DyePlanInPut.pas b/F02染色计划单/U_DyePlanInPut.pas
index c2f53f0..b3108fc 100644
--- a/F02染色计划单/U_DyePlanInPut.pas
+++ b/F02染色计划单/U_DyePlanInPut.pas
@@ -84,6 +84,7 @@ type
procedure C_NameDblClick(Sender: TObject);
procedure C_NameBtnClick(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
@@ -201,6 +202,16 @@ begin
C_Name.Text := '';
end;
+procedure TfrmDyePlanInPut.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmDyePlanInPut.FormShow(Sender: TObject);
var
forderNo: string;
@@ -211,7 +222,7 @@ begin
// Workshop.text := trim(FWorkshop);
fFlileFlag := UserDataFlag + 'HX';
InitData();
-
+ KeyPreview := True;
end;
function TfrmDyePlanInPut.SaveData(): Boolean;
diff --git a/F02染色计划单/U_DyePlanList.dfm b/F02染色计划单/U_DyePlanList.dfm
index a0df715..50e9224 100644
--- a/F02染色计划单/U_DyePlanList.dfm
+++ b/F02染色计划单/U_DyePlanList.dfm
@@ -2,7 +2,7 @@ inherited frmDyePlanList: TfrmDyePlanList
Caption = #29983#20135#25351#31034#21333
ClientHeight = 699
ClientWidth = 1401
- ExplicitLeft = -172
+ OnKeyDown = FormKeyDown
ExplicitWidth = 1417
ExplicitHeight = 738
PixelsPerInch = 96
@@ -12,7 +12,7 @@ inherited frmDyePlanList: TfrmDyePlanList
Left = 0
Top = 0
Width = 1401
- Height = 38
+ Height = 76
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
@@ -108,67 +108,76 @@ inherited frmDyePlanList: TfrmDyePlanList
AutoSize = True
Caption = #19979#36798
ImageIndex = 12
+ Wrap = True
OnClick = TbXiadaClick
end
object TbNoXiada: TToolButton
- Left = 734
- Top = 0
+ Left = 0
+ Top = 38
AutoSize = True
Caption = #25764#38144#19979#36798
ImageIndex = 11
OnClick = TbNoXiadaClick
end
object TbJiesuan: TToolButton
- Left = 829
- Top = 0
+ Left = 95
+ Top = 38
AutoSize = True
Caption = #32467#31639
ImageIndex = 12
OnClick = TbJiesuanClick
end
object TbNoJiesuan: TToolButton
- Left = 900
- Top = 0
+ Left = 166
+ Top = 38
AutoSize = True
Caption = #25764#38144#32467#31639
ImageIndex = 11
OnClick = TbNoJiesuanClick
end
object TbQuxiao: TToolButton
- Left = 995
- Top = 0
+ Left = 261
+ Top = 38
AutoSize = True
Caption = #21462#28040
ImageIndex = 12
OnClick = TbQuxiaoClick
end
object TbNoQuxiao: TToolButton
- Left = 1066
- Top = 0
+ Left = 332
+ Top = 38
AutoSize = True
Caption = #25764#38144#21462#28040
ImageIndex = 11
OnClick = TbNoQuxiaoClick
end
+ object TbTongBu: TToolButton
+ Left = 427
+ Top = 38
+ AutoSize = True
+ Caption = #21516#27493#25968#25454
+ ImageIndex = 1
+ OnClick = TbTongBuClick
+ end
object TBExport: TToolButton
- Left = 1161
- Top = 0
+ Left = 522
+ Top = 38
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton2: TToolButton
- Left = 1232
- Top = 0
+ Left = 593
+ Top = 38
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
- Left = 1327
- Top = 0
+ Left = 688
+ Top = 38
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
@@ -177,7 +186,7 @@ inherited frmDyePlanList: TfrmDyePlanList
end
object Panel1: TPanel [1]
Left = 0
- Top = 38
+ Top = 76
Width = 1401
Height = 65
Align = alTop
@@ -185,7 +194,6 @@ inherited frmDyePlanList: TfrmDyePlanList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
- ExplicitTop = 44
object Label1: TLabel
Left = 18
Top = 17
@@ -311,13 +319,12 @@ inherited frmDyePlanList: TfrmDyePlanList
end
object cxGrid1: TcxGrid [2]
Left = 0
- Top = 125
+ Top = 163
Width = 1401
- Height = 370
+ Height = 332
Align = alClient
PopupMenu = PM_1
TabOrder = 2
- ExplicitTop = 127
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -458,11 +465,10 @@ inherited frmDyePlanList: TfrmDyePlanList
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
- ExplicitTop = 501
end
object cxTabControl1: TcxTabControl [4]
Left = 0
- Top = 103
+ Top = 141
Width = 1401
Height = 22
Align = alTop
@@ -503,7 +509,6 @@ inherited frmDyePlanList: TfrmDyePlanList
Font.Style = []
ParentFont = False
TabOrder = 0
- ExplicitTop = -2
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/F02染色计划单/U_DyePlanList.pas b/F02染色计划单/U_DyePlanList.pas
index cac9ff1..aa5cd42 100644
--- a/F02染色计划单/U_DyePlanList.pas
+++ b/F02染色计划单/U_DyePlanList.pas
@@ -96,6 +96,7 @@ type
Tv1C_PlanQty: TcxGridDBColumn;
TbJiesuan: TToolButton;
TbNoJiesuan: TToolButton;
+ TbTongBu: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@@ -131,6 +132,8 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure TbJiesuanClick(Sender: TObject);
procedure TbNoJiesuanClick(Sender: TObject);
+ procedure TbTongBuClick(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
DQdate: TDateTime;
procedure InitGrid();
@@ -210,7 +213,7 @@ begin
end;
3:
begin
- TbNoQuxiao.Enabled := True;
+ TbNoQuxiao.Enabled := True;
end;
end;
end;
@@ -302,6 +305,16 @@ begin
frmDyePlanList := nil;
end;
+procedure TfrmDyePlanList.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmDyePlanList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@@ -581,6 +594,7 @@ begin
ReadCxGrid(self.Caption + 'TV2', Tv2, 'ָʾ');
SetStatus();
InitGrid();
+ KeyPreview := True;
end;
procedure TfrmDyePlanList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
@@ -814,6 +828,31 @@ begin
InitGrid();
end;
+procedure TfrmDyePlanList.TbTongBuClick(Sender: TObject);
+begin
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('exec P_OrderCR');
+
+// ShowMessage(sql.Text);
+ execsql;
+ end;
+
+ // ͬɹʾ
+ ShowMessage('ͬɹ');
+
+ except
+ on E: Exception do
+ begin
+ // ͬʧʾ
+ ShowMessage('ͬʧܣ' + E.Message);
+ end;
+ end;
+end;
+
procedure TfrmDyePlanList.TbXiadaClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
diff --git a/F02染色计划单/U_DyeProcessDefin.dfm b/F02染色计划单/U_DyeProcessDefin.dfm
index e581d90..6fa0686 100644
--- a/F02染色计划单/U_DyeProcessDefin.dfm
+++ b/F02染色计划单/U_DyeProcessDefin.dfm
@@ -12,6 +12,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
+ OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
@@ -62,7 +63,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 772
Align = alClient
TabOrder = 0
- Properties.ActivePage = JGQX
+ Properties.ActivePage = CCQX
Properties.CustomButtons.Buttons = <>
ClientRectBottom = 770
ClientRectLeft = 2
diff --git a/F02染色计划单/U_DyeProcessDefin.pas b/F02染色计划单/U_DyeProcessDefin.pas
index 8d57c5e..c257cea 100644
--- a/F02染色计划单/U_DyeProcessDefin.pas
+++ b/F02染色计划单/U_DyeProcessDefin.pas
@@ -877,6 +877,7 @@ type
procedure Tv4fs_usePropertiesEditValueChanged(Sender: TObject);
procedure Tv5gj_usePropertiesEditValueChanged(Sender: TObject);
procedure Tv6Column2PropertiesEditValueChanged(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
canshu1: string;
@@ -1064,12 +1065,22 @@ begin
end;
+procedure TfrmDyeProcessDefin.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmDyeProcessDefin.FormShow(Sender: TObject);
var
MaxPSID, MaxProcessID, MaxBCPID: string;
Maxid1, maxid2, maxid3, maxgx: string;
begin
InitGrid();
+ KeyPreview := True;
ArrangeTabsByDataset();
with ADOQueryTemp do
@@ -1419,7 +1430,7 @@ begin
end;
with ADOQueryCmd do
begin
- if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then
+ if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then
begin
Append;
@@ -2060,7 +2071,7 @@ begin
begin
Close;
sql.Clear;
- sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + QuotedStr(Trim(CDS_5.fieldbyname('BCPID').AsString)) );
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + QuotedStr(Trim(CDS_5.fieldbyname('BCPID').AsString)));
ExecSQL;
end;
end;
@@ -2468,8 +2479,6 @@ begin
end;
end;
-
-
procedure TfrmDyeProcessDefin.Tv1Column1PropertiesEditValueChanged(Sender: TObject);
var
TotalUse: Double;
@@ -2516,11 +2525,10 @@ begin
begin
Edit;
// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
- FieldByName('ccqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ FieldByName('ccqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue, 2)));
Post;
end;
-
end
else
begin
@@ -2532,12 +2540,11 @@ begin
end;
end;
- CDS_1.Next;
+ CDS_1.Next;
end;
end;
-procedure TfrmDyeProcessDefin.Tv2Column1PropertiesEditValueChanged(
- Sender: TObject);
+procedure TfrmDyeProcessDefin.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
var
TotalUse: Double;
I: Integer;
@@ -2583,11 +2590,10 @@ begin
begin
Edit;
// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
- FieldByName('rgqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ FieldByName('rgqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue, 2)));
Post;
end;
-
end
else
begin
@@ -2599,7 +2605,7 @@ begin
end;
end;
- CDS_2.Next;
+ CDS_2.Next;
end;
end;
@@ -2625,8 +2631,7 @@ begin
end;
end;
-procedure TfrmDyeProcessDefin.Tv3Column1PropertiesEditValueChanged(
- Sender: TObject);
+procedure TfrmDyeProcessDefin.Tv3Column1PropertiesEditValueChanged(Sender: TObject);
var
TotalUse: Double;
I: Integer;
@@ -2672,11 +2677,10 @@ begin
begin
Edit;
// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
- FieldByName('jgqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ FieldByName('jgqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue, 2)));
Post;
end;
-
end
else
begin
@@ -2688,7 +2692,7 @@ begin
end;
end;
- CDS_3.Next;
+ CDS_3.Next;
end;
end;
@@ -2761,8 +2765,7 @@ begin
end;
end;
-procedure TfrmDyeProcessDefin.Tv4fs_usePropertiesEditValueChanged(
- Sender: TObject);
+procedure TfrmDyeProcessDefin.Tv4fs_usePropertiesEditValueChanged(Sender: TObject);
var
TotalUse: Double;
I: Integer;
@@ -2808,11 +2811,10 @@ begin
begin
Edit;
// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
- FieldByName('fs_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ FieldByName('fs_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue, 2)));
Post;
end;
-
end
else
begin
@@ -2824,7 +2826,7 @@ begin
end;
end;
- CDS_4.Next;
+ CDS_4.Next;
end;
end;
@@ -2875,8 +2877,7 @@ begin
end;
end;
-procedure TfrmDyeProcessDefin.Tv5gj_usePropertiesEditValueChanged(
- Sender: TObject);
+procedure TfrmDyeProcessDefin.Tv5gj_usePropertiesEditValueChanged(Sender: TObject);
var
TotalUse: Double;
I: Integer;
@@ -2922,11 +2923,10 @@ begin
begin
Edit;
// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
- FieldByName('gj_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ FieldByName('gj_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue, 2)));
Post;
end;
-
end
else
begin
@@ -2938,12 +2938,11 @@ begin
end;
end;
- CDS_5.Next;
+ CDS_5.Next;
end;
end;
-procedure TfrmDyeProcessDefin.Tv6Column2PropertiesEditValueChanged(
- Sender: TObject);
+procedure TfrmDyeProcessDefin.Tv6Column2PropertiesEditValueChanged(Sender: TObject);
var
TotalUse: Double;
I: Integer;
@@ -2989,11 +2988,10 @@ begin
begin
Edit;
// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
- FieldByName('fp_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ FieldByName('fp_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue, 2)));
Post;
end;
-
end
else
begin
@@ -3005,7 +3003,7 @@ begin
end;
end;
- CDS_6.Next;
+ CDS_6.Next;
end;
end;
diff --git a/F02染色计划单/U_DyeProcessDefinKaika.dfm b/F02染色计划单/U_DyeProcessDefinKaika.dfm
new file mode 100644
index 0000000..e424975
--- /dev/null
+++ b/F02染色计划单/U_DyeProcessDefinKaika.dfm
@@ -0,0 +1,6209 @@
+object frmDyeProcessDefinKaika: TfrmDyeProcessDefinKaika
+ Left = 459
+ Top = 231
+ Caption = #20135#21697#20449#24687#24405#20837
+ ClientHeight = 845
+ ClientWidth = 1147
+ 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 = 1147
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 75
+ Caption = 'ToolBar1'
+ Color = clWhite
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ParentColor = False
+ ShowCaptions = True
+ TabOrder = 1
+ ExplicitTop = 2
+ object TBClose: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object cxPageControl1: TcxPageControl
+ Left = 0
+ Top = 73
+ Width = 1147
+ Height = 772
+ Align = alClient
+ TabOrder = 0
+ Properties.ActivePage = ZM
+ Properties.CustomButtons.Buttons = <>
+ ClientRectBottom = 770
+ ClientRectLeft = 2
+ ClientRectRight = 1145
+ ClientRectTop = 22
+ object ZM: TcxTabSheet
+ Caption = ' '#36711#27611' '
+ ImageIndex = 12
+ object Panel_zm: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 748
+ Align = alClient
+ TabOrder = 0
+ object cxLabel336: TcxLabel
+ Left = 29
+ Top = 73
+ Caption = #20027#30005#26426'('#27425'/min)'
+ end
+ object cxLabel337: TcxLabel
+ Left = 3
+ Top = 22
+ Caption = #24037#24207#21442#25968':'
+ end
+ object cxLabel339: TcxLabel
+ Left = 29
+ Top = 46
+ Caption = #36827#20986#26009'(m/min)'
+ end
+ object cxLabel342: TcxLabel
+ Left = 4
+ Top = 124
+ Caption = #22791#27880
+ end
+ object cxLabel344: TcxLabel
+ Left = 359
+ Top = 73
+ Caption = #38024#26495#39640#24230'(cm)'
+ end
+ object cxLabel345: TcxLabel
+ Left = 359
+ Top = 46
+ Caption = #31867#22411
+ end
+ object zm_inout: TcxTextEdit
+ Tag = 2
+ Left = 121
+ Top = 46
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 6
+ Width = 150
+ end
+ object zm_mainElec: TcxTextEdit
+ Tag = 2
+ Left = 121
+ Top = 70
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 7
+ Width = 150
+ end
+ object zm_needleHigh: TcxTextEdit
+ Tag = 2
+ Left = 439
+ Top = 71
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 8
+ Width = 150
+ end
+ object zm_Precautions: TcxTextEdit
+ Tag = 2
+ Left = 44
+ Top = 110
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 9
+ Height = 50
+ Width = 537
+ end
+ object zm_style: TcxComboBox
+ Tag = 2
+ Left = 439
+ Top = 46
+ Properties.Items.Strings = (
+ ''
+ #21333#25490#38024
+ #21452#25490#38024)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 10
+ Width = 150
+ end
+ end
+ end
+ object CCQX: TcxTabSheet
+ Caption = ' '#38271#36710#28165#27927' '
+ ImageIndex = 2
+ object Panel_ccqx: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 317
+ Align = alClient
+ TabOrder = 0
+ object ccqx_note: TcxTextEdit
+ Tag = 2
+ Left = 58
+ Top = 203
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 0
+ Height = 50
+ Width = 619
+ end
+ object ccqx_speed: TcxTextEdit
+ Tag = 2
+ Left = 98
+ Top = 38
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 1
+ Width = 234
+ end
+ object ccqx_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 86
+ Top = 103
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 2
+ Width = 234
+ end
+ object ccqx_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 474
+ Top = 103
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 3
+ Width = 234
+ end
+ object ccqx_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 86
+ Top = 135
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 4
+ Width = 234
+ end
+ object ccqx_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 474
+ Top = 134
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 5
+ Width = 234
+ end
+ object ccqx_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 86
+ Top = 164
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 6
+ Width = 234
+ end
+ object ccqx_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 474
+ Top = 164
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 7
+ Width = 234
+ end
+ object TbCCQXReplace: TcxButton
+ Left = 93
+ Top = 72
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 8
+ OnClick = TbCCQXReplaceClick
+ end
+ object TbccqxClear: TcxButton
+ Left = 174
+ Top = 72
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 9
+ OnClick = TbccqxClearClick
+ end
+ object cxLabel113: TcxLabel
+ Left = 23
+ Top = 40
+ Caption = #36710#36895'(m/min)'
+ end
+ object cxLabel38: TcxLabel
+ Left = 9
+ Top = 14
+ Caption = #24037#24207#21442#25968':'
+ end
+ object cxLabel40: TcxLabel
+ Left = 10
+ Top = 219
+ Caption = #22791#27880
+ end
+ object cxLabel41: TcxLabel
+ Left = 438
+ Top = 137
+ Hint = #28165#27927#27700#28201
+ Caption = '4#'
+ end
+ object cxLabel42: TcxLabel
+ Left = 438
+ Top = 106
+ Hint = #28165#27927#27700#28201
+ Caption = '2#'
+ end
+ object cxLabel44: TcxLabel
+ Left = 9
+ Top = 84
+ Caption = #28201#25511#8451':'
+ end
+ object cxLabel45: TcxLabel
+ Left = 34
+ Top = 106
+ Caption = '1#'
+ end
+ object cxLabel46: TcxLabel
+ Left = 34
+ Top = 136
+ Caption = '3#'
+ end
+ object cxLabel47: TcxLabel
+ Left = 34
+ Top = 166
+ Caption = '5#'
+ end
+ object cxLabel48: TcxLabel
+ Left = 438
+ Top = 166
+ Hint = #28165#27927#27700#28201
+ Caption = '6#'
+ end
+ end
+ object cxGrid4: TcxGrid
+ Left = 0
+ Top = 352
+ Width = 1143
+ Height = 396
+ Align = alBottom
+ TabOrder = 1
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_1
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
+ object cxGridDBColumn2: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'ccqx_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #21161#21058#31867#22411
+ DataBinding.FieldName = 'ccqx_spel'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn4: TcxGridDBColumn
+ Caption = #21333#20301'(%)'
+ DataBinding.FieldName = 'ccqx_unit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1ccqx_use: TcxGridDBColumn
+ Caption = #29992#37327
+ DataBinding.FieldName = 'ccqx_use'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1ccqx_rate: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'ccqx_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn6: TcxGridDBColumn
+ Caption = #27880#24847#20107#39033
+ DataBinding.FieldName = 'ccqx_precautions'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ end
+ object cxGridLevel4: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object ToolBar2: TToolBar
+ Left = 0
+ Top = 317
+ Width = 1143
+ Height = 35
+ Align = alBottom
+ ButtonHeight = 38
+ ButtonWidth = 75
+ Caption = 'ToolBar3'
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ShowCaptions = True
+ TabOrder = 2
+ Transparent = True
+ Visible = False
+ ExplicitTop = 311
+ object TbccqxAdd: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = TbccqxAddClick
+ end
+ object TbccqxDel: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = TbccqxDelClick
+ end
+ end
+ end
+ object RGQX: TcxTabSheet
+ Caption = #21367#26579#32568#28165#27927
+ ImageIndex = 7
+ object Panel_rgqx: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 197
+ Align = alClient
+ TabOrder = 0
+ object cxLabel114: TcxLabel
+ Left = 39
+ Top = 44
+ Caption = #26579#36895'(m/min)'
+ end
+ object cxLabel150: TcxLabel
+ Left = 39
+ Top = 68
+ Caption = #35774#23450#28082#28201'('#8451')'
+ end
+ object cxLabel163: TcxLabel
+ Left = 17
+ Top = 22
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel165: TcxLabel
+ Left = 395
+ Top = 44
+ Caption = #36947#25968#35774#32622
+ end
+ object cxLabel166: TcxLabel
+ Left = 17
+ Top = 131
+ Caption = #22791#27880
+ end
+ object rgqx_daoSet: TcxTextEdit
+ Tag = 2
+ Left = 455
+ Top = 41
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 5
+ Width = 234
+ end
+ object rgqx_note: TcxTextEdit
+ Tag = 2
+ Left = 82
+ Top = 115
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 6
+ Height = 50
+ Width = 619
+ end
+ object rgqx_speed: TcxTextEdit
+ Tag = 2
+ Left = 117
+ Top = 41
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 7
+ Width = 234
+ end
+ object rgqx_waterTemper: TcxTextEdit
+ Tag = 2
+ Left = 117
+ Top = 67
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 8
+ Width = 234
+ end
+ end
+ object cxGrid6: TcxGrid
+ Left = 0
+ Top = 232
+ Width = 1143
+ Height = 516
+ Align = alBottom
+ TabOrder = 1
+ object Tv2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_2
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object cxGridDBColumn13: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
+ object cxGridDBColumn14: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'rgqx_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn14PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn15: TcxGridDBColumn
+ Caption = #21161#21058#31867#22411
+ DataBinding.FieldName = 'rgqx_spel'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn19: TcxGridDBColumn
+ Caption = #21333#20301'(%)'
+ DataBinding.FieldName = 'rgqx_unit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = cxGridDBColumn20PropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv2Column1: TcxGridDBColumn
+ Caption = #29992#37327
+ DataBinding.FieldName = 'rgqx_use'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object cxGridDBColumn20: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'rgqx_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = cxGridDBColumn20PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn21: TcxGridDBColumn
+ Caption = #27880#24847#20107#39033
+ DataBinding.FieldName = 'rgqx_precautions'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv2Column2: TcxGridDBColumn
+ Tag = 2
+ DataBinding.FieldName = 'PSID'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 96
+ end
+ object Tv2Column3: TcxGridDBColumn
+ Tag = 2
+ DataBinding.FieldName = 'BCPID'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 138
+ end
+ end
+ object cxGridLevel6: TcxGridLevel
+ GridView = Tv2
+ end
+ end
+ object ToolBar7: TToolBar
+ Left = 0
+ Top = 197
+ Width = 1143
+ Height = 35
+ Align = alBottom
+ ButtonHeight = 38
+ ButtonWidth = 75
+ Caption = 'ToolBar3'
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ShowCaptions = True
+ TabOrder = 2
+ Transparent = True
+ Visible = False
+ ExplicitTop = 203
+ object TbrgqxAdd: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = TbrgqxAddClick
+ end
+ object TbrgqxDel: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = TbrgqxDelClick
+ end
+ end
+ end
+ object JGQX: TcxTabSheet
+ Caption = ' '#26426#32568#28165#27927' '
+ ImageIndex = 11
+ object Panel_jgqx: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 365
+ Align = alClient
+ TabOrder = 0
+ object cxLabel340: TcxLabel
+ Left = 392
+ Top = 156
+ Caption = #20445#28201#28201#24230'('#8451')'
+ end
+ object cxLabel343: TcxLabel
+ Left = 13
+ Top = 18
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel347: TcxLabel
+ Left = 392
+ Top = 182
+ Caption = #20445#28201#26102#38388'(min)'
+ end
+ object cxLabel348: TcxLabel
+ Left = 13
+ Top = 289
+ Caption = #22791#27880
+ end
+ object cxLabel350: TcxLabel
+ Left = 38
+ Top = 182
+ Caption = #35797#21058#27604#20363
+ end
+ object cxLabel351: TcxLabel
+ Left = 38
+ Top = 156
+ Caption = #35797#21058#29992#37327
+ end
+ object jgqx_keepTemper: TcxTextEdit
+ Tag = 2
+ Left = 474
+ Top = 153
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 6
+ Width = 234
+ end
+ object jgqx_keepTime: TcxTextEdit
+ Tag = 2
+ Left = 474
+ Top = 179
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 7
+ Width = 234
+ end
+ object jgqx_note: TcxTextEdit
+ Tag = 2
+ Left = 65
+ Top = 273
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 8
+ Height = 50
+ Width = 619
+ end
+ object jgqx_reagentRatio: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 180
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 9
+ Width = 234
+ end
+ object jgqx_reagentUse: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 154
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 10
+ Width = 234
+ end
+ object cxLabel37: TcxLabel
+ Left = 394
+ Top = 49
+ Caption = #24038#21943#22068#21387#21147
+ end
+ object cxLabel167: TcxLabel
+ Left = 38
+ Top = 74
+ Caption = #21491#25552#24067#36718#36716#36895
+ end
+ object cxLabel169: TcxLabel
+ Left = 38
+ Top = 49
+ Caption = #24038#25552#24067#36718#36716#36895
+ end
+ object cxLabel170: TcxLabel
+ Left = 394
+ Top = 74
+ Caption = #21491#21943#22068#21387#21147
+ end
+ object cxLabel171: TcxLabel
+ Left = 394
+ Top = 100
+ Caption = #20027#32568#21387#21147
+ end
+ object cxLabel172: TcxLabel
+ Left = 38
+ Top = 100
+ Caption = #20027#27893#36716#36895
+ end
+ object jgqx_leftMouthPress: TcxTextEdit
+ Tag = 2
+ Left = 476
+ Top = 46
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 17
+ Width = 234
+ end
+ object jgqx_rightMouthPress: TcxTextEdit
+ Tag = 2
+ Left = 476
+ Top = 72
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 18
+ Width = 234
+ end
+ object jgqx_mainGangPress: TcxTextEdit
+ Tag = 2
+ Left = 476
+ Top = 98
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 19
+ Width = 234
+ end
+ object jgqx_mainBengSpeed: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 98
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 20
+ Width = 234
+ end
+ object jgqx_rightWheelSpeed: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 72
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 21
+ Width = 234
+ end
+ object jgqx_leftWheelSpeed: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 46
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 22
+ Width = 234
+ end
+ object cxLabel173: TcxLabel
+ Left = 38
+ Top = 214
+ Caption = #21319#28201#36895#29575
+ end
+ object cxLabel334: TcxLabel
+ Left = 38
+ Top = 240
+ Caption = #38477#28201#36895#29575
+ end
+ object jgqx_upperSpeed: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 212
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 25
+ Width = 234
+ end
+ object jgqx_downSpeed: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 238
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 26
+ Width = 234
+ end
+ end
+ object cxGrid5: TcxGrid
+ Left = 0
+ Top = 400
+ Width = 1143
+ Height = 348
+ Align = alBottom
+ TabOrder = 1
+ object Tv3: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_3
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object cxGridDBColumn7: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
+ object cxGridDBColumn8: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'jgqx_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn8PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn9: TcxGridDBColumn
+ Caption = #21161#21058#31867#22411
+ DataBinding.FieldName = 'jgqx_spel'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn10: TcxGridDBColumn
+ Caption = #21333#20301'(%)'
+ DataBinding.FieldName = 'jgqx_unit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = cxGridDBColumn11PropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv3Column1: TcxGridDBColumn
+ Caption = #29992#37327
+ DataBinding.FieldName = 'jgqx_use'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object cxGridDBColumn11: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'jgqx_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = cxGridDBColumn11PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn12: TcxGridDBColumn
+ Caption = #27880#24847#20107#39033
+ DataBinding.FieldName = 'jgqx_precautions'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ end
+ object cxGridLevel5: TcxGridLevel
+ GridView = Tv3
+ end
+ end
+ object ToolBar6: TToolBar
+ Left = 0
+ Top = 365
+ Width = 1143
+ Height = 35
+ Align = alBottom
+ ButtonHeight = 38
+ ButtonWidth = 75
+ Caption = 'ToolBar3'
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ShowCaptions = True
+ TabOrder = 2
+ Transparent = True
+ Visible = False
+ object TbjgqxAdd: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = TbjgqxAddClick
+ end
+ object TbjgqxDel: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = TbjgqxDelClick
+ end
+ end
+ end
+ object DX: TcxTabSheet
+ Caption = ' '#24178#23450#22411' '
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ImageIndex = 3
+ ParentFont = False
+ object Panel_dx: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 748
+ Align = alClient
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #183#183
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ object cxLabel2: TcxLabel
+ Left = 25
+ Top = 31
+ Caption = #28888#31570#21387#21147'(MPA)'
+ end
+ object cxLabel21: TcxLabel
+ Left = 271
+ Top = 178
+ Caption = '2#'
+ end
+ object cxLabel22: TcxLabel
+ Left = 1
+ Top = 146
+ Caption = #28201#25511#8451':'
+ end
+ object cxLabel23: TcxLabel
+ Left = 28
+ Top = 175
+ Caption = '1#'
+ end
+ object cxLabel24: TcxLabel
+ Left = 28
+ Top = 207
+ Caption = '5#'
+ end
+ object cxLabel25: TcxLabel
+ Left = 28
+ Top = 238
+ Caption = '9#'
+ end
+ object cxLabel3: TcxLabel
+ Left = 25
+ Top = 56
+ Caption = #36710#36895'(M/Min)'
+ end
+ object cxLabel4: TcxLabel
+ Left = 1
+ Top = 6
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel5: TcxLabel
+ Left = 2
+ Top = 475
+ Caption = #22791#27880
+ end
+ object cxLabel55: TcxLabel
+ Left = 21
+ Top = 110
+ Caption = #19978#36229#21890#29575'(%)'
+ end
+ object cxLabel56: TcxLabel
+ Left = 315
+ Top = 56
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object cxLabel57: TcxLabel
+ Left = 596
+ Top = 32
+ Caption = #24352#21147'(MPA)'
+ end
+ object cxLabel58: TcxLabel
+ Left = 543
+ Top = 112
+ Caption = #19978#38024'(%)'
+ end
+ object cxLabel6: TcxLabel
+ Left = 271
+ Top = 208
+ Caption = '6#'
+ end
+ object cxLabel60: TcxLabel
+ Left = 271
+ Top = 111
+ Caption = #19979#36229#21890#29575'(%)'
+ end
+ object cxLabel61: TcxLabel
+ Left = 481
+ Top = 180
+ Caption = '3#'
+ end
+ object cxLabel62: TcxLabel
+ Left = 683
+ Top = 178
+ Caption = '4#'
+ end
+ object cxLabel63: TcxLabel
+ Left = 481
+ Top = 209
+ Caption = '7#'
+ end
+ object cxLabel64: TcxLabel
+ Left = 683
+ Top = 208
+ Caption = '8#'
+ end
+ object cxLabel65: TcxLabel
+ Left = 271
+ Top = 238
+ Caption = '10#'
+ end
+ object dx_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 94
+ Top = 175
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 20
+ Width = 150
+ end
+ object dx_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 94
+ Top = 205
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 21
+ Width = 150
+ end
+ object dx_temperature9: TcxTextEdit
+ Tag = 2
+ Left = 94
+ Top = 235
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 22
+ Width = 150
+ end
+ object dx_RosePower: TcxTextEdit
+ Tag = 2
+ Left = 678
+ Top = 29
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 23
+ Width = 150
+ end
+ object dx_upperNeedle: TcxTextEdit
+ Tag = 2
+ Left = 616
+ Top = 109
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 24
+ Width = 150
+ end
+ object dx_Precautions: TcxTextEdit
+ Tag = 2
+ Left = 53
+ Top = 461
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 25
+ Height = 50
+ Width = 745
+ end
+ object dx_UpSuperRate: TcxTextEdit
+ Tag = 2
+ Left = 94
+ Top = 109
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 26
+ Width = 150
+ end
+ object dx_speed: TcxTextEdit
+ Tag = 2
+ Left = 111
+ Top = 55
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 27
+ Width = 150
+ end
+ object dx_TubePress: TcxTextEdit
+ Tag = 2
+ Left = 112
+ Top = 29
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 28
+ Width = 150
+ end
+ object dx_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 293
+ Top = 205
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 29
+ Width = 150
+ end
+ object dx_DownSuperRate: TcxTextEdit
+ Tag = 2
+ Left = 344
+ Top = 109
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 30
+ Width = 150
+ end
+ object dx_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 502
+ Top = 175
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 31
+ Width = 150
+ end
+ object dx_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 701
+ Top = 175
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 32
+ Width = 150
+ end
+ object dx_temperature7: TcxTextEdit
+ Tag = 2
+ Left = 502
+ Top = 205
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 33
+ Width = 150
+ end
+ object dx_temperature8: TcxTextEdit
+ Tag = 2
+ Left = 701
+ Top = 205
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 34
+ Width = 150
+ end
+ object dx_temperature10: TcxTextEdit
+ Tag = 2
+ Left = 293
+ Top = 235
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 35
+ Width = 150
+ end
+ object dx_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 293
+ Top = 175
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 36
+ Width = 150
+ end
+ object dx_RollMethod: TcxComboBox
+ Tag = 2
+ Left = 402
+ Top = 53
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 37
+ Width = 150
+ end
+ object TbDXReplace2: TcxButton
+ Left = 91
+ Top = 142
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 38
+ OnClick = TbDXReplace2Click
+ end
+ object TbDXClear2: TcxButton
+ Left = 178
+ Top = 142
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 39
+ OnClick = TbDXClear2Click
+ end
+ object cxLabel174: TcxLabel
+ Left = 315
+ Top = 31
+ Caption = #28888#31570#28201#24230'('#8451')'
+ end
+ object dx_tubeTemper: TcxTextEdit
+ Tag = 2
+ Left = 402
+ Top = 29
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 41
+ Width = 150
+ end
+ object cxLabel1: TcxLabel
+ Left = 271
+ Top = 298
+ Caption = '2#'
+ end
+ object cxLabel28: TcxLabel
+ Left = 1
+ Top = 266
+ Caption = #28909#39118'r/min:'
+ end
+ object cxLabel59: TcxLabel
+ Left = 28
+ Top = 295
+ Caption = '1#'
+ end
+ object cxLabel175: TcxLabel
+ Left = 28
+ Top = 327
+ Caption = '5#'
+ end
+ object cxLabel176: TcxLabel
+ Left = 28
+ Top = 358
+ Caption = '9#'
+ end
+ object cxLabel177: TcxLabel
+ Left = 271
+ Top = 328
+ Caption = '6#'
+ end
+ object cxLabel178: TcxLabel
+ Left = 481
+ Top = 300
+ Caption = '3#'
+ end
+ object cxLabel179: TcxLabel
+ Left = 683
+ Top = 298
+ Caption = '4#'
+ end
+ object cxLabel180: TcxLabel
+ Left = 481
+ Top = 329
+ Caption = '7#'
+ end
+ object cxLabel181: TcxLabel
+ Left = 683
+ Top = 328
+ Caption = '8#'
+ end
+ object cxLabel182: TcxLabel
+ Left = 271
+ Top = 358
+ Caption = '10#'
+ end
+ object dx_hotWind1: TcxTextEdit
+ Tag = 2
+ Left = 94
+ Top = 295
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 53
+ Width = 150
+ end
+ object dx_hotWind5: TcxTextEdit
+ Tag = 2
+ Left = 94
+ Top = 325
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 54
+ Width = 150
+ end
+ object dx_hotWind9: TcxTextEdit
+ Tag = 2
+ Left = 94
+ Top = 355
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 55
+ Width = 150
+ end
+ object dx_hotWind6: TcxTextEdit
+ Tag = 2
+ Left = 293
+ Top = 325
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 56
+ Width = 150
+ end
+ object dx_hotWind3: TcxTextEdit
+ Tag = 2
+ Left = 502
+ Top = 295
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 57
+ Width = 150
+ end
+ object dx_hotWind4: TcxTextEdit
+ Tag = 2
+ Left = 701
+ Top = 295
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 58
+ Width = 150
+ end
+ object dx_hotWind7: TcxTextEdit
+ Tag = 2
+ Left = 502
+ Top = 325
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 59
+ Width = 150
+ end
+ object dx_hotWind8: TcxTextEdit
+ Tag = 2
+ Left = 701
+ Top = 325
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 60
+ Width = 150
+ end
+ object dx_hotWind10: TcxTextEdit
+ Tag = 2
+ Left = 293
+ Top = 355
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 61
+ Width = 150
+ end
+ object dx_hotWind2: TcxTextEdit
+ Tag = 2
+ Left = 293
+ Top = 295
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 62
+ Width = 150
+ end
+ object TbDXReplace1: TcxButton
+ Left = 94
+ Top = 262
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 63
+ OnClick = TbDXReplace1Click
+ end
+ object TbDXClear1: TcxButton
+ Left = 181
+ Top = 262
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 64
+ OnClick = TbDXClear1Click
+ end
+ object cxLabel183: TcxLabel
+ Left = 271
+ Top = 420
+ Caption = '2#'
+ end
+ object cxLabel184: TcxLabel
+ Left = 0
+ Top = 395
+ Caption = #25490#39118'r/min:'
+ end
+ object cxLabel185: TcxLabel
+ Left = 28
+ Top = 417
+ Caption = '1#'
+ end
+ object cxLabel186: TcxLabel
+ Left = 481
+ Top = 422
+ Caption = '3#'
+ end
+ object cxLabel187: TcxLabel
+ Left = 683
+ Top = 420
+ Caption = '4#'
+ end
+ object dx_rowWind1: TcxTextEdit
+ Tag = 2
+ Left = 94
+ Top = 417
+ Hint = #24178#23450#22411#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 70
+ Width = 150
+ end
+ object dx_rowWind3: TcxTextEdit
+ Tag = 2
+ Left = 502
+ Top = 417
+ Hint = #24178#23450#22411#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 71
+ Width = 150
+ end
+ object dx_rowWind4: TcxTextEdit
+ Tag = 2
+ Left = 701
+ Top = 417
+ Hint = #24178#23450#22411#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 72
+ Width = 150
+ end
+ object dx_rowWind2: TcxTextEdit
+ Tag = 2
+ Left = 293
+ Top = 417
+ Hint = #24178#23450#22411#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 73
+ Width = 150
+ end
+ object cxLabel188: TcxLabel
+ Left = 481
+ Top = 358
+ Caption = '11#'
+ end
+ object dx_hotWind11: TcxTextEdit
+ Tag = 2
+ Left = 502
+ Top = 355
+ Hint = #24178#23450#22411#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 75
+ Width = 150
+ end
+ object cxLabel189: TcxLabel
+ Left = 481
+ Top = 238
+ Caption = '11#'
+ end
+ object dx_temperature11: TcxTextEdit
+ Tag = 2
+ Left = 502
+ Top = 235
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 77
+ Width = 150
+ end
+ object cxLabel338: TcxLabel
+ Left = 1
+ Top = 85
+ Caption = #21069#36229#21890':'
+ end
+ object TbDXReplace3: TcxButton
+ Left = 94
+ Top = 385
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 79
+ OnClick = TbDXReplace3Click
+ end
+ object TbDXClear3: TcxButton
+ Left = 181
+ Top = 385
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 80
+ OnClick = TbDXClear3Click
+ end
+ end
+ end
+ object FS: TcxTabSheet
+ Caption = ' '#19979#27700#23450#22411' '
+ ImageIndex = 8
+ object Panel_fs: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 557
+ Align = alClient
+ TabOrder = 0
+ object TbFSReplace1: TcxButton
+ Left = 104
+ Top = 298
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 0
+ OnClick = TbFSReplace1Click
+ end
+ object TbFSClear1: TcxButton
+ Left = 196
+ Top = 298
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 1
+ OnClick = TbFSClear1Click
+ end
+ object TbFSReplace2: TcxButton
+ Left = 106
+ Top = 175
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 2
+ OnClick = TbFSReplace2Click
+ end
+ object TBFScLEAR2: TcxButton
+ Left = 193
+ Top = 175
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 3
+ OnClick = TBFScLEAR2Click
+ end
+ object cxLabel191: TcxLabel
+ Left = 423
+ Top = 23
+ Caption = #28888#31570#21387#21147'(MPA)'
+ end
+ object cxLabel192: TcxLabel
+ Left = 283
+ Top = 211
+ Caption = '2#'
+ end
+ object cxLabel193: TcxLabel
+ Left = 7
+ Top = 179
+ Caption = #28201#25511#8451':'
+ end
+ object cxLabel194: TcxLabel
+ Left = 40
+ Top = 208
+ Caption = '1#'
+ end
+ object cxLabel195: TcxLabel
+ Left = 40
+ Top = 240
+ Caption = '5#'
+ end
+ object cxLabel196: TcxLabel
+ Left = 40
+ Top = 271
+ Caption = '9#'
+ end
+ object cxLabel198: TcxLabel
+ Left = 37
+ Top = 76
+ Caption = #36710#36895'(M/Min)'
+ end
+ object cxLabel199: TcxLabel
+ Left = 7
+ Top = 3
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel200: TcxLabel
+ Left = 11
+ Top = 493
+ Caption = #22791#27880
+ end
+ object cxLabel201: TcxLabel
+ Left = 37
+ Top = 148
+ Caption = #19978#36229#21890#29575'(%)'
+ end
+ object cxLabel202: TcxLabel
+ Left = 423
+ Top = 103
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object cxLabel203: TcxLabel
+ Left = 37
+ Top = 103
+ Caption = #24352#21147'(MPA)'
+ end
+ object cxLabel204: TcxLabel
+ Left = 545
+ Top = 148
+ Caption = #19978#38024'(%)'
+ end
+ object cxLabel205: TcxLabel
+ Left = 283
+ Top = 241
+ Caption = '6#'
+ end
+ object cxLabel206: TcxLabel
+ Left = 289
+ Top = 148
+ Caption = #19979#36229#21890#29575'(%)'
+ end
+ object cxLabel207: TcxLabel
+ Left = 493
+ Top = 213
+ Caption = '3#'
+ end
+ object cxLabel208: TcxLabel
+ Left = 695
+ Top = 211
+ Caption = '4#'
+ end
+ object cxLabel209: TcxLabel
+ Left = 493
+ Top = 242
+ Caption = '7#'
+ end
+ object cxLabel210: TcxLabel
+ Left = 695
+ Top = 241
+ Caption = '8#'
+ end
+ object cxLabel211: TcxLabel
+ Left = 283
+ Top = 271
+ Caption = '10#'
+ end
+ object cxLabel212: TcxLabel
+ Left = 423
+ Top = 50
+ Caption = #21387#36710#21387#21147'(MPA)'
+ end
+ object cxLabel213: TcxLabel
+ Left = 423
+ Top = 76
+ Caption = #28888#31570#28201#24230'('#8451')'
+ end
+ object cxLabel214: TcxLabel
+ Left = 281
+ Top = 332
+ Caption = '2#'
+ end
+ object cxLabel215: TcxLabel
+ Left = 7
+ Top = 300
+ Caption = #28909#39118'r/min:'
+ end
+ object cxLabel216: TcxLabel
+ Left = 38
+ Top = 329
+ Caption = '1#'
+ end
+ object cxLabel217: TcxLabel
+ Left = 38
+ Top = 361
+ Caption = '5#'
+ end
+ object cxLabel218: TcxLabel
+ Left = 38
+ Top = 392
+ Caption = '9#'
+ end
+ object cxLabel219: TcxLabel
+ Left = 281
+ Top = 362
+ Caption = '6#'
+ end
+ object cxLabel220: TcxLabel
+ Left = 491
+ Top = 334
+ Caption = '3#'
+ end
+ object cxLabel221: TcxLabel
+ Left = 693
+ Top = 332
+ Caption = '4#'
+ end
+ object cxLabel222: TcxLabel
+ Left = 491
+ Top = 363
+ Caption = '7#'
+ end
+ object cxLabel223: TcxLabel
+ Left = 693
+ Top = 362
+ Caption = '8#'
+ end
+ object cxLabel224: TcxLabel
+ Left = 281
+ Top = 392
+ Caption = '10#'
+ end
+ object cxLabel225: TcxLabel
+ Left = 281
+ Top = 450
+ Caption = '2#'
+ end
+ object cxLabel226: TcxLabel
+ Left = 7
+ Top = 424
+ Caption = #25490#39118'r/min:'
+ end
+ object cxLabel227: TcxLabel
+ Left = 38
+ Top = 447
+ Caption = '1#'
+ end
+ object cxLabel228: TcxLabel
+ Left = 491
+ Top = 452
+ Caption = '3#'
+ end
+ object cxLabel229: TcxLabel
+ Left = 693
+ Top = 450
+ Caption = '4#'
+ end
+ object cxLabel230: TcxLabel
+ Left = 491
+ Top = 392
+ Caption = '11#'
+ end
+ object cxLabel231: TcxLabel
+ Left = 493
+ Top = 271
+ Caption = '11#'
+ end
+ object fs_CarPress: TcxTextEdit
+ Tag = 2
+ Left = 510
+ Top = 50
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 44
+ Width = 200
+ end
+ object fs_DownSuperRate: TcxTextEdit
+ Tag = 2
+ Left = 362
+ Top = 147
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 45
+ Width = 150
+ end
+ object fs_hotWind1: TcxTextEdit
+ Tag = 2
+ Left = 104
+ Top = 329
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 46
+ Width = 150
+ end
+ object fs_hotWind10: TcxTextEdit
+ Tag = 2
+ Left = 303
+ Top = 389
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 47
+ Width = 150
+ end
+ object fs_hotWind11: TcxTextEdit
+ Tag = 2
+ Left = 512
+ Top = 389
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 48
+ Width = 150
+ end
+ object fs_hotWind2: TcxTextEdit
+ Tag = 2
+ Left = 303
+ Top = 329
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 49
+ Width = 150
+ end
+ object fs_hotWind3: TcxTextEdit
+ Tag = 2
+ Left = 512
+ Top = 329
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 50
+ Width = 150
+ end
+ object fs_hotWind4: TcxTextEdit
+ Tag = 2
+ Left = 711
+ Top = 329
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 51
+ Width = 150
+ end
+ object fs_hotWind5: TcxTextEdit
+ Tag = 2
+ Left = 104
+ Top = 359
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 52
+ Width = 150
+ end
+ object fs_hotWind6: TcxTextEdit
+ Tag = 2
+ Left = 303
+ Top = 359
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 53
+ Width = 150
+ end
+ object fs_hotWind7: TcxTextEdit
+ Tag = 2
+ Left = 512
+ Top = 359
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 54
+ Width = 150
+ end
+ object fs_hotWind8: TcxTextEdit
+ Tag = 2
+ Left = 711
+ Top = 359
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 55
+ Width = 150
+ end
+ object fs_hotWind9: TcxTextEdit
+ Tag = 2
+ Left = 104
+ Top = 389
+ Hint = #38450#27700#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 56
+ Width = 150
+ end
+ object fs_Precautions: TcxTextEdit
+ Tag = 2
+ Left = 62
+ Top = 479
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 57
+ Height = 50
+ Width = 650
+ end
+ object fs_RollMethod: TcxComboBox
+ Tag = 2
+ Left = 510
+ Top = 103
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 58
+ Width = 200
+ end
+ object fs_RosePower: TcxTextEdit
+ Tag = 2
+ Left = 119
+ Top = 103
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 59
+ Width = 200
+ end
+ object fs_rowWind1: TcxTextEdit
+ Tag = 2
+ Left = 104
+ Top = 447
+ Hint = #38450#27700#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 60
+ Width = 150
+ end
+ object fs_rowWind2: TcxTextEdit
+ Tag = 2
+ Left = 303
+ Top = 447
+ Hint = #38450#27700#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 61
+ Width = 150
+ end
+ object fs_rowWind3: TcxTextEdit
+ Tag = 2
+ Left = 512
+ Top = 447
+ Hint = #38450#27700#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 62
+ Width = 150
+ end
+ object fs_rowWind4: TcxTextEdit
+ Tag = 2
+ Left = 711
+ Top = 447
+ Hint = #38450#27700#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 63
+ Width = 150
+ end
+ object fs_speed: TcxTextEdit
+ Tag = 2
+ Left = 119
+ Top = 76
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 64
+ Width = 200
+ end
+ object fs_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 208
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 65
+ Width = 150
+ end
+ object fs_temperature10: TcxTextEdit
+ Tag = 2
+ Left = 305
+ Top = 268
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 66
+ Width = 150
+ end
+ object fs_temperature11: TcxTextEdit
+ Tag = 2
+ Left = 514
+ Top = 268
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 67
+ Width = 150
+ end
+ object fs_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 305
+ Top = 208
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 68
+ Width = 150
+ end
+ object fs_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 514
+ Top = 208
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 69
+ Width = 150
+ end
+ object fs_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 713
+ Top = 208
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 70
+ Width = 150
+ end
+ object fs_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 238
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 71
+ Width = 150
+ end
+ object fs_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 305
+ Top = 238
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 72
+ Width = 150
+ end
+ object fs_temperature7: TcxTextEdit
+ Tag = 2
+ Left = 514
+ Top = 238
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 73
+ Width = 150
+ end
+ object fs_temperature8: TcxTextEdit
+ Tag = 2
+ Left = 713
+ Top = 238
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 74
+ Width = 150
+ end
+ object fs_temperature9: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 268
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 75
+ Width = 150
+ end
+ object fs_TubePress: TcxTextEdit
+ Tag = 2
+ Left = 510
+ Top = 23
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 76
+ Width = 200
+ end
+ object fs_tubeTemper: TcxTextEdit
+ Tag = 2
+ Left = 510
+ Top = 76
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 77
+ Width = 200
+ end
+ object fs_upperNeedle: TcxTextEdit
+ Tag = 2
+ Left = 618
+ Top = 147
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 78
+ Width = 150
+ end
+ object fs_UpSuperRate: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 147
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 79
+ Width = 150
+ end
+ object cxLabel26: TcxLabel
+ Left = 7
+ Top = 126
+ Caption = #21069#36229#21890':'
+ end
+ object cxLabel352: TcxLabel
+ Left = 37
+ Top = 23
+ Caption = #31867#22411
+ end
+ object FS_Style: TcxComboBox
+ Tag = 2
+ Left = 119
+ Top = 23
+ Properties.Items.Strings = (
+ ''
+ #28165#27700
+ #38450#27700
+ #25239#33740
+ #38450#32432#35010)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 82
+ Width = 200
+ end
+ object cxLabel354: TcxLabel
+ Left = 37
+ Top = 50
+ Caption = #33073#30495#31354
+ end
+ object fs_isVacuun: TcxComboBox
+ Tag = 2
+ Left = 119
+ Top = 50
+ Properties.Items.Strings = (
+ ''
+ #26159
+ #21542)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 84
+ Width = 200
+ end
+ object TbFSReplace3: TcxButton
+ Left = 104
+ Top = 414
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 85
+ OnClick = TbFSReplace3Click
+ end
+ object TbFSClear3: TcxButton
+ Left = 196
+ Top = 414
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 86
+ OnClick = TbFSClear3Click
+ end
+ object cxLabel190: TcxLabel
+ Left = 7
+ Top = 535
+ Caption = #27974#26009#37197#27604':'
+ end
+ end
+ object ToolBar4: TToolBar
+ Left = 0
+ Top = 557
+ Width = 1143
+ Height = 35
+ Align = alBottom
+ ButtonHeight = 38
+ ButtonWidth = 75
+ Caption = 'ToolBar3'
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ShowCaptions = True
+ TabOrder = 1
+ Transparent = True
+ Visible = False
+ object TbfsAdd: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = TbfsAddClick
+ end
+ object TbfsDel: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = TbfsDelClick
+ end
+ end
+ object cxGrid2: TcxGrid
+ Left = 0
+ Top = 592
+ Width = 1143
+ Height = 156
+ Align = alBottom
+ TabOrder = 2
+ object Tv4: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_4
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object Tv4Column1: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
+ object Tv41fs_Name: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'fs_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = Tv41fs_NamePropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv41fs_spel: TcxGridDBColumn
+ Caption = #21161#21058#31867#22411
+ DataBinding.FieldName = 'fs_spel'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv4fs_unit: TcxGridDBColumn
+ Caption = #21333#20301'(%)'
+ DataBinding.FieldName = 'fs_unit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv4fs_unitPropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv4fs_use: TcxGridDBColumn
+ Caption = #29992#37327
+ DataBinding.FieldName = 'fs_use'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv4fs_usePropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv41fs_rate: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'fs_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = Tv4fs_unitPropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv41fs_precautions: TcxGridDBColumn
+ Caption = #27880#24847#20107#39033
+ DataBinding.FieldName = 'fs_precautions'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = Tv4
+ end
+ end
+ end
+ object GJ: TcxTabSheet
+ Caption = ' '#21038#33014' '
+ ImageIndex = 10
+ object Panel_gj: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 570
+ Align = alClient
+ TabOrder = 0
+ object TbGJReplace1: TcxButton
+ Left = 100
+ Top = 301
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 0
+ OnClick = TbGJReplace1Click
+ end
+ object TbGjClear1: TcxButton
+ Left = 187
+ Top = 301
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 1
+ OnClick = TbGjClear1Click
+ end
+ object cxLabel233: TcxLabel
+ Left = 315
+ Top = 29
+ Caption = #28888#31570#21387#21147'(MPA)'
+ end
+ object cxLabel241: TcxLabel
+ Left = 6
+ Top = 7
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel242: TcxLabel
+ Left = 49
+ Top = 505
+ Caption = #22791#27880
+ end
+ object cxLabel243: TcxLabel
+ Left = 34
+ Top = 153
+ Caption = #19978#36229#21890#29575'(%)'
+ end
+ object cxLabel244: TcxLabel
+ Left = 315
+ Top = 106
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object cxLabel245: TcxLabel
+ Left = 36
+ Top = 80
+ Caption = #24352#21147'(MPA)'
+ end
+ object cxLabel246: TcxLabel
+ Left = 557
+ Top = 153
+ Caption = #19978#38024'(%)'
+ end
+ object cxLabel248: TcxLabel
+ Left = 295
+ Top = 153
+ Caption = #19979#36229#21890#29575'(%)'
+ end
+ object cxLabel254: TcxLabel
+ Left = 315
+ Top = 55
+ Caption = #21387#36710#21387#21147'(MPA)'
+ end
+ object cxLabel255: TcxLabel
+ Left = 315
+ Top = 80
+ Caption = #28888#31570#28201#24230'('#8451')'
+ end
+ object cxLabel256: TcxLabel
+ Left = 276
+ Top = 337
+ Caption = '2#'
+ end
+ object cxLabel257: TcxLabel
+ Left = 4
+ Top = 305
+ Caption = #28909#39118'r/min:'
+ end
+ object cxLabel258: TcxLabel
+ Left = 33
+ Top = 334
+ Caption = '1#'
+ end
+ object cxLabel259: TcxLabel
+ Left = 33
+ Top = 366
+ Caption = '5#'
+ end
+ object cxLabel260: TcxLabel
+ Left = 33
+ Top = 397
+ Caption = '9#'
+ end
+ object cxLabel261: TcxLabel
+ Left = 276
+ Top = 367
+ Caption = '6#'
+ end
+ object cxLabel262: TcxLabel
+ Left = 486
+ Top = 339
+ Caption = '3#'
+ end
+ object cxLabel263: TcxLabel
+ Left = 688
+ Top = 337
+ Caption = '4#'
+ end
+ object cxLabel264: TcxLabel
+ Left = 486
+ Top = 368
+ Caption = '7#'
+ end
+ object cxLabel265: TcxLabel
+ Left = 688
+ Top = 367
+ Caption = '8#'
+ end
+ object cxLabel266: TcxLabel
+ Left = 276
+ Top = 397
+ Caption = '10#'
+ end
+ object cxLabel267: TcxLabel
+ Left = 277
+ Top = 459
+ Caption = '2#'
+ end
+ object cxLabel268: TcxLabel
+ Left = 5
+ Top = 429
+ Caption = #25490#39118'r/min:'
+ end
+ object cxLabel269: TcxLabel
+ Left = 34
+ Top = 456
+ Caption = '1#'
+ end
+ object cxLabel270: TcxLabel
+ Left = 487
+ Top = 461
+ Caption = '3#'
+ end
+ object cxLabel271: TcxLabel
+ Left = 689
+ Top = 459
+ Caption = '4#'
+ end
+ object cxLabel272: TcxLabel
+ Left = 486
+ Top = 397
+ Caption = '11#'
+ end
+ object cxLabel274: TcxLabel
+ Left = 582
+ Top = 29
+ Caption = #24038#38388#38553'('#19997')'
+ end
+ object cxLabel275: TcxLabel
+ Left = 582
+ Top = 55
+ Caption = #21491#38388#38553'('#19997')'
+ end
+ object cxLabel276: TcxLabel
+ Left = 582
+ Top = 80
+ Caption = #33853#24067'(%)'
+ end
+ object cxLabel277: TcxLabel
+ Left = 582
+ Top = 106
+ Caption = #25171#21367'(%)'
+ end
+ object gj_CarPress: TcxTextEdit
+ Tag = 2
+ Left = 397
+ Top = 52
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 33
+ Width = 150
+ end
+ object gj_DownSuperRate: TcxTextEdit
+ Tag = 2
+ Left = 368
+ Top = 152
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 34
+ Width = 150
+ end
+ object gj_fallCloth: TcxTextEdit
+ Tag = 2
+ Left = 655
+ Top = 79
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 35
+ Width = 150
+ end
+ object gj_hotWind1: TcxTextEdit
+ Tag = 2
+ Left = 99
+ Top = 334
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 36
+ Width = 150
+ end
+ object gj_hotWind10: TcxTextEdit
+ Tag = 2
+ Left = 298
+ Top = 394
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 37
+ Width = 150
+ end
+ object gj_hotWind11: TcxTextEdit
+ Tag = 2
+ Left = 507
+ Top = 394
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 38
+ Width = 150
+ end
+ object gj_hotWind2: TcxTextEdit
+ Tag = 2
+ Left = 298
+ Top = 334
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 39
+ Width = 150
+ end
+ object gj_hotWind3: TcxTextEdit
+ Tag = 2
+ Left = 507
+ Top = 334
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 40
+ Width = 150
+ end
+ object gj_hotWind4: TcxTextEdit
+ Tag = 2
+ Left = 706
+ Top = 334
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 41
+ Width = 150
+ end
+ object gj_hotWind5: TcxTextEdit
+ Tag = 2
+ Left = 99
+ Top = 364
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 42
+ Width = 150
+ end
+ object gj_hotWind6: TcxTextEdit
+ Tag = 2
+ Left = 298
+ Top = 364
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 43
+ Width = 150
+ end
+ object gj_hotWind7: TcxTextEdit
+ Tag = 2
+ Left = 507
+ Top = 364
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 44
+ Width = 150
+ end
+ object gj_hotWind8: TcxTextEdit
+ Tag = 2
+ Left = 706
+ Top = 364
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 45
+ Width = 150
+ end
+ object gj_hotWind9: TcxTextEdit
+ Tag = 2
+ Left = 99
+ Top = 394
+ Hint = #21038#33014#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 46
+ Width = 150
+ end
+ object gj_leftGap: TcxTextEdit
+ Tag = 2
+ Left = 655
+ Top = 28
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 47
+ Width = 150
+ end
+ object gj_Precautions: TcxTextEdit
+ Tag = 2
+ Left = 100
+ Top = 491
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 48
+ Height = 50
+ Width = 650
+ end
+ object gj_rightGap: TcxTextEdit
+ Tag = 2
+ Left = 655
+ Top = 53
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 49
+ Width = 150
+ end
+ object gj_Rolling: TcxTextEdit
+ Tag = 2
+ Left = 655
+ Top = 104
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 50
+ Width = 150
+ end
+ object gj_RollMethod: TcxComboBox
+ Tag = 2
+ Left = 397
+ Top = 104
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 51
+ Width = 150
+ end
+ object gj_RosePower: TcxTextEdit
+ Tag = 2
+ Left = 112
+ Top = 79
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 52
+ Width = 150
+ end
+ object gj_rowWind1: TcxTextEdit
+ Tag = 2
+ Left = 100
+ Top = 456
+ Hint = #21038#33014#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 53
+ Width = 150
+ end
+ object gj_rowWind2: TcxTextEdit
+ Tag = 2
+ Left = 299
+ Top = 456
+ Hint = #21038#33014#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 54
+ Width = 150
+ end
+ object gj_rowWind3: TcxTextEdit
+ Tag = 2
+ Left = 508
+ Top = 456
+ Hint = #21038#33014#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 55
+ Width = 150
+ end
+ object gj_rowWind4: TcxTextEdit
+ Tag = 2
+ Left = 707
+ Top = 456
+ Hint = #21038#33014#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 56
+ Width = 150
+ end
+ object gj_TubePress: TcxTextEdit
+ Tag = 2
+ Left = 397
+ Top = 28
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 57
+ Width = 150
+ end
+ object gj_tubeTemper: TcxTextEdit
+ Tag = 2
+ Left = 397
+ Top = 79
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 58
+ Width = 150
+ end
+ object gj_upperNeedle: TcxTextEdit
+ Tag = 2
+ Left = 603
+ Top = 152
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 59
+ Width = 150
+ end
+ object gj_UpSuperRate: TcxTextEdit
+ Tag = 2
+ Left = 100
+ Top = 152
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 60
+ Width = 150
+ end
+ object TbGJReplace3: TcxButton
+ Left = 97
+ Top = 423
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 61
+ OnClick = TbGJReplace3Click
+ end
+ object TbGJClear3: TcxButton
+ Left = 184
+ Top = 423
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 62
+ OnClick = TbGJClear3Click
+ end
+ object cxLabel197: TcxLabel
+ Left = 6
+ Top = 543
+ Caption = #27974#26009#37197#27604':'
+ end
+ object TbGJReplace2: TcxButton
+ Left = 100
+ Top = 182
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 64
+ OnClick = TbGJReplace2Click
+ end
+ object TbGJClear2: TcxButton
+ Left = 187
+ Top = 182
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 65
+ OnClick = TbGJClear2Click
+ end
+ object cxLabel234: TcxLabel
+ Left = 277
+ Top = 218
+ Caption = '2#'
+ end
+ object cxLabel235: TcxLabel
+ Left = 6
+ Top = 186
+ Caption = #28201#25511#8451':'
+ end
+ object cxLabel236: TcxLabel
+ Left = 34
+ Top = 215
+ Caption = '1#'
+ end
+ object cxLabel237: TcxLabel
+ Left = 34
+ Top = 247
+ Caption = '5#'
+ end
+ object cxLabel238: TcxLabel
+ Left = 34
+ Top = 278
+ Caption = '9#'
+ end
+ object cxLabel247: TcxLabel
+ Left = 277
+ Top = 248
+ Caption = '6#'
+ end
+ object cxLabel249: TcxLabel
+ Left = 487
+ Top = 220
+ Caption = '3#'
+ end
+ object cxLabel250: TcxLabel
+ Left = 689
+ Top = 218
+ Caption = '4#'
+ end
+ object cxLabel251: TcxLabel
+ Left = 487
+ Top = 249
+ Caption = '7#'
+ end
+ object cxLabel252: TcxLabel
+ Left = 689
+ Top = 248
+ Caption = '8#'
+ end
+ object cxLabel253: TcxLabel
+ Left = 277
+ Top = 278
+ Caption = '10#'
+ end
+ object cxLabel273: TcxLabel
+ Left = 487
+ Top = 278
+ Caption = '11#'
+ end
+ object gj_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 100
+ Top = 215
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 78
+ Width = 150
+ end
+ object gj_temperature10: TcxTextEdit
+ Tag = 2
+ Left = 299
+ Top = 275
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 79
+ Width = 150
+ end
+ object gj_temperature11: TcxTextEdit
+ Tag = 2
+ Left = 508
+ Top = 275
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 80
+ Width = 150
+ end
+ object gj_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 299
+ Top = 215
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 81
+ Width = 150
+ end
+ object gj_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 508
+ Top = 215
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 82
+ Width = 150
+ end
+ object gj_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 707
+ Top = 215
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 83
+ Width = 150
+ end
+ object gj_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 100
+ Top = 245
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 84
+ Width = 150
+ end
+ object gj_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 299
+ Top = 245
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 85
+ Width = 150
+ end
+ object gj_temperature7: TcxTextEdit
+ Tag = 2
+ Left = 508
+ Top = 245
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 86
+ Width = 150
+ end
+ object gj_temperature8: TcxTextEdit
+ Tag = 2
+ Left = 707
+ Top = 245
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 87
+ Width = 150
+ end
+ object gj_temperature9: TcxTextEdit
+ Tag = 2
+ Left = 100
+ Top = 275
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 88
+ Width = 150
+ end
+ object cxLabel239: TcxLabel
+ Left = 6
+ Top = 129
+ Caption = #21069#36229#21890':'
+ end
+ object cxLabel240: TcxLabel
+ Left = 36
+ Top = 55
+ Caption = #36710#36895'(M/Min)'
+ end
+ object gj_speed: TcxTextEdit
+ Tag = 2
+ Left = 112
+ Top = 53
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 91
+ Width = 150
+ end
+ object cxLabel278: TcxLabel
+ Left = 36
+ Top = 29
+ Caption = #21038#33014#27425#25968
+ end
+ object gj_number: TcxTextEdit
+ Tag = 2
+ Left = 113
+ Top = 28
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 93
+ Width = 150
+ end
+ end
+ object cxGrid3: TcxGrid
+ Left = 0
+ Top = 608
+ Width = 1143
+ Height = 140
+ Align = alBottom
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 1
+ object Tv5: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_5
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object Tv5Column1: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 69
+ end
+ object Tv5gj_Name: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'gj_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = Tv5gj_NamePropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv5gj_spel: TcxGridDBColumn
+ Caption = #21161#21058#31867#22411
+ DataBinding.FieldName = 'gj_spel'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv5gj_unit: TcxGridDBColumn
+ Caption = #21333#20301'(%)'
+ DataBinding.FieldName = 'gj_unit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv5gj_unitPropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv5gj_use: TcxGridDBColumn
+ Caption = #29992#37327
+ DataBinding.FieldName = 'gj_use'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv5gj_usePropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv5gj_rate: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'gj_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = Tv5gj_unitPropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv5gj_precautions: TcxGridDBColumn
+ Caption = #27880#24847#20107#39033
+ DataBinding.FieldName = 'gj_precautions'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn26: TcxGridDBColumn
+ Caption = #31859#25968
+ DataBinding.IsNullValueType = True
+ Visible = False
+ end
+ object cxGridDBColumn27: TcxGridDBColumn
+ Caption = #29992#33014#37327#65288'KG'#65289
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 88
+ end
+ object cxGridDBColumn28: TcxGridDBColumn
+ Caption = #37197#27700#37327#65288'KG'#65289
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 78
+ end
+ end
+ object cxGridLevel3: TcxGridLevel
+ GridView = Tv5
+ end
+ end
+ object ToolBar5: TToolBar
+ Left = 0
+ Top = 570
+ Width = 1143
+ Height = 38
+ Align = alBottom
+ ButtonHeight = 38
+ ButtonWidth = 75
+ Caption = 'ToolBar3'
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ShowCaptions = True
+ TabOrder = 2
+ Transparent = True
+ Visible = False
+ object TbgjAdd: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = TbgjAddClick
+ end
+ object TbgjDel: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = TbgjDelClick
+ end
+ end
+ end
+ object FP: TcxTabSheet
+ Caption = ' '#21457#27873' '
+ ImageIndex = 9
+ object Panel_FP: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 598
+ Align = alClient
+ TabOrder = 0
+ object TbFPReplace2: TcxButton
+ Left = 90
+ Top = 205
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 0
+ OnClick = TbFPReplace2Click
+ end
+ object TbFPClear2: TcxButton
+ Left = 177
+ Top = 205
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 1
+ OnClick = TbFPClear2Click
+ end
+ object TbFPReplace1: TcxButton
+ Left = 90
+ Top = 326
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 2
+ OnClick = TbFPReplace1Click
+ end
+ object TbFPClear1: TcxButton
+ Left = 177
+ Top = 326
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 3
+ OnClick = TbFPClear1Click
+ end
+ object cxLabel283: TcxLabel
+ Left = 276
+ Top = 32
+ Caption = #28888#31570#21387#21147'(MPA)'
+ end
+ object cxLabel284: TcxLabel
+ Left = 267
+ Top = 241
+ Caption = '2#'
+ end
+ object cxLabel285: TcxLabel
+ Left = 4
+ Top = 210
+ Caption = #28201#25511#8451':'
+ end
+ object cxLabel286: TcxLabel
+ Left = 24
+ Top = 238
+ Caption = '1#'
+ end
+ object cxLabel287: TcxLabel
+ Left = 24
+ Top = 270
+ Caption = '5#'
+ end
+ object cxLabel288: TcxLabel
+ Left = 24
+ Top = 301
+ Caption = '9#'
+ end
+ object cxLabel290: TcxLabel
+ Left = 30
+ Top = 58
+ Caption = #36710#36895'(M/Min)'
+ end
+ object cxLabel291: TcxLabel
+ Left = 4
+ Top = 10
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel292: TcxLabel
+ Left = 18
+ Top = 533
+ Caption = #22791#27880
+ end
+ object cxLabel293: TcxLabel
+ Left = 522
+ Top = 32
+ Caption = #19978#36229#21890#29575'(%)'
+ end
+ object cxLabel294: TcxLabel
+ Left = 276
+ Top = 109
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object cxLabel295: TcxLabel
+ Left = 30
+ Top = 83
+ Caption = #24352#21147'(MPA)'
+ end
+ object cxLabel296: TcxLabel
+ Left = 522
+ Top = 83
+ Caption = #19978#38024'(%)'
+ end
+ object cxLabel297: TcxLabel
+ Left = 267
+ Top = 271
+ Caption = '6#'
+ end
+ object cxLabel298: TcxLabel
+ Left = 522
+ Top = 58
+ Caption = #19979#36229#21890#29575'(%)'
+ end
+ object cxLabel299: TcxLabel
+ Left = 477
+ Top = 243
+ Caption = '3#'
+ end
+ object cxLabel300: TcxLabel
+ Left = 679
+ Top = 241
+ Caption = '4#'
+ end
+ object cxLabel301: TcxLabel
+ Left = 477
+ Top = 272
+ Caption = '7#'
+ end
+ object cxLabel302: TcxLabel
+ Left = 679
+ Top = 271
+ Caption = '8#'
+ end
+ object cxLabel303: TcxLabel
+ Left = 267
+ Top = 301
+ Caption = '10#'
+ end
+ object cxLabel304: TcxLabel
+ Left = 276
+ Top = 58
+ Caption = #21387#36710#21387#21147'(MPA)'
+ end
+ object cxLabel305: TcxLabel
+ Left = 276
+ Top = 83
+ Caption = #28888#31570#28201#24230'('#8451')'
+ end
+ object cxLabel306: TcxLabel
+ Left = 266
+ Top = 362
+ Caption = '2#'
+ end
+ object cxLabel307: TcxLabel
+ Left = 4
+ Top = 330
+ Caption = #28909#39118'r/min:'
+ end
+ object cxLabel308: TcxLabel
+ Left = 23
+ Top = 359
+ Caption = '1#'
+ end
+ object cxLabel309: TcxLabel
+ Left = 23
+ Top = 391
+ Caption = '5#'
+ end
+ object cxLabel310: TcxLabel
+ Left = 23
+ Top = 422
+ Caption = '9#'
+ end
+ object cxLabel311: TcxLabel
+ Left = 266
+ Top = 392
+ Caption = '6#'
+ end
+ object cxLabel312: TcxLabel
+ Left = 476
+ Top = 364
+ Caption = '3#'
+ end
+ object cxLabel313: TcxLabel
+ Left = 678
+ Top = 362
+ Caption = '4#'
+ end
+ object cxLabel314: TcxLabel
+ Left = 476
+ Top = 393
+ Caption = '7#'
+ end
+ object cxLabel315: TcxLabel
+ Left = 678
+ Top = 392
+ Caption = '8#'
+ end
+ object cxLabel316: TcxLabel
+ Left = 266
+ Top = 422
+ Caption = '10#'
+ end
+ object cxLabel317: TcxLabel
+ Left = 266
+ Top = 483
+ Caption = '2#'
+ end
+ object cxLabel318: TcxLabel
+ Left = 4
+ Top = 454
+ Caption = #25490#39118'r/min:'
+ end
+ object cxLabel319: TcxLabel
+ Left = 23
+ Top = 480
+ Caption = '1#'
+ end
+ object cxLabel320: TcxLabel
+ Left = 476
+ Top = 485
+ Caption = '3#'
+ end
+ object cxLabel321: TcxLabel
+ Left = 678
+ Top = 483
+ Caption = '4#'
+ end
+ object cxLabel322: TcxLabel
+ Left = 476
+ Top = 422
+ Caption = '11#'
+ end
+ object cxLabel323: TcxLabel
+ Left = 477
+ Top = 301
+ Caption = '11#'
+ end
+ object cxLabel324: TcxLabel
+ Left = 522
+ Top = 109
+ Caption = #24038#38388#38553'('#19997')'
+ end
+ object cxLabel325: TcxLabel
+ Left = 522
+ Top = 135
+ Caption = #21491#38388#38553'('#19997')'
+ end
+ object cxLabel326: TcxLabel
+ Left = 30
+ Top = 109
+ Caption = #33853#24067'(%)'
+ end
+ object cxLabel327: TcxLabel
+ Left = 30
+ Top = 135
+ Caption = #25171#21367'(%)'
+ end
+ object fp_CarPress: TcxTextEdit
+ Tag = 2
+ Left = 358
+ Top = 56
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 48
+ Width = 150
+ end
+ object fp_DownSuperRate: TcxTextEdit
+ Tag = 2
+ Left = 595
+ Top = 56
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 49
+ Width = 150
+ end
+ object fp_fallCloth: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 107
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 50
+ Width = 150
+ end
+ object fp_hotWind1: TcxTextEdit
+ Tag = 2
+ Left = 89
+ Top = 359
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 51
+ Width = 150
+ end
+ object fp_hotWind10: TcxTextEdit
+ Tag = 2
+ Left = 288
+ Top = 419
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 52
+ Width = 150
+ end
+ object fp_hotWind11: TcxTextEdit
+ Tag = 2
+ Left = 497
+ Top = 419
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 53
+ Width = 150
+ end
+ object fp_hotWind2: TcxTextEdit
+ Tag = 2
+ Left = 288
+ Top = 359
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 54
+ Width = 150
+ end
+ object fp_hotWind3: TcxTextEdit
+ Tag = 2
+ Left = 497
+ Top = 359
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 55
+ Width = 150
+ end
+ object fp_hotWind4: TcxTextEdit
+ Tag = 2
+ Left = 696
+ Top = 359
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 56
+ Width = 150
+ end
+ object fp_hotWind5: TcxTextEdit
+ Tag = 2
+ Left = 89
+ Top = 389
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 57
+ Width = 150
+ end
+ object fp_hotWind6: TcxTextEdit
+ Tag = 2
+ Left = 288
+ Top = 389
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 58
+ Width = 150
+ end
+ object fp_hotWind7: TcxTextEdit
+ Tag = 2
+ Left = 497
+ Top = 389
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 59
+ Width = 150
+ end
+ object fp_hotWind8: TcxTextEdit
+ Tag = 2
+ Left = 696
+ Top = 389
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 60
+ Width = 150
+ end
+ object fp_hotWind9: TcxTextEdit
+ Tag = 2
+ Left = 89
+ Top = 419
+ Hint = #21457#27873#28909#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 61
+ Width = 150
+ end
+ object fp_leftGap: TcxTextEdit
+ Tag = 2
+ Left = 595
+ Top = 107
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 62
+ Width = 150
+ end
+ object fp_Precautions: TcxTextEdit
+ Tag = 2
+ Left = 69
+ Top = 517
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 63
+ Height = 50
+ Width = 759
+ end
+ object fp_rightGap: TcxTextEdit
+ Tag = 2
+ Left = 595
+ Top = 133
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 64
+ Width = 150
+ end
+ object fp_Rolling: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 133
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 65
+ Width = 150
+ end
+ object fp_RollMethod: TcxComboBox
+ Tag = 2
+ Left = 358
+ Top = 107
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 66
+ Width = 150
+ end
+ object fp_RosePower: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 82
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 67
+ Width = 150
+ end
+ object fp_rowWind1: TcxTextEdit
+ Tag = 2
+ Left = 89
+ Top = 480
+ Hint = #21457#27873#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 68
+ Width = 150
+ end
+ object fp_rowWind2: TcxTextEdit
+ Tag = 2
+ Left = 288
+ Top = 480
+ Hint = #21457#27873#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 69
+ Width = 150
+ end
+ object fp_rowWind3: TcxTextEdit
+ Tag = 2
+ Left = 497
+ Top = 480
+ Hint = #21457#27873#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 70
+ Width = 150
+ end
+ object fp_rowWind4: TcxTextEdit
+ Tag = 2
+ Left = 696
+ Top = 480
+ Hint = #21457#27873#25490#39118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 71
+ Width = 150
+ end
+ object fp_speed: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 57
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 72
+ Width = 150
+ end
+ object fp_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 90
+ Top = 238
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 73
+ Width = 150
+ end
+ object fp_temperature10: TcxTextEdit
+ Tag = 2
+ Left = 289
+ Top = 298
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 74
+ Width = 150
+ end
+ object fp_temperature11: TcxTextEdit
+ Tag = 2
+ Left = 498
+ Top = 298
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 75
+ Width = 150
+ end
+ object fp_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 289
+ Top = 238
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 76
+ Width = 150
+ end
+ object fp_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 498
+ Top = 238
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 77
+ Width = 150
+ end
+ object fp_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 697
+ Top = 238
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 78
+ Width = 150
+ end
+ object fp_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 90
+ Top = 268
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 79
+ Width = 150
+ end
+ object fp_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 289
+ Top = 268
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 80
+ Width = 150
+ end
+ object fp_temperature7: TcxTextEdit
+ Tag = 2
+ Left = 498
+ Top = 268
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 81
+ Width = 150
+ end
+ object fp_temperature8: TcxTextEdit
+ Tag = 2
+ Left = 697
+ Top = 268
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 82
+ Width = 150
+ end
+ object fp_temperature9: TcxTextEdit
+ Tag = 2
+ Left = 90
+ Top = 298
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 83
+ Width = 150
+ end
+ object fp_TubePress: TcxTextEdit
+ Tag = 2
+ Left = 358
+ Top = 31
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 84
+ Width = 150
+ end
+ object fp_tubeTemper: TcxTextEdit
+ Tag = 2
+ Left = 358
+ Top = 82
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 85
+ Width = 150
+ end
+ object fp_upperNeedle: TcxTextEdit
+ Tag = 2
+ Left = 595
+ Top = 82
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 86
+ Width = 150
+ end
+ object fp_UpSuperRate: TcxTextEdit
+ Tag = 2
+ Left = 595
+ Top = 31
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 87
+ Width = 150
+ end
+ object cxLabel27: TcxLabel
+ Left = 286
+ Top = 181
+ Caption = #27969#37327'(L/h)'
+ end
+ object cxLabel39: TcxLabel
+ Left = 4
+ Top = 154
+ Caption = #21457#27873#26426':'
+ end
+ object cxLabel164: TcxLabel
+ Left = 522
+ Top = 181
+ Caption = #27668#20307'(L/h)'
+ end
+ object fp_Flow: TcxTextEdit
+ Tag = 2
+ Left = 358
+ Top = 180
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 91
+ Width = 150
+ end
+ object fp_Gas: TcxTextEdit
+ Tag = 2
+ Left = 595
+ Top = 180
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 92
+ Width = 150
+ end
+ object cxLabel168: TcxLabel
+ Left = 22
+ Top = 181
+ Caption = #25605#25292#36716#36895'(r/min)'
+ end
+ object fp_mixSpeed: TcxTextEdit
+ Tag = 2
+ Left = 115
+ Top = 180
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 94
+ Width = 150
+ end
+ object TbFPReplace3: TcxButton
+ Left = 90
+ Top = 448
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 95
+ OnClick = TbFPReplace3Click
+ end
+ object TbFPClear3: TcxButton
+ Left = 177
+ Top = 448
+ Width = 75
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 96
+ OnClick = TbFPClear3Click
+ end
+ object cxLabel232: TcxLabel
+ Left = 4
+ Top = 573
+ Caption = #27974#26009#37197#27604':'
+ end
+ object fp_gjNumber: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 31
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 98
+ Width = 150
+ end
+ object cxLabel279: TcxLabel
+ Left = 30
+ Top = 32
+ Caption = #21038#33014#27425#25968
+ end
+ end
+ object cxGrid1: TcxGrid
+ Left = 0
+ Top = 636
+ Width = 1143
+ Height = 112
+ Align = alBottom
+ TabOrder = 1
+ object Tv6: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_6
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object Tv6Column1: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 67
+ end
+ object Tv6fp_Name: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'fp_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = Tv6fp_NamePropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv6fp_spel: TcxGridDBColumn
+ Caption = #21161#21058#31867#22411
+ DataBinding.FieldName = 'fp_spel'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv6fp_unit: TcxGridDBColumn
+ Caption = #21333#20301'(%)'
+ DataBinding.FieldName = 'fp_unit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv6fp_ratePropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv6Column2: TcxGridDBColumn
+ Caption = #29992#37327
+ DataBinding.FieldName = 'fp_use'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv6Column2PropertiesEditValueChanged
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv6fp_rate: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'fp_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = Tv6fp_ratePropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv6fp_precautions: TcxGridDBColumn
+ Caption = #27880#24847#20107#39033
+ DataBinding.FieldName = 'fp_precautions'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn16: TcxGridDBColumn
+ Caption = #31859#25968
+ DataBinding.IsNullValueType = True
+ Visible = False
+ end
+ object cxGridDBColumn17: TcxGridDBColumn
+ Caption = #29992#33014#37327#65288'KG'#65289
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 88
+ end
+ object cxGridDBColumn18: TcxGridDBColumn
+ Caption = #37197#27700#37327#65288'KG'#65289
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 78
+ end
+ end
+ object cxGridLevel2: TcxGridLevel
+ GridView = Tv6
+ end
+ end
+ object ToolBar3: TToolBar
+ Left = 0
+ Top = 598
+ Width = 1143
+ Height = 38
+ Align = alBottom
+ ButtonHeight = 38
+ ButtonWidth = 75
+ Caption = 'ToolBar3'
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ShowCaptions = True
+ TabOrder = 2
+ Transparent = True
+ Visible = False
+ ExplicitLeft = 4
+ ExplicitTop = 595
+ object TbfpAdd: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = TbfpAddClick
+ end
+ object TbfpDel: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = TbfpDelClick
+ end
+ end
+ end
+ object cxTabSheet4: TcxTabSheet
+ Caption = ' '#38450#27700#26087
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ImageIndex = 4
+ ParentFont = False
+ object Panel4: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 748
+ Align = alClient
+ TabOrder = 0
+ object cxLabel100: TcxLabel
+ Left = 260
+ Top = 310
+ Caption = '6#'
+ end
+ object cxLabel101: TcxLabel
+ Left = 627
+ Top = 126
+ Caption = #19979#36229#21890#29575'(%)'
+ end
+ object cxLabel102: TcxLabel
+ Left = 463
+ Top = 280
+ Caption = '3#'
+ end
+ object cxLabel103: TcxLabel
+ Left = 673
+ Top = 280
+ Caption = '4#'
+ end
+ object cxLabel104: TcxLabel
+ Left = 463
+ Top = 309
+ Caption = '7#'
+ end
+ object cxLabel105: TcxLabel
+ Left = 673
+ Top = 309
+ Caption = '8#'
+ end
+ object cxLabel106: TcxLabel
+ Left = 260
+ Top = 340
+ Caption = '10#'
+ end
+ object cxLabel109: TcxLabel
+ Left = 28
+ Top = 152
+ Caption = #21387#36710#21387#21147'(MPA)'
+ end
+ object cxLabel110: TcxLabel
+ Left = 306
+ Top = 152
+ Caption = #21387#36746#21518#21547#27700#29575'(%)'
+ end
+ object cxLabel111: TcxLabel
+ Left = 0
+ Top = 430
+ Caption = #27974#26009#37197#27604':'
+ end
+ object cxLabel82: TcxLabel
+ Left = 306
+ Top = 126
+ Caption = #24490#29615#39118#26426#36716#36895'('#36716'/'#20998')'
+ end
+ object cxLabel83: TcxLabel
+ Left = 28
+ Top = 126
+ Caption = #28888#31570#21387#21147'(MPA)'
+ end
+ object cxLabel84: TcxLabel
+ Left = 260
+ Top = 280
+ Caption = '2#'
+ end
+ object cxLabel85: TcxLabel
+ Left = -2
+ Top = 249
+ Caption = #28888#31665#28201#24230#8451':'
+ end
+ object cxLabel86: TcxLabel
+ Left = 29
+ Top = 280
+ Caption = '1#'
+ end
+ object cxLabel87: TcxLabel
+ Left = 29
+ Top = 310
+ Caption = '5#'
+ end
+ object cxLabel88: TcxLabel
+ Left = 29
+ Top = 340
+ Caption = '9#'
+ end
+ object cxLabel89: TcxLabel
+ Left = 28
+ Top = 31
+ Caption = #36864#24067#26041#27861
+ end
+ object cxLabel90: TcxLabel
+ Left = 306
+ Top = 62
+ Caption = #36710#23614#38376#24133
+ end
+ object cxLabel91: TcxLabel
+ Left = 306
+ Top = 93
+ Caption = #25490#39118#26426#36716#36895'('#36716'/'#20998')'
+ end
+ object cxLabel92: TcxLabel
+ Left = 627
+ Top = 31
+ Caption = #36895#24230'(M/Min)'
+ end
+ object cxLabel93: TcxLabel
+ Left = -2
+ Top = 9
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel94: TcxLabel
+ Left = 29
+ Top = 381
+ Caption = #27880#24847#20107#39033
+ end
+ object cxLabel95: TcxLabel
+ Left = 627
+ Top = 93
+ Caption = #19978#36229#21890#29575'(%)'
+ end
+ object cxLabel96: TcxLabel
+ Left = 306
+ Top = 31
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object cxLabel97: TcxLabel
+ Left = 28
+ Top = 93
+ Caption = #28072#21147'(MPA)'
+ end
+ object cxLabel98: TcxLabel
+ Left = 627
+ Top = 62
+ Caption = #27611#21047#36229#21890#29575'(%)'
+ end
+ object cxLabel99: TcxLabel
+ Left = 28
+ Top = 62
+ Caption = #23545#20013#26426#24320#24133
+ end
+ object fs_OutFanSpeedDQ: TcxTextEdit
+ Tag = 999
+ Left = 430
+ Top = 88
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 28
+ Width = 150
+ end
+ object fs_WidthAmplitudeDQ: TcxTextEdit
+ Tag = 999
+ Left = 430
+ Top = 57
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 29
+ Width = 150
+ end
+ object fs_RosePowerDQ: TcxTextEdit
+ Tag = 999
+ Left = 116
+ Top = 88
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 30
+ Width = 150
+ end
+ object fs_BrushSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 714
+ Top = 57
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 31
+ Width = 150
+ end
+ object fs_UpSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 714
+ Top = 88
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 32
+ Width = 150
+ end
+ object fs_speedDQ: TcxTextEdit
+ Tag = 999
+ Left = 714
+ Top = 27
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 33
+ Width = 150
+ end
+ object fs_TubePressDQ: TcxTextEdit
+ Tag = 999
+ Left = 116
+ Top = 118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 34
+ Width = 150
+ end
+ object fs_CycleFanSpeedDQ: TcxTextEdit
+ Tag = 999
+ Left = 430
+ Top = 118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 35
+ Width = 150
+ end
+ object fs_DownSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 714
+ Top = 118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 36
+ Width = 150
+ end
+ object fs_CarPressDQ: TcxTextEdit
+ Tag = 999
+ Left = 116
+ Top = 149
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 37
+ Width = 150
+ end
+ object fs_PressWaterContentDQ: TcxTextEdit
+ Tag = 999
+ Left = 430
+ Top = 149
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 38
+ Width = 150
+ end
+ object fs_UnpackingMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 116
+ Top = 27
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #24067#31568)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 39
+ Width = 150
+ end
+ object fs_OpenAmplitudeDQ: TcxComboBox
+ Tag = 999
+ Left = 116
+ Top = 58
+ Properties.Items.Strings = (
+ ''
+ #24320
+ #20851)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 40
+ Width = 150
+ end
+ object fs_RollMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 430
+ Top = 27
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 41
+ Width = 150
+ end
+ object cxLabel151: TcxLabel
+ Left = 28
+ Top = 183
+ Caption = #31859#25968'(M)'
+ end
+ object cxLabel152: TcxLabel
+ Left = 627
+ Top = 152
+ Caption = #29992#33014#37327'(KG)'
+ end
+ object cxLabel153: TcxLabel
+ Left = 627
+ Top = 183
+ Caption = #37197#27700#37327'(KG)'
+ end
+ object cxLabel157: TcxLabel
+ Left = 306
+ Top = 183
+ Caption = #27599#31859#29992#37327'(g)'
+ end
+ object cxLabel158: TcxLabel
+ Left = 28
+ Top = 213
+ Caption = #33014#38754#20811#37325'(g/m'#178')'
+ end
+ object fs_meterDQ: TcxTextEdit
+ Tag = 999
+ Left = 116
+ Top = 180
+ Properties.OnChange = fs_meterPropertiesChange
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 47
+ Width = 150
+ end
+ object fs_useGlubDQ: TcxTextEdit
+ Tag = 999
+ Left = 714
+ Top = 149
+ Enabled = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 48
+ Text = #35745#31639#29983#25104
+ Width = 150
+ end
+ object fs_waterDistributionDQ: TcxTextEdit
+ Tag = 999
+ Left = 714
+ Top = 179
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 49
+ Width = 150
+ end
+ object fs_useOneGlubDQ: TcxTextEdit
+ Tag = 999
+ Left = 116
+ Top = 210
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 50
+ Width = 150
+ end
+ object fs_useOneMeterDQ: TcxTextEdit
+ Tag = 999
+ Left = 430
+ Top = 179
+ Properties.OnChange = fs_meterPropertiesChange
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 51
+ Width = 150
+ end
+ end
+ end
+ object cxTabSheet2: TcxTabSheet
+ Caption = ' '#28165#27927#26087
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ImageIndex = 2
+ ParentFont = False
+ object Panel2: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 748
+ Hint = 'tt'
+ Align = alClient
+ TabOrder = 0
+ object cxLabel10: TcxLabel
+ Left = 23
+ Top = 123
+ Caption = #36710#23614#32553#24133
+ end
+ object cxLabel11: TcxLabel
+ Left = 387
+ Top = 28
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object cxLabel12: TcxLabel
+ Left = 23
+ Top = 60
+ Caption = #21161#21058#21517#31216
+ end
+ object cxLabel13: TcxLabel
+ Left = 1
+ Top = 6
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel14: TcxLabel
+ Left = 26
+ Top = 291
+ Caption = #27880#24847#20107#39033
+ end
+ object cxLabel15: TcxLabel
+ Left = 430
+ Top = 218
+ Hint = #28165#27927#27700#28201
+ Caption = '4#'
+ end
+ object cxLabel16: TcxLabel
+ Left = 430
+ Top = 187
+ Hint = #28165#27927#27700#28201
+ Caption = '2#'
+ end
+ object cxLabel17: TcxLabel
+ Left = 1
+ Top = 165
+ Caption = #27700#28201#8451':'
+ end
+ object cxLabel18: TcxLabel
+ Left = 26
+ Top = 187
+ Caption = '1#'
+ end
+ object cxLabel19: TcxLabel
+ Left = 26
+ Top = 217
+ Caption = '3#'
+ end
+ object cxLabel20: TcxLabel
+ Left = 26
+ Top = 247
+ Caption = '5#'
+ end
+ object cxLabel7: TcxLabel
+ Left = 23
+ Top = 28
+ Caption = #36864#24067#26041#27861
+ end
+ object cxLabel8: TcxLabel
+ Left = 23
+ Top = 91
+ Caption = #36895#24230
+ end
+ object cxLabel9: TcxLabel
+ Left = 387
+ Top = 91
+ Caption = #28165#27927#21518#21547#27700#29575
+ end
+ object qx_WaterContentDQ: TcxTextEdit
+ Tag = 999
+ Left = 469
+ Top = 89
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 14
+ Width = 234
+ end
+ object qx_Add_NameDQ: TcxTextEdit
+ Tag = 999
+ Left = 81
+ Top = 59
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 15
+ Width = 234
+ end
+ object qx_speedDQ: TcxTextEdit
+ Tag = 999
+ Left = 81
+ Top = 89
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 16
+ Width = 234
+ end
+ object qx_ReduceAmplitudeDQ: TcxTextEdit
+ Tag = 999
+ Left = 81
+ Top = 120
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 17
+ Width = 234
+ end
+ object qx_Add_NumberDQ: TcxTextEdit
+ Tag = 999
+ Left = 469
+ Top = 59
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 18
+ Width = 234
+ end
+ object cxLabel149: TcxLabel
+ Left = 387
+ Top = 60
+ Caption = #21161#21058#25968#37327
+ end
+ object qx_UnpackingMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 81
+ Top = 28
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #24067#31568)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 20
+ Width = 234
+ end
+ object qx_RollMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 469
+ Top = 28
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 21
+ Width = 234
+ end
+ end
+ end
+ object cxTabSheet5: TcxTabSheet
+ Caption = ' '#21457#27873#26087
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ImageIndex = 4
+ ParentFont = False
+ object Panel5: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 748
+ Align = alClient
+ TabOrder = 0
+ object cxLabel107: TcxLabel
+ Left = 353
+ Top = 441
+ Caption = #31995#32479#21387#21147'(Kg)'
+ end
+ object cxLabel108: TcxLabel
+ Left = 353
+ Top = 411
+ Caption = #28151#21512#22836#30005#26426#39057#29575'('#36716')'
+ end
+ object cxLabel112: TcxLabel
+ Left = 25
+ Top = 411
+ Caption = #27668#20307#27969#37327'(L/h)'
+ end
+ object cxLabel29: TcxLabel
+ Left = 261
+ Top = 273
+ Caption = '6#'
+ end
+ object cxLabel30: TcxLabel
+ Left = 630
+ Top = 126
+ Caption = #19979#36229#21890#29575'(%)'
+ end
+ object cxLabel31: TcxLabel
+ Left = 464
+ Top = 243
+ Caption = '3#'
+ end
+ object cxLabel32: TcxLabel
+ Left = 674
+ Top = 243
+ Caption = '4#'
+ end
+ object cxLabel33: TcxLabel
+ Left = 464
+ Top = 272
+ Caption = '7#'
+ end
+ object cxLabel34: TcxLabel
+ Left = 674
+ Top = 272
+ Caption = '8#'
+ end
+ object cxLabel35: TcxLabel
+ Left = 261
+ Top = 303
+ Caption = '10#'
+ end
+ object cxLabel36: TcxLabel
+ Left = 28
+ Top = 155
+ Caption = #20992#26495#24038#39640#24230'(mm)'
+ end
+ object cxLabel49: TcxLabel
+ Left = 311
+ Top = 157
+ Caption = #20992#26495#21491#39640#24230'(mm)'
+ end
+ object cxLabel50: TcxLabel
+ Left = 0
+ Top = 471
+ Caption = #27974#26009#37197#27604':'
+ end
+ object cxLabel51: TcxLabel
+ Left = 311
+ Top = 125
+ Caption = #24490#29615#39118#26426#36716#36895'('#36716'/'#20998')'
+ end
+ object cxLabel52: TcxLabel
+ Left = 28
+ Top = 124
+ Caption = #28888#31570#21387#21147'(MPA)'
+ end
+ object cxLabel53: TcxLabel
+ Left = 261
+ Top = 243
+ Caption = '2#'
+ end
+ object cxLabel54: TcxLabel
+ Left = 0
+ Top = 211
+ Caption = #28888#31665#28201#24230#8451':'
+ end
+ object cxLabel66: TcxLabel
+ Left = 30
+ Top = 243
+ Caption = '1#'
+ end
+ object cxLabel67: TcxLabel
+ Left = 30
+ Top = 273
+ Caption = '5#'
+ end
+ object cxLabel68: TcxLabel
+ Left = 30
+ Top = 303
+ Caption = '9#'
+ end
+ object cxLabel69: TcxLabel
+ Left = 28
+ Top = 31
+ Caption = #36864#24067#26041#27861
+ end
+ object cxLabel70: TcxLabel
+ Left = 311
+ Top = 63
+ Caption = #36710#23614#38376#24133
+ end
+ object cxLabel71: TcxLabel
+ Left = 311
+ Top = 94
+ Caption = #25490#39118#26426#36716#36895'('#36716'/'#20998')'
+ end
+ object cxLabel72: TcxLabel
+ Left = 630
+ Top = 31
+ Caption = #36895#24230'(M/Min)'
+ end
+ object cxLabel73: TcxLabel
+ Left = 0
+ Top = 9
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel74: TcxLabel
+ Left = 30
+ Top = 344
+ Caption = #27880#24847#20107#39033
+ end
+ object cxLabel75: TcxLabel
+ Left = 630
+ Top = 94
+ Caption = #19978#36229#21890#29575'(%)'
+ end
+ object cxLabel76: TcxLabel
+ Left = 311
+ Top = 31
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object cxLabel77: TcxLabel
+ Left = 28
+ Top = 93
+ Caption = #28072#21147'(MPA)'
+ end
+ object cxLabel78: TcxLabel
+ Left = 630
+ Top = 63
+ Caption = #27611#21047#36229#21890#29575'(%)'
+ end
+ object cxLabel79: TcxLabel
+ Left = 28
+ Top = 62
+ Caption = #23545#20013#26426#24320#24133
+ end
+ object cxLabel80: TcxLabel
+ Left = 0
+ Top = 389
+ Caption = #21457#27873#26426#21442#25968':'
+ end
+ object cxLabel81: TcxLabel
+ Left = 25
+ Top = 441
+ Caption = #34746#26438#27893#30005#26426#39057#29575'('#36716')'
+ end
+ object fp_OutFanSpeedDQ: TcxTextEdit
+ Tag = 999
+ Left = 435
+ Top = 91
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 33
+ Width = 150
+ end
+ object fp_WidthAmplitudeDQ: TcxTextEdit
+ Tag = 999
+ Left = 435
+ Top = 59
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 34
+ Width = 150
+ end
+ object fp_RosePowerDQ: TcxTextEdit
+ Tag = 999
+ Left = 123
+ Top = 89
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 35
+ Width = 150
+ end
+ object fp_BrushSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 716
+ Top = 59
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 36
+ Width = 150
+ end
+ object fp_UpSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 716
+ Top = 90
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 37
+ Width = 150
+ end
+ object fp_speedDQ: TcxTextEdit
+ Tag = 999
+ Left = 716
+ Top = 27
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 38
+ Width = 150
+ end
+ object fp_TubePressDQ: TcxTextEdit
+ Tag = 999
+ Left = 123
+ Top = 119
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 39
+ Width = 150
+ end
+ object fp_CycleFanSpeedDQ: TcxTextEdit
+ Tag = 999
+ Left = 435
+ Top = 121
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 40
+ Width = 150
+ end
+ object fp_DownSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 716
+ Top = 121
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 41
+ Width = 150
+ end
+ object fp_LeftHeightDQ: TcxTextEdit
+ Tag = 999
+ Left = 123
+ Top = 150
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 42
+ Width = 150
+ end
+ object fp_RightHeightDQ: TcxTextEdit
+ Tag = 999
+ Left = 435
+ Top = 152
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 43
+ Width = 150
+ end
+ object fp_PumbMixElectricFrequency: TcxTextEdit
+ Tag = 999
+ Left = 180
+ Top = 437
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 44
+ Width = 150
+ end
+ object fp_SystemPress: TcxTextEdit
+ Tag = 999
+ Left = 467
+ Top = 437
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 45
+ Width = 150
+ end
+ object fp_MixElectricFrequency: TcxTextEdit
+ Tag = 999
+ Left = 467
+ Top = 407
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 46
+ Width = 150
+ end
+ object fp_GasFlow: TcxTextEdit
+ Tag = 999
+ Left = 180
+ Top = 407
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 47
+ Width = 150
+ end
+ object cxLabel159: TcxLabel
+ Left = 629
+ Top = 155
+ Caption = #27599#31859#29992#37327'(g)'
+ end
+ object fp_useOneMeterDQ: TcxTextEdit
+ Tag = 999
+ Left = 716
+ Top = 151
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 49
+ Width = 150
+ end
+ object cxLabel160: TcxLabel
+ Left = 30
+ Top = 185
+ Caption = #33014#38754#20811#37325'(g/m'#178')'
+ end
+ object fp_useOneGlubDQ: TcxTextEdit
+ Tag = 999
+ Left = 123
+ Top = 181
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 51
+ Width = 150
+ end
+ object fp_RollMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 435
+ Top = 27
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 52
+ Width = 150
+ end
+ object fp_UnpackingMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 123
+ Top = 27
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #24067#31568)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 53
+ Width = 150
+ end
+ object fp_OpenAmplitudeDQ: TcxComboBox
+ Tag = 999
+ Left = 123
+ Top = 58
+ Properties.Items.Strings = (
+ ''
+ #24320
+ #20851)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 54
+ Width = 150
+ end
+ end
+ end
+ object cxTabSheet6: TcxTabSheet
+ Caption = ' '#21038#33014#26087
+ ImageIndex = 5
+ object Panel6: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 748
+ Align = alClient
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ object cxLabel116: TcxLabel
+ Left = 258
+ Top = 274
+ Caption = '6#'
+ end
+ object cxLabel117: TcxLabel
+ Left = 579
+ Top = 125
+ Caption = #19979#36229#21890#29575'(%)'
+ end
+ object cxLabel118: TcxLabel
+ Left = 464
+ Top = 244
+ Caption = '3#'
+ end
+ object cxLabel119: TcxLabel
+ Left = 674
+ Top = 244
+ Caption = '4#'
+ end
+ object cxLabel120: TcxLabel
+ Left = 464
+ Top = 273
+ Caption = '7#'
+ end
+ object cxLabel121: TcxLabel
+ Left = 674
+ Top = 273
+ Caption = '8#'
+ end
+ object cxLabel122: TcxLabel
+ Left = 258
+ Top = 304
+ Caption = '10#'
+ end
+ object cxLabel123: TcxLabel
+ Left = 28
+ Top = 154
+ Caption = #20992#26495#24038#39640#24230'(mm)'
+ end
+ object cxLabel124: TcxLabel
+ Left = 288
+ Top = 156
+ Caption = #20992#26495#21491#39640#24230'(mm)'
+ end
+ object cxLabel125: TcxLabel
+ Left = 0
+ Top = 384
+ Caption = #27974#26009#37197#27604':'
+ end
+ object cxLabel126: TcxLabel
+ Left = 288
+ Top = 124
+ Caption = #24490#29615#39118#26426#36716#36895'('#36716'/'#20998')'
+ end
+ object cxLabel127: TcxLabel
+ Left = 28
+ Top = 123
+ Caption = #28888#31570#21387#21147'(MPA)'
+ end
+ object cxLabel128: TcxLabel
+ Left = 258
+ Top = 244
+ Caption = '2#'
+ end
+ object cxLabel129: TcxLabel
+ Left = 0
+ Top = 215
+ Caption = #28888#31665#28201#24230#8451':'
+ end
+ object cxLabel130: TcxLabel
+ Left = 30
+ Top = 244
+ Caption = '1#'
+ end
+ object cxLabel131: TcxLabel
+ Left = 30
+ Top = 274
+ Caption = '5#'
+ end
+ object cxLabel132: TcxLabel
+ Left = 30
+ Top = 304
+ Caption = '9#'
+ end
+ object cxLabel133: TcxLabel
+ Left = 28
+ Top = 30
+ Caption = #36864#24067#26041#27861
+ end
+ object cxLabel134: TcxLabel
+ Left = 288
+ Top = 62
+ Caption = #36710#23614#38376#24133
+ end
+ object cxLabel135: TcxLabel
+ Left = 288
+ Top = 93
+ Caption = #25490#39118#26426#36716#36895'('#36716'/'#20998')'
+ end
+ object cxLabel136: TcxLabel
+ Left = 579
+ Top = 30
+ Caption = #36895#24230'(M/Min)'
+ end
+ object cxLabel137: TcxLabel
+ Left = 0
+ Top = 8
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel138: TcxLabel
+ Left = 30
+ Top = 345
+ Caption = #27880#24847#20107#39033
+ end
+ object cxLabel139: TcxLabel
+ Left = 579
+ Top = 93
+ Caption = #19978#36229#21890#29575'(%)'
+ end
+ object cxLabel140: TcxLabel
+ Left = 288
+ Top = 30
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object cxLabel141: TcxLabel
+ Left = 28
+ Top = 92
+ Caption = #28072#21147'(MPA)'
+ end
+ object cxLabel142: TcxLabel
+ Left = 579
+ Top = 62
+ Caption = #27611#21047#36229#21890#29575'(%)'
+ end
+ object cxLabel143: TcxLabel
+ Left = 28
+ Top = 61
+ Caption = #23545#20013#26426#24320#24133
+ end
+ object gj_WidthAmplitudeDQ: TcxTextEdit
+ Tag = 999
+ Left = 408
+ Top = 58
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 28
+ Width = 150
+ end
+ object gj_RosePowerDQ: TcxTextEdit
+ Tag = 999
+ Left = 118
+ Top = 88
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 29
+ Width = 150
+ end
+ object gj_BrushSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 662
+ Top = 58
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 30
+ Width = 150
+ end
+ object gj_UpSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 662
+ Top = 88
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 31
+ Width = 150
+ end
+ object gj_speedDQ: TcxTextEdit
+ Tag = 999
+ Left = 662
+ Top = 26
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 32
+ Width = 150
+ end
+ object gj_TubePressDQ: TcxTextEdit
+ Tag = 999
+ Left = 118
+ Top = 118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 33
+ Width = 150
+ end
+ object gj_CycleFanSpeedDQ: TcxTextEdit
+ Tag = 999
+ Left = 408
+ Top = 118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 34
+ Width = 150
+ end
+ object gj_DownSuperRateDQ: TcxTextEdit
+ Tag = 999
+ Left = 662
+ Top = 118
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 35
+ Width = 150
+ end
+ object gj_LeftHeightDQ: TcxTextEdit
+ Tag = 999
+ Left = 118
+ Top = 149
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 36
+ Width = 150
+ end
+ object gj_RightHeightDQ: TcxTextEdit
+ Tag = 999
+ Left = 408
+ Top = 150
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 37
+ Width = 150
+ end
+ object gj_OutFanSpeedDQ: TcxTextEdit
+ Tag = 999
+ Left = 408
+ Top = 88
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 38
+ Width = 150
+ end
+ object cxLabel161: TcxLabel
+ Left = 579
+ Top = 154
+ Caption = #27599#31859#29992#37327'(g)'
+ end
+ object gj_useOneMeterDQ: TcxTextEdit
+ Tag = 999
+ Left = 662
+ Top = 149
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 40
+ Width = 150
+ end
+ object cxLabel162: TcxLabel
+ Left = 28
+ Top = 181
+ Caption = #33014#38754#20811#37325'(g/m'#178')'
+ end
+ object gj_useOneGlubDQ: TcxTextEdit
+ Tag = 999
+ Left = 118
+ Top = 180
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 42
+ Width = 150
+ end
+ object gj_RollMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 408
+ Top = 26
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 43
+ Width = 150
+ end
+ object gj_UnpackingMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 118
+ Top = 26
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #24067#31568)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 44
+ Width = 150
+ end
+ object gj_OpenAmplitudeDQ: TcxComboBox
+ Tag = 999
+ Left = 118
+ Top = 57
+ Properties.Items.Strings = (
+ ''
+ #24320
+ #20851)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 45
+ Width = 150
+ end
+ end
+ end
+ object cxtabsheet7: TcxTabSheet
+ Caption = ' '#36711#27611#26087
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ImageIndex = 6
+ ParentFont = False
+ object panel7: TPanel
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 748
+ Align = alClient
+ TabOrder = 0
+ object cxLabel115: TcxLabel
+ Left = 24
+ Top = 100
+ Caption = #25670#24067
+ end
+ object cxLabel144: TcxLabel
+ Left = 415
+ Top = 66
+ Caption = #36827#20986#24067#36895#24230
+ end
+ object cxLabel145: TcxLabel
+ Left = 415
+ Top = 33
+ Caption = #38024#36523
+ end
+ object cxLabel146: TcxLabel
+ Left = -1
+ Top = 8
+ Caption = #24037#33402#21442#25968':'
+ end
+ object cxLabel147: TcxLabel
+ Left = 24
+ Top = 180
+ Caption = #27880#24847#20107#39033
+ end
+ object cxLabel154: TcxLabel
+ Left = 24
+ Top = 33
+ Caption = #36864#24067#26041#27861
+ end
+ object cxLabel155: TcxLabel
+ Left = 24
+ Top = 67
+ Caption = #39057#29575
+ end
+ object cxLabel156: TcxLabel
+ Left = 415
+ Top = 100
+ Caption = #26426#23614#21367#24067#26041#27861
+ end
+ object zm_inoutSpeedDQ: TcxTextEdit
+ Tag = 999
+ Left = 522
+ Top = 62
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 8
+ Width = 234
+ end
+ object zm_needleDQ: TcxTextEdit
+ Tag = 999
+ Left = 522
+ Top = 27
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 9
+ Width = 234
+ end
+ object zm_PrecautionsDQ: TcxTextEdit
+ Tag = 999
+ Left = 103
+ Top = 167
+ AutoSize = False
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 10
+ Height = 50
+ Width = 650
+ end
+ object zm_frequencyDQ: TcxTextEdit
+ Tag = 999
+ Left = 103
+ Top = 62
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 11
+ Width = 234
+ end
+ object zm_WidthAmplitudeDQ: TcxTextEdit
+ Tag = 999
+ Left = 103
+ Top = 132
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 12
+ Width = 234
+ end
+ object cxLabel148: TcxLabel
+ Left = 24
+ Top = 134
+ Caption = #36710#23614#38376#24133
+ end
+ object zm_UnpackingMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 103
+ Top = 27
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #24067#31568)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 14
+ Width = 234
+ end
+ object zm_RollMethodDQ: TcxComboBox
+ Tag = 999
+ Left = 522
+ Top = 97
+ Properties.Items.Strings = (
+ ''
+ #21367#26729
+ #39128#24133
+ #25171#21367)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 15
+ Width = 234
+ end
+ object zm_wagClothDQ: TcxTextEdit
+ Tag = 999
+ Left = 103
+ Top = 97
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 16
+ Width = 234
+ end
+ end
+ end
+ end
+ object Panel1: TPanel
+ Left = 0
+ Top = 38
+ Width = 1147
+ Height = 35
+ Align = alTop
+ TabOrder = 2
+ object Label5: TLabel
+ Left = 645
+ Top = 9
+ Width = 24
+ Height = 12
+ Caption = #24037#26102
+ Visible = False
+ end
+ object Label2: TLabel
+ Left = 253
+ Top = 9
+ Width = 36
+ Height = 12
+ Caption = #26426#21488#21517
+ end
+ object Label1: TLabel
+ Left = 456
+ Top = 9
+ Width = 24
+ Height = 12
+ Caption = #22791#27880
+ end
+ object GYNAME: TcxTextEdit
+ Tag = 2
+ Left = 87
+ Top = 8
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 0
+ Width = 150
+ end
+ object cxLabel43: TcxLabel
+ Left = 29
+ Top = 9
+ Caption = #24037#24207#21517#31216
+ end
+ object WorkHour: TEdit
+ Left = 673
+ Top = 9
+ Width = 140
+ Height = 20
+ TabOrder = 2
+ Visible = False
+ end
+ object MachineName: TEdit
+ Left = 293
+ Top = 8
+ Width = 140
+ Height = 20
+ TabOrder = 3
+ end
+ object note: TEdit
+ Left = 485
+ Top = 8
+ Width = 140
+ Height = 20
+ TabOrder = 4
+ end
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 841
+ Top = 433
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 749
+ Top = 433
+ end
+ object CDS_1: TClientDataSet
+ Aggregates = <>
+ IndexFieldNames = 'SerialNo'
+ Params = <>
+ Left = 259
+ Top = 660
+ end
+ object DS_1: TDataSource
+ DataSet = CDS_1
+ Left = 259
+ Top = 612
+ end
+ object GPM_1: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 256
+ Top = 556
+ end
+ object GPM_2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 320
+ Top = 572
+ end
+ object DS_2: TDataSource
+ DataSet = cds_2
+ Left = 323
+ Top = 612
+ end
+ object cds_2: TClientDataSet
+ Aggregates = <>
+ IndexFieldNames = 'SerialNo'
+ Params = <>
+ Left = 323
+ Top = 660
+ end
+ object GPM_3: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 376
+ Top = 564
+ end
+ object DS_3: TDataSource
+ DataSet = CDS_3
+ Left = 379
+ Top = 612
+ end
+ object CDS_3: TClientDataSet
+ Aggregates = <>
+ IndexFieldNames = 'SerialNo'
+ Params = <>
+ Left = 371
+ Top = 660
+ end
+ object GPM_4: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 448
+ Top = 564
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 306
+ Top = 396
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 386
+ Top = 388
+ end
+ object CDS_4: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 442
+ Top = 663
+ end
+ object CDS_5: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 514
+ Top = 663
+ end
+ object DS_4: TDataSource
+ DataSet = CDS_4
+ Left = 450
+ Top = 607
+ end
+ object DS_5: TDataSource
+ DataSet = CDS_5
+ Left = 506
+ Top = 607
+ end
+ object CDS_6: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 618
+ Top = 663
+ end
+ object DS_6: TDataSource
+ DataSet = CDS_6
+ Left = 562
+ Top = 607
+ end
+ object GPM_5: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 498
+ Top = 559
+ end
+ object GPM_6: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 570
+ Top = 559
+ end
+end
diff --git a/F02染色计划单/U_DyeProcessDefinKaika.pas b/F02染色计划单/U_DyeProcessDefinKaika.pas
new file mode 100644
index 0000000..93bb595
--- /dev/null
+++ b/F02染色计划单/U_DyeProcessDefinKaika.pas
@@ -0,0 +1,2543 @@
+unit U_DyeProcessDefinKaika;
+
+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, cxCheckBox, cxDropDownEdit,
+ 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, cxContainer, cxLabel, cxPC,
+ dxScrollbarAnnotations, cxMaskEdit, Vcl.Menus, cxButtons;
+
+type
+ TfrmDyeProcessDefinKaika = class(TForm)
+ ToolBar1: TToolBar;
+ TBClose: TToolButton;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_1: TClientDataSet;
+ DS_1: TDataSource;
+ GPM_1: TcxGridPopupMenu;
+ cxPageControl1: TcxPageControl;
+ cxTabSheet2: TcxTabSheet;
+ DX: TcxTabSheet;
+ cxTabSheet4: TcxTabSheet;
+ cxTabSheet5: TcxTabSheet;
+ cxTabSheet6: TcxTabSheet;
+ Panel2: TPanel;
+ cxLabel10: TcxLabel;
+ cxLabel11: TcxLabel;
+ cxLabel12: TcxLabel;
+ cxLabel13: TcxLabel;
+ cxLabel14: TcxLabel;
+ cxLabel15: TcxLabel;
+ cxLabel16: TcxLabel;
+ cxLabel17: TcxLabel;
+ cxLabel18: TcxLabel;
+ cxLabel19: TcxLabel;
+ cxLabel20: TcxLabel;
+ cxLabel7: TcxLabel;
+ cxLabel8: TcxLabel;
+ cxLabel9: TcxLabel;
+ qx_WaterContentDQ: TcxTextEdit;
+ qx_Add_NameDQ: TcxTextEdit;
+ qx_speedDQ: TcxTextEdit;
+ qx_ReduceAmplitudeDQ: TcxTextEdit;
+ Panel_dx: TPanel;
+ cxLabel2: TcxLabel;
+ cxLabel21: TcxLabel;
+ cxLabel22: TcxLabel;
+ cxLabel23: TcxLabel;
+ cxLabel24: TcxLabel;
+ cxLabel25: TcxLabel;
+ cxLabel3: TcxLabel;
+ cxLabel4: TcxLabel;
+ cxLabel5: TcxLabel;
+ cxLabel55: TcxLabel;
+ cxLabel56: TcxLabel;
+ cxLabel57: TcxLabel;
+ cxLabel58: TcxLabel;
+ cxLabel6: TcxLabel;
+ cxLabel60: TcxLabel;
+ cxLabel61: TcxLabel;
+ cxLabel62: TcxLabel;
+ cxLabel63: TcxLabel;
+ cxLabel64: TcxLabel;
+ cxLabel65: TcxLabel;
+ dx_temperature1: TcxTextEdit;
+ dx_temperature5: TcxTextEdit;
+ dx_temperature9: TcxTextEdit;
+ dx_RosePower: TcxTextEdit;
+ dx_upperNeedle: TcxTextEdit;
+ dx_Precautions: TcxTextEdit;
+ dx_UpSuperRate: TcxTextEdit;
+ dx_speed: TcxTextEdit;
+ dx_TubePress: TcxTextEdit;
+ dx_temperature6: TcxTextEdit;
+ dx_DownSuperRate: TcxTextEdit;
+ dx_temperature3: TcxTextEdit;
+ dx_temperature4: TcxTextEdit;
+ dx_temperature7: TcxTextEdit;
+ dx_temperature8: TcxTextEdit;
+ dx_temperature10: TcxTextEdit;
+ dx_temperature2: TcxTextEdit;
+ Panel4: TPanel;
+ cxLabel100: TcxLabel;
+ cxLabel101: TcxLabel;
+ cxLabel102: TcxLabel;
+ cxLabel103: TcxLabel;
+ cxLabel104: TcxLabel;
+ cxLabel105: TcxLabel;
+ cxLabel106: TcxLabel;
+ cxLabel109: TcxLabel;
+ cxLabel110: TcxLabel;
+ cxLabel111: TcxLabel;
+ cxLabel82: TcxLabel;
+ cxLabel83: TcxLabel;
+ cxLabel84: TcxLabel;
+ cxLabel85: TcxLabel;
+ cxLabel86: TcxLabel;
+ cxLabel87: TcxLabel;
+ cxLabel88: TcxLabel;
+ cxLabel89: TcxLabel;
+ cxLabel90: TcxLabel;
+ cxLabel91: TcxLabel;
+ cxLabel92: TcxLabel;
+ cxLabel93: TcxLabel;
+ cxLabel94: TcxLabel;
+ cxLabel95: TcxLabel;
+ cxLabel96: TcxLabel;
+ cxLabel97: TcxLabel;
+ cxLabel98: TcxLabel;
+ cxLabel99: TcxLabel;
+ fs_OutFanSpeedDQ: TcxTextEdit;
+ fs_WidthAmplitudeDQ: TcxTextEdit;
+ fs_RosePowerDQ: TcxTextEdit;
+ fs_BrushSuperRateDQ: TcxTextEdit;
+ fs_UpSuperRateDQ: TcxTextEdit;
+ fs_speedDQ: TcxTextEdit;
+ fs_TubePressDQ: TcxTextEdit;
+ fs_CycleFanSpeedDQ: TcxTextEdit;
+ fs_DownSuperRateDQ: TcxTextEdit;
+ fs_CarPressDQ: TcxTextEdit;
+ fs_PressWaterContentDQ: TcxTextEdit;
+ Panel5: TPanel;
+ cxLabel107: TcxLabel;
+ cxLabel108: TcxLabel;
+ cxLabel112: TcxLabel;
+ cxLabel29: TcxLabel;
+ cxLabel30: TcxLabel;
+ cxLabel31: TcxLabel;
+ cxLabel32: TcxLabel;
+ cxLabel33: TcxLabel;
+ cxLabel34: TcxLabel;
+ cxLabel35: TcxLabel;
+ cxLabel36: TcxLabel;
+ cxLabel49: TcxLabel;
+ cxLabel50: TcxLabel;
+ cxLabel51: TcxLabel;
+ cxLabel52: TcxLabel;
+ cxLabel53: TcxLabel;
+ cxLabel54: TcxLabel;
+ cxLabel66: TcxLabel;
+ cxLabel67: TcxLabel;
+ cxLabel68: TcxLabel;
+ cxLabel69: TcxLabel;
+ cxLabel70: TcxLabel;
+ cxLabel71: TcxLabel;
+ cxLabel72: TcxLabel;
+ cxLabel73: TcxLabel;
+ cxLabel74: TcxLabel;
+ cxLabel75: TcxLabel;
+ cxLabel76: TcxLabel;
+ cxLabel77: TcxLabel;
+ cxLabel78: TcxLabel;
+ cxLabel79: TcxLabel;
+ cxLabel80: TcxLabel;
+ cxLabel81: TcxLabel;
+ fp_OutFanSpeedDQ: TcxTextEdit;
+ fp_WidthAmplitudeDQ: TcxTextEdit;
+ fp_RosePowerDQ: TcxTextEdit;
+ fp_BrushSuperRateDQ: TcxTextEdit;
+ fp_UpSuperRateDQ: TcxTextEdit;
+ fp_speedDQ: TcxTextEdit;
+ fp_TubePressDQ: TcxTextEdit;
+ fp_CycleFanSpeedDQ: TcxTextEdit;
+ fp_DownSuperRateDQ: TcxTextEdit;
+ fp_LeftHeightDQ: TcxTextEdit;
+ fp_RightHeightDQ: TcxTextEdit;
+ fp_PumbMixElectricFrequency: TcxTextEdit;
+ fp_SystemPress: TcxTextEdit;
+ fp_MixElectricFrequency: TcxTextEdit;
+ fp_GasFlow: TcxTextEdit;
+ Panel6: TPanel;
+ cxLabel116: TcxLabel;
+ cxLabel117: TcxLabel;
+ cxLabel118: TcxLabel;
+ cxLabel119: TcxLabel;
+ cxLabel120: TcxLabel;
+ cxLabel121: TcxLabel;
+ cxLabel122: TcxLabel;
+ cxLabel123: TcxLabel;
+ cxLabel124: TcxLabel;
+ cxLabel125: TcxLabel;
+ cxLabel126: TcxLabel;
+ cxLabel127: TcxLabel;
+ cxLabel128: TcxLabel;
+ cxLabel129: TcxLabel;
+ cxLabel130: TcxLabel;
+ cxLabel131: TcxLabel;
+ cxLabel132: TcxLabel;
+ cxLabel133: TcxLabel;
+ cxLabel134: TcxLabel;
+ cxLabel135: TcxLabel;
+ cxLabel136: TcxLabel;
+ cxLabel137: TcxLabel;
+ cxLabel138: TcxLabel;
+ cxLabel139: TcxLabel;
+ cxLabel140: TcxLabel;
+ cxLabel141: TcxLabel;
+ cxLabel142: TcxLabel;
+ cxLabel143: TcxLabel;
+ gj_WidthAmplitudeDQ: TcxTextEdit;
+ gj_RosePowerDQ: TcxTextEdit;
+ gj_BrushSuperRateDQ: TcxTextEdit;
+ gj_UpSuperRateDQ: TcxTextEdit;
+ gj_speedDQ: TcxTextEdit;
+ gj_TubePressDQ: TcxTextEdit;
+ gj_CycleFanSpeedDQ: TcxTextEdit;
+ gj_DownSuperRateDQ: TcxTextEdit;
+ gj_LeftHeightDQ: TcxTextEdit;
+ gj_RightHeightDQ: TcxTextEdit;
+ gj_OutFanSpeedDQ: TcxTextEdit;
+ cxtabsheet7: TcxTabSheet;
+ panel7: TPanel;
+ cxLabel115: TcxLabel;
+ cxLabel144: TcxLabel;
+ cxLabel145: TcxLabel;
+ cxLabel146: TcxLabel;
+ cxLabel147: TcxLabel;
+ cxLabel154: TcxLabel;
+ cxLabel155: TcxLabel;
+ cxLabel156: TcxLabel;
+ zm_inoutSpeedDQ: TcxTextEdit;
+ zm_needleDQ: TcxTextEdit;
+ zm_PrecautionsDQ: TcxTextEdit;
+ zm_frequencyDQ: TcxTextEdit;
+ zm_WidthAmplitudeDQ: TcxTextEdit;
+ cxLabel148: TcxLabel;
+ qx_Add_NumberDQ: TcxTextEdit;
+ cxLabel149: TcxLabel;
+ GPM_2: TcxGridPopupMenu;
+ DS_2: TDataSource;
+ cds_2: TClientDataSet;
+ GPM_3: TcxGridPopupMenu;
+ DS_3: TDataSource;
+ CDS_3: TClientDataSet;
+ GPM_4: TcxGridPopupMenu;
+ dx_RollMethod: TcxComboBox;
+ fs_UnpackingMethodDQ: TcxComboBox;
+ fs_OpenAmplitudeDQ: TcxComboBox;
+ fs_RollMethodDQ: TcxComboBox;
+ zm_UnpackingMethodDQ: TcxComboBox;
+ zm_RollMethodDQ: TcxComboBox;
+ cxLabel151: TcxLabel;
+ cxLabel152: TcxLabel;
+ cxLabel153: TcxLabel;
+ cxLabel157: TcxLabel;
+ cxLabel158: TcxLabel;
+ fs_meterDQ: TcxTextEdit;
+ fs_useGlubDQ: TcxTextEdit;
+ fs_waterDistributionDQ: TcxTextEdit;
+ fs_useOneGlubDQ: TcxTextEdit;
+ fs_useOneMeterDQ: TcxTextEdit;
+ cxLabel159: TcxLabel;
+ fp_useOneMeterDQ: TcxTextEdit;
+ cxLabel160: TcxLabel;
+ fp_useOneGlubDQ: TcxTextEdit;
+ cxLabel161: TcxLabel;
+ gj_useOneMeterDQ: TcxTextEdit;
+ cxLabel162: TcxLabel;
+ gj_useOneGlubDQ: TcxTextEdit;
+ qx_UnpackingMethodDQ: TcxComboBox;
+ qx_RollMethodDQ: TcxComboBox;
+ zm_wagClothDQ: TcxTextEdit;
+ fp_RollMethodDQ: TcxComboBox;
+ fp_UnpackingMethodDQ: TcxComboBox;
+ gj_RollMethodDQ: TcxComboBox;
+ gj_UnpackingMethodDQ: TcxComboBox;
+ fp_OpenAmplitudeDQ: TcxComboBox;
+ gj_OpenAmplitudeDQ: TcxComboBox;
+ TbDXReplace2: TcxButton;
+ TbDXClear2: TcxButton;
+ Panel1: TPanel;
+ GYNAME: TcxTextEdit;
+ cxLabel43: TcxLabel;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ Label5: TLabel;
+ WorkHour: TEdit;
+ Label2: TLabel;
+ MachineName: TEdit;
+ Label1: TLabel;
+ note: TEdit;
+ CCQX: TcxTabSheet;
+ RGQX: TcxTabSheet;
+ cxLabel174: TcxLabel;
+ dx_tubeTemper: TcxTextEdit;
+ cxLabel1: TcxLabel;
+ cxLabel28: TcxLabel;
+ cxLabel59: TcxLabel;
+ cxLabel175: TcxLabel;
+ cxLabel176: TcxLabel;
+ cxLabel177: TcxLabel;
+ cxLabel178: TcxLabel;
+ cxLabel179: TcxLabel;
+ cxLabel180: TcxLabel;
+ cxLabel181: TcxLabel;
+ cxLabel182: TcxLabel;
+ dx_hotWind1: TcxTextEdit;
+ dx_hotWind5: TcxTextEdit;
+ dx_hotWind9: TcxTextEdit;
+ dx_hotWind6: TcxTextEdit;
+ dx_hotWind3: TcxTextEdit;
+ dx_hotWind4: TcxTextEdit;
+ dx_hotWind7: TcxTextEdit;
+ dx_hotWind8: TcxTextEdit;
+ dx_hotWind10: TcxTextEdit;
+ dx_hotWind2: TcxTextEdit;
+ TbDXReplace1: TcxButton;
+ TbDXClear1: TcxButton;
+ cxLabel183: TcxLabel;
+ cxLabel184: TcxLabel;
+ cxLabel185: TcxLabel;
+ cxLabel186: TcxLabel;
+ cxLabel187: TcxLabel;
+ dx_rowWind1: TcxTextEdit;
+ dx_rowWind3: TcxTextEdit;
+ dx_rowWind4: TcxTextEdit;
+ dx_rowWind2: TcxTextEdit;
+ cxLabel188: TcxLabel;
+ dx_hotWind11: TcxTextEdit;
+ cxLabel189: TcxLabel;
+ dx_temperature11: TcxTextEdit;
+ FS: TcxTabSheet;
+ FP: TcxTabSheet;
+ GJ: TcxTabSheet;
+ JGQX: TcxTabSheet;
+ ZM: TcxTabSheet;
+ Panel_FP: TPanel;
+ TbFPReplace2: TcxButton;
+ TbFPClear2: TcxButton;
+ TbFPReplace1: TcxButton;
+ TbFPClear1: TcxButton;
+ cxLabel283: TcxLabel;
+ cxLabel284: TcxLabel;
+ cxLabel285: TcxLabel;
+ cxLabel286: TcxLabel;
+ cxLabel287: TcxLabel;
+ cxLabel288: TcxLabel;
+ cxLabel290: TcxLabel;
+ cxLabel291: TcxLabel;
+ cxLabel292: TcxLabel;
+ cxLabel293: TcxLabel;
+ cxLabel294: TcxLabel;
+ cxLabel295: TcxLabel;
+ cxLabel296: TcxLabel;
+ cxLabel297: TcxLabel;
+ cxLabel298: TcxLabel;
+ cxLabel299: TcxLabel;
+ cxLabel300: TcxLabel;
+ cxLabel301: TcxLabel;
+ cxLabel302: TcxLabel;
+ cxLabel303: TcxLabel;
+ cxLabel304: TcxLabel;
+ cxLabel305: TcxLabel;
+ cxLabel306: TcxLabel;
+ cxLabel307: TcxLabel;
+ cxLabel308: TcxLabel;
+ cxLabel309: TcxLabel;
+ cxLabel310: TcxLabel;
+ cxLabel311: TcxLabel;
+ cxLabel312: TcxLabel;
+ cxLabel313: TcxLabel;
+ cxLabel314: TcxLabel;
+ cxLabel315: TcxLabel;
+ cxLabel316: TcxLabel;
+ cxLabel317: TcxLabel;
+ cxLabel318: TcxLabel;
+ cxLabel319: TcxLabel;
+ cxLabel320: TcxLabel;
+ cxLabel321: TcxLabel;
+ cxLabel322: TcxLabel;
+ cxLabel323: TcxLabel;
+ cxLabel324: TcxLabel;
+ cxLabel325: TcxLabel;
+ cxLabel326: TcxLabel;
+ cxLabel327: TcxLabel;
+ fp_CarPress: TcxTextEdit;
+ fp_DownSuperRate: TcxTextEdit;
+ fp_fallCloth: TcxTextEdit;
+ fp_hotWind1: TcxTextEdit;
+ fp_hotWind10: TcxTextEdit;
+ fp_hotWind11: TcxTextEdit;
+ fp_hotWind2: TcxTextEdit;
+ fp_hotWind3: TcxTextEdit;
+ fp_hotWind4: TcxTextEdit;
+ fp_hotWind5: TcxTextEdit;
+ fp_hotWind6: TcxTextEdit;
+ fp_hotWind7: TcxTextEdit;
+ fp_hotWind8: TcxTextEdit;
+ fp_hotWind9: TcxTextEdit;
+ fp_leftGap: TcxTextEdit;
+ fp_Precautions: TcxTextEdit;
+ fp_rightGap: TcxTextEdit;
+ fp_Rolling: TcxTextEdit;
+ fp_RollMethod: TcxComboBox;
+ fp_RosePower: TcxTextEdit;
+ fp_rowWind1: TcxTextEdit;
+ fp_rowWind2: TcxTextEdit;
+ fp_rowWind3: TcxTextEdit;
+ fp_rowWind4: TcxTextEdit;
+ fp_speed: TcxTextEdit;
+ fp_temperature1: TcxTextEdit;
+ fp_temperature10: TcxTextEdit;
+ fp_temperature11: TcxTextEdit;
+ fp_temperature2: TcxTextEdit;
+ fp_temperature3: TcxTextEdit;
+ fp_temperature4: TcxTextEdit;
+ fp_temperature5: TcxTextEdit;
+ fp_temperature6: TcxTextEdit;
+ fp_temperature7: TcxTextEdit;
+ fp_temperature8: TcxTextEdit;
+ fp_temperature9: TcxTextEdit;
+ fp_TubePress: TcxTextEdit;
+ fp_tubeTemper: TcxTextEdit;
+ fp_upperNeedle: TcxTextEdit;
+ fp_UpSuperRate: TcxTextEdit;
+ Panel_gj: TPanel;
+ TbGJReplace1: TcxButton;
+ TbGjClear1: TcxButton;
+ cxLabel233: TcxLabel;
+ cxLabel241: TcxLabel;
+ cxLabel242: TcxLabel;
+ cxLabel243: TcxLabel;
+ cxLabel244: TcxLabel;
+ cxLabel245: TcxLabel;
+ cxLabel246: TcxLabel;
+ cxLabel248: TcxLabel;
+ cxLabel254: TcxLabel;
+ cxLabel255: TcxLabel;
+ cxLabel256: TcxLabel;
+ cxLabel257: TcxLabel;
+ cxLabel258: TcxLabel;
+ cxLabel259: TcxLabel;
+ cxLabel260: TcxLabel;
+ cxLabel261: TcxLabel;
+ cxLabel262: TcxLabel;
+ cxLabel263: TcxLabel;
+ cxLabel264: TcxLabel;
+ cxLabel265: TcxLabel;
+ cxLabel266: TcxLabel;
+ cxLabel267: TcxLabel;
+ cxLabel268: TcxLabel;
+ cxLabel269: TcxLabel;
+ cxLabel270: TcxLabel;
+ cxLabel271: TcxLabel;
+ cxLabel272: TcxLabel;
+ cxLabel274: TcxLabel;
+ cxLabel275: TcxLabel;
+ cxLabel276: TcxLabel;
+ cxLabel277: TcxLabel;
+ gj_CarPress: TcxTextEdit;
+ gj_DownSuperRate: TcxTextEdit;
+ gj_fallCloth: TcxTextEdit;
+ gj_hotWind1: TcxTextEdit;
+ gj_hotWind10: TcxTextEdit;
+ gj_hotWind11: TcxTextEdit;
+ gj_hotWind2: TcxTextEdit;
+ gj_hotWind3: TcxTextEdit;
+ gj_hotWind4: TcxTextEdit;
+ gj_hotWind5: TcxTextEdit;
+ gj_hotWind6: TcxTextEdit;
+ gj_hotWind7: TcxTextEdit;
+ gj_hotWind8: TcxTextEdit;
+ gj_hotWind9: TcxTextEdit;
+ gj_leftGap: TcxTextEdit;
+ gj_Precautions: TcxTextEdit;
+ gj_rightGap: TcxTextEdit;
+ gj_Rolling: TcxTextEdit;
+ gj_RollMethod: TcxComboBox;
+ gj_RosePower: TcxTextEdit;
+ gj_rowWind1: TcxTextEdit;
+ gj_rowWind2: TcxTextEdit;
+ gj_rowWind3: TcxTextEdit;
+ gj_rowWind4: TcxTextEdit;
+ gj_TubePress: TcxTextEdit;
+ gj_tubeTemper: TcxTextEdit;
+ gj_upperNeedle: TcxTextEdit;
+ gj_UpSuperRate: TcxTextEdit;
+ Panel_fs: TPanel;
+ TbFSReplace1: TcxButton;
+ TbFSClear1: TcxButton;
+ TbFSReplace2: TcxButton;
+ TBFScLEAR2: TcxButton;
+ cxLabel191: TcxLabel;
+ cxLabel192: TcxLabel;
+ cxLabel193: TcxLabel;
+ cxLabel194: TcxLabel;
+ cxLabel195: TcxLabel;
+ cxLabel196: TcxLabel;
+ cxLabel198: TcxLabel;
+ cxLabel199: TcxLabel;
+ cxLabel200: TcxLabel;
+ cxLabel201: TcxLabel;
+ cxLabel202: TcxLabel;
+ cxLabel203: TcxLabel;
+ cxLabel204: TcxLabel;
+ cxLabel205: TcxLabel;
+ cxLabel206: TcxLabel;
+ cxLabel207: TcxLabel;
+ cxLabel208: TcxLabel;
+ cxLabel209: TcxLabel;
+ cxLabel210: TcxLabel;
+ cxLabel211: TcxLabel;
+ cxLabel212: TcxLabel;
+ cxLabel213: TcxLabel;
+ cxLabel214: TcxLabel;
+ cxLabel215: TcxLabel;
+ cxLabel216: TcxLabel;
+ cxLabel217: TcxLabel;
+ cxLabel218: TcxLabel;
+ cxLabel219: TcxLabel;
+ cxLabel220: TcxLabel;
+ cxLabel221: TcxLabel;
+ cxLabel222: TcxLabel;
+ cxLabel223: TcxLabel;
+ cxLabel224: TcxLabel;
+ cxLabel225: TcxLabel;
+ cxLabel226: TcxLabel;
+ cxLabel227: TcxLabel;
+ cxLabel228: TcxLabel;
+ cxLabel229: TcxLabel;
+ cxLabel230: TcxLabel;
+ cxLabel231: TcxLabel;
+ fs_CarPress: TcxTextEdit;
+ fs_DownSuperRate: TcxTextEdit;
+ fs_hotWind1: TcxTextEdit;
+ fs_hotWind10: TcxTextEdit;
+ fs_hotWind11: TcxTextEdit;
+ fs_hotWind2: TcxTextEdit;
+ fs_hotWind3: TcxTextEdit;
+ fs_hotWind4: TcxTextEdit;
+ fs_hotWind5: TcxTextEdit;
+ fs_hotWind6: TcxTextEdit;
+ fs_hotWind7: TcxTextEdit;
+ fs_hotWind8: TcxTextEdit;
+ fs_hotWind9: TcxTextEdit;
+ fs_Precautions: TcxTextEdit;
+ fs_RollMethod: TcxComboBox;
+ fs_RosePower: TcxTextEdit;
+ fs_rowWind1: TcxTextEdit;
+ fs_rowWind2: TcxTextEdit;
+ fs_rowWind3: TcxTextEdit;
+ fs_rowWind4: TcxTextEdit;
+ fs_speed: TcxTextEdit;
+ fs_temperature1: TcxTextEdit;
+ fs_temperature10: TcxTextEdit;
+ fs_temperature11: TcxTextEdit;
+ fs_temperature2: TcxTextEdit;
+ fs_temperature3: TcxTextEdit;
+ fs_temperature4: TcxTextEdit;
+ fs_temperature5: TcxTextEdit;
+ fs_temperature6: TcxTextEdit;
+ fs_temperature7: TcxTextEdit;
+ fs_temperature8: TcxTextEdit;
+ fs_temperature9: TcxTextEdit;
+ fs_TubePress: TcxTextEdit;
+ fs_tubeTemper: TcxTextEdit;
+ fs_upperNeedle: TcxTextEdit;
+ fs_UpSuperRate: TcxTextEdit;
+ Panel_jgqx: TPanel;
+ cxLabel340: TcxLabel;
+ cxLabel343: TcxLabel;
+ cxLabel347: TcxLabel;
+ cxLabel348: TcxLabel;
+ cxLabel350: TcxLabel;
+ cxLabel351: TcxLabel;
+ jgqx_keepTemper: TcxTextEdit;
+ jgqx_keepTime: TcxTextEdit;
+ jgqx_note: TcxTextEdit;
+ jgqx_reagentRatio: TcxTextEdit;
+ jgqx_reagentUse: TcxTextEdit;
+ Panel_rgqx: TPanel;
+ cxLabel114: TcxLabel;
+ cxLabel150: TcxLabel;
+ cxLabel163: TcxLabel;
+ cxLabel165: TcxLabel;
+ cxLabel166: TcxLabel;
+ rgqx_daoSet: TcxTextEdit;
+ rgqx_note: TcxTextEdit;
+ rgqx_speed: TcxTextEdit;
+ rgqx_waterTemper: TcxTextEdit;
+ Panel_zm: TPanel;
+ cxLabel336: TcxLabel;
+ cxLabel337: TcxLabel;
+ cxLabel339: TcxLabel;
+ cxLabel342: TcxLabel;
+ cxLabel344: TcxLabel;
+ cxLabel345: TcxLabel;
+ zm_inout: TcxTextEdit;
+ zm_mainElec: TcxTextEdit;
+ zm_needleHigh: TcxTextEdit;
+ zm_Precautions: TcxTextEdit;
+ zm_style: TcxComboBox;
+ Panel_ccqx: TPanel;
+ ccqx_note: TcxTextEdit;
+ ccqx_speed: TcxTextEdit;
+ ccqx_temperature1: TcxTextEdit;
+ ccqx_temperature2: TcxTextEdit;
+ ccqx_temperature3: TcxTextEdit;
+ ccqx_temperature4: TcxTextEdit;
+ ccqx_temperature5: TcxTextEdit;
+ ccqx_temperature6: TcxTextEdit;
+ TbCCQXReplace: TcxButton;
+ TbccqxClear: TcxButton;
+ cxLabel113: TcxLabel;
+ cxLabel38: TcxLabel;
+ cxLabel40: TcxLabel;
+ cxLabel41: TcxLabel;
+ cxLabel42: TcxLabel;
+ cxLabel44: TcxLabel;
+ cxLabel45: TcxLabel;
+ cxLabel46: TcxLabel;
+ cxLabel47: TcxLabel;
+ cxLabel48: TcxLabel;
+ cxLabel37: TcxLabel;
+ cxLabel167: TcxLabel;
+ cxLabel169: TcxLabel;
+ cxLabel170: TcxLabel;
+ cxLabel171: TcxLabel;
+ cxLabel172: TcxLabel;
+ jgqx_leftMouthPress: TcxTextEdit;
+ jgqx_rightMouthPress: TcxTextEdit;
+ jgqx_mainGangPress: TcxTextEdit;
+ jgqx_mainBengSpeed: TcxTextEdit;
+ jgqx_rightWheelSpeed: TcxTextEdit;
+ jgqx_leftWheelSpeed: TcxTextEdit;
+ cxLabel173: TcxLabel;
+ cxLabel334: TcxLabel;
+ jgqx_upperSpeed: TcxTextEdit;
+ jgqx_downSpeed: TcxTextEdit;
+ cxLabel338: TcxLabel;
+ cxLabel26: TcxLabel;
+ cxLabel352: TcxLabel;
+ FS_Style: TcxComboBox;
+ cxLabel354: TcxLabel;
+ fs_isVacuun: TcxComboBox;
+ TbFSReplace3: TcxButton;
+ TbFSClear3: TcxButton;
+ cxLabel27: TcxLabel;
+ cxLabel39: TcxLabel;
+ cxLabel164: TcxLabel;
+ fp_Flow: TcxTextEdit;
+ fp_Gas: TcxTextEdit;
+ cxLabel168: TcxLabel;
+ fp_mixSpeed: TcxTextEdit;
+ TbDXReplace3: TcxButton;
+ TbDXClear3: TcxButton;
+ TbFPReplace3: TcxButton;
+ TbFPClear3: TcxButton;
+ TbGJReplace3: TcxButton;
+ TbGJClear3: TcxButton;
+ ToolBar4: TToolBar;
+ TbfsAdd: TToolButton;
+ TbfsDel: TToolButton;
+ cxGrid2: TcxGrid;
+ Tv4: TcxGridDBTableView;
+ Tv4Column1: TcxGridDBColumn;
+ Tv41fs_Name: TcxGridDBColumn;
+ Tv41fs_spel: TcxGridDBColumn;
+ Tv4fs_unit: TcxGridDBColumn;
+ Tv41fs_rate: TcxGridDBColumn;
+ Tv41fs_precautions: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ cxGrid3: TcxGrid;
+ Tv5: TcxGridDBTableView;
+ Tv5Column1: TcxGridDBColumn;
+ Tv5gj_Name: TcxGridDBColumn;
+ Tv5gj_spel: TcxGridDBColumn;
+ Tv5gj_unit: TcxGridDBColumn;
+ Tv5gj_rate: TcxGridDBColumn;
+ Tv5gj_precautions: TcxGridDBColumn;
+ cxGridDBColumn26: TcxGridDBColumn;
+ cxGridDBColumn27: TcxGridDBColumn;
+ cxGridDBColumn28: TcxGridDBColumn;
+ cxGridLevel3: TcxGridLevel;
+ ToolBar5: TToolBar;
+ TbgjAdd: TToolButton;
+ TbgjDel: TToolButton;
+ cxGrid1: TcxGrid;
+ Tv6: TcxGridDBTableView;
+ Tv6Column1: TcxGridDBColumn;
+ Tv6fp_Name: TcxGridDBColumn;
+ Tv6fp_spel: TcxGridDBColumn;
+ Tv6fp_unit: TcxGridDBColumn;
+ Tv6fp_rate: TcxGridDBColumn;
+ Tv6fp_precautions: TcxGridDBColumn;
+ cxGridDBColumn16: TcxGridDBColumn;
+ cxGridDBColumn17: TcxGridDBColumn;
+ cxGridDBColumn18: TcxGridDBColumn;
+ cxGridLevel2: TcxGridLevel;
+ ToolBar3: TToolBar;
+ TbfpAdd: TToolButton;
+ TbfpDel: TToolButton;
+ cxLabel190: TcxLabel;
+ cxLabel197: TcxLabel;
+ cxLabel232: TcxLabel;
+ cxGrid4: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridDBColumn2: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ cxGridDBColumn4: TcxGridDBColumn;
+ Tv1ccqx_rate: TcxGridDBColumn;
+ cxGridDBColumn6: TcxGridDBColumn;
+ cxGridLevel4: TcxGridLevel;
+ ToolBar2: TToolBar;
+ TbccqxAdd: TToolButton;
+ TbccqxDel: TToolButton;
+ cxGrid5: TcxGrid;
+ Tv3: TcxGridDBTableView;
+ cxGridDBColumn7: TcxGridDBColumn;
+ cxGridDBColumn8: TcxGridDBColumn;
+ cxGridDBColumn9: TcxGridDBColumn;
+ cxGridDBColumn10: TcxGridDBColumn;
+ cxGridDBColumn11: TcxGridDBColumn;
+ cxGridDBColumn12: TcxGridDBColumn;
+ cxGridLevel5: TcxGridLevel;
+ ToolBar6: TToolBar;
+ TbjgqxAdd: TToolButton;
+ TbjgqxDel: TToolButton;
+ cxGrid6: TcxGrid;
+ Tv2: TcxGridDBTableView;
+ cxGridDBColumn13: TcxGridDBColumn;
+ cxGridDBColumn14: TcxGridDBColumn;
+ cxGridDBColumn15: TcxGridDBColumn;
+ cxGridDBColumn19: TcxGridDBColumn;
+ cxGridDBColumn20: TcxGridDBColumn;
+ cxGridDBColumn21: TcxGridDBColumn;
+ cxGridLevel6: TcxGridLevel;
+ ToolBar7: TToolBar;
+ TbrgqxAdd: TToolButton;
+ TbrgqxDel: TToolButton;
+ CDS_4: TClientDataSet;
+ CDS_5: TClientDataSet;
+ DS_4: TDataSource;
+ DS_5: TDataSource;
+ CDS_6: TClientDataSet;
+ DS_6: TDataSource;
+ GPM_5: TcxGridPopupMenu;
+ GPM_6: TcxGridPopupMenu;
+ Tv1ccqx_use: TcxGridDBColumn;
+ Tv2Column1: TcxGridDBColumn;
+ Tv3Column1: TcxGridDBColumn;
+ Tv4fs_use: TcxGridDBColumn;
+ Tv5gj_use: TcxGridDBColumn;
+ Tv6Column2: TcxGridDBColumn;
+ Tv2Column2: TcxGridDBColumn;
+ Tv2Column3: TcxGridDBColumn;
+ TbGJReplace2: TcxButton;
+ TbGJClear2: TcxButton;
+ cxLabel234: TcxLabel;
+ cxLabel235: TcxLabel;
+ cxLabel236: TcxLabel;
+ cxLabel237: TcxLabel;
+ cxLabel238: TcxLabel;
+ cxLabel247: TcxLabel;
+ cxLabel249: TcxLabel;
+ cxLabel250: TcxLabel;
+ cxLabel251: TcxLabel;
+ cxLabel252: TcxLabel;
+ cxLabel253: TcxLabel;
+ cxLabel273: TcxLabel;
+ gj_temperature1: TcxTextEdit;
+ gj_temperature10: TcxTextEdit;
+ gj_temperature11: TcxTextEdit;
+ gj_temperature2: TcxTextEdit;
+ gj_temperature3: TcxTextEdit;
+ gj_temperature4: TcxTextEdit;
+ gj_temperature5: TcxTextEdit;
+ gj_temperature6: TcxTextEdit;
+ gj_temperature7: TcxTextEdit;
+ gj_temperature8: TcxTextEdit;
+ gj_temperature9: TcxTextEdit;
+ cxLabel239: TcxLabel;
+ cxLabel240: TcxLabel;
+ gj_speed: TcxTextEdit;
+ cxLabel278: TcxLabel;
+ gj_number: TcxTextEdit;
+ fp_gjNumber: TcxTextEdit;
+ cxLabel279: TcxLabel;
+ procedure FormShow(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+
+ procedure CYColorKeyPress(Sender: TObject; var Key: Char);
+ procedure CYJGGYBtnDnClick(Sender: TObject);
+ procedure C_WidthBtnDnClick(Sender: TObject);
+ procedure C_WidthBtnUpClick(Sender: TObject);
+
+ procedure SetXH();
+
+ procedure fs_meterPropertiesChange(Sender: TObject);
+ procedure TbfpAddClick(Sender: TObject);
+ procedure TbfpDelClick(Sender: TObject);
+ procedure Tv2fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure TbfsAddClick(Sender: TObject);
+ procedure TbfsDelClick(Sender: TObject);
+ procedure TbgjAddClick(Sender: TObject);
+ procedure TbgjDelClick(Sender: TObject);
+ procedure Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure Tv3gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure TbCPReplaceClick(Sender: TObject);
+ procedure TbDXReplace2Click(Sender: TObject);
+ procedure TbFSReplace2Click(Sender: TObject);
+ procedure TbFPReplaceClick(Sender: TObject);
+ procedure TbGJReplaceClick(Sender: TObject);
+ procedure TbFSReplace3Click(Sender: TObject);
+ procedure TbFSClear3Click(Sender: TObject);
+ procedure TbDXClear2Click(Sender: TObject);
+ procedure cxButton4Click(Sender: TObject);
+ procedure TbGJClearClick(Sender: TObject);
+ procedure TBFScLEAR2Click(Sender: TObject);
+ procedure TbCCQXReplaceClick(Sender: TObject);
+ procedure TbccqxClearClick(Sender: TObject);
+ procedure TbDXReplace1Click(Sender: TObject);
+ procedure TbDXClear1Click(Sender: TObject);
+ procedure TbFSReplace1Click(Sender: TObject);
+ procedure TbFSClear1Click(Sender: TObject);
+ procedure TbGJReplace1Click(Sender: TObject);
+ procedure TbGJReplace2Click(Sender: TObject);
+ procedure TbGjClear1Click(Sender: TObject);
+ procedure TbGJClear2Click(Sender: TObject);
+ procedure TbFPReplace1Click(Sender: TObject);
+ procedure TbFPReplace2Click(Sender: TObject);
+ procedure TbFPClear1Click(Sender: TObject);
+ procedure TbFPClear2Click(Sender: TObject);
+ procedure TbDXReplace3Click(Sender: TObject);
+ procedure TbDXClear3Click(Sender: TObject);
+ procedure TbFPReplace3Click(Sender: TObject);
+ procedure TbFPClear3Click(Sender: TObject);
+ procedure TbGJReplace3Click(Sender: TObject);
+ procedure TbGJClear3Click(Sender: TObject);
+ procedure TbccqxAddClick(Sender: TObject);
+ procedure TbrgqxAddClick(Sender: TObject);
+ procedure TbjgqxAddClick(Sender: TObject);
+ procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure cxGridDBColumn14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure cxGridDBColumn8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure Tv41fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure Tv5gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure Tv6fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure Tv6fp_ratePropertiesEditValueChanged(Sender: TObject);
+ procedure Tv5gj_unitPropertiesEditValueChanged(Sender: TObject);
+ procedure Tv4fs_unitPropertiesEditValueChanged(Sender: TObject);
+ procedure cxGridDBColumn11PropertiesEditValueChanged(Sender: TObject);
+ procedure cxGridDBColumn20PropertiesEditValueChanged(Sender: TObject);
+ procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
+
+ procedure Tv1Column1PropertiesEditValueChanged(Sender: TObject);
+ procedure TbccqxDelClick(Sender: TObject);
+ procedure TbrgqxDelClick(Sender: TObject);
+ procedure TbjgqxDelClick(Sender: TObject);
+ procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject);
+ procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject);
+ procedure Tv4fs_usePropertiesEditValueChanged(Sender: TObject);
+ procedure Tv5gj_usePropertiesEditValueChanged(Sender: TObject);
+ procedure Tv6Column2PropertiesEditValueChanged(Sender: TObject);
+
+ private
+ canshu1: string;
+ Fint: Integer;
+ procedure InitGrid();
+ procedure ArrangeTabsByDataset();
+
+ function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+ procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
+ procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+
+ function AddPercentSuffixIfNeeded(const AText: string): string;
+ { Private declarations }
+ public
+ BtnInt: Integer;
+ FPSType: string;
+ FPSID: string;
+
+ { Public declarations }
+ end;
+
+var
+ frmDyeProcessDefinKaika: TfrmDyeProcessDefinKaika;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel,
+ U_DyeProcessList, U_ProductInfoSel, U_DyeTechnicsinput;
+// U_ProductInfoSel;
+
+{$R *.dfm}
+
+procedure TfrmDyeProcessDefinKaika.SetXH();
+var
+ i: Integer;
+begin
+// with CDS_GX do
+// begin
+// First;
+// i := 1;
+// while not Eof do
+// begin
+// with CDS_GX do
+// begin
+// Edit;
+// FieldByName('XHNoTemp').Value := i;
+// Post;
+// end;
+// i := i + 1;
+// Next;
+// end;
+// end;
+//
+// with CDS_GX do
+// begin
+// CDS_GX.IndexFieldNames := '';
+// First;
+// i := 1;
+// while not Eof do
+// begin
+// with CDS_GX do
+// begin
+// Edit;
+// FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger;
+// Post;
+// end;
+// i := i + 1;
+// Next;
+// end;
+// CDS_GX.IndexFieldNames := 'SerialNo';
+// end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.ArrangeTabsByDataset();
+var
+ I: Integer;
+ TabSheet: TcxTabSheet;
+ CurrentIndex: Integer;
+begin
+
+
+ // ʼҳ
+ for I := 0 to cxPageControl1.PageCount - 1 do
+ cxPageControl1.Pages[I].TabVisible := False;
+
+ // õǰ
+ CurrentIndex := 0;
+
+
+ // ݹҶӦҳ
+
+ for I := 0 to cxPageControl1.PageCount - 1 do
+ begin
+ TabSheet := cxPageControl1.Pages[I] as TcxTabSheet;
+ // ƥ乤
+ if (Trim(TabSheet.Caption) = FPSType) then
+ begin
+ TabSheet.PageIndex := CurrentIndex;
+ TabSheet.TabVisible := True;
+ TabSheet.Visible := True;
+ Inc(CurrentIndex);
+ Break;
+ end;
+
+ end;
+ // ˢҳؼ
+
+// cxPageControl1.Invalidate;
+end;
+
+procedure TfrmDyeProcessDefinKaika.InitGrid();
+var
+ i: integer;
+begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* from Bs_Cloth_GY_sub_Kaika A ');
+ sql.Add(' where gytype=''ϴ'' and A.PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_1);
+ SInitCDSData(ADOQueryTemp, CDS_1);
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* from Bs_Cloth_GY_sub_Kaika A ');
+ sql.Add(' where gytype=''Ⱦϴ'' and A.PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_2);
+ SInitCDSData(ADOQueryTemp, CDS_2);
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* from Bs_Cloth_GY_sub_Kaika A ');
+ sql.Add(' where gytype=''ϴ'' and A.PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_3);
+ SInitCDSData(ADOQueryTemp, CDS_3);
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* from Bs_Cloth_GY_sub_Kaika A ');
+ sql.Add(' where gytype=''ˮ'' and A.PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_4);
+ SInitCDSData(ADOQueryTemp, CDS_4);
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* from Bs_Cloth_GY_sub_Kaika A ');
+ sql.Add(' where gytype='''' and A.PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_6);
+ SInitCDSData(ADOQueryTemp, CDS_6);
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* from Bs_Cloth_GY_sub_Kaika A ');
+ sql.Add(' where gytype=''ν'' and A.PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_5);
+ SInitCDSData(ADOQueryTemp, CDS_5);
+
+
+// C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString);
+// C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString);
+
+end;
+
+procedure TfrmDyeProcessDefinKaika.FormShow(Sender: TObject);
+var
+ MaxPSID, MaxProcessID, MaxBCPID: string;
+ Maxid1, maxid2, maxid3, maxgx: string;
+begin
+ InitGrid();
+ ArrangeTabsByDataset();
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('select * from Dye_Plan_Glide where PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+ SCSHData(ADOQueryTemp, Panel1, 2);
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('select * from Bs_Cloth_GY_Main_Kaika where PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+
+ if FPSType = 'ϴ' then
+ begin
+ SCSHData(ADOQueryTemp, Panel_ccqx, 2);
+ end
+ else if FPSType = 'Ⱦϴ' then
+ begin
+ SCSHData(ADOQueryTemp, Panel_rgqx, 2);
+ end
+ else if FPSType = 'ϴ' then
+ begin
+ SCSHData(ADOQueryTemp, Panel_jgqx, 2);
+ end
+ else if FPSType = 'ɶ' then
+ begin
+ SCSHData(ADOQueryTemp, Panel_dx, 2);
+ end
+ else if FPSType = 'ˮ' then
+ begin
+ SCSHData(ADOQueryTemp, Panel_fs, 2);
+ end
+ else if FPSType = '' then
+ begin
+ SCSHData(ADOQueryTemp, Panel_fp, 2);
+ end
+ else if FPSType = 'ν' then
+ begin
+ SCSHData(ADOQueryTemp, Panel_gj, 2);
+ end
+ else if FPSType = 'ë' then
+ begin
+ SCSHData(ADOQueryTemp, Panel_zm, 2);
+ end;
+
+ if BtnInt = 3 then //鿴
+ begin
+// TbSave.Visible := False;
+// TbUpFile.Visible := False;
+ end;
+
+end;
+
+procedure TfrmDyeProcessDefinKaika.fs_meterPropertiesChange(Sender: TObject);
+var
+ mfs_meter, mfs_useOneMeter, mfs_useGlub: Double;
+begin
+ if fs_meterDQ.Text <> '' then
+ begin
+ mfs_meter := StrToFloat(fs_meterDQ.Text);
+ end
+ else
+ begin
+ fs_meterDQ.Text := '0';
+ mfs_meter := 0;
+ end;
+
+ if fs_useOneMeterDQ.Text <> '' then
+ begin
+ mfs_useOneMeter := StrToFloat(fs_useOneMeterDQ.Text);
+ end
+ else
+ begin
+ fs_useOneMeterDQ.Text := '0';
+ mfs_useOneMeter := 0;
+ end;
+ ///㲿
+ mfs_useGlub := mfs_meter * mfs_useOneMeter / 1000;
+ fs_useGlubDQ.Text := FloatToStr(mfs_useGlub);
+end;
+
+procedure TfrmDyeProcessDefinKaika.TBCloseClick(Sender: TObject);
+begin
+ Close;
+end;
+
+
+
+
+
+procedure TfrmDyeProcessDefinKaika.CYJGGYBtnDnClick(Sender: TObject);
+begin
+ TBtnEditC(Sender).Text := '';
+end;
+
+
+
+procedure TfrmDyeProcessDefinKaika.TbDXReplace1Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_dx, 'ɶȷ', FindLastEditedTextEdit(panel_dx, 'ɶȷ'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbDXReplace2Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_dx, 'ɶ¿', FindLastEditedTextEdit(panel_dx, 'ɶ¿'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbDXReplace3Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_dx, 'ɶŷ', FindLastEditedTextEdit(panel_dx, 'ɶŷ'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFPClear1Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_Fp, 'ȷ');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFPClear2Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_Fp, '¿');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFPClear3Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_Fp, 'ŷ');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFPReplace1Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_fp, 'ȷ', FindLastEditedTextEdit(panel_fp, 'ȷ'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFPReplace2Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_fp, '¿', FindLastEditedTextEdit(panel_fp, '¿'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFPReplaceClick(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel5, 'ݺ¶', FindLastEditedTextEdit(panel5, 'ݺ¶'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFSClear1Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(Panel_fs, 'ˮȷ');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TBFScLEAR2Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_FS, 'ˮ¿');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbGJReplace1Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_gj, 'νȷ', FindLastEditedTextEdit(Panel_gj, 'νȷ'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbGJReplace2Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_gj, 'ν¿', FindLastEditedTextEdit(panel_gj, 'ν¿'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbGJReplace3Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_gj, 'νŷ', FindLastEditedTextEdit(Panel_gj, 'νŷ'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbGJReplaceClick(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel6, 'ν¶', FindLastEditedTextEdit(panel6, 'ν¶'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbjgqxAddClick(Sender: TObject);
+begin
+ with CDS_3 do
+ begin
+ Append;
+ CDS_3.FieldByName('serialno').Value := CDS_3.RecordCount + 1;
+ CDS_3.FieldByName('jgqx_unit').Value := '%';
+ Post;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbjgqxDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_3.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_3.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + QuotedStr(Trim(CDS_3.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_3.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_3.First;
+ while not CDS_3.Eof do
+ begin
+ i := i + 1;
+ CDS_3.Edit;
+ CDS_3.fieldByName('serialno').value := i;
+ CDS_3.Post;
+ CDS_3.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbrgqxAddClick(Sender: TObject);
+begin
+ with CDS_2 do
+ begin
+ Append;
+ CDS_2.FieldByName('serialno').Value := CDS_2.RecordCount + 1;
+ CDS_2.FieldByName('rgqx_unit').Value := '%';
+ Post;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbrgqxDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_2.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_2.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + QuotedStr(Trim(CDS_2.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_2.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_2.First;
+ while not CDS_2.Eof do
+ begin
+ i := i + 1;
+ CDS_2.Edit;
+ CDS_2.fieldByName('serialno').value := i;
+ CDS_2.Post;
+ CDS_2.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbfsAddClick(Sender: TObject);
+begin
+ with CDS_4 do
+ begin
+ Append;
+ CDS_4.FieldByName('serialno').Value := CDS_4.RecordCount + 1;
+ CDS_4.FieldByName('fs_unit').Value := '%';
+ Post;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbfpAddClick(Sender: TObject);
+begin
+ with CDS_6 do
+ begin
+ Append;
+ CDS_6.FieldByName('serialno').Value := CDS_6.RecordCount + 1;
+ CDS_6.FieldByName('fp_unit').Value := '%';
+ Post;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbgjAddClick(Sender: TObject);
+begin
+ with CDS_5 do
+ begin
+ Append;
+ CDS_5.FieldByName('serialno').Value := CDS_5.RecordCount + 1;
+ CDS_5.FieldByName('gj_unit').Value := '%';
+ Post;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbccqxAddClick(Sender: TObject);
+begin
+ with CDS_1 do
+ begin
+ Append;
+ CDS_1.FieldByName('serialno').Value := CDS_1.RecordCount + 1;
+ CDS_1.FieldByName('ccqx_unit').Value := '%';
+ Post;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbccqxClearClick(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_ccqx, 'ϴ¿');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbccqxDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_1.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_1.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_1.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_1.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_1.First;
+ while not CDS_1.Eof do
+ begin
+ i := i + 1;
+ CDS_1.Edit;
+ CDS_1.fieldByName('serialno').value := i;
+ CDS_1.Post;
+ CDS_1.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbfsDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_4.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_4.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + QuotedStr(Trim(CDS_4.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_4.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_4.First;
+ while not CDS_4.Eof do
+ begin
+ i := i + 1;
+ CDS_4.Edit;
+ CDS_4.fieldByName('serialno').value := i;
+ CDS_4.Post;
+ CDS_4.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbfpDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_6.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_6.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + QuotedStr((CDS_6.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_6.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_6.First;
+ while not CDS_6.Eof do
+ begin
+ i := i + 1;
+ CDS_6.Edit;
+ CDS_6.fieldByName('serialno').value := i;
+ CDS_6.Post;
+ CDS_6.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbgjDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_5.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_5.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + QuotedStr(Trim(CDS_5.fieldbyname('BCPID').AsString)) );
+ ExecSQL;
+ end;
+ end;
+ CDS_5.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_5.First;
+ while not CDS_5.Eof do
+ begin
+ i := i + 1;
+ CDS_5.Edit;
+ CDS_5.fieldByName('serialno').value := i;
+ CDS_5.Post;
+ CDS_5.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbCPReplaceClick(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel2, 'ϴˮ', FindLastEditedTextEdit(panel2, 'ϴˮ'));
+end;
+
+function TfrmDyeProcessDefinKaika.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+var
+ i, j: Integer;
+ AControl: TControl;
+ SortedControls: TList;
+ TempControl: TControl;
+begin
+ Result := '';
+
+ // ûӿؼֱӷؿ
+ if AParent.ControlCount = 0 then
+ Exit;
+
+ // ʹ TList 洢ؼݾɰ Delphi
+ SortedControls := TList.Create;
+ try
+ // ӿؼӵб
+ for i := 0 to AParent.ControlCount - 1 do
+ SortedControls.Add(AParent.Controls[i]);
+
+ // ֶ TopY꣩ LeftX꣩
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ for j := i + 1 to SortedControls.Count - 1 do
+ begin
+ // Ƚؼ Top Left
+ if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then
+ begin
+ // λ
+ TempControl := TControl(SortedControls[i]);
+ SortedControls[i] := SortedControls[j];
+ SortedControls[j] := TempControl;
+ end;
+ end;
+ end;
+ // Ŀؼ
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ AControl := TControl(SortedControls[i]);
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then
+ begin
+ Result := TcxTextEdit(AControl).Text; // һĻᱻ
+ end;
+ end;
+ finally
+ SortedControls.Free;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ
+var
+ i: Integer;
+ AControl: TControl;
+ ATextEdit: TcxTextEdit;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then
+ begin
+ ATextEdit := AControl as TcxTextEdit;
+ if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then
+ ATextEdit.Text := AValue;
+ end;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+var
+ i: Integer;
+ AControl: TControl;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ // Ƿ TcxTextEdit Hint ƥ䣬ҲųĿؼ
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then
+ begin
+ TcxTextEdit(AControl).Text := ''; // ֱ
+ end;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFSReplace3Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_fs, 'ˮŷ', FindLastEditedTextEdit(panel_fs, 'ˮŷ'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFSClear3Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_fs, 'ˮŷ');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbCCQXReplaceClick(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_ccqx, 'ϴ¿', FindLastEditedTextEdit(panel_ccqx, 'ϴ¿'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbDXClear1Click(Sender: TObject);
+begin
+
+ ClearAllTextEditsByHint(panel_DX, 'ɶȷ');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbDXClear2Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_DX, 'ɶ¿');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbDXClear3Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_DX, 'ɶŷ');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFPReplace3Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_fp, 'ŷ', FindLastEditedTextEdit(panel_fp, 'ŷ'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.cxButton4Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel5, 'ݺ¶');
+end;
+
+procedure TfrmDyeProcessDefinKaika.cxGridDBColumn11PropertiesEditValueChanged(Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ Tv3.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ Tv3.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.cxGridDBColumn14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_2 do
+ begin
+ Edit;
+ FieldByName('rgqx_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('rgqx_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+
+ FieldByName('rgqx_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.cxGridDBColumn20PropertiesEditValueChanged(Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ Tv2.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ Tv2.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.cxGridDBColumn2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_1 do
+ begin
+ Edit;
+ FieldByName('ccqx_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('ccqx_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+
+ FieldByName('ccqx_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+//procedure TfrmDyeProcessDefin.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
+//var
+// s: string;
+//begin
+// s := TcxTextEdit(Sender).EditingText;
+//
+// if (s <> '') and (s[Length(s)] <> '%') then
+// begin
+// Tv1.Controller.FocusedColumn.EditValue := s + '%';
+// end;
+//end;
+
+procedure TfrmDyeProcessDefinKaika.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ Tv1.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+function TfrmDyeProcessDefinKaika.AddPercentSuffixIfNeeded(const AText: string): string;
+begin
+ Result := AText;
+ if (AText <> '') and (AText[Length(AText)] <> '%') then
+ Result := AText + '%';
+end;
+
+procedure TfrmDyeProcessDefinKaika.cxGridDBColumn8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_3 do
+ begin
+ Edit;
+ FieldByName('jgqx_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('jgqx_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+ FieldByName('jgqx_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbGjClear1Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_gj, 'νȷ');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbGJClear2Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_gj, 'ν¿');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbGJClear3Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_gj, 'νŷ');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbGJClearClick(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel6, 'ν¶');
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFSReplace1Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_fs, 'ˮȷ', FindLastEditedTextEdit(panel_fs, 'ˮȷ'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.TbFSReplace2Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_fs, 'ˮ¿', FindLastEditedTextEdit(panel_fs, 'ˮ¿'));
+end;
+
+procedure TfrmDyeProcessDefinKaika.CYColorKeyPress(Sender: TObject; var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ Key := #0;
+ SelectNext(ActiveControl as TWinControl, True, True);
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.C_WidthBtnDnClick(Sender: TObject);
+begin
+ TBtnEditC(Sender).Text := '';
+ TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmDyeProcessDefinKaika.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 TfrmDyeProcessDefinKaika.Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_1 do
+ begin
+ Edit;
+ FieldByName('fs_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('fs_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+
+
+procedure TfrmDyeProcessDefinKaika.Tv1Column1PropertiesEditValueChanged(Sender: TObject);
+var
+ TotalUse: Double;
+ I: Integer;
+ UseValue, RateValue: Variant;
+ mvalue: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText; //ȡûı
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('ccqx_use').Value := mvalue;
+ Post;
+ end;
+
+// CalculateUsageRates;
+
+ // ܺ
+ TotalUse := 0;
+ for I := 0 to Tv1.DataController.RecordCount - 1 do
+ begin
+ UseValue := Tv1.DataController.Values[I, Tv1ccqx_use.Index];
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ TotalUse := TotalUse + VarAsType(UseValue, varDouble);
+ end;
+
+ // Ϊ0бΪ0
+ if TotalUse = 0 then
+ begin
+ for I := 0 to Tv1.DataController.RecordCount - 1 do
+ Tv1.DataController.Values[I, Tv1ccqx_rate.Index] := 0;
+ Exit;
+ end;
+
+ // 㲢ÿһеıʣٷֱȣ
+ CDS_1.First;
+ while not CDS_1.Eof do
+ begin
+ UseValue := CDS_1.FieldByName('ccqx_use').Value;
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ begin
+ RateValue := (VarAsType(UseValue, varDouble) / TotalUse) * 100;
+ with CDS_1 do
+ begin
+ Edit;
+// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
+ FieldByName('ccqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ Post;
+ end;
+
+
+ end
+ else
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('ccqx_rate').Value := 0;
+ Post;
+ end;
+ end;
+
+ CDS_1.Next;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv2Column1PropertiesEditValueChanged(
+ Sender: TObject);
+var
+ TotalUse: Double;
+ I: Integer;
+ UseValue, RateValue: Variant;
+ mvalue: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText; //ȡûı
+ with CDS_2 do
+ begin
+ Edit;
+ FieldByName('rgqx_use').Value := mvalue;
+ Post;
+ end;
+
+// CalculateUsageRates;
+
+ // ܺ
+ TotalUse := 0;
+ for I := 0 to Tv2.DataController.RecordCount - 1 do
+ begin
+ UseValue := Tv2.DataController.Values[I, Tv1ccqx_use.Index];
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ TotalUse := TotalUse + VarAsType(UseValue, varDouble);
+ end;
+
+ // Ϊ0бΪ0
+ if TotalUse = 0 then
+ begin
+ for I := 0 to Tv2.DataController.RecordCount - 1 do
+ Tv2.DataController.Values[I, Tv1ccqx_rate.Index] := 0;
+ Exit;
+ end;
+
+ // 㲢ÿһеıʣٷֱȣ
+ CDS_2.First;
+ while not CDS_2.Eof do
+ begin
+ UseValue := CDS_2.FieldByName('rgqx_use').Value;
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ begin
+ RateValue := (VarAsType(UseValue, varDouble) / TotalUse) * 100;
+ with CDS_2 do
+ begin
+ Edit;
+// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
+ FieldByName('rgqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ Post;
+ end;
+
+
+ end
+ else
+ begin
+ with CDS_2 do
+ begin
+ Edit;
+ FieldByName('rgqx_rate').Value := 0;
+ Post;
+ end;
+ end;
+
+ CDS_2.Next;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv2fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_2 do
+ begin
+ Edit;
+ FieldByName('fp_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('fp_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv3Column1PropertiesEditValueChanged(
+ Sender: TObject);
+var
+ TotalUse: Double;
+ I: Integer;
+ UseValue, RateValue: Variant;
+ mvalue: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText; //ȡûı
+ with CDS_3 do
+ begin
+ Edit;
+ FieldByName('jgqx_use').Value := mvalue;
+ Post;
+ end;
+
+// CalculateUsageRates;
+
+ // ܺ
+ TotalUse := 0;
+ for I := 0 to Tv3.DataController.RecordCount - 1 do
+ begin
+ UseValue := Tv3.DataController.Values[I, Tv1ccqx_use.Index];
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ TotalUse := TotalUse + VarAsType(UseValue, varDouble);
+ end;
+
+ // Ϊ0бΪ0
+ if TotalUse = 0 then
+ begin
+ for I := 0 to Tv3.DataController.RecordCount - 1 do
+ Tv3.DataController.Values[I, Tv1ccqx_rate.Index] := 0;
+ Exit;
+ end;
+
+ // 㲢ÿһеıʣٷֱȣ
+ CDS_3.First;
+ while not CDS_3.Eof do
+ begin
+ UseValue := CDS_3.FieldByName('jgqx_use').Value;
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ begin
+ RateValue := (VarAsType(UseValue, varDouble) / TotalUse) * 100;
+ with CDS_3 do
+ begin
+ Edit;
+// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
+ FieldByName('jgqx_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ Post;
+ end;
+
+
+ end
+ else
+ begin
+ with CDS_3 do
+ begin
+ Edit;
+ FieldByName('ccqx_rate').Value := 0;
+ Post;
+ end;
+ end;
+
+ CDS_3.Next;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv3gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_3 do
+ begin
+ Edit;
+ FieldByName('gj_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('gj_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv41fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_4 do
+ begin
+ Edit;
+ FieldByName('fs_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('fs_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+ FieldByName('fs_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv4fs_unitPropertiesEditValueChanged(Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ Tv4.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ Tv4.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv4fs_usePropertiesEditValueChanged(
+ Sender: TObject);
+var
+ TotalUse: Double;
+ I: Integer;
+ UseValue, RateValue: Variant;
+ mvalue: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText; //ȡûı
+ with CDS_4 do
+ begin
+ Edit;
+ FieldByName('fs_use').Value := mvalue;
+ Post;
+ end;
+
+// CalculateUsageRates;
+
+ // ܺ
+ TotalUse := 0;
+ for I := 0 to Tv4.DataController.RecordCount - 1 do
+ begin
+ UseValue := Tv4.DataController.Values[I, Tv1ccqx_use.Index];
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ TotalUse := TotalUse + VarAsType(UseValue, varDouble);
+ end;
+
+ // Ϊ0бΪ0
+ if TotalUse = 0 then
+ begin
+ for I := 0 to Tv4.DataController.RecordCount - 1 do
+ Tv4.DataController.Values[I, Tv1ccqx_rate.Index] := 0;
+ Exit;
+ end;
+
+ // 㲢ÿһеıʣٷֱȣ
+ CDS_4.First;
+ while not CDS_4.Eof do
+ begin
+ UseValue := CDS_4.FieldByName('fs_use').Value;
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ begin
+ RateValue := (VarAsType(UseValue, varDouble) / TotalUse) * 100;
+ with CDS_4 do
+ begin
+ Edit;
+// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
+ FieldByName('fs_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ Post;
+ end;
+
+
+ end
+ else
+ begin
+ with CDS_4 do
+ begin
+ Edit;
+ FieldByName('fs_rate').Value := 0;
+ Post;
+ end;
+ end;
+
+ CDS_4.Next;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv5gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_5 do
+ begin
+ Edit;
+ FieldByName('gj_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('gj_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+ FieldByName('gj_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv5gj_unitPropertiesEditValueChanged(Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ Tv5.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ Tv5.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv5gj_usePropertiesEditValueChanged(
+ Sender: TObject);
+var
+ TotalUse: Double;
+ I: Integer;
+ UseValue, RateValue: Variant;
+ mvalue: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText; //ȡûı
+ with CDS_5 do
+ begin
+ Edit;
+ FieldByName('gj_use').Value := mvalue;
+ Post;
+ end;
+
+// CalculateUsageRates;
+
+ // ܺ
+ TotalUse := 0;
+ for I := 0 to Tv5.DataController.RecordCount - 1 do
+ begin
+ UseValue := Tv5.DataController.Values[I, Tv1ccqx_use.Index];
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ TotalUse := TotalUse + VarAsType(UseValue, varDouble);
+ end;
+
+ // Ϊ0бΪ0
+ if TotalUse = 0 then
+ begin
+ for I := 0 to Tv5.DataController.RecordCount - 1 do
+ Tv5.DataController.Values[I, Tv1ccqx_rate.Index] := 0;
+ Exit;
+ end;
+
+ // 㲢ÿһеıʣٷֱȣ
+ CDS_5.First;
+ while not CDS_5.Eof do
+ begin
+ UseValue := CDS_5.FieldByName('gj_use').Value;
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ begin
+ RateValue := (VarAsType(UseValue, varDouble) / TotalUse) * 100;
+ with CDS_5 do
+ begin
+ Edit;
+// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
+ FieldByName('gj_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ Post;
+ end;
+
+
+ end
+ else
+ begin
+ with CDS_5 do
+ begin
+ Edit;
+ FieldByName('gj_rate').Value := 0;
+ Post;
+ end;
+ end;
+
+ CDS_5.Next;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv6Column2PropertiesEditValueChanged(
+ Sender: TObject);
+var
+ TotalUse: Double;
+ I: Integer;
+ UseValue, RateValue: Variant;
+ mvalue: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText; //ȡûı
+ with CDS_6 do
+ begin
+ Edit;
+ FieldByName('fp_use').Value := mvalue;
+ Post;
+ end;
+
+// CalculateUsageRates;
+
+ // ܺ
+ TotalUse := 0;
+ for I := 0 to Tv6.DataController.RecordCount - 1 do
+ begin
+ UseValue := Tv6.DataController.Values[I, Tv1ccqx_use.Index];
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ TotalUse := TotalUse + VarAsType(UseValue, varDouble);
+ end;
+
+ // Ϊ0бΪ0
+ if TotalUse = 0 then
+ begin
+ for I := 0 to Tv6.DataController.RecordCount - 1 do
+ Tv6.DataController.Values[I, Tv1ccqx_rate.Index] := 0;
+ Exit;
+ end;
+
+ // 㲢ÿһеıʣٷֱȣ
+ CDS_6.First;
+ while not CDS_6.Eof do
+ begin
+ UseValue := CDS_6.FieldByName('fp_use').Value;
+ if not VarIsNull(UseValue) and not VarIsEmpty(UseValue) then
+ begin
+ RateValue := (VarAsType(UseValue, varDouble) / TotalUse) * 100;
+ with CDS_6 do
+ begin
+ Edit;
+// FieldByName('ccqx_rate').Value := RoundFloat(RateValue,2);
+ FieldByName('fp_rate').Value := AddPercentSuffixIfNeeded(FloatToStr(RoundFloat(RateValue,2) ));
+ Post;
+ end;
+
+
+ end
+ else
+ begin
+ with CDS_6 do
+ begin
+ Edit;
+ FieldByName('fp_rate').Value := 0;
+ Post;
+ end;
+ end;
+
+ CDS_6.Next;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv6fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_6 do
+ begin
+ Edit;
+ FieldByName('fp_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('fp_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+ FieldByName('fp_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TfrmDyeProcessDefinKaika.Tv6fp_ratePropertiesEditValueChanged(Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ Tv6.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ Tv6.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+end.
+
diff --git a/F02染色计划单/U_DyeProcessList.dfm b/F02染色计划单/U_DyeProcessList.dfm
index 6ed5e62..4805853 100644
--- a/F02染色计划单/U_DyeProcessList.dfm
+++ b/F02染色计划单/U_DyeProcessList.dfm
@@ -3,6 +3,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ClientHeight = 569
ClientWidth = 1134
WindowState = wsMaximized
+ OnKeyDown = FormKeyDown
ExplicitWidth = 1150
ExplicitHeight = 608
PixelsPerInch = 96
@@ -24,7 +25,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ParentColor = False
ShowCaptions = True
TabOrder = 0
- ExplicitWidth = 1126
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -165,7 +165,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
- ExplicitWidth = 1126
object Label5: TLabel
Left = 326
Top = 12
@@ -224,7 +223,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Height = 455
Align = alClient
TabOrder = 2
- ExplicitTop = 110
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
diff --git a/F02染色计划单/U_DyeProcessList.pas b/F02染色计划单/U_DyeProcessList.pas
index 5ff052e..856e3ad 100644
--- a/F02染色计划单/U_DyeProcessList.pas
+++ b/F02染色计划单/U_DyeProcessList.pas
@@ -79,6 +79,7 @@ type
procedure TbAdd_FBClick(Sender: TObject);
procedure TbAdd_fpClick(Sender: TObject);
procedure TbAdd_gjClick(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
{ Private declarations }
procedure InitGrid();
@@ -126,6 +127,16 @@ begin
frmDyeProcessList := nil;
end;
+procedure TfrmDyeProcessList.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmDyeProcessList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
diff --git a/F02染色计划单/U_DyeSimpleTechnicsKaiKa.dfm b/F02染色计划单/U_DyeSimpleTechnicsKaiKa.dfm
new file mode 100644
index 0000000..08b0d8c
--- /dev/null
+++ b/F02染色计划单/U_DyeSimpleTechnicsKaiKa.dfm
@@ -0,0 +1,259 @@
+inherited frmDyeSimpleTechnicsKaiKa: TfrmDyeSimpleTechnicsKaiKa
+ Left = -55
+ Caption = #31616#26131#24037#33402#31649#29702
+ ClientHeight = 845
+ ClientWidth = 1200
+ Position = poDesigned
+ WindowState = wsMaximized
+ OnKeyDown = FormKeyDown
+ ExplicitWidth = 1216
+ ExplicitHeight = 884
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Splitter1: TSplitter [0]
+ Left = 561
+ Top = 38
+ Height = 807
+ ExplicitLeft = 800
+ ExplicitTop = 328
+ ExplicitHeight = 100
+ end
+ object ToolBar1: TToolBar [1]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1200
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 91
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ DisabledImages = DataLink_DyePlan.ImageList_new32
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ParentColor = False
+ ShowCaptions = True
+ TabOrder = 0
+ object ToolButton3: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton3Click
+ end
+ object TBClose: TToolButton
+ Left = 95
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel2: TPanel [2]
+ Left = 0
+ Top = 38
+ Width = 561
+ Height = 807
+ Align = alLeft
+ TabOrder = 1
+ object Splitter2: TSplitter
+ Left = 1
+ Top = 1
+ Width = 2
+ Height = 805
+ ExplicitLeft = 700
+ ExplicitHeight = 744
+ end
+ object Panel3: TPanel
+ Left = 3
+ Top = 1
+ Width = 557
+ Height = 805
+ Align = alClient
+ TabOrder = 0
+ object cxGrid9: TcxGrid
+ Left = 1
+ Top = 39
+ Width = 555
+ Height = 765
+ Align = alClient
+ TabOrder = 0
+ object Tv3: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_GX
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsData.Editing = False
+ OptionsView.GroupByBox = False
+ object Tv3PSNO: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'GlideNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 41
+ end
+ object Tv3PSType: TcxGridDBColumn
+ Caption = #24037#24207#31867#22411
+ DataBinding.FieldName = 'PSType'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3PSName: TcxGridDBColumn
+ Caption = #24037#24207#21517#31216
+ DataBinding.FieldName = 'PSName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3PSID: TcxGridDBColumn
+ Caption = #24037#24207'ID'
+ DataBinding.FieldName = 'PSID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3Page: TcxGridDBColumn
+ Caption = #39029#38754
+ DataBinding.FieldName = 'Page'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel8: TcxGridLevel
+ GridView = Tv3
+ end
+ end
+ object ToolBar2: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 1
+ Width = 555
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 75
+ Caption = 'ToolBar2'
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ShowCaptions = True
+ TabOrder = 1
+ Visible = False
+ object TbShow: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #26174#31034
+ ImageIndex = 8
+ OnClick = TbShowClick
+ end
+ end
+ end
+ end
+ object ScrollBox1: TScrollBox [3]
+ Left = 564
+ Top = 38
+ Width = 636
+ Height = 807
+ Align = alClient
+ TabOrder = 2
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Left = 281
+ Top = 288
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Left = 153
+ Top = 289
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 397
+ Top = 145
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 301
+ Top = 145
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 205
+ Top = 145
+ end
+ object GPM_2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 447
+ Top = 361
+ end
+ object DS_2: TDataSource
+ DataSet = CDS_2
+ Left = 391
+ Top = 208
+ end
+ object CDS_2: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 320
+ Top = 209
+ end
+ object DS_PsType: TDataSource
+ DataSet = CDS_PSType
+ Left = 720
+ Top = 139
+ end
+ object CDS_PSType: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 648
+ Top = 137
+ end
+ object ADOQuery1: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 917
+ Top = 3
+ end
+ object GPM_1: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 468
+ Top = 227
+ end
+ object CDS_GX: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 676
+ Top = 556
+ end
+ object DS_GX: TDataSource
+ DataSet = CDS_GX
+ Left = 740
+ Top = 564
+ end
+ object GPM_3: TcxGridPopupMenu
+ Grid = cxGrid9
+ PopupMenus = <>
+ Left = 495
+ Top = 321
+ end
+end
diff --git a/F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas b/F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas
new file mode 100644
index 0000000..8d95363
--- /dev/null
+++ b/F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas
@@ -0,0 +1,1096 @@
+unit U_DyeSimpleTechnicsKaiKa;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+ cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+ cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+ cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+ cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+ RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+ IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+ cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+ dxBarBuiltInMenu, Menus, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters,
+ dxDateRanges, dxScrollbarAnnotations, cxContainer, cxDropDownEdit, cxLabel,
+ cxButtons, cxMemo, U_frameFPList, U_frameGJList, U_frameGDXList, U_frameFSList,
+ U_frameCCQXList, U_frameJGQXList, U_frameRGQXList, U_frameYMList, U_BaseInput,
+ System.ImageList, Vcl.ImgList;
+
+ //U_frameJGQXList, U_frameRGQXList, U_frameCCQXList, U_frameYMList
+
+type
+ TfrmDyeSimpleTechnicsKaiKa = class(TfrmBaseInput)
+ ToolBar1: TToolBar;
+ TBClose: TToolButton;
+ ADOQueryTemp: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ GPM_2: TcxGridPopupMenu;
+ DS_2: TDataSource;
+ CDS_2: TClientDataSet;
+ DS_PsType: TDataSource;
+ CDS_PSType: TClientDataSet;
+ ADOQuery1: TADOQuery;
+ GPM_1: TcxGridPopupMenu;
+ ToolButton3: TToolButton;
+ Panel2: TPanel;
+ Splitter1: TSplitter;
+ ScrollBox1: TScrollBox;
+ Splitter2: TSplitter;
+ Panel3: TPanel;
+ cxGrid9: TcxGrid;
+ Tv3: TcxGridDBTableView;
+ cxGridLevel8: TcxGridLevel;
+ CDS_GX: TClientDataSet;
+ DS_GX: TDataSource;
+ Tv3PSNO: TcxGridDBColumn;
+ Tv3PSType: TcxGridDBColumn;
+ Tv3PSName: TcxGridDBColumn;
+ Tv3PSID: TcxGridDBColumn;
+ ToolBar2: TToolBar;
+ TbShow: TToolButton;
+ Tv3Page: TcxGridDBColumn;
+ GPM_3: TcxGridPopupMenu;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure TBCloseClick(Sender: TObject);
+
+ procedure FormShow(Sender: TObject);
+
+ procedure cxTabControl1Change(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+
+ procedure Tv1DblClick(Sender: TObject);
+
+ procedure TbDeleteClick(Sender: TObject);
+ procedure TbShowClick(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+ private
+ { Private declarations }
+
+ procedure SetStatus();
+
+ procedure InitGlide();
+ procedure InitGXDetails();
+ procedure CloseAllFrames();
+
+
+ function GetNextFrameTop: Integer;
+// function SaveData(): Boolean;
+ procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
+ procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+ function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+ procedure SetXH();
+ public
+ fPSIDList: string;
+ fmanage: string;
+ fKaZu : string;
+ end;
+
+var
+ frmDyeSimpleTechnicsKaiKa: TfrmDyeSimpleTechnicsKaiKa;
+ frameFPList1, frameFPList2, frameFPList3: tframeFPList;
+ frameGJList1, frameGJList2, frameGJList3: tframeGJList;
+ frameFSList1, frameFSList2, frameFSList3: tframeFSList;
+ frameGDXList1, frameGDXList2, frameGDXList3: TframeGDXList;
+ frameJGQXList1, frameJGQXList2, frameJGQXList3: TframeJGQXList;
+ frameRGQXList1, frameRGQXList2, frameRGQXList3: TframeRGQXList;
+ frameCCQXList1, frameCCQXList2, frameCCQXList3: TframeCCQXList;
+ frameYMList1, frameYMList2, frameYMList3: TframeYMList;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_DyeTechnicsinput, U_DyeProcessDefin,
+ U_DyeSimpleTechnicsList;
+
+{$R *.dfm}
+
+procedure TfrmDyeSimpleTechnicsKaiKa.SetXH();
+var
+ i: Integer;
+begin
+ with CDS_GX do
+ begin
+ First;
+ i := 1;
+ while not Eof do
+ begin
+ with CDS_GX do
+ begin
+ Edit;
+ FieldByName('XHNoTemp').Value := i;
+ Post;
+ end;
+ i := i + 1;
+ Next;
+ end;
+ end;
+
+ with CDS_GX do
+ begin
+ CDS_GX.IndexFieldNames := '';
+ First;
+ i := 1;
+ while not Eof do
+ begin
+ with CDS_GX do
+ begin
+ Edit;
+ FieldByName('PSNO').Value := FieldByName('XHNoTemp').AsInteger;
+ Post;
+ end;
+ i := i + 1;
+ Next;
+ end;
+ CDS_GX.IndexFieldNames := 'PSNO';
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.SetStatus();
+var
+ i: integer;
+begin
+
+end;
+
+
+
+procedure TfrmDyeSimpleTechnicsKaiKa.InitGlide();
+begin
+ try
+ ADOQueryTemp.DisableControls;
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.PSID,A.GlideNo,B.PSType,B.PSName,B.page FROM Dye_Plan_Glide A');
+ sql.Add(' inner join Dye_Process B on A.PSID = B.PSID');
+ sql.Add(' Where A.PCID=''' + trim(fKaZu) + '''');
+ SQL.Add(' ORDER BY A.GlideNo');
+// ShowMessage(SQL.Text);
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_GX);
+ SInitCDSData(ADOQueryTemp, CDS_GX);
+ finally
+ ADOQueryTemp.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.InitGXDetails();
+begin
+ try
+ ADOQueryTemp.DisableControls;
+ CDS_GX.First;
+ while not CDS_GX.eof do
+ begin
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.* FROM V_Dye_TechnicsKaiKa_Details A');
+ sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + '''');
+ SQL.Add(' and A.PCID = ''' + trim(fKaZu) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.* FROM BS_Cloth_GY_Sub_Kaika A');
+ sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + '''');
+ sql.Add(' and A.PCID=''' + trim(fKaZu) + '''');
+// ShowMessage(SQL.Text);
+ Open;
+ end;
+
+
+
+// ShowMessage(IntToStr(ADOQueryCmd.RecordCount));
+
+ if CDS_GX.FieldByName('PSType').AsString = 'ϴ' then
+ begin
+ if self.FindComponent('frameCCQXList1') = nil then
+ begin
+ frameCCQXList1 := TframeCCQXList.Create(self);
+ frameCCQXList1.Name := 'frameCCQXList1';
+ frameCCQXList1.Parent := self.ScrollBox1;
+ frameCCQXList1.Top := GetNextFrameTop;
+ frameCCQXList1.Visible := True;
+ frameCCQXList1.InitGrid();
+
+ frameCCQXList1.TbCCQXAdd.Visible := False;
+ frameCCQXList1.TbCCQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameCCQXList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameCCQXList1.Panel_ccqx, 2);
+ frameCCQXList1.ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameCCQXList1.CDS_CCQX);
+ SInitCDSData(ADOQueryCmd, frameCCQXList1.CDS_CCQX);
+
+ end
+ else if self.FindComponent('frameCCQXList2') = nil then
+ begin
+ frameCCQXList2 := TframeCCQXList.Create(self);
+ frameCCQXList2.Name := 'frameCCQXList2';
+ frameCCQXList2.Parent := self.ScrollBox1;
+ frameCCQXList2.Top := GetNextFrameTop;
+ frameCCQXList2.Visible := True;
+ frameCCQXList2.InitGrid();
+
+ frameCCQXList2.TbCCQXAdd.Visible := False;
+ frameCCQXList2.TbCCQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameCCQXList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameCCQXList2.Panel_ccqx, 2);
+ frameCCQXList2.ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameCCQXList2.CDS_CCQX);
+ SInitCDSData(ADOQueryCmd, frameCCQXList2.CDS_CCQX);
+
+ end
+ else if self.FindComponent('frameCCQXList3') = nil then
+ begin
+ frameCCQXList3 := TframeCCQXList.Create(self);
+ frameCCQXList3.Name := 'frameCCQXList3';
+ frameCCQXList3.Parent := self.ScrollBox1;
+ frameCCQXList3.Top := GetNextFrameTop;
+ frameCCQXList3.Visible := True;
+ frameCCQXList3.InitGrid();
+
+ frameCCQXList3.TbCCQXAdd.Visible := False;
+ frameCCQXList3.TbCCQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameCCQXList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameCCQXList3.Panel_ccqx, 2);
+ frameCCQXList3.ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameCCQXList3.CDS_CCQX);
+ SInitCDSData(ADOQueryCmd, frameCCQXList3.CDS_CCQX);
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'Ⱦϴ' then
+ begin
+ if self.FindComponent('frameRGQXList1') = nil then
+ begin
+ frameRGQXList1 := TframeRGQXList.Create(self);
+ frameRGQXList1.Name := 'frameRGQXList1';
+ frameRGQXList1.Parent := self.ScrollBox1;
+ frameRGQXList1.Top := GetNextFrameTop;
+ frameRGQXList1.Visible := True;
+ frameRGQXList1.InitGrid();
+
+ frameRGQXList1.TbRGQXAdd.Visible := False;
+ frameRGQXList1.TbRGQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameRGQXList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameRGQXList1.Panel_rgqx, 2);
+ frameRGQXList1.rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameRGQXList1.CDS_rgQX);
+ SInitCDSData(ADOQueryCmd, frameRGQXList1.CDS_RGQX);
+ end
+ else if self.FindComponent('frameRGQXList2') = nil then
+ begin
+ frameRGQXList2 := TframeRGQXList.Create(self);
+ frameRGQXList2.Name := 'frameRGQXList2';
+ frameRGQXList2.Parent := self.ScrollBox1;
+ frameRGQXList2.Top := GetNextFrameTop;
+ frameRGQXList2.Visible := True;
+ frameRGQXList2.InitGrid();
+
+ frameRGQXList2.TbRGQXAdd.Visible := False;
+ frameRGQXList2.TbRGQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameRGQXList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameRGQXList2.Panel_rgqx, 2);
+ frameRGQXList2.rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameRGQXList2.CDS_rgQX);
+ SInitCDSData(ADOQueryCmd, frameRGQXList2.CDS_RGQX);
+ end
+ else if self.FindComponent('frameRGQXList3') = nil then
+ begin
+ frameRGQXList3 := TframeRGQXList.Create(self);
+ frameRGQXList3.Name := 'frameRGQXList3';
+ frameRGQXList3.Parent := self.ScrollBox1;
+ frameRGQXList3.Top := GetNextFrameTop;
+ frameRGQXList3.Visible := True;
+ frameRGQXList3.InitGrid();
+
+ frameRGQXList3.TbRGQXAdd.Visible := False;
+ frameRGQXList3.TbRGQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameRGQXList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameRGQXList3.Panel_rgqx, 2);
+ frameRGQXList3.rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameRGQXList3.CDS_rgQX);
+ SInitCDSData(ADOQueryCmd, frameRGQXList3.CDS_RGQX);
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ϴ' then
+ begin
+ if self.FindComponent('frameJGQXList1') = nil then
+ begin
+ frameJGQXList1 := TframeJGQXList.Create(self);
+ frameJGQXList1.Name := 'frameJGQXList1';
+ frameJGQXList1.Parent := self.ScrollBox1;
+ frameJGQXList1.Top := GetNextFrameTop;
+ frameJGQXList1.Visible := True;
+ frameJGQXList1.InitGrid();
+
+ frameJGQXList1.TbJGQXAdd.Visible := False;
+ frameJGQXList1.TbJGQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameJGQXList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameJGQXList1.Panel_jgqx, 2);
+ frameJGQXList1.jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameJGQXList1.CDS_JGQX);
+ SInitCDSData(ADOQueryCmd, frameJGQXList1.CDS_JGQX);
+ end
+ else if self.FindComponent('frameJGQXList2') = nil then
+ begin
+ frameJGQXList2 := TframeJGQXList.Create(self);
+ frameJGQXList2.Name := 'frameJGQXList2';
+ frameJGQXList2.Parent := self.ScrollBox1;
+ frameJGQXList2.Top := GetNextFrameTop;
+ frameJGQXList2.Visible := True;
+ frameJGQXList2.InitGrid();
+
+ frameJGQXList2.TbJGQXAdd.Visible := False;
+ frameJGQXList2.TbJGQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameJGQXList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameJGQXList2.Panel_jgqx, 2);
+ frameJGQXList2.jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameJGQXList2.CDS_JGQX);
+ SInitCDSData(ADOQueryCmd, frameJGQXList2.CDS_JGQX);
+ end
+ else if self.FindComponent('frameJGQXList3') = nil then
+ begin
+ frameJGQXList3 := TframeJGQXList.Create(self);
+ frameJGQXList3.Name := 'frameJGQXList3';
+ frameJGQXList3.Parent := self.ScrollBox1;
+ frameJGQXList3.Top := GetNextFrameTop;
+ frameJGQXList3.Visible := True;
+ frameJGQXList3.InitGrid();
+
+ frameJGQXList3.TbJGQXAdd.Visible := False;
+ frameJGQXList3.TbJGQXDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameJGQXList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameJGQXList3.Panel_jgqx, 2);
+ frameJGQXList3.jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameJGQXList3.CDS_JGQX);
+ SInitCDSData(ADOQueryCmd, frameJGQXList3.CDS_JGQX);
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ɶ' then
+ begin
+ if self.FindComponent('frameGDXList1') = nil then
+ begin
+ frameGDXList1 := TframeGDXList.Create(self);
+ frameGDXList1.Name := 'frameGDXList1';
+ frameGDXList1.Parent := self.ScrollBox1;
+ frameGDXList1.Top := GetNextFrameTop;
+ frameGDXList1.Visible := True;
+ frameGDXList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGDXList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGDXList1.Panel_dx, 2);
+ frameGDXList1.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString;
+ end
+ else if self.FindComponent('frameGDXList2') = nil then
+ begin
+ frameGDXList2 := TframeGDXList.Create(self);
+ frameGDXList2.Name := 'frameGDXList2';
+ frameGDXList2.Parent := self.ScrollBox1;
+ frameGDXList2.Top := GetNextFrameTop;
+ frameGDXList2.Visible := True;
+ frameGDXList2.InitGrid();
+
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGDXList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGDXList2.Panel_dx, 2);
+ frameGDXList2.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString;
+ end
+ else if self.FindComponent('frameGDXList3') = nil then
+ begin
+ frameGDXList3 := TframeGDXList.Create(self);
+ frameGDXList3.Name := 'frameGDXList3';
+ frameGDXList3.Parent := self.ScrollBox1;
+ frameGDXList3.Top := GetNextFrameTop;
+ frameGDXList3.Visible := True;
+ frameGDXList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGDXList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGDXList3.Panel_dx, 2);
+ frameGDXList3.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString;
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ˮ' then
+ begin
+ if self.FindComponent('frameFSList1') = nil then
+ begin
+ frameFSList1 := tframeFSList.Create(self);
+ frameFSList1.Name := 'frameFSList1';
+ frameFSList1.Parent := self.ScrollBox1;
+ frameFSList1.Top := GetNextFrameTop;
+ frameFSList1.Visible := True;
+ frameFSList1.InitGrid();
+
+ frameFSList1.TbFSAdd.Visible := False;
+ frameFSList1.TbFSDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFSList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFSList1.Panel_fs, 2);
+ frameFSList1.fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFSList1.CDS_fS);
+ SInitCDSData(ADOQueryCmd, frameFSList1.CDS_fS);
+ end
+ else if self.FindComponent('frameFSList2') = nil then
+ begin
+ frameFSList2 := tframeFSList.Create(self);
+ frameFSList2.Name := 'frameFSList2';
+ frameFSList2.Parent := self.ScrollBox1;
+ frameFSList2.Top := GetNextFrameTop;
+ frameFSList2.Visible := True;
+ frameFSList2.InitGrid();
+
+ frameFSList2.TbFSAdd.Visible := False;
+ frameFSList2.TbFSDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFSList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFSList2.Panel_fs, 2);
+ frameFSList2.fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFSList2.CDS_fS);
+ SInitCDSData(ADOQueryCmd, frameFSList2.CDS_fS);
+ end
+ else if self.FindComponent('frameFSList3') = nil then
+ begin
+ frameFSList3 := tframeFSList.Create(self);
+ frameFSList3.Name := 'frameFSList3';
+ frameFSList3.Parent := self.ScrollBox1;
+ frameFSList3.Top := GetNextFrameTop;
+ frameFSList3.Visible := True;
+ frameFSList3.InitGrid();
+
+ frameFSList3.TbFSAdd.Visible := False;
+ frameFSList3.TbFSDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFSList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFSList3.Panel_fs, 2);
+ frameFSList3.fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFSList3.CDS_fS);
+ SInitCDSData(ADOQueryCmd, frameFSList3.CDS_fS);
+ end
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = '' then
+ begin
+
+ if self.FindComponent('frameFPList1') = nil then
+ begin
+ frameFPList1 := TframeFPList.Create(self);
+ frameFPList1.Name := 'frameFPList1';
+ frameFPList1.Parent := self.ScrollBox1;
+ frameFPList1.Top := GetNextFrameTop;
+ frameFPList1.Visible := True;
+ frameFPList1.InitGrid();
+
+ frameFPList1.TbFPAdd.Visible := False;
+ frameFPList1.TbFPDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFPList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFPList1.Panel_fp, 2);
+ frameFPList1.fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFPList1.CDS_FP);
+ SInitCDSData(ADOQueryCmd, frameFPList1.CDS_FP);
+ end
+ else if self.FindComponent('frameFPList2') = nil then
+ begin
+ frameFPList2 := TframeFPList.Create(self);
+ frameFPList2.Name := 'frameFPList2';
+ frameFPList2.Parent := self.ScrollBox1;
+ frameFPList2.Top := GetNextFrameTop;
+ frameFPList2.Visible := True;
+ frameFPList2.InitGrid();
+
+ frameFPList2.TbFPAdd.Visible := False;
+ frameFPList2.TbFPDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFPList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFPList2.Panel_fp, 2);
+ frameFPList2.fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFPList2.CDS_FP);
+ SInitCDSData(ADOQueryCmd, frameFPList2.CDS_FP);
+ end
+ else if self.FindComponent('frameFPList3') = nil then
+ begin
+ frameFPList3 := TframeFPList.Create(self);
+ frameFPList3.Name := 'frameFPList3';
+ frameFPList3.Parent := self.ScrollBox1;
+ frameFPList3.Top := GetNextFrameTop;
+ frameFPList3.Visible := True;
+ frameFPList3.InitGrid();
+
+ frameFPList3.TbFPAdd.Visible := False;
+ frameFPList3.TbFPDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFPList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFPList3.Panel_fp, 2);
+ frameFPList3.fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFPList3.CDS_FP);
+ SInitCDSData(ADOQueryCmd, frameFPList3.CDS_FP);
+ end;
+
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ν' then
+ begin
+ if self.FindComponent('frameGJList1') = nil then
+ begin
+ frameGJList1 := TframeGJList.Create(self);
+ frameGJList1.Name := 'frameGJList1';
+ frameGJList1.Parent := self.ScrollBox1;
+ frameGJList1.Top := GetNextFrameTop;
+ frameGJList1.Visible := True;
+ frameGJList1.InitGrid();
+
+ frameGJList1.TbGJAdd.Visible := False;
+ frameGJList1.TbGJDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGJList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGJList1.Panel_gj, 2);
+ frameGJList1.gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameGJList1.CDS_GJ);
+ SInitCDSData(ADOQueryCmd, frameGJList1.CDS_GJ);
+ end
+ else if self.FindComponent('frameGJList2') = nil then
+ begin
+ frameGJList2 := TframeGJList.Create(self);
+ frameGJList2.Name := 'frameGJList2';
+ frameGJList2.Parent := self.ScrollBox1;
+ frameGJList2.Top := GetNextFrameTop;
+ frameGJList2.Visible := True;
+ frameGJList2.InitGrid();
+
+ frameGJList2.TbGJAdd.Visible := False;
+ frameGJList2.TbGJDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGJList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGJList2.Panel_gj, 2);
+ frameGJList2.gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameGJList2.CDS_GJ);
+ SInitCDSData(ADOQueryCmd, frameGJList2.CDS_GJ);
+ end
+ else if self.FindComponent('frameGJList3') = nil then
+ begin
+ frameGJList3 := TframeGJList.Create(self);
+ frameGJList3.Name := 'frameGJList3';
+ frameGJList3.Parent := self.ScrollBox1;
+ frameGJList3.Top := GetNextFrameTop;
+ frameGJList3.Visible := True;
+ frameGJList3.InitGrid();
+
+ frameGJList3.TbGJAdd.Visible := False;
+ frameGJList3.TbGJDel.Visible := False;
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGJList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGJList3.Panel_gj, 2);
+ frameGJList3.gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameGJList3.CDS_GJ);
+ SInitCDSData(ADOQueryCmd, frameGJList3.CDS_GJ);
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ë' then
+ begin
+ if self.FindComponent('frameYMList1') = nil then
+ begin
+ frameYMList1 := TframeYMList.Create(self);
+ frameYMList1.Name := 'frameYMList1';
+ frameYMList1.Parent := self.ScrollBox1;
+ frameYMList1.Top := GetNextFrameTop;
+ frameYMList1.Visible := True;
+ frameYMList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameYMList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameYMList1.Panel_zm, 2);
+ frameYMList1.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString;
+
+ end
+ else if self.FindComponent('frameYMList2') = nil then
+ begin
+ frameYMList2 := TframeYMList.Create(self);
+ frameYMList2.Name := 'frameYMList2';
+ frameYMList2.Parent := self.ScrollBox1;
+ frameYMList2.Top := GetNextFrameTop;
+ frameYMList2.Visible := True;
+ frameYMList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameYMList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameYMList2.Panel_zm, 2);
+ frameYMList2.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString;
+
+ end
+ else if self.FindComponent('frameYMList3') = nil then
+ begin
+ frameYMList3 := TframeYMList.Create(self);
+ frameYMList3.Name := 'frameYMList3';
+ frameYMList3.Parent := self.ScrollBox1;
+ frameYMList3.Top := GetNextFrameTop;
+ frameYMList3.Visible := True;
+ frameYMList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameYMList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameYMList3.Panel_zm, 2);
+ frameYMList3.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString;
+
+ end;
+ end;
+ CDS_GX.Next;
+ end;
+
+ finally
+ ADOQueryTemp.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.CloseAllFrames();
+var
+ i: Integer;
+ Component: TComponent;
+begin
+ // ر GDXList
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameGDXList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+
+ // ر FSList
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameFSList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+
+ // ر FPList
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameFPList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+
+ // ر GJList
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameGJList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameCCQXList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameRGQXList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameJGQXList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameYMList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.FormDestroy(Sender: TObject);
+begin
+ inherited;
+ frmDyeSimpleTechnicsKaiKa := nil;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+
+procedure TfrmDyeSimpleTechnicsKaiKa.FormShow(Sender: TObject);
+begin
+ inherited;
+
+ ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, 'չ');
+
+ SetStatus();
+ InitGlide();
+ TbShow.Click;
+ KeyPreview := True;
+
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.ToolButton3Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, 'չ');
+
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.TbDeleteClick(Sender: TObject);
+begin
+ if CDS_GX.IsEmpty then
+ begin
+ Exit;
+ end;
+ if (CDS_GX.FieldByName('PSID').asString = '') or (CDS_GX.FieldByName('PSID').asString = null) then
+ begin
+ CDS_GX.Delete;
+// InitGXDetails();
+ end
+ else
+ begin
+ Application.MessageBox('ѱ湤ɾ', 'ʾϢ', MB_OK);
+ end;
+ SetXH();
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.TbShowClick(Sender: TObject);
+begin
+ CloseAllFrames();
+ InitGXDetails();
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.Tv1DblClick(Sender: TObject);
+begin
+
+ with CDS_GX do
+ begin
+ Append;
+ FieldByName('PSNO').Value := CDS_GX.RecordCount + 1;
+ FieldByName('PSType').Value := CDS_PSType.fieldbyname('PSType').AsString;
+ FieldByName('PSId').Value := '';
+ post;
+ end;
+// InitGXDetails();
+
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+ CloseAllFrames();
+ SetStatus();
+ InitGlide();
+// InitGXDetails();
+// ShowMessage(CDS_2.FieldByName('DTMID').AsString);
+ if (CDS_2.FieldByName('DTMID').AsString = '') or (CDS_2.FieldByName('DTMID').AsString = null) then
+ begin
+
+ end
+ else
+ begin
+ ADOQueryCMD.DisableControls;
+ with ADOQueryCMD do
+ begin
+// Filtered := False;
+ Close;
+ SQL.Clear;
+ sql.Add(' select *,PSXH=0 from Dye_Technics where 1 = 2 ');
+ Open;
+ end;
+// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryCMD, CDS_PSType);
+ SInitCDSData(ADOQueryCMD, CDS_PSType);
+ end;
+end;
+
+
+procedure TfrmDyeSimpleTechnicsKaiKa.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
+ with frmDyeProcessDefin do
+ begin
+// FPSType := self.CDS_1.FieldByName('PSType').Value;
+// FPSID := Self.CDS_1.FieldByName('PSID').Value;
+ BtnInt := 3;//鿴
+ TbSave.visible := false;
+ TbUpFile.Visible := False;
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+
+ finally
+ frmDyeProcessDefin.Free;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.cxTabControl1Change(Sender: TObject);
+begin
+ SetStatus();
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.FormCreate(Sender: TObject);
+begin
+ inherited;
+ fmanage := Trim(DParameters1);
+
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ
+var
+ i: Integer;
+ AControl: TControl;
+ ATextEdit: TcxTextEdit;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then
+ begin
+ ATextEdit := AControl as TcxTextEdit;
+ if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then
+ ATextEdit.Text := AValue;
+ end;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsKaiKa.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+var
+ i: Integer;
+ AControl: TControl;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ // Ƿ TcxTextEdit Hint ƥ䣬ҲųĿؼ
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then
+ begin
+ TcxTextEdit(AControl).Text := ''; // ֱ
+ end;
+ end;
+end;
+
+function TfrmDyeSimpleTechnicsKaiKa.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+var
+ i, j: Integer;
+ AControl: TControl;
+ SortedControls: TList;
+ TempControl: TControl;
+begin
+ Result := '';
+
+ // ûӿؼֱӷؿ
+ if AParent.ControlCount = 0 then
+ Exit;
+
+ // ʹ TList 洢ؼݾɰ Delphi
+ SortedControls := TList.Create;
+ try
+ // ӿؼӵб
+ for i := 0 to AParent.ControlCount - 1 do
+ SortedControls.Add(AParent.Controls[i]);
+
+ // ֶ TopY꣩ LeftX꣩
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ for j := i + 1 to SortedControls.Count - 1 do
+ begin
+ // Ƚؼ Top Left
+ if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then
+ begin
+ // λ
+ TempControl := TControl(SortedControls[i]);
+ SortedControls[i] := SortedControls[j];
+ SortedControls[j] := TempControl;
+ end;
+ end;
+ end;
+ // Ŀؼ
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ AControl := TControl(SortedControls[i]);
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then
+ begin
+ Result := TcxTextEdit(AControl).Text; // һĻᱻ
+ end;
+ end;
+ finally
+ SortedControls.Free;
+ end;
+end;
+
+
+
+function TfrmDyeSimpleTechnicsKaiKa.GetNextFrameTop: Integer;
+var
+ i: Integer;
+ Ctrl: TControl;
+ MaxBottom: Integer;
+begin
+ MaxBottom := 0;
+
+ // ûκοؼ 0 ʼ
+ if ScrollBox1.ControlCount = 1 then
+ begin
+ Result := 0;
+ Exit;
+ end;
+
+ for i := 0 to ScrollBox1.ControlCount - 1 do
+ begin
+ Ctrl := ScrollBox1.Controls[i];
+ if (Ctrl is TFrame) and Ctrl.Visible then
+ begin
+ // 㵱ǰ frame ĵײλ
+ var BottomPos := Ctrl.Top + Ctrl.Height;
+ if BottomPos > MaxBottom then
+ MaxBottom := BottomPos;
+ end;
+ end;
+
+ // һЩ
+ Result := MaxBottom + 5;
+end;
+
+end.
+
diff --git a/F02染色计划单/U_DyeSimpleTechnicsList.dfm b/F02染色计划单/U_DyeSimpleTechnicsList.dfm
index 64c4f22..febcc88 100644
--- a/F02染色计划单/U_DyeSimpleTechnicsList.dfm
+++ b/F02染色计划单/U_DyeSimpleTechnicsList.dfm
@@ -4,6 +4,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
ClientHeight = 845
ClientWidth = 1540
Position = poDesigned
+ OnKeyDown = FormKeyDown
ExplicitWidth = 1556
ExplicitHeight = 884
PixelsPerInch = 96
@@ -145,7 +146,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Width = 180
Height = 20
TabOrder = 0
- OnChange = DTMNoChange
+ OnKeyPress = DTMNameKeyPress
end
object DTMNo: TEdit
Tag = 2
@@ -154,7 +155,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Width = 180
Height = 20
TabOrder = 1
- OnChange = DTMNoChange
+ OnKeyPress = DTMNoKeyPress
end
end
object cxTabControl1: TcxTabControl [3]
@@ -184,22 +185,19 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Align = alLeft
TabOrder = 3
object Splitter2: TSplitter
- Left = 577
+ Left = 617
Top = 1
+ Width = 2
Height = 744
- ExplicitLeft = 696
- ExplicitTop = 88
- ExplicitHeight = 100
+ ExplicitLeft = 700
end
object cxGrid2: TcxGrid
Left = 1
Top = 1
- Width = 576
+ Width = 616
Height = 744
Align = alLeft
TabOrder = 0
- ExplicitLeft = -1
- ExplicitTop = 6
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -289,7 +287,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
DataBinding.FieldName = 'Edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 47
+ Width = 100
end
end
object cxGridLevel1: TcxGridLevel
@@ -297,16 +295,16 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
end
end
object Panel3: TPanel
- Left = 580
+ Left = 619
Top = 1
- Width = 204
+ Width = 165
Height = 744
Align = alClient
TabOrder = 1
object cxGrid1: TcxGrid
Left = 1
Top = 1
- Width = 202
+ Width = 163
Height = 385
Align = alTop
TabOrder = 0
@@ -335,7 +333,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
object cxGrid9: TcxGrid
Left = 1
Top = 424
- Width = 202
+ Width = 163
Height = 319
Align = alClient
TabOrder = 1
@@ -379,7 +377,13 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Caption = #24037#24207'ID'
DataBinding.FieldName = 'PSID'
DataBinding.IsNullValueType = True
- Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3Page: TcxGridDBColumn
+ Caption = #39029#38754
+ DataBinding.FieldName = 'Page'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
@@ -392,7 +396,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Tag = 1
Left = 1
Top = 386
- Width = 202
+ Width = 163
Height = 38
AutoSize = True
ButtonHeight = 38
@@ -412,6 +416,14 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
ShowHint = False
OnClick = ToolButton5Click
end
+ object ToolButton6: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #26174#31034
+ ImageIndex = 8
+ OnClick = ToolButton6Click
+ end
end
end
end
@@ -422,2058 +434,6 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 746
Align = alClient
TabOrder = 4
- object Panel_GJ: TPanel
- Left = 0
- Top = 728
- Width = 731
- Height = 136
- Align = alTop
- TabOrder = 0
- object Label9: TLabel
- Left = 4
- Top = 3
- Width = 24
- Height = 12
- Caption = #21038#33014
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object cxLabel240: TcxLabel
- Left = 40
- Top = 6
- Caption = #36710#36895'(M/Min)'
- end
- object gj_speed: TcxTextEdit
- Tag = 2
- Left = 114
- Top = 6
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 1
- Width = 50
- end
- object cxLabel278: TcxLabel
- Left = 165
- Top = 6
- Caption = #21038#33014#27425#25968
- end
- object gj_number: TcxTextEdit
- Tag = 2
- Left = 217
- Top = 6
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 3
- Width = 50
- end
- object TbGJReplace2: TcxButton
- Left = 9
- Top = 29
- Width = 50
- Height = 25
- Caption = #19968#38190#26367#25442
- TabOrder = 4
- OnClick = TbGJReplace2Click
- end
- object TbGJClear2: TcxButton
- Left = 66
- Top = 29
- Width = 50
- Height = 25
- Caption = #19968#38190#28165#31354
- TabOrder = 5
- OnClick = TbGJClear2Click
- end
- object cxLabel234: TcxLabel
- Left = 68
- Top = 56
- Caption = '2#'
- end
- object cxLabel236: TcxLabel
- Left = 16
- Top = 56
- Caption = '1#'
- end
- object cxLabel237: TcxLabel
- Left = 223
- Top = 56
- Caption = '5#'
- end
- object cxLabel238: TcxLabel
- Left = 117
- Top = 94
- Caption = '9#'
- end
- object cxLabel247: TcxLabel
- Left = 275
- Top = 56
- Caption = '6#'
- end
- object cxLabel249: TcxLabel
- Left = 120
- Top = 56
- Caption = '3#'
- end
- object cxLabel250: TcxLabel
- Left = 171
- Top = 56
- Caption = '4#'
- end
- object cxLabel251: TcxLabel
- Left = 16
- Top = 94
- Caption = '7#'
- end
- object cxLabel252: TcxLabel
- Left = 66
- Top = 94
- Caption = '8#'
- end
- object cxLabel253: TcxLabel
- Left = 167
- Top = 94
- Caption = '10#'
- end
- object cxLabel273: TcxLabel
- Left = 223
- Top = 94
- Caption = '11#'
- end
- object gj_temperature1: TcxTextEdit
- Tag = 2
- Left = 4
- Top = 74
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 17
- Width = 40
- end
- object gj_temperature10: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 109
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 18
- Width = 40
- end
- object gj_temperature11: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 109
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 19
- Width = 40
- end
- object gj_temperature2: TcxTextEdit
- Tag = 2
- Left = 55
- Top = 74
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 20
- Width = 40
- end
- object gj_temperature3: TcxTextEdit
- Tag = 2
- Left = 106
- Top = 74
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 21
- Width = 40
- end
- object gj_temperature4: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 74
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 22
- Width = 40
- end
- object gj_temperature5: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 74
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 23
- Width = 40
- end
- object gj_temperature6: TcxTextEdit
- Tag = 2
- Left = 260
- Top = 74
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 24
- Width = 40
- end
- object gj_temperature7: TcxTextEdit
- Tag = 2
- Left = 4
- Top = 109
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 25
- Width = 40
- end
- object gj_temperature8: TcxTextEdit
- Tag = 2
- Left = 55
- Top = 109
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 26
- Width = 40
- end
- object gj_temperature9: TcxTextEdit
- Tag = 2
- Left = 107
- Top = 109
- Hint = #21038#33014#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 27
- Width = 40
- end
- object cxGrid8: TcxGrid
- Left = 328
- Top = 6
- Width = 200
- Height = 120
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- TabOrder = 28
- object TvGJ: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_gj
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsView.ColumnAutoWidth = True
- OptionsView.GroupByBox = False
- OptionsView.Indicator = True
- object cxGridDBColumn24: TcxGridDBColumn
- Caption = #21161#21058#32534#21495
- DataBinding.FieldName = 'gj_Name'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object cxGridDBColumn27: TcxGridDBColumn
- Caption = #27604#29575'(%)'
- DataBinding.FieldName = 'gj_rate'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.ReadOnly = False
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object TvGJserialno: TcxGridDBColumn
- Caption = #24207#21495
- DataBinding.FieldName = 'serialno'
- DataBinding.IsNullValueType = True
- Visible = False
- Width = 60
- end
- end
- object cxGridLevel7: TcxGridLevel
- GridView = TvGJ
- end
- end
- object cxLabel9: TcxLabel
- Left = 534
- Top = 53
- Caption = #22791#27880
- end
- object TbGJAdd: TcxButton
- Left = 287
- Top = 6
- Width = 40
- Height = 20
- Caption = #22686#34892
- TabOrder = 30
- OnClick = TbGJAddClick
- end
- object TbGJDel: TcxButton
- Left = 287
- Top = 37
- Width = 40
- Height = 20
- Caption = #21024#34892
- TabOrder = 31
- OnClick = TbGJDelClick
- end
- object gj_Precautions: TcxMemo
- Tag = 2
- Left = 568
- Top = 39
- Properties.Alignment = taLeftJustify
- Properties.ScrollBars = ssVertical
- TabOrder = 32
- Height = 50
- Width = 140
- end
- object cxLabel10: TcxLabel
- Left = 117
- Top = 32
- Caption = #24038#38388#38553
- end
- object gj_leftGap: TcxTextEdit
- Tag = 2
- Left = 156
- Top = 32
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 34
- Width = 40
- end
- object cxLabel11: TcxLabel
- Left = 197
- Top = 32
- Caption = #21491#38388#38553
- end
- object gj_rightGap: TcxTextEdit
- Tag = 2
- Left = 235
- Top = 32
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 36
- Width = 40
- end
- end
- object Panel_FP: TPanel
- Left = 0
- Top = 864
- Width = 731
- Height = 157
- Align = alTop
- TabOrder = 1
- object Label10: TLabel
- Left = 4
- Top = 4
- Width = 24
- Height = 12
- Caption = #21457#27873
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object cxLabel290: TcxLabel
- Left = 40
- Top = 4
- Caption = #36710#36895'(M/Min)'
- end
- object fp_speed: TcxTextEdit
- Tag = 2
- Left = 114
- Top = 4
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 1
- Width = 50
- end
- object fp_gjNumber: TcxTextEdit
- Tag = 2
- Left = 219
- Top = 4
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 2
- Width = 50
- end
- object cxLabel279: TcxLabel
- Left = 167
- Top = 4
- Caption = #21038#33014#27425#25968
- end
- object TbFPReplace2: TcxButton
- Left = 9
- Top = 30
- Width = 50
- Height = 25
- Caption = #19968#38190#26367#25442
- TabOrder = 4
- OnClick = TbFPReplace2Click
- end
- object TbFPClear2: TcxButton
- Left = 66
- Top = 30
- Width = 50
- Height = 25
- Caption = #19968#38190#28165#31354
- TabOrder = 5
- OnClick = TbFPClear2Click
- end
- object cxLabel284: TcxLabel
- Left = 68
- Top = 56
- Caption = '2#'
- end
- object cxLabel286: TcxLabel
- Left = 16
- Top = 56
- Caption = '1#'
- end
- object cxLabel287: TcxLabel
- Left = 223
- Top = 56
- Caption = '5#'
- end
- object cxLabel288: TcxLabel
- Left = 117
- Top = 91
- Caption = '9#'
- end
- object cxLabel297: TcxLabel
- Left = 275
- Top = 56
- Caption = '6#'
- end
- object cxLabel299: TcxLabel
- Left = 120
- Top = 56
- Caption = '3#'
- end
- object cxLabel300: TcxLabel
- Left = 171
- Top = 56
- Caption = '4#'
- end
- object cxLabel301: TcxLabel
- Left = 16
- Top = 91
- Caption = '7#'
- end
- object cxLabel302: TcxLabel
- Left = 66
- Top = 91
- Caption = '8#'
- end
- object cxLabel303: TcxLabel
- Left = 167
- Top = 91
- Caption = '10#'
- end
- object cxLabel323: TcxLabel
- Left = 223
- Top = 91
- Caption = '11#'
- end
- object fp_temperature1: TcxTextEdit
- Tag = 2
- Left = 4
- Top = 72
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 17
- Width = 40
- end
- object fp_temperature10: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 106
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 18
- Width = 40
- end
- object fp_temperature11: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 106
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 19
- Width = 40
- end
- object fp_temperature2: TcxTextEdit
- Tag = 2
- Left = 55
- Top = 72
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 20
- Width = 40
- end
- object fp_temperature3: TcxTextEdit
- Tag = 2
- Left = 106
- Top = 72
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 21
- Width = 40
- end
- object fp_temperature4: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 72
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 22
- Width = 40
- end
- object fp_temperature5: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 72
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 23
- Width = 40
- end
- object fp_temperature6: TcxTextEdit
- Tag = 2
- Left = 260
- Top = 72
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 24
- Width = 40
- end
- object fp_temperature7: TcxTextEdit
- Tag = 2
- Left = 4
- Top = 106
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 25
- Width = 40
- end
- object fp_temperature8: TcxTextEdit
- Tag = 2
- Left = 55
- Top = 106
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 26
- Width = 40
- end
- object fp_temperature9: TcxTextEdit
- Tag = 2
- Left = 107
- Top = 106
- Hint = #21457#27873#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 27
- Width = 40
- end
- object cxGrid6: TcxGrid
- Left = 328
- Top = 7
- Width = 200
- Height = 120
- TabOrder = 28
- object TvFP: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_FP
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsView.ColumnAutoWidth = True
- OptionsView.GroupByBox = False
- OptionsView.Indicator = True
- object cxGridDBColumn14: TcxGridDBColumn
- Caption = #21161#21058#32534#21495
- DataBinding.FieldName = 'fp_Name'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object cxGridDBColumn17: TcxGridDBColumn
- Caption = #27604#29575'(%)'
- DataBinding.FieldName = 'fp_rate'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.ReadOnly = False
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object TvFPserialno: TcxGridDBColumn
- Caption = #24207#21495
- DataBinding.FieldName = 'serialno'
- DataBinding.IsNullValueType = True
- Visible = False
- Width = 60
- end
- end
- object cxGridLevel5: TcxGridLevel
- GridView = TvFP
- end
- end
- object cxLabel8: TcxLabel
- Left = 534
- Top = 61
- Caption = #22791#27880
- end
- object TbFPAdd: TcxButton
- Left = 287
- Top = 7
- Width = 40
- Height = 20
- Caption = #22686#34892
- TabOrder = 30
- OnClick = TbFPAddClick
- end
- object TbFPDel: TcxButton
- Left = 287
- Top = 38
- Width = 40
- Height = 20
- Caption = #21024#34892
- TabOrder = 31
- OnClick = TbFPDelClick
- end
- object fp_Precautions: TcxMemo
- Tag = 2
- Left = 568
- Top = 46
- Properties.Alignment = taLeftJustify
- Properties.ScrollBars = ssVertical
- TabOrder = 32
- Height = 50
- Width = 140
- end
- object cxLabel12: TcxLabel
- Left = 117
- Top = 33
- Caption = #24038#38388#38553
- end
- object fp_leftGap: TcxTextEdit
- Tag = 2
- Left = 156
- Top = 33
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 34
- Width = 40
- end
- object cxLabel13: TcxLabel
- Left = 197
- Top = 33
- Caption = #21491#38388#38553
- end
- object fp_rightGap: TcxTextEdit
- Tag = 2
- Left = 235
- Top = 33
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 36
- Width = 40
- end
- end
- object Panel_zm: TPanel
- Left = 0
- Top = 0
- Width = 731
- Height = 61
- Align = alTop
- TabOrder = 2
- object Label2: TLabel
- Left = 4
- Top = 6
- Width = 24
- Height = 12
- Caption = #36711#27611
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object Label11: TLabel
- Left = 40
- Top = 10
- Width = 78
- Height = 12
- Caption = #36827#20986#26009'(m/min)'
- end
- object zm_inout: TcxTextEdit
- Tag = 2
- Left = 124
- Top = 7
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 0
- Width = 50
- end
- object zm_style: TcxComboBox
- Tag = 2
- Left = 4
- Top = 31
- Properties.Items.Strings = (
- ''
- #21333#25490#38024
- #21452#25490#38024)
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 1
- Width = 82
- end
- object cxLabel336: TcxLabel
- Left = 117
- Top = 31
- Caption = #20027#30005#26426'('#27425'/min)'
- end
- object zm_mainElec: TcxTextEdit
- Tag = 2
- Left = 211
- Top = 31
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 3
- Width = 50
- end
- object cxLabel344: TcxLabel
- Left = 295
- Top = 31
- Caption = #38024#26495#39640#24230'(cm)'
- end
- object zm_needleHigh: TcxTextEdit
- Tag = 2
- Left = 375
- Top = 31
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 5
- Width = 50
- end
- object cxLabel342: TcxLabel
- Left = 534
- Top = 20
- Caption = #22791#27880
- end
- object zm_Precautions: TcxMemo
- Tag = 2
- Left = 568
- Top = 5
- Properties.ScrollBars = ssVertical
- TabOrder = 7
- Height = 50
- Width = 140
- end
- end
- object Panel_ccqx: TPanel
- Left = 0
- Top = 61
- Width = 731
- Height = 132
- Align = alTop
- TabOrder = 3
- Visible = False
- object Label4: TLabel
- Left = 4
- Top = 3
- Width = 48
- Height = 12
- Caption = #38271#36710#28165#27927
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object cxLabel113: TcxLabel
- Left = 66
- Top = 9
- Caption = #36710#36895'(m/min)'
- end
- object ccqx_speed: TcxTextEdit
- Tag = 2
- Left = 141
- Top = 7
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 1
- Width = 50
- end
- object ccqx_temperature1: TcxTextEdit
- Tag = 2
- Left = 5
- Top = 74
- Hint = #38271#36710#28165#27927#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 2
- Width = 40
- end
- object ccqx_temperature2: TcxTextEdit
- Tag = 2
- Left = 56
- Top = 74
- Hint = #38271#36710#28165#27927#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 3
- Width = 40
- end
- object ccqx_temperature3: TcxTextEdit
- Tag = 2
- Left = 107
- Top = 74
- Hint = #38271#36710#28165#27927#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 4
- Width = 40
- end
- object ccqx_temperature4: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 74
- Hint = #38271#36710#28165#27927#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 5
- Width = 40
- end
- object ccqx_temperature5: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 74
- Hint = #38271#36710#28165#27927#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 6
- Width = 40
- end
- object ccqx_temperature6: TcxTextEdit
- Tag = 2
- Left = 260
- Top = 74
- Hint = #38271#36710#28165#27927#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 7
- Width = 40
- end
- object TbCCQXReplace: TcxButton
- Left = 9
- Top = 32
- Width = 50
- Height = 25
- Caption = #19968#38190#26367#25442
- TabOrder = 8
- OnClick = TbCCQXReplaceClick
- end
- object TbccqxClear: TcxButton
- Left = 66
- Top = 32
- Width = 50
- Height = 25
- Caption = #19968#38190#28165#31354
- TabOrder = 9
- OnClick = TbccqxClearClick
- end
- object cxLabel41: TcxLabel
- Left = 171
- Top = 59
- Hint = #28165#27927#27700#28201
- Caption = '4#'
- end
- object cxLabel42: TcxLabel
- Left = 68
- Top = 59
- Hint = #28165#27927#27700#28201
- Caption = '2#'
- end
- object cxLabel45: TcxLabel
- Left = 16
- Top = 59
- Caption = '1#'
- end
- object cxLabel46: TcxLabel
- Left = 120
- Top = 59
- Caption = '3#'
- end
- object cxLabel47: TcxLabel
- Left = 223
- Top = 59
- Caption = '5#'
- end
- object cxLabel48: TcxLabel
- Left = 275
- Top = 59
- Hint = #28165#27927#27700#28201
- Caption = '6#'
- end
- object cxGrid4: TcxGrid
- Left = 328
- Top = 6
- Width = 200
- Height = 120
- TabOrder = 16
- object TvCCQX: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_CCQX
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsView.ColumnAutoWidth = True
- OptionsView.GroupByBox = False
- OptionsView.Indicator = True
- object cxGridDBColumn2: TcxGridDBColumn
- Caption = #21161#21058#32534#21495
- DataBinding.FieldName = 'ccqx_Name'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object Tv1ccqx_rate: TcxGridDBColumn
- Caption = #27604#29575'(%)'
- DataBinding.FieldName = 'ccqx_rate'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.ReadOnly = False
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object TvCCQXserialno: TcxGridDBColumn
- Caption = #24207#21495
- DataBinding.FieldName = 'serialno'
- DataBinding.IsNullValueType = True
- Visible = False
- Width = 60
- end
- end
- object cxGridLevel4: TcxGridLevel
- GridView = TvCCQX
- end
- end
- object cxLabel1: TcxLabel
- Left = 534
- Top = 59
- Caption = #22791#27880
- end
- object TbCCQXAdd: TcxButton
- Left = 288
- Top = 6
- Width = 40
- Height = 20
- Caption = #22686#34892
- TabOrder = 18
- OnClick = TbCCQXAddClick
- end
- object TbCCQXDel: TcxButton
- Left = 287
- Top = 38
- Width = 40
- Height = 20
- Caption = #21024#34892
- TabOrder = 19
- OnClick = TbCCQXDelClick
- end
- object ccqx_note: TcxMemo
- Tag = 2
- Left = 568
- Top = 40
- Properties.ScrollBars = ssVertical
- TabOrder = 20
- Height = 50
- Width = 140
- end
- end
- object Panel_rgqx: TPanel
- Left = 0
- Top = 193
- Width = 731
- Height = 131
- Align = alTop
- TabOrder = 4
- object Label5: TLabel
- Left = 4
- Top = 3
- Width = 60
- Height = 12
- Caption = #21367#26579#32568#28165#27927
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object cxLabel114: TcxLabel
- Left = 8
- Top = 22
- Caption = #26579#36895'(m/min)'
- end
- object cxLabel150: TcxLabel
- Left = 8
- Top = 46
- Caption = #35774#23450#28082#28201'('#8451')'
- end
- object cxLabel165: TcxLabel
- Left = 144
- Top = 22
- Caption = #36947#25968#35774#32622
- end
- object rgqx_daoSet: TcxTextEdit
- Tag = 2
- Left = 204
- Top = 19
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 3
- Width = 58
- end
- object rgqx_speed: TcxTextEdit
- Tag = 2
- Left = 86
- Top = 19
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 4
- Width = 50
- end
- object rgqx_waterTemper: TcxTextEdit
- Tag = 2
- Left = 86
- Top = 45
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 5
- Width = 50
- end
- object cxGrid3: TcxGrid
- Left = 328
- Top = 6
- Width = 200
- Height = 120
- TabOrder = 6
- object TvRGQX: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_rgqx
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsView.ColumnAutoWidth = True
- OptionsView.GroupByBox = False
- OptionsView.Indicator = True
- object cxGridDBColumn1: TcxGridDBColumn
- Caption = #21161#21058#32534#21495
- DataBinding.FieldName = 'rgqx_Name'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object cxGridDBColumn7: TcxGridDBColumn
- Caption = #27604#29575'(%)'
- DataBinding.FieldName = 'rgqx_spel'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.ReadOnly = False
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object TvRGQXserialno: TcxGridDBColumn
- Caption = #24207#21495
- DataBinding.FieldName = 'serialno'
- DataBinding.IsNullValueType = True
- Visible = False
- Width = 60
- end
- end
- object cxGridLevel2: TcxGridLevel
- GridView = TvRGQX
- end
- end
- object cxLabel2: TcxLabel
- Left = 534
- Top = 51
- Caption = #22791#27880
- end
- object TbRGQXAdd: TcxButton
- Left = 288
- Top = 6
- Width = 40
- Height = 20
- Caption = #22686#34892
- TabOrder = 8
- OnClick = TbRGQXAddClick
- end
- object TbRGQXDel: TcxButton
- Left = 287
- Top = 38
- Width = 40
- Height = 20
- Caption = #21024#34892
- TabOrder = 9
- OnClick = TbRGQXDelClick
- end
- object rgqx_note: TcxMemo
- Tag = 2
- Left = 568
- Top = 37
- Properties.ScrollBars = ssVertical
- TabOrder = 10
- Height = 50
- Width = 140
- end
- end
- object Panel_jgqx: TPanel
- Left = 0
- Top = 324
- Width = 731
- Height = 140
- Align = alTop
- TabOrder = 5
- object Label6: TLabel
- Left = 4
- Top = 2
- Width = 48
- Height = 12
- Caption = #26426#32568#28165#27927
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object cxLabel340: TcxLabel
- Left = 8
- Top = 28
- Caption = #20445#28201#28201#24230'('#8451')'
- end
- object jgqx_keepTemper: TcxTextEdit
- Tag = 2
- Left = 90
- Top = 28
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 1
- Width = 50
- end
- object jgqx_keepTime: TcxTextEdit
- Tag = 2
- Left = 90
- Top = 51
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 2
- Width = 50
- end
- object cxLabel347: TcxLabel
- Left = 8
- Top = 51
- Caption = #20445#28201#26102#38388'(min)'
- end
- object cxLabel173: TcxLabel
- Left = 150
- Top = 28
- Caption = #21319#28201#36895#29575
- end
- object cxLabel334: TcxLabel
- Left = 150
- Top = 51
- Caption = #38477#28201#36895#29575
- end
- object jgqx_upperSpeed: TcxTextEdit
- Tag = 2
- Left = 206
- Top = 28
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 6
- Width = 50
- end
- object jgqx_downSpeed: TcxTextEdit
- Tag = 2
- Left = 206
- Top = 51
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 7
- Width = 50
- end
- object cxGrid5: TcxGrid
- Left = 334
- Top = 6
- Width = 200
- Height = 120
- TabOrder = 8
- object TvJGQX: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_jgqx
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsView.ColumnAutoWidth = True
- OptionsView.GroupByBox = False
- OptionsView.Indicator = True
- object cxGridDBColumn9: TcxGridDBColumn
- Caption = #21161#21058#32534#21495
- DataBinding.FieldName = 'jgqx_Name'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object cxGridDBColumn10: TcxGridDBColumn
- Caption = #21333#20301'(%)'
- DataBinding.FieldName = 'ccqx_unit'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Visible = False
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object cxGridDBColumn11: TcxGridDBColumn
- Caption = #29992#37327
- DataBinding.FieldName = 'ccqx_use'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Visible = False
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object cxGridDBColumn12: TcxGridDBColumn
- Caption = #27604#29575'(%)'
- DataBinding.FieldName = 'jgqx_rate'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.ReadOnly = False
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object cxGridDBColumn13: TcxGridDBColumn
- Caption = #27880#24847#20107#39033
- DataBinding.FieldName = 'ccqx_precautions'
- DataBinding.IsNullValueType = True
- Visible = False
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object TvJGQXserialno: TcxGridDBColumn
- Caption = #24207#21495
- DataBinding.FieldName = 'serialno'
- DataBinding.IsNullValueType = True
- Visible = False
- Width = 60
- end
- end
- object cxGridLevel3: TcxGridLevel
- GridView = TvJGQX
- end
- end
- object cxLabel3: TcxLabel
- Left = 534
- Top = 54
- Caption = #22791#27880
- end
- object TbJGQXAdd: TcxButton
- Left = 288
- Top = 7
- Width = 40
- Height = 20
- Caption = #22686#34892
- TabOrder = 10
- OnClick = TbJGQXAddClick
- end
- object TbJGQXDel: TcxButton
- Left = 288
- Top = 38
- Width = 40
- Height = 20
- Caption = #21024#34892
- TabOrder = 11
- OnClick = TbJGQXDelClick
- end
- object jgqx_note: TcxMemo
- Tag = 2
- Left = 568
- Top = 39
- Properties.ScrollBars = ssVertical
- TabOrder = 12
- Height = 50
- Width = 140
- end
- end
- object Panel_dx: TPanel
- Left = 0
- Top = 464
- Width = 731
- Height = 128
- Align = alTop
- TabOrder = 6
- object Label7: TLabel
- Left = 4
- Top = 3
- Width = 36
- Height = 12
- Caption = #24178#23450#22411
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object cxLabel4: TcxLabel
- Left = 57
- Top = 5
- Caption = #36710#36895'(M/Min)'
- end
- object dx_speed: TcxTextEdit
- Tag = 2
- Left = 133
- Top = 5
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 1
- Width = 50
- end
- object cxLabel21: TcxLabel
- Left = 68
- Top = 49
- Caption = '2#'
- end
- object cxLabel23: TcxLabel
- Left = 16
- Top = 49
- Caption = '1#'
- end
- object cxLabel24: TcxLabel
- Left = 223
- Top = 49
- Caption = '5#'
- end
- object cxLabel25: TcxLabel
- Left = 117
- Top = 85
- Caption = '9#'
- end
- object cxLabel6: TcxLabel
- Left = 275
- Top = 49
- Caption = '6#'
- end
- object cxLabel61: TcxLabel
- Left = 120
- Top = 49
- Caption = '3#'
- end
- object cxLabel62: TcxLabel
- Left = 171
- Top = 49
- Caption = '4#'
- end
- object cxLabel63: TcxLabel
- Left = 16
- Top = 85
- Caption = '7#'
- end
- object cxLabel64: TcxLabel
- Left = 66
- Top = 85
- Caption = '8#'
- end
- object cxLabel65: TcxLabel
- Left = 167
- Top = 85
- Caption = '10#'
- end
- object dx_temperature1: TcxTextEdit
- Tag = 2
- Left = 5
- Top = 66
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 12
- Width = 40
- end
- object dx_temperature5: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 66
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 13
- Width = 40
- end
- object dx_temperature9: TcxTextEdit
- Tag = 2
- Left = 107
- Top = 100
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 14
- Width = 40
- end
- object dx_temperature6: TcxTextEdit
- Tag = 2
- Left = 260
- Top = 66
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 15
- Width = 40
- end
- object dx_temperature3: TcxTextEdit
- Tag = 2
- Left = 107
- Top = 66
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 16
- Width = 40
- end
- object dx_temperature4: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 66
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 17
- Width = 40
- end
- object dx_temperature7: TcxTextEdit
- Tag = 2
- Left = 5
- Top = 100
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 18
- Width = 40
- end
- object dx_temperature8: TcxTextEdit
- Tag = 2
- Left = 56
- Top = 100
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 19
- Width = 40
- end
- object dx_temperature10: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 100
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 20
- Width = 40
- end
- object dx_temperature2: TcxTextEdit
- Tag = 2
- Left = 56
- Top = 66
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 21
- Width = 40
- end
- object TbDXReplace2: TcxButton
- Left = 9
- Top = 26
- Width = 50
- Height = 25
- Caption = #19968#38190#26367#25442
- TabOrder = 22
- OnClick = TbDXReplace2Click
- end
- object TbDXClear2: TcxButton
- Left = 66
- Top = 26
- Width = 50
- Height = 25
- Caption = #19968#38190#28165#31354
- TabOrder = 23
- OnClick = TbDXClear2Click
- end
- object cxLabel189: TcxLabel
- Left = 223
- Top = 85
- Caption = '11#'
- end
- object dx_temperature11: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 100
- Hint = #24178#23450#22411#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 25
- Width = 40
- end
- object cxLabel5: TcxLabel
- Left = 534
- Top = 52
- Caption = #22791#27880
- end
- object dx_Precautions: TcxMemo
- Tag = 2
- Left = 568
- Top = 39
- Properties.ScrollBars = ssVertical
- TabOrder = 27
- Height = 50
- Width = 140
- end
- end
- object Panel_FS: TPanel
- Left = 0
- Top = 592
- Width = 731
- Height = 136
- Align = alTop
- TabOrder = 7
- object Label8: TLabel
- Left = 4
- Top = 3
- Width = 48
- Height = 12
- Caption = #19979#27700#23450#22411
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuHighlight
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object cxLabel198: TcxLabel
- Left = 60
- Top = 4
- Caption = #36710#36895'(M/Min)'
- end
- object fs_speed: TcxTextEdit
- Tag = 2
- Left = 136
- Top = 4
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 1
- Width = 50
- end
- object FS_Style: TcxComboBox
- Tag = 2
- Left = 196
- Top = 4
- Properties.Items.Strings = (
- ''
- #28165#27700
- #38450#27700
- #25239#33740
- #38450#32432#35010)
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 2
- Width = 70
- end
- object fs_isVacuun: TcxComboBox
- Tag = 2
- Left = 196
- Top = 30
- Properties.Items.Strings = (
- ''
- #26159
- #21542)
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 3
- Width = 70
- end
- object TbFSReplace2: TcxButton
- Left = 9
- Top = 30
- Width = 50
- Height = 25
- Caption = #19968#38190#26367#25442
- TabOrder = 4
- OnClick = TbFSReplace2Click
- end
- object TBFScLEAR2: TcxButton
- Left = 66
- Top = 30
- Width = 50
- Height = 25
- Caption = #19968#38190#28165#31354
- TabOrder = 5
- OnClick = TBFScLEAR2Click
- end
- object cxLabel192: TcxLabel
- Left = 68
- Top = 56
- Caption = '2#'
- end
- object cxLabel194: TcxLabel
- Left = 16
- Top = 56
- Caption = '1#'
- end
- object cxLabel195: TcxLabel
- Left = 223
- Top = 56
- Caption = '5#'
- end
- object cxLabel196: TcxLabel
- Left = 117
- Top = 89
- Caption = '9#'
- end
- object cxLabel205: TcxLabel
- Left = 275
- Top = 56
- Caption = '6#'
- end
- object cxLabel207: TcxLabel
- Left = 120
- Top = 56
- Caption = '3#'
- end
- object cxLabel208: TcxLabel
- Left = 171
- Top = 56
- Caption = '4#'
- end
- object cxLabel209: TcxLabel
- Left = 16
- Top = 89
- Caption = '7#'
- end
- object cxLabel210: TcxLabel
- Left = 66
- Top = 89
- Caption = '8#'
- end
- object cxLabel211: TcxLabel
- Left = 167
- Top = 89
- Caption = '10#'
- end
- object cxLabel231: TcxLabel
- Left = 223
- Top = 89
- Caption = '11#'
- end
- object fs_temperature1: TcxTextEdit
- Tag = 2
- Left = 4
- Top = 71
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 17
- Width = 40
- end
- object fs_temperature10: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 104
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 18
- Width = 40
- end
- object fs_temperature11: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 104
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 19
- Width = 40
- end
- object fs_temperature2: TcxTextEdit
- Tag = 2
- Left = 55
- Top = 71
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 20
- Width = 40
- end
- object fs_temperature3: TcxTextEdit
- Tag = 2
- Left = 106
- Top = 71
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 21
- Width = 40
- end
- object fs_temperature4: TcxTextEdit
- Tag = 2
- Left = 158
- Top = 71
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 22
- Width = 40
- end
- object fs_temperature5: TcxTextEdit
- Tag = 2
- Left = 209
- Top = 71
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 23
- Width = 40
- end
- object fs_temperature6: TcxTextEdit
- Tag = 2
- Left = 260
- Top = 71
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 24
- Width = 40
- end
- object fs_temperature7: TcxTextEdit
- Tag = 2
- Left = 4
- Top = 104
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 25
- Width = 40
- end
- object fs_temperature8: TcxTextEdit
- Tag = 2
- Left = 55
- Top = 104
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 26
- Width = 40
- end
- object fs_temperature9: TcxTextEdit
- Tag = 2
- Left = 107
- Top = 104
- Hint = #38450#27700#28201#25511
- Style.LookAndFeel.SkinName = 'WXI'
- StyleDisabled.LookAndFeel.SkinName = 'WXI'
- StyleFocused.LookAndFeel.SkinName = 'WXI'
- StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 27
- Width = 40
- end
- object cxGrid7: TcxGrid
- Left = 328
- Top = 6
- Width = 200
- Height = 120
- TabOrder = 28
- object TvFS: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_FS
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsView.ColumnAutoWidth = True
- OptionsView.GroupByBox = False
- OptionsView.Indicator = True
- object cxGridDBColumn19: TcxGridDBColumn
- Caption = #21161#21058#32534#21495
- DataBinding.FieldName = 'fs_Name'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object cxGridDBColumn22: TcxGridDBColumn
- Caption = #27604#29575'(%)'
- DataBinding.FieldName = 'fs_rate'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.ReadOnly = False
- HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object TvFSColumn1: TcxGridDBColumn
- Caption = #24207#21495
- DataBinding.FieldName = 'serialno'
- DataBinding.IsNullValueType = True
- Visible = False
- Width = 60
- end
- end
- object cxGridLevel6: TcxGridLevel
- GridView = TvFS
- end
- end
- object cxLabel7: TcxLabel
- Left = 534
- Top = 57
- Caption = #22791#27880
- end
- object TbFSAdd: TcxButton
- Left = 287
- Top = 6
- Width = 40
- Height = 20
- Caption = #22686#34892
- TabOrder = 30
- OnClick = TbFSAddClick
- end
- object TbFSDel: TcxButton
- Left = 287
- Top = 37
- Width = 40
- Height = 20
- Caption = #21024#34892
- TabOrder = 31
- OnClick = TbFSDelClick
- end
- object fs_Precautions: TcxMemo
- Tag = 2
- Left = 568
- Top = 42
- Properties.Alignment = taLeftJustify
- Properties.ScrollBars = ssVertical
- TabOrder = 32
- Height = 50
- Width = 140
- end
- end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink
@@ -2506,6 +466,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Top = 145
end
object GPM_2: TcxGridPopupMenu
+ Grid = cxGrid2
PopupMenus = <>
Left = 447
Top = 361
@@ -2540,9 +501,10 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Top = 3
end
object GPM_1: TcxGridPopupMenu
+ Grid = cxGrid1
PopupMenus = <>
- Left = 932
- Top = 51
+ Left = 468
+ Top = 227
end
object CDS_GX: TClientDataSet
Aggregates = <>
@@ -2555,68 +517,10 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Left = 740
Top = 564
end
- object CDS_CCQX: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 1172
- end
- object DS_CCQX: TDataSource
- DataSet = CDS_CCQX
- Left = 1172
- Top = 48
- end
- object CDS_RGQX: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 1228
- Top = 4
- end
- object DS_rgqx: TDataSource
- DataSet = CDS_RGQX
- Left = 1228
- Top = 52
- end
- object CDS_JGQX: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 1300
- Top = 7
- end
- object CDS_fS: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 1364
- Top = 3
- end
- object CDS_gj: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 1428
- end
- object CDS_FP: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 1488
- Top = 6
- end
- object DS_jgqx: TDataSource
- DataSet = CDS_JGQX
- Left = 1296
- Top = 54
- end
- object DS_FS: TDataSource
- DataSet = CDS_fS
- Left = 1360
- Top = 62
- end
- object DS_gj: TDataSource
- DataSet = CDS_gj
- Left = 1424
- Top = 62
- end
- object DS_FP: TDataSource
- DataSet = CDS_gj
- Left = 1496
- Top = 54
+ object GPM_3: TcxGridPopupMenu
+ Grid = cxGrid9
+ PopupMenus = <>
+ Left = 495
+ Top = 321
end
end
diff --git a/F02染色计划单/U_DyeSimpleTechnicsList.pas b/F02染色计划单/U_DyeSimpleTechnicsList.pas
index 18b1eca..6bbda49 100644
--- a/F02染色计划单/U_DyeSimpleTechnicsList.pas
+++ b/F02染色计划单/U_DyeSimpleTechnicsList.pas
@@ -15,7 +15,10 @@ uses
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, Menus, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, dxScrollbarAnnotations, cxContainer, cxDropDownEdit, cxLabel,
- cxButtons, cxMemo;
+ cxButtons, cxMemo, U_frameFPList, U_frameGJList, U_frameGDXList, U_frameFSList,
+ U_frameCCQXList, U_frameJGQXList, U_frameRGQXList, U_frameYMList;
+
+ //U_frameJGQXList, U_frameRGQXList, U_frameCCQXList, U_frameYMList
type
TfrmDyeSimpleTechnicsList = class(TfrmBaseList)
@@ -56,210 +59,6 @@ type
cxGridLevel1: TcxGridLevel;
Splitter1: TSplitter;
ScrollBox1: TScrollBox;
- Panel_GJ: TPanel;
- Label9: TLabel;
- cxLabel240: TcxLabel;
- gj_speed: TcxTextEdit;
- cxLabel278: TcxLabel;
- gj_number: TcxTextEdit;
- TbGJReplace2: TcxButton;
- TbGJClear2: TcxButton;
- cxLabel234: TcxLabel;
- cxLabel236: TcxLabel;
- cxLabel237: TcxLabel;
- cxLabel238: TcxLabel;
- cxLabel247: TcxLabel;
- cxLabel249: TcxLabel;
- cxLabel250: TcxLabel;
- cxLabel251: TcxLabel;
- cxLabel252: TcxLabel;
- cxLabel253: TcxLabel;
- cxLabel273: TcxLabel;
- gj_temperature1: TcxTextEdit;
- gj_temperature10: TcxTextEdit;
- gj_temperature11: TcxTextEdit;
- gj_temperature2: TcxTextEdit;
- gj_temperature3: TcxTextEdit;
- gj_temperature4: TcxTextEdit;
- gj_temperature5: TcxTextEdit;
- gj_temperature6: TcxTextEdit;
- gj_temperature7: TcxTextEdit;
- gj_temperature8: TcxTextEdit;
- gj_temperature9: TcxTextEdit;
- cxGrid8: TcxGrid;
- TvGJ: TcxGridDBTableView;
- cxGridDBColumn24: TcxGridDBColumn;
- cxGridDBColumn27: TcxGridDBColumn;
- cxGridLevel7: TcxGridLevel;
- cxLabel9: TcxLabel;
- Panel_FP: TPanel;
- Label10: TLabel;
- cxLabel290: TcxLabel;
- fp_speed: TcxTextEdit;
- fp_gjNumber: TcxTextEdit;
- cxLabel279: TcxLabel;
- TbFPReplace2: TcxButton;
- TbFPClear2: TcxButton;
- cxLabel284: TcxLabel;
- cxLabel286: TcxLabel;
- cxLabel287: TcxLabel;
- cxLabel288: TcxLabel;
- cxLabel297: TcxLabel;
- cxLabel299: TcxLabel;
- cxLabel300: TcxLabel;
- cxLabel301: TcxLabel;
- cxLabel302: TcxLabel;
- cxLabel303: TcxLabel;
- cxLabel323: TcxLabel;
- fp_temperature1: TcxTextEdit;
- fp_temperature10: TcxTextEdit;
- fp_temperature11: TcxTextEdit;
- fp_temperature2: TcxTextEdit;
- fp_temperature3: TcxTextEdit;
- fp_temperature4: TcxTextEdit;
- fp_temperature5: TcxTextEdit;
- fp_temperature6: TcxTextEdit;
- fp_temperature7: TcxTextEdit;
- fp_temperature8: TcxTextEdit;
- fp_temperature9: TcxTextEdit;
- cxGrid6: TcxGrid;
- TvFP: TcxGridDBTableView;
- cxGridDBColumn14: TcxGridDBColumn;
- cxGridDBColumn17: TcxGridDBColumn;
- cxGridLevel5: TcxGridLevel;
- cxLabel8: TcxLabel;
- Panel_zm: TPanel;
- Label2: TLabel;
- Label11: TLabel;
- zm_inout: TcxTextEdit;
- zm_style: TcxComboBox;
- cxLabel336: TcxLabel;
- zm_mainElec: TcxTextEdit;
- cxLabel344: TcxLabel;
- zm_needleHigh: TcxTextEdit;
- cxLabel342: TcxLabel;
- Panel_ccqx: TPanel;
- Label4: TLabel;
- cxLabel113: TcxLabel;
- ccqx_speed: TcxTextEdit;
- ccqx_temperature1: TcxTextEdit;
- ccqx_temperature2: TcxTextEdit;
- ccqx_temperature3: TcxTextEdit;
- ccqx_temperature4: TcxTextEdit;
- ccqx_temperature5: TcxTextEdit;
- ccqx_temperature6: TcxTextEdit;
- TbCCQXReplace: TcxButton;
- TbccqxClear: TcxButton;
- cxLabel41: TcxLabel;
- cxLabel42: TcxLabel;
- cxLabel45: TcxLabel;
- cxLabel46: TcxLabel;
- cxLabel47: TcxLabel;
- cxLabel48: TcxLabel;
- cxGrid4: TcxGrid;
- TvCCQX: TcxGridDBTableView;
- cxGridDBColumn2: TcxGridDBColumn;
- Tv1ccqx_rate: TcxGridDBColumn;
- cxGridLevel4: TcxGridLevel;
- cxLabel1: TcxLabel;
- Panel_rgqx: TPanel;
- Label5: TLabel;
- cxLabel114: TcxLabel;
- cxLabel150: TcxLabel;
- cxLabel165: TcxLabel;
- rgqx_daoSet: TcxTextEdit;
- rgqx_speed: TcxTextEdit;
- rgqx_waterTemper: TcxTextEdit;
- cxGrid3: TcxGrid;
- TvRGQX: TcxGridDBTableView;
- cxGridDBColumn1: TcxGridDBColumn;
- cxGridDBColumn7: TcxGridDBColumn;
- cxGridLevel2: TcxGridLevel;
- cxLabel2: TcxLabel;
- Panel_jgqx: TPanel;
- Label6: TLabel;
- cxLabel340: TcxLabel;
- jgqx_keepTemper: TcxTextEdit;
- jgqx_keepTime: TcxTextEdit;
- cxLabel347: TcxLabel;
- cxLabel173: TcxLabel;
- cxLabel334: TcxLabel;
- jgqx_upperSpeed: TcxTextEdit;
- jgqx_downSpeed: TcxTextEdit;
- cxGrid5: TcxGrid;
- TvJGQX: TcxGridDBTableView;
- cxGridDBColumn9: TcxGridDBColumn;
- cxGridDBColumn10: TcxGridDBColumn;
- cxGridDBColumn11: TcxGridDBColumn;
- cxGridDBColumn12: TcxGridDBColumn;
- cxGridDBColumn13: TcxGridDBColumn;
- cxGridLevel3: TcxGridLevel;
- cxLabel3: TcxLabel;
- Panel_dx: TPanel;
- Label7: TLabel;
- cxLabel4: TcxLabel;
- dx_speed: TcxTextEdit;
- cxLabel21: TcxLabel;
- cxLabel23: TcxLabel;
- cxLabel24: TcxLabel;
- cxLabel25: TcxLabel;
- cxLabel6: TcxLabel;
- cxLabel61: TcxLabel;
- cxLabel62: TcxLabel;
- cxLabel63: TcxLabel;
- cxLabel64: TcxLabel;
- cxLabel65: TcxLabel;
- dx_temperature1: TcxTextEdit;
- dx_temperature5: TcxTextEdit;
- dx_temperature9: TcxTextEdit;
- dx_temperature6: TcxTextEdit;
- dx_temperature3: TcxTextEdit;
- dx_temperature4: TcxTextEdit;
- dx_temperature7: TcxTextEdit;
- dx_temperature8: TcxTextEdit;
- dx_temperature10: TcxTextEdit;
- dx_temperature2: TcxTextEdit;
- TbDXReplace2: TcxButton;
- TbDXClear2: TcxButton;
- cxLabel189: TcxLabel;
- dx_temperature11: TcxTextEdit;
- cxLabel5: TcxLabel;
- Panel_FS: TPanel;
- Label8: TLabel;
- cxLabel198: TcxLabel;
- fs_speed: TcxTextEdit;
- FS_Style: TcxComboBox;
- fs_isVacuun: TcxComboBox;
- TbFSReplace2: TcxButton;
- TBFScLEAR2: TcxButton;
- cxLabel192: TcxLabel;
- cxLabel194: TcxLabel;
- cxLabel195: TcxLabel;
- cxLabel196: TcxLabel;
- cxLabel205: TcxLabel;
- cxLabel207: TcxLabel;
- cxLabel208: TcxLabel;
- cxLabel209: TcxLabel;
- cxLabel210: TcxLabel;
- cxLabel211: TcxLabel;
- cxLabel231: TcxLabel;
- fs_temperature1: TcxTextEdit;
- fs_temperature10: TcxTextEdit;
- fs_temperature11: TcxTextEdit;
- fs_temperature2: TcxTextEdit;
- fs_temperature3: TcxTextEdit;
- fs_temperature4: TcxTextEdit;
- fs_temperature5: TcxTextEdit;
- fs_temperature6: TcxTextEdit;
- fs_temperature7: TcxTextEdit;
- fs_temperature8: TcxTextEdit;
- fs_temperature9: TcxTextEdit;
- cxGrid7: TcxGrid;
- TvFS: TcxGridDBTableView;
- cxGridDBColumn19: TcxGridDBColumn;
- cxGridDBColumn22: TcxGridDBColumn;
- cxGridLevel6: TcxGridLevel;
- cxLabel7: TcxLabel;
Splitter2: TSplitter;
Panel3: TPanel;
cxGrid1: TcxGrid;
@@ -268,18 +67,6 @@ type
cxGrid9: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridLevel8: TcxGridLevel;
- TbJGQXAdd: TcxButton;
- TbJGQXDel: TcxButton;
- TbRGQXAdd: TcxButton;
- TbRGQXDel: TcxButton;
- TbCCQXAdd: TcxButton;
- TbCCQXDel: TcxButton;
- TbGJAdd: TcxButton;
- TbGJDel: TcxButton;
- TbFPAdd: TcxButton;
- TbFPDel: TcxButton;
- TbFSAdd: TcxButton;
- TbFSDel: TcxButton;
Tv1PSType: TcxGridDBColumn;
CDS_GX: TClientDataSet;
DS_GX: TDataSource;
@@ -287,45 +74,14 @@ type
Tv3PSType: TcxGridDBColumn;
Tv3PSName: TcxGridDBColumn;
Tv3PSID: TcxGridDBColumn;
- CDS_CCQX: TClientDataSet;
- DS_CCQX: TDataSource;
- CDS_RGQX: TClientDataSet;
- DS_rgqx: TDataSource;
- CDS_JGQX: TClientDataSet;
- CDS_fS: TClientDataSet;
- CDS_gj: TClientDataSet;
- CDS_FP: TClientDataSet;
- DS_jgqx: TDataSource;
- DS_FS: TDataSource;
- DS_gj: TDataSource;
- DS_FP: TDataSource;
- zm_Precautions: TcxMemo;
- ccqx_note: TcxMemo;
- rgqx_note: TcxMemo;
- jgqx_note: TcxMemo;
- dx_Precautions: TcxMemo;
- fs_Precautions: TcxMemo;
- gj_Precautions: TcxMemo;
- fp_Precautions: TcxMemo;
Tv2DTMID: TcxGridDBColumn;
- cxLabel10: TcxLabel;
- gj_leftGap: TcxTextEdit;
- cxLabel11: TcxLabel;
- gj_rightGap: TcxTextEdit;
- cxLabel12: TcxLabel;
- fp_leftGap: TcxTextEdit;
- cxLabel13: TcxLabel;
- fp_rightGap: TcxTextEdit;
- TvCCQXserialno: TcxGridDBColumn;
- TvRGQXserialno: TcxGridDBColumn;
- TvJGQXserialno: TcxGridDBColumn;
- TvFSColumn1: TcxGridDBColumn;
- TvGJserialno: TcxGridDBColumn;
- TvFPserialno: TcxGridDBColumn;
ToolBar2: TToolBar;
ToolButton5: TToolButton;
Tv2Editer: TcxGridDBColumn;
Tv2Edittime: TcxGridDBColumn;
+ ToolButton6: TToolButton;
+ Tv3Page: TcxGridDBColumn;
+ GPM_3: TcxGridPopupMenu;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -346,29 +102,12 @@ type
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
procedure Tv1DblClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
- procedure TbCCQXAddClick(Sender: TObject);
- procedure TbRGQXAddClick(Sender: TObject);
- procedure TbJGQXAddClick(Sender: TObject);
- procedure TbFSAddClick(Sender: TObject);
- procedure TbGJAddClick(Sender: TObject);
- procedure TbFPAddClick(Sender: TObject);
- procedure TbCCQXDelClick(Sender: TObject);
- procedure TbFPDelClick(Sender: TObject);
- procedure TbGJDelClick(Sender: TObject);
- procedure TbFSDelClick(Sender: TObject);
- procedure TbJGQXDelClick(Sender: TObject);
- procedure TbRGQXDelClick(Sender: TObject);
- procedure TbCCQXReplaceClick(Sender: TObject);
- procedure TbDXReplace2Click(Sender: TObject);
- procedure TbFSReplace2Click(Sender: TObject);
- procedure TbGJReplace2Click(Sender: TObject);
- procedure TbFPReplace2Click(Sender: TObject);
- procedure TbccqxClearClick(Sender: TObject);
- procedure TbDXClear2Click(Sender: TObject);
- procedure TBFScLEAR2Click(Sender: TObject);
- procedure TbGJClear2Click(Sender: TObject);
- procedure TbFPClear2Click(Sender: TObject);
+
procedure ToolButton5Click(Sender: TObject);
+ procedure ToolButton6Click(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+ procedure DTMNameKeyPress(Sender: TObject; var Key: Char);
+ procedure DTMNoKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
@@ -378,10 +117,15 @@ type
procedure InitPSTypeGrid();
procedure InitGlide();
procedure InitGXDetails();
+ procedure CloseAllFrames();
function SaveData(): Boolean;
+
+ function GetNextFrameTop: Integer;
+// function SaveData(): Boolean;
procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+ procedure SetXH();
public
fPSIDList: string;
fmanage: string;
@@ -389,6 +133,14 @@ type
var
frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList;
+ frameFPList1, frameFPList2, frameFPList3: tframeFPList;
+ frameGJList1, frameGJList2, frameGJList3: tframeGJList;
+ frameFSList1, frameFSList2, frameFSList3: tframeFSList;
+ frameGDXList1, frameGDXList2, frameGDXList3: TframeGDXList;
+ frameJGQXList1, frameJGQXList2, frameJGQXList3: TframeJGQXList;
+ frameRGQXList1, frameRGQXList2, frameRGQXList3: TframeRGQXList;
+ frameCCQXList1, frameCCQXList2, frameCCQXList3: TframeCCQXList;
+ frameYMList1, frameYMList2, frameYMList3: TframeYMList;
implementation
@@ -397,6 +149,47 @@ uses
{$R *.dfm}
+procedure TfrmDyeSimpleTechnicsList.SetXH();
+var
+ i: Integer;
+begin
+ with CDS_GX do
+ begin
+ First;
+ i := 1;
+ while not Eof do
+ begin
+ with CDS_GX do
+ begin
+ Edit;
+ FieldByName('XHNoTemp').Value := i;
+ Post;
+ end;
+ i := i + 1;
+ Next;
+ end;
+ end;
+
+ with CDS_GX do
+ begin
+ CDS_GX.IndexFieldNames := '';
+ First;
+ i := 1;
+ while not Eof do
+ begin
+ with CDS_GX do
+ begin
+ Edit;
+ FieldByName('PSNO').Value := FieldByName('XHNoTemp').AsInteger;
+ Post;
+ end;
+ i := i + 1;
+ Next;
+ end;
+ CDS_GX.IndexFieldNames := 'PSNO';
+ end;
+end;
+
procedure TfrmDyeSimpleTechnicsList.SetStatus();
var
i: integer;
@@ -406,14 +199,14 @@ begin
TNochk.Visible := false;
TBDel.Visible := false;
- Panel_zm.Visible := False;
- Panel_ccqx.Visible := False;
- Panel_rgqx.Visible := False;
- Panel_jgqx.Visible := False;
- Panel_dx.Visible := False;
- Panel_FS.Visible := False;
- Panel_GJ.Visible := False;
- Panel_FP.Visible := False;
+// Panel_zm.Visible := False;
+// Panel_ccqx.Visible := False;
+// Panel_rgqx.Visible := False;
+// Panel_jgqx.Visible := False;
+// Panel_dx.Visible := False;
+// Panel_FS.Visible := False;
+// Panel_GJ.Visible := False;
+// Panel_FP.Visible := False;
// for i := 0 to tv2.ColumnCount - 1 do
// begin
@@ -439,6 +232,7 @@ procedure TfrmDyeSimpleTechnicsList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
+
with ADOQueryMain do
begin
Close;
@@ -462,559 +256,6 @@ begin
end;
end;
-procedure TfrmDyeSimpleTechnicsList.InitPSTypeGrid();
-begin
- try
- ADOQueryCMD.DisableControls;
- with ADOQueryCMD do
- begin
-// Filtered := False;
- Close;
- SQL.Clear;
- sql.Add(' select *,PSXH=0 from Dye_Technics ');
- Open;
- end;
-// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryCMD, CDS_PSType);
- SInitCDSData(ADOQueryCMD, CDS_PSType);
- finally
- ADOQueryCMD.EnableControls;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.InitGlide();
-begin
- try
- ADOQueryTemp.DisableControls;
- with ADOQueryTemp do
- begin
- Close;
- SQL.Clear;
- sql.Add(' select A.* FROM V_Dye_Technics_Details A');
- sql.Add(' Where A.DTMID=''' + trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
- SQL.Add(' ORDER BY A.PSNO');
- Open;
- end;
- SCreateCDS(ADOQueryTemp, CDS_GX);
- SInitCDSData(ADOQueryTemp, CDS_GX);
- finally
- ADOQueryTemp.EnableControls;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.InitGXDetails();
-begin
- try
- ADOQueryTemp.DisableControls;
- CDS_GX.First;
- while not CDS_GX.eof do
- begin
-
- with ADOQueryTemp do
- begin
- Close;
- SQL.Clear;
- sql.Add(' select A.* FROM V_Dye_Technics_Details A');
- sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + '''');
-// SQL.Add(' and A.PSID = ''' + trim(CDS_2.fieldbyname('PSID').AsString) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add(' select A.* FROM BS_Cloth_GY_Sub A');
- sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + '''');
-// SQL.Add(' and A.PSID = ''' + trim(CDS_2.fieldbyname('PSID').AsString) + '''');
- Open;
- end;
-// ShowMessage(IntToStr(ADOQueryCmd.RecordCount));
-
- if CDS_GX.FieldByName('PSType').AsString = 'ϴ' then
- begin
- Panel_ccqx.Visible := True;
- SCSHData(ADOQueryTemp, Panel_ccqx, 2);
- ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString;
-
- SCreateCDS(ADOQueryCmd, CDS_CCQX);
- SInitCDSData(ADOQueryCmd, CDS_CCQX);
-
- end
- else if CDS_GX.FieldByName('PSType').AsString = 'Ⱦϴ' then
- begin
- Panel_rgqx.Visible := True;
- SCSHData(ADOQueryTemp, Panel_rgqx, 2);
- rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString;
-
- SCreateCDS(ADOQueryCmd, CDS_rgQX);
- SInitCDSData(ADOQueryCmd, CDS_RGQX);
- end
- else if CDS_GX.FieldByName('PSType').AsString = 'ϴ' then
- begin
- Panel_jgqx.Visible := True;
- SCSHData(ADOQueryTemp, Panel_jgqx, 2);
- jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString;
-
- SCreateCDS(ADOQueryCmd, CDS_JGQX);
- SInitCDSData(ADOQueryCmd, CDS_JGQX);
- end
- else if CDS_GX.FieldByName('PSType').AsString = 'ɶ' then
- begin
- Panel_dx.Visible := True;
- SCSHData(ADOQueryTemp, Panel_dx, 2);
- dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString;
- end
- else if CDS_GX.FieldByName('PSType').AsString = 'ˮ' then
- begin
- Panel_fs.Visible := True;
- SCSHData(ADOQueryTemp, Panel_fs, 2);
- fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString;
-
- SCreateCDS(ADOQueryCmd, CDS_fS);
- SInitCDSData(ADOQueryCmd, CDS_fS);
- end
- else if CDS_GX.FieldByName('PSType').AsString = '' then
- begin
- Panel_fp.Visible := True;
- SCSHData(ADOQueryTemp, Panel_fp, 2);
- fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString;
-
- SCreateCDS(ADOQueryCmd, CDS_FP);
- SInitCDSData(ADOQueryCmd, CDS_FP);
-
- end
- else if CDS_GX.FieldByName('PSType').AsString = 'ν' then
- begin
- Panel_gj.Visible := True;
- SCSHData(ADOQueryTemp, Panel_gj, 2);
- gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString;
-
- SCreateCDS(ADOQueryCmd, CDS_GJ);
- SInitCDSData(ADOQueryCmd, CDS_GJ);
- end
- else if CDS_GX.FieldByName('PSType').AsString = 'ë' then
- begin
- Panel_zm.Visible := True;
- SCSHData(ADOQueryTemp, Panel_zm, 2);
- zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString;
- end;
- CDS_GX.Next;
- end;
-
- finally
- ADOQueryTemp.EnableControls;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.FormDestroy(Sender: TObject);
-begin
- inherited;
- frmDyeSimpleTechnicsList := nil;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
- inherited;
- Action := caFree;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TBCloseClick(Sender: TObject);
-begin
-
- Close;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TBDelClick(Sender: TObject);
-begin
- if CDS_2.IsEmpty then
- Exit;
- if CDS_2.Locate('ssel', true, []) = false then
- begin
- Application.MessageBox('ûѡ!', 'ʾ', 0);
- Exit;
- end;
-
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
- Exit;
- try
- ADOQueryCmd.Connection.BeginTrans;
- with CDS_2 do
- begin
- DisableControls;
- First;
- while not eof do
- begin
- if Fieldbyname('ssel').AsBoolean then
- begin
- with ADOQueryCmd do
- begin
- close;
- sql.Clear;
- sql.Add('delete Dye_Technics_Main where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
- sql.Add('delete Dye_Technics_Sub where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
-
- execsql;
- end;
-// CDS_1.First;
-// while not CDS_1.Eof do
-// begin
-// with ADOQueryCmd do
-// begin
-// close;
-// sql.Clear;
-// sql.Add('delete Dye_Process where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
-// sql.Add('delete BS_Cloth_GY_Sub where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
-// sql.Add('delete BS_Cloth_GY_Main where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
-//
-// execsql;
-// end;
-// CDS_1.Next;
-// end;
- end;
- next;
- end;
- First;
- EnableControls;
- end;
- InitGrid();
- ADOQueryCmd.Connection.CommitTrans;
- except
- ADOQueryCmd.Connection.RollbackTrans;
- application.MessageBox('ʧܣ', 'ʾϢ', 0);
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbDXClear2Click(Sender: TObject);
-begin
- ClearAllTextEditsByHint(panel_DX, 'ɶ¿');
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbDXReplace2Click(Sender: TObject);
-begin
- FillAllTextEditsWithValue(panel_dx, 'ɶ¿', FindLastEditedTextEdit(panel_dx, 'ɶ¿'));
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbFPAddClick(Sender: TObject);
-begin
- with CDS_FP do
- begin
- Append;
- CDS_FP.FieldByName('serialno').Value := CDS_FP.RecordCount + 1;
- Post;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbFPClear2Click(Sender: TObject);
-begin
- ClearAllTextEditsByHint(panel_Fp, '¿');
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbFPDelClick(Sender: TObject);
-var
- i: Integer;
-begin
- if not CDS_FP.IsEmpty then
- begin
-
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
- begin
- if Trim(CDS_FP.fieldbyname('BCPID').AsString) <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_FP.fieldbyname('BCPID').AsString)));
- ExecSQL;
- end;
- end;
- CDS_FP.Delete;
- end
- else
- exit;
-
- i := 0;
- CDS_FP.First;
- while not CDS_FP.Eof do
- begin
- i := i + 1;
- CDS_FP.Edit;
- CDS_FP.fieldByName('serialno').value := i;
- CDS_FP.Post;
- CDS_FP.Next;
- end;
- end
- else
- begin
- Application.MessageBox('ɾ!', 'ʾ', 0);
- Exit;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbFPReplace2Click(Sender: TObject);
-begin
- FillAllTextEditsWithValue(panel_fp, '¿', FindLastEditedTextEdit(panel_fp, '¿'));
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbFSAddClick(Sender: TObject);
-begin
- with CDS_FS do
- begin
- Append;
- CDS_FS.FieldByName('serialno').Value := CDS_FS.RecordCount + 1;
- Post;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TBFScLEAR2Click(Sender: TObject);
-begin
- ClearAllTextEditsByHint(panel_FS, 'ˮ¿');
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbFSDelClick(Sender: TObject);
-var
- i: Integer;
-begin
- if not CDS_FS.IsEmpty then
- begin
-
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
- begin
- if Trim(CDS_FS.fieldbyname('BCPID').AsString) <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_FS.fieldbyname('BCPID').AsString)));
- ExecSQL;
- end;
- end;
- CDS_FS.Delete;
- end
- else
- exit;
-
- i := 0;
- CDS_FS.First;
- while not CDS_FS.Eof do
- begin
- i := i + 1;
- CDS_FS.Edit;
- CDS_FS.fieldByName('serialno').value := i;
- CDS_FS.Post;
- CDS_FS.Next;
- end;
- end
- else
- begin
- Application.MessageBox('ɾ!', 'ʾ', 0);
- Exit;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbFSReplace2Click(Sender: TObject);
-begin
- FillAllTextEditsWithValue(panel_fs, 'ˮ¿', FindLastEditedTextEdit(panel_fs, 'ˮ¿'));
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbGJAddClick(Sender: TObject);
-begin
- with CDS_GJ do
- begin
- Append;
- CDS_GJ.FieldByName('serialno').Value := CDS_GJ.RecordCount + 1;
- Post;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbGJClear2Click(Sender: TObject);
-begin
- ClearAllTextEditsByHint(panel_gj, 'ν¿');
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbGJDelClick(Sender: TObject);
-var
- i: Integer;
-begin
- if not CDS_GJ.IsEmpty then
- begin
-
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
- begin
- if Trim(CDS_GJ.fieldbyname('BCPID').AsString) <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_GJ.fieldbyname('BCPID').AsString)));
- ExecSQL;
- end;
- end;
- CDS_GJ.Delete;
- end
- else
- exit;
-
- i := 0;
- CDS_GJ.First;
- while not CDS_GJ.Eof do
- begin
- i := i + 1;
- CDS_GJ.Edit;
- CDS_GJ.fieldByName('serialno').value := i;
- CDS_GJ.Post;
- CDS_GJ.Next;
- end;
- end
- else
- begin
- Application.MessageBox('ɾ!', 'ʾ', 0);
- Exit;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbGJReplace2Click(Sender: TObject);
-begin
- FillAllTextEditsWithValue(panel_gj, 'ν¿', FindLastEditedTextEdit(panel_gj, 'ν¿'));
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbJGQXAddClick(Sender: TObject);
-begin
- with CDS_JGQX do
- begin
- Append;
- CDS_JGQX.FieldByName('serialno').Value := CDS_JGQX.RecordCount + 1;
- Post;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbJGQXDelClick(Sender: TObject);
-var
- i: Integer;
-begin
- if not CDS_JGQX.IsEmpty then
- begin
-
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
- begin
- if Trim(CDS_JGQX.fieldbyname('BCPID').AsString) <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_JGQX.fieldbyname('BCPID').AsString)));
- ExecSQL;
- end;
- end;
- CDS_JGQX.Delete;
- end
- else
- exit;
-
- i := 0;
- CDS_JGQX.First;
- while not CDS_JGQX.Eof do
- begin
- i := i + 1;
- CDS_JGQX.Edit;
- CDS_JGQX.fieldByName('serialno').value := i;
- CDS_JGQX.Post;
- CDS_JGQX.Next;
- end;
- end
- else
- begin
- Application.MessageBox('ɾ!', 'ʾ', 0);
- Exit;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.FormShow(Sender: TObject);
-begin
- inherited;
- ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'չ');
- ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'չ');
- ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, 'չ');
- ReadCxGrid(trim(self.Caption) + 'TvCCQX', TvCCQX, 'չ');
- ReadCxGrid(trim(self.Caption) + 'TvRGQX', TvRGQX, 'չ');
- ReadCxGrid(trim(self.Caption) + 'TvJGQX', TvJGQX, 'չ');
- ReadCxGrid(trim(self.Caption) + 'TvFS', TvFS, 'չ');
- ReadCxGrid(trim(self.Caption) + 'TvGJ', TvGJ, 'չ');
- ReadCxGrid(trim(self.Caption) + 'TvFP', TvFP, 'չ');
- SetStatus();
- InitGrid();
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TBRafreshClick(Sender: TObject);
-begin
- InitGrid();
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbSaveClick(Sender: TObject);
-begin
- if SaveData() then
- begin
- Application.MessageBox('ɹ', 'ʾ', 0);
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.ToolButton1Click(Sender: TObject);
-begin
- CDS_2.Append;
- tv2.Columns[1].Options.Editing := true;
- tv2.Columns[2].Options.Editing := true;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.ToolButton2Click(Sender: TObject);
-begin
- if ADOQueryMain.Active then
- begin
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryMain, CDS_2);
- SInitCDSData(ADOQueryMain, CDS_2);
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.ToolButton3Click(Sender: TObject);
-begin
- WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'չ');
- WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'չ');
- WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, 'չ');
- WriteCxGrid(trim(self.Caption) + 'TvCCQX', TvCCQX, 'չ');
- WriteCxGrid(trim(self.Caption) + 'TvRGQX', TvRGQX, 'չ');
- WriteCxGrid(trim(self.Caption) + 'TvJGQX', TvJGQX, 'չ');
- WriteCxGrid(trim(self.Caption) + 'TvFS', TvFS, 'չ');
- WriteCxGrid(trim(self.Caption) + 'TvGJ', TvGJ, 'չ');
- WriteCxGrid(trim(self.Caption) + 'TvFP', TvFP, 'չ');
-end;
-
-procedure TfrmDyeSimpleTechnicsList.ToolButton4Click(Sender: TObject);
-begin
- InitPSTypeGrid();
- tv2.Columns[1].Options.Editing := true;
- tv2.Columns[2].Options.Editing := true;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.ToolButton5Click(Sender: TObject);
-begin
- if CDS_GX.IsEmpty then
- begin
- Exit;
- end;
- if (CDS_GX.FieldByName('PSID').asString = '') or (CDS_GX.FieldByName('PSID').asString = null) then
- begin
- CDS_GX.Delete;
- InitGXDetails();
- end
- else
- begin
- Application.MessageBox('ѱ湤ɾ','ʾϢ',MB_OK);
- end;
-end;
-
function TfrmDyeSimpleTechnicsList.SaveData(): Boolean;
var
MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
@@ -1091,391 +332,130 @@ begin
end;
///////////////////Dye_process////////////////////////////
-
-
-
-
-
-
-//////////////// //////////////////////
- with ADOQueryCmd do
+ if mPSType = 'ϴ' then
begin
- Close;
- SQL.Clear;
- sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(maxId) + '''');
- Open;
- end;
- with ADOQueryCmd do
+ if CDS_GX.FieldByName('page').AsString = 'frameCCQXList1' then
+ begin
+ frameCCQXList1.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameCCQXList2' then
+ begin
+ frameCCQXList2.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameCCQXList3' then
+ begin
+ frameCCQXList3.SaveData(maxId);
+ end;
+ end
+ else if mPSType = 'Ⱦϴ' then
begin
- if Trim(mPSID) = '' then
+ if CDS_GX.FieldByName('page').AsString = 'frameRGQXList1' then
begin
- Append;
+ frameRGQXList1.SaveData(maxId);
end
- else
+ else if CDS_GX.FieldByName('page').AsString = 'frameRGQXList2' then
begin
- Edit;
+ frameRGQXList2.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameRGQXList3' then
+ begin
+ frameRGQXList3.SaveData(maxId);
end;
- FieldByName('PSID').Value := Trim(maxId);
-
- if mPSType = 'ë' then
+ end
+ else if mPSType = 'ϴ' then
+ begin
+ if CDS_GX.FieldByName('page').AsString = 'frameJGQXList1' then
begin
- RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_zm, 2);
- ADOQueryCmd.Post;
+ frameJGQXList1.SaveData(maxId);
end
- else if mPSType = 'ϴ' then
+ else if CDS_GX.FieldByName('page').AsString = 'frameJGQXList2' then
begin
- RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', Panel_ccqx, 2);
- ADOQueryCmd.Post;
-
- ////////////////// 泤ϴӱ //////////////////////
- with CDS_CCQX do
- begin
- First;
- while not Eof do
- begin
-
- if Trim(CDS_CCQX.fieldbyname('BCPID').AsString) = '' then
- begin
- if GetLSNo(ADOQueryTemp, maxsubid1, 'CCQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
- Exit;
- end;
- end
- else
- begin
- maxsubid1 := Trim(CDS_CCQX.fieldbyname('BCPID').AsString);
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Bs_Cloth_GY_Sub where ');
- sql.Add(' BCPID=''' + Trim(maxsubid1) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(CDS_CCQX.fieldbyname('BCPID').AsString) = '' then
- begin
- Append;
-
- end
- else
- begin
- Edit;
-
- end;
- FieldByName('GYType').Value := 'ϴ';
- FieldByName('PSID').Value := Trim(maxId);
- FieldByName('BCPID').Value := Trim(maxsubid1);
- RTSetSaveDataCDS(ADOQueryCmd, TvCCQX, CDS_CCQX, 'Bs_Cloth_GY_Sub', 0);
- Post;
- end;
-
- Next;
- end;
- end;
-//////////////// 泤ϴӱ //////////////////////
-
+ frameJGQXList2.SaveData(maxId);
end
- else if mPSType = 'Ⱦϴ' then
+ else if CDS_GX.FieldByName('page').AsString = 'frameJGQXList3' then
begin
- RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', Panel_rgqx, 2);
- ADOQueryCmd.Post;
-
- ////////////////// Ⱦϴӱ //////////////////////
- with CDS_RGQX do
- begin
- First;
- while not Eof do
- begin
-
- if Trim(CDS_RGQX.fieldbyname('BCPID').AsString) = '' then
- begin
- if GetLSNo(ADOQueryTemp, maxsubid2, 'RGQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
- Exit;
- end;
- end
- else
- begin
- maxsubid2 := Trim(CDS_RGQX.fieldbyname('BCPID').AsString);
- end;
-
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Bs_Cloth_GY_Sub where ');
- sql.Add(' BCPID=''' + Trim(maxsubid2) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(CDS_RGQX.fieldbyname('BCPID').AsString) = '' then
- begin
- Append;
-
- end
- else
- begin
- Edit;
-
- end;
- FieldByName('GYType').Value := 'Ⱦϴ';
- FieldByName('PSID').Value := Trim(maxId);
- FieldByName('BCPID').Value := Trim(maxsubid2);
- RTSetSaveDataCDS(ADOQueryCmd, TvRGQX, CDS_RGQX, 'Bs_Cloth_GY_Sub', 0);
- Post;
- end;
-
- Next;
- end;
- end;
-//////////////// Ⱦϴӱ //////////////////////
-
- end
- else if mPSType = 'ϴ' then
- begin
- RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_jgqx, 2);
- ADOQueryCmd.Post;
-
- ////////////////// ϴӱ //////////////////////
- with CDS_JGQX do
- begin
- First;
- while not Eof do
- begin
-
- if Trim(CDS_JGQX.fieldbyname('BCPID').AsString) = '' then
- begin
- if GetLSNo(ADOQueryTemp, maxsubid3, 'JGQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
- Exit;
- end;
- end
- else
- begin
- maxsubid3 := Trim(CDS_JGQX.fieldbyname('BCPID').AsString);
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Bs_Cloth_GY_Sub where ');
- sql.Add(' BCPID=''' + Trim(maxsubid3) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(CDS_JGQX.fieldbyname('BCPID').AsString) = '' then
- begin
- Append;
-
- end
- else
- begin
- Edit;
-
- end;
- FieldByName('GYType').Value := 'ϴ';
- FieldByName('PSID').Value := Trim(maxId);
- FieldByName('BCPID').Value := Trim(maxsubid3);
- RTSetSaveDataCDS(ADOQueryCmd, TvJGQX, CDS_JGQX, 'Bs_Cloth_GY_Sub', 0);
- Post;
- end;
- Next;
- end;
- end;
-//////////////// ϴӱ //////////////////////
-
- end
- else if mPSType = 'ɶ' then
- begin
- RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_dx, 2);
- ADOQueryCmd.Post;
- end
- else if mPSType = 'ˮ' then
- begin
- RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_fs, 2);
- ADOQueryCmd.Post;
-
- ////////////////// ˮˮͣӱ //////////////////////
- with CDS_fS do
- begin
- First;
- while not Eof do
- begin
-
- if Trim(CDS_fS.fieldbyname('BCPID').AsString) = '' then
- begin
- if GetLSNo(ADOQueryTemp, maxsubid4, 'FS', 'Bs_Cloth_GY_Sub', 5, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
- Exit;
- end;
- end
- else
- begin
- maxsubid4 := Trim(CDS_fS.fieldbyname('BCPID').AsString);
- end;
-
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Bs_Cloth_GY_Sub where ');
- sql.Add(' BCPID=''' + Trim(maxsubid4) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(CDS_fS.fieldbyname('BCPID').AsString) = '' then
- begin
- Append;
-
- end
- else
- begin
- Edit;
-
- end;
- FieldByName('GYType').Value := 'ˮ';
- FieldByName('PSID').Value := Trim(maxId);
- FieldByName('BCPID').Value := Trim(maxsubid4);
- RTSetSaveDataCDS(ADOQueryCmd, TvFS, CDS_fS, 'Bs_Cloth_GY_Sub', 0);
- Post;
- end;
- Next;
- end;
- end;
-//////////////// ˮˮͣӱ //////////////////////
- end
- else if mPSType = 'ν' then
- begin
- RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_gj, 2);
- ADOQueryCmd.Post;
-
- ////////////////// νӱ //////////////////////
- with CDS_gj do
- begin
- First;
- while not Eof do
- begin
-
- if Trim(CDS_gj.fieldbyname('BCPID').AsString) = '' then
- begin
- if GetLSNo(ADOQueryTemp, maxsubid5, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
- Exit;
- end;
- end
- else
- begin
- maxsubid5 := Trim(CDS_gj.fieldbyname('BCPID').AsString);
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Bs_Cloth_GY_Sub where ');
- sql.Add(' BCPID=''' + Trim(maxsubid5) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(CDS_gj.fieldbyname('BCPID').AsString) = '' then
- begin
- Append;
-
- end
- else
- begin
- Edit;
-
- end;
- FieldByName('GYType').Value := 'ν';
- FieldByName('PSID').Value := Trim(maxId);
- FieldByName('BCPID').Value := Trim(maxsubid5);
- RTSetSaveDataCDS(ADOQueryCmd, TvGJ, CDS_gj, 'Bs_Cloth_GY_Sub', 0);
- Post;
- end;
-
- Next;
- end;
- end;
-//////////////// νӱ //////////////////////
-
- end
- else if mPSType = '' then
- begin
- RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_fp, 2);
- ADOQueryCmd.Post;
-
- /// ////////////////// 淢ӱ //////////////////////
- with CDS_FP do
- begin
- First;
- while not Eof do
- begin
- if Trim(CDS_FP.Fieldbyname('BCPID').AsString) = '' then
- begin
- if GetLSNo(ADOQueryTemp, maxsubid6, 'FP', 'Bs_Cloth_GY_Sub', 5, 1) = False then
- begin
- ADOQueryCmd.Connection.RollbackTrans;
- Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
- Exit;
- end;
- end
- else
- begin
- maxsubid6 := Trim(CDS_FP.fieldbyname('BCPID').AsString);
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Bs_Cloth_GY_Sub where ');
- sql.Add('BCPID=''' + Trim(maxsubid6) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(CDS_FP.fieldbyname('BCPID').AsString) = '' then
- begin
- Append;
-
- end
- else
- begin
- Edit;
-
- end;
- FieldByName('GYType').Value := '';
- FieldByName('PSID').Value := Trim(maxId);
- FieldByName('BCPID').Value := Trim(maxsubid6);
- RTSetSaveDataCDS(ADOQueryCmd, TvFP, CDS_FP, 'Bs_Cloth_GY_Sub', 0);
- Post;
- end;
- Next;
- end;
- end;
-//////////////// 淢ӱ //////////////////////
+ frameJGQXList3.SaveData(maxId);
+ end;
+ end
+ else if mPSType = 'ɶ' then
+ begin
+ if CDS_GX.FieldByName('page').AsString = 'frameGDXList1' then
+ begin
+ frameGDXList1.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameGDXList2' then
+ begin
+ frameGDXList2.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameGDXList3' then
+ begin
+ frameGDXList3.SaveData(maxId);
+ end;
+ end
+ else if mPSType = 'ˮ' then
+ begin
+ if CDS_GX.FieldByName('page').AsString = 'frameFSList1' then
+ begin
+ frameFSList1.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameFSList2' then
+ begin
+ frameFSList2.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameFSList3' then
+ begin
+ frameFSList3.SaveData(maxId);
+ end;
+ end
+ else if mPSType = '' then
+ begin
+ if CDS_GX.FieldByName('page').AsString = 'frameFPList1' then
+ begin
+ frameFPList1.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameFPList2' then
+ begin
+ frameFPList2.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameFPList3' then
+ begin
+ frameFPList3.SaveData(maxId);
+ end;
+ end
+ else if mPSType = 'ν' then
+ begin
+ if CDS_GX.FieldByName('page').AsString = 'frameGJList1' then
+ begin
+ frameGJList1.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameGJList2' then
+ begin
+ frameGJList2.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameGJList3' then
+ begin
+ frameGJList3.SaveData(maxId);
+ end;
+ end
+ else if mPSType = 'ë' then
+ begin
+ if CDS_GX.FieldByName('page').AsString = 'frameYMList1' then
+ begin
+ frameYMList1.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameYMList2' then
+ begin
+ frameYMList2.SaveData(maxId);
+ end
+ else if CDS_GX.FieldByName('page').AsString = 'frameYMList3' then
+ begin
+ frameYMList3.SaveData(maxId);
end;
-
end;
-//////////////// //////////////////////
+
CDS_GX.Next;
end;
+
if Trim(mDTMID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxDTMID, 'GY', 'Dye_Technics_Main', 3, 1) = False then
@@ -1485,48 +465,7 @@ begin
begin
MaxDTMID := mDTMID;
end;
- if fPSIDList <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- SQL.Text := 'DELETE FROM Dye_Process WHERE PSID IN (' + fPSIDList + ')';
-// ShowMessage(sql.Text);
- try
- ExecSQL;
- except
- on E: Exception do
- ShowMessage('ɾʧ: ' + E.Message);
- end;
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- SQL.Text := 'DELETE FROM BS_Cloth_GY_Main WHERE PSID IN (' + fPSIDList + ')';
-// ShowMessage(sql.Text);
- try
- ExecSQL;
- except
- on E: Exception do
- ShowMessage('ɾʧ: ' + E.Message);
- end;
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- SQL.Text := 'DELETE FROM BS_Cloth_GY_Sub WHERE PSID IN (' + fPSIDList + ')';
-// ShowMessage(sql.Text);
- try
- ExecSQL;
- except
- on E: Exception do
- ShowMessage('ɾʧ: ' + E.Message);
- end;
- end;
- end;
+
with ADOQueryCmd do
begin
@@ -1621,6 +560,828 @@ begin
end;
end;
+procedure TfrmDyeSimpleTechnicsList.InitPSTypeGrid();
+begin
+ try
+ ADOQueryCMD.DisableControls;
+ with ADOQueryCMD do
+ begin
+// Filtered := False;
+ Close;
+ SQL.Clear;
+ sql.Add(' select *,PSXH=0 from Dye_Technics ');
+ Open;
+ end;
+// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryCMD, CDS_PSType);
+ SInitCDSData(ADOQueryCMD, CDS_PSType);
+ finally
+ ADOQueryCMD.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.InitGlide();
+begin
+ try
+ ADOQueryTemp.DisableControls;
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.* FROM V_Dye_Technics_Details A');
+ sql.Add(' Where A.DTMID=''' + trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
+ SQL.Add(' ORDER BY A.PSNO');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_GX);
+ SInitCDSData(ADOQueryTemp, CDS_GX);
+ finally
+ ADOQueryTemp.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.InitGXDetails();
+begin
+ try
+ ADOQueryTemp.DisableControls;
+ CDS_GX.First;
+ while not CDS_GX.eof do
+ begin
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.* FROM V_Dye_Technics_Details A');
+ sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + '''');
+// SQL.Add(' and A.PSID = ''' + trim(CDS_2.fieldbyname('PSID').AsString) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.* FROM BS_Cloth_GY_Sub A');
+ sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + '''');
+// SQL.Add(' and A.PSID = ''' + trim(CDS_2.fieldbyname('PSID').AsString) + '''');
+
+ Open;
+ end;
+
+
+
+// ShowMessage(IntToStr(ADOQueryCmd.RecordCount));
+
+ if CDS_GX.FieldByName('PSType').AsString = 'ϴ' then
+ begin
+ if self.FindComponent('frameCCQXList1') = nil then
+ begin
+ frameCCQXList1 := TframeCCQXList.Create(self);
+ frameCCQXList1.Name := 'frameCCQXList1';
+ frameCCQXList1.Parent := self.ScrollBox1;
+ frameCCQXList1.Top := GetNextFrameTop;
+ frameCCQXList1.Visible := True;
+ frameCCQXList1.LabelCCQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameCCQXList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameCCQXList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameCCQXList1.Panel_ccqx, 2);
+ frameCCQXList1.ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameCCQXList1.CDS_CCQX);
+ SInitCDSData(ADOQueryCmd, frameCCQXList1.CDS_CCQX);
+
+ end
+ else if self.FindComponent('frameCCQXList2') = nil then
+ begin
+ frameCCQXList2 := TframeCCQXList.Create(self);
+ frameCCQXList2.Name := 'frameCCQXList2';
+ frameCCQXList2.Parent := self.ScrollBox1;
+ frameCCQXList2.Top := GetNextFrameTop;
+ frameCCQXList2.Visible := True;
+ frameCCQXList2.LabelCCQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameCCQXList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameCCQXList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameCCQXList2.Panel_ccqx, 2);
+ frameCCQXList2.ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameCCQXList2.CDS_CCQX);
+ SInitCDSData(ADOQueryCmd, frameCCQXList2.CDS_CCQX);
+
+ end
+ else if self.FindComponent('frameCCQXList3') = nil then
+ begin
+ frameCCQXList3 := TframeCCQXList.Create(self);
+ frameCCQXList3.Name := 'frameCCQXList3';
+ frameCCQXList3.Parent := self.ScrollBox1;
+ frameCCQXList3.Top := GetNextFrameTop;
+ frameCCQXList3.Visible := True;
+ frameCCQXList3.LabelCCQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameCCQXList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameCCQXList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameCCQXList3.Panel_ccqx, 2);
+ frameCCQXList3.ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameCCQXList3.CDS_CCQX);
+ SInitCDSData(ADOQueryCmd, frameCCQXList3.CDS_CCQX);
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'Ⱦϴ' then
+ begin
+ if self.FindComponent('frameRGQXList1') = nil then
+ begin
+ frameRGQXList1 := TframeRGQXList.Create(self);
+ frameRGQXList1.Name := 'frameRGQXList1';
+ frameRGQXList1.Parent := self.ScrollBox1;
+ frameRGQXList1.Top := GetNextFrameTop;
+ frameRGQXList1.Visible := True;
+ frameRGQXList1.LabelRGQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameRGQXList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameRGQXList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameRGQXList1.Panel_rgqx, 2);
+ frameRGQXList1.rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameRGQXList1.CDS_rgQX);
+ SInitCDSData(ADOQueryCmd, frameRGQXList1.CDS_RGQX);
+ end
+ else if self.FindComponent('frameRGQXList2') = nil then
+ begin
+ frameRGQXList2 := TframeRGQXList.Create(self);
+ frameRGQXList2.Name := 'frameRGQXList2';
+ frameRGQXList2.Parent := self.ScrollBox1;
+ frameRGQXList2.Top := GetNextFrameTop;
+ frameRGQXList2.Visible := True;
+ frameRGQXList2.LabelRGQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameRGQXList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameRGQXList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameRGQXList2.Panel_rgqx, 2);
+ frameRGQXList2.rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameRGQXList2.CDS_rgQX);
+ SInitCDSData(ADOQueryCmd, frameRGQXList2.CDS_RGQX);
+ end
+ else if self.FindComponent('frameRGQXList3') = nil then
+ begin
+ frameRGQXList3 := TframeRGQXList.Create(self);
+ frameRGQXList3.Name := 'frameRGQXList3';
+ frameRGQXList3.Parent := self.ScrollBox1;
+ frameRGQXList3.Top := GetNextFrameTop;
+ frameRGQXList3.Visible := True;
+ frameRGQXList3.LabelRGQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameRGQXList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameRGQXList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameRGQXList3.Panel_rgqx, 2);
+ frameRGQXList3.rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameRGQXList3.CDS_rgQX);
+ SInitCDSData(ADOQueryCmd, frameRGQXList3.CDS_RGQX);
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ϴ' then
+ begin
+ if self.FindComponent('frameJGQXList1') = nil then
+ begin
+ frameJGQXList1 := TframeJGQXList.Create(self);
+ frameJGQXList1.Name := 'frameJGQXList1';
+ frameJGQXList1.Parent := self.ScrollBox1;
+ frameJGQXList1.Top := GetNextFrameTop;
+ frameJGQXList1.Visible := True;
+ frameJGQXList1.LabelJGQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameJGQXList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameJGQXList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameJGQXList1.Panel_jgqx, 2);
+ frameJGQXList1.jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameJGQXList1.CDS_JGQX);
+ SInitCDSData(ADOQueryCmd, frameJGQXList1.CDS_JGQX);
+ end
+ else if self.FindComponent('frameJGQXList2') = nil then
+ begin
+ frameJGQXList2 := TframeJGQXList.Create(self);
+ frameJGQXList2.Name := 'frameJGQXList2';
+ frameJGQXList2.Parent := self.ScrollBox1;
+ frameJGQXList2.Top := GetNextFrameTop;
+ frameJGQXList2.Visible := True;
+ frameJGQXList2.LabelJGQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameJGQXList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameJGQXList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameJGQXList2.Panel_jgqx, 2);
+ frameJGQXList2.jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameJGQXList2.CDS_JGQX);
+ SInitCDSData(ADOQueryCmd, frameJGQXList2.CDS_JGQX);
+ end
+ else if self.FindComponent('frameJGQXList3') = nil then
+ begin
+ frameJGQXList3 := TframeJGQXList.Create(self);
+ frameJGQXList3.Name := 'frameJGQXList3';
+ frameJGQXList3.Parent := self.ScrollBox1;
+ frameJGQXList3.Top := GetNextFrameTop;
+ frameJGQXList3.Visible := True;
+ frameJGQXList3.LabelJGQX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameJGQXList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameJGQXList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameJGQXList3.Panel_jgqx, 2);
+ frameJGQXList3.jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameJGQXList3.CDS_JGQX);
+ SInitCDSData(ADOQueryCmd, frameJGQXList3.CDS_JGQX);
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ɶ' then
+ begin
+ if self.FindComponent('frameGDXList1') = nil then
+ begin
+ frameGDXList1 := TframeGDXList.Create(self);
+ frameGDXList1.Name := 'frameGDXList1';
+ frameGDXList1.Parent := self.ScrollBox1;
+ frameGDXList1.Top := GetNextFrameTop;
+ frameGDXList1.Visible := True;
+ frameGDXList1.LabelGDX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameGDXList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGDXList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGDXList1.Panel_dx, 2);
+ frameGDXList1.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString;
+ end
+ else if self.FindComponent('frameGDXList2') = nil then
+ begin
+ frameGDXList2 := TframeGDXList.Create(self);
+ frameGDXList2.Name := 'frameGDXList2';
+ frameGDXList2.Parent := self.ScrollBox1;
+ frameGDXList2.Top := GetNextFrameTop;
+ frameGDXList2.Visible := True;
+ frameGDXList2.LabelGDX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameGDXList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGDXList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGDXList2.Panel_dx, 2);
+ frameGDXList2.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString;
+ end
+ else if self.FindComponent('frameGDXList3') = nil then
+ begin
+ frameGDXList3 := TframeGDXList.Create(self);
+ frameGDXList3.Name := 'frameGDXList3';
+ frameGDXList3.Parent := self.ScrollBox1;
+ frameGDXList3.Top := GetNextFrameTop;
+ frameGDXList3.Visible := True;
+ frameGDXList3.LabelGDX.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameGDXList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGDXList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGDXList3.Panel_dx, 2);
+ frameGDXList3.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString;
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ˮ' then
+ begin
+ if self.FindComponent('frameFSList1') = nil then
+ begin
+ frameFSList1 := tframeFSList.Create(self);
+ frameFSList1.Name := 'frameFSList1';
+ frameFSList1.Parent := self.ScrollBox1;
+ frameFSList1.Top := GetNextFrameTop;
+ frameFSList1.Visible := True;
+ frameFSList1.LabelFS.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameFSList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFSList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFSList1.Panel_fs, 2);
+ frameFSList1.fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFSList1.CDS_fS);
+ SInitCDSData(ADOQueryCmd, frameFSList1.CDS_fS);
+ end
+ else if self.FindComponent('frameFSList2') = nil then
+ begin
+ frameFSList2 := tframeFSList.Create(self);
+ frameFSList2.Name := 'frameFSList2';
+ frameFSList2.Parent := self.ScrollBox1;
+ frameFSList2.Top := GetNextFrameTop;
+ frameFSList2.Visible := True;
+ frameFSList2.LabelFS.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameFSList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFSList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFSList2.Panel_fs, 2);
+ frameFSList2.fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFSList2.CDS_fS);
+ SInitCDSData(ADOQueryCmd, frameFSList2.CDS_fS);
+ end
+ else if self.FindComponent('frameFSList3') = nil then
+ begin
+ frameFSList3 := tframeFSList.Create(self);
+ frameFSList3.Name := 'frameFSList3';
+ frameFSList3.Parent := self.ScrollBox1;
+ frameFSList3.Top := GetNextFrameTop;
+ frameFSList3.Visible := True;
+ frameFSList3.LabelFS.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameFSList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFSList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFSList3.Panel_fs, 2);
+ frameFSList3.fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFSList3.CDS_fS);
+ SInitCDSData(ADOQueryCmd, frameFSList3.CDS_fS);
+ end
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = '' then
+ begin
+
+ if self.FindComponent('frameFPList1') = nil then
+ begin
+ frameFPList1 := TframeFPList.Create(self);
+ frameFPList1.Name := 'frameFPList1';
+ frameFPList1.Parent := self.ScrollBox1;
+ frameFPList1.Top := GetNextFrameTop;
+ frameFPList1.Visible := True;
+ frameFPList1.LabelFP.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameFPList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFPList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFPList1.Panel_fp, 2);
+ frameFPList1.fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFPList1.CDS_FP);
+ SInitCDSData(ADOQueryCmd, frameFPList1.CDS_FP);
+ end
+ else if self.FindComponent('frameFPList2') = nil then
+ begin
+ frameFPList2 := TframeFPList.Create(self);
+ frameFPList2.Name := 'frameFPList2';
+ frameFPList2.Parent := self.ScrollBox1;
+ frameFPList2.Top := GetNextFrameTop;
+ frameFPList2.Visible := True;
+ frameFPList2.LabelFP.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameFPList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFPList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFPList2.Panel_fp, 2);
+ frameFPList2.fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFPList2.CDS_FP);
+ SInitCDSData(ADOQueryCmd, frameFPList2.CDS_FP);
+ end
+ else if self.FindComponent('frameFPList3') = nil then
+ begin
+ frameFPList3 := TframeFPList.Create(self);
+ frameFPList3.Name := 'frameFPList3';
+ frameFPList3.Parent := self.ScrollBox1;
+ frameFPList3.Top := GetNextFrameTop;
+ frameFPList3.Visible := True;
+ frameFPList3.LabelFP.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameFPList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameFPList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameFPList3.Panel_fp, 2);
+ frameFPList3.fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameFPList3.CDS_FP);
+ SInitCDSData(ADOQueryCmd, frameFPList3.CDS_FP);
+ end;
+
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ν' then
+ begin
+ if self.FindComponent('frameGJList1') = nil then
+ begin
+ frameGJList1 := TframeGJList.Create(self);
+ frameGJList1.Name := 'frameGJList1';
+ frameGJList1.Parent := self.ScrollBox1;
+ frameGJList1.Top := GetNextFrameTop;
+ frameGJList1.Visible := True;
+ frameGJList1.LabelGJ.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameGJList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGJList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGJList1.Panel_gj, 2);
+ frameGJList1.gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameGJList1.CDS_GJ);
+ SInitCDSData(ADOQueryCmd, frameGJList1.CDS_GJ);
+ end
+ else if self.FindComponent('frameGJList2') = nil then
+ begin
+ frameGJList2 := TframeGJList.Create(self);
+ frameGJList2.Name := 'frameGJList2';
+ frameGJList2.Parent := self.ScrollBox1;
+ frameGJList2.Top := GetNextFrameTop;
+ frameGJList2.Visible := True;
+ frameGJList2.LabelGJ.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameGJList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGJList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGJList2.Panel_gj, 2);
+ frameGJList2.gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameGJList2.CDS_GJ);
+ SInitCDSData(ADOQueryCmd, frameGJList2.CDS_GJ);
+ end
+ else if self.FindComponent('frameGJList3') = nil then
+ begin
+ frameGJList3 := TframeGJList.Create(self);
+ frameGJList3.Name := 'frameGJList3';
+ frameGJList3.Parent := self.ScrollBox1;
+ frameGJList3.Top := GetNextFrameTop;
+ frameGJList3.Visible := True;
+ frameGJList3.LabelGJ.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameGJList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameGJList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameGJList3.Panel_gj, 2);
+ frameGJList3.gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString;
+
+ SCreateCDS(ADOQueryCmd, frameGJList3.CDS_GJ);
+ SInitCDSData(ADOQueryCmd, frameGJList3.CDS_GJ);
+ end;
+ end
+ else if CDS_GX.FieldByName('PSType').AsString = 'ë' then
+ begin
+ if self.FindComponent('frameYMList1') = nil then
+ begin
+ frameYMList1 := TframeYMList.Create(self);
+ frameYMList1.Name := 'frameYMList1';
+ frameYMList1.Parent := self.ScrollBox1;
+ frameYMList1.Top := GetNextFrameTop;
+ frameYMList1.Visible := True;
+ frameYMList1.LabelYM.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameYMList1.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameYMList1';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameYMList1.Panel_zm, 2);
+ frameYMList1.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString;
+
+ end
+ else if self.FindComponent('frameYMList2') = nil then
+ begin
+ frameYMList2 := TframeYMList.Create(self);
+ frameYMList2.Name := 'frameYMList2';
+ frameYMList2.Parent := self.ScrollBox1;
+ frameYMList2.Top := GetNextFrameTop;
+ frameYMList2.Visible := True;
+ frameYMList2.LabelYM.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameYMList2.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameYMList2';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameYMList2.Panel_zm, 2);
+ frameYMList2.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString;
+
+ end
+ else if self.FindComponent('frameYMList3') = nil then
+ begin
+ frameYMList3 := TframeYMList.Create(self);
+ frameYMList3.Name := 'frameYMList3';
+ frameYMList3.Parent := self.ScrollBox1;
+ frameYMList3.Top := GetNextFrameTop;
+ frameYMList3.Visible := True;
+ frameYMList3.LabelYM.Caption := CDS_GX.FieldByName('PSName').AsString;
+ frameYMList3.InitGrid();
+
+ CDS_GX.Edit;
+ CDS_GX.FieldByName('page').AsString := 'frameYMList3';
+ CDS_GX.Post;
+
+ SCSHData(ADOQueryTemp, frameYMList3.Panel_zm, 2);
+ frameYMList3.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString;
+
+ end;
+ end;
+ CDS_GX.Next;
+ end;
+
+ finally
+ ADOQueryTemp.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.CloseAllFrames();
+var
+ i: Integer;
+ Component: TComponent;
+begin
+ // ر GDXList
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameGDXList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+
+ // ر FSList
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameFSList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+
+ // ر FPList
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameFPList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+
+ // ر GJList
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameGJList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameCCQXList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameRGQXList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameJGQXList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+ for i := 1 to 3 do
+ begin
+ Component := self.FindComponent('frameYMList' + IntToStr(i));
+ if Component <> nil then
+ begin
+ TFrame(Component).Free;
+ end;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.FormDestroy(Sender: TObject);
+begin
+ inherited;
+ frmDyeSimpleTechnicsList := nil;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.TBDelClick(Sender: TObject);
+begin
+ if CDS_2.IsEmpty then
+ Exit;
+ if CDS_2.Locate('ssel', true, []) = false then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+ with CDS_2 do
+ begin
+ DisableControls;
+ First;
+ while not eof do
+ begin
+ if Fieldbyname('ssel').AsBoolean then
+ begin
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('delete Dye_Technics_Main where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
+ sql.Add('delete Dye_Technics_Sub where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
+
+ execsql;
+ end;
+// CDS_1.First;
+// while not CDS_1.Eof do
+// begin
+// with ADOQueryCmd do
+// begin
+// close;
+// sql.Clear;
+// sql.Add('delete Dye_Process where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
+// sql.Add('delete BS_Cloth_GY_Sub where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
+// sql.Add('delete BS_Cloth_GY_Main where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
+//
+// execsql;
+// end;
+// CDS_1.Next;
+// end;
+ end;
+ next;
+ end;
+ First;
+ EnableControls;
+ end;
+ InitGrid();
+ ADOQueryCmd.Connection.CommitTrans;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox('ʧܣ', 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.FormShow(Sender: TObject);
+begin
+ inherited;
+ ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'չ');
+ ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'չ');
+ ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, 'չ');
+
+ SetStatus();
+ InitGrid();
+
+ KeyPreview := True;
+
+end;
+
+procedure TfrmDyeSimpleTechnicsList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmDyeSimpleTechnicsList.TbSaveClick(Sender: TObject);
+begin
+ if SaveData() then
+ begin
+ Application.MessageBox('ɹ', 'ʾ', 0);
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.ToolButton1Click(Sender: TObject);
+begin
+ CDS_2.Append;
+ tv2.Columns[1].Options.Editing := true;
+ tv2.Columns[2].Options.Editing := true;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.ToolButton2Click(Sender: TObject);
+begin
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, CDS_2);
+ SInitCDSData(ADOQueryMain, CDS_2);
+ end;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.ToolButton3Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'չ');
+ WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'չ');
+ WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, 'չ');
+
+end;
+
+procedure TfrmDyeSimpleTechnicsList.ToolButton4Click(Sender: TObject);
+begin
+ InitPSTypeGrid();
+ tv2.Columns[1].Options.Editing := true;
+ tv2.Columns[2].Options.Editing := true;
+end;
+
+procedure TfrmDyeSimpleTechnicsList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_GX.IsEmpty then
+ begin
+ Exit;
+ end;
+ if (CDS_GX.FieldByName('PSID').asString = '') or (CDS_GX.FieldByName('PSID').asString = null) then
+ begin
+ CDS_GX.Delete;
+// InitGXDetails();
+ end
+ else
+ begin
+ Application.MessageBox('ѱ湤ɾ', 'ʾϢ', MB_OK);
+ end;
+ SetXH();
+end;
+
+procedure TfrmDyeSimpleTechnicsList.ToolButton6Click(Sender: TObject);
+begin
+ CloseAllFrames();
+ InitGXDetails();
+end;
+
procedure TfrmDyeSimpleTechnicsList.Tv1DblClick(Sender: TObject);
begin
@@ -1632,15 +1393,16 @@ begin
FieldByName('PSId').Value := '';
post;
end;
- InitGXDetails();
+// InitGXDetails();
end;
procedure TfrmDyeSimpleTechnicsList.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
+ CloseAllFrames();
SetStatus();
InitGlide();
- InitGXDetails();
+// InitGXDetails();
// ShowMessage(CDS_2.FieldByName('DTMID').AsString);
if (CDS_2.FieldByName('DTMID').AsString = '') or (CDS_2.FieldByName('DTMID').AsString = null) then
begin
@@ -1685,11 +1447,23 @@ begin
end;
end;
+procedure TfrmDyeSimpleTechnicsList.DTMNameKeyPress(Sender: TObject;
+ var Key: Char);
+begin
+ ToolButton2.Click;
+end;
+
procedure TfrmDyeSimpleTechnicsList.DTMNoChange(Sender: TObject);
begin
ToolButton2.Click;
end;
+procedure TfrmDyeSimpleTechnicsList.DTMNoKeyPress(Sender: TObject;
+ var Key: Char);
+begin
+ ToolButton2.Click;
+end;
+
procedure TfrmDyeSimpleTechnicsList.TchkClick(Sender: TObject);
begin
if CDS_2.IsEmpty then
@@ -1775,120 +1549,6 @@ begin
end;
end;
-procedure TfrmDyeSimpleTechnicsList.TbRGQXAddClick(Sender: TObject);
-begin
- with CDS_RGQX do
- begin
- Append;
- CDS_RGQX.FieldByName('serialno').Value := CDS_RGQX.RecordCount + 1;
- Post;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbRGQXDelClick(Sender: TObject);
-var
- i: Integer;
-begin
- if not CDS_RGQX.IsEmpty then
- begin
-
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
- begin
- if Trim(CDS_RGQX.fieldbyname('BCPID').AsString) <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_RGQX.fieldbyname('BCPID').AsString)));
- ExecSQL;
- end;
- end;
- CDS_RGQX.Delete;
- end
- else
- exit;
-
- i := 0;
- CDS_RGQX.First;
- while not CDS_RGQX.Eof do
- begin
- i := i + 1;
- CDS_RGQX.Edit;
- CDS_RGQX.fieldByName('serialno').value := i;
- CDS_RGQX.Post;
- CDS_RGQX.Next;
- end;
- end
- else
- begin
- Application.MessageBox('ɾ!', 'ʾ', 0);
- Exit;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbCCQXAddClick(Sender: TObject);
-begin
- with CDS_CCQX do
- begin
- Append;
- CDS_CCQX.FieldByName('serialno').Value := CDS_CCQX.RecordCount + 1;
- Post;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbccqxClearClick(Sender: TObject);
-begin
- ClearAllTextEditsByHint(panel_ccqx, 'ϴ¿');
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbCCQXDelClick(Sender: TObject);
-var
- i: Integer;
-begin
- if not CDS_CCQX.IsEmpty then
- begin
-
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
- begin
- if Trim(CDS_CCQX.fieldbyname('BCPID').AsString) <> '' then
- begin
- with ADOQueryCmd do
- begin
- Close;
- sql.Clear;
- sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_CCQX.fieldbyname('BCPID').AsString)));
- ExecSQL;
- end;
- end;
- CDS_CCQX.Delete;
- end
- else
- exit;
-
- i := 0;
- CDS_CCQX.First;
- while not CDS_CCQX.Eof do
- begin
- i := i + 1;
- CDS_CCQX.Edit;
- CDS_CCQX.fieldByName('serialno').value := i;
- CDS_CCQX.Post;
- CDS_CCQX.Next;
- end;
- end
- else
- begin
- Application.MessageBox('ɾ!', 'ʾ', 0);
- Exit;
- end;
-end;
-
-procedure TfrmDyeSimpleTechnicsList.TbCCQXReplaceClick(Sender: TObject);
-begin
- FillAllTextEditsWithValue(panel_ccqx, 'ϴ¿', FindLastEditedTextEdit(panel_ccqx, 'ϴ¿'));
-end;
-
procedure TfrmDyeSimpleTechnicsList.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@@ -1921,6 +1581,7 @@ procedure TfrmDyeSimpleTechnicsList.FormCreate(Sender: TObject);
begin
inherited;
fmanage := Trim(DParameters1);
+
end;
procedure TfrmDyeSimpleTechnicsList.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ
@@ -2006,5 +1667,38 @@ begin
end;
end;
+
+
+function TfrmDyeSimpleTechnicsList.GetNextFrameTop: Integer;
+var
+ i: Integer;
+ Ctrl: TControl;
+ MaxBottom: Integer;
+begin
+ MaxBottom := 0;
+
+ // ûκοؼ 0 ʼ
+ if ScrollBox1.ControlCount = 1 then
+ begin
+ Result := 0;
+ Exit;
+ end;
+
+ for i := 0 to ScrollBox1.ControlCount - 1 do
+ begin
+ Ctrl := ScrollBox1.Controls[i];
+ if (Ctrl is TFrame) and Ctrl.Visible then
+ begin
+ // 㵱ǰ frame ĵײλ
+ var BottomPos := Ctrl.Top + Ctrl.Height;
+ if BottomPos > MaxBottom then
+ MaxBottom := BottomPos;
+ end;
+ end;
+
+ // һЩ
+ Result := MaxBottom + 5;
+end;
+
end.
diff --git a/F02染色计划单/U_DyeTechnicsList.dfm b/F02染色计划单/U_DyeTechnicsList.dfm
index 58fa3c1..87a1c66 100644
--- a/F02染色计划单/U_DyeTechnicsList.dfm
+++ b/F02染色计划单/U_DyeTechnicsList.dfm
@@ -4,6 +4,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Caption = #24037#33402#30331#35760
ClientHeight = 593
ClientWidth = 1467
+ OnKeyDown = FormKeyDown
ExplicitWidth = 1483
ExplicitHeight = 632
PixelsPerInch = 96
@@ -143,7 +144,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Width = 180
Height = 20
TabOrder = 0
- OnChange = DTMNoChange
+ OnKeyPress = DTMNameKeyPress
end
object DTMNo: TEdit
Tag = 2
@@ -152,7 +153,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Width = 180
Height = 20
TabOrder = 1
- OnChange = DTMNoChange
+ OnKeyPress = DTMNoKeyPress
end
end
object cxGrid2: TcxGrid [3]
@@ -162,8 +163,6 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Height = 494
Align = alLeft
TabOrder = 2
- ExplicitLeft = 8
- ExplicitTop = 105
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -234,6 +233,13 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Options.Focusing = False
Width = 150
end
+ object Tv2GYNote: TcxGridDBColumn
+ Caption = #24037#33402#22791#27880
+ DataBinding.FieldName = 'GYNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
object Tv2Editer: TcxGridDBColumn
Caption = #26368#21518#20462#25913#20154
DataBinding.FieldName = 'Editer'
diff --git a/F02染色计划单/U_DyeTechnicsList.pas b/F02染色计划单/U_DyeTechnicsList.pas
index 36f2642..5ea5f4d 100644
--- a/F02染色计划单/U_DyeTechnicsList.pas
+++ b/F02染色计划单/U_DyeTechnicsList.pas
@@ -64,6 +64,7 @@ type
TV1All_zhuji: TcxGridDBColumn;
Tv2Editer: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
+ Tv2GYNote: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -71,7 +72,7 @@ type
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
- procedure DTMNoChange(Sender: TObject);
+
procedure TchkClick(Sender: TObject);
procedure TNochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
@@ -82,6 +83,9 @@ type
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure DTMNoKeyPress(Sender: TObject; var Key: Char);
+ procedure DTMNameKeyPress(Sender: TObject; var Key: Char);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
{ Private declarations }
@@ -179,6 +183,16 @@ begin
frmDyeTechnicsList := nil;
end;
+procedure TfrmDyeTechnicsList.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmDyeTechnicsList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@@ -258,6 +272,7 @@ begin
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'չ');
SetStatus();
InitGrid();
+ KeyPreview := True;
end;
procedure TfrmDyeTechnicsList.TBRafreshClick(Sender: TObject);
@@ -337,9 +352,24 @@ begin
end;
end;
-procedure TfrmDyeTechnicsList.DTMNoChange(Sender: TObject);
+
+
+procedure TfrmDyeTechnicsList.DTMNameKeyPress(Sender: TObject; var Key: Char);
begin
- ToolButton2.Click;
+ if Key = #13 then
+ begin
+ ToolButton2.Click;
+ end;
+
+end;
+
+procedure TfrmDyeTechnicsList.DTMNoKeyPress(Sender: TObject; var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ ToolButton2.Click;
+ end;
+
end;
procedure TfrmDyeTechnicsList.TchkClick(Sender: TObject);
diff --git a/F02染色计划单/U_DyeTechnicsinput.dfm b/F02染色计划单/U_DyeTechnicsinput.dfm
index 347e4fe..4db1687 100644
--- a/F02染色计划单/U_DyeTechnicsinput.dfm
+++ b/F02染色计划单/U_DyeTechnicsinput.dfm
@@ -4,6 +4,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Caption = #24037#33402#30331#35760
ClientHeight = 593
ClientWidth = 1034
+ OnKeyDown = FormKeyDown
ExplicitWidth = 1050
ExplicitHeight = 632
PixelsPerInch = 96
@@ -168,9 +169,9 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
TabOrder = 2
object cxGrid1: TcxGrid
Left = 1
- Top = 77
+ Top = 113
Width = 711
- Height = 515
+ Height = 479
Align = alClient
PopupMenu = PM_1
TabOrder = 0
@@ -315,14 +316,12 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Left = 1
Top = 39
Width = 711
- Height = 38
+ Height = 74
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
- ExplicitLeft = -4
- ExplicitTop = 45
object Label2: TLabel
Left = 295
Top = 9
@@ -337,6 +336,13 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Height = 13
Caption = #24037#33402#32534#21495
end
+ object Label1: TLabel
+ Left = 30
+ Top = 42
+ Width = 48
+ Height = 13
+ Caption = #24037#33402#22791#27880
+ end
object DTMName: TEdit
Tag = 2
Left = 349
@@ -353,6 +359,14 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Height = 21
TabOrder = 1
end
+ object GYNote: TEdit
+ Tag = 2
+ Left = 84
+ Top = 39
+ Width = 453
+ Height = 21
+ TabOrder = 2
+ end
end
object TbMoveUp: TcxButton
Left = 461
diff --git a/F02染色计划单/U_DyeTechnicsinput.pas b/F02染色计划单/U_DyeTechnicsinput.pas
index 9522090..47243ad 100644
--- a/F02染色计划单/U_DyeTechnicsinput.pas
+++ b/F02染色计划单/U_DyeTechnicsinput.pas
@@ -72,6 +72,8 @@ type
TV1DTMName: TcxGridDBColumn;
Tv3DTMName: TcxGridDBColumn;
TV1PSID: TcxGridDBColumn;
+ GYNote: TEdit;
+ Label1: TLabel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -92,6 +94,7 @@ type
procedure PSNameKeyPress(Sender: TObject; var Key: Char);
procedure TbMoveUpClick(Sender: TObject);
procedure btnMoveDownClick(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
{ Private declarations }
@@ -475,7 +478,8 @@ begin
if ADOQueryCmd.IsEmpty then
begin
Append;
- FieldByName('Filler').Value := Trim(DName);
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
FieldByName('DTMID').Value := Trim(maxno);
end
else
@@ -587,6 +591,16 @@ begin
frmDyeTechnicsinput := nil;
end;
+procedure TfrmDyeTechnicsinput.FormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_ESCAPE then // VK_ESCAPE ESC ij
+ begin
+ Key := 0; // ֹ
+ Close; // ModalResult := mrCancel;
+ end;
+end;
+
procedure TfrmDyeTechnicsinput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@@ -607,6 +621,8 @@ begin
InitGrid();
InitGlide();
InitGridSub();
+
+ KeyPreview := True;
end;
procedure TfrmDyeTechnicsinput.TBRafreshClick(Sender: TObject);
diff --git a/F02染色计划单/U_DyeTechnicsinputKaika.dfm b/F02染色计划单/U_DyeTechnicsinputKaika.dfm
new file mode 100644
index 0000000..87b8370
--- /dev/null
+++ b/F02染色计划单/U_DyeTechnicsinputKaika.dfm
@@ -0,0 +1,301 @@
+inherited frmDyeTechnicsinputKaika: TfrmDyeTechnicsinputKaika
+ Left = 93
+ Top = 106
+ Caption = #24320#21345#24037#33402#26597#30475
+ ClientHeight = 593
+ ClientWidth = 1034
+ ExplicitWidth = 1050
+ ExplicitHeight = 632
+ PixelsPerInch = 96
+ TextHeight = 13
+ object cxSplitter1: TcxSplitter [0]
+ Left = 1026
+ Top = 0
+ Width = 8
+ Height = 593
+ AlignSplitter = salRight
+ end
+ object Panel3: TPanel [1]
+ Left = 0
+ Top = 0
+ Width = 1026
+ Height = 593
+ Align = alClient
+ Caption = 'Panel3'
+ TabOrder = 1
+ object cxGrid1: TcxGrid
+ Left = 1
+ Top = 77
+ Width = 1024
+ Height = 515
+ Align = alClient
+ PopupMenu = PM_1
+ TabOrder = 0
+ ExplicitLeft = -4
+ ExplicitTop = 72
+ object TV1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ Navigator.Buttons.Delete.Enabled = False
+ Navigator.Buttons.Delete.Visible = False
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsCustomize.ColumnSorting = False
+ OptionsData.Deleting = False
+ OptionsData.DeletingConfirmation = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ Styles.IncSearch = DataLink_DyePlan.SHuangSe
+ Styles.Header = DataLink_DyePlan.handBlack
+ Styles.Inactive = DataLink_DyePlan.SHuangSe
+ Styles.Selection = DataLink_DyePlan.SHuangSe
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #21345#32452#21495
+ DataBinding.FieldName = 'PCID'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ HeaderAlignmentHorz = taCenter
+ Width = 157
+ end
+ object VC_GlideNo: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'GlideNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 60
+ end
+ object TV1PSName: TcxGridDBColumn
+ Caption = #24037#24207#21517#31216
+ DataBinding.FieldName = 'GlideName'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = TV1PSNamePropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 229
+ end
+ object TV1PSType: TcxGridDBColumn
+ Caption = #24037#24207#31867#22411
+ DataBinding.FieldName = 'PSType'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 133
+ end
+ object TV1PSID: TcxGridDBColumn
+ DataBinding.FieldName = 'PSID'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 183
+ end
+ end
+ object cxGridLevel2: TcxGridLevel
+ GridView = TV1
+ end
+ end
+ object ToolBar1: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 1
+ Width = 1024
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 91
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ DisabledImages = DataLink_DyePlan.ImageList_new32
+ Images = DataLink_DyePlan.ImageList_new32
+ List = True
+ ParentColor = False
+ ShowCaptions = True
+ TabOrder = 1
+ ExplicitLeft = -4
+ object ToolButton2: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton2Click
+ end
+ object TBClose: TToolButton
+ Left = 95
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel4: TPanel
+ Left = 1
+ Top = 39
+ Width = 1024
+ Height = 38
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clSkyBlue
+ TabOrder = 2
+ ExplicitLeft = -4
+ ExplicitTop = 45
+ object Label2: TLabel
+ Left = 295
+ Top = 9
+ Width = 48
+ Height = 13
+ Caption = #24037#33402#21517#31216
+ end
+ object Label3: TLabel
+ Left = 30
+ Top = 9
+ Width = 48
+ Height = 13
+ Caption = #24037#33402#32534#21495
+ end
+ object DTMName: TEdit
+ Tag = 2
+ Left = 349
+ Top = 6
+ Width = 189
+ Height = 21
+ TabOrder = 0
+ end
+ object DTMNo: TEdit
+ Tag = 2
+ Left = 84
+ Top = 6
+ Width = 189
+ Height = 21
+ TabOrder = 1
+ end
+ end
+ object TbMoveUp: TcxButton
+ Left = 461
+ Top = 140
+ Width = 75
+ Height = 25
+ Caption = #19978#31227
+ TabOrder = 3
+ Visible = False
+ OnClick = TbMoveUpClick
+ end
+ object btnMoveDown: TcxButton
+ Left = 461
+ Top = 192
+ Width = 75
+ Height = 25
+ Caption = #19979#31227
+ TabOrder = 4
+ Visible = False
+ OnClick = btnMoveDownClick
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Left = 241
+ Top = 256
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Left = 153
+ Top = 289
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 381
+ Top = 145
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 301
+ Top = 145
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 237
+ Top = 161
+ end
+ object GPM_2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 215
+ Top = 385
+ end
+ object DS_2: TDataSource
+ DataSet = CDS_2
+ Left = 303
+ Top = 224
+ end
+ object CDS_2: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 144
+ Top = 361
+ end
+ object DS_1: TDataSource
+ DataSet = CDS_1
+ Left = 1088
+ Top = 211
+ end
+ object CDS_1: TClientDataSet
+ Aggregates = <>
+ IndexFieldNames = 'GlideNo'
+ Params = <>
+ Left = 664
+ Top = 217
+ end
+ object ADOQuery1: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 765
+ Top = 267
+ end
+ object GPM_1: TcxGridPopupMenu
+ Grid = cxGrid1
+ PopupMenus = <>
+ Left = 948
+ Top = 203
+ end
+ object PM_1: TPopupMenu
+ Left = 860
+ Top = 204
+ object N2: TMenuItem
+ Caption = #21024#38500
+ OnClick = N2Click
+ end
+ end
+ object CDS_3: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 424
+ Top = 304
+ end
+ object DS_3: TDataSource
+ DataSet = CDS_3
+ Left = 480
+ Top = 304
+ end
+end
diff --git a/F02染色计划单/U_DyeTechnicsinputKaika.pas b/F02染色计划单/U_DyeTechnicsinputKaika.pas
new file mode 100644
index 0000000..4c90d47
--- /dev/null
+++ b/F02染色计划单/U_DyeTechnicsinputKaika.pas
@@ -0,0 +1,394 @@
+unit U_DyeTechnicsinputKaika;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+ cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+ cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+ cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+ cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+ RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+ IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+ cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+ dxBarBuiltInMenu, Menus, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters,
+ U_BaseInput, dxDateRanges, dxScrollbarAnnotations, System.ImageList,
+ Vcl.ImgList, cxButtons;
+
+type
+ TfrmDyeTechnicsinputKaika = class(TfrmBaseInput)
+ ADOQueryTemp: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ GPM_2: TcxGridPopupMenu;
+ DS_2: TDataSource;
+ CDS_2: TClientDataSet;
+ DS_1: TDataSource;
+ CDS_1: TClientDataSet;
+ ADOQuery1: TADOQuery;
+ GPM_1: TcxGridPopupMenu;
+ PM_1: TPopupMenu;
+ N2: TMenuItem;
+ cxSplitter1: TcxSplitter;
+ Panel3: TPanel;
+ cxGrid1: TcxGrid;
+ TV1: TcxGridDBTableView;
+ VC_GlideNo: TcxGridDBColumn;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridLevel2: TcxGridLevel;
+ ToolBar1: TToolBar;
+ TBClose: TToolButton;
+ ToolButton2: TToolButton;
+ Panel4: TPanel;
+ Label2: TLabel;
+ Label3: TLabel;
+ DTMName: TEdit;
+ DTMNo: TEdit;
+ TV1PSName: TcxGridDBColumn;
+ CDS_3: TClientDataSet;
+ DS_3: TDataSource;
+ TbMoveUp: TcxButton;
+ btnMoveDown: TcxButton;
+ TV1PSID: TcxGridDBColumn;
+ TV1PSType: TcxGridDBColumn;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+
+ procedure v2Column4PropertiesEditValueChanged(Sender: TObject);
+ procedure v2Column2PropertiesEditValueChanged(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ procedure N2Click(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+
+ procedure TbMoveUpClick(Sender: TObject);
+ procedure btnMoveDownClick(Sender: TObject);
+ procedure TV1PSNamePropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+
+ private
+ { Private declarations }
+
+ procedure InitGlide();
+ procedure SetXH();
+ public
+ fPSIDList: string;
+ FPCID, PState: string;
+ { Public declarations }
+ RKFlag, FCYID, fmanage: string;
+ end;
+
+var
+ frmDyeTechnicsinputKaika: TfrmDyeTechnicsinputKaika;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessSel, U_DyeProcessDefinKaika,
+ U_DyeProcessDefin;
+
+{$R *.dfm}
+
+procedure TfrmDyeTechnicsinputKaika.SetXH();
+var
+ i: Integer;
+begin
+ with CDS_1 do
+ begin
+ First;
+ i := 1;
+ while not Eof do
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('XHNoTemp').Value := i;
+ Post;
+ end;
+ i := i + 1;
+ Next;
+ end;
+ end;
+
+ with CDS_1 do
+ begin
+ CDS_1.IndexFieldNames := '';
+ First;
+ i := 1;
+ while not Eof do
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('GlideNo').Value := FieldByName('XHNoTemp').AsInteger;
+ Post;
+ end;
+ i := i + 1;
+ Next;
+ end;
+ CDS_1.IndexFieldNames := 'GlideNo';
+ end;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.InitGlide();
+var
+ maxNo, maxsubid: string;
+begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select C.DTMNo,C.DTMName FROM Dye_Plan_Glide A ');
+ sql.Add(' inner join Dye_Technics_Sub B on A.PSID = B.PSID ');
+ sql.Add(' inner join Dye_Technics_Main C on B.DTMID = C.DTMID ');
+
+ Open;
+// ShowMessage(sql.Text);
+ end;
+ SCSHData(ADOQueryTemp, Panel4, 2);
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add(' select A.*,B.PSType FROM Dye_Plan_Glide A inner join Dye_Process B');
+ sql.Add(' on A.PSID = B.PSID ');
+ sql.Add(' Where A.PCID=''' + trim(FPCID) + '''');
+ SQL.Add(' ORDER BY A.GlideNo');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_1);
+ SInitCDSData(ADOQueryTemp, CDS_1);
+end;
+
+procedure TfrmDyeTechnicsinputKaika.FormDestroy(Sender: TObject);
+begin
+ inherited;
+ frmDyeTechnicsinputKaika := nil;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.FormShow(Sender: TObject);
+begin
+ inherited;
+ ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ղ鿴');
+
+ InitGlide();
+
+end;
+
+procedure TfrmDyeTechnicsinputKaika.TbMoveUpClick(Sender: TObject);
+var
+ test: string;
+ ACurrentRow, APrevRow: Integer;
+begin
+ ACurrentRow := Tv1.DataController.FocusedRowIndex + 1;//ǰλã1ʼ
+ if ACurrentRow = 1 then // Ѿǵһ¼
+ Exit;
+
+ APrevRow := ACurrentRow - 1;
+
+ CDS_1.DisableControls;
+ try
+ // ǰ¼һ¼˳ֵ
+ CDS_1.RecNo := ACurrentRow;
+ CDS_1.Edit;
+ CDS_1.FieldByName('GlideNo').AsInteger := APrevRow;
+ test := CDS_1.FieldByName('PSName').AsString;
+ CDS_1.Post;
+
+ CDS_1.RecNo := APrevRow;
+ CDS_1.Edit;
+ CDS_1.FieldByName('GlideNo').AsInteger := ACurrentRow;
+ test := CDS_1.FieldByName('PSName').AsString;
+ CDS_1.Post;
+
+ // ˢ
+// CDS_1.Refresh;
+ CDS_1.IndexFieldNames := 'GlideNo';
+ // ¶λƶļ¼
+ Tv1.DataController.FocusedRowIndex := APrevRow - 1;
+ finally
+ CDS_1.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.ToolButton2Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ղ鿴');
+
+end;
+
+procedure TfrmDyeTechnicsinputKaika.TV1PSNamePropertiesButtonClick(
+ Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmDyeProcessDefinKaika := TfrmDyeProcessDefinKaika.Create(Application);
+ with frmDyeProcessDefinKaika do
+ begin
+
+ FPSID := Self.CDS_1.FieldByName('PSID').Value;
+ FPSType := Self.CDS_1.FieldByName('PSType').Value;
+ if ShowModal = 1 then
+ begin
+
+ end;
+ end;
+ finally
+ frmDyeProcessDefinKaika.Free;
+ end;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.v2Column4PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText;
+ if Trim(mvalue) = '' then
+ mvalue := '';
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Dye_Technics_Main where DTMNo =' + quotedstr(Trim(mvalue)));
+ Open;
+ end;
+ if ADOQueryCmd.IsEmpty = false then
+ begin
+ application.MessageBox('Ѵڹձ', 'ʾ');
+ CDS_2.Edit;
+ CDS_2.FieldByName('DTMNo').AsString := '';
+ exit;
+ end;
+ with CDS_2 do
+ begin
+ Edit;
+ FieldByName('DTMNo').Value := Trim(mvalue);
+ //Post;
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('update Dye_Technics_Main set DTMNo=''' + trim(mvalue) + ''' ');
+ sql.Add(',Editer=''' + trim(DName) + '''');
+ sql.Add(',Edittime=getdate()');
+ sql.add(' where DTMID=''' + trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
+ ExecSQL;
+ end;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.btnMoveDownClick(Sender: TObject);
+var
+ test: string;
+ ACurrentRow, APrevRow: Integer;
+begin
+ ACurrentRow := Tv1.DataController.FocusedRowIndex + 1;//ǰλã1ʼ
+ if ACurrentRow = CDS_1.RecordCount then // Ѿǵһ¼
+ Exit;
+
+ APrevRow := ACurrentRow + 1;
+
+ CDS_1.DisableControls;
+ try
+ // ǰ¼һ¼˳ֵ
+
+ CDS_1.RecNo := APrevRow;
+ CDS_1.Edit;
+ CDS_1.FieldByName('GlideNo').AsInteger := ACurrentRow;
+ test := CDS_1.FieldByName('PSName').AsString;
+ CDS_1.Post;
+
+ CDS_1.RecNo := ACurrentRow;
+ CDS_1.Edit;
+ CDS_1.FieldByName('GlideNo').AsInteger := APrevRow;
+ test := CDS_1.FieldByName('PSName').AsString;
+ CDS_1.Post;
+
+
+
+ // ˢ
+// CDS_1.Refresh;
+ CDS_1.IndexFieldNames := 'GlideNo';
+
+ Tv1.DataController.FocusedRowIndex := ACurrentRow - 1;
+ finally
+ CDS_1.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.v2Column2PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue: string;
+begin
+ mvalue := TcxTextEdit(Sender).EditingText;
+ if Trim(mvalue) = '' then
+ mvalue := '';
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Dye_Technics_Main where DTMName =' + quotedstr(Trim(mvalue)));
+ Open;
+ end;
+ if ADOQueryCmd.IsEmpty = false then
+ begin
+ application.MessageBox('Ѵڹ', 'ʾ');
+ CDS_2.Edit;
+ CDS_2.FieldByName('DTMName').AsString := '';
+ exit;
+ end;
+ with CDS_2 do
+ begin
+ Edit;
+ FieldByName('DTMName').Value := Trim(mvalue);
+ //Post;
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('update Dye_Technics_Main set DTMName=''' + trim(mvalue) + ''' ');
+ sql.Add(',Editer=''' + trim(DName) + '''');
+ sql.Add(',Edittime=getdate()');
+ sql.add(' where DTMID=''' + trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
+ ExecSQL;
+ end;
+end;
+
+procedure TfrmDyeTechnicsinputKaika.FormCreate(Sender: TObject);
+begin
+ inherited;
+ fmanage := Trim(DParameters1);
+end;
+
+procedure TfrmDyeTechnicsinputKaika.N2Click(Sender: TObject);
+var
+ i: Integer;
+ DTMPSlist: string;
+begin
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ CDS_1.Delete;
+ SetXH();
+end;
+
+
+
+end.
+
diff --git a/F02染色计划单/U_frameCCQXList.dfm b/F02染色计划单/U_frameCCQXList.dfm
new file mode 100644
index 0000000..bf3a378
--- /dev/null
+++ b/F02染色计划单/U_frameCCQXList.dfm
@@ -0,0 +1,329 @@
+object frameCCQXList: TframeCCQXList
+ Left = 0
+ Top = 0
+ Width = 1281
+ Height = 132
+ TabOrder = 0
+ object Panel_ccqx: TPanel
+ Left = 0
+ Top = 0
+ Width = 1281
+ Height = 132
+ Align = alClient
+ TabOrder = 0
+ object LabelCCQX: TLabel
+ Left = 4
+ Top = 3
+ Width = 48
+ Height = 12
+ Caption = #38271#36710#28165#27927
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object cxLabel113: TcxLabel
+ Left = 66
+ Top = 9
+ Caption = #36710#36895'(m/min)'
+ end
+ object ccqx_speed: TcxTextEdit
+ Tag = 2
+ Left = 141
+ Top = 7
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 1
+ Width = 50
+ end
+ object ccqx_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 5
+ Top = 74
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 2
+ Width = 40
+ end
+ object ccqx_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 56
+ Top = 74
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 3
+ Width = 40
+ end
+ object ccqx_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 107
+ Top = 74
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 4
+ Width = 40
+ end
+ object ccqx_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 74
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 5
+ Width = 40
+ end
+ object ccqx_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 74
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 6
+ Width = 40
+ end
+ object ccqx_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 260
+ Top = 74
+ Hint = #38271#36710#28165#27927#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 7
+ Width = 40
+ end
+ object TbCCQXReplace: TcxButton
+ Left = 9
+ Top = 32
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 8
+ OnClick = TbCCQXReplaceClick
+ end
+ object TbccqxClear: TcxButton
+ Left = 66
+ Top = 32
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 9
+ OnClick = TbccqxClearClick
+ end
+ object cxLabel41: TcxLabel
+ Left = 171
+ Top = 59
+ Hint = #28165#27927#27700#28201
+ Caption = '4#'
+ end
+ object cxLabel42: TcxLabel
+ Left = 68
+ Top = 59
+ Hint = #28165#27927#27700#28201
+ Caption = '2#'
+ end
+ object cxLabel45: TcxLabel
+ Left = 16
+ Top = 59
+ Caption = '1#'
+ end
+ object cxLabel46: TcxLabel
+ Left = 120
+ Top = 59
+ Caption = '3#'
+ end
+ object cxLabel47: TcxLabel
+ Left = 223
+ Top = 59
+ Caption = '5#'
+ end
+ object cxLabel48: TcxLabel
+ Left = 275
+ Top = 59
+ Hint = #28165#27927#27700#28201
+ Caption = '6#'
+ end
+ object cxGrid4: TcxGrid
+ Left = 328
+ Top = 6
+ Width = 200
+ Height = 120
+ TabOrder = 16
+ object TvCCQX: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_CCQX
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object TvCCQXccqx_Name: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'ccqx_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1ccqx_rate: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'ccqx_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = Tv1ccqx_ratePropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object TvCCQXserialno: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 60
+ end
+ object TvCCQXccqx_spel: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'ccqx_spel'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 80
+ end
+ object TvCCQXccqx_unit: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'ccqx_unit'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 80
+ end
+ object TvCCQXBPIID: TcxGridDBColumn
+ Caption = #21161#21058#20027#38190
+ DataBinding.FieldName = 'BPIID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel4: TcxGridLevel
+ GridView = TvCCQX
+ end
+ end
+ object cxLabel1: TcxLabel
+ Left = 534
+ Top = 59
+ Caption = #22791#27880
+ end
+ object TbCCQXAdd: TcxButton
+ Left = 288
+ Top = 6
+ Width = 40
+ Height = 20
+ Caption = #22686#34892
+ TabOrder = 18
+ OnClick = TbCCQXAddClick
+ end
+ object TbCCQXDel: TcxButton
+ Left = 287
+ Top = 38
+ Width = 40
+ Height = 20
+ Caption = #21024#34892
+ TabOrder = 19
+ OnClick = TbCCQXDelClick
+ end
+ object ccqx_note: TcxMemo
+ Tag = 2
+ Left = 568
+ Top = 40
+ Properties.ScrollBars = ssVertical
+ TabOrder = 20
+ Height = 50
+ Width = 140
+ end
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 187
+ Top = 207
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 284
+ Top = 206
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 361
+ Top = 207
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 427
+ Top = 193
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 491
+ Top = 212
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 264
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 146
+ Top = 311
+ object N1: TMenuItem
+ Caption = #20840#36873
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ end
+ end
+ object DS_CCQX: TDataSource
+ DataSet = CDS_CCQX
+ Left = 759
+ Top = 80
+ end
+ object CDS_CCQX: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 767
+ Top = 8
+ end
+end
diff --git a/F02染色计划单/U_frameCCQXList.pas b/F02染色计划单/U_frameCCQXList.pas
new file mode 100644
index 0000000..26e2a14
--- /dev/null
+++ b/F02染色计划单/U_frameCCQXList.pas
@@ -0,0 +1,478 @@
+unit U_frameCCQXList;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+ cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxCheckBox,
+ cxTextEdit, dxBarBuiltInMenu, Vcl.Menus, cxGridCustomPopupMenu,
+ cxGridPopupMenu, Datasnap.DBClient, Data.Win.ADODB, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin,
+ Vcl.ExtCtrls, dxSkinsCore, dxSkinsDefaultPainters, cxMemo, cxLabel, cxMaskEdit,
+ cxDropDownEdit, cxButtonEdit, cxButtons;
+
+type
+ TframeCCQXList = class(TFrame)
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ Panel_ccqx: TPanel;
+ LabelCCQX: TLabel;
+ cxLabel113: TcxLabel;
+ ccqx_speed: TcxTextEdit;
+ ccqx_temperature1: TcxTextEdit;
+ ccqx_temperature2: TcxTextEdit;
+ ccqx_temperature3: TcxTextEdit;
+ ccqx_temperature4: TcxTextEdit;
+ ccqx_temperature5: TcxTextEdit;
+ ccqx_temperature6: TcxTextEdit;
+ TbCCQXReplace: TcxButton;
+ TbccqxClear: TcxButton;
+ cxLabel41: TcxLabel;
+ cxLabel42: TcxLabel;
+ cxLabel45: TcxLabel;
+ cxLabel46: TcxLabel;
+ cxLabel47: TcxLabel;
+ cxLabel48: TcxLabel;
+ cxGrid4: TcxGrid;
+ TvCCQX: TcxGridDBTableView;
+ TvCCQXccqx_Name: TcxGridDBColumn;
+ Tv1ccqx_rate: TcxGridDBColumn;
+ TvCCQXserialno: TcxGridDBColumn;
+ cxGridLevel4: TcxGridLevel;
+ cxLabel1: TcxLabel;
+ TbCCQXAdd: TcxButton;
+ TbCCQXDel: TcxButton;
+ ccqx_note: TcxMemo;
+ DS_CCQX: TDataSource;
+ CDS_CCQX: TClientDataSet;
+ TvCCQXccqx_spel: TcxGridDBColumn;
+ TvCCQXccqx_unit: TcxGridDBColumn;
+ TvCCQXBPIID: TcxGridDBColumn;
+ procedure TBRafreshClick(Sender: TObject);
+ procedure ToolButton5Click(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure TbCCQXReplaceClick(Sender: TObject);
+ procedure TbccqxClearClick(Sender: TObject);
+ procedure TbCCQXAddClick(Sender: TObject);
+ procedure TbCCQXDelClick(Sender: TObject);
+ procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+ procedure Tv1ccqx_ratePropertiesEditValueChanged(Sender: TObject);
+
+ private
+ procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
+ procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+ function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+
+ { Private declarations }
+ public
+ procedure InitGrid();
+ function SaveData(mPSid: string): Boolean;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint,U_ProductInfoSel;
+{$R *.dfm}
+
+procedure TframeCCQXList.InitGrid();
+begin
+// POSNO.SetFocus;
+// try
+// ADOQueryMain.DisableControls;
+// with ADOQueryMain do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* from BS_Position A order by POSNO ');
+// Open;
+// end;
+// SCreateCDS(ADOQueryMain, CDS_HZ);
+// SInitCDSData(ADOQueryMain, CDS_HZ);
+// finally
+// ADOQueryMain.EnableControls;
+// ToolButton2.Click;
+// end;
+end;
+
+procedure TframeCCQXList.TbCCQXAddClick(Sender: TObject);
+begin
+ with CDS_CCQX do
+ begin
+ Append;
+ CDS_CCQX.FieldByName('serialno').Value := CDS_CCQX.RecordCount + 1;
+ Post;
+ end;
+end;
+
+procedure TframeCCQXList.TbccqxClearClick(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_ccqx, 'ϴ¿');
+end;
+
+procedure TframeCCQXList.TbCCQXDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_CCQX.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_CCQX.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_CCQX.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_CCQX.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_CCQX.First;
+ while not CDS_CCQX.Eof do
+ begin
+ i := i + 1;
+ CDS_CCQX.Edit;
+ CDS_CCQX.fieldByName('serialno').value := i;
+ CDS_CCQX.Post;
+ CDS_CCQX.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TframeCCQXList.TbCCQXReplaceClick(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_ccqx, 'ϴ¿', FindLastEditedTextEdit(panel_ccqx, 'ϴ¿'));
+end;
+
+procedure TframeCCQXList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TframeCCQXList.ToolButton3Click(Sender: TObject);
+var
+ RTValues: TArray;
+begin
+
+ if CDS_HZ.IsEmpty then
+ Exit;
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+ RTValues := SelCDSKey(CDS_HZ, ['POSID']);
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'Position';
+ FFiltration1 := RTValues[0];
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TframeCCQXList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_HZ.IsEmpty then
+ Exit;
+
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ with CDS_HZ do
+ begin
+ while not Eof do
+ begin
+ if CDS_HZ.Locate('SSel', True, []) = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Position where POSID=' + QuotedStr(CDS_HZ.FieldByName('POSID').AsString));
+ ExecSQL;
+ end;
+ end;
+
+ CDS_HZ.Edit;
+ CDS_HZ.FieldByName('SSel').Value := False;
+ CDS_HZ.Post;
+ Next;
+ end;
+ end;
+ InitGrid();
+end;
+
+procedure TframeCCQXList.Tv1ccqx_ratePropertiesEditValueChanged(
+ Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ TvCCQX.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ TvCCQX.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+function TframeCCQXList.SaveData(mPSid: string): Boolean;
+var
+ MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
+ maxsubid1, maxsubid2, maxsubid3, maxsubid4, maxsubid5, maxsubid6, mmaxgx: string;
+begin
+ try
+
+//////////////// //////////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(mPSid) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(mPSid) = '' then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ FieldByName('PSID').Value := Trim(mPSid);
+
+ RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', Panel_ccqx, 2);
+ ADOQueryCmd.Post;
+
+ ////////////////// 泤ϴӱ //////////////////////
+ with CDS_CCQX do
+ begin
+ First;
+ while not Eof do
+ begin
+
+ if Trim(CDS_CCQX.fieldbyname('BCPID').AsString) = '' then
+ begin
+ if GetLSNo(ADOQueryTemp, maxsubid1, 'CCQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then
+ begin
+ ADOQueryCmd.Connection.RollbackTrans;
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ end
+ else
+ begin
+ maxsubid1 := Trim(CDS_CCQX.fieldbyname('BCPID').AsString);
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Sub where ');
+ sql.Add(' BCPID=''' + Trim(maxsubid1) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(CDS_CCQX.fieldbyname('BCPID').AsString) = '' then
+ begin
+ Append;
+
+ end
+ else
+ begin
+ Edit;
+
+ end;
+ FieldByName('GYType').Value := 'ϴ';
+ FieldByName('PSID').Value := Trim(mPSid);
+ FieldByName('BCPID').Value := Trim(maxsubid1);
+ RTSetSaveDataCDS(ADOQueryCmd, TvCCQX, CDS_CCQX, 'Bs_Cloth_GY_Sub', 0);
+ Post;
+ end;
+
+ Next;
+ end;
+ end;
+//////////////// 泤ϴӱ //////////////////////
+
+
+ end;
+//////////////// //////////////////////
+
+
+// FPSID := maxId;
+ Result := True;
+ except
+ Result := False;
+
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+end;
+
+
+procedure TframeCCQXList.cxGridDBColumn2PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_CCQX do
+ begin
+ Edit;
+ FieldByName('ccqx_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('ccqx_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+
+ FieldByName('ccqx_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ FieldByName('BPIID').Value := frmProductInfoSel.CDS_1.fieldbyname('BPIID').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TframeCCQXList.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ
+var
+ i: Integer;
+ AControl: TControl;
+ ATextEdit: TcxTextEdit;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then
+ begin
+ ATextEdit := AControl as TcxTextEdit;
+ if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then
+ ATextEdit.Text := AValue;
+ end;
+ end;
+end;
+
+procedure TframeCCQXList.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+var
+ i: Integer;
+ AControl: TControl;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ // Ƿ TcxTextEdit Hint ƥ䣬ҲųĿؼ
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then
+ begin
+ TcxTextEdit(AControl).Text := ''; // ֱ
+ end;
+ end;
+end;
+
+function TframeCCQXList.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+var
+ i, j: Integer;
+ AControl: TControl;
+ SortedControls: TList;
+ TempControl: TControl;
+begin
+ Result := '';
+
+ // ûӿؼֱӷؿ
+ if AParent.ControlCount = 0 then
+ Exit;
+
+ // ʹ TList 洢ؼݾɰ Delphi
+ SortedControls := TList.Create;
+ try
+ // ӿؼӵб
+ for i := 0 to AParent.ControlCount - 1 do
+ SortedControls.Add(AParent.Controls[i]);
+
+ // ֶ TopY꣩ LeftX꣩
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ for j := i + 1 to SortedControls.Count - 1 do
+ begin
+ // Ƚؼ Top Left
+ if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then
+ begin
+ // λ
+ TempControl := TControl(SortedControls[i]);
+ SortedControls[i] := SortedControls[j];
+ SortedControls[j] := TempControl;
+ end;
+ end;
+ end;
+ // Ŀؼ
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ AControl := TControl(SortedControls[i]);
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then
+ begin
+ Result := TcxTextEdit(AControl).Text; // һĻᱻ
+ end;
+ end;
+ finally
+ SortedControls.Free;
+ end;
+end;
+
+end.
+
diff --git a/F02染色计划单/U_frameFPList.dfm b/F02染色计划单/U_frameFPList.dfm
new file mode 100644
index 0000000..eb80967
--- /dev/null
+++ b/F02染色计划单/U_frameFPList.dfm
@@ -0,0 +1,462 @@
+object frameFPList: TframeFPList
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 137
+ TabOrder = 0
+ object Panel_FP: TPanel
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 157
+ Align = alTop
+ TabOrder = 0
+ object LabelFP: TLabel
+ Left = 4
+ Top = 4
+ Width = 24
+ Height = 12
+ Caption = #21457#27873
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object cxLabel290: TcxLabel
+ Left = 40
+ Top = 4
+ Caption = #36710#36895'(M/Min)'
+ end
+ object fp_speed: TcxTextEdit
+ Tag = 2
+ Left = 114
+ Top = 4
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 1
+ Width = 50
+ end
+ object fp_gjNumber: TcxTextEdit
+ Tag = 2
+ Left = 219
+ Top = 4
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 2
+ Width = 50
+ end
+ object cxLabel279: TcxLabel
+ Left = 167
+ Top = 4
+ Caption = #21038#33014#27425#25968
+ end
+ object TbFPReplace2: TcxButton
+ Left = 9
+ Top = 30
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 4
+ OnClick = TbFPReplace2Click
+ end
+ object TbFPClear2: TcxButton
+ Left = 66
+ Top = 30
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 5
+ OnClick = TbFPClear2Click
+ end
+ object cxLabel284: TcxLabel
+ Left = 68
+ Top = 56
+ Caption = '2#'
+ end
+ object cxLabel286: TcxLabel
+ Left = 16
+ Top = 56
+ Caption = '1#'
+ end
+ object cxLabel287: TcxLabel
+ Left = 223
+ Top = 56
+ Caption = '5#'
+ end
+ object cxLabel288: TcxLabel
+ Left = 117
+ Top = 91
+ Caption = '9#'
+ end
+ object cxLabel297: TcxLabel
+ Left = 275
+ Top = 56
+ Caption = '6#'
+ end
+ object cxLabel299: TcxLabel
+ Left = 120
+ Top = 56
+ Caption = '3#'
+ end
+ object cxLabel300: TcxLabel
+ Left = 171
+ Top = 56
+ Caption = '4#'
+ end
+ object cxLabel301: TcxLabel
+ Left = 16
+ Top = 91
+ Caption = '7#'
+ end
+ object cxLabel302: TcxLabel
+ Left = 66
+ Top = 91
+ Caption = '8#'
+ end
+ object cxLabel303: TcxLabel
+ Left = 167
+ Top = 91
+ Caption = '10#'
+ end
+ object cxLabel323: TcxLabel
+ Left = 223
+ Top = 91
+ Caption = '11#'
+ end
+ object fp_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 4
+ Top = 72
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 17
+ Width = 40
+ end
+ object fp_temperature10: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 106
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 18
+ Width = 40
+ end
+ object fp_temperature11: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 106
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 19
+ Width = 40
+ end
+ object fp_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 55
+ Top = 72
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 20
+ Width = 40
+ end
+ object fp_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 72
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 21
+ Width = 40
+ end
+ object fp_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 72
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 22
+ Width = 40
+ end
+ object fp_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 72
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 23
+ Width = 40
+ end
+ object fp_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 260
+ Top = 72
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 24
+ Width = 40
+ end
+ object fp_temperature7: TcxTextEdit
+ Tag = 2
+ Left = 4
+ Top = 106
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 25
+ Width = 40
+ end
+ object fp_temperature8: TcxTextEdit
+ Tag = 2
+ Left = 55
+ Top = 106
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 26
+ Width = 40
+ end
+ object fp_temperature9: TcxTextEdit
+ Tag = 2
+ Left = 107
+ Top = 106
+ Hint = #21457#27873#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 27
+ Width = 40
+ end
+ object cxGrid6: TcxGrid
+ Left = 328
+ Top = 7
+ Width = 200
+ Height = 120
+ TabOrder = 28
+ object TvFP: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_FP
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object cxGridDBColumn14: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'fp_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn14PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn17: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'fp_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = cxGridDBColumn17PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object TvFPserialno: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 60
+ end
+ object TvFPfp_spel: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'fp_spel'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TvFPfp_unit: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'fp_unit'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TvFPBPIID: TcxGridDBColumn
+ Caption = #21161#21058#20027#38190
+ DataBinding.FieldName = 'BPIID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel5: TcxGridLevel
+ GridView = TvFP
+ end
+ end
+ object cxLabel8: TcxLabel
+ Left = 534
+ Top = 61
+ Caption = #22791#27880
+ end
+ object TbFPAdd: TcxButton
+ Left = 287
+ Top = 7
+ Width = 40
+ Height = 20
+ Caption = #22686#34892
+ TabOrder = 30
+ OnClick = TbFPAddClick
+ end
+ object TbFPDel: TcxButton
+ Left = 287
+ Top = 38
+ Width = 40
+ Height = 20
+ Caption = #21024#34892
+ TabOrder = 31
+ OnClick = TbFPDelClick
+ end
+ object fp_Precautions: TcxMemo
+ Tag = 2
+ Left = 568
+ Top = 46
+ Properties.Alignment = taLeftJustify
+ Properties.ScrollBars = ssVertical
+ TabOrder = 32
+ Height = 50
+ Width = 140
+ end
+ object cxLabel12: TcxLabel
+ Left = 117
+ Top = 33
+ Caption = #24038#38388#38553
+ end
+ object fp_leftGap: TcxTextEdit
+ Tag = 2
+ Left = 156
+ Top = 33
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 34
+ Width = 40
+ end
+ object cxLabel13: TcxLabel
+ Left = 197
+ Top = 33
+ Caption = #21491#38388#38553
+ end
+ object fp_rightGap: TcxTextEdit
+ Tag = 2
+ Left = 235
+ Top = 33
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 36
+ Width = 40
+ end
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 187
+ Top = 207
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 284
+ Top = 206
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 361
+ Top = 207
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 427
+ Top = 193
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 491
+ Top = 212
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 264
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 146
+ Top = 311
+ object N1: TMenuItem
+ Caption = #20840#36873
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ end
+ end
+ object CDS_FP: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 949
+ Top = 3
+ end
+ object DS_FP: TDataSource
+ DataSet = CDS_FP
+ Left = 949
+ Top = 51
+ end
+end
diff --git a/F02染色计划单/U_frameFPList.pas b/F02染色计划单/U_frameFPList.pas
new file mode 100644
index 0000000..a81259d
--- /dev/null
+++ b/F02染色计划单/U_frameFPList.pas
@@ -0,0 +1,509 @@
+unit U_frameFPList;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+ cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxCheckBox,
+ cxTextEdit, dxBarBuiltInMenu, Vcl.Menus, cxGridCustomPopupMenu,
+ cxGridPopupMenu, Datasnap.DBClient, Data.Win.ADODB, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin,
+ Vcl.ExtCtrls, dxSkinsCore, dxSkinsDefaultPainters, cxMemo, cxLabel, cxMaskEdit,
+ cxDropDownEdit, cxButtonEdit, cxButtons;
+
+type
+ TframeFPList = class(TFrame)
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ Panel_FP: TPanel;
+ LabelFP: TLabel;
+ cxLabel290: TcxLabel;
+ fp_speed: TcxTextEdit;
+ fp_gjNumber: TcxTextEdit;
+ cxLabel279: TcxLabel;
+ TbFPReplace2: TcxButton;
+ TbFPClear2: TcxButton;
+ cxLabel284: TcxLabel;
+ cxLabel286: TcxLabel;
+ cxLabel287: TcxLabel;
+ cxLabel288: TcxLabel;
+ cxLabel297: TcxLabel;
+ cxLabel299: TcxLabel;
+ cxLabel300: TcxLabel;
+ cxLabel301: TcxLabel;
+ cxLabel302: TcxLabel;
+ cxLabel303: TcxLabel;
+ cxLabel323: TcxLabel;
+ fp_temperature1: TcxTextEdit;
+ fp_temperature10: TcxTextEdit;
+ fp_temperature11: TcxTextEdit;
+ fp_temperature2: TcxTextEdit;
+ fp_temperature3: TcxTextEdit;
+ fp_temperature4: TcxTextEdit;
+ fp_temperature5: TcxTextEdit;
+ fp_temperature6: TcxTextEdit;
+ fp_temperature7: TcxTextEdit;
+ fp_temperature8: TcxTextEdit;
+ fp_temperature9: TcxTextEdit;
+ cxGrid6: TcxGrid;
+ TvFP: TcxGridDBTableView;
+ cxGridDBColumn14: TcxGridDBColumn;
+ cxGridDBColumn17: TcxGridDBColumn;
+ TvFPserialno: TcxGridDBColumn;
+ cxGridLevel5: TcxGridLevel;
+ cxLabel8: TcxLabel;
+ TbFPAdd: TcxButton;
+ TbFPDel: TcxButton;
+ fp_Precautions: TcxMemo;
+ cxLabel12: TcxLabel;
+ fp_leftGap: TcxTextEdit;
+ cxLabel13: TcxLabel;
+ fp_rightGap: TcxTextEdit;
+ CDS_FP: TClientDataSet;
+ DS_FP: TDataSource;
+ TvFPfp_spel: TcxGridDBColumn;
+ TvFPfp_unit: TcxGridDBColumn;
+ TvFPBPIID: TcxGridDBColumn;
+ procedure TBRafreshClick(Sender: TObject);
+
+ procedure ToolButton5Click(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure TbFPReplace2Click(Sender: TObject);
+ procedure TbFPClear2Click(Sender: TObject);
+ procedure TbFPAddClick(Sender: TObject);
+ procedure TbFPDelClick(Sender: TObject);
+ procedure cxGridDBColumn14PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+ procedure cxGridDBColumn17PropertiesEditValueChanged(Sender: TObject);
+
+ private
+ procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
+ procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+ function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+
+ { Private declarations }
+ public
+ procedure InitGrid();
+ function SaveData(mPSID :String): Boolean;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint,U_ProductInfoSel;
+{$R *.dfm}
+
+procedure TframeFPList.InitGrid();
+begin
+//
+// with ADOQueryMain do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* from BS_Position A order by POSNO ');
+// Open;
+// end;
+// with ADOQueryTemp do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* FROM V_Dye_Technics_Details A');
+// sql.Add(' Where A.PSID=''' + trim(fpsid) + '''');
+//// SQL.Add(' and A.PSID = ''' + trim(CDS_2.fieldbyname('PSID').AsString) + '''');
+// Open;
+// end;
+// with ADOQueryCmd do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* FROM BS_Cloth_GY_Sub A');
+// sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + '''');
+//// SQL.Add(' and A.PSID = ''' + trim(CDS_2.fieldbyname('PSID').AsString) + '''');
+// Open;
+// end;
+end;
+
+procedure TframeFPList.TbFPAddClick(Sender: TObject);
+begin
+ with CDS_FP do
+ begin
+ Append;
+ CDS_FP.FieldByName('serialno').Value := CDS_FP.RecordCount + 1;
+ Post;
+ end;
+end;
+
+procedure TframeFPList.TbFPClear2Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_Fp, '¿');
+end;
+
+procedure TframeFPList.TbFPDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_FP.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_FP.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_FP.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_FP.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_FP.First;
+ while not CDS_FP.Eof do
+ begin
+ i := i + 1;
+ CDS_FP.Edit;
+ CDS_FP.fieldByName('serialno').value := i;
+ CDS_FP.Post;
+ CDS_FP.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TframeFPList.TbFPReplace2Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_fp, '¿', FindLastEditedTextEdit(panel_fp, '¿'));
+end;
+
+procedure TframeFPList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TframeFPList.ToolButton3Click(Sender: TObject);
+var
+ RTValues: TArray;
+begin
+
+ if CDS_HZ.IsEmpty then
+ Exit;
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+ RTValues := SelCDSKey(CDS_HZ, ['POSID']);
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'Position';
+ FFiltration1 := RTValues[0];
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TframeFPList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_HZ.IsEmpty then
+ Exit;
+
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ with CDS_HZ do
+ begin
+ while not Eof do
+ begin
+ if CDS_HZ.Locate('SSel', True, []) = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Position where POSID=' + QuotedStr(CDS_HZ.FieldByName('POSID').AsString));
+ ExecSQL;
+ end;
+ end;
+
+ CDS_HZ.Edit;
+ CDS_HZ.FieldByName('SSel').Value := False;
+ CDS_HZ.Post;
+ Next;
+ end;
+ end;
+ InitGrid();
+end;
+
+function TframeFPList.SaveData(mPSID :String) : Boolean;
+var
+ MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
+ maxsubid1, maxsubid2, maxsubid3, maxsubid4, maxsubid5, maxsubid6, mmaxgx: string;
+begin
+ try
+
+
+
+
+//////////////// //////////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(mPSID) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(mPSID) = '' then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ FieldByName('PSID').Value := Trim(mPSID);
+
+ RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_fp, 2);
+ ADOQueryCmd.Post;
+
+ /// ////////////////// 淢ӱ //////////////////////
+ with CDS_FP do
+ begin
+ First;
+ while not Eof do
+ begin
+ if Trim(CDS_FP.Fieldbyname('BCPID').AsString) = '' then
+ begin
+ if GetLSNo(ADOQueryTemp, maxsubid6, 'FP', 'Bs_Cloth_GY_Sub', 5, 1) = False then
+ begin
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ end
+ else
+ begin
+ maxsubid6 := Trim(CDS_FP.fieldbyname('BCPID').AsString);
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Sub where ');
+ sql.Add('BCPID=''' + Trim(maxsubid6) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(CDS_FP.fieldbyname('BCPID').AsString) = '' then
+ begin
+ Append;
+
+ end
+ else
+ begin
+ Edit;
+
+ end;
+ FieldByName('GYType').Value := '';
+ FieldByName('PSID').Value := Trim(mPSID);
+ FieldByName('BCPID').Value := Trim(maxsubid6);
+ RTSetSaveDataCDS(ADOQueryCmd, TvFP, CDS_FP, 'Bs_Cloth_GY_Sub', 0);
+ Post;
+ end;
+ Next;
+ end;
+ end;
+//////////////// 淢ӱ //////////////////////
+ end;
+
+//////////////// //////////////////////
+
+
+
+// FPSID := maxId;
+ Result := True;
+ except
+ Result := False;
+
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+end;
+
+
+
+
+procedure TframeFPList.cxGridDBColumn14PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_FP do
+ begin
+ Edit;
+ FieldByName('fp_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('fp_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+ FieldByName('fp_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ FieldByName('BPIID').Value := frmProductInfoSel.CDS_1.fieldbyname('BPIID').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TframeFPList.cxGridDBColumn17PropertiesEditValueChanged(
+ Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ TvFP.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ TvFP.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TframeFPList.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ
+var
+ i: Integer;
+ AControl: TControl;
+ ATextEdit: TcxTextEdit;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then
+ begin
+ ATextEdit := AControl as TcxTextEdit;
+ if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then
+ ATextEdit.Text := AValue;
+ end;
+ end;
+end;
+
+procedure TframeFPList.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+var
+ i: Integer;
+ AControl: TControl;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ // Ƿ TcxTextEdit Hint ƥ䣬ҲųĿؼ
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then
+ begin
+ TcxTextEdit(AControl).Text := ''; // ֱ
+ end;
+ end;
+end;
+
+function TframeFPList.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+var
+ i, j: Integer;
+ AControl: TControl;
+ SortedControls: TList;
+ TempControl: TControl;
+begin
+ Result := '';
+
+ // ûӿؼֱӷؿ
+ if AParent.ControlCount = 0 then
+ Exit;
+
+ // ʹ TList 洢ؼݾɰ Delphi
+ SortedControls := TList.Create;
+ try
+ // ӿؼӵб
+ for i := 0 to AParent.ControlCount - 1 do
+ SortedControls.Add(AParent.Controls[i]);
+
+ // ֶ TopY꣩ LeftX꣩
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ for j := i + 1 to SortedControls.Count - 1 do
+ begin
+ // Ƚؼ Top Left
+ if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then
+ begin
+ // λ
+ TempControl := TControl(SortedControls[i]);
+ SortedControls[i] := SortedControls[j];
+ SortedControls[j] := TempControl;
+ end;
+ end;
+ end;
+ // Ŀؼ
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ AControl := TControl(SortedControls[i]);
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then
+ begin
+ Result := TcxTextEdit(AControl).Text; // һĻᱻ
+ end;
+ end;
+ finally
+ SortedControls.Free;
+ end;
+end;
+
+
+
+
+end.
+
diff --git a/F02染色计划单/U_frameFSList.dfm b/F02染色计划单/U_frameFSList.dfm
new file mode 100644
index 0000000..e9f3c48
--- /dev/null
+++ b/F02染色计划单/U_frameFSList.dfm
@@ -0,0 +1,445 @@
+object frameFSList: TframeFSList
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 132
+ TabOrder = 0
+ object Panel_FS: TPanel
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 136
+ Align = alTop
+ TabOrder = 0
+ object LabelFS: TLabel
+ Left = 4
+ Top = 3
+ Width = 48
+ Height = 12
+ Caption = #19979#27700#23450#22411
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object cxLabel198: TcxLabel
+ Left = 60
+ Top = 4
+ Caption = #36710#36895'(M/Min)'
+ end
+ object fs_speed: TcxTextEdit
+ Tag = 2
+ Left = 136
+ Top = 4
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 1
+ Width = 50
+ end
+ object FS_Style: TcxComboBox
+ Tag = 2
+ Left = 196
+ Top = 4
+ Properties.Items.Strings = (
+ ''
+ #28165#27700
+ #38450#27700
+ #25239#33740
+ #38450#32432#35010)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 2
+ Width = 70
+ end
+ object fs_isVacuun: TcxComboBox
+ Tag = 2
+ Left = 196
+ Top = 30
+ Properties.Items.Strings = (
+ ''
+ #26159
+ #21542)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 3
+ Width = 70
+ end
+ object TbFSReplace2: TcxButton
+ Left = 9
+ Top = 30
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 4
+ OnClick = TbFSReplace2Click
+ end
+ object TBFScLEAR2: TcxButton
+ Left = 66
+ Top = 30
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 5
+ OnClick = TBFScLEAR2Click
+ end
+ object cxLabel192: TcxLabel
+ Left = 68
+ Top = 56
+ Caption = '2#'
+ end
+ object cxLabel194: TcxLabel
+ Left = 16
+ Top = 56
+ Caption = '1#'
+ end
+ object cxLabel195: TcxLabel
+ Left = 223
+ Top = 56
+ Caption = '5#'
+ end
+ object cxLabel196: TcxLabel
+ Left = 117
+ Top = 89
+ Caption = '9#'
+ end
+ object cxLabel205: TcxLabel
+ Left = 275
+ Top = 56
+ Caption = '6#'
+ end
+ object cxLabel207: TcxLabel
+ Left = 120
+ Top = 56
+ Caption = '3#'
+ end
+ object cxLabel208: TcxLabel
+ Left = 171
+ Top = 56
+ Caption = '4#'
+ end
+ object cxLabel209: TcxLabel
+ Left = 16
+ Top = 89
+ Caption = '7#'
+ end
+ object cxLabel210: TcxLabel
+ Left = 66
+ Top = 89
+ Caption = '8#'
+ end
+ object cxLabel211: TcxLabel
+ Left = 167
+ Top = 89
+ Caption = '10#'
+ end
+ object cxLabel231: TcxLabel
+ Left = 223
+ Top = 89
+ Caption = '11#'
+ end
+ object fs_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 4
+ Top = 71
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 17
+ Width = 40
+ end
+ object fs_temperature10: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 104
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 18
+ Width = 40
+ end
+ object fs_temperature11: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 104
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 19
+ Width = 40
+ end
+ object fs_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 55
+ Top = 71
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 20
+ Width = 40
+ end
+ object fs_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 71
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 21
+ Width = 40
+ end
+ object fs_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 71
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 22
+ Width = 40
+ end
+ object fs_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 71
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 23
+ Width = 40
+ end
+ object fs_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 260
+ Top = 71
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 24
+ Width = 40
+ end
+ object fs_temperature7: TcxTextEdit
+ Tag = 2
+ Left = 4
+ Top = 104
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 25
+ Width = 40
+ end
+ object fs_temperature8: TcxTextEdit
+ Tag = 2
+ Left = 55
+ Top = 104
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 26
+ Width = 40
+ end
+ object fs_temperature9: TcxTextEdit
+ Tag = 2
+ Left = 107
+ Top = 104
+ Hint = #38450#27700#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 27
+ Width = 40
+ end
+ object cxGrid7: TcxGrid
+ Left = 328
+ Top = 6
+ Width = 200
+ Height = 120
+ TabOrder = 28
+ object TvFS: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_FS
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object cxGridDBColumn19: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'fs_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn19PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn22: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'fs_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = cxGridDBColumn22PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object TvFSColumn1: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 60
+ end
+ object TvFSfs_spel: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'fs_spel'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TvFSfs_unit: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'fs_unit'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 80
+ end
+ object TvFSBPIID: TcxGridDBColumn
+ Caption = #21161#21058#20027#38190
+ DataBinding.FieldName = 'BPIID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel6: TcxGridLevel
+ GridView = TvFS
+ end
+ end
+ object cxLabel7: TcxLabel
+ Left = 534
+ Top = 57
+ Caption = #22791#27880
+ end
+ object TbFSAdd: TcxButton
+ Left = 287
+ Top = 6
+ Width = 40
+ Height = 20
+ Caption = #22686#34892
+ TabOrder = 30
+ OnClick = TbFSAddClick
+ end
+ object TbFSDel: TcxButton
+ Left = 287
+ Top = 37
+ Width = 40
+ Height = 20
+ Caption = #21024#34892
+ TabOrder = 31
+ OnClick = TbFSDelClick
+ end
+ object fs_Precautions: TcxMemo
+ Tag = 2
+ Left = 568
+ Top = 42
+ Properties.Alignment = taLeftJustify
+ Properties.ScrollBars = ssVertical
+ TabOrder = 32
+ Height = 50
+ Width = 140
+ end
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 187
+ Top = 207
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 284
+ Top = 206
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 361
+ Top = 207
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 427
+ Top = 193
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 491
+ Top = 212
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 264
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 146
+ Top = 311
+ object N1: TMenuItem
+ Caption = #20840#36873
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ end
+ end
+ object CDS_fS: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 1023
+ Top = 11
+ end
+ object DS_FS: TDataSource
+ DataSet = CDS_fS
+ Left = 1039
+ Top = 62
+ end
+end
diff --git a/F02染色计划单/U_frameFSList.pas b/F02染色计划单/U_frameFSList.pas
new file mode 100644
index 0000000..8f2b7c1
--- /dev/null
+++ b/F02染色计划单/U_frameFSList.pas
@@ -0,0 +1,495 @@
+unit U_frameFSList;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+ cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxCheckBox,
+ cxTextEdit, dxBarBuiltInMenu, Vcl.Menus, cxGridCustomPopupMenu,
+ cxGridPopupMenu, Datasnap.DBClient, Data.Win.ADODB, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin,
+ Vcl.ExtCtrls, dxSkinsCore, dxSkinsDefaultPainters, cxMemo, cxLabel, cxMaskEdit,
+ cxDropDownEdit, cxButtonEdit, cxButtons;
+
+type
+ TframeFSList = class(TFrame)
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ Panel_FS: TPanel;
+ LabelFS: TLabel;
+ cxLabel198: TcxLabel;
+ fs_speed: TcxTextEdit;
+ FS_Style: TcxComboBox;
+ fs_isVacuun: TcxComboBox;
+ TbFSReplace2: TcxButton;
+ TBFScLEAR2: TcxButton;
+ cxLabel192: TcxLabel;
+ cxLabel194: TcxLabel;
+ cxLabel195: TcxLabel;
+ cxLabel196: TcxLabel;
+ cxLabel205: TcxLabel;
+ cxLabel207: TcxLabel;
+ cxLabel208: TcxLabel;
+ cxLabel209: TcxLabel;
+ cxLabel210: TcxLabel;
+ cxLabel211: TcxLabel;
+ cxLabel231: TcxLabel;
+ fs_temperature1: TcxTextEdit;
+ fs_temperature10: TcxTextEdit;
+ fs_temperature11: TcxTextEdit;
+ fs_temperature2: TcxTextEdit;
+ fs_temperature3: TcxTextEdit;
+ fs_temperature4: TcxTextEdit;
+ fs_temperature5: TcxTextEdit;
+ fs_temperature6: TcxTextEdit;
+ fs_temperature7: TcxTextEdit;
+ fs_temperature8: TcxTextEdit;
+ fs_temperature9: TcxTextEdit;
+ cxGrid7: TcxGrid;
+ TvFS: TcxGridDBTableView;
+ cxGridDBColumn19: TcxGridDBColumn;
+ cxGridDBColumn22: TcxGridDBColumn;
+ TvFSColumn1: TcxGridDBColumn;
+ cxGridLevel6: TcxGridLevel;
+ cxLabel7: TcxLabel;
+ TbFSAdd: TcxButton;
+ TbFSDel: TcxButton;
+ fs_Precautions: TcxMemo;
+ CDS_fS: TClientDataSet;
+ DS_FS: TDataSource;
+ TvFSfs_spel: TcxGridDBColumn;
+ TvFSfs_unit: TcxGridDBColumn;
+ TvFSBPIID: TcxGridDBColumn;
+ procedure TBRafreshClick(Sender: TObject);
+
+ procedure ToolButton5Click(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure TbFSReplace2Click(Sender: TObject);
+ procedure TBFScLEAR2Click(Sender: TObject);
+ procedure TbFSAddClick(Sender: TObject);
+ procedure TbFSDelClick(Sender: TObject);
+ procedure cxGridDBColumn19PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+ procedure cxGridDBColumn22PropertiesEditValueChanged(Sender: TObject);
+
+ private
+ procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
+ procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+ function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+
+ { Private declarations }
+ public
+ procedure InitGrid();
+ function SaveData(mPSID: string): Boolean;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint,U_ProductInfoSel;
+{$R *.dfm}
+
+procedure TframeFSList.InitGrid();
+begin
+// POSNO.SetFocus;
+// try
+// ADOQueryMain.DisableControls;
+// with ADOQueryMain do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* from BS_Position A order by POSNO ');
+// Open;
+// end;
+// SCreateCDS(ADOQueryMain, CDS_HZ);
+// SInitCDSData(ADOQueryMain, CDS_HZ);
+// finally
+// ADOQueryMain.EnableControls;
+// ToolButton2.Click;
+// end;
+end;
+
+procedure TframeFSList.TbFSAddClick(Sender: TObject);
+begin
+ with CDS_FS do
+ begin
+ Append;
+ CDS_FS.FieldByName('serialno').Value := CDS_FS.RecordCount + 1;
+ Post;
+ end;
+end;
+
+procedure TframeFSList.TBFScLEAR2Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_FS, 'ˮ¿');
+end;
+
+procedure TframeFSList.TbFSDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_FS.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_FS.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_FS.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_FS.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_FS.First;
+ while not CDS_FS.Eof do
+ begin
+ i := i + 1;
+ CDS_FS.Edit;
+ CDS_FS.fieldByName('serialno').value := i;
+ CDS_FS.Post;
+ CDS_FS.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TframeFSList.TbFSReplace2Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_fs, 'ˮ¿', FindLastEditedTextEdit(panel_fs, 'ˮ¿'));
+end;
+
+procedure TframeFSList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TframeFSList.ToolButton3Click(Sender: TObject);
+var
+ RTValues: TArray;
+begin
+
+ if CDS_HZ.IsEmpty then
+ Exit;
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+ RTValues := SelCDSKey(CDS_HZ, ['POSID']);
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'Position';
+ FFiltration1 := RTValues[0];
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TframeFSList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_HZ.IsEmpty then
+ Exit;
+
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ with CDS_HZ do
+ begin
+ while not Eof do
+ begin
+ if CDS_HZ.Locate('SSel', True, []) = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Position where POSID=' + QuotedStr(CDS_HZ.FieldByName('POSID').AsString));
+ ExecSQL;
+ end;
+ end;
+
+ CDS_HZ.Edit;
+ CDS_HZ.FieldByName('SSel').Value := False;
+ CDS_HZ.Post;
+ Next;
+ end;
+ end;
+ InitGrid();
+end;
+
+function TframeFSList.SaveData(mPSID: string): Boolean;
+var
+ MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
+ maxsubid1, maxsubid2, maxsubid3, maxsubid4, maxsubid5, maxsubid6, mmaxgx: string;
+begin
+ try
+
+
+
+
+
+
+//////////////// //////////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(mPSID) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(mPSID) = '' then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ FieldByName('PSID').Value := Trim(mPSID);
+
+ RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_fs, 2);
+ ADOQueryCmd.Post;
+
+
+ with CDS_fS do
+ begin
+ First;
+ while not Eof do
+ begin
+
+ if Trim(CDS_fS.fieldbyname('BCPID').AsString) = '' then
+ begin
+ if GetLSNo(ADOQueryTemp, maxsubid4, 'FS', 'Bs_Cloth_GY_Sub', 5, 1) = False then
+ begin
+
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ end
+ else
+ begin
+ maxsubid4 := Trim(CDS_fS.fieldbyname('BCPID').AsString);
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Sub where ');
+ sql.Add(' BCPID=''' + Trim(maxsubid4) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(CDS_fS.fieldbyname('BCPID').AsString) = '' then
+ begin
+ Append;
+
+ end
+ else
+ begin
+ Edit;
+
+ end;
+ FieldByName('GYType').Value := 'ˮ';
+ FieldByName('PSID').Value := Trim(mPSID);
+ FieldByName('BCPID').Value := Trim(maxsubid4);
+ RTSetSaveDataCDS(ADOQueryCmd, TvFS, CDS_fS, 'Bs_Cloth_GY_Sub', 0);
+ Post;
+ end;
+ Next;
+ end;
+ end;
+
+ end;
+//////////////// //////////////////////
+
+
+
+// FPSID := maxId;
+ Result := True;
+ except
+ Result := False;
+
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+end;
+
+
+procedure TframeFSList.cxGridDBColumn19PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_FS do
+ begin
+ Edit;
+ FieldByName('fs_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('fs_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+ FieldByName('fs_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ FieldByName('BPIID').Value := frmProductInfoSel.CDS_1.fieldbyname('BPIID').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TframeFSList.cxGridDBColumn22PropertiesEditValueChanged(
+ Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ TvFS.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ TvFS.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TframeFSList.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ
+var
+ i: Integer;
+ AControl: TControl;
+ ATextEdit: TcxTextEdit;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then
+ begin
+ ATextEdit := AControl as TcxTextEdit;
+ if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then
+ ATextEdit.Text := AValue;
+ end;
+ end;
+end;
+
+procedure TframeFSList.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+var
+ i: Integer;
+ AControl: TControl;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ // Ƿ TcxTextEdit Hint ƥ䣬ҲųĿؼ
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then
+ begin
+ TcxTextEdit(AControl).Text := ''; // ֱ
+ end;
+ end;
+end;
+
+function TframeFSList.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+var
+ i, j: Integer;
+ AControl: TControl;
+ SortedControls: TList;
+ TempControl: TControl;
+begin
+ Result := '';
+
+ // ûӿؼֱӷؿ
+ if AParent.ControlCount = 0 then
+ Exit;
+
+ // ʹ TList 洢ؼݾɰ Delphi
+ SortedControls := TList.Create;
+ try
+ // ӿؼӵб
+ for i := 0 to AParent.ControlCount - 1 do
+ SortedControls.Add(AParent.Controls[i]);
+
+ // ֶ TopY꣩ LeftX꣩
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ for j := i + 1 to SortedControls.Count - 1 do
+ begin
+ // Ƚؼ Top Left
+ if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then
+ begin
+ // λ
+ TempControl := TControl(SortedControls[i]);
+ SortedControls[i] := SortedControls[j];
+ SortedControls[j] := TempControl;
+ end;
+ end;
+ end;
+ // Ŀؼ
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ AControl := TControl(SortedControls[i]);
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then
+ begin
+ Result := TcxTextEdit(AControl).Text; // һĻᱻ
+ end;
+ end;
+ finally
+ SortedControls.Free;
+ end;
+end;
+
+
+end.
+
diff --git a/F02染色计划单/U_frameGDXList.dfm b/F02染色计划单/U_frameGDXList.dfm
new file mode 100644
index 0000000..3eeeb42
--- /dev/null
+++ b/F02染色计划单/U_frameGDXList.dfm
@@ -0,0 +1,309 @@
+object frameGDXList: TframeGDXList
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 132
+ TabOrder = 0
+ object Panel_dx: TPanel
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 129
+ Align = alTop
+ TabOrder = 0
+ object LabelGDX: TLabel
+ Left = 4
+ Top = 3
+ Width = 36
+ Height = 12
+ Caption = #24178#23450#22411
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object cxLabel4: TcxLabel
+ Left = 57
+ Top = 5
+ Caption = #36710#36895'(M/Min)'
+ end
+ object dx_speed: TcxTextEdit
+ Tag = 2
+ Left = 133
+ Top = 5
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 1
+ Width = 50
+ end
+ object cxLabel21: TcxLabel
+ Left = 68
+ Top = 49
+ Caption = '2#'
+ end
+ object cxLabel23: TcxLabel
+ Left = 16
+ Top = 49
+ Caption = '1#'
+ end
+ object cxLabel24: TcxLabel
+ Left = 223
+ Top = 49
+ Caption = '5#'
+ end
+ object cxLabel25: TcxLabel
+ Left = 117
+ Top = 85
+ Caption = '9#'
+ end
+ object cxLabel6: TcxLabel
+ Left = 275
+ Top = 49
+ Caption = '6#'
+ end
+ object cxLabel61: TcxLabel
+ Left = 120
+ Top = 49
+ Caption = '3#'
+ end
+ object cxLabel62: TcxLabel
+ Left = 171
+ Top = 49
+ Caption = '4#'
+ end
+ object cxLabel63: TcxLabel
+ Left = 16
+ Top = 85
+ Caption = '7#'
+ end
+ object cxLabel64: TcxLabel
+ Left = 66
+ Top = 85
+ Caption = '8#'
+ end
+ object cxLabel65: TcxLabel
+ Left = 167
+ Top = 85
+ Caption = '10#'
+ end
+ object dx_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 5
+ Top = 66
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 12
+ Width = 40
+ end
+ object dx_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 66
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 13
+ Width = 40
+ end
+ object dx_temperature9: TcxTextEdit
+ Tag = 2
+ Left = 107
+ Top = 100
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 14
+ Width = 40
+ end
+ object dx_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 260
+ Top = 66
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 15
+ Width = 40
+ end
+ object dx_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 107
+ Top = 66
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 16
+ Width = 40
+ end
+ object dx_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 66
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 17
+ Width = 40
+ end
+ object dx_temperature7: TcxTextEdit
+ Tag = 2
+ Left = 5
+ Top = 100
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 18
+ Width = 40
+ end
+ object dx_temperature8: TcxTextEdit
+ Tag = 2
+ Left = 56
+ Top = 100
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 19
+ Width = 40
+ end
+ object dx_temperature10: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 100
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 20
+ Width = 40
+ end
+ object dx_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 56
+ Top = 66
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 21
+ Width = 40
+ end
+ object TbDXReplace2: TcxButton
+ Left = 9
+ Top = 26
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 22
+ OnClick = TbDXReplace2Click
+ end
+ object TbDXClear2: TcxButton
+ Left = 66
+ Top = 26
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 23
+ OnClick = TbDXClear2Click
+ end
+ object cxLabel189: TcxLabel
+ Left = 223
+ Top = 85
+ Caption = '11#'
+ end
+ object dx_temperature11: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 100
+ Hint = #24178#23450#22411#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 25
+ Width = 40
+ end
+ object cxLabel5: TcxLabel
+ Left = 534
+ Top = 52
+ Caption = #22791#27880
+ end
+ object dx_Precautions: TcxMemo
+ Tag = 2
+ Left = 568
+ Top = 39
+ Properties.ScrollBars = ssVertical
+ TabOrder = 27
+ Height = 50
+ Width = 140
+ end
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 187
+ Top = 207
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 284
+ Top = 206
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 361
+ Top = 207
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 427
+ Top = 193
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 491
+ Top = 212
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 264
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 146
+ Top = 311
+ object N1: TMenuItem
+ Caption = #20840#36873
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ end
+ end
+end
diff --git a/F02染色计划单/U_frameGDXList.pas b/F02染色计划单/U_frameGDXList.pas
new file mode 100644
index 0000000..44e521f
--- /dev/null
+++ b/F02染色计划单/U_frameGDXList.pas
@@ -0,0 +1,318 @@
+unit U_frameGDXList;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+ cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxCheckBox,
+ cxTextEdit, dxBarBuiltInMenu, Vcl.Menus, cxGridCustomPopupMenu,
+ cxGridPopupMenu, Datasnap.DBClient, Data.Win.ADODB, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin,
+ Vcl.ExtCtrls, dxSkinsCore, dxSkinsDefaultPainters, cxMemo, cxLabel, cxMaskEdit,
+ cxDropDownEdit, cxButtonEdit, cxButtons;
+
+type
+ TframeGDXList = class(TFrame)
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ Panel_dx: TPanel;
+ LabelGDX: TLabel;
+ cxLabel4: TcxLabel;
+ dx_speed: TcxTextEdit;
+ cxLabel21: TcxLabel;
+ cxLabel23: TcxLabel;
+ cxLabel24: TcxLabel;
+ cxLabel25: TcxLabel;
+ cxLabel6: TcxLabel;
+ cxLabel61: TcxLabel;
+ cxLabel62: TcxLabel;
+ cxLabel63: TcxLabel;
+ cxLabel64: TcxLabel;
+ cxLabel65: TcxLabel;
+ dx_temperature1: TcxTextEdit;
+ dx_temperature5: TcxTextEdit;
+ dx_temperature9: TcxTextEdit;
+ dx_temperature6: TcxTextEdit;
+ dx_temperature3: TcxTextEdit;
+ dx_temperature4: TcxTextEdit;
+ dx_temperature7: TcxTextEdit;
+ dx_temperature8: TcxTextEdit;
+ dx_temperature10: TcxTextEdit;
+ dx_temperature2: TcxTextEdit;
+ TbDXReplace2: TcxButton;
+ TbDXClear2: TcxButton;
+ cxLabel189: TcxLabel;
+ dx_temperature11: TcxTextEdit;
+ cxLabel5: TcxLabel;
+ dx_Precautions: TcxMemo;
+ procedure TBRafreshClick(Sender: TObject);
+
+ procedure ToolButton5Click(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure TbDXReplace2Click(Sender: TObject);
+ procedure TbDXClear2Click(Sender: TObject);
+
+ private
+ procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
+ procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+ function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+
+ { Private declarations }
+ public
+ procedure InitGrid();
+ function SaveData(mPSID: string): Boolean;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint;
+{$R *.dfm}
+
+procedure TframeGDXList.InitGrid();
+begin
+// POSNO.SetFocus;
+// try
+// ADOQueryMain.DisableControls;
+// with ADOQueryMain do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* from BS_Position A order by POSNO ');
+// Open;
+// end;
+// SCreateCDS(ADOQueryMain, CDS_HZ);
+// SInitCDSData(ADOQueryMain, CDS_HZ);
+// finally
+// ADOQueryMain.EnableControls;
+// ToolButton2.Click;
+// end;
+end;
+
+procedure TframeGDXList.TbDXClear2Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_DX, 'ɶ¿');
+end;
+
+procedure TframeGDXList.TbDXReplace2Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_dx, 'ɶ¿', FindLastEditedTextEdit(panel_dx, 'ɶ¿'));
+end;
+
+procedure TframeGDXList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TframeGDXList.ToolButton3Click(Sender: TObject);
+var
+ RTValues: TArray;
+begin
+
+ if CDS_HZ.IsEmpty then
+ Exit;
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+ RTValues := SelCDSKey(CDS_HZ, ['POSID']);
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'Position';
+ FFiltration1 := RTValues[0];
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TframeGDXList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_HZ.IsEmpty then
+ Exit;
+
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ with CDS_HZ do
+ begin
+ while not Eof do
+ begin
+ if CDS_HZ.Locate('SSel', True, []) = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Position where POSID=' + QuotedStr(CDS_HZ.FieldByName('POSID').AsString));
+ ExecSQL;
+ end;
+ end;
+
+ CDS_HZ.Edit;
+ CDS_HZ.FieldByName('SSel').Value := False;
+ CDS_HZ.Post;
+ Next;
+ end;
+ end;
+ InitGrid();
+end;
+
+function TframeGDXList.SaveData(mPSID: string): Boolean;
+var
+ MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
+ maxsubid1, maxsubid2, maxsubid3, maxsubid4, maxsubid5, maxsubid6, mmaxgx: string;
+begin
+ try
+
+
+//////////////// //////////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(mPSID) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(mPSID) = '' then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ FieldByName('PSID').Value := Trim(mPSID);
+
+ RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_dx, 2);
+ ADOQueryCmd.Post;
+
+ end;
+//////////////// //////////////////////
+
+
+
+// FPSID := maxId;
+ Result := True;
+ except
+ Result := False;
+
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+end;
+
+
+procedure TframeGDXList.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ
+var
+ i: Integer;
+ AControl: TControl;
+ ATextEdit: TcxTextEdit;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then
+ begin
+ ATextEdit := AControl as TcxTextEdit;
+ if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then
+ ATextEdit.Text := AValue;
+ end;
+ end;
+end;
+
+procedure TframeGDXList.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+var
+ i: Integer;
+ AControl: TControl;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ // Ƿ TcxTextEdit Hint ƥ䣬ҲųĿؼ
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then
+ begin
+ TcxTextEdit(AControl).Text := ''; // ֱ
+ end;
+ end;
+end;
+
+function TframeGDXList.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+var
+ i, j: Integer;
+ AControl: TControl;
+ SortedControls: TList;
+ TempControl: TControl;
+begin
+ Result := '';
+
+ // ûӿؼֱӷؿ
+ if AParent.ControlCount = 0 then
+ Exit;
+
+ // ʹ TList 洢ؼݾɰ Delphi
+ SortedControls := TList.Create;
+ try
+ // ӿؼӵб
+ for i := 0 to AParent.ControlCount - 1 do
+ SortedControls.Add(AParent.Controls[i]);
+
+ // ֶ TopY꣩ LeftX꣩
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ for j := i + 1 to SortedControls.Count - 1 do
+ begin
+ // Ƚؼ Top Left
+ if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then
+ begin
+ // λ
+ TempControl := TControl(SortedControls[i]);
+ SortedControls[i] := SortedControls[j];
+ SortedControls[j] := TempControl;
+ end;
+ end;
+ end;
+ // Ŀؼ
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ AControl := TControl(SortedControls[i]);
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then
+ begin
+ Result := TcxTextEdit(AControl).Text; // һĻᱻ
+ end;
+ end;
+ finally
+ SortedControls.Free;
+ end;
+end;
+
+
+end.
+
diff --git a/F02染色计划单/U_frameGJList.dfm b/F02染色计划单/U_frameGJList.dfm
new file mode 100644
index 0000000..55bc3e0
--- /dev/null
+++ b/F02染色计划单/U_frameGJList.dfm
@@ -0,0 +1,468 @@
+object frameGJList: TframeGJList
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 137
+ TabOrder = 0
+ object Panel_GJ: TPanel
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 136
+ Align = alTop
+ TabOrder = 0
+ object LabelGJ: TLabel
+ Left = 4
+ Top = 3
+ Width = 24
+ Height = 12
+ Caption = #21038#33014
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object cxLabel240: TcxLabel
+ Left = 40
+ Top = 6
+ Caption = #36710#36895'(M/Min)'
+ end
+ object gj_speed: TcxTextEdit
+ Tag = 2
+ Left = 114
+ Top = 6
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 1
+ Width = 50
+ end
+ object cxLabel278: TcxLabel
+ Left = 165
+ Top = 6
+ Caption = #21038#33014#27425#25968
+ end
+ object gj_number: TcxTextEdit
+ Tag = 2
+ Left = 217
+ Top = 6
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 3
+ Width = 50
+ end
+ object TbGJReplace2: TcxButton
+ Left = 9
+ Top = 29
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#26367#25442
+ TabOrder = 4
+ OnClick = TbGJReplace2Click
+ end
+ object TbGJClear2: TcxButton
+ Left = 66
+ Top = 29
+ Width = 50
+ Height = 25
+ Caption = #19968#38190#28165#31354
+ TabOrder = 5
+ OnClick = TbGJClear2Click
+ end
+ object cxLabel234: TcxLabel
+ Left = 68
+ Top = 56
+ Caption = '2#'
+ end
+ object cxLabel236: TcxLabel
+ Left = 16
+ Top = 56
+ Caption = '1#'
+ end
+ object cxLabel237: TcxLabel
+ Left = 223
+ Top = 56
+ Caption = '5#'
+ end
+ object cxLabel238: TcxLabel
+ Left = 117
+ Top = 94
+ Caption = '9#'
+ end
+ object cxLabel247: TcxLabel
+ Left = 275
+ Top = 56
+ Caption = '6#'
+ end
+ object cxLabel249: TcxLabel
+ Left = 120
+ Top = 56
+ Caption = '3#'
+ end
+ object cxLabel250: TcxLabel
+ Left = 171
+ Top = 56
+ Caption = '4#'
+ end
+ object cxLabel251: TcxLabel
+ Left = 16
+ Top = 94
+ Caption = '7#'
+ end
+ object cxLabel252: TcxLabel
+ Left = 66
+ Top = 94
+ Caption = '8#'
+ end
+ object cxLabel253: TcxLabel
+ Left = 167
+ Top = 94
+ Caption = '10#'
+ end
+ object cxLabel273: TcxLabel
+ Left = 223
+ Top = 94
+ Caption = '11#'
+ end
+ object gj_temperature1: TcxTextEdit
+ Tag = 2
+ Left = 4
+ Top = 74
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 17
+ Width = 40
+ end
+ object gj_temperature10: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 109
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 18
+ Width = 40
+ end
+ object gj_temperature11: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 109
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 19
+ Width = 40
+ end
+ object gj_temperature2: TcxTextEdit
+ Tag = 2
+ Left = 55
+ Top = 74
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 20
+ Width = 40
+ end
+ object gj_temperature3: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 74
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 21
+ Width = 40
+ end
+ object gj_temperature4: TcxTextEdit
+ Tag = 2
+ Left = 158
+ Top = 74
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 22
+ Width = 40
+ end
+ object gj_temperature5: TcxTextEdit
+ Tag = 2
+ Left = 209
+ Top = 74
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 23
+ Width = 40
+ end
+ object gj_temperature6: TcxTextEdit
+ Tag = 2
+ Left = 260
+ Top = 74
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 24
+ Width = 40
+ end
+ object gj_temperature7: TcxTextEdit
+ Tag = 2
+ Left = 4
+ Top = 109
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 25
+ Width = 40
+ end
+ object gj_temperature8: TcxTextEdit
+ Tag = 2
+ Left = 55
+ Top = 109
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 26
+ Width = 40
+ end
+ object gj_temperature9: TcxTextEdit
+ Tag = 2
+ Left = 107
+ Top = 109
+ Hint = #21038#33014#28201#25511
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 27
+ Width = 40
+ end
+ object cxGrid8: TcxGrid
+ Left = 328
+ Top = 6
+ Width = 200
+ Height = 120
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 28
+ object TvGJ: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_gj
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object cxGridDBColumn24: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'gj_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn24PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn27: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'gj_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = cxGridDBColumn27PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object TvGJserialno: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 60
+ end
+ object TvGJgj_spel: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'gj_spel'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TvGJgj_unit: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'gj_unit'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TvGJBPIID: TcxGridDBColumn
+ Caption = #21161#21058#20027#38190
+ DataBinding.FieldName = 'BPIID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel7: TcxGridLevel
+ GridView = TvGJ
+ end
+ end
+ object cxLabel9: TcxLabel
+ Left = 534
+ Top = 53
+ Caption = #22791#27880
+ end
+ object TbGJAdd: TcxButton
+ Left = 287
+ Top = 6
+ Width = 40
+ Height = 20
+ Caption = #22686#34892
+ TabOrder = 30
+ OnClick = TbGJAddClick
+ end
+ object TbGJDel: TcxButton
+ Left = 287
+ Top = 37
+ Width = 40
+ Height = 20
+ Caption = #21024#34892
+ TabOrder = 31
+ OnClick = TbGJDelClick
+ end
+ object gj_Precautions: TcxMemo
+ Tag = 2
+ Left = 568
+ Top = 39
+ Properties.Alignment = taLeftJustify
+ Properties.ScrollBars = ssVertical
+ TabOrder = 32
+ Height = 50
+ Width = 140
+ end
+ object cxLabel10: TcxLabel
+ Left = 117
+ Top = 32
+ Caption = #24038#38388#38553
+ end
+ object gj_leftGap: TcxTextEdit
+ Tag = 2
+ Left = 156
+ Top = 32
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 34
+ Width = 40
+ end
+ object cxLabel11: TcxLabel
+ Left = 197
+ Top = 32
+ Caption = #21491#38388#38553
+ end
+ object gj_rightGap: TcxTextEdit
+ Tag = 2
+ Left = 235
+ Top = 32
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 36
+ Width = 40
+ end
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 187
+ Top = 207
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 284
+ Top = 206
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 361
+ Top = 207
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 427
+ Top = 193
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 491
+ Top = 212
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 264
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 146
+ Top = 311
+ object N1: TMenuItem
+ Caption = #20840#36873
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ end
+ end
+ object CDS_gj: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 967
+ Top = 8
+ end
+ object DS_gj: TDataSource
+ DataSet = CDS_gj
+ Left = 967
+ Top = 62
+ end
+end
diff --git a/F02染色计划单/U_frameGJList.pas b/F02染色计划单/U_frameGJList.pas
new file mode 100644
index 0000000..63f9f13
--- /dev/null
+++ b/F02染色计划单/U_frameGJList.pas
@@ -0,0 +1,494 @@
+unit U_frameGJList;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+ cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxCheckBox,
+ cxTextEdit, dxBarBuiltInMenu, Vcl.Menus, cxGridCustomPopupMenu,
+ cxGridPopupMenu, Datasnap.DBClient, Data.Win.ADODB, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin,
+ Vcl.ExtCtrls, dxSkinsCore, dxSkinsDefaultPainters, cxMemo, cxLabel, cxMaskEdit,
+ cxDropDownEdit, cxButtonEdit, cxButtons;
+
+type
+ TframeGJList = class(TFrame)
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ Panel_GJ: TPanel;
+ LabelGJ: TLabel;
+ cxLabel240: TcxLabel;
+ gj_speed: TcxTextEdit;
+ cxLabel278: TcxLabel;
+ gj_number: TcxTextEdit;
+ TbGJReplace2: TcxButton;
+ TbGJClear2: TcxButton;
+ cxLabel234: TcxLabel;
+ cxLabel236: TcxLabel;
+ cxLabel237: TcxLabel;
+ cxLabel238: TcxLabel;
+ cxLabel247: TcxLabel;
+ cxLabel249: TcxLabel;
+ cxLabel250: TcxLabel;
+ cxLabel251: TcxLabel;
+ cxLabel252: TcxLabel;
+ cxLabel253: TcxLabel;
+ cxLabel273: TcxLabel;
+ gj_temperature1: TcxTextEdit;
+ gj_temperature10: TcxTextEdit;
+ gj_temperature11: TcxTextEdit;
+ gj_temperature2: TcxTextEdit;
+ gj_temperature3: TcxTextEdit;
+ gj_temperature4: TcxTextEdit;
+ gj_temperature5: TcxTextEdit;
+ gj_temperature6: TcxTextEdit;
+ gj_temperature7: TcxTextEdit;
+ gj_temperature8: TcxTextEdit;
+ gj_temperature9: TcxTextEdit;
+ cxGrid8: TcxGrid;
+ TvGJ: TcxGridDBTableView;
+ cxGridDBColumn24: TcxGridDBColumn;
+ cxGridDBColumn27: TcxGridDBColumn;
+ TvGJserialno: TcxGridDBColumn;
+ cxGridLevel7: TcxGridLevel;
+ cxLabel9: TcxLabel;
+ TbGJAdd: TcxButton;
+ TbGJDel: TcxButton;
+ gj_Precautions: TcxMemo;
+ cxLabel10: TcxLabel;
+ gj_leftGap: TcxTextEdit;
+ cxLabel11: TcxLabel;
+ gj_rightGap: TcxTextEdit;
+ CDS_gj: TClientDataSet;
+ DS_gj: TDataSource;
+ TvGJgj_spel: TcxGridDBColumn;
+ TvGJgj_unit: TcxGridDBColumn;
+ TvGJBPIID: TcxGridDBColumn;
+ procedure TBRafreshClick(Sender: TObject);
+
+ procedure ToolButton5Click(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure TbGJReplace2Click(Sender: TObject);
+ procedure TbGJClear2Click(Sender: TObject);
+ procedure TbGJAddClick(Sender: TObject);
+ procedure TbGJDelClick(Sender: TObject);
+ procedure cxGridDBColumn24PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+ procedure cxGridDBColumn27PropertiesEditValueChanged(Sender: TObject);
+
+ private
+ procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
+ procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+ function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+ { Private declarations }
+ public
+ procedure InitGrid();
+ function SaveData(mPSID: string): Boolean;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint,U_ProductInfoSel;
+{$R *.dfm}
+
+procedure TframeGJList.InitGrid();
+begin
+// POSNO.SetFocus;
+// try
+// ADOQueryMain.DisableControls;
+// with ADOQueryMain do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* from BS_Position A order by POSNO ');
+// Open;
+// end;
+// SCreateCDS(ADOQueryMain, CDS_HZ);
+// SInitCDSData(ADOQueryMain, CDS_HZ);
+// finally
+// ADOQueryMain.EnableControls;
+// ToolButton2.Click;
+// end;
+end;
+
+procedure TframeGJList.TbGJAddClick(Sender: TObject);
+begin
+ with CDS_GJ do
+ begin
+ Append;
+ CDS_GJ.FieldByName('serialno').Value := CDS_GJ.RecordCount + 1;
+ Post;
+ end;
+end;
+
+procedure TframeGJList.TbGJClear2Click(Sender: TObject);
+begin
+ ClearAllTextEditsByHint(panel_gj, 'ν¿');
+end;
+
+procedure TframeGJList.TbGJDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_GJ.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_GJ.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_GJ.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_GJ.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_GJ.First;
+ while not CDS_GJ.Eof do
+ begin
+ i := i + 1;
+ CDS_GJ.Edit;
+ CDS_GJ.fieldByName('serialno').value := i;
+ CDS_GJ.Post;
+ CDS_GJ.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TframeGJList.TbGJReplace2Click(Sender: TObject);
+begin
+ FillAllTextEditsWithValue(panel_gj, 'ν¿', FindLastEditedTextEdit(panel_gj, 'ν¿'));
+end;
+
+procedure TframeGJList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TframeGJList.ToolButton3Click(Sender: TObject);
+var
+ RTValues: TArray;
+begin
+
+ if CDS_HZ.IsEmpty then
+ Exit;
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+ RTValues := SelCDSKey(CDS_HZ, ['POSID']);
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'Position';
+ FFiltration1 := RTValues[0];
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TframeGJList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_HZ.IsEmpty then
+ Exit;
+
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ with CDS_HZ do
+ begin
+ while not Eof do
+ begin
+ if CDS_HZ.Locate('SSel', True, []) = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Position where POSID=' + QuotedStr(CDS_HZ.FieldByName('POSID').AsString));
+ ExecSQL;
+ end;
+ end;
+
+ CDS_HZ.Edit;
+ CDS_HZ.FieldByName('SSel').Value := False;
+ CDS_HZ.Post;
+ Next;
+ end;
+ end;
+ InitGrid();
+end;
+
+function TframeGJList.SaveData(mPSID: string): Boolean;
+var
+ MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
+ maxsubid1, maxsubid2, maxsubid3, maxsubid4, maxsubid5, maxsubid6, mmaxgx: string;
+begin
+ try
+
+
+
+//////////////// //////////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(mPSID) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(mPSID) = '' then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ FieldByName('PSID').Value := Trim(mPSID);
+
+ RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_gj, 2);
+ ADOQueryCmd.Post;
+
+ ////////////////// νӱ //////////////////////
+ with CDS_gj do
+ begin
+ First;
+ while not Eof do
+ begin
+
+ if Trim(CDS_gj.fieldbyname('BCPID').AsString) = '' then
+ begin
+ if GetLSNo(ADOQueryTemp, maxsubid5, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then
+ begin
+
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ end
+ else
+ begin
+ maxsubid5 := Trim(CDS_gj.fieldbyname('BCPID').AsString);
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Sub where ');
+ sql.Add(' BCPID=''' + Trim(maxsubid5) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(CDS_gj.fieldbyname('BCPID').AsString) = '' then
+ begin
+ Append;
+
+ end
+ else
+ begin
+ Edit;
+
+ end;
+ FieldByName('GYType').Value := 'ν';
+ FieldByName('PSID').Value := Trim(mPSID);
+ FieldByName('BCPID').Value := Trim(maxsubid5);
+ RTSetSaveDataCDS(ADOQueryCmd, TvGJ, CDS_gj, 'Bs_Cloth_GY_Sub', 0);
+ Post;
+ end;
+
+ Next;
+ end;
+ end;
+//////////////// νӱ //////////////////////
+
+ end;
+
+//////////////// //////////////////////
+
+
+// FPSID := maxId;
+ Result := True;
+ except
+ Result := False;
+
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+end;
+
+procedure TframeGJList.cxGridDBColumn24PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_GJ do
+ begin
+ Edit;
+ FieldByName('gj_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('gj_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+ FieldByName('gj_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ FieldByName('BPIID').Value := frmProductInfoSel.CDS_1.fieldbyname('BPIID').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TframeGJList.cxGridDBColumn27PropertiesEditValueChanged(
+ Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ TvGJ.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ TvGJ.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TframeGJList.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ
+var
+ i: Integer;
+ AControl: TControl;
+ ATextEdit: TcxTextEdit;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then
+ begin
+ ATextEdit := AControl as TcxTextEdit;
+ if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then
+ ATextEdit.Text := AValue;
+ end;
+ end;
+end;
+
+procedure TframeGJList.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
+var
+ i: Integer;
+ AControl: TControl;
+begin
+ for i := 0 to AParent.ControlCount - 1 do
+ begin
+ AControl := AParent.Controls[i];
+ // Ƿ TcxTextEdit Hint ƥ䣬ҲųĿؼ
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then
+ begin
+ TcxTextEdit(AControl).Text := ''; // ֱ
+ end;
+ end;
+end;
+
+function TframeGJList.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
+var
+ i, j: Integer;
+ AControl: TControl;
+ SortedControls: TList;
+ TempControl: TControl;
+begin
+ Result := '';
+
+ // ûӿؼֱӷؿ
+ if AParent.ControlCount = 0 then
+ Exit;
+
+ // ʹ TList 洢ؼݾɰ Delphi
+ SortedControls := TList.Create;
+ try
+ // ӿؼӵб
+ for i := 0 to AParent.ControlCount - 1 do
+ SortedControls.Add(AParent.Controls[i]);
+
+ // ֶ TopY꣩ LeftX꣩
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ for j := i + 1 to SortedControls.Count - 1 do
+ begin
+ // Ƚؼ Top Left
+ if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then
+ begin
+ // λ
+ TempControl := TControl(SortedControls[i]);
+ SortedControls[i] := SortedControls[j];
+ SortedControls[j] := TempControl;
+ end;
+ end;
+ end;
+ // Ŀؼ
+ for i := 0 to SortedControls.Count - 1 do
+ begin
+ AControl := TControl(SortedControls[i]);
+ if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then
+ begin
+ Result := TcxTextEdit(AControl).Text; // һĻᱻ
+ end;
+ end;
+ finally
+ SortedControls.Free;
+ end;
+end;
+
+end.
+
diff --git a/F02染色计划单/U_frameJGQXList.dfm b/F02染色计划单/U_frameJGQXList.dfm
new file mode 100644
index 0000000..989be6a
--- /dev/null
+++ b/F02染色计划单/U_frameJGQXList.dfm
@@ -0,0 +1,257 @@
+object frameJGQXList: TframeJGQXList
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 132
+ TabOrder = 0
+ object Panel_jgqx: TPanel
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 140
+ Align = alTop
+ TabOrder = 0
+ object LabelJGQX: TLabel
+ Left = 4
+ Top = 2
+ Width = 48
+ Height = 12
+ Caption = #26426#32568#28165#27927
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object cxLabel340: TcxLabel
+ Left = 8
+ Top = 28
+ Caption = #20445#28201#28201#24230'('#8451')'
+ end
+ object jgqx_keepTemper: TcxTextEdit
+ Tag = 2
+ Left = 90
+ Top = 28
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 1
+ Width = 50
+ end
+ object jgqx_keepTime: TcxTextEdit
+ Tag = 2
+ Left = 90
+ Top = 51
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 2
+ Width = 50
+ end
+ object cxLabel347: TcxLabel
+ Left = 8
+ Top = 51
+ Caption = #20445#28201#26102#38388'(min)'
+ end
+ object cxLabel173: TcxLabel
+ Left = 150
+ Top = 28
+ Caption = #21319#28201#36895#29575
+ end
+ object cxLabel334: TcxLabel
+ Left = 150
+ Top = 51
+ Caption = #38477#28201#36895#29575
+ end
+ object jgqx_upperSpeed: TcxTextEdit
+ Tag = 2
+ Left = 206
+ Top = 28
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 6
+ Width = 50
+ end
+ object jgqx_downSpeed: TcxTextEdit
+ Tag = 2
+ Left = 206
+ Top = 51
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 7
+ Width = 50
+ end
+ object cxGrid5: TcxGrid
+ Left = 334
+ Top = 7
+ Width = 200
+ Height = 120
+ TabOrder = 8
+ object TvJGQX: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_jgqx
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object cxGridDBColumn9: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'jgqx_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn9PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn10: TcxGridDBColumn
+ Caption = #21333#20301'(%)'
+ DataBinding.FieldName = 'ccqx_unit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn12: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'jgqx_rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = cxGridDBColumn12PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn13: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'jgqx_spel'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object TvJGQXserialno: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 60
+ end
+ object TvJGQXBPIID: TcxGridDBColumn
+ Caption = #21161#21058#20027#38190
+ DataBinding.FieldName = 'BPIID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel3: TcxGridLevel
+ GridView = TvJGQX
+ end
+ end
+ object cxLabel3: TcxLabel
+ Left = 534
+ Top = 54
+ Caption = #22791#27880
+ end
+ object TbJGQXAdd: TcxButton
+ Left = 288
+ Top = 7
+ Width = 40
+ Height = 20
+ Caption = #22686#34892
+ TabOrder = 10
+ OnClick = TbJGQXAddClick
+ end
+ object TbJGQXDel: TcxButton
+ Left = 288
+ Top = 38
+ Width = 40
+ Height = 20
+ Caption = #21024#34892
+ TabOrder = 11
+ OnClick = TbJGQXDelClick
+ end
+ object jgqx_note: TcxMemo
+ Tag = 2
+ Left = 568
+ Top = 39
+ Properties.ScrollBars = ssVertical
+ TabOrder = 12
+ Height = 50
+ Width = 140
+ end
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 187
+ Top = 207
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 284
+ Top = 206
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 361
+ Top = 207
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 427
+ Top = 193
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 491
+ Top = 212
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 264
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 146
+ Top = 311
+ object N1: TMenuItem
+ Caption = #20840#36873
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ end
+ end
+ object CDS_JGQX: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 950
+ Top = 65526
+ end
+ object DS_jgqx: TDataSource
+ DataSet = CDS_JGQX
+ Left = 927
+ Top = 51
+ end
+end
diff --git a/F02染色计划单/U_frameJGQXList.pas b/F02染色计划单/U_frameJGQXList.pas
new file mode 100644
index 0000000..0ccad7a
--- /dev/null
+++ b/F02染色计划单/U_frameJGQXList.pas
@@ -0,0 +1,339 @@
+unit U_frameJGQXList;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+ cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxCheckBox,
+ cxTextEdit, dxBarBuiltInMenu, Vcl.Menus, cxGridCustomPopupMenu,
+ cxGridPopupMenu, Datasnap.DBClient, Data.Win.ADODB, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin,
+ Vcl.ExtCtrls, dxSkinsCore, dxSkinsDefaultPainters, cxMemo, cxLabel, cxMaskEdit,
+ cxDropDownEdit, cxButtonEdit, cxButtons;
+
+type
+ TframeJGQXList = class(TFrame)
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ Panel_jgqx: TPanel;
+ LabelJGQX: TLabel;
+ cxLabel340: TcxLabel;
+ jgqx_keepTemper: TcxTextEdit;
+ jgqx_keepTime: TcxTextEdit;
+ cxLabel347: TcxLabel;
+ cxLabel173: TcxLabel;
+ cxLabel334: TcxLabel;
+ jgqx_upperSpeed: TcxTextEdit;
+ jgqx_downSpeed: TcxTextEdit;
+ cxGrid5: TcxGrid;
+ TvJGQX: TcxGridDBTableView;
+ cxGridDBColumn9: TcxGridDBColumn;
+ cxGridDBColumn10: TcxGridDBColumn;
+ cxGridDBColumn12: TcxGridDBColumn;
+ cxGridDBColumn13: TcxGridDBColumn;
+ TvJGQXserialno: TcxGridDBColumn;
+ cxGridLevel3: TcxGridLevel;
+ cxLabel3: TcxLabel;
+ TbJGQXAdd: TcxButton;
+ TbJGQXDel: TcxButton;
+ jgqx_note: TcxMemo;
+ CDS_JGQX: TClientDataSet;
+ DS_jgqx: TDataSource;
+ TvJGQXBPIID: TcxGridDBColumn;
+ procedure TBRafreshClick(Sender: TObject);
+
+ procedure ToolButton5Click(Sender: TObject);
+ procedure TbJGQXAddClick(Sender: TObject);
+ procedure TbJGQXDelClick(Sender: TObject);
+ procedure cxGridDBColumn9PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+ procedure cxGridDBColumn12PropertiesEditValueChanged(Sender: TObject);
+
+ private
+
+ { Private declarations }
+ public
+ procedure InitGrid();
+ function SaveData(mPSID: string): Boolean;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint,U_ProductInfoSel;
+{$R *.dfm}
+
+procedure TframeJGQXList.cxGridDBColumn12PropertiesEditValueChanged(
+ Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ TvJGQX.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ TvJGQX.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TframeJGQXList.cxGridDBColumn9PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_JGQX do
+ begin
+ Edit;
+ FieldByName('jgqx_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('jgqx_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+ FieldByName('jgqx_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ FieldByName('BPIID').Value := frmProductInfoSel.CDS_1.fieldbyname('BPIID').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TframeJGQXList.InitGrid();
+begin
+// POSNO.SetFocus;
+// try
+// ADOQueryMain.DisableControls;
+// with ADOQueryMain do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* from BS_Position A order by POSNO ');
+// Open;
+// end;
+// SCreateCDS(ADOQueryMain, CDS_HZ);
+// SInitCDSData(ADOQueryMain, CDS_HZ);
+// finally
+// ADOQueryMain.EnableControls;
+// ToolButton2.Click;
+// end;
+end;
+
+procedure TframeJGQXList.TbJGQXAddClick(Sender: TObject);
+begin
+ with CDS_JGQX do
+ begin
+ Append;
+ CDS_JGQX.FieldByName('serialno').Value := CDS_JGQX.RecordCount + 1;
+ Post;
+ end;
+end;
+
+procedure TframeJGQXList.TbJGQXDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_JGQX.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_JGQX.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_JGQX.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_JGQX.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_JGQX.First;
+ while not CDS_JGQX.Eof do
+ begin
+ i := i + 1;
+ CDS_JGQX.Edit;
+ CDS_JGQX.fieldByName('serialno').value := i;
+ CDS_JGQX.Post;
+ CDS_JGQX.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TframeJGQXList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TframeJGQXList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_HZ.IsEmpty then
+ Exit;
+
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ with CDS_HZ do
+ begin
+ while not Eof do
+ begin
+ if CDS_HZ.Locate('SSel', True, []) = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Position where POSID=' + QuotedStr(CDS_HZ.FieldByName('POSID').AsString));
+ ExecSQL;
+ end;
+ end;
+
+ CDS_HZ.Edit;
+ CDS_HZ.FieldByName('SSel').Value := False;
+ CDS_HZ.Post;
+ Next;
+ end;
+ end;
+ InitGrid();
+end;
+
+function TframeJGQXList.SaveData(mPSID: string): Boolean;
+var
+ MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
+ maxsubid1, maxsubid2, maxsubid3, maxsubid4, maxsubid5, maxsubid6, mmaxgx: string;
+begin
+ try
+
+//////////////// //////////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(mPSID) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(mPSID) = '' then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ FieldByName('PSID').Value := Trim(mPSID);
+
+ RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_jgqx, 2);
+ ADOQueryCmd.Post;
+
+ ////////////////// ϴӱ //////////////////////
+ with CDS_JGQX do
+ begin
+ First;
+ while not Eof do
+ begin
+
+ if Trim(CDS_JGQX.fieldbyname('BCPID').AsString) = '' then
+ begin
+ if GetLSNo(ADOQueryTemp, maxsubid3, 'JGQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then
+ begin
+
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ end
+ else
+ begin
+ maxsubid3 := Trim(CDS_JGQX.fieldbyname('BCPID').AsString);
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Sub where ');
+ sql.Add(' BCPID=''' + Trim(maxsubid3) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(CDS_JGQX.fieldbyname('BCPID').AsString) = '' then
+ begin
+ Append;
+
+ end
+ else
+ begin
+ Edit;
+
+ end;
+ FieldByName('GYType').Value := 'ϴ';
+ FieldByName('PSID').Value := Trim(mPSID);
+ FieldByName('BCPID').Value := Trim(maxsubid3);
+ RTSetSaveDataCDS(ADOQueryCmd, TvJGQX, CDS_JGQX, 'Bs_Cloth_GY_Sub', 0);
+ Post;
+ end;
+ Next;
+ end;
+ end;
+//////////////// ϴӱ //////////////////////
+
+ end;
+//////////////// //////////////////////
+
+
+
+// FPSID := maxId;
+ Result := True;
+ except
+ Result := False;
+
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+end;
+
+end.
+
diff --git a/F02染色计划单/U_frameRGQXList.dfm b/F02染色计划单/U_frameRGQXList.dfm
new file mode 100644
index 0000000..de9bb63
--- /dev/null
+++ b/F02染色计划单/U_frameRGQXList.dfm
@@ -0,0 +1,238 @@
+object frameRGQXList: TframeRGQXList
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 132
+ TabOrder = 0
+ object Panel_rgqx: TPanel
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 131
+ Align = alTop
+ TabOrder = 0
+ object LabelRGQX: TLabel
+ Left = 4
+ Top = 3
+ Width = 60
+ Height = 12
+ Caption = #21367#26579#32568#28165#27927
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object cxLabel114: TcxLabel
+ Left = 8
+ Top = 22
+ Caption = #26579#36895'(m/min)'
+ end
+ object cxLabel150: TcxLabel
+ Left = 8
+ Top = 46
+ Caption = #35774#23450#28082#28201'('#8451')'
+ end
+ object cxLabel165: TcxLabel
+ Left = 144
+ Top = 22
+ Caption = #36947#25968#35774#32622
+ end
+ object rgqx_daoSet: TcxTextEdit
+ Tag = 2
+ Left = 204
+ Top = 19
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 3
+ Width = 58
+ end
+ object rgqx_speed: TcxTextEdit
+ Tag = 2
+ Left = 86
+ Top = 19
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 4
+ Width = 50
+ end
+ object rgqx_waterTemper: TcxTextEdit
+ Tag = 2
+ Left = 86
+ Top = 45
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 5
+ Width = 50
+ end
+ object cxGrid3: TcxGrid
+ Left = 328
+ Top = 6
+ Width = 200
+ Height = 120
+ TabOrder = 6
+ object TvRGQX: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_rgqx
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #21161#21058#32534#21495
+ DataBinding.FieldName = 'rgqx_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object cxGridDBColumn7: TcxGridDBColumn
+ Caption = #27604#29575'(%)'
+ DataBinding.FieldName = 'rgqx_Rate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
+ Properties.OnEditValueChanged = cxGridDBColumn7PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object TvRGQXserialno: TcxGridDBColumn
+ Caption = #24207#21495
+ DataBinding.FieldName = 'serialno'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 60
+ end
+ object TvRGQXrgqx_spel: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'rgqx_spel'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 80
+ end
+ object TvRGQXrgqx_unit: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'rgqx_unit'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ Width = 80
+ end
+ object TvRGQXBPIID: TcxGridDBColumn
+ Caption = #21161#21058#20027#38190
+ DataBinding.FieldName = 'BPIID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel2: TcxGridLevel
+ GridView = TvRGQX
+ end
+ end
+ object cxLabel2: TcxLabel
+ Left = 534
+ Top = 51
+ Caption = #22791#27880
+ end
+ object TbRGQXAdd: TcxButton
+ Left = 288
+ Top = 6
+ Width = 40
+ Height = 20
+ Caption = #22686#34892
+ TabOrder = 8
+ OnClick = TbRGQXAddClick
+ end
+ object TbRGQXDel: TcxButton
+ Left = 287
+ Top = 38
+ Width = 40
+ Height = 20
+ Caption = #21024#34892
+ TabOrder = 9
+ OnClick = TbRGQXDelClick
+ end
+ object rgqx_note: TcxMemo
+ Tag = 2
+ Left = 568
+ Top = 37
+ Properties.ScrollBars = ssVertical
+ TabOrder = 10
+ Height = 50
+ Width = 140
+ end
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 187
+ Top = 207
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 284
+ Top = 206
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 361
+ Top = 207
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 427
+ Top = 193
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 491
+ Top = 212
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 264
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 146
+ Top = 311
+ object N1: TMenuItem
+ Caption = #20840#36873
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ end
+ end
+ object CDS_RGQX: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 1119
+ Top = 4
+ end
+ object DS_rgqx: TDataSource
+ DataSet = CDS_RGQX
+ Left = 1119
+ Top = 52
+ end
+end
diff --git a/F02染色计划单/U_frameRGQXList.pas b/F02染色计划单/U_frameRGQXList.pas
new file mode 100644
index 0000000..a6219d6
--- /dev/null
+++ b/F02染色计划单/U_frameRGQXList.pas
@@ -0,0 +1,342 @@
+unit U_frameRGQXList;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+ cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxCheckBox,
+ cxTextEdit, dxBarBuiltInMenu, Vcl.Menus, cxGridCustomPopupMenu,
+ cxGridPopupMenu, Datasnap.DBClient, Data.Win.ADODB, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin,
+ Vcl.ExtCtrls, dxSkinsCore, dxSkinsDefaultPainters, cxMemo, cxLabel, cxMaskEdit,
+ cxDropDownEdit, cxButtonEdit, cxButtons;
+
+type
+ TframeRGQXList = class(TFrame)
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ Panel_rgqx: TPanel;
+ LabelRGQX: TLabel;
+ cxLabel114: TcxLabel;
+ cxLabel150: TcxLabel;
+ cxLabel165: TcxLabel;
+ rgqx_daoSet: TcxTextEdit;
+ rgqx_speed: TcxTextEdit;
+ rgqx_waterTemper: TcxTextEdit;
+ cxGrid3: TcxGrid;
+ TvRGQX: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridDBColumn7: TcxGridDBColumn;
+ TvRGQXserialno: TcxGridDBColumn;
+ cxGridLevel2: TcxGridLevel;
+ cxLabel2: TcxLabel;
+ TbRGQXAdd: TcxButton;
+ TbRGQXDel: TcxButton;
+ rgqx_note: TcxMemo;
+ CDS_RGQX: TClientDataSet;
+ DS_rgqx: TDataSource;
+ TvRGQXrgqx_spel: TcxGridDBColumn;
+ TvRGQXrgqx_unit: TcxGridDBColumn;
+ TvRGQXBPIID: TcxGridDBColumn;
+ procedure TBRafreshClick(Sender: TObject);
+
+ procedure ToolButton5Click(Sender: TObject);
+ procedure TbRGQXAddClick(Sender: TObject);
+ procedure TbRGQXDelClick(Sender: TObject);
+ procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+ procedure cxGridDBColumn7PropertiesEditValueChanged(Sender: TObject);
+
+ private
+
+ { Private declarations }
+ public
+ procedure InitGrid();
+ function SaveData(mPSID: string): Boolean;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint,U_ProductInfoSel;
+{$R *.dfm}
+
+procedure TframeRGQXList.cxGridDBColumn1PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+begin
+ try
+ frmProductInfoSel := TfrmProductInfoSel.Create(Application);
+ with frmProductInfoSel do
+ begin
+ FSTKName := '';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_RGQX do
+ begin
+ Edit;
+ FieldByName('rgqx_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
+ FieldByName('rgqx_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value;
+
+ FieldByName('rgqx_unit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
+ FieldByName('BPIID').Value := frmProductInfoSel.CDS_1.fieldbyname('BPIID').value;
+ end;
+ end;
+ end;
+ finally
+ frmProductInfoSel.Free;
+ end;
+end;
+
+procedure TframeRGQXList.cxGridDBColumn7PropertiesEditValueChanged(
+ Sender: TObject);
+var
+ s: string;
+ fValue: Double;
+begin
+ s := TcxTextEdit(Sender).EditingText;
+
+ if (s <> '') and (s[Length(s)] <> '%') then
+ begin
+ try
+ // ԽַתΪ
+ fValue := StrToFloat(s);
+ // ʽΪλСӰٷֺ
+ Tvrgqx.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
+ except
+ on E: EConvertError do
+ begin
+ // תʧܣԭӰٷֺ
+ Tvrgqx.Controller.FocusedColumn.EditValue := s + '%';
+ end;
+ end;
+ end;
+end;
+
+procedure TframeRGQXList.InitGrid();
+begin
+// POSNO.SetFocus;
+// try
+// ADOQueryMain.DisableControls;
+// with ADOQueryMain do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* from BS_Position A order by POSNO ');
+// Open;
+// end;
+// SCreateCDS(ADOQueryMain, CDS_HZ);
+// SInitCDSData(ADOQueryMain, CDS_HZ);
+// finally
+// ADOQueryMain.EnableControls;
+// ToolButton2.Click;
+// end;
+end;
+
+procedure TframeRGQXList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TframeRGQXList.TbRGQXAddClick(Sender: TObject);
+begin
+ with CDS_RGQX do
+ begin
+ Append;
+ CDS_RGQX.FieldByName('serialno').Value := CDS_RGQX.RecordCount + 1;
+ Post;
+ end;
+end;
+
+procedure TframeRGQXList.TbRGQXDelClick(Sender: TObject);
+var
+ i: Integer;
+begin
+ if not CDS_RGQX.IsEmpty then
+ begin
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then
+ begin
+ if Trim(CDS_RGQX.fieldbyname('BCPID').AsString) <> '' then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Cloth_GY_Sub where BCPID=' + quotedStr(Trim(CDS_RGQX.fieldbyname('BCPID').AsString)));
+ ExecSQL;
+ end;
+ end;
+ CDS_RGQX.Delete;
+ end
+ else
+ exit;
+
+ i := 0;
+ CDS_RGQX.First;
+ while not CDS_RGQX.Eof do
+ begin
+ i := i + 1;
+ CDS_RGQX.Edit;
+ CDS_RGQX.fieldByName('serialno').value := i;
+ CDS_RGQX.Post;
+ CDS_RGQX.Next;
+ end;
+ end
+ else
+ begin
+ Application.MessageBox('ɾ!', 'ʾ', 0);
+ Exit;
+ end;
+end;
+
+procedure TframeRGQXList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_HZ.IsEmpty then
+ Exit;
+
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ with CDS_HZ do
+ begin
+ while not Eof do
+ begin
+ if CDS_HZ.Locate('SSel', True, []) = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Position where POSID=' + QuotedStr(CDS_HZ.FieldByName('POSID').AsString));
+ ExecSQL;
+ end;
+ end;
+
+ CDS_HZ.Edit;
+ CDS_HZ.FieldByName('SSel').Value := False;
+ CDS_HZ.Post;
+ Next;
+ end;
+ end;
+ InitGrid();
+end;
+
+function TframeRGQXList.SaveData(mPSID: string): Boolean;
+var
+ MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
+ maxsubid1, maxsubid2, maxsubid3, maxsubid4, maxsubid5, maxsubid6, mmaxgx: string;
+begin
+ try
+
+
+//////////////// //////////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(mPSID) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(mPSID) = '' then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ FieldByName('PSID').Value := Trim(mPSID);
+
+ RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', Panel_rgqx, 2);
+ ADOQueryCmd.Post;
+
+ ////////////////// Ⱦϴӱ //////////////////////
+ with CDS_RGQX do
+ begin
+ First;
+ while not Eof do
+ begin
+
+ if Trim(CDS_RGQX.fieldbyname('BCPID').AsString) = '' then
+ begin
+ if GetLSNo(ADOQueryTemp, maxsubid2, 'RGQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then
+ begin
+ Application.MessageBox('ȡˮʧܣ', 'ʾ', 0);
+ Exit;
+ end;
+ end
+ else
+ begin
+ maxsubid2 := Trim(CDS_RGQX.fieldbyname('BCPID').AsString);
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Sub where ');
+ sql.Add(' BCPID=''' + Trim(maxsubid2) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(CDS_RGQX.fieldbyname('BCPID').AsString) = '' then
+ begin
+ Append;
+
+ end
+ else
+ begin
+ Edit;
+
+ end;
+ FieldByName('GYType').Value := 'Ⱦϴ';
+ FieldByName('PSID').Value := Trim(mPSID);
+ FieldByName('BCPID').Value := Trim(maxsubid2);
+ RTSetSaveDataCDS(ADOQueryCmd, TvRGQX, CDS_RGQX, 'Bs_Cloth_GY_Sub', 0);
+ Post;
+ end;
+
+ Next;
+ end;
+
+//////////////// Ⱦϴӱ //////////////////////
+
+ end;
+
+ end;
+//////////////// //////////////////////
+
+
+
+// FPSID := maxId;
+ Result := True;
+ except
+ Result := False;
+
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+end;
+
+end.
+
diff --git a/F02染色计划单/U_frameYMList.dfm b/F02染色计划单/U_frameYMList.dfm
new file mode 100644
index 0000000..d0347a0
--- /dev/null
+++ b/F02染色计划单/U_frameYMList.dfm
@@ -0,0 +1,153 @@
+object frameYMList: TframeYMList
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 61
+ TabOrder = 0
+ object Panel_zm: TPanel
+ Left = 0
+ Top = 0
+ Width = 1147
+ Height = 61
+ Align = alTop
+ TabOrder = 0
+ object LabelYM: TLabel
+ Left = 4
+ Top = 6
+ Width = 24
+ Height = 12
+ Caption = #36711#27611
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clMenuHighlight
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label11: TLabel
+ Left = 40
+ Top = 10
+ Width = 72
+ Height = 13
+ Caption = #36827#20986#26009'(m/min)'
+ end
+ object zm_inout: TcxTextEdit
+ Tag = 2
+ Left = 124
+ Top = 7
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 0
+ Width = 50
+ end
+ object zm_style: TcxComboBox
+ Tag = 2
+ Left = 4
+ Top = 31
+ Properties.Items.Strings = (
+ ''
+ #21333#25490#38024
+ #21452#25490#38024)
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 1
+ Width = 82
+ end
+ object cxLabel336: TcxLabel
+ Left = 117
+ Top = 31
+ Caption = #20027#30005#26426'('#27425'/min)'
+ end
+ object zm_mainElec: TcxTextEdit
+ Tag = 2
+ Left = 211
+ Top = 31
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 3
+ Width = 50
+ end
+ object cxLabel344: TcxLabel
+ Left = 295
+ Top = 31
+ Caption = #38024#26495#39640#24230'(cm)'
+ end
+ object zm_needleHigh: TcxTextEdit
+ Tag = 2
+ Left = 375
+ Top = 31
+ Style.LookAndFeel.SkinName = 'WXI'
+ StyleDisabled.LookAndFeel.SkinName = 'WXI'
+ StyleFocused.LookAndFeel.SkinName = 'WXI'
+ StyleHot.LookAndFeel.SkinName = 'WXI'
+ TabOrder = 5
+ Width = 50
+ end
+ object cxLabel342: TcxLabel
+ Left = 534
+ Top = 20
+ Caption = #22791#27880
+ end
+ object zm_Precautions: TcxMemo
+ Tag = 2
+ Left = 568
+ Top = 5
+ Properties.ScrollBars = ssVertical
+ TabOrder = 7
+ Height = 50
+ Width = 140
+ end
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 187
+ Top = 207
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ Parameters = <>
+ Left = 284
+ Top = 206
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyePlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 361
+ Top = 207
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 427
+ Top = 193
+ end
+ object DS_HZ: TDataSource
+ DataSet = CDS_HZ
+ Left = 491
+ Top = 212
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 264
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 146
+ Top = 311
+ object N1: TMenuItem
+ Caption = #20840#36873
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ end
+ end
+end
diff --git a/F02染色计划单/U_frameYMList.pas b/F02染色计划单/U_frameYMList.pas
new file mode 100644
index 0000000..3f182b7
--- /dev/null
+++ b/F02染色计划单/U_frameYMList.pas
@@ -0,0 +1,177 @@
+unit U_frameYMList;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+ cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator,
+ dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxCheckBox,
+ cxTextEdit, dxBarBuiltInMenu, Vcl.Menus, cxGridCustomPopupMenu,
+ cxGridPopupMenu, Datasnap.DBClient, Data.Win.ADODB, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin,
+ Vcl.ExtCtrls, dxSkinsCore, dxSkinsDefaultPainters, cxMemo, cxLabel,
+ cxMaskEdit, cxDropDownEdit;
+
+type
+ TframeYMList = class(TFrame)
+ ADOQueryMain: TADOQuery;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ CDS_HZ: TClientDataSet;
+ DS_HZ: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ Panel_zm: TPanel;
+ LabelYM: TLabel;
+ Label11: TLabel;
+ zm_inout: TcxTextEdit;
+ zm_style: TcxComboBox;
+ cxLabel336: TcxLabel;
+ zm_mainElec: TcxTextEdit;
+ cxLabel344: TcxLabel;
+ zm_needleHigh: TcxTextEdit;
+ cxLabel342: TcxLabel;
+ zm_Precautions: TcxMemo;
+ procedure TBRafreshClick(Sender: TObject);
+
+ procedure ToolButton5Click(Sender: TObject);
+
+ private
+
+ { Private declarations }
+ public
+ procedure InitGrid();
+ function SaveData(mPSID : string): Boolean;
+ { Public declarations }
+ end;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint;
+{$R *.dfm}
+
+procedure TframeYMList.InitGrid();
+begin
+// POSNO.SetFocus;
+// try
+// ADOQueryMain.DisableControls;
+// with ADOQueryMain do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add(' select A.* from BS_Position A order by POSNO ');
+// Open;
+// end;
+// SCreateCDS(ADOQueryMain, CDS_HZ);
+// SInitCDSData(ADOQueryMain, CDS_HZ);
+// finally
+// ADOQueryMain.EnableControls;
+// ToolButton2.Click;
+// end;
+end;
+
+procedure TframeYMList.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+
+
+procedure TframeYMList.ToolButton5Click(Sender: TObject);
+begin
+ if CDS_HZ.IsEmpty then
+ Exit;
+
+ if CDS_HZ.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ with CDS_HZ do
+ begin
+ while not Eof do
+ begin
+ if CDS_HZ.Locate('SSel', True, []) = True then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete BS_Position where POSID=' + QuotedStr(CDS_HZ.FieldByName('POSID').AsString));
+ ExecSQL;
+ end;
+ end;
+
+ CDS_HZ.Edit;
+ CDS_HZ.FieldByName('SSel').Value := False;
+ CDS_HZ.Post;
+ Next;
+ end;
+ end;
+ InitGrid();
+end;
+
+
+function TframeYMList.SaveData(mPSID : string): Boolean;
+var
+ MaxProcessID, MaxBCPID, MaxPSID, MaxDTMID, mDTMID, DTMPSlist: string;
+ maxsubid1, maxsubid2, maxsubid3, maxsubid4, maxsubid5, maxsubid6, mmaxgx: string;
+begin
+ try
+
+
+//////////////// //////////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(mPSID) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(mPSID) = '' then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ FieldByName('PSID').Value := Trim(mPSID);
+
+ RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_zm, 2);
+ ADOQueryCmd.Post;
+
+
+
+
+ end;
+//////////////// //////////////////////
+
+
+
+// FPSID := maxId;
+ Result := True;
+ except
+ Result := False;
+
+ Application.MessageBox('ʧ!', 'ʾ', 0);
+ end;
+end;
+
+
+
+
+end.
+
diff --git a/F03染色配方管理/Formula.dproj.local b/F03染色配方管理/Formula.dproj.local
index c6fbf0b..215b16e 100644
--- a/F03染色配方管理/Formula.dproj.local
+++ b/F03染色配方管理/Formula.dproj.local
@@ -1,12 +1,12 @@
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
@@ -22,13 +22,13 @@
1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899/12/30 00:00:00.000.979,=D:\Dp10Repo\项目代码\红绿蓝\A00通用窗体\U_LabelPrint.pas
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\RTBasics\F03染色配方管理\Formula.dproj=D:\Dp10Repo\项目代码\RTBasics\F03染色配方管理\InformationBase.dproj
1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
diff --git a/F03染色配方管理/Formula.identcache b/F03染色配方管理/Formula.identcache
index 179e2f2..c6ba28a 100644
Binary files a/F03染色配方管理/Formula.identcache and b/F03染色配方管理/Formula.identcache differ
diff --git a/F04染色刷卡/DyeProcess.dpr b/F04染色刷卡/DyeProcess.dpr
index 76c81ef..976b3b2 100644
--- a/F04染色刷卡/DyeProcess.dpr
+++ b/F04染色刷卡/DyeProcess.dpr
@@ -25,7 +25,8 @@ uses
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_MachTaskList in 'U_MachTaskList.pas' {frmMachTaskList},
U_BS_MachineSel in 'U_BS_MachineSel.pas' {frmBS_MachineSel},
- U_DyeProcessDefin in 'U_DyeProcessDefin.pas' {frmDyeProcessDefin};
+ U_DyeProcessDefin in 'U_DyeProcessDefin.pas' {frmDyeProcessDefin},
+ U_DyePCDetailsList in 'U_DyePCDetailsList.pas' {frmDyePCDetailsList};
{$R *.res}
diff --git a/F04染色刷卡/DyeProcess.dproj b/F04染色刷卡/DyeProcess.dproj
index fbe9885..968a3af 100644
--- a/F04染色刷卡/DyeProcess.dproj
+++ b/F04染色刷卡/DyeProcess.dproj
@@ -139,6 +139,10 @@
dfm
+
+
+ dfm
+
Cfg_2
Base
diff --git a/F04染色刷卡/DyeProcess.dproj.local b/F04染色刷卡/DyeProcess.dproj.local
index e88f3ce..5e8d79c 100644
--- a/F04染色刷卡/DyeProcess.dproj.local
+++ b/F04染色刷卡/DyeProcess.dproj.local
@@ -1,30 +1,33 @@
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas
- 1899/12/30 00:00:00.000.620,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_MachTaskList.pas
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas
1899/12/30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.620,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_MachTaskList.pas
+ 1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas
+ 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=
- 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj
- 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=
+ 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas
+ 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
2025/09/13 17:08:13.000.517,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_BS_MachineSel.pas
2025/09/25 15:07:18.000.836,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeProcessDefin.pas
+ 2025/11/11 15:05:18.000.149,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.pas
+ 2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.dfm
+ 2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.pas
@@ -65,5 +68,7 @@
+
+
diff --git a/F04染色刷卡/DyeProcess.identcache b/F04染色刷卡/DyeProcess.identcache
index 9862d6b..2a2ecb3 100644
Binary files a/F04染色刷卡/DyeProcess.identcache and b/F04染色刷卡/DyeProcess.identcache differ
diff --git a/F04染色刷卡/U_DyeOutputList.dfm b/F04染色刷卡/U_DyeOutputList.dfm
index 438f71b..7469628 100644
--- a/F04染色刷卡/U_DyeOutputList.dfm
+++ b/F04染色刷卡/U_DyeOutputList.dfm
@@ -35,7 +35,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
ParentFont = False
ShowCaptions = True
TabOrder = 0
- ExplicitTop = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -324,7 +323,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Height = 482
Align = alClient
TabOrder = 2
- ExplicitTop = 108
+ ExplicitTop = 97
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -362,7 +361,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 94
end
object Tv1Column5: TcxGridDBColumn
- Caption = #27969#31243#21345#21495
+ Caption = #21345#32452#21495
DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -382,21 +381,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
HeaderAlignmentHorz = taCenter
Width = 95
end
- object v1Column2: TcxGridDBColumn
- Caption = #23458#25143
- DataBinding.FieldName = 'custName'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object v1Column10: TcxGridDBColumn
- Caption = #19994#21153#21592
- DataBinding.FieldName = 'Saleser'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 81
- end
object v2Column1: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
@@ -404,20 +388,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
HeaderAlignmentHorz = taCenter
Width = 120
end
- object v1Column9: TcxGridDBColumn
- Caption = #35268#26684
- DataBinding.FieldName = 'C_Spec'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv1Column1: TcxGridDBColumn
- Caption = #33394#21495
- DataBinding.FieldName = 'C_ColorNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 60
- end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
@@ -425,20 +395,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
HeaderAlignmentHorz = taCenter
Width = 60
end
- object Tv1Column4: TcxGridDBColumn
- Caption = #22411#21495
- DataBinding.FieldName = 'C_XINHAO'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 66
- end
- object Tv1Column7: TcxGridDBColumn
- Caption = #26426#21488
- DataBinding.FieldName = 'jitaino'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 66
- end
object Tv1Column13: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
@@ -474,20 +430,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
HeaderAlignmentHorz = taCenter
Width = 60
end
- object Tv1Column9: TcxGridDBColumn
- Caption = #29677#32452
- DataBinding.FieldName = 'StaffName'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 94
- end
- object Tv1Column10: TcxGridDBColumn
- Caption = #25805#20316#21592
- DataBinding.FieldName = 'Filler2'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 60
- end
object Tv1Column16: TcxGridDBColumn
Caption = #19978#26426#26102#38388
DataBinding.FieldName = 'FillTime'
@@ -502,13 +444,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
HeaderAlignmentHorz = taCenter
Width = 106
end
- object Tv1Column17: TcxGridDBColumn
- Caption = #36710#23614#38376#24133
- DataBinding.FieldName = 'sk_WidthAmplitude'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
diff --git a/F04染色刷卡/U_DyeOutputList.pas b/F04染色刷卡/U_DyeOutputList.pas
index 784c41e..2cdfa67 100644
--- a/F04染色刷卡/U_DyeOutputList.pas
+++ b/F04染色刷卡/U_DyeOutputList.pas
@@ -46,20 +46,14 @@ type
Label10: TLabel;
RMGridReport1: TRMGridReport;
Label16: TLabel;
- v1Column2: TcxGridDBColumn;
customerNoName: TEdit;
Label13: TLabel;
- v1Column9: TcxGridDBColumn;
- v1Column10: TcxGridDBColumn;
ywy: TEdit;
Label17: TLabel;
- Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
- Tv1Column9: TcxGridDBColumn;
- Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
C_Color: TEdit;
@@ -77,8 +71,6 @@ type
endTime: TDateTimePicker;
ToolButton1: TToolButton;
Tv1Column3: TcxGridDBColumn;
- Tv1Column4: TcxGridDBColumn;
- Tv1Column7: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
ToolButton2: TToolButton;
@@ -88,7 +80,6 @@ type
Button2: TButton;
Edit1: TEdit;
Tv1Column16: TcxGridDBColumn;
- Tv1Column17: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@@ -165,7 +156,6 @@ begin
Filtered := False;
// sql.Add('select GOID,A.GlideName,Qty,rollnum,groupName,B.*,a.filler as filler2,a.filltime as filltime2,gotime,QtyUnit,StaffName from Dye_Plan_Glide_OutPut A ');
sql.Add('select * from V_Dye_Plan_Glide_OutPut A');
- sql.Add('inner join Dye_Plan_Card B on A.PCID=B.PCID ');
sql.add('where A.GOTime>=''' + trim(mbegdate) + ''' ');
sql.Add('and A.GOTime<''' + trim(menddate) + ''' ');
sql.Add(Msql);
diff --git a/F04染色刷卡/U_DyePCDetailsList.dfm b/F04染色刷卡/U_DyePCDetailsList.dfm
new file mode 100644
index 0000000..69de93f
--- /dev/null
+++ b/F04染色刷卡/U_DyePCDetailsList.dfm
@@ -0,0 +1,605 @@
+inherited frmDyePCDetailsList: TfrmDyePCDetailsList
+ Caption = #25490#20135#20449#24687#26126#32454
+ ClientHeight = 584
+ ClientWidth = 1180
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ OldCreateOrder = True
+ WindowState = wsMaximized
+ OnKeyDown = FormKeyDown
+ ExplicitLeft = -329
+ ExplicitWidth = 1196
+ ExplicitHeight = 623
+ PixelsPerInch = 96
+ TextHeight = 13
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1180
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 97
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ DisabledImages = DataLink_DyeProcess.ImageList_new32
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_DyeProcess.ImageList_new32
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 0
+ ExplicitLeft = -1
+ 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 TBPrint: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360
+ ImageIndex = 21
+ Visible = False
+ end
+ object ToolButton2: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
+ Caption = #25195#25551#25490#32568
+ ImageIndex = 2
+ OnClick = ToolButton2Click
+ end
+ object TBExport: TToolButton
+ Left = 308
+ Top = 0
+ AutoSize = True
+ Caption = #23548#20986'Excel'
+ ImageIndex = 20
+ OnClick = TBExportClick
+ end
+ object TbUpdateTime: TToolButton
+ Left = 409
+ Top = 0
+ AutoSize = True
+ Caption = #26356#26032#26102#38388
+ ImageIndex = 1
+ OnClick = TbUpdateTimeClick
+ end
+ object ToolButton1: TToolButton
+ Left = 504
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton1Click
+ end
+ object TBClose: TToolButton
+ Left = 599
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [1]
+ Left = 0
+ Top = 38
+ Width = 1180
+ Height = 64
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Caption = 'CCQX1'
+ Color = clSkyBlue
+ TabOrder = 1
+ ExplicitLeft = -1
+ object Label3: TLabel
+ Left = 260
+ Top = 10
+ Width = 48
+ Height = 13
+ Caption = #27969#31243#21345#21495
+ end
+ object Label13: TLabel
+ Left = 288
+ Top = 128
+ Width = 24
+ Height = 13
+ Caption = #23458#25143
+ end
+ object Label17: TLabel
+ Left = 440
+ Top = 128
+ Width = 36
+ Height = 13
+ Caption = #19994#21153#21592
+ end
+ object Label7: TLabel
+ Left = 604
+ Top = 124
+ Width = 36
+ Height = 13
+ Caption = #33457#22411#21495
+ end
+ object Label1: TLabel
+ Left = 23
+ Top = 10
+ Width = 48
+ Height = 13
+ Caption = #24320#22987#26102#38388
+ end
+ object Label2: TLabel
+ Left = 23
+ Top = 36
+ Width = 48
+ Height = 13
+ Caption = #32467#26463#26102#38388
+ end
+ object Label4: TLabel
+ Left = 260
+ Top = 36
+ Width = 24
+ Height = 13
+ Caption = #35774#22791
+ end
+ object pcid: TEdit
+ Tag = 2
+ Left = 314
+ Top = 6
+ Width = 154
+ Height = 21
+ TabOrder = 0
+ OnChange = pcidChange
+ end
+ object customerNoName: TEdit
+ Tag = 2
+ Left = 314
+ Top = 124
+ Width = 100
+ Height = 21
+ TabOrder = 1
+ OnChange = pcidChange
+ end
+ object ywy: TEdit
+ Tag = 2
+ Left = 478
+ Top = 124
+ Width = 100
+ Height = 21
+ TabOrder = 2
+ OnChange = pcidChange
+ end
+ object lbHx: TEdit
+ Tag = 2
+ Left = 642
+ Top = 120
+ Width = 80
+ Height = 21
+ TabOrder = 3
+ OnChange = pcidChange
+ end
+ object BegDate: TDateTimePicker
+ Left = 88
+ Top = 6
+ Width = 89
+ Height = 21
+ Date = 45922.000000000000000000
+ Time = 0.672359988428070200
+ TabOrder = 4
+ end
+ object EndDate: TDateTimePicker
+ Left = 88
+ Top = 33
+ Width = 89
+ Height = 21
+ Date = 45912.000000000000000000
+ Time = 0.672466979165619700
+ TabOrder = 5
+ end
+ object BegTime: TDateTimePicker
+ Left = 176
+ Top = 6
+ Width = 73
+ Height = 21
+ Date = 45912.000000000000000000
+ Time = 0.672359988428070200
+ Kind = dtkTime
+ TabOrder = 6
+ end
+ object EndTime: TDateTimePicker
+ Left = 176
+ Top = 33
+ Width = 73
+ Height = 21
+ Date = 45912.000000000000000000
+ Time = 0.672466979165619700
+ Kind = dtkTime
+ TabOrder = 7
+ end
+ object MCNO: TcxButtonEdit
+ Left = 312
+ Top = 33
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = MCNOPropertiesButtonClick
+ TabOrder = 8
+ Text = #38271#36710#28165#27927#26426
+ Width = 156
+ end
+ object MCName: TEdit
+ Left = 464
+ Top = 33
+ Width = 121
+ Height = 21
+ TabOrder = 9
+ Text = 'CCQX1'
+ end
+ end
+ object MovePanel2: TMovePanel [2]
+ Left = 351
+ Top = 244
+ Width = 289
+ Height = 49
+ BevelInner = bvLowered
+ Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+ Color = clSkyBlue
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -14
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 2
+ Visible = False
+ end
+ object Panel2: TPanel [3]
+ Left = 0
+ Top = 102
+ Width = 1180
+ Height = 482
+ Align = alClient
+ TabOrder = 3
+ ExplicitTop = 98
+ object cxGrid1: TcxGrid
+ Left = 1
+ Top = 1
+ Width = 592
+ Height = 480
+ Align = alLeft
+ TabOrder = 0
+ ExplicitTop = -4
+ object Tv1: TcxGridDBTableView
+ OnKeyDown = Tv1KeyDown
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_1
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.GroupByBox = False
+ object Tv1PCID: TcxGridDBColumn
+ Caption = #27969#31243#21345#21495
+ DataBinding.FieldName = 'PCID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1OrderNo: TcxGridDBColumn
+ Caption = #29983#20135#24037#21333#21495
+ DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1C_Name: TcxGridDBColumn
+ Caption = #25104#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1PSName: TcxGridDBColumn
+ Caption = #24037#24207#21517#31216
+ DataBinding.FieldName = 'GlideName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1CALL_temperature6: TcxGridDBColumn
+ Caption = '6#'#28201#24230
+ DataBinding.FieldName = 'ALL_temperature6'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1PCQty: TcxGridDBColumn
+ Caption = #31859#25968
+ DataBinding.FieldName = 'PCQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1time: TcxGridDBColumn
+ Caption = #24635#29992#26102
+ DataBinding.FieldName = 'time'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1BegTime: TcxGridDBColumn
+ Caption = #36215#22987#26102#38388
+ DataBinding.FieldName = 'BegTime'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.Kind = ckDateTime
+ Properties.OnValidate = Tv1BegTimePropertiesValidate
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1EndTime: TcxGridDBColumn
+ Caption = #32467#26463#26102#38388
+ DataBinding.FieldName = 'EndTime'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.Kind = ckDateTime
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1GlideID: TcxGridDBColumn
+ DataBinding.FieldName = 'GlideID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object cxGrid2: TcxGrid
+ Left = 680
+ Top = 1
+ Width = 499
+ Height = 480
+ Align = alRight
+ TabOrder = 1
+ ExplicitTop = 6
+ object Tv2: TcxGridDBTableView
+ OnKeyDown = Tv2KeyDown
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnCustomDrawCell = Tv2CustomDrawCell
+ DataController.DataSource = DS_2
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsView.GroupByBox = False
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #27969#31243#21345#21495
+ DataBinding.FieldName = 'PCID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object cxGridDBColumn2: TcxGridDBColumn
+ Caption = #29983#20135#24037#21333#21495
+ DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #25104#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object cxGridDBColumn4: TcxGridDBColumn
+ Caption = #24037#24207#21517#31216
+ DataBinding.FieldName = 'GlideName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object cxGridDBColumn5: TcxGridDBColumn
+ Caption = '6#'#28201#24230
+ DataBinding.FieldName = 'ALL_temperature6'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object cxGridDBColumn6: TcxGridDBColumn
+ Caption = #31859#25968
+ DataBinding.FieldName = 'PCQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object cxGridDBColumn7: TcxGridDBColumn
+ Caption = #24635#29992#26102
+ DataBinding.FieldName = 'time'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv2PC_FLAG: TcxGridDBColumn
+ Caption = #25490#20135
+ DataBinding.FieldName = 'PC_FLAG'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv2isComplete: TcxGridDBColumn
+ Caption = #25253#24037
+ DataBinding.FieldName = 'isComplete'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv2GlideID: TcxGridDBColumn
+ DataBinding.FieldName = 'GlideID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = Tv2
+ end
+ end
+ object cxButton1: TcxButton
+ Left = 599
+ Top = 6
+ Width = 75
+ Height = 25
+ Caption = '<--'#25490#20135'--'
+ TabOrder = 2
+ OnClick = cxButton1Click
+ end
+ object cxButton2: TcxButton
+ Left = 599
+ Top = 37
+ Width = 75
+ Height = 25
+ Caption = '--'#21462#28040'-->'
+ TabOrder = 3
+ OnClick = cxButton2Click
+ end
+ object cxButton3: TcxButton
+ Left = 599
+ Top = 80
+ Width = 75
+ Height = 25
+ Caption = #19978#31227
+ TabOrder = 4
+ end
+ object cxButton4: TcxButton
+ Left = 599
+ Top = 111
+ Width = 75
+ Height = 25
+ Caption = #19979#31227
+ TabOrder = 5
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ Left = 193
+ Top = 360
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ Left = 81
+ Top = 329
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ Parameters = <>
+ Left = 652
+ Top = 280
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 852
+ Top = 280
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 468
+ Top = 264
+ end
+ object DS_1: TDataSource
+ DataSet = CDS_1
+ Left = 336
+ Top = 184
+ end
+ object GPM1: TcxGridPopupMenu
+ Grid = cxGrid1
+ PopupMenus = <>
+ Left = 360
+ Top = 144
+ end
+ object CDS_1: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 384
+ Top = 176
+ end
+ object RMGridReport1: TRMGridReport
+ ThreadPrepareReport = True
+ InitialZoom = pzDefault
+ PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
+ DefaultCollate = 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 = 720
+ Top = 56
+ ReportData = {}
+ end
+ object cxStyleRepository1: TcxStyleRepository
+ PixelsPerInch = 96
+ object cxStyle1: TcxStyle
+ AssignedValues = [svFont]
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ end
+ end
+ object DS_2: TDataSource
+ DataSet = CDS_2
+ Left = 632
+ Top = 224
+ end
+ object CDS_2: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 712
+ Top = 232
+ end
+ object GPM2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 696
+ Top = 176
+ end
+end
diff --git a/F04染色刷卡/U_DyePCDetailsList.pas b/F04染色刷卡/U_DyePCDetailsList.pas
new file mode 100644
index 0000000..31e7d8b
--- /dev/null
+++ b/F04染色刷卡/U_DyePCDetailsList.pas
@@ -0,0 +1,868 @@
+unit U_DyePCDetailsList;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
+ cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
+ cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
+ ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
+ cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
+ RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+ dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
+ U_BaseList, dxScrollbarAnnotations, cxContainer, cxTextEdit, cxMaskEdit,
+ Vcl.Menus, cxButtons;
+
+type
+ TfrmDyePCDetailsList = class(TfrmBaseList)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBFind: TToolButton;
+ TBExport: TToolButton;
+ TBPrint: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DS_1: TDataSource;
+ GPM1: TcxGridPopupMenu;
+ Label3: TLabel;
+ pcid: TEdit;
+ CDS_1: TClientDataSet;
+ MovePanel2: TMovePanel;
+ RMGridReport1: TRMGridReport;
+ customerNoName: TEdit;
+ Label13: TLabel;
+ ywy: TEdit;
+ Label17: TLabel;
+ lbHx: TEdit;
+ Label7: TLabel;
+ ToolButton1: TToolButton;
+ ToolButton2: TToolButton;
+ BegDate: TDateTimePicker;
+ EndDate: TDateTimePicker;
+ Label1: TLabel;
+ Label2: TLabel;
+ BegTime: TDateTimePicker;
+ EndTime: TDateTimePicker;
+ cxStyleRepository1: TcxStyleRepository;
+ cxStyle1: TcxStyle;
+ TbUpdateTime: TToolButton;
+ Panel2: TPanel;
+ Tv1: TcxGridDBTableView;
+ cxGrid1Level1: TcxGridLevel;
+ cxGrid1: TcxGrid;
+ Tv1PCID: TcxGridDBColumn;
+ Tv1OrderNo: TcxGridDBColumn;
+ Tv1C_Name: TcxGridDBColumn;
+ Tv1PSName: TcxGridDBColumn;
+ Tv1CALL_temperature6: TcxGridDBColumn;
+ Tv1PCQty: TcxGridDBColumn;
+ Tv1time: TcxGridDBColumn;
+ Tv1BegTime: TcxGridDBColumn;
+ Tv1EndTime: TcxGridDBColumn;
+ cxGrid2: TcxGrid;
+ Tv2: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridDBColumn2: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ cxGridDBColumn4: TcxGridDBColumn;
+ cxGridDBColumn5: TcxGridDBColumn;
+ cxGridDBColumn6: TcxGridDBColumn;
+ cxGridDBColumn7: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ DS_2: TDataSource;
+ CDS_2: TClientDataSet;
+ GPM2: TcxGridPopupMenu;
+ Tv2PC_FLAG: TcxGridDBColumn;
+ Tv2isComplete: TcxGridDBColumn;
+ MCNO: TcxButtonEdit;
+ MCName: TEdit;
+ Label4: TLabel;
+ cxButton1: TcxButton;
+ cxButton2: TcxButton;
+ cxButton3: TcxButton;
+ cxButton4: TcxButton;
+ Tv1GlideID: TcxGridDBColumn;
+ Tv2GlideID: TcxGridDBColumn;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure FormCreate(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure ConNoMChange(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBExportClick(Sender: TObject);
+ procedure TBFindClick(Sender: TObject);
+ procedure pcidChange(Sender: TObject);
+ procedure PRTColorChange(Sender: TObject);
+ procedure TBdelClick(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ procedure tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+ procedure TbUpdateTimeClick(Sender: TObject);
+ procedure MCNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+ procedure Tv2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+ procedure Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+ procedure cxButton1Click(Sender: TObject);
+ procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+ procedure cxButton2Click(Sender: TObject);
+ procedure Tv1BegTimePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+
+ private
+ FLeft, FTop: Integer;
+ procedure InitGrid1();
+ procedure InitGrid2();
+ function SaveData(): boolean;
+ function GetLastLine(const AText: string): string;
+ { Private declarations }
+ public
+ fsyrName, canshu1: string;
+
+ { Public declarations }
+ end;
+
+var
+ frmDyePCDetailsList: TfrmDyePCDetailsList;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_MachTaskList, U_BS_MachineSel;
+
+{$R *.dfm}
+
+procedure TfrmDyePCDetailsList.FormDestroy(Sender: TObject);
+begin
+ inherited;
+ frmDyePCDetailsList := nil;
+end;
+
+procedure TfrmDyePCDetailsList.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+ case Key of
+
+ VK_ESCAPE:
+ begin
+ Key := 0; // ֹ
+ Close;
+ end;
+ end;
+
+end;
+
+function TfrmDyePCDetailsList.SaveData(): boolean;
+var
+ mLoopNum: Integer;
+ mMCName, mNewValue, mStartTime: string;
+ mEndTime, mBegTime: string;
+begin
+ result := false;
+ ADOQueryCmd.Connection.BeginTrans;
+ try
+
+ mLoopNum := StrToInt(CDS_1.FieldByName('Time').AsString) div 10;
+
+ if (MCNO.Text <> '') and (CDS_1.FieldByName('BegTime').AsString <> '') then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add(' update Dye_Plan_Glide set PC_FLAG = 1 , EndTime = DATEADD(MINUTE, ' + CDS_1.FieldByName('time').AsString + ', ' + QuotedStr(trim(CDS_1.FieldByName('BegTime').AsString)) + ')');
+ SQL.Add(' , begTime = ' + QuotedStr(Trim(CDS_1.FieldByName('BegTime').AsString)));
+ SQL.Add(' , MCNO = ' + QuotedStr(Trim(MCNO.Text)));
+ SQL.Add(' , MCName = ' + QuotedStr(MCName.Text));
+ SQL.Add(' where GlideID = ' + QuotedStr(Trim(CDS_1.FieldByName('GlideID').asString)));
+// ShowMessage(sql.Text);
+ ExecSQL;
+ end;
+ mMCName := MCName.Text;
+ mStartTime := CDS_1.FieldByName('BegTime').AsString;
+// mNewValue := 'ƻ:' + CDS_1.FieldByName('OrderNo').AsString + #13;
+ mNewValue := mNewValue + CDS_1.FieldByName('C_Name').AsString + #13;
+ mNewValue := mNewValue + 'Ʒŷ' + CDS_1.FieldByName('C_Width').AsString + #13;
+ mNewValue := mNewValue + ' ν:' + CDS_1.FieldByName('GlideName').AsString;
+
+ if CDS_1.FieldByName('PSType').AsString = 'ϴ' then
+ begin
+ mNewValue := mNewValue + '' + #13;
+ mNewValue := mNewValue + ':' + CDS_1.FieldByName('ccqx_speed').AsString + #13;
+ mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ccqx_temperature6').AsString + #13;
+
+ end
+ else if CDS_1.FieldByName('PSType').AsString = 'ɶ' then
+ begin
+ mNewValue := mNewValue + '' + #13;
+ mNewValue := mNewValue + ':' + CDS_1.FieldByName('dx_speed').AsString + #13;
+ mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('dx_temperature6').AsString + #13;
+ end
+ else if CDS_1.FieldByName('PSType').AsString = 'ˮ' then
+ begin
+ mNewValue := mNewValue + '' + #13;
+ mNewValue := mNewValue + ':' + CDS_1.FieldByName('fs_speed').AsString + #13;
+ mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('fs_temperature6').AsString + #13;
+
+ end
+ else if CDS_1.FieldByName('PSType').AsString = 'ν' then
+ begin
+ mNewValue := mNewValue + '' + CDS_1.FieldByName('gj_number').AsString + #13;
+ mNewValue := mNewValue + ':' + CDS_1.FieldByName('gj_speed').AsString + #13;
+ mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('gj_temperature6').AsString + #13;
+
+ end
+ else if CDS_1.FieldByName('PSType').AsString = '' then
+ begin
+ mNewValue := mNewValue + ' ' + CDS_1.FieldByName('fp_gjNumber').AsString + #13;
+ mNewValue := mNewValue + ':' + CDS_1.FieldByName('fp_speed').AsString + #13;
+ mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('fp_temperature6').AsString + #13;
+ end
+ else
+ begin
+ mNewValue := mNewValue + '' + #13;
+ end;
+ //////////////////////ʾ
+ mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_zhuji').AsString + #13;
+
+ mNewValue := mNewValue + CDS_1.FieldByName('PCID').AsString + #13;
+ mNewValue := mNewValue + CDS_1.FieldByName('GlideID').AsString;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('EXEC P_PC_UpdatePCAboutTime ' + '@MCName = :MCName, ' + '@NewValue = :NewValue, ' + '@StartTime = :StartTime, ' + '@LoopNum = :LoopNum');
+
+ Parameters.ParamByName('MCName').Value := mMCName;
+ Parameters.ParamByName('NewValue').Value := mNewValue;
+ Parameters.ParamByName('StartTime').Value := mStartTime;
+ Parameters.ParamByName('LoopNum').Value := mLoopNum;
+
+ ExecSQL;
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('select * from PCAboutTime ');
+ SQL.Add(' where time >= ' + quotedStr(Trim(mStartTime)));
+
+ Open;
+ end;
+ ADOQueryCmd.First;
+ mNewValue := ADOQueryCmd.FieldByName(mMCName).AsString;
+ mBegTime := ADOQueryCmd.FieldByName('time').AsString;
+ mEndTime := ADOQueryCmd.FieldByName('time').AsString;
+ while not ADOQueryCmd.Eof do
+ begin
+ if (ADOQueryCmd.FieldByName(mMCName).AsString = null) or (ADOQueryCmd.FieldByName(mMCName).AsString = '') then
+ begin
+ mEndTime := ADOQueryCmd.FieldByName('time').AsString;
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('update Dye_Plan_Glide set BegTime = ' + QuotedStr(Trim(mBegTime)));
+ sql.Add(' , EndTime = ' + QuotedStr(Trim(mEndTime)));
+ SQL.Add(' where GlideID = ' + QuotedStr(Trim(GetLastLine(mNewValue))));
+ ExecSQL;
+ end;
+ ADOQueryCmd.Connection.CommitTrans;
+ result := true;
+ Exit;
+ end;
+
+ if mNewValue <> ADOQueryCmd.FieldByName(mMCName).AsString then
+ begin
+ mEndTime := ADOQueryCmd.FieldByName('time').AsString;
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('update Dye_Plan_Glide set BegTime = ' + QuotedStr(Trim(mBegTime)));
+ sql.Add(' , EndTime = ' + QuotedStr(Trim(mEndTime)));
+ SQL.Add(' where GlideID = ' + QuotedStr(Trim(GetLastLine(mNewValue))));
+ ExecSQL;
+ end;
+ mBegTime := ADOQueryCmd.FieldByName('time').AsString;
+ mNewValue := ADOQueryCmd.FieldByName(mMCName).AsString;
+ end;
+
+ ADOQueryCmd.Next;
+ end;
+
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ result := true;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ result := false;
+ end;
+end;
+
+function TfrmDyePCDetailsList.GetLastLine(const AText: string): string;
+var
+ StringList: TStringList;
+begin
+ Result := '';
+ StringList := TStringList.Create;
+ try
+ StringList.Text := AText; // Զسָ
+ if StringList.Count > 0 then
+ Result := StringList[StringList.Count - 1]; // ȡһ
+ finally
+ StringList.Free;
+ end;
+end;
+
+procedure TfrmDyePCDetailsList.cxButton1Click(Sender: TObject);
+begin
+
+ if CDS_2.FieldByName('PC_FLAG').AsString = '1' then
+ begin
+ Application.MessageBox('Ų', 'ʾϢ', MB_OK);
+ exit;
+ end
+ else if CDS_2.FieldByName('isComplete').AsString <> '' then
+ begin
+ Application.MessageBox('ѱ', 'ʾϢ', MB_OK);
+ exit;
+ end;
+
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+
+ with ADOQueryMain do
+ begin
+ close;
+ filtered := false;
+ sql.Clear;
+ SQL.Add('select Max(EndTime) as MaxTime from V_Dye_Cloth_PaiGang where (BegTime between :StartTime and :EndTime) and PC_FLAG = 1 and MCNO = :MCNO ');
+ Parameters.ParamByName('StartTime').Value := Trunc(BegDate.Date) + Frac(BegTime.Time);
+ Parameters.ParamByName('EndTime').Value := Trunc(EndDate.Date) + Frac(EndTime.Time);
+ Parameters.ParamByName('MCNO').Value := MCNO.Text;
+ Open;
+ end;
+
+ with CDS_1 do
+ begin
+
+ append;
+
+ FieldByName('PCID').value := CDS_2.FieldByName('PCID').AsString;
+ FieldByName('OrderNo').value := CDS_2.FieldByName('OrderNo').AsString;
+ FieldByName('GlideName').value := CDS_2.FieldByName('GlideName').AsString;
+ FieldByName('C_name').value := CDS_2.FieldByName('C_name').AsString;
+ FieldByName('ALL_temperature6').value := CDS_2.FieldByName('ALL_temperature6').AsString;
+ FieldByName('time').value := CDS_2.FieldByName('time').AsString;
+ FieldByName('GlideID').value := CDS_2.FieldByName('GlideID').AsString;
+
+ FieldByName('PCQty').value := CDS_2.FieldByName('PCQty').AsString;
+
+ FieldByName('begTime').value := ADOQueryMain.FieldByName('MaxTime').AsString;
+
+ Post;
+ end;
+
+ ADOQueryCmd.Connection.CommitTrans;
+ except
+ if ADOQueryCmd.Connection.InTransaction then
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+// showMessage('ʱ!');
+ end;
+ if SaveData() then
+ begin
+ Application.MessageBox('Ųɹ', 'ʾϢ', MB_OK);
+ end;
+ initGrid1();
+end;
+
+procedure TfrmDyePCDetailsList.cxButton2Click(Sender: TObject);
+begin
+ if MessageDlg('ȷȡ˲', mtWarning, [mbOK, mbCancel], 0) = mrOK then
+ begin
+ // ʼ
+ ADOQueryCmd.Connection.BeginTrans;
+
+ try
+ // һ²
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('UPDATE PCAboutTime SET ');
+ SQL.Add(MCName.Text + ' = null WHERE ');
+ SQL.Add(' time >= ' + QuotedStr(CDS_1.FieldByName('BegTime').AsString));
+ SQL.Add(' and time < ' + QuotedStr(CDS_1.FieldByName('EndTime').AsString));
+ showMessage(sql.Text);
+ ExecSQL;
+ end;
+
+ // ڶ²
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add(' update Dye_Plan_Glide set PC_FLAG = 0,endTime = null,begTime = null where GlideID = ' + QuotedStr(Trim(CDS_1.FieldByName('GlideID').asString)));
+ ExecSQL;
+ end;
+
+ // ɹύ
+ ADOQueryCmd.Connection.CommitTrans;
+
+ Application.MessageBox('ȡɹ', 'ʾ', 0);
+ InitGrid1();
+
+ except
+ on E: Exception do
+ begin
+ // 쳣ع
+ ADOQueryCmd.Connection.RollbackTrans;
+ ShowMessage('ʧܣ' + E.Message);
+ end;
+ end;
+ end;
+end;
+
+procedure TfrmDyePCDetailsList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmDyePCDetailsList.FormCreate(Sender: TObject);
+begin
+ inherited;
+
+// EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
+// BegDate.DateTime := EndDate.DateTime;
+ fsyrName := trim(DdataBase);
+ canshu1 := trim(DParameters1);
+// SInitComBoxBySql(ADOQueryTemp, GlideName, false, 'select PSName as Name from Dye_Process');
+
+end;
+
+procedure TfrmDyePCDetailsList.InitGrid1();
+var
+ mBegDate, mendDate: string;
+ mAction: string;
+ rs: _Recordset;
+ r: integer;
+begin
+ // ʱ
+
+ try
+ tv1.BeginUpdate;
+ ADOQueryMain.DisableControls;
+
+ with ADOQueryMain do
+ begin
+ close;
+ filtered := false;
+ sql.Clear;
+ SQL.Add('select * from V_Dye_Cloth_PaiGang where (BegTime between :StartTime and :EndTime) and PC_FLAG = 1 and MCNO = :MCNO order By BegTime ');
+ Parameters.ParamByName('StartTime').Value := Trunc(BegDate.Date) + Frac(BegTime.Time);
+ Parameters.ParamByName('EndTime').Value := Trunc(EndDate.Date) + Frac(EndTime.Time);
+ Parameters.ParamByName('MCNO').Value := MCNO.Text;
+ Open;
+ end;
+ SCreateCDS(ADOQueryMain, CDS_1);
+ SInitCDSData(ADOQueryMain, CDS_1);
+ finally
+ ADOQueryMain.EnableControls;
+ tv1.EndUpdate;
+ // tv1.ApplyBestFit();
+ end;
+end;
+
+procedure TfrmDyePCDetailsList.InitGrid2();
+var
+ mBegDate, mendDate: string;
+ mAction: string;
+ rs: _Recordset;
+ r: integer;
+begin
+ // ʱ
+
+ try
+ tv1.BeginUpdate;
+ ADOQueryMain.DisableControls;
+
+ with ADOQueryMain do
+ begin
+ close;
+ filtered := false;
+ sql.Clear;
+ SQL.Add('select * from V_Dye_Cloth_PaiGang');
+ Open;
+
+ end;
+ SCreateCDS(ADOQueryMain, CDS_2);
+ SInitCDSData(ADOQueryMain, CDS_2);
+ finally
+ ADOQueryMain.EnableControls;
+ tv1.EndUpdate;
+ // tv1.ApplyBestFit();
+ end;
+end;
+
+procedure TfrmDyePCDetailsList.MCNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmBS_MachineSel := TfrmBS_MachineSel.Create(Application);
+ with frmBS_MachineSel do
+ begin
+
+ if ShowModal = 1 then
+ begin
+ MCNO.Text := frmBS_MachineSel.Order_Main.FieldByName('MCNO').Value;
+ MCName.Text := frmBS_MachineSel.Order_Main.FieldByName('MCName').Value;
+ Self.InitGrid1();
+ end;
+ end;
+ finally
+ frmBS_MachineSel.Free;
+ end;
+end;
+
+procedure TfrmDyePCDetailsList.TBRafreshClick(Sender: TObject);
+begin
+ MovePanel2.Visible := True;
+ MovePanel2.Refresh;
+ InitGrid1();
+ InitGrid2();
+ MovePanel2.Visible := False;
+end;
+
+procedure TfrmDyePCDetailsList.TbUpdateTimeClick(Sender: TObject);
+var
+ DeletedCount, InsertedCount: Integer;
+ Status, StartDate, EndDate: string;
+begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('exec P_InsertDelTimeToPC @MinuteInterval = 10');
+ Open;
+
+ if not IsEmpty then
+ begin
+ Status := FieldByName('״̬').AsString;
+ DeletedCount := FieldByName('ɾ¼').AsInteger;
+ InsertedCount := FieldByName('¼').AsInteger;
+ StartDate := FieldByName('ʼʱ').AsString;
+ EndDate := FieldByName('ʱ').AsString;
+
+ ShowMessage(Format('ʱݸ³ɹ' + #13#10 + 'ɾ¼%d ' + #13#10 + '¼%d ' + #13#10 + 'ʱ䷶Χ%s %s', [DeletedCount, InsertedCount, StartDate, EndDate]));
+ end
+ else
+ begin
+ ShowMessage('ʱݸɣ');
+ end;
+
+ Close;
+ end;
+end;
+
+procedure TfrmDyePCDetailsList.ToolButton1Click(Sender: TObject);
+begin
+ WriteCxGrid(self.Caption + tv1.Name, Tv1, 'ŲϢ');
+end;
+
+procedure TfrmDyePCDetailsList.ToolButton2Click(Sender: TObject);
+begin
+// if ADOQuerymain.IsEmpty then
+// exit;
+
+ frmMachTaskList := TfrmMachTaskList.create(self);
+ with frmMachTaskList do
+ begin
+// fcurMachId := trim(self.adoquerymain.FieldByName('mcid').AsString);
+// machName.text := trim(self.adoquerymain.FieldByName('mcName').AsString);
+ showModal;
+ free;
+ end;
+ initgrid1();
+end;
+
+procedure TfrmDyePCDetailsList.Tv1BegTimePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+var
+ Begtime: TDateTime;
+ Hour, Min, Sec, MSec: Word;
+begin
+ try
+ // ʹ DisplayValue Sender.AsString
+ if VarIsNull(DisplayValue) or (DisplayValue = '') then
+ Exit;
+
+ Begtime := VarToDateTime(DisplayValue);
+ DecodeTime(Begtime, Hour, Min, Sec, MSec);
+
+ if Sec <> 0 then
+ begin
+ ErrorText := 'ʼʱΪ 0';
+ Error := True; // ô־
+ end
+ else if (Min mod 10) <> 0 then // ӷ֤
+ begin
+ ErrorText := 'ʼʱӱΪ 10 ıǰΪ' + IntToStr(Min);
+ Error := True;
+ end
+ else
+ begin
+ Error := False; // ־
+ end;
+
+ except
+ on E: Exception do
+ begin
+ ErrorText := 'ʱʽ' + E.Message;
+ Error := True;
+ end;
+ end;
+end;
+
+procedure TfrmDyePCDetailsList.tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+// if ADOQuerymain.IsEmpty then
+// exit;
+
+ frmMachTaskList := TfrmMachTaskList.create(self);
+ with frmMachTaskList do
+ begin
+ fBegTime := Self.CDS_1.FieldByName('time').AsString;
+ fMCName := Self.Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+ fText := self.CDS_1.FieldByName(fMCName).AsString;
+ showModal;
+ free;
+ end;
+ initgrid1();
+end;
+
+procedure TfrmDyePCDetailsList.tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+ inherited;
+ ACanvas.Font.Size := 7;
+end;
+
+procedure TfrmDyePCDetailsList.Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+ case Key of
+ VK_LEFT:
+ begin
+ //
+ ShowMessage('');
+ // ִƶĴ
+ end;
+
+ VK_RIGHT:
+ begin
+ // ҷ
+ ShowMessage('ҷ');
+ // ִƶĴ
+ end;
+
+ VK_UP:
+ begin
+ // Ϸ
+ ShowMessage('Ϸ');
+ // ִƶĴ
+ end;
+
+ VK_DOWN:
+ begin
+ // ·
+ ShowMessage('·');
+ // ִƶĴ
+ end;
+
+ end;
+
+end;
+
+procedure TfrmDyePCDetailsList.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+ PC_FLAG, isComplete: Variant;
+begin
+ // ȡֵֶ
+ PC_FLAG := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('PC_FLAG').Index];
+ isComplete := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('isComplete').Index];
+
+ // òͬ״̬ɫ
+ if VarIsNull(PC_FLAG) or (PC_FLAG = 0) then // δƻ
+ begin
+ ACanvas.Brush.Color := $00CCCCFF; // dzɫ
+ ACanvas.Font.Color := clRed;
+ ACanvas.Font.Style := [fsBold];
+ end
+ else if (PC_FLAG = 1) and VarIsNull(isComplete) then // δ
+ begin
+ ACanvas.Brush.Color := clWindow; // Ĭϴڱɫ
+ ACanvas.Font.Color := clWindowText; // Ĭϴıɫ
+ ACanvas.Font.Style := [];
+ end
+ else if (PC_FLAG = 1) and (not VarIsNull(isComplete)) and (isComplete = 0) then // һ
+ begin
+ ACanvas.Brush.Color := $00E0E0E0; // dzɫ
+ ACanvas.Font.Color := clGray;
+ ACanvas.Font.Style := [fsBold]; //
+ end
+ else if (PC_FLAG = 1) and (not VarIsNull(isComplete)) and (isComplete = 1) then // Ʒ
+ begin
+ ACanvas.Brush.Color := $00E0FFE0; // dzɫ
+ ACanvas.Font.Color := $00008000;
+ ACanvas.Font.Style := [fsBold];
+ end
+ else // Ĭ
+ begin
+ ACanvas.Brush.Color := clWindow;
+ ACanvas.Font.Color := clWindowText;
+ ACanvas.Font.Style := [];
+ end;
+
+ // ҪԶɣȡע
+ // ADone := True;
+end;
+
+procedure TfrmDyePCDetailsList.Tv2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+ case Key of
+
+ VK_LEFT:
+ begin
+ //
+ ShowMessage('');
+ // ִƶĴ
+ end;
+
+ VK_RIGHT:
+ begin
+ // ҷ
+ ShowMessage('ҷ');
+ // ִƶĴ
+ end;
+
+ VK_UP:
+ begin
+ // Ϸ
+ ShowMessage('Ϸ');
+ // ִƶĴ
+ end;
+
+ VK_DOWN:
+ begin
+ // ·
+ ShowMessage('·');
+ // ִƶĴ
+ end;
+
+ end;
+
+end;
+
+procedure TfrmDyePCDetailsList.ConNoMChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ end;
+end;
+
+procedure TfrmDyePCDetailsList.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmDyePCDetailsList.FormShow(Sender: TObject);
+begin
+ inherited;
+ ReadCxGrid(self.Caption + tv1.Name, Tv1, 'ŲϢϸ');
+ ReadCxGrid(self.Caption + tv2.Name, Tv2, 'ŲϢϸ');
+ canshu1 := self.fParameters1;
+// BegDate.DateTime := strToDateTime(FormatDateTime('yyyy-MM-dd 00:00:00', SGetServerDate(ADOQueryTemp))) - 1;
+// EndDate.DateTime := strToDateTime(FormatDateTime('yyyy-MM-dd 00:00:00', SGetServerDate(ADOQueryTemp))) + 1;
+ var ServerDate: TDateTime := SGetServerDate(ADOQueryTemp);
+
+ BegDate.Date := Trunc(ServerDate) - 1; // ǰһ
+ EndDate.Date := Trunc(ServerDate) + 1; // һ
+ Begtime.Time := EncodeTime(0, 0, 0, 0); // 8
+ endTime.Time := EncodeTime(0, 0, 0, 0); // 6
+ initgrid1();
+ initgrid2();
+ KeyPreview := True;
+end;
+
+procedure TfrmDyePCDetailsList.TBExportClick(Sender: TObject);
+begin
+ if ADOQueryMain.IsEmpty then
+ exit;
+ TcxGridToExcel(self.Caption, cxGrid1);
+end;
+
+procedure TfrmDyePCDetailsList.TBFindClick(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 TfrmDyePCDetailsList.pcidChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+procedure TfrmDyePCDetailsList.PRTColorChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+procedure TfrmDyePCDetailsList.TBdelClick(Sender: TObject);
+begin
+ if CDS_1.IsEmpty then
+ Exit;
+
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+ try
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('insert into Dye_Need_Up(UType,UDataId) values(''̨ˢ'',' + quotedstr(Trim(CDS_1.fieldbyname('GOID').AsString)) + ') ');
+ sql.Add('delete Dye_Plan_Glide_OutPut where GOID=''' + Trim(CDS_1.fieldbyname('GOID').AsString) + '''');
+
+ ExecSQL;
+ end;
+////////////////// ½ //////////////////
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('exec P_Dye_Card_upCL @PCID=' + QuotedStr(CDS_1.fieldbyname('pcid').AsString));
+
+ execsql;
+ end;
+////////////////// ½ //////////////////
+ CDS_1.Delete;
+ except
+ application.MessageBox('ɾʧܣ', 'ʾϢ', 0);
+ end;
+
+end;
+
+end.
+
diff --git a/F04染色刷卡/U_DyePCList.dfm b/F04染色刷卡/U_DyePCList.dfm
index b8761b6..0eb2646 100644
--- a/F04染色刷卡/U_DyePCList.dfm
+++ b/F04染色刷卡/U_DyePCList.dfm
@@ -8,7 +8,6 @@ inherited frmDyePCList: TfrmDyePCList
Font.Name = 'Tahoma'
OldCreateOrder = True
WindowState = wsMaximized
- ExplicitLeft = -329
ExplicitWidth = 1196
ExplicitHeight = 623
PixelsPerInch = 96
@@ -76,16 +75,24 @@ inherited frmDyePCList: TfrmDyePCList
ImageIndex = 20
OnClick = TBExportClick
end
- object ToolButton1: TToolButton
+ object TbUpdateTime: TToolButton
Left = 409
Top = 0
AutoSize = True
+ Caption = #26356#26032#26102#38388
+ ImageIndex = 1
+ OnClick = TbUpdateTimeClick
+ end
+ object ToolButton1: TToolButton
+ Left = 504
+ Top = 0
+ AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
- Left = 504
+ Left = 599
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -243,6 +250,12 @@ inherited frmDyePCList: TfrmDyePCList
Width = 1180
Height = 482
Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
TabOrder = 3
LookAndFeel.ScrollbarMode = sbmHybrid
LookAndFeel.ScrollMode = scmDefault
@@ -254,6 +267,7 @@ inherited frmDyePCList: TfrmDyePCList
FindPanel.UseExtendedSyntax = True
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = tv1CellDblClick
+ OnCustomDrawCell = tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -263,12 +277,12 @@ inherited frmDyePCList: TfrmDyePCList
DateTimeHandling.Grouping = dtgByDate
OptionsData.Deleting = False
OptionsData.Inserting = False
- OptionsView.CellAutoHeight = True
- OptionsView.ColumnAutoWidth = True
+ OptionsView.DataRowHeight = 40
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 30
+ Styles.Content = cxStyle1
Styles.Selection = DataLink_DyeProcess.SHuangSe
object tv1CraftIdx: TcxGridDBColumn
DataBinding.FieldName = 'CraftIdx'
@@ -284,7 +298,7 @@ inherited frmDyePCList: TfrmDyePCList
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
- Width = 88
+ Width = 72
end
object tv1CCQX1: TcxGridDBColumn
Tag = 99
@@ -294,7 +308,7 @@ inherited frmDyePCList: TfrmDyePCList
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Styles.OnGetContentStyle = tv1CCQX1StylesGetContentStyle
- Width = 109
+ Width = 88
OnCompareRowValuesForCellMerging = tv1CCQX1CompareRowValuesForCellMerging
end
object tv1DX1: TcxGridDBColumn
@@ -304,7 +318,7 @@ inherited frmDyePCList: TfrmDyePCList
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Styles.OnGetContentStyle = tv1DX1StylesGetContentStyle
- Width = 125
+ Width = 101
OnCompareRowValuesForCellMerging = tv1DX1CompareRowValuesForCellMerging
end
object tv1DX2: TcxGridDBColumn
@@ -315,7 +329,7 @@ inherited frmDyePCList: TfrmDyePCList
Options.FilteringPopupIncrementalFiltering = True
Options.CellMerging = True
Styles.OnGetContentStyle = tv1DX2StylesGetContentStyle
- Width = 114
+ Width = 93
OnCompareRowValuesForCellMerging = tv1DX2CompareRowValuesForCellMerging
end
object tv1DX3: TcxGridDBColumn
@@ -326,7 +340,7 @@ inherited frmDyePCList: TfrmDyePCList
Options.FilteringPopupIncrementalFiltering = True
Options.CellMerging = True
Styles.OnGetContentStyle = tv1DX3StylesGetContentStyle
- Width = 117
+ Width = 94
OnCompareRowValuesForCellMerging = tv1DX3CompareRowValuesForCellMerging
end
object tv1DX4: TcxGridDBColumn
@@ -337,7 +351,7 @@ inherited frmDyePCList: TfrmDyePCList
Options.FilteringPopupIncrementalFiltering = True
Options.CellMerging = True
Styles.OnGetContentStyle = tv1DX4StylesGetContentStyle
- Width = 109
+ Width = 89
OnCompareRowValuesForCellMerging = tv1DX4CompareRowValuesForCellMerging
end
object tv1DX5: TcxGridDBColumn
@@ -348,7 +362,7 @@ inherited frmDyePCList: TfrmDyePCList
Options.FilteringPopupIncrementalFiltering = True
Options.CellMerging = True
Styles.OnGetContentStyle = tv1DX5StylesGetContentStyle
- Width = 103
+ Width = 83
OnCompareRowValuesForCellMerging = tv1DX5CompareRowValuesForCellMerging
end
object tv1DX6: TcxGridDBColumn
@@ -359,7 +373,7 @@ inherited frmDyePCList: TfrmDyePCList
Options.FilteringPopupIncrementalFiltering = True
Options.CellMerging = True
Styles.OnGetContentStyle = tv1DX6StylesGetContentStyle
- Width = 100
+ Width = 81
OnCompareRowValuesForCellMerging = tv1DX6CompareRowValuesForCellMerging
end
object tv1JG1: TcxGridDBColumn
@@ -370,7 +384,7 @@ inherited frmDyePCList: TfrmDyePCList
Options.FilteringPopupIncrementalFiltering = True
Options.CellMerging = True
Styles.OnGetContentStyle = tv1JG1StylesGetContentStyle
- Width = 100
+ Width = 81
OnCompareRowValuesForCellMerging = tv1JG1CompareRowValuesForCellMerging
end
object tv1JRG1: TcxGridDBColumn
@@ -381,7 +395,7 @@ inherited frmDyePCList: TfrmDyePCList
Options.FilteringPopupIncrementalFiltering = True
Options.CellMerging = True
Styles.OnGetContentStyle = tv1JRG1StylesGetContentStyle
- Width = 100
+ Width = 81
OnCompareRowValuesForCellMerging = tv1JRG1CompareRowValuesForCellMerging
end
object tv1JRG2: TcxGridDBColumn
@@ -392,7 +406,7 @@ inherited frmDyePCList: TfrmDyePCList
Options.FilteringPopupIncrementalFiltering = True
Options.CellMerging = True
Styles.OnGetContentStyle = tv1JRG2StylesGetContentStyle
- Width = 100
+ Width = 81
OnCompareRowValuesForCellMerging = tv1JRG2CompareRowValuesForCellMerging
end
object tv1JRG3: TcxGridDBColumn
@@ -402,7 +416,7 @@ inherited frmDyePCList: TfrmDyePCList
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Styles.OnGetContentStyle = tv1JRG3StylesGetContentStyle
- Width = 100
+ Width = 81
OnCompareRowValuesForCellMerging = tv1JRG3CompareRowValuesForCellMerging
end
object tv1GC_BatchNo: TcxGridDBColumn
@@ -442,6 +456,20 @@ inherited frmDyePCList: TfrmDyePCList
HeaderAlignmentHorz = taCenter
Width = 80
end
+ object tv1ZM1: TcxGridDBColumn
+ Caption = #36711#27611#26426'1'
+ DataBinding.FieldName = 'ZM1'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 61
+ end
+ object tv1ZM2: TcxGridDBColumn
+ Caption = #36711#27611#26426'2'
+ DataBinding.FieldName = 'ZM2'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 60
+ end
end
object dbGrid1Level1: TcxGridLevel
GridView = tv1
@@ -513,4 +541,15 @@ inherited frmDyePCList: TfrmDyePCList
Top = 56
ReportData = {}
end
+ object cxStyleRepository1: TcxStyleRepository
+ PixelsPerInch = 96
+ object cxStyle1: TcxStyle
+ AssignedValues = [svFont]
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ end
+ end
end
diff --git a/F04染色刷卡/U_DyePCList.pas b/F04染色刷卡/U_DyePCList.pas
index fe0f4a2..9932429 100644
--- a/F04染色刷卡/U_DyePCList.pas
+++ b/F04染色刷卡/U_DyePCList.pas
@@ -67,6 +67,11 @@ type
tv1PCKey: TcxGridDBColumn;
BegTime: TDateTimePicker;
EndTime: TDateTimePicker;
+ cxStyleRepository1: TcxStyleRepository;
+ cxStyle1: TcxStyle;
+ tv1ZM1: TcxGridDBColumn;
+ tv1ZM2: TcxGridDBColumn;
+ TbUpdateTime: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@@ -94,36 +99,18 @@ type
procedure tv1JG1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure tv1JRG3CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure tv1DX1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
- procedure tv1CCQX1StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1DX2StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1DX3StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1DX4StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1DX5StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1DX6StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1JG1StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1JRG1StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1JRG2StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
- procedure tv1JRG3StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
- var AStyle: TcxStyle);
+ procedure tv1CCQX1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1DX2StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1DX3StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1DX4StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1DX5StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1DX6StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1JG1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1JRG1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1JRG2StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1JRG3StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+ procedure tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+ procedure TbUpdateTimeClick(Sender: TObject);
private
FLeft, FTop: Integer;
@@ -211,6 +198,41 @@ begin
MovePanel2.Visible := False;
end;
+procedure TfrmDyePCList.TbUpdateTimeClick(Sender: TObject);
+var
+ DeletedCount, InsertedCount: Integer;
+ Status, StartDate, EndDate: string;
+begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('exec P_InsertDelTimeToPC @MinuteInterval = 10');
+ Open;
+
+ if not IsEmpty then
+ begin
+ Status := FieldByName('״̬').AsString;
+ DeletedCount := FieldByName('ɾ¼').AsInteger;
+ InsertedCount := FieldByName('¼').AsInteger;
+ StartDate := FieldByName('ʼʱ').AsString;
+ EndDate := FieldByName('ʱ').AsString;
+
+ ShowMessage(Format('ʱݸ³ɹ' + #13#10 +
+ 'ɾ¼%d ' + #13#10 +
+ '¼%d ' + #13#10 +
+ 'ʱ䷶Χ%s %s',
+ [DeletedCount, InsertedCount, StartDate, EndDate]));
+ end
+ else
+ begin
+ ShowMessage('ʱݸɣ');
+ end;
+
+ Close;
+ end;
+end;
+
procedure TfrmDyePCList.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + tv1.Name, Tv1, 'ŲϢ');
@@ -249,6 +271,12 @@ begin
initgrid();
end;
+procedure TfrmDyePCList.tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+ inherited;
+ ACanvas.Font.Size := 7;
+end;
+
procedure TfrmDyePCList.tv1DX5CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[tv1DX5.Index] = ARow2.Values[tv1DX5.Index]) and (ARow1.Values[tv1DX5.Index] <> NULL) then
@@ -257,9 +285,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1DX5StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1DX5StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -276,9 +302,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -293,9 +322,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1DX2StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1DX2StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -312,9 +339,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -329,9 +359,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1DX3StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1DX3StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -348,9 +376,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -365,8 +396,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1DX1StylesGetContentStyle(Sender: TcxCustomGridTableView;
- ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1DX1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -383,9 +413,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -423,9 +456,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1CCQX1StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1CCQX1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -442,9 +473,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -459,9 +493,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1DX4StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1DX4StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -478,9 +510,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -495,9 +530,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1DX6StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1DX6StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -514,9 +547,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -531,9 +567,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1JG1StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1JG1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -550,9 +584,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -568,9 +605,7 @@ begin
end;
-procedure TfrmDyePCList.tv1JRG1StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1JRG1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -587,9 +622,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -604,9 +642,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1JRG2StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1JRG2StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -623,9 +659,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
@@ -640,9 +679,7 @@ begin
AAreEqual := False;
end;
-procedure TfrmDyePCList.tv1JRG3StylesGetContentStyle(
- Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
- AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+procedure TfrmDyePCList.tv1JRG3StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
ColorValue: Integer;
@@ -659,9 +696,12 @@ begin
ColorValue := StrToInt(Copy(GroupValue, Length(GroupValue), 1));
AStyle := TcxStyle.Create(nil);
case ColorValue mod 3 of
- 0: AStyle.Color := $00CCFFFF; // ɫ
- 1: AStyle.Color := $00CCFFCC; // ɫ
- 2: AStyle.Color := $00FFCCCC; // ɫ
+ 0:
+ AStyle.Color := $00CCFFFF; // ɫ
+ 1:
+ AStyle.Color := $00CCFFCC; // ɫ
+ 2:
+ AStyle.Color := $00FFCCCC; // ɫ
end;
AStyle.TextColor := clBlack;
end;
diff --git a/F04染色刷卡/U_DyePCMachineList.dfm b/F04染色刷卡/U_DyePCMachineList.dfm
new file mode 100644
index 0000000..c784cfb
--- /dev/null
+++ b/F04染色刷卡/U_DyePCMachineList.dfm
@@ -0,0 +1,538 @@
+inherited frmDyePCMachineList: TfrmDyePCMachineList
+ Caption = #25490#20135#20449#24687
+ ClientHeight = 584
+ ClientWidth = 1180
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Height = -16
+ Font.Name = 'Tahoma'
+ OldCreateOrder = True
+ WindowState = wsMaximized
+ ExplicitWidth = 1196
+ ExplicitHeight = 623
+ PixelsPerInch = 96
+ TextHeight = 19
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1180
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 97
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ DisabledImages = DataLink_DyeProcess.ImageList_new32
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_DyeProcess.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 TBPrint: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360
+ ImageIndex = 21
+ Visible = False
+ end
+ object ToolButton2: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
+ Caption = #25195#25551#25490#32568
+ ImageIndex = 2
+ OnClick = ToolButton2Click
+ end
+ object TbAdd: TToolButton
+ Left = 308
+ Top = 0
+ AutoSize = True
+ Caption = #22686#34892
+ ImageIndex = 2
+ OnClick = TbAddClick
+ end
+ object TbDel: TToolButton
+ Left = 379
+ Top = 0
+ AutoSize = True
+ Caption = #21024#34892
+ ImageIndex = 6
+ OnClick = TbDelClick
+ end
+ object TBExport: TToolButton
+ Left = 450
+ Top = 0
+ AutoSize = True
+ Caption = #23548#20986'Excel'
+ ImageIndex = 20
+ OnClick = TBExportClick
+ end
+ object ToolButton1: TToolButton
+ Left = 551
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton1Click
+ end
+ object TBClose: TToolButton
+ Left = 646
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [1]
+ Left = 0
+ Top = 38
+ Width = 1180
+ Height = 64
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clSkyBlue
+ TabOrder = 1
+ object Label3: TLabel
+ Left = 288
+ Top = 28
+ Width = 32
+ Height = 19
+ Caption = #35774#22791
+ end
+ object Label13: TLabel
+ Left = 288
+ Top = 128
+ Width = 32
+ Height = 19
+ Caption = #23458#25143
+ end
+ object Label17: TLabel
+ Left = 440
+ Top = 128
+ Width = 48
+ Height = 19
+ Caption = #19994#21153#21592
+ end
+ object Label7: TLabel
+ Left = 604
+ Top = 124
+ Width = 48
+ Height = 19
+ Caption = #33457#22411#21495
+ end
+ object Label1: TLabel
+ Left = 23
+ Top = 6
+ Width = 64
+ Height = 19
+ Caption = #24320#22987#26102#38388
+ end
+ object Label2: TLabel
+ Left = 23
+ Top = 40
+ Width = 64
+ Height = 19
+ Caption = #32467#26463#26102#38388
+ end
+ object customerNoName: TEdit
+ Tag = 2
+ Left = 314
+ Top = 124
+ Width = 100
+ Height = 27
+ TabOrder = 0
+ OnChange = pcidChange
+ end
+ object ywy: TEdit
+ Tag = 2
+ Left = 478
+ Top = 124
+ Width = 100
+ Height = 27
+ TabOrder = 1
+ OnChange = pcidChange
+ end
+ object lbHx: TEdit
+ Tag = 2
+ Left = 642
+ Top = 120
+ Width = 80
+ Height = 27
+ TabOrder = 2
+ OnChange = pcidChange
+ end
+ object BegDate: TDateTimePicker
+ Left = 88
+ Top = 6
+ Width = 89
+ Height = 27
+ Date = 45922.000000000000000000
+ Time = 0.672359988428070200
+ TabOrder = 3
+ end
+ object EndDate: TDateTimePicker
+ Left = 88
+ Top = 33
+ Width = 89
+ Height = 27
+ Date = 45912.000000000000000000
+ Time = 0.672466979165619700
+ TabOrder = 4
+ end
+ object BegTime: TDateTimePicker
+ Left = 176
+ Top = 6
+ Width = 73
+ Height = 27
+ Date = 45912.000000000000000000
+ Time = 0.672359988428070200
+ Kind = dtkTime
+ TabOrder = 5
+ end
+ object EndTime: TDateTimePicker
+ Left = 176
+ Top = 33
+ Width = 73
+ Height = 27
+ Date = 45912.000000000000000000
+ Time = 0.672466979165619700
+ Kind = dtkTime
+ TabOrder = 6
+ end
+ object MCNO: TComboBox
+ Left = 318
+ Top = 24
+ Width = 145
+ Height = 27
+ TabOrder = 7
+ OnChange = MCNOChange
+ Items.Strings = (
+ #38271#36710#28165#27927#26426
+ #23450#22411#19968#21495#26426
+ #23450#22411#20108#21495#26426
+ #23450#22411#19977#21495#26426
+ #23450#22411#22235#21495#26426
+ #23450#22411#20116#21495#26426
+ #23450#22411#20845#21495#26426
+ #26426#32568
+ #21367#26579#32568'1'
+ #21367#26579#32568'2'
+ #21367#26579#32568'3'
+ #36711#27611#26426'1'
+ #36711#27611#26426'2')
+ end
+ object MCName: TEdit
+ Left = 551
+ Top = 31
+ Width = 121
+ Height = 27
+ TabOrder = 8
+ Visible = False
+ end
+ end
+ object MovePanel2: TMovePanel [2]
+ Left = 351
+ Top = 244
+ Width = 289
+ Height = 49
+ BevelInner = bvLowered
+ Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+ Color = clSkyBlue
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -14
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 2
+ Visible = False
+ end
+ object dbGrid1: TcxGrid [3]
+ Left = 0
+ Top = 102
+ Width = 1180
+ Height = 482
+ Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 3
+ LookAndFeel.ScrollbarMode = sbmHybrid
+ LookAndFeel.ScrollMode = scmDefault
+ object tv1: TcxGridDBTableView
+ Tag = 9999
+ DragMode = dmAutomatic
+ Navigator.Buttons.CustomButtons = <>
+ FindPanel.DisplayMode = fpdmAlways
+ FindPanel.UseExtendedSyntax = True
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnCellDblClick = tv1CellDblClick
+ DataController.DataSource = DataSource1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ DateTimeHandling.Grouping = dtgByDate
+ OptionsData.Appending = True
+ OptionsData.Inserting = False
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.DataRowHeight = 40
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.Indicator = True
+ OptionsView.IndicatorWidth = 30
+ Styles.Content = cxStyle1
+ Styles.Selection = DataLink_DyeProcess.SHuangSe
+ object tv1CraftIdx: TcxGridDBColumn
+ DataBinding.FieldName = 'CraftIdx'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ end
+ object tv1mcName: TcxGridDBColumn
+ Caption = #27969#31243#21345#21495
+ DataBinding.FieldName = 'PCID'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = tv1mcNamePropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 88
+ end
+ object tv1CCQX1: TcxGridDBColumn
+ Tag = 99
+ Caption = #29983#20135#24037#21333#21495
+ DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 109
+ end
+ object tv1DX1: TcxGridDBColumn
+ Caption = #25104#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 125
+ end
+ object tv1DX2: TcxGridDBColumn
+ Caption = #24037#24207#21517#31216
+ DataBinding.FieldName = 'PSName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.FilteringPopupIncrementalFiltering = True
+ Width = 114
+ end
+ object tv1DX3: TcxGridDBColumn
+ Caption = #28201#24230
+ DataBinding.FieldName = 'ALL_temperature6'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.FilteringPopupIncrementalFiltering = True
+ Width = 117
+ end
+ object tv1DX4: TcxGridDBColumn
+ Caption = #21161#21058#21450#27604#20363
+ DataBinding.FieldName = 'All_zhuji'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.FilteringPopupIncrementalFiltering = True
+ Width = 109
+ end
+ object tv1DX5: TcxGridDBColumn
+ Caption = #31859#25968
+ DataBinding.FieldName = 'PCQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.FilteringPopupIncrementalFiltering = True
+ Width = 103
+ end
+ object tv1DX6: TcxGridDBColumn
+ Caption = #24635#29992#26102
+ DataBinding.FieldName = 'time'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.FilteringPopupIncrementalFiltering = True
+ Width = 100
+ end
+ object tv1JG1: TcxGridDBColumn
+ Caption = #36215#22987#26102#38388
+ DataBinding.FieldName = 'BegTime'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.Kind = ckDateTime
+ HeaderAlignmentHorz = taCenter
+ Options.FilteringPopupIncrementalFiltering = True
+ Width = 100
+ end
+ object tv1JRG1: TcxGridDBColumn
+ Caption = #32467#26463#26102#38388
+ DataBinding.FieldName = 'EndTime'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.Kind = ckDateTime
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.FilteringPopupIncrementalFiltering = True
+ Width = 100
+ end
+ object tv1GC_BatchNo: TcxGridDBColumn
+ Caption = #22383#24067#25209#27425
+ DataBinding.FieldName = 'GC_BatchNo'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Filtering = False
+ Width = 89
+ end
+ object tv1CurGlideName: TcxGridDBColumn
+ Caption = #21047#21345#36827#24230
+ DataBinding.FieldName = 'CurGlideName'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Focusing = False
+ Width = 62
+ end
+ object tv1Note: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Options.Filtering = False
+ Options.Focusing = False
+ Width = 109
+ end
+ object tv1PCKey: TcxGridDBColumn
+ DataBinding.FieldName = 'PCKey'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object dbGrid1Level1: TcxGridLevel
+ GridView = tv1
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ Left = 225
+ Top = 328
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ Left = 81
+ Top = 329
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ Parameters = <>
+ Left = 652
+ Top = 280
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 852
+ Top = 280
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyeProcess.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 764
+ Top = 288
+ end
+ object DataSource1: TDataSource
+ DataSet = CDS_Main
+ Left = 896
+ Top = 360
+ end
+ object cxGridPopupMenu1: TcxGridPopupMenu
+ Grid = dbGrid1
+ PopupMenus = <>
+ Left = 920
+ Top = 216
+ end
+ object CDS_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 768
+ Top = 376
+ end
+ object RMGridReport1: TRMGridReport
+ ThreadPrepareReport = True
+ InitialZoom = pzDefault
+ PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
+ DefaultCollate = 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 = 720
+ Top = 56
+ ReportData = {}
+ end
+ object cxStyleRepository1: TcxStyleRepository
+ PixelsPerInch = 96
+ object cxStyle1: TcxStyle
+ AssignedValues = [svFont]
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ end
+ end
+end
diff --git a/F04染色刷卡/U_DyePCMachineList.pas b/F04染色刷卡/U_DyePCMachineList.pas
new file mode 100644
index 0000000..dec6112
--- /dev/null
+++ b/F04染色刷卡/U_DyePCMachineList.pas
@@ -0,0 +1,370 @@
+unit U_DyePCMachineList;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
+ cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
+ cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
+ ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
+ cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
+ RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+ dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
+ U_BaseList, dxScrollbarAnnotations;
+
+type
+ TfrmDyePCMachineList = class(TfrmBaseList)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBFind: TToolButton;
+ TBExport: TToolButton;
+ TBPrint: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DataSource1: TDataSource;
+ cxGridPopupMenu1: TcxGridPopupMenu;
+ Label3: TLabel;
+ CDS_Main: TClientDataSet;
+ MovePanel2: TMovePanel;
+ RMGridReport1: TRMGridReport;
+ customerNoName: TEdit;
+ Label13: TLabel;
+ ywy: TEdit;
+ Label17: TLabel;
+ lbHx: TEdit;
+ Label7: TLabel;
+ ToolButton1: TToolButton;
+ dbGrid1: TcxGrid;
+ tv1: TcxGridDBTableView;
+ tv1CraftIdx: TcxGridDBColumn;
+ tv1mcName: TcxGridDBColumn;
+ tv1CCQX1: TcxGridDBColumn;
+ tv1DX1: TcxGridDBColumn;
+ tv1DX2: TcxGridDBColumn;
+ tv1DX3: TcxGridDBColumn;
+ tv1DX4: TcxGridDBColumn;
+ tv1DX5: TcxGridDBColumn;
+ tv1DX6: TcxGridDBColumn;
+ tv1JG1: TcxGridDBColumn;
+ tv1JRG1: TcxGridDBColumn;
+ tv1GC_BatchNo: TcxGridDBColumn;
+ tv1CurGlideName: TcxGridDBColumn;
+ tv1Note: TcxGridDBColumn;
+ dbGrid1Level1: TcxGridLevel;
+ ToolButton2: TToolButton;
+ BegDate: TDateTimePicker;
+ EndDate: TDateTimePicker;
+ Label1: TLabel;
+ Label2: TLabel;
+ tv1PCKey: TcxGridDBColumn;
+ BegTime: TDateTimePicker;
+ EndTime: TDateTimePicker;
+ cxStyleRepository1: TcxStyleRepository;
+ cxStyle1: TcxStyle;
+ MCNO: TComboBox;
+ TbAdd: TToolButton;
+ MCName: TEdit;
+ TbDel: TToolButton;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure FormCreate(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure ConNoMChange(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBExportClick(Sender: TObject);
+ procedure TBFindClick(Sender: TObject);
+ procedure pcidChange(Sender: TObject);
+ procedure PRTColorChange(Sender: TObject);
+
+ procedure ToolButton1Click(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+
+ procedure tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ procedure tv1mcNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure MCNOChange(Sender: TObject);
+ procedure TbAddClick(Sender: TObject);
+ procedure TbDelClick(Sender: TObject);
+
+
+// procedure tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+// ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+// var ADone: Boolean);
+
+ private
+ FLeft, FTop: Integer;
+ procedure InitGrid();
+ { Private declarations }
+ public
+ fsyrName, canshu1: string;
+
+ { Public declarations }
+ end;
+
+var
+ frmDyePCMachineList: TfrmDyePCMachineList;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_MachTaskList;
+
+{$R *.dfm}
+
+procedure TfrmDyePCMachineList.FormDestroy(Sender: TObject);
+begin
+ inherited;
+ frmDyePCMachineList := nil;
+end;
+
+procedure TfrmDyePCMachineList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmDyePCMachineList.FormCreate(Sender: TObject);
+begin
+ inherited;
+
+// EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
+// BegDate.DateTime := EndDate.DateTime;
+ fsyrName := trim(DdataBase);
+ canshu1 := trim(DParameters1);
+// SInitComBoxBySql(ADOQueryTemp, GlideName, false, 'select PSName as Name from Dye_Process');
+
+end;
+
+procedure TfrmDyePCMachineList.InitGrid();
+var
+ mBegDate, mendDate: string;
+ mAction: string;
+ rs: _Recordset;
+ r: integer;
+begin
+ // ʱ
+
+ try
+ tv1.BeginUpdate;
+ ADOQueryMain.DisableControls;
+
+ with ADOQueryMain do
+ begin
+ close;
+ filtered := false;
+ sql.Clear;
+ SQL.Add('select * from V_Dye_Cloth_PaiGang where (BegTime between :StartTime and :EndTime) and MCNO = :MCNO order By BegTime');
+ Parameters.ParamByName('StartTime').Value := Trunc(BegDate.Date) + Frac(BegTime.Time);
+ Parameters.ParamByName('EndTime').Value := Trunc(EndDate.Date) + Frac(EndTime.Time);
+ Parameters.ParamByName('MCNO').Value := MCNO.Text;
+ Open;
+
+ end;
+ SCreateCDS(ADOQueryMain, CDS_main);
+ SInitCDSData(ADOQueryMain, CDS_main);
+ finally
+ ADOQueryMain.EnableControls;
+ tv1.EndUpdate;
+ // tv1.ApplyBestFit();
+ end;
+end;
+
+procedure TfrmDyePCMachineList.MCNOChange(Sender: TObject);
+begin
+ InitGrid();
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' select * from Bs_Machine where MCNO = ' + quotedStr(Trim(MCNO.Text)));
+ Open;
+ end;
+ MCName.Text := ADOQueryCmd.FieldByName('MCName').AsString;
+end;
+
+procedure TfrmDyePCMachineList.TBRafreshClick(Sender: TObject);
+begin
+ MovePanel2.Visible := True;
+ MovePanel2.Refresh;
+ InitGrid();
+ MovePanel2.Visible := False;
+end;
+
+procedure TfrmDyePCMachineList.ToolButton1Click(Sender: TObject);
+begin
+ WriteCxGrid(self.Caption + tv1.Name, Tv1, 'ŲϢ');
+end;
+
+procedure TfrmDyePCMachineList.ToolButton2Click(Sender: TObject);
+begin
+// if ADOQuerymain.IsEmpty then
+// exit;
+
+ frmMachTaskList := TfrmMachTaskList.create(self);
+ with frmMachTaskList do
+ begin
+// fcurMachId := trim(self.adoquerymain.FieldByName('mcid').AsString);
+// machName.text := trim(self.adoquerymain.FieldByName('mcName').AsString);
+ showModal;
+ free;
+ end;
+ initgrid();
+end;
+
+procedure TfrmDyePCMachineList.tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+// if ADOQuerymain.IsEmpty then
+// exit;
+
+// frmMachTaskList := TfrmMachTaskList.create(self);
+// with frmMachTaskList do
+// begin
+// fBegTime := Self.CDS_Main.FieldByName('time').AsString;
+// fMCName := Self.Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+// fText := self.CDS_Main.FieldByName(fMCName).AsString;
+// showModal;
+// free;
+// end;
+// initgrid();
+end;
+
+procedure TfrmDyePCMachineList.tv1mcNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+// if ADOQuerymain.IsEmpty then
+// exit;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.add('select * from PCAboutTime where time = ' + QuotedStr(Trim(CDS_Main.FieldByName('begtime').AsString)));
+ Open;
+ end;
+
+ frmMachTaskList := TfrmMachTaskList.create(self);
+ with frmMachTaskList do
+ begin
+ fBegTime := Self.CDS_Main.FieldByName('Begtime').AsString;
+ fMCName := Self.MCName.Text;
+ fText := self.ADOQueryCmd.FieldByName(fMCName).AsString;
+ showModal;
+ free;
+ end;
+ initgrid();
+end;
+
+//procedure TfrmDyePCMachineList.tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+// ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+// var ADone: Boolean);
+//begin
+// inherited;
+// ACanvas.Font.Size := 7;
+//end;
+
+procedure TfrmDyePCMachineList.ConNoMChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ end;
+end;
+
+procedure TfrmDyePCMachineList.TbAddClick(Sender: TObject);
+var
+ mTime: TDateTime;
+begin
+ if CDS_Main.IsEmpty then
+ begin
+
+ mTime := Trunc(SGetServerDateTime(ADOQueryTemp) * 144 + 1) / 144;
+ end
+ else
+ begin
+ // ƶһ¼ȡBegTime
+// CDS_Main.Prior;
+ CDS_Main.Last;
+ mTime := CDS_Main.FieldByName('EndTime').AsDateTime;
+// CDS_Main.Next; // ƻصǰλ
+ end;
+
+ with CDS_Main do
+ begin
+ Append;
+ FieldByName('BegTime').Value := mTime;
+ Post; // ¼
+ end;
+end;
+
+procedure TfrmDyePCMachineList.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmDyePCMachineList.TbDelClick(Sender: TObject);
+begin
+ if (CDS_Main.FieldByName('PCID').Value = null) or (CDS_Main.FieldByName('PCID').Value = '') then
+ begin
+ CDS_Main.Delete;
+ end
+ else
+ begin
+ Application.MessageBox('Ųɾ','ʾϢ',MB_OK);
+ end;
+
+
+end;
+
+procedure TfrmDyePCMachineList.FormShow(Sender: TObject);
+begin
+ inherited;
+ ReadCxGrid(self.Caption + tv1.Name, Tv1, 'ŲϢ');
+ canshu1 := self.fParameters1;
+// BegDate.DateTime := strToDateTime(FormatDateTime('yyyy-MM-dd 00:00:00', SGetServerDate(ADOQueryTemp))) - 1;
+// EndDate.DateTime := strToDateTime(FormatDateTime('yyyy-MM-dd 00:00:00', SGetServerDate(ADOQueryTemp))) + 1;
+ var ServerDate: TDateTime := SGetServerDate(ADOQueryTemp);
+
+ BegDate.Date := Trunc(ServerDate) - 1; // ǰһ
+ EndDate.Date := Trunc(ServerDate) + 1; // һ
+ BegTime.Time := EncodeTime(0, 0, 0, 0); // 8
+ endTime.Time := EncodeTime(0, 0, 0, 0); // 6
+
+ MCNO.Text := 'ϴ';
+ MCName.Text := 'CCQX1';
+ initgrid();
+end;
+
+procedure TfrmDyePCMachineList.TBExportClick(Sender: TObject);
+begin
+ if ADOQueryMain.IsEmpty then
+ exit;
+// SelExportData(tv1,ADOQueryMain,self.Caption);
+ TcxGridToExcel(self.Caption, DBGrid1);
+end;
+
+procedure TfrmDyePCMachineList.TBFindClick(Sender: TObject);
+begin
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, CDS_Main);
+ SInitCDSData(ADOQueryMain, CDS_Main);
+ end;
+end;
+
+procedure TfrmDyePCMachineList.pcidChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+procedure TfrmDyePCMachineList.PRTColorChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+end.
+
diff --git a/F04染色刷卡/U_GetDllForm.pas b/F04染色刷卡/U_GetDllForm.pas
index 6cff925..42af9dd 100644
--- a/F04染色刷卡/U_GetDllForm.pas
+++ b/F04染色刷卡/U_GetDllForm.pas
@@ -15,7 +15,8 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation
uses
- U_DataLink, U_iniParam, U_DyeOutput, U_DyeOutputList, U_DyePCList;
+ U_DataLink, U_iniParam, U_DyeOutput, U_DyeOutputList, U_DyePCList,
+ U_DyePCMachineList,U_DyePCDetailsList;
/////////////////////////////////////////////////////////////////
// ˵:ȡDllеô //
@@ -134,6 +135,28 @@ begin
mnewHandle := Handle;
end;
end;
+ 2: //̨Ųϸ
+ begin
+ with TfrmDyePCMachineList.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;
+ 3: //ŲϢϸ
+ begin
+ with TfrmDyePCDetailsList.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 TfrmDyeOutput.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
diff --git a/F04染色刷卡/U_MachTaskList.dfm b/F04染色刷卡/U_MachTaskList.dfm
index 022ffef..4206a27 100644
--- a/F04染色刷卡/U_MachTaskList.dfm
+++ b/F04染色刷卡/U_MachTaskList.dfm
@@ -66,7 +66,7 @@ object frmMachTaskList: TfrmMachTaskList
Width = 59
end
object Tv1pcid: TcxGridDBColumn
- Caption = #27969#31243#21345#21495
+ Caption = #27969#31243#21345#32452#21495
DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -94,6 +94,7 @@ object frmMachTaskList: TfrmMachTaskList
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1c_colorPropertiesButtonClick
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 78
end
object Tv1taskRollNum: TcxGridDBColumn
@@ -332,6 +333,52 @@ object frmMachTaskList: TfrmMachTaskList
TabOrder = 1
Width = 155
end
+ object Panel2: TPanel
+ Left = 968
+ Top = 6
+ Width = 60
+ Height = 25
+ Caption = #26410#25490#20135
+ Color = 13421823
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentBackground = False
+ ParentFont = False
+ TabOrder = 2
+ end
+ object Panel3: TPanel
+ Left = 1048
+ Top = 6
+ Width = 105
+ Height = 25
+ Caption = #25490#20837#26410#25253#24037
+ Color = clWindow
+ ParentBackground = False
+ TabOrder = 3
+ end
+ object Panel4: TPanel
+ Left = 1184
+ Top = 6
+ Width = 105
+ Height = 25
+ Caption = #29983#20135#19968#37096#20998
+ Color = 14737632
+ ParentBackground = False
+ TabOrder = 4
+ end
+ object Panel5: TPanel
+ Left = 1328
+ Top = 6
+ Width = 129
+ Height = 25
+ Caption = #25104#21697#24050#20837#24211
+ Color = 14745568
+ ParentBackground = False
+ TabOrder = 5
+ end
end
object cxGrid2: TcxGrid
Left = 849
@@ -345,6 +392,7 @@ object frmMachTaskList: TfrmMachTaskList
FindPanel.DisplayMode = fpdmAlways
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv2CellDblClick
+ OnCustomDrawCell = Tv2CustomDrawCell
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
@@ -359,7 +407,7 @@ object frmMachTaskList: TfrmMachTaskList
Width = 99
end
object Tv2PCID: TcxGridDBColumn
- Caption = #27969#31243#21345#21495
+ Caption = #27969#31243#21345#32452#21495
DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -429,6 +477,18 @@ object frmMachTaskList: TfrmMachTaskList
HeaderAlignmentHorz = taCenter
Width = 80
end
+ object Tv2PC_FLAG: TcxGridDBColumn
+ DataBinding.FieldName = 'PC_FLAG'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2isComplete: TcxGridDBColumn
+ DataBinding.FieldName = 'isComplete'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv2
diff --git a/F04染色刷卡/U_MachTaskList.pas b/F04染色刷卡/U_MachTaskList.pas
index 9f79784..813d0d3 100644
--- a/F04染色刷卡/U_MachTaskList.pas
+++ b/F04染色刷卡/U_MachTaskList.pas
@@ -71,6 +71,12 @@ type
cxGridPopupMenu1: TcxGridPopupMenu;
cxGridPopupMenu2: TcxGridPopupMenu;
Tv2GlideID: TcxGridDBColumn;
+ Tv2PC_FLAG: TcxGridDBColumn;
+ Panel2: TPanel;
+ Panel3: TPanel;
+ Panel4: TPanel;
+ Panel5: TPanel;
+ Tv2isComplete: TcxGridDBColumn;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
@@ -88,6 +94,7 @@ type
procedure tv1BegTimePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure Tv2GlideNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1c_colorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
private
procedure initGrid();
@@ -345,7 +352,7 @@ begin
open;
if not IsEmpty then
begin
- Application.MessageBox('ʱظ', 'ʾϢ', MB_OK);
+ Application.MessageBox('ʱγͻ', 'ʾϢ', MB_OK);
Exit;
end;
end;
@@ -361,17 +368,15 @@ begin
open;
if not IsEmpty then
begin
- Application.MessageBox('ʱظ', 'ʾϢ', MB_OK);
+ Application.MessageBox('ʱγͻ', 'ʾϢ', MB_OK);
Exit;
end;
end;
-
Result := True;
end;
procedure TfrmMachTaskList.TbSaveClick(Sender: TObject);
begin
-
// if CDS_1.Locate('PSName', '', []) or CDS_1.Locate('PSName', null, []) then
// begin
// Application.MessageBox('ƹƣ', 'ʾϢ', MB_OK);
@@ -391,6 +396,7 @@ function TfrmMachTaskList.SaveData(): boolean;
var
mLoopNum: Integer;
mMCName, mNewValue, mStartTime: string;
+ mEndTime, mBegTime: string;
begin
result := false;
ADOQueryCmd.Connection.BeginTrans;
@@ -411,6 +417,8 @@ begin
SQL.Clear;
SQL.Add(' update Dye_Plan_Glide set PC_FLAG = 1 , EndTime = DATEADD(MINUTE, ' + CDS_1.FieldByName('time').AsString + ', ' + QuotedStr(trim(CDS_1.FieldByName('BegTime').AsString)) + ')');
SQL.Add(' , begTime = ' + QuotedStr(Trim(CDS_1.FieldByName('BegTime').AsString)));
+ SQL.Add(' , MCNO = ' + QuotedStr(Trim(CDS_1.FieldByName('MCNO').AsString)));
+ SQL.Add(' , MCName = ' + QuotedStr(Trim(CDS_1.FieldByName('MCName').AsString)));
SQL.Add(' where GlideID = ' + QuotedStr(Trim(CDS_1.FieldByName('GlideID').asString)));
// ShowMessage(sql.Text);
ExecSQL;
@@ -419,6 +427,7 @@ begin
mStartTime := CDS_1.FieldByName('BegTime').AsString;
// mNewValue := 'ƻ:' + CDS_1.FieldByName('OrderNo').AsString + #13;
mNewValue := mNewValue + CDS_1.FieldByName('C_Name').AsString + #13;
+ mNewValue := mNewValue + 'Ʒŷ' + CDS_1.FieldByName('C_Width').AsString + #13;
mNewValue := mNewValue + ' ν:' + CDS_1.FieldByName('GlideName').AsString;
if CDS_1.FieldByName('PSType').AsString = 'ϴ' then
@@ -460,97 +469,7 @@ begin
end;
//////////////////////ʾ
mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_zhuji').AsString + #13;
-// with ADOQueryTmp do
-// begin
-// Close;
-// sql.Clear;
-// SQL.Add(' select * from BS_Cloth_GY_Sub where PSID = ' + QuotedStr(Trim(CDS_1.FieldByName('PSID').AsString)));
-// Open;
-//// ShowMessage(sql.Text);
-// end;
-//
-// if not ADOQueryTmp.IsEmpty then
-// begin
-// ADOQueryTmp.First;
-// mNewValue := mNewValue + ' :';
-// if CDS_1.FieldByName('PSType').AsString = 'ϴ' then
-// begin
-// while not ADOQueryTmp.Eof do
-// begin
-// if ADOQueryTmp.FieldByName('ccqx_Name').AsString <> 'ˮ' then
-// begin
-// mNewValue := mNewValue + ADOQueryTmp.FieldByName('ccqx_Name').AsString + ' ' + ADOQueryTmp.FieldByName('ccqx_rate').AsString + ',';
-// end;
-//
-// ADOQueryTmp.Next;
-// end;
-// mNewValue := mNewValue + #13;
-// end
-// else if CDS_1.FieldByName('PSType').AsString = 'Ⱦϴ' then
-// begin
-// while not ADOQueryTmp.Eof do
-// begin
-// if ADOQueryTmp.FieldByName('rgqx_Name').AsString <> 'ˮ' then
-// begin
-// mNewValue := mNewValue + ADOQueryTmp.FieldByName('rgqx_Name').AsString + ' ' + ADOQueryTmp.FieldByName('rgqx_rate').AsString + ',';
-// end;
-//
-// ADOQueryTmp.Next;
-// end;
-// mNewValue := mNewValue + #13;
-// end
-// else if CDS_1.FieldByName('PSType').AsString = 'ϴ' then
-// begin
-// while not ADOQueryTmp.Eof do
-// begin
-// if ADOQueryTmp.FieldByName('jgqx_Name').AsString <> 'ˮ' then
-// begin
-// mNewValue := mNewValue + ADOQueryTmp.FieldByName('jgqx_Name').AsString + ' ' + ADOQueryTmp.FieldByName('jgqx_rate').AsString + ',';
-// end;
-//
-// ADOQueryTmp.Next;
-// end;
-// mNewValue := mNewValue + #13;
-// end
-// else if CDS_1.FieldByName('PSType').AsString = 'ˮ' then
-// begin
-// while not ADOQueryTmp.Eof do
-// begin
-// if ADOQueryTmp.FieldByName('fs_Name').AsString <> 'ˮ' then
-// begin
-// mNewValue := mNewValue + ADOQueryTmp.FieldByName('fs_Name').AsString + ' ' + ADOQueryTmp.FieldByName('fs_rate').AsString + ',';
-// end;
-// ADOQueryTmp.Next;
-// end;
-// mNewValue := mNewValue + #13;
-// end
-// else if CDS_1.FieldByName('PSType').AsString = 'ν' then
-// begin
-// while not ADOQueryTmp.Eof do
-// begin
-// if ADOQueryTmp.FieldByName('gj_Name').AsString <> 'ˮ' then
-// begin
-// mNewValue := mNewValue + ADOQueryTmp.FieldByName('gj_Name').AsString + ' ' + ADOQueryTmp.FieldByName('gj_rate').AsString + ',';
-// end;
-//
-// ADOQueryTmp.Next;
-// end;
-// mNewValue := mNewValue + #13;
-// end
-// else if CDS_1.FieldByName('PSType').AsString = '' then
-// begin
-// while not ADOQueryTmp.Eof do
-// begin
-// if ADOQueryTmp.FieldByName('fp_Name').AsString <> 'ˮ' then
-// begin
-// mNewValue := mNewValue + ADOQueryTmp.FieldByName('fp_Name').AsString + ' ' + ADOQueryTmp.FieldByName('fp_rate').AsString + ',';
-// end;
-//
-// ADOQueryTmp.Next;
-// end;
-// mNewValue := mNewValue + #13;
-// end;
-// end;
+
mNewValue := mNewValue + CDS_1.FieldByName('PCID').AsString + #13;
mNewValue := mNewValue + CDS_1.FieldByName('GlideID').AsString;
@@ -568,25 +487,58 @@ begin
ExecSQL;
end;
-// with ADOQueryCmd do
-// begin
-// Close;
-// sql.Clear;
-// sql.Add('select * from PCAboutTime where time >= ''' + Trim(CDS_1.FieldByName('BegTime').AsString) + '''');
-// sql.Add(' Order By time');
-// Open;
-// end;
-//
-// var i: Integer;
-//
-// for i := 1 to mLoopNum do
-// begin
-// ADOQueryCmd.Edit;
-// ADOQueryCmd.FieldByName(CDS_1.FieldByName('MCName').AsString).Value := CDS_1.FieldByName('OrderNo').AsString + #13#10 + CDS_1.FieldByName('C_Name').AsString + #13#10 + CDS_1.FieldByName('GlideName').AsString + #13#10 + CDS_1.FieldByName('GlideID').AsString;
-//
-// ADOQueryCmd.Post;
-// ADOQueryCmd.Next;
-// end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('select * from PCAboutTime ');
+ SQL.Add(' where time >= ' + quotedStr(Trim(mStartTime)));
+
+ Open;
+ end;
+ ADOQueryCmd.First;
+ mNewValue := ADOQueryCmd.FieldByName(mMCName).AsString;
+ mBegTime := ADOQueryCmd.FieldByName('time').AsString;
+ mEndTime := ADOQueryCmd.FieldByName('time').AsString;
+ while not ADOQueryCmd.Eof do
+ begin
+ if (ADOQueryCmd.FieldByName(mMCName).AsString = null) or (ADOQueryCmd.FieldByName(mMCName).AsString = '') then
+ begin
+ mEndTime := ADOQueryCmd.FieldByName('time').AsString;
+ with ADOQueryTmp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('update Dye_Plan_Glide set BegTime = ' + QuotedStr(Trim(mBegTime)));
+ sql.Add(' , EndTime = ' + QuotedStr(Trim(mEndTime)));
+ SQL.Add(' where GlideID = ' + QuotedStr(Trim(GetLastLine(mNewValue))));
+ ExecSQL;
+ end;
+ ADOQueryCmd.Connection.CommitTrans;
+ result := true;
+ Exit;
+ end;
+
+ if mNewValue <> ADOQueryCmd.FieldByName(mMCName).AsString then
+ begin
+ mEndTime := ADOQueryCmd.FieldByName('time').AsString;
+ with ADOQueryTmp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('update Dye_Plan_Glide set BegTime = ' + QuotedStr(Trim(mBegTime)));
+ sql.Add(' , EndTime = ' + QuotedStr(Trim(mEndTime)));
+ SQL.Add(' where GlideID = ' + QuotedStr(Trim(GetLastLine(mNewValue))));
+ ExecSQL;
+ end;
+ mBegTime := ADOQueryCmd.FieldByName('time').AsString;
+ mNewValue := ADOQueryCmd.FieldByName(mMCName).AsString;
+ end;
+
+ ADOQueryCmd.Next;
+ end;
+
+
end;
Next;
end;
@@ -714,9 +666,10 @@ begin
FieldByName('OrderNo').value := ADOQueryCard.FieldByName('OrderNo').AsString;
FieldByName('pcid').value := ADOQueryCard.FieldByName('pcid').AsString;
FieldByName('C_name').value := ADOQueryCard.FieldByName('C_name').AsString;
+ FieldByName('C_Width').value := ADOQueryCard.FieldByName('C_Width').AsString;
FieldByName('GlideName').value := ADOQueryCard.FieldByName('GlideName').AsString;
- FieldByName('PCPiece').value := ADOQueryCard.FieldByName('PCPiece').AsString;
- FieldByName('PCQty').value := ADOQueryCard.FieldByName('PCQty').AsString;
+ FieldByName('PCPiece').asString := ADOQueryCard.FieldByName('PCPiece').AsString;
+ FieldByName('PCQty').asString := ADOQueryCard.FieldByName('PCQty').AsString;
FieldByName('time').value := ADOQueryCard.FieldByName('time').AsString;
FieldByName('PSType').value := ADOQueryCard.FieldByName('PSType').AsString;
FieldByName('PSID').value := ADOQueryCard.FieldByName('PSID').AsString;
@@ -750,7 +703,51 @@ begin
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
// showMessage('ʱ!');
end;
- initSubGrid();
+// initSubGrid();
+end;
+
+procedure TfrmMachTaskList.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+ PC_FLAG, isComplete: Variant;
+begin
+ // ȡֵֶ
+ PC_FLAG := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('PC_FLAG').Index];
+ isComplete := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('isComplete').Index];
+
+ // òͬ״̬ɫ
+ if VarIsNull(PC_FLAG) or (PC_FLAG = 0) then // δƻ
+ begin
+ ACanvas.Brush.Color := $00CCCCFF; // dzɫ
+ ACanvas.Font.Color := clRed;
+ ACanvas.Font.Style := [fsBold];
+ end
+ else if (PC_FLAG = 1) and VarIsNull(isComplete) then // δ
+ begin
+ ACanvas.Brush.Color := clWindow; // Ĭϴڱɫ
+ ACanvas.Font.Color := clWindowText; // Ĭϴıɫ
+ ACanvas.Font.Style := [];
+ end
+ else if (PC_FLAG = 1) and (not VarIsNull(isComplete)) and (isComplete = 0) then // һ
+ begin
+ ACanvas.Brush.Color := $00E0E0E0; // dzɫ
+ ACanvas.Font.Color := clGray;
+ ACanvas.Font.Style := [fsBold]; //
+ end
+ else if (PC_FLAG = 1) and (not VarIsNull(isComplete)) and (isComplete = 1) then // Ʒ
+ begin
+ ACanvas.Brush.Color := $00E0FFE0; // dzɫ
+ ACanvas.Font.Color := $00008000;
+ ACanvas.Font.Style := [fsBold];
+ end
+ else // Ĭ
+ begin
+ ACanvas.Brush.Color := clWindow;
+ ACanvas.Font.Color := clWindowText;
+ ACanvas.Font.Style := [];
+ end;
+
+ // ҪԶɣȡע
+ // ADone := True;
end;
procedure TfrmMachTaskList.Tv2GlideNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@@ -890,7 +887,7 @@ begin
close;
sql.Clear;
sql.Add('select * from V_Dye_Cloth_PaiGang ');
- sql.Add('where PC_Flag = 0 order by PCID ASC, GlideNo ASC');
+ sql.Add('where isComplete <> 1 OR isComplete IS NULL order by PCID ASC, GlideNo ASC');
// ShowMessage(SQL.Text);
// a.taskDate,
open;
diff --git a/F05染色检验/DyeInsp.dpr b/F05染色检验/DyeInsp.dpr
index 562aab1..79d0846 100644
--- a/F05染色检验/DyeInsp.dpr
+++ b/F05染色检验/DyeInsp.dpr
@@ -27,7 +27,8 @@ uses
U_DyeClothInspList in 'U_DyeClothInspList.pas' {frmDyeClothInspList},
U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint},
- uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
+ uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
+ U_DyeCardRoll in 'U_DyeCardRoll.pas' {frmDyeCardRoll};
{$R *.res}
diff --git a/F05染色检验/DyeInsp.dproj b/F05染色检验/DyeInsp.dproj
index 57af84c..04dbb11 100644
--- a/F05染色检验/DyeInsp.dproj
+++ b/F05染色检验/DyeInsp.dproj
@@ -146,6 +146,10 @@
dfm
+
+
+ dfm
+
Cfg_2
Base
diff --git a/F05染色检验/DyeInsp.dproj.local b/F05染色检验/DyeInsp.dproj.local
index c782c39..c76782e 100644
--- a/F05染色检验/DyeInsp.dproj.local
+++ b/F05染色检验/DyeInsp.dproj.local
@@ -5,7 +5,7 @@
1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.320,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899/12/30 00:00:00.000.664,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
@@ -17,6 +17,7 @@
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.320,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
@@ -25,14 +26,14 @@
1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj
1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.958,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.958,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 2025/10/30 16:43:17.000.471,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F05染色检验\U_DyeCardRoll.pas
@@ -77,5 +78,7 @@
+
+
diff --git a/F05染色检验/DyeInsp.identcache b/F05染色检验/DyeInsp.identcache
index 6d3105f..4f3c04d 100644
Binary files a/F05染色检验/DyeInsp.identcache and b/F05染色检验/DyeInsp.identcache differ
diff --git a/F05染色检验/DyeInspFile.INI b/F05染色检验/DyeInspFile.INI
index 6522074..7dabadf 100644
--- a/F05染色检验/DyeInspFile.INI
+++ b/F05染色检验/DyeInspFile.INI
@@ -24,8 +24,8 @@ DLL
Ա=select userid='ADMIN'
ǩ=1
-=10
-=99
+=1
+=999
=2
=50
Сλ=1
diff --git a/F05染色检验/DyeInspLogin.dproj.local b/F05染色检验/DyeInspLogin.dproj.local
index e76adfc..e2843ae 100644
--- a/F05染色检验/DyeInspLogin.dproj.local
+++ b/F05染色检验/DyeInspLogin.dproj.local
@@ -1,24 +1,24 @@
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj
diff --git a/F05染色检验/U_DyeCardRoll.dfm b/F05染色检验/U_DyeCardRoll.dfm
new file mode 100644
index 0000000..36cd685
--- /dev/null
+++ b/F05染色检验/U_DyeCardRoll.dfm
@@ -0,0 +1,562 @@
+inherited frmDyeCardRoll: TfrmDyeCardRoll
+ Caption = #22823#21367#26729#31649#29702
+ ClientHeight = 699
+ ClientWidth = 1401
+ ExplicitWidth = 1417
+ ExplicitHeight = 738
+ PixelsPerInch = 96
+ TextHeight = 12
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1401
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 91
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ DisabledImages = DataLink_DyeInsp.ImageList_new32
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_DyeInsp.ImageList_new32
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 0
+ ExplicitTop = -6
+ 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 TBPrint: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360
+ ImageIndex = 21
+ Visible = False
+ OnClick = TBPrintClick
+ end
+ object TBExport: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
+ Caption = #23548#20986
+ ImageIndex = 20
+ OnClick = TBExportClick
+ end
+ object ToolButton2: TToolButton
+ Left = 284
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton2Click
+ end
+ object TBClose: TToolButton
+ Left = 379
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [1]
+ Left = 0
+ Top = 38
+ Width = 1401
+ Height = 65
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clSkyBlue
+ TabOrder = 1
+ ExplicitTop = 44
+ object Label1: TLabel
+ Left = 18
+ Top = 17
+ Width = 52
+ Height = 12
+ Caption = #21046#21333#26085#26399
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label3: TLabel
+ Left = 223
+ Top = 17
+ Width = 52
+ Height = 12
+ Caption = #35745#21010#21333#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ OnDblClick = Label3DblClick
+ end
+ object Label8: TLabel
+ Left = 404
+ Top = 17
+ Width = 39
+ Height = 12
+ Caption = #21367#26729#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label11: TLabel
+ Left = 223
+ Top = 43
+ Width = 52
+ Height = 12
+ Caption = #27969#31243#21345#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 BegDate: TDateTimePicker
+ Left = 76
+ Top = 13
+ Width = 85
+ Height = 20
+ Date = 40675.000000000000000000
+ Format = 'yyyy-MM-dd'
+ Time = 0.464742650459811600
+ TabOrder = 0
+ end
+ object EndDate: TDateTimePicker
+ Left = 75
+ Top = 35
+ Width = 86
+ Height = 20
+ Date = 40675.000000000000000000
+ Format = 'yyyy-MM-dd'
+ Time = 0.464761099538009100
+ TabOrder = 1
+ end
+ object OrderNo: TEdit
+ Tag = 2
+ Left = 281
+ Top = 13
+ Width = 100
+ Height = 20
+ TabOrder = 2
+ OnChange = OrderNoChange
+ end
+ object RollNumber: TEdit
+ Tag = 2
+ Left = 462
+ Top = 13
+ Width = 100
+ Height = 20
+ TabOrder = 3
+ OnChange = OrderNoChange
+ end
+ object PCID: TEdit
+ Tag = 2
+ Left = 281
+ Top = 39
+ Width = 100
+ Height = 20
+ TabOrder = 4
+ OnChange = OrderNoChange
+ end
+ object MPRTKZ: TEdit
+ Tag = 2
+ Left = 654
+ Top = 99
+ Width = 56
+ Height = 20
+ TabOrder = 5
+ OnChange = OrderNoChange
+ end
+ end
+ object cxGrid1: TcxGrid [2]
+ Left = 0
+ Top = 125
+ Width = 1401
+ Height = 574
+ Align = alClient
+ PopupMenu = PM_1
+ TabOrder = 2
+ ExplicitTop = 131
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Format = #20849' 0 '#34892
+ Kind = skCount
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ Styles.IncSearch = DataLink_DyeInsp.SHuangSe
+ Styles.Header = DataLink_DyeInsp.Default
+ Styles.Inactive = DataLink_DyeInsp.SHuangSe
+ Styles.Selection = DataLink_DyeInsp.SHuangSe
+ object Tv1RollNumber: TcxGridDBColumn
+ Caption = #21367#26729#21495
+ DataBinding.FieldName = 'RollNumber'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1OrderNo: TcxGridDBColumn
+ Caption = #35745#21010#21333#21495
+ DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_Name: TcxGridDBColumn
+ Caption = #25104#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1F_Name: TcxGridDBColumn
+ Caption = #22383#24067#21517#31216
+ DataBinding.FieldName = 'F_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1QtyOrder: TcxGridDBColumn
+ Caption = #35746#21333#25968#37327
+ DataBinding.FieldName = 'QtyOrder'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_PlanQty: TcxGridDBColumn
+ Caption = #35745#21010#25968#37327
+ DataBinding.FieldName = 'C_PlanQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1F_description: TcxGridDBColumn
+ Caption = #22383#24067#25551#36848
+ DataBinding.FieldName = 'F_description'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_description: TcxGridDBColumn
+ Caption = #24037#33402#35201#27714
+ DataBinding.FieldName = 'C_description'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1PCID: TcxGridDBColumn
+ Caption = #27969#31243#21345#21495
+ DataBinding.FieldName = 'PCID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1PCType: TcxGridDBColumn
+ Caption = #27969#31243#21345#31867#22411
+ DataBinding.FieldName = 'PCType'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1PCTime: TcxGridDBColumn
+ Caption = #24320#21345#26085#26399
+ DataBinding.FieldName = 'PCTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1KaZu: TcxGridDBColumn
+ Caption = #21345#32452#21495
+ DataBinding.FieldName = 'KaZu'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1KaZuPiece: TcxGridDBColumn
+ Caption = #21345#32452#21305#25968
+ DataBinding.FieldName = 'KaZuPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1KaZuQty: TcxGridDBColumn
+ Caption = #21345#32452#25968#37327
+ DataBinding.FieldName = 'KaZuQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_Width: TcxGridDBColumn
+ Caption = #20135#21697#38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_GramWeight: TcxGridDBColumn
+ Caption = #20135#21697#20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1DTMPSlist: TcxGridDBColumn
+ Caption = #24037#33402#20449#24687
+ DataBinding.FieldName = 'DTMPSlist'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 120
+ end
+ object Tv1CINote: TcxGridDBColumn
+ Caption = #20135#21697#20449#24687#22791#27880
+ DataBinding.FieldName = 'CINote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 110
+ end
+ object Tv1C_Color: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1CCQXRollMeter: TcxGridDBColumn
+ Caption = #38271#36710#28165#27927#21518#21367#26729
+ DataBinding.FieldName = 'CCQXRollMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 121
+ end
+ object Tv1RGQXRollMeter: TcxGridDBColumn
+ Caption = #21367#26579#32568#28165#27927#21518#21367#26729
+ DataBinding.FieldName = 'RGQXRollMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 137
+ end
+ object Tv1JGQXRollMeter: TcxGridDBColumn
+ Caption = #26426#32568#28165#27927#21518#21367#26729
+ DataBinding.FieldName = 'JGQXRollMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 121
+ end
+ object Tv1DXRollMeter: TcxGridDBColumn
+ Caption = #24178#23450#22411#21518#21367#26729
+ DataBinding.FieldName = 'DXRollMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1FSRollMeter: TcxGridDBColumn
+ Caption = #19979#27700#23450#22411#21518#21367#26729
+ DataBinding.FieldName = 'FSRollMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 115
+ end
+ object Tv1FPRollMeter: TcxGridDBColumn
+ Caption = #21457#27873#21518#21367#26729
+ DataBinding.FieldName = 'FPRollMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1GJRollMeter: TcxGridDBColumn
+ Caption = #21038#33014#21518#21367#26729
+ DataBinding.FieldName = 'GJRollMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1ZMRollMeter: TcxGridDBColumn
+ Caption = #36711#27611#21518#21367#26729
+ DataBinding.FieldName = 'ZMRollMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object cxTabControl1: TcxTabControl [3]
+ Left = 0
+ Top = 103
+ Width = 1401
+ Height = 22
+ Align = alTop
+ TabOrder = 3
+ Visible = False
+ Properties.CustomButtons.Buttons = <>
+ Properties.Style = 9
+ Properties.TabIndex = 0
+ Properties.Tabs.Strings = (
+ #24050#35745#21010
+ #24050#19979#36798
+ #24050#32467#31639
+ #24050#21462#28040
+ #20840#37096)
+ OnChange = cxTabControl1Change
+ ClientRectBottom = 22
+ ClientRectRight = 1401
+ ClientRectTop = 19
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_DyeInsp.ADOLink
+ Left = 89
+ Top = 224
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_DyeInsp.ADOLink
+ Top = 233
+ end
+ object cxGridPopupMenu1: TcxGridPopupMenu
+ Grid = cxGrid1
+ PopupMenus = <>
+ Left = 636
+ Top = 328
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyeInsp.ADOLink
+ Parameters = <>
+ Left = 672
+ Top = 188
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyeInsp.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 504
+ Top = 192
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyeInsp.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 580
+ Top = 184
+ end
+ object DataSource1: TDataSource
+ DataSet = Order_Main
+ Left = 592
+ Top = 288
+ end
+ object Order_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 440
+ Top = 308
+ end
+ object PM_1: TPopupMenu
+ Left = 272
+ Top = 376
+ object N2: TMenuItem
+ Caption = #20840#36873
+ OnClick = N2Click
+ end
+ object N1: TMenuItem
+ Caption = #20840#24323
+ OnClick = N1Click
+ end
+ end
+ object DS_2: TDataSource
+ DataSet = CDS_2
+ Left = 616
+ Top = 568
+ end
+ object ADOQueryImage: TADOQuery
+ Connection = DataLink_DyeInsp.ADOLink
+ EnableBCD = False
+ Parameters = <>
+ Left = 808
+ Top = 359
+ end
+ object DSImage: TDataSource
+ DataSet = ADOQueryImage
+ Left = 912
+ Top = 368
+ end
+ object IdFTP1: TIdFTP
+ ConnectTimeout = 0
+ NATKeepAlive.UseKeepAlive = False
+ NATKeepAlive.IdleTimeMS = 0
+ NATKeepAlive.IntervalMS = 0
+ ProxySettings.ProxyType = fpcmNone
+ ProxySettings.Port = 0
+ ReadTimeout = 0
+ Left = 692
+ Top = 394
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 600
+ Top = 384
+ end
+ object CDS_2: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 560
+ Top = 564
+ end
+end
diff --git a/F05染色检验/U_DyeCardRoll.pas b/F05染色检验/U_DyeCardRoll.pas
new file mode 100644
index 0000000..af82ac8
--- /dev/null
+++ b/F05染色检验/U_DyeCardRoll.pas
@@ -0,0 +1,472 @@
+unit U_DyeCardRoll;
+
+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, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+ dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
+ IdExplicitTLSClientServerBase, U_BaseList, cxCheckBox, cxDropDownEdit,
+ dxScrollbarAnnotations;
+
+type
+ TfrmDyeCardRoll = class(TfrmBaseList)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBFind: TToolButton;
+ TBPrint: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ BegDate: TDateTimePicker;
+ EndDate: TDateTimePicker;
+ Label1: TLabel;
+ Tv1: TcxGridDBTableView;
+ cxGrid1Level1: TcxGridLevel;
+ cxGrid1: TcxGrid;
+ cxGridPopupMenu1: TcxGridPopupMenu;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DataSource1: TDataSource;
+ Label3: TLabel;
+ OrderNo: TEdit;
+ TBExport: TToolButton;
+ Order_Main: TClientDataSet;
+ PM_1: TPopupMenu;
+ N2: TMenuItem;
+ Label8: TLabel;
+ RollNumber: TEdit;
+ Label11: TLabel;
+ PCID: TEdit;
+ Label12: TLabel;
+ MPRTKZ: TEdit;
+ DS_2: TDataSource;
+ cxTabControl1: TcxTabControl;
+ ADOQueryImage: TADOQuery;
+ DSImage: TDataSource;
+ IdFTP1: TIdFTP;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ ToolButton2: TToolButton;
+ N1: TMenuItem;
+ CDS_2: TClientDataSet;
+ Tv1OrderNo: TcxGridDBColumn;
+ Tv1QtyOrder: TcxGridDBColumn;
+ Tv1PCID: TcxGridDBColumn;
+ Tv1KaZu: TcxGridDBColumn;
+ Tv1KaZuPiece: TcxGridDBColumn;
+ Tv1KaZuQty: TcxGridDBColumn;
+ Tv1RollNumber: TcxGridDBColumn;
+ Tv1CCQXRollMeter: TcxGridDBColumn;
+ Tv1RGQXRollMeter: TcxGridDBColumn;
+ Tv1JGQXRollMeter: TcxGridDBColumn;
+ Tv1DXRollMeter: TcxGridDBColumn;
+ Tv1FSRollMeter: TcxGridDBColumn;
+ Tv1FPRollMeter: TcxGridDBColumn;
+ Tv1GJRollMeter: TcxGridDBColumn;
+ Tv1ZMRollMeter: TcxGridDBColumn;
+ Tv1C_Name: TcxGridDBColumn;
+ Tv1F_Name: TcxGridDBColumn;
+ Tv1C_PlanQty: TcxGridDBColumn;
+ Tv1F_description: TcxGridDBColumn;
+ Tv1C_description: TcxGridDBColumn;
+ Tv1PCType: TcxGridDBColumn;
+ Tv1PCTime: TcxGridDBColumn;
+ Tv1C_Width: TcxGridDBColumn;
+ Tv1C_GramWeight: TcxGridDBColumn;
+ Tv1DTMPSlist: TcxGridDBColumn;
+ Tv1CINote: TcxGridDBColumn;
+ Tv1C_Color: TcxGridDBColumn;
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure FormCreate(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure TBFindClick(Sender: TObject);
+
+ procedure TBExportClick(Sender: TObject);
+ procedure TBPrintClick(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure OrderNoChange(Sender: TObject);
+ procedure FormShow(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 N1Click(Sender: TObject);
+ procedure N2Click(Sender: TObject);
+ procedure cxTabControl1Change(Sender: TObject);
+ procedure Label3DblClick(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+
+ private
+ DQdate: TDateTime;
+ procedure InitGrid();
+ function DelData(): Boolean;
+ procedure SetStatus();
+ procedure InitImage(fwbid: string);
+ { Private declarations }
+ public
+ FFInt, FCloth: Integer;
+ canshu1, canshu2, FWorkshop: string;
+ fFlileFlag: string;
+ { Public declarations }
+ end;
+
+var
+ frmDyeCardRoll: TfrmDyeCardRoll;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_LabelPrint;
+{$R *.dfm}
+
+procedure TfrmDyeCardRoll.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 TfrmDyeCardRoll.SetStatus();
+begin
+
+
+
+
+ if Trim(canshu1) = '' then
+ begin
+
+ case cxTabControl1.TabIndex of
+ 0:
+ begin
+
+
+ end;
+ 1:
+ begin
+
+
+ end;
+ 2:
+ begin
+
+ end;
+ 3:
+ begin
+
+ end;
+ end;
+ end;
+
+ if Trim(canshu1) = '¼' then
+ begin
+
+ case cxTabControl1.TabIndex of
+ 0:
+ begin
+
+
+ end;
+ 1:
+ begin
+ // tnochk.Visible:=true;
+ end;
+ 2:
+ begin
+ end;
+ 3:
+ begin
+ // TBNOQX.Visible:=true;
+ end;
+ end;
+ end;
+end;
+
+procedure TfrmDyeCardRoll.Label3DblClick(Sender: TObject);
+var
+ I: Integer;
+ Column: TcxGridDBColumn;
+ FieldNames: TStringList;
+begin
+ FieldNames := TStringList.Create;
+ try
+ for I := 0 to Tv1.ColumnCount - 1 do
+ begin
+ Column := Tv1.Columns[I];
+ FieldNames.Add(Column.Caption + ':' + Column.DataBinding.FieldName);
+ end;
+ ShowMessage(FieldNames.Text);
+ finally
+ FieldNames.Free;
+ end;
+end;
+
+procedure TfrmDyeCardRoll.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmDyeCardRoll.FormCreate(Sender: TObject);
+begin
+ inherited;
+ cxgrid1.Align := alClient;
+ DQdate := SGetServerDate(ADOQueryTemp);
+ canshu1 := trim(Self.fParameters1);
+ canshu2 := trim(Self.fParameters2);
+ FWorkshop := trim(Self.fParameters3);
+end;
+
+procedure TfrmDyeCardRoll.TBCloseClick(Sender: TObject);
+begin
+ Close;
+
+end;
+
+procedure TfrmDyeCardRoll.InitGrid();
+begin
+
+ try
+ ADOQueryMain.DisableControls;
+ with ADOQueryMain do
+ begin
+ Close;
+ Filtered := False;
+ sql.Clear;
+ sql.Add('select A.* ');
+ sql.Add('from V_Dye_Card_Roll A');
+ sql.Add(' where 1=1');
+// case cxTabControl1.TabIndex of
+// 0:
+// begin
+// sql.Add(' and isnull(A.status,''0'') in(''Ѽƻ'') ');
+// end;
+// 1:
+// begin
+// sql.Add(' and isnull(A.status,''0'')in(''´'' )');
+// end;
+// 2:
+// begin
+// sql.Add(' and isnull(A.status,''0'')in(''ѽ'' )');
+// end;
+// 3:
+// begin
+// sql.Add(' and isnull(A.status,''0'')in(''ȡ'' )');
+// end;
+// 4:
+// begin
+// sql.Add(' and isnull(A.status,''0'')in(''ѽ'' )');
+// end;
+// end;
+ sql.Add(' and fillTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
+ sql.Add(' and fillTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
+//// sql.Add(' and A.Workshop=''' + trim(FWorkshop) + ''' ');
+// if Trim(canshu1) = '¼' then
+// sql.Add('and Filler=' + QuotedStr(Trim(DName)));
+//// ShowMessage(sql.Text);
+ Open;
+ end;
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeCardRoll.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;
+
+
+
+function TfrmDyeCardRoll.DelData(): Boolean;
+begin
+ try
+ Result := false;
+ ADOQueryCmd.Connection.BeginTrans;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Dye_Plan_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+ sql.Add('delete Dye_Plan_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').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('OrderNO').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 TfrmDyeCardRoll.TBExportClick(Sender: TObject);
+begin
+ if ADOQueryMain.IsEmpty then
+ Exit;
+end;
+
+procedure TfrmDyeCardRoll.TBPrintClick(Sender: TObject);
+var
+ WSql: string;
+begin
+ if Order_Main.IsEmpty then
+ Exit;
+ WSql := QuotedStr(Trim(Order_Main.fieldbyname('MainId').AsString));
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FLMType := 'DyePlanPrint';
+ FFiltration1 := WSql;
+ if ShowModal = 1 then
+ begin
+// Self.InitGrid();
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+end;
+
+procedure TfrmDyeCardRoll.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmDyeCardRoll.OrderNoChange(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 TfrmDyeCardRoll.FormShow(Sender: TObject);
+begin
+ inherited;
+ fFlileFlag := UserDataFlag + 'HX';
+ canshu1 := self.fParameters1;
+ canshu2 := self.fParameters2;
+ FWorkshop := self.fParameters3;
+ BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 15;
+ EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+ ReadCxGrid(self.Caption + 'TV1', Tv1, '');
+
+ SetStatus();
+ InitGrid();
+end;
+
+procedure TfrmDyeCardRoll.CheckBox1Click(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmDyeCardRoll.CheckBox2Click(Sender: TObject);
+begin
+ TBRafresh.Click;
+end;
+
+procedure TfrmDyeCardRoll.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+ id, id10: Integer;
+begin
+
+end;
+
+procedure TfrmDyeCardRoll.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 TfrmDyeCardRoll.N1Click(Sender: TObject);
+begin
+ SelOKNoFiler(Tv1, false);
+end;
+
+procedure TfrmDyeCardRoll.N2Click(Sender: TObject);
+begin
+
+ SelOKNoFiler(Tv1, true);
+end;
+
+procedure TfrmDyeCardRoll.ToolButton2Click(Sender: TObject);
+begin
+ WriteCxGrid(self.Caption + 'TV1', Tv1, '');
+end;
+
+
+
+
+
+procedure TfrmDyeCardRoll.cxTabControl1Change(Sender: TObject);
+begin
+ SetStatus();
+ InitGrid();
+end;
+
+end.
+
diff --git a/F05染色检验/U_DyeClothInspList.dfm b/F05染色检验/U_DyeClothInspList.dfm
index 1b651ff..359f9fa 100644
--- a/F05染色检验/U_DyeClothInspList.dfm
+++ b/F05染色检验/U_DyeClothInspList.dfm
@@ -7,6 +7,7 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
+ ExplicitLeft = -122
ExplicitWidth = 1487
ExplicitHeight = 621
PixelsPerInch = 96
@@ -20,7 +21,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
AutoSize = True
BorderStyle = bsSingle
TabOrder = 3
- ExplicitTop = 113
DesignSize = (
1467
24)
@@ -241,7 +241,7 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
end
object Tv1C_description: TcxGridDBColumn
Caption = #24037#33402#35201#27714
- DataBinding.FieldName = 'C_description'
+ DataBinding.FieldName = 'C_description1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@@ -308,6 +308,13 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Options.Editing = False
Width = 66
end
+ object Tv1barCode: TcxGridDBColumn
+ Caption = #26816#39564#21367#26465#30721
+ DataBinding.FieldName = 'barCode'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern'
@@ -409,7 +416,7 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Height = 38
AutoSize = True
ButtonHeight = 38
- ButtonWidth = 103
+ ButtonWidth = 115
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
@@ -463,16 +470,24 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
ImageIndex = 21
OnClick = btnJYBGClick
end
- object TBExport: TToolButton
+ object ToolButton2: TToolButton
Left = 415
Top = 0
AutoSize = True
+ Caption = #21516#27493#26816#39564#25968#25454
+ ImageIndex = 1
+ OnClick = ToolButton2Click
+ end
+ object TBExport: TToolButton
+ Left = 534
+ Top = 0
+ AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
- Left = 486
+ Left = 605
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -480,7 +495,7 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
- Left = 581
+ Left = 700
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -530,23 +545,9 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Font.Style = [fsBold]
ParentFont = False
end
- object TLabel
- Left = 362
- Top = 14
- Width = 39
- Height = 12
- Hint = '0'
- Caption = #21512#21516#21495
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label7: TLabel
- Left = 525
- Top = 14
+ Left = 381
+ Top = 13
Width = 26
Height = 12
Hint = '0'
@@ -558,23 +559,9 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Font.Style = [fsBold]
ParentFont = False
end
- object Label8: TLabel
- Left = 825
- Top = 40
- Width = 53
- Height = 12
- Hint = '1'
- Caption = #25171' '#30721' '#20154
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label10: TLabel
- Left = 671
- Top = 40
+ Left = 527
+ Top = 39
Width = 39
Height = 12
Hint = '1'
@@ -587,8 +574,8 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
ParentFont = False
end
object Label4: TLabel
- Left = 1001
- Top = 14
+ Left = 697
+ Top = 13
Width = 26
Height = 12
Hint = '1'
@@ -603,38 +590,10 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
object Label5: TLabel
Left = 362
Top = 40
- Width = 39
+ Width = 52
Height = 12
Hint = '0'
- Caption = #20135#21697#21517
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 843
- Top = 14
- Width = 26
- Height = 12
- Hint = '1'
- Caption = #29366#24577
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label20: TLabel
- Left = 525
- Top = 40
- Width = 26
- Height = 12
- Hint = '0'
- Caption = #33457#22411
+ Caption = #25104#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@@ -648,7 +607,7 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Width = 52
Height = 12
Hint = '0'
- Caption = #20135#21697#32534#21495
+ Caption = #25104#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@@ -657,8 +616,8 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
ParentFont = False
end
object Label1: TLabel
- Left = 684
- Top = 14
+ Left = 540
+ Top = 13
Width = 26
Height = 12
Hint = '0'
@@ -688,7 +647,7 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Date = 44774.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
- TabOrder = 6
+ TabOrder = 5
end
object OrderNo: TEdit
Tag = 2
@@ -700,20 +659,10 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
TabOrder = 1
OnKeyPress = OrderNoKeyPress
end
- object conNO: TEdit
- Tag = 2
- Left = 407
- Top = 10
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 7
- OnKeyPress = conNOKeyPress
- end
object CIID: TEdit
Tag = 2
- Left = 711
- Top = 36
+ Left = 567
+ Top = 35
Width = 100
Height = 20
Hint = '1'
@@ -722,13 +671,13 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
end
object Grade: TComboBox
Tag = 2
- Left = 1030
- Top = 10
+ Left = 726
+ Top = 9
Width = 100
Height = 20
Hint = '1'
Style = csDropDownList
- TabOrder = 10
+ TabOrder = 7
OnChange = GradeChange
OnKeyPress = KHConNOKeyPress
Items.Strings = (
@@ -748,42 +697,14 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
TabOrder = 2
OnKeyPress = conNOKeyPress
end
- object CIIOFlag: TComboBox
- Tag = 2
- Left = 872
- Top = 10
- Width = 100
- Height = 20
- Hint = '1'
- Style = csDropDownList
- TabOrder = 9
- OnChange = CIIOFlagChange
- OnKeyPress = KHConNOKeyPress
- Items.Strings = (
- #26410#20837#24211
- #24050#20837#24211
- #24050#20986#24211
- '')
- end
- object Filler: TComboBox
- Tag = 2
- Left = 880
- Top = 36
- Width = 100
- Height = 20
- Hint = '1'
- Style = csDropDownList
- TabOrder = 4
- OnKeyPress = KHConNOKeyPress
- end
object C_Color: TEdit
Tag = 2
- Left = 553
- Top = 10
+ Left = 409
+ Top = 9
Width = 100
Height = 20
Hint = '0'
- TabOrder = 8
+ TabOrder = 6
OnKeyPress = conNOKeyPress
end
object IsJYTime: TCheckBox
@@ -800,17 +721,7 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
- TabOrder = 5
- end
- object C_Pattern: TEdit
- Tag = 2
- Left = 553
- Top = 36
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 11
- OnKeyPress = KHConNOKeyPress
+ TabOrder = 4
end
object C_Code: TEdit
Tag = 2
@@ -819,17 +730,17 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Width = 100
Height = 20
Hint = '0'
- TabOrder = 12
+ TabOrder = 8
OnKeyPress = KHConNOKeyPress
end
object PCId: TEdit
Tag = 2
- Left = 711
- Top = 10
+ Left = 567
+ Top = 9
Width = 100
Height = 20
Hint = '0'
- TabOrder = 13
+ TabOrder = 9
OnKeyPress = KHConNOKeyPress
end
end
diff --git a/F05染色检验/U_DyeClothInspList.pas b/F05染色检验/U_DyeClothInspList.pas
index 5cb88a7..adcb584 100644
--- a/F05染色检验/U_DyeClothInspList.pas
+++ b/F05染色检验/U_DyeClothInspList.pas
@@ -71,26 +71,19 @@ type
Panel1: TPanel;
Label3: TLabel;
Label7: TLabel;
- Label8: TLabel;
Label10: TLabel;
Label4: TLabel;
Label5: TLabel;
- Label6: TLabel;
- Label20: TLabel;
Label23: TLabel;
Label1: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
OrderNo: TEdit;
- conNO: TEdit;
CIID: TEdit;
Grade: TComboBox;
C_Name: TEdit;
- CIIOFlag: TComboBox;
- Filler: TComboBox;
C_Color: TEdit;
IsJYTime: TCheckBox;
- C_Pattern: TEdit;
C_Code: TEdit;
PCId: TEdit;
Tv1SSel: TcxGridDBColumn;
@@ -100,6 +93,8 @@ type
Tv1Inspector2: TcxGridDBColumn;
Tv1C_description: TcxGridDBColumn;
Tv1checktime: TcxGridDBColumn;
+ ToolButton2: TToolButton;
+ Tv1barCode: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@@ -128,6 +123,7 @@ type
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
private
DQdate: TDateTime;
FLeft, FTop: Integer;
@@ -234,10 +230,20 @@ begin
Filtered := False;
Close;
sql.Clear;
- sql.Add('exec P_Dye_Insp_Get_Page ');
- sql.Add('@pageIndex=' + inttostr(CurrentPage));
- sql.Add(',@pageSize=' + inttostr(RecordsNumber));
- sql.Add(',@criteria= ' + quotedstr(WSql));
+// sql.Add('exec P_Dye_Insp_Get_Page ');
+// sql.Add('@pageIndex=' + inttostr(CurrentPage));
+// sql.Add(',@pageSize=' + inttostr(RecordsNumber));
+// sql.Add(',@criteria= ' + quotedstr(WSql));
+
+
+ sql.Add(' select top ' + inttostr(RecordsNumber) + ' AA.* from (');
+ sql.Add(' select rownumber=CAST(row_number() over(order by A.Filltime ) AS INT)');
+ sql.Add(',TotalCount=CAST(COUNT(1) OVER() AS INT)');
+ sql.Add(',* from V_Dye_Insp_Get_Page A where 1=1 ');
+ sql.Add(WSql);
+ SQL.Add(' ) AA');
+ sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
+ sql.Add(' order by rownumber');
// ShowMessage(sql.Text);
Open;
end;
@@ -272,7 +278,7 @@ begin
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
fsj := 'select distinct(Filler) name from Dye_Cloth_Inspect ';
- SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);
+// SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);
// Filler.ItemIndex := Filler.Items.IndexOf(trim(DName));
@@ -407,7 +413,7 @@ begin
Order_Main.DisableControls;
with Order_Main do
begin
- MCIID := Trim(Order_Main.fieldbyname('CIID').AsString);
+ MCIID := Trim(Order_Main.fieldbyname('CIID').AsString);
First;
while Order_Main.Locate('SSel', True, []) do
begin
@@ -544,6 +550,25 @@ begin
WriteCxGrid(Trim(self.Caption) + 'Tv1', Tv1, 'ó');
end;
+procedure TfrmDyeClothInspList.ToolButton2Click(Sender: TObject);
+begin
+ try
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('exec P_Auto_InspectToStock @Filler = ' + quotedStr(Trim(DName)));
+ ExecSQL;
+ end;
+ Application.MessageBox('ִгɹ', 'ʾ', MB_OK + MB_ICONINFORMATION);
+ except
+ on E: Exception do
+ begin
+ Application.MessageBox(PChar('ִʧܣ' + E.Message), '', MB_OK + MB_ICONERROR);
+ end;
+ end;
+end;
+
procedure TfrmDyeClothInspList.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)));
diff --git a/F05染色检验/U_DyeMachInsp.dfm b/F05染色检验/U_DyeMachInsp.dfm
index e8f54e2..9aa9f63 100644
--- a/F05染色检验/U_DyeMachInsp.dfm
+++ b/F05染色检验/U_DyeMachInsp.dfm
@@ -7,7 +7,6 @@
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
- ExplicitLeft = -453
ExplicitWidth = 1556
ExplicitHeight = 859
PixelsPerInch = 96
@@ -38,8 +37,6 @@
ParentBackground = False
ParentFont = False
TabOrder = 0
- ExplicitLeft = 2
- ExplicitTop = 174
object lblLenUnit: TLabel
Left = 231
Top = 48
@@ -54,23 +51,10 @@
ParentFont = False
OnClick = lblLenUnitClick
end
- object Label4: TLabel
- Left = 229
- Top = 104
- Width = 44
- Height = 34
- Caption = 'KG'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -29
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label5: TLabel
Left = 3
Top = 48
- Width = 60
+ Width = 62
Height = 34
Caption = #38271#24230
Font.Charset = ANSI_CHARSET
@@ -80,19 +64,6 @@
Font.Style = [fsBold]
ParentFont = False
end
- object Label11: TLabel
- Left = 3
- Top = 104
- Width = 60
- Height = 34
- Caption = #37325#37327
- Font.Charset = ANSI_CHARSET
- Font.Color = clRed
- Font.Height = -29
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label31: TLabel
Left = 186
Top = 412
@@ -110,7 +81,7 @@
object Label10: TLabel
Left = 60
Top = 186
- Width = 40
+ Width = 42
Height = 24
Caption = #27491#21697
Font.Charset = ANSI_CHARSET
@@ -123,7 +94,7 @@
object Label12: TLabel
Left = 168
Top = 186
- Width = 40
+ Width = 42
Height = 24
Caption = #27425#21697
Font.Charset = ANSI_CHARSET
@@ -136,7 +107,7 @@
object Label3: TLabel
Left = 30
Top = 11
- Width = 58
+ Width = 62
Height = 23
Caption = #31995' '#25968
Font.Charset = ANSI_CHARSET
@@ -149,7 +120,7 @@
object lblRuleConversion: TLabel
Left = 181
Top = 10
- Width = 80
+ Width = 84
Height = 24
Caption = #31859#36716#20844#26020
Font.Charset = ANSI_CHARSET
@@ -175,22 +146,6 @@
OnClick = CIFBegClick
OnKeyPress = MJstr3KeyPress
end
- object InputWeight: TEdit
- Left = 64
- Top = 101
- Width = 100
- Height = 41
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -32
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnChange = InputWeightChange
- OnClick = CIFBegClick
- OnKeyPress = MJstr3KeyPress
- end
object BTPrint: TButton
Left = 262
Top = 170
@@ -203,7 +158,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 2
+ TabOrder = 1
OnClick = BTPrintClick
end
object Button6: TButton
@@ -218,7 +173,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 3
+ TabOrder = 2
OnClick = Button6Click
end
object Button8: TButton
@@ -233,7 +188,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 4
+ TabOrder = 3
OnClick = Button8Click
end
object Edit3: TEdit
@@ -248,7 +203,7 @@
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
- TabOrder = 5
+ TabOrder = 4
Text = #8730
OnClick = Edit3Click
OnKeyPress = MJstr3KeyPress
@@ -265,7 +220,7 @@
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
- TabOrder = 6
+ TabOrder = 5
OnClick = Edit4Click
OnKeyPress = MJstr3KeyPress
end
@@ -280,22 +235,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 7
- OnClick = CIFBegClick
- OnKeyPress = MJstr3KeyPress
- end
- object Tare: TEdit
- Left = 164
- Top = 101
- Width = 64
- Height = 41
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -32
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 8
+ TabOrder = 6
OnClick = CIFBegClick
OnKeyPress = MJstr3KeyPress
end
@@ -311,7 +251,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 9
+ TabOrder = 7
OnClick = Button3Click
end
end
@@ -327,7 +267,7 @@
object Label22: TLabel
Left = 20
Top = 135
- Width = 84
+ Width = 89
Height = 19
Caption = #24320#21345' '#25968#37327#65306
Font.Charset = ANSI_CHARSET
@@ -340,7 +280,7 @@
object Label13: TLabel
Left = 225
Top = 135
- Width = 84
+ Width = 89
Height = 19
Caption = #24320#21345' '#21305#25968#65306
Font.Charset = ANSI_CHARSET
@@ -353,7 +293,7 @@
object Label14: TLabel
Left = 20
Top = 47
- Width = 48
+ Width = 51
Height = 19
Caption = #21345#21495#65306
Font.Charset = ANSI_CHARSET
@@ -366,7 +306,7 @@
object Label23: TLabel
Left = 220
Top = 104
- Width = 48
+ Width = 51
Height = 19
Caption = #39068#33394#65306
Font.Charset = ANSI_CHARSET
@@ -379,7 +319,7 @@
object Label24: TLabel
Left = 20
Top = 104
- Width = 48
+ Width = 51
Height = 19
Caption = #33394#21495#65306
Font.Charset = ANSI_CHARSET
@@ -392,7 +332,7 @@
object Label25: TLabel
Left = 20
Top = 77
- Width = 48
+ Width = 51
Height = 19
Caption = #21697#21517#65306
Font.Charset = ANSI_CHARSET
@@ -405,7 +345,7 @@
object Label1: TLabel
Left = 18
Top = 7
- Width = 80
+ Width = 84
Height = 24
Caption = #25195#25551#20837#21475
Font.Charset = ANSI_CHARSET
@@ -2262,25 +2202,25 @@
ImageIndex = 21
OnClick = ToolButton3Click
end
- object btnDel: TToolButton
+ object ToolButton6: TToolButton
Left = 71
Top = 0
AutoSize = True
+ Caption = #20462#25913
+ ImageIndex = 3
+ OnClick = ToolButton6Click
+ end
+ object btnDel: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
Caption = #21024#38500
ImageIndex = 5
Wrap = True
OnClick = btnDelClick
end
- object ToolButton6: TToolButton
- Left = 0
- Top = 38
- AutoSize = True
- Caption = #20462#25913
- ImageIndex = 3
- OnClick = ToolButton6Click
- end
object ToolButton4: TToolButton
- Left = 71
+ Left = 0
Top = 38
AutoSize = True
Caption = #30133#28857#31649#29702
@@ -2514,7 +2454,7 @@
object Label35: TLabel
Left = 27
Top = 55
- Width = 19
+ Width = 21
Height = 23
Caption = #31204
Font.Charset = ANSI_CHARSET
@@ -2527,7 +2467,7 @@
object Label16: TLabel
Left = 6
Top = 15
- Width = 38
+ Width = 42
Height = 23
Caption = #30721#34920
Font.Charset = ANSI_CHARSET
@@ -2540,7 +2480,7 @@
object Label26: TLabel
Left = 6
Top = 94
- Width = 38
+ Width = 42
Height = 23
Caption = #20986#32440
Font.Charset = ANSI_CHARSET
@@ -2553,7 +2493,7 @@
object Label6: TLabel
Left = 90
Top = 94
- Width = 38
+ Width = 42
Height = 23
Caption = #20221#25968
Font.Charset = ANSI_CHARSET
@@ -2566,7 +2506,7 @@
object Label7: TLabel
Left = 90
Top = 15
- Width = 38
+ Width = 42
Height = 23
Caption = #21333#20301
Font.Charset = ANSI_CHARSET
@@ -2579,7 +2519,7 @@
object Label9: TLabel
Left = 6
Top = 136
- Width = 38
+ Width = 42
Height = 23
Caption = #38271#24230
Font.Charset = ANSI_CHARSET
@@ -2589,23 +2529,10 @@
Font.Style = [fsBold]
ParentFont = False
end
- object Label15: TLabel
- Left = 6
- Top = 178
- Width = 38
- Height = 23
- Caption = #37325#37327
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -20
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label19: TLabel
Left = 6
Top = 224
- Width = 76
+ Width = 84
Height = 23
Caption = #31859#25968#20445#30041
Font.Charset = ANSI_CHARSET
@@ -2618,7 +2545,7 @@
object Label20: TLabel
Left = 161
Top = 224
- Width = 19
+ Width = 21
Height = 23
Caption = #20301
Font.Charset = ANSI_CHARSET
@@ -2631,7 +2558,7 @@
object Label21: TLabel
Left = 6
Top = 255
- Width = 76
+ Width = 84
Height = 23
Caption = #30721#25968#20445#30041
Font.Charset = ANSI_CHARSET
@@ -2644,7 +2571,7 @@
object Label27: TLabel
Left = 161
Top = 255
- Width = 19
+ Width = 21
Height = 23
Caption = #20301
Font.Charset = ANSI_CHARSET
@@ -2657,7 +2584,7 @@
object Label28: TLabel
Left = 161
Top = 286
- Width = 19
+ Width = 21
Height = 23
Caption = #20301
Font.Charset = ANSI_CHARSET
@@ -2670,7 +2597,7 @@
object Label33: TLabel
Left = 6
Top = 286
- Width = 76
+ Width = 84
Height = 23
Caption = #37325#37327#20445#30041
Font.Charset = ANSI_CHARSET
@@ -2683,7 +2610,7 @@
object Label34: TLabel
Left = 6
Top = 355
- Width = 76
+ Width = 84
Height = 23
Caption = #29233#36805#26631#31614
Font.Charset = ANSI_CHARSET
@@ -2797,22 +2724,6 @@
OnExit = MinLenExit
OnKeyPress = MJstr3KeyPress
end
- object MinWeight: TEdit
- Left = 54
- Top = 175
- Width = 63
- Height = 28
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- OnClick = CIFBegClick
- OnExit = MinLenExit
- OnKeyPress = MJstr3KeyPress
- end
object MaxLen: TEdit
Left = 119
Top = 133
@@ -2824,23 +2735,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 7
- OnClick = CIFBegClick
- OnExit = MinLenExit
- OnKeyPress = MJstr3KeyPress
- end
- object MaxWeight: TEdit
- Left = 119
- Top = 175
- Width = 63
- Height = 28
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 8
+ TabOrder = 6
OnClick = CIFBegClick
OnExit = MinLenExit
OnKeyPress = MJstr3KeyPress
@@ -2856,7 +2751,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 9
+ TabOrder = 7
OnClick = CIFBegClick
OnExit = MinLenExit
OnKeyPress = MJstr3KeyPress
@@ -2872,7 +2767,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 10
+ TabOrder = 8
OnClick = CIFBegClick
OnExit = MinLenExit
OnKeyPress = MJstr3KeyPress
@@ -2888,7 +2783,7 @@
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
- TabOrder = 11
+ TabOrder = 9
OnClick = CIFBegClick
OnExit = MinLenExit
OnKeyPress = MJstr3KeyPress
@@ -2905,7 +2800,7 @@
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
- TabOrder = 12
+ TabOrder = 10
Visible = False
OnClick = edtaixunClick
OnKeyPress = MJstr3KeyPress
diff --git a/F05染色检验/U_DyeMachInsp.pas b/F05染色检验/U_DyeMachInsp.pas
index bb5f224..e9bc435 100644
--- a/F05染色检验/U_DyeMachInsp.pas
+++ b/F05染色检验/U_DyeMachInsp.pas
@@ -187,12 +187,9 @@ type
Panel9: TPanel;
Panel2: TPanel;
lblLenUnit: TLabel;
- Label4: TLabel;
Label5: TLabel;
- Label11: TLabel;
Label31: TLabel;
InputLen: TEdit;
- InputWeight: TEdit;
BTPrint: TButton;
Button6: TButton;
Button8: TButton;
@@ -242,10 +239,7 @@ type
Coefficient: TEdit;
Label9: TLabel;
MinLen: TEdit;
- Label15: TLabel;
- MinWeight: TEdit;
MaxLen: TEdit;
- MaxWeight: TEdit;
Label19: TLabel;
MPlace: TEdit;
Label20: TLabel;
@@ -258,7 +252,6 @@ type
Label34: TLabel;
edtaixun: TEdit;
lblRuleConversion: TLabel;
- Tare: TEdit;
Button3: TButton;
SpeedButton49: TSpeedButton;
procedure FormDestroy(Sender: TObject);
@@ -332,7 +325,7 @@ type
procedure InitJTM(MCIID: string); //ɨ
procedure ClearGlobal(); //ȫID
procedure PrtData(MCIID: string); //ӡǩ
- procedure QuantityConversion(); //
+// procedure QuantityConversion(); //
procedure PrtMD(MInNo: string); //ⵥӡ
procedure InitImage(YFTPName: string); //ͼƬ
procedure InitImageHX(HXSID: string);
@@ -342,6 +335,8 @@ type
procedure On1201(var Message: Tmessage); message 1201; //ӳ
procedure On1301(var Message: Tmessage); message 1301; //
procedure PrtAiXunData(MCIID: string); //Ѷ
+ function SGetServerDateTimeString(ADOQueryTmp: TADOQuery): string;
+ function ReadKPZConfig: string;
public
fmanage: string;
fFlileFlag: string;
@@ -355,7 +350,8 @@ var
implementation
uses
- U_DataLink, U_RTFun, U_ZDYHelp, U_iniParam, U_LabelPrint;
+ U_DataLink, U_RTFun, U_ZDYHelp, U_iniParam, U_LabelPrint
+ ,IniFiles;
{$R *.dfm}
procedure TfrmDyeMachInsp.PrtMD(MInNo: string);
@@ -485,8 +481,6 @@ begin
LabQty := ComboBox1.Text;
FMinLen := MinLen.Text;
FMaxLen := MaxLen.Text;
- FMinWeight := MinWeight.Text;
- FMaxWeight := MaxWeight.Text;
FMPlace := MPlace.Text;
FYPlace := YPlace.Text;
@@ -517,8 +511,7 @@ begin
MinLen.Text := FMinLen;
MaxLen.Text := FMaxLen;
- MinWeight.Text := FMinWeight;
- MaxWeight.Text := FMaxWeight;
+
MPlace.Text := FMPlace;
YPlace.Text := FYPlace;
@@ -567,22 +560,6 @@ begin
// end;
end;
-procedure TfrmDyeMachInsp.QuantityConversion();
-begin
- if lblRuleConversion.Caption = 'ת' then
- begin
- InputWeight.Text := floattostr(StrToFloatdef(trim(InputLen.Text), 0) * StrToFloatdef(trim(Coefficient.Text), 0) + StrToFloatdef(FRuleBeforeTare, 0));
- end;
- if lblRuleConversion.Caption = 'ëת' then
- begin
- InputLen.Text := floattostr((StrToFloatdef(trim(InputWeight.Text), 0) + StrToFloatdef(FAddWet, 0) + StrToFloatdef(FRuleLaterTare, 0)) * StrToFloatdef(trim(Coefficient.Text), 0));
- end;
- if lblRuleConversion.Caption = 'ת' then
- begin
- InputLen.Text := floattostr((RoundFloat(StrToFloatdef(trim(InputWeight.Text), 0), 1) - StrToFloatdef(FRuleBeforeTare, 0)) * StrToFloatdef(trim(Coefficient.Text), 0));
- end;
-end;
-
function TfrmDyeMachInsp.CheckData(CKType: string): Boolean;
var
mvalue: Double;
@@ -597,15 +574,15 @@ begin
if trim(lblLenUnit.Caption) = '' then
raise Exception.Create('ȵλΪ!');
- if Trim(InputWeight.Text) <> '' then
- begin
- if TryStrToFloat(InputWeight.Text, mvalue) = False then
- raise Exception.Create('¼!');
- if strtofloatdef(trim(InputWeight.Text), 0) < Strtofloatdef(MinWeight.Text, 0) then
- raise Exception.Create('С' + MinWeight.Text + '!');
- if strtofloatdef(trim(InputWeight.Text), 0) > Strtofloatdef(MaxWeight.Text, 0) then
- raise Exception.Create('ܴ' + MaxWeight.Text + '!');
- end;
+// if Trim(InputWeight.Text) <> '' then
+// begin
+// if TryStrToFloat(InputWeight.Text, mvalue) = False then
+// raise Exception.Create('¼!');
+// if strtofloatdef(trim(InputWeight.Text), 0) < Strtofloatdef(MinWeight.Text, 0) then
+// raise Exception.Create('С' + MinWeight.Text + '!');
+// if strtofloatdef(trim(InputWeight.Text), 0) > Strtofloatdef(MaxWeight.Text, 0) then
+// raise Exception.Create('ܴ' + MaxWeight.Text + '!');
+// end;
if Trim(InputLen.Text) <> '' then
begin
@@ -617,8 +594,8 @@ begin
raise Exception.Create('Ȳܴ' + MaxLen.Text + '!');
end;
- if (strtofloatdef(trim(InputLen.Text), 0) = 0) and (strtofloatdef(trim(InputWeight.Text), 0) = 0) then
- raise Exception.Create('ȺܶΪ0!!');
+ if (strtofloatdef(trim(InputLen.Text), 0) = 0) then
+ raise Exception.Create('ȲΪ0!!');
end;
Result := True;
except
@@ -653,10 +630,10 @@ begin
FCIID := '';
FWorkshop := '';
InputLen.Text := '';
- InputWeight.Text := '';
+// InputWeight.Text := '';
Coefficient.Text := '';
AOrdDefNote1.Text := '';
- Tare.Text := '';
+// Tare.Text := '';
FAddLen := '';
FAddWet := '';
FRuleBeforeTare := '';
@@ -757,7 +734,7 @@ begin
Piece.Text := Trim(ADOTmp.fieldbyname('PCPiece').AsString);
Qty.Text := Trim(ADOTmp.fieldbyname('PCQty').AsString) + Trim(ADOTmp.fieldbyname('PCUnit').AsString);
- Tare.Text := Trim(ADOTmp.fieldbyname('RuleLaterTare').AsString);
+// Tare.Text := Trim(ADOTmp.fieldbyname('RuleLaterTare').AsString);
lblRuleConversion.Caption := Trim(ADOTmp.fieldbyname('RuleConversion').AsString);
FAddLen := ADOTmp.fieldbyname('AddLen').AsString;
@@ -766,8 +743,8 @@ begin
FRuleLaterTare := ADOTmp.fieldbyname('RuleLaterTare').AsString;
SetDdetails();
- InputWeight.SetFocus;
- CIFBegClick(InputWeight);
+// InputWeight.SetFocus;
+// CIFBegClick(InputWeight);
end;
end
@@ -945,7 +922,7 @@ begin
if trim(edtChen.Text) = '' then
begin
- InputWeight.Text := format('%.2f', [i1 / 100000]);
+// InputWeight.Text := format('%.2f', [i1 / 100000]);
end;
end;
@@ -1033,6 +1010,8 @@ begin
edtScan.SetFocus;
end;
+
+// ShowMessage( SGetServerDateTimeString(ADOQueryBaseTemp)+'|'+ReadKPZConfig());
end;
procedure TfrmDyeMachInsp.InitCDPanel();
@@ -1134,12 +1113,74 @@ begin
InitCDGridCX(CDS_3.FieldByName('CIID').AsString);
end;
+
+function TfrmDyeMachInsp.SGetServerDateTimeString(ADOQueryTmp: TADOQuery): string;
+var
+ ServerTime: TDateTime;
+begin
+ try
+ with ADOQueryTmp do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('select GETDATE() as dt');
+ Open;
+ ServerTime := FieldByName('dt').AsDateTime;
+ Close;
+ end;
+
+ // DelphiиʽΪַָ
+ Result := FormatDateTime('yyyymmddhhnnsszzz', ServerTime);
+
+ except
+ on E: Exception do
+ begin
+ application.MessageBox(PChar('ȡǰڷ!' + sLineBreak + E.Message), 'ʾϢ', 0);
+ Result := FormatDateTime('yyyymmddhhnnsszzz', Now);
+ end;
+ end;
+end;
+
+
+function TfrmDyeMachInsp.ReadKPZConfig: string;
+var
+ IniFile: TIniFile;
+ DLLFileName: string;
+ DLLCallNumber: Integer;
+begin
+ Result := ''; // ĬϷֵ
+ try
+ // ʹȷļ FileKPZ.INI
+ IniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'FileKPZ.INI');
+ try
+ // ȡ [] ڵ
+ DLLFileName := IniFile.ReadString('', 'DLLļ1', '');
+ DLLCallNumber := IniFile.ReadInteger('', 'DLLú1', 0);
+ Result := IniFile.ReadString('', '̨־', '');
+
+ // ҪʾϢԱ
+// ShowMessage(Format('DLLļ1: %s' + sLineBreak +
+// 'DLLú1: %d' + sLineBreak +
+// '̨־: %s',
+// [DLLFileName, DLLCallNumber, Result]));
+
+ finally
+ IniFile.Free;
+ end;
+ except
+ on E: Exception do
+ ShowMessage('ȡļʧ: ' + E.Message);
+ end;
+end;
+
+
function TfrmDyeMachInsp.SaveData(): Boolean;
var
maxno, MCIID, BZID, strsql: string;
MInputLen, MMeter, MYardage: Double;
MInputWeight, MGrossWeight, MNetWeight, MTare, MRuleBeforeTare, MRuleLaterTare, MAddWet: Double;
-begin
+ mbarCode,mYLMyCode : string;
+ begin
if FOperationStatus = '' then
begin
MCIID := FCIID;
@@ -1150,6 +1191,14 @@ begin
end;
try
ADOCmd.Connection.BeginTrans;
+
+
+ mbarCode := FC_Name + '|' + FOrderNo + '|0|';
+ mbarCode := mbarCode + SGetServerDateTimeString(ADOQueryBaseTemp);
+ mbarCode := mbarCode + ReadKPZConfig() + '|';
+ mbarCode := mbarCode + InputLen.Text + '|' + FOrderNo + '*0|1|' ;
+
+
///
with ADOCmd do
begin
@@ -1166,6 +1215,8 @@ begin
raise Exception.Create('ȡʧܣ');
Append;
FieldByName('Filler').Value := Trim(DName);
+ FieldByName('Inspector1').Value := Trim(DName);
+ FieldByName('checktime').Value := SGetServerDateTime(ADOTmp);
FieldByName('CIID').Value := Trim(maxno);
end
else
@@ -1182,10 +1233,10 @@ begin
MRuleLaterTare := StrToFloatdef(FRuleLaterTare, 0);
MAddWet := StrToFloatdef(FAddWet, 0);
MTare := MRuleBeforeTare + MRuleLaterTare + MAddWet; //Ƥ
- MInputWeight := RoundFloat(StrToFloatdef(trim(InputWeight.Text), 0), StrTointdef(KgPlace.Text, 0)); //ë
+// MInputWeight := RoundFloat(StrToFloatdef(trim(InputWeight.Text), 0), StrTointdef(KgPlace.Text, 0)); //ë
MGrossWeight := MInputWeight + MRuleLaterTare + MAddWet; //ë
MNetWeight := MInputWeight - MRuleBeforeTare; //
- FieldByName('InputWeight').Value := MInputWeight;
+// FieldByName('InputWeight').Value := MInputWeight;
FieldByName('GrossWeight').Value := MGrossWeight;
FieldByName('NetWeight').Value := MNetWeight;
FieldByName('Tare').Value := MTare;
@@ -1232,7 +1283,7 @@ begin
FieldByName('ConMId').value := Trim(FConMId);
FieldByName('ConSId').value := Trim(FConSId);
FieldByName('Workshop').value := Trim(FWorkshop);
- FieldByName('CIIOFlag').Value := 'δ';
+ FieldByName('CIIOFlag').Value := '';
FieldByName('PCId').value := FPCId;
FieldByName('C_Code').value := FC_Code;
FieldByName('C_Name').value := FC_Name;
@@ -1247,9 +1298,22 @@ begin
FieldByName('C_CustPattern').value := FC_CustPattern;
FieldByName('C_ColorDepth').value := FC_ColorDepth;
FieldByName('CIMachNo').Value := Trim(SCXFlag);
+
+
+
+ FieldByName('barCode').Value := mbarCode;
+
Post;
end;
+
+
+
+
+
+
+
+
MCIID := Trim(maxno);
FCIID := Trim(maxno);
@@ -1333,7 +1397,9 @@ begin
begin
Close;
sql.Clear;
- sql.Add('exec P_Dye_Insp_In_Stk @CIID=''' + trim(MCIID) + '''');
+ sql.Add('exec P_Dye_Insp_Auto_Stk @CIID=''' + trim(MCIID) + '''');
+ Sql.Add(',@FillId=' + Quotedstr(DCode));
+ Sql.Add(',@Filler=' + Quotedstr(DName));
Open;
end;
if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
@@ -1366,7 +1432,6 @@ begin
if SaveData() then
begin
InputLen.Text := '';
- InputWeight.Text := '';
Edit3.Text := '';
Edit4.Text := '';
@@ -1844,13 +1909,13 @@ end;
procedure TfrmDyeMachInsp.InputLenChange(Sender: TObject);
begin
- QuantityConversion();
+// QuantityConversion();
end;
procedure TfrmDyeMachInsp.InputWeightChange(Sender: TObject);
begin
- QuantityConversion();
+// QuantityConversion();
end;
procedure TfrmDyeMachInsp.edtScanClick(Sender: TObject);
diff --git a/F05染色检验/U_GetDllForm.pas b/F05染色检验/U_GetDllForm.pas
index ab086c6..7e6e0fd 100644
--- a/F05染色检验/U_GetDllForm.pas
+++ b/F05染色检验/U_GetDllForm.pas
@@ -16,7 +16,7 @@ implementation
uses
U_DataLink, U_iniParam, U_DyeMachInsp, U_DyeClothInspList,
- U_DyeClothInspStaffOutputList;
+ U_DyeClothInspStaffOutputList,U_DyeCardRoll;
/////////////////////////////////////////////////////////////////
// ˵:ȡDllеô //
@@ -125,6 +125,18 @@ begin
/////////////////////
//ģ鴰
case FormID of
+ 1: //
+ begin
+ with TfrmDyeCardRoll.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;
+
111: //̨
begin
diff --git a/F06染色成品仓库/DyeClothStk.dpr b/F06染色成品仓库/DyeClothStk.dpr
index 0a18058..9fdc96b 100644
--- a/F06染色成品仓库/DyeClothStk.dpr
+++ b/F06染色成品仓库/DyeClothStk.dpr
@@ -29,7 +29,10 @@ uses
U_DyeClothPSI in 'U_DyeClothPSI.pas' {frmDyeClothPSI},
U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint},
- U_DyePlanSel in '..\F00Ⱦɫͨô\U_DyePlanSel.pas' {frmDyePlanSel};
+ U_DyePlanSel in '..\F00Ⱦɫͨô\U_DyePlanSel.pas' {frmDyePlanSel},
+ uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
+ U_DyeClothOutPut in 'U_DyeClothOutPut.pas' {frmDyeClothOutPut},
+ U_DyeClothStkSel in 'U_DyeClothStkSel.pas' {frmDyeClothStkSel};
{$R *.res}
diff --git a/F06染色成品仓库/DyeClothStk.dproj b/F06染色成品仓库/DyeClothStk.dproj
index 75462b7..e921ed9 100644
--- a/F06染色成品仓库/DyeClothStk.dproj
+++ b/F06染色成品仓库/DyeClothStk.dproj
@@ -80,7 +80,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\项目代码\众华\F06染色成品仓库\testDll.exe
+ D:\Dp10Repo\项目代码\D10sxYilanbuyi\F06染色成品仓库\testDll.exe
@@ -157,6 +157,15 @@
dfm
+
+
+
+ dfm
+
+
+
+ dfm
+
Cfg_2
Base
diff --git a/F06染色成品仓库/DyeClothStk.dproj.local b/F06染色成品仓库/DyeClothStk.dproj.local
index b836356..a86fd15 100644
--- a/F06染色成品仓库/DyeClothStk.dproj.local
+++ b/F06染色成品仓库/DyeClothStk.dproj.local
@@ -1,42 +1,45 @@
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.982,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.615,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.pas
+ 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.755,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.783,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\Unit1.pas=
+ 1899/12/30 00:00:00.000.615,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.dfm
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
1899/12/30 00:00:00.000.443,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothWaitStorage.pas
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.420,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\DyeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\InformationBase.dproj
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.982,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.783,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\Unit1.pas=
- 1899/12/30 00:00:00.000.615,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothOutEdit.dfm
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.845,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.pas
+ 1899/12/30 00:00:00.000.361,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanSel.pas
1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.710,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothIOFlow.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899/12/30 00:00:00.000.361,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanSel.pas
- 1899/12/30 00:00:00.000.537,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899/12/30 00:00:00.000.420,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\DyeClothStk.dproj
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899/12/30 00:00:00.000.537,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.845,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.pas
- 1899/12/30 00:00:00.000.615,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothOutEdit.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.755,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.045,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothPSI.pas
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.710,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothIOFlow.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 2025/11/01 16:37:51.000.144,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 2025/11/04 12:26:10.000.642,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F06染色成品仓库\U_DyeClothOutPut.pas
+ 2025/11/04 12:30:50.000.944,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F06染色成品仓库\U_DyeClothStkSel.pas
@@ -75,6 +78,7 @@
+
@@ -87,5 +91,9 @@
+
+
+
+
diff --git a/F06染色成品仓库/DyeClothStk.identcache b/F06染色成品仓库/DyeClothStk.identcache
index 08b7a41..56a6e39 100644
Binary files a/F06染色成品仓库/DyeClothStk.identcache and b/F06染色成品仓库/DyeClothStk.identcache differ
diff --git a/F06染色成品仓库/DyeClothStk.res b/F06染色成品仓库/DyeClothStk.res
index 8ededa5..e28e908 100644
Binary files a/F06染色成品仓库/DyeClothStk.res and b/F06染色成品仓库/DyeClothStk.res differ
diff --git a/F06染色成品仓库/U_DyeClothDROutEdit.dfm b/F06染色成品仓库/U_DyeClothDROutEdit.dfm
index ca3db6c..dd814a6 100644
--- a/F06染色成品仓库/U_DyeClothDROutEdit.dfm
+++ b/F06染色成品仓库/U_DyeClothDROutEdit.dfm
@@ -242,6 +242,7 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_MainSel
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@@ -283,6 +284,7 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object VC_MJXH: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
@@ -290,6 +292,7 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object v3Column2: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'jyid'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
@@ -298,29 +301,34 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object Tv3Column2: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'PacketNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv3Column3: TcxGridDBColumn
Caption = #21253#26465#30721
DataBinding.FieldName = 'PacketId'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object cv3Column3: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNO'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 98
end
object cv3Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object v3Column1: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
@@ -328,6 +336,7 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object Tv3Column1: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
@@ -335,6 +344,7 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object Tv3Column4: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
@@ -354,6 +364,7 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object TV4: TcxGridDBTableView
OnMouseDown = TV4MouseDown
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = ds2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@@ -380,18 +391,21 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object cCXCONNO: TcxGridDBColumn
Caption = #35745#21010#21333
DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 119
end
object TV4Column1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 98
end
object cCXCOLOR: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
@@ -399,18 +413,21 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object cV4Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNO'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object TV4Column2: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'Piece'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 113
end
object VC_SQQTY: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'Qty'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 111
@@ -418,18 +435,21 @@ inherited frmDyeClothDROutEdit: TfrmDyeClothDROutEdit
object TV4Column5: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 109
end
object TV4Column3: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'DlyPiece'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 123
end
object cCXFHPS: TcxGridDBColumn
Caption = #21457#36135#25968#37327
DataBinding.FieldName = 'DlyQty'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
diff --git a/F06染色成品仓库/U_DyeClothDROutEdit.pas b/F06染色成品仓库/U_DyeClothDROutEdit.pas
index a688ba5..a8d740e 100644
--- a/F06染色成品仓库/U_DyeClothDROutEdit.pas
+++ b/F06染色成品仓库/U_DyeClothDROutEdit.pas
@@ -11,7 +11,8 @@ uses
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
- cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
+ cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
+ dxScrollbarAnnotations;
type
TfrmDyeClothDROutEdit = class(TfrmBaseList)
diff --git a/F06染色成品仓库/U_DyeClothInList.dfm b/F06染色成品仓库/U_DyeClothInList.dfm
index cc09972..52ae15c 100644
--- a/F06染色成品仓库/U_DyeClothInList.dfm
+++ b/F06染色成品仓库/U_DyeClothInList.dfm
@@ -123,22 +123,8 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Font.Style = [fsBold]
ParentFont = False
end
- object TLabel
- Left = 362
- Top = 10
- Width = 39
- Height = 12
- Hint = '0'
- Caption = #21512#21516#21495
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label7: TLabel
- Left = 525
+ Left = 365
Top = 10
Width = 26
Height = 12
@@ -152,7 +138,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
ParentFont = False
end
object Label10: TLabel
- Left = 671
+ Left = 511
Top = 36
Width = 39
Height = 12
@@ -166,12 +152,12 @@ inherited frmDyeClothInList: TfrmDyeClothInList
ParentFont = False
end
object Label5: TLabel
- Left = 362
+ Left = 195
Top = 36
- Width = 39
+ Width = 52
Height = 12
Hint = '0'
- Caption = #20135#21697#21517
+ Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@@ -180,7 +166,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
ParentFont = False
end
object lbl1: TLabel
- Left = 684
+ Left = 524
Top = 10
Width = 26
Height = 12
@@ -194,7 +180,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
ParentFont = False
end
object Label20: TLabel
- Left = 525
+ Left = 365
Top = 36
Width = 26
Height = 12
@@ -207,34 +193,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Font.Style = [fsBold]
ParentFont = False
end
- object Label23: TLabel
- Left = 195
- Top = 36
- Width = 52
- Height = 12
- Hint = '0'
- Caption = #20135#21697#32534#21495
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label1: TLabel
- Left = 832
- Top = 10
- Width = 26
- Height = 12
- Hint = '0'
- Caption = #23458#25143
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object BegDate: TDateTimePicker
Left = 88
Top = 6
@@ -301,39 +259,39 @@ inherited frmDyeClothInList: TfrmDyeClothInList
TabOrder = 5
OnKeyPress = orderNoKeyPress
end
- object conNO: TEdit
- Tag = 2
- Left = 409
- Top = 6
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 6
- OnKeyPress = CustNameKeyPress
- end
object STKID: TEdit
Tag = 2
- Left = 716
+ Left = 556
Top = 32
Width = 100
Height = 20
Hint = '1'
- TabOrder = 7
+ TabOrder = 6
OnKeyPress = CustNameKeyPress
end
object C_Name: TEdit
Tag = 2
- Left = 409
+ Left = 248
Top = 32
Width = 100
Height = 20
Hint = '0'
+ TabOrder = 7
+ OnKeyPress = CustNameKeyPress
+ end
+ object C_Color: TEdit
+ Tag = 2
+ Left = 393
+ Top = 6
+ Width = 100
+ Height = 20
+ Hint = '0'
TabOrder = 8
OnKeyPress = CustNameKeyPress
end
- object C_Color: TEdit
+ object PCId: TEdit
Tag = 2
- Left = 553
+ Left = 556
Top = 6
Width = 100
Height = 20
@@ -341,46 +299,16 @@ inherited frmDyeClothInList: TfrmDyeClothInList
TabOrder = 9
OnKeyPress = CustNameKeyPress
end
- object PCId: TEdit
+ object C_Pattern: TEdit
Tag = 2
- Left = 716
- Top = 6
+ Left = 393
+ Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 10
OnKeyPress = CustNameKeyPress
end
- object C_Pattern: TEdit
- Tag = 2
- Left = 553
- Top = 32
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 11
- OnKeyPress = CustNameKeyPress
- end
- object C_Code: TEdit
- Tag = 2
- Left = 248
- Top = 32
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 12
- OnKeyPress = CustNameKeyPress
- end
- object CustName: TEdit
- Tag = 2
- Left = 864
- Top = 6
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 13
- OnKeyPress = CustNameKeyPress
- end
end
object Panel6: TPanel [2]
Left = 0
@@ -509,7 +437,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
- Column = v1Column8
end
item
Kind = skSum
@@ -530,11 +457,9 @@ inherited frmDyeClothInList: TfrmDyeClothInList
end
item
Kind = skSum
- Column = v1Column27
end
item
Kind = skSum
- Column = v1Column28
end
item
Kind = skSum
@@ -583,7 +508,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
end
object v1Column21: TcxGridDBColumn
Caption = #20837#24211#21333#21495
- DataBinding.FieldName = 'IONO'
+ DataBinding.FieldName = 'IOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@@ -594,20 +519,15 @@ inherited frmDyeClothInList: TfrmDyeClothInList
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
Options.Editing = False
+ Width = 71
end
object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
- Options.Editing = False
- end
- object v1Column32: TcxGridDBColumn
- Caption = #21512#21516#21495
- DataBinding.FieldName = 'conNO'
- DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 76
+ Width = 71
end
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
@@ -617,14 +537,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Options.Editing = False
Width = 78
end
- object Tv1Column4: TcxGridDBColumn
- Caption = #20135#21697#32534#21495
- DataBinding.FieldName = 'C_Code'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 74
- end
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
@@ -657,43 +569,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Options.Editing = False
Width = 66
end
- object Tv1Column6: TcxGridDBColumn
- Caption = #23458#25143
- DataBinding.FieldName = 'CustName'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 69
- end
- object Tv1Column13: TcxGridDBColumn
- Caption = #32568#21495
- DataBinding.FieldName = 'BatchNo2'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- end
- object v1Column8: TcxGridDBColumn
- Caption = #27611#37325
- DataBinding.FieldName = 'GrossWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column27: TcxGridDBColumn
- Caption = #30382#37325
- DataBinding.FieldName = 'Tare'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column28: TcxGridDBColumn
- Caption = #20928#37325
- DataBinding.FieldName = 'NetWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
@@ -710,14 +585,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Options.Editing = False
Width = 71
end
- object Tv1Column10: TcxGridDBColumn
- Caption = #30721#25968
- DataBinding.FieldName = 'Yardage'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
@@ -742,14 +609,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Options.Editing = False
Width = 66
end
- object Tv1Column7: TcxGridDBColumn
- Caption = #23458#25143#33457#22411
- DataBinding.FieldName = 'C_CustPattern'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
@@ -766,53 +625,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Options.Editing = False
Width = 66
end
- object v1Column34: TcxGridDBColumn
- Caption = #32568#26465#30721
- DataBinding.FieldName = 'BCIOID'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column40: TcxGridDBColumn
- Caption = #33457#22411
- DataBinding.FieldName = 'C_Pattern'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column46: TcxGridDBColumn
- Caption = #26816#39564#26426#21488
- DataBinding.FieldName = 'CIMachNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #21253#21495
- DataBinding.FieldName = 'BAONO'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object VC_BaoID: TcxGridDBColumn
- Caption = #21253#26465#30721
- DataBinding.FieldName = 'PacketId'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- end
- object Tv1Column8: TcxGridDBColumn
- Caption = #23458#25143#21333#21495
- DataBinding.FieldName = 'BuyConNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
@@ -821,22 +633,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Options.Editing = False
Width = 66
end
- object Tv1Column1: TcxGridDBColumn
- Caption = #27454#21495
- DataBinding.FieldName = 'C_StyleNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column2: TcxGridDBColumn
- Caption = #33521#25991#39068#33394
- DataBinding.FieldName = 'C_EColor'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
diff --git a/F06染色成品仓库/U_DyeClothInList.pas b/F06染色成品仓库/U_DyeClothInList.pas
index 03c88d1..313afd7 100644
--- a/F06染色成品仓库/U_DyeClothInList.pas
+++ b/F06染色成品仓库/U_DyeClothInList.pas
@@ -47,32 +47,18 @@ type
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
- v1Column32: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
- Tv1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
- v1Column8: TcxGridDBColumn;
- v1Column27: TcxGridDBColumn;
- v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
- Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
- Tv1Column7: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
- v1Column34: TcxGridDBColumn;
- v1Column40: TcxGridDBColumn;
- v1Column46: TcxGridDBColumn;
- Tv1Column5: TcxGridDBColumn;
- Tv1Column8: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
- Tv1Column1: TcxGridDBColumn;
- Tv1Column2: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label3: TLabel;
Label7: TLabel;
@@ -80,16 +66,12 @@ type
Label5: TLabel;
lbl1: TLabel;
Label20: TLabel;
- Label23: TLabel;
OrderNo: TEdit;
- conNO: TEdit;
STKID: TEdit;
C_Name: TEdit;
C_Color: TEdit;
PCId: TEdit;
C_Pattern: TEdit;
- C_Code: TEdit;
- VC_BaoID: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
@@ -98,10 +80,6 @@ type
ToolButton1: TToolButton;
N1: TMenuItem;
N2: TMenuItem;
- Tv1Column6: TcxGridDBColumn;
- Tv1Column13: TcxGridDBColumn;
- Label1: TLabel;
- CustName: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@@ -202,6 +180,8 @@ begin
sql.Add(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber');
+
+
// showmessage(sql.text);
Open;
end;
@@ -264,10 +244,10 @@ begin
canshu1 := self.fParameters1;
canshu2 := self.fParameters3;
FWorkshop := self.fParameters3;
- ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒֿ');
+ ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб');
CurrentPage := 1;
RecordsNumber := 500;
-
+ InitGrid();
SetStatus();
end;
@@ -407,18 +387,18 @@ procedure TfrmDyeClothInList.Tv1DataControllerSummaryFooterSummaryItemsSummary(A
var
BaoID: string;
begin
- if TcxGridDBTableSummaryItem(Arguments.SummaryItem).Column = VC_BaoID then
- begin
- BaoID := vartostr(ASender.DataController.Values[Arguments.RecordIndex, VC_BaoID.Index]);
- if BaoID = '' then
- Exit;
- if BaoID = null then
- Exit;
- if lstCust.IndexOf(BaoID) = -1 then
- begin
- lstCust.Add(BaoID);
- end;
- end;
+// if TcxGridDBTableSummaryItem(Arguments.SummaryItem).Column = VC_BaoID then
+// begin
+// BaoID := vartostr(ASender.DataController.Values[Arguments.RecordIndex, VC_BaoID.Index]);
+// if BaoID = '' then
+// Exit;
+// if BaoID = null then
+// Exit;
+// if lstCust.IndexOf(BaoID) = -1 then
+// begin
+// lstCust.Add(BaoID);
+// end;
+// end;
end;
procedure TfrmDyeClothInList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
@@ -537,7 +517,7 @@ end;
procedure TfrmDyeClothInList.ToolButton4Click(Sender: TObject);
begin
- WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒֿ');
+ WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб');
end;
end.
diff --git a/F06染色成品仓库/U_DyeClothInTotalList.dfm b/F06染色成品仓库/U_DyeClothInTotalList.dfm
index 1ab6ff5..c842953 100644
--- a/F06染色成品仓库/U_DyeClothInTotalList.dfm
+++ b/F06染色成品仓库/U_DyeClothInTotalList.dfm
@@ -3,11 +3,11 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
Top = 138
Caption = #25104#21697#20837#24211#27719#24635
ClientHeight = 600
- ClientWidth = 1544
+ ClientWidth = 1540
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
- ExplicitWidth = 1560
+ ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 12
@@ -15,7 +15,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
Tag = 1
Left = 0
Top = 0
- Width = 1544
+ Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
@@ -69,7 +69,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object Panel1: TPanel [1]
Left = 0
Top = 38
- Width = 1544
+ Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
@@ -238,7 +238,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object cxGrid1: TcxGrid [2]
Left = 0
Top = 105
- Width = 1544
+ Width = 1540
Height = 495
Align = alClient
BorderStyle = cxcbsNone
@@ -252,6 +252,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -322,6 +323,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@@ -332,6 +334,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column21: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
@@ -339,6 +342,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
@@ -346,6 +350,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -353,12 +358,14 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object Tv1Column13: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column18: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCId'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -366,6 +373,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column23: TcxGridDBColumn
Caption = #21367#25968
DataBinding.FieldName = 'SumPieceNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -373,6 +381,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -380,6 +389,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'SumTare'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -387,6 +397,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -394,6 +405,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'SumMeter'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -401,6 +413,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'SumYardage'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -408,11 +421,13 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
+ DataBinding.IsNullValueType = True
Options.Editing = False
end
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -420,6 +435,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -427,6 +443,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -434,6 +451,7 @@ inherited frmDyeClothInTotalList: TfrmDyeClothInTotalList
object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
diff --git a/F06染色成品仓库/U_DyeClothInTotalList.pas b/F06染色成品仓库/U_DyeClothInTotalList.pas
index 21cba2f..9ae052d 100644
--- a/F06染色成品仓库/U_DyeClothInTotalList.pas
+++ b/F06染色成品仓库/U_DyeClothInTotalList.pas
@@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
- System.StrUtils;
+ System.StrUtils, dxScrollbarAnnotations;
type
TfrmDyeClothInTotalList = class(TfrmBaseList)
diff --git a/F06染色成品仓库/U_DyeClothOutEdit.dfm b/F06染色成品仓库/U_DyeClothOutEdit.dfm
index 868c795..d29e472 100644
--- a/F06染色成品仓库/U_DyeClothOutEdit.dfm
+++ b/F06染色成品仓库/U_DyeClothOutEdit.dfm
@@ -23,6 +23,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
@@ -58,6 +59,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v1Column6: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
@@ -68,6 +70,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'orderNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@@ -76,12 +79,14 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v1Column11: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'StkId'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1Column5: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@@ -90,6 +95,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v1Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@@ -98,12 +104,14 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object Tv1Column1: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object v1Column4: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCID'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 41
@@ -111,6 +119,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v2Column6: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'StkMeter'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@@ -119,6 +128,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v2Column5: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'StkGrossWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@@ -211,6 +221,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
@@ -227,6 +238,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@@ -235,12 +247,14 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object Tv2Column1: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCID'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column2: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 123
@@ -248,6 +262,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@@ -256,6 +271,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object cxGridDBColumn3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@@ -264,18 +280,21 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object Tv2Column3: TcxGridDBColumn
Caption = #32568#25968
DataBinding.FieldName = 'batchno'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
end
object Tv2Column2: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PCPiece'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 48
end
object v1Column10: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PCQty'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 51
@@ -283,6 +302,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v1Column14: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'PCUnit'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 42
@@ -290,6 +310,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@@ -298,6 +319,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@@ -471,6 +493,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -500,6 +523,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v3Column5: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@@ -510,6 +534,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object cxGridDBColumn1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'orderNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
@@ -517,6 +542,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 52
@@ -524,6 +550,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v3MJID: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'StkId'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
@@ -531,6 +558,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v3Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -538,12 +566,14 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object Tv3Column1: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
object v3Column4: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCID'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
@@ -551,6 +581,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object cxGridDBColumn6: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'StkMeter'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@@ -559,6 +590,7 @@ inherited frmDyeClothOutEdit: TfrmDyeClothOutEdit
object v3Column1: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'StkGrossWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 59
diff --git a/F06染色成品仓库/U_DyeClothOutEdit.pas b/F06染色成品仓库/U_DyeClothOutEdit.pas
index b5d0635..7d22413 100644
--- a/F06染色成品仓库/U_DyeClothOutEdit.pas
+++ b/F06染色成品仓库/U_DyeClothOutEdit.pas
@@ -11,7 +11,7 @@ uses
cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class,
- RM_GridReport, RM_Dataset, Vcl.ToolWin;
+ RM_GridReport, RM_Dataset, Vcl.ToolWin, dxScrollbarAnnotations;
type
TfrmDyeClothOutEdit = class(TfrmBaseList)
diff --git a/F06染色成品仓库/U_DyeClothOutList.dfm b/F06染色成品仓库/U_DyeClothOutList.dfm
index 1c14732..e46b73c 100644
--- a/F06染色成品仓库/U_DyeClothOutList.dfm
+++ b/F06染色成品仓库/U_DyeClothOutList.dfm
@@ -41,16 +41,40 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
ImageIndex = 1
OnClick = TBRafreshClick
end
- object TBRKCX: TToolButton
+ object TbOut: TToolButton
Left = 71
Top = 0
AutoSize = True
+ Caption = #20986#24211
+ ImageIndex = 2
+ OnClick = TbOutClick
+ end
+ object TbEdit: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #20462#25913
+ ImageIndex = 3
+ OnClick = TbEditClick
+ end
+ object TbDel: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
+ Caption = #21024#38500
+ ImageIndex = 5
+ OnClick = TBDelClick
+ end
+ object TBRKCX: TToolButton
+ Left = 284
+ Top = 0
+ AutoSize = True
Caption = #25764#38144#20986#24211
ImageIndex = 11
OnClick = TBRKCXClick
end
object ToolButton1: TToolButton
- Left = 166
+ Left = 379
Top = 0
AutoSize = True
Caption = #25353#21333#25171#21360
@@ -58,7 +82,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
- Left = 261
+ Left = 474
Top = 0
AutoSize = True
Caption = #21246#36873#25171#21360
@@ -67,7 +91,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
OnClick = ToolButton2Click
end
object TBExport: TToolButton
- Left = 356
+ Left = 569
Top = 0
AutoSize = True
Caption = #23548#20986
@@ -75,7 +99,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
OnClick = TBExportClick
end
object ToolButton4: TToolButton
- Left = 427
+ Left = 640
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -83,7 +107,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
OnClick = ToolButton4Click
end
object TBClose: TToolButton
- Left = 522
+ Left = 735
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -123,22 +147,8 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Font.Style = [fsBold]
ParentFont = False
end
- object TLabel
- Left = 362
- Top = 10
- Width = 39
- Height = 12
- Hint = '0'
- Caption = #21512#21516#21495
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label7: TLabel
- Left = 525
+ Left = 389
Top = 10
Width = 26
Height = 12
@@ -152,7 +162,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
ParentFont = False
end
object Label10: TLabel
- Left = 671
+ Left = 535
Top = 36
Width = 39
Height = 12
@@ -168,24 +178,10 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
object Label5: TLabel
Left = 362
Top = 36
- Width = 39
+ Width = 52
Height = 12
Hint = '0'
- Caption = #20135#21697#21517
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label20: TLabel
- Left = 525
- Top = 36
- Width = 26
- Height = 12
- Hint = '0'
- Caption = #33457#22411
+ Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@@ -208,7 +204,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
ParentFont = False
end
object Label1: TLabel
- Left = 684
+ Left = 548
Top = 10
Width = 26
Height = 12
@@ -221,20 +217,6 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Font.Style = [fsBold]
ParentFont = False
end
- object Label4: TLabel
- Left = 836
- Top = 10
- Width = 26
- Height = 12
- Hint = '0'
- Caption = #23458#25143
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object BegDate: TDateTimePicker
Left = 88
Top = 6
@@ -301,54 +283,34 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
TabOrder = 5
OnKeyPress = orderNoKeyPress
end
- object conNO: TEdit
- Tag = 2
- Left = 409
- Top = 6
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 6
- OnKeyPress = orderNoKeyPress
- end
object STKID: TEdit
Tag = 2
- Left = 711
+ Left = 575
Top = 32
Width = 100
Height = 20
Hint = '1'
- TabOrder = 7
+ TabOrder = 6
OnKeyPress = orderNoKeyPress
end
object C_Name: TEdit
Tag = 2
- Left = 409
+ Left = 417
Top = 32
Width = 100
Height = 20
Hint = '0'
- TabOrder = 8
+ TabOrder = 7
OnKeyPress = orderNoKeyPress
end
object C_Color: TEdit
Tag = 2
- Left = 553
+ Left = 417
Top = 6
Width = 100
Height = 20
Hint = '0'
- TabOrder = 9
- OnKeyPress = orderNoKeyPress
- end
- object C_Pattern: TEdit
- Tag = 2
- Left = 553
- Top = 32
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 10
+ TabOrder = 8
OnKeyPress = orderNoKeyPress
end
object C_Code: TEdit
@@ -358,27 +320,17 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Width = 100
Height = 20
Hint = '0'
- TabOrder = 11
+ TabOrder = 9
OnKeyPress = orderNoKeyPress
end
object PCId: TEdit
Tag = 2
- Left = 711
+ Left = 575
Top = 6
Width = 100
Height = 20
Hint = '0'
- TabOrder = 12
- OnKeyPress = orderNoKeyPress
- end
- object CustName: TEdit
- Tag = 2
- Left = 863
- Top = 6
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 13
+ TabOrder = 10
OnKeyPress = orderNoKeyPress
end
end
@@ -391,6 +343,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
AutoSize = True
BorderStyle = bsSingle
TabOrder = 2
+ ExplicitTop = 99
DesignSize = (
1536
23)
@@ -499,6 +452,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
ParentFont = False
PopupMenu = PM_1
TabOrder = 3
+ ExplicitTop = 131
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -510,14 +464,12 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
- Column = v1Column8
end
item
Kind = skSum
end
item
Kind = skCount
- Column = v1Column6
end
item
Kind = skSum
@@ -531,11 +483,9 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
end
item
Kind = skSum
- Column = v1Column27
end
item
Kind = skSum
- Column = v1Column28
end
item
Kind = skSum
@@ -550,7 +500,6 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
end
item
Kind = skCount
- Column = v1Column23
end
item
Kind = skSum
@@ -582,6 +531,14 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Options.Sorting = False
Width = 57
end
+ object Tv1Column9: TcxGridDBColumn
+ Caption = #20986#24211#21333#21495
+ DataBinding.FieldName = 'IOID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 82
+ end
object v1Column21: TcxGridDBColumn
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
@@ -594,22 +551,8 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
- end
- object Tv1Column9: TcxGridDBColumn
- Caption = #20986#24211#21333#21495
- DataBinding.FieldName = 'IONO'
- DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 82
- end
- object v1Column32: TcxGridDBColumn
- Caption = #21512#21516#21495
- DataBinding.FieldName = 'ConNO'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 76
+ Width = 81
end
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
@@ -625,7 +568,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 74
+ Width = 78
end
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
@@ -633,21 +576,7 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 66
- end
- object Tv1Column13: TcxGridDBColumn
- Caption = #23458#25143
- DataBinding.FieldName = 'CustName'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 67
- end
- object Tv1Column6: TcxGridDBColumn
- Caption = #32568#21495
- DataBinding.FieldName = 'BatchNo2'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 69
+ Width = 81
end
object v1Column4: TcxGridDBColumn
Caption = #39068#33394
@@ -665,38 +594,6 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Options.Editing = False
Width = 66
end
- object v1Column23: TcxGridDBColumn
- Caption = #21367#21495
- DataBinding.FieldName = 'PieceNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column8: TcxGridDBColumn
- Caption = #27611#37325
- DataBinding.FieldName = 'GrossWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column27: TcxGridDBColumn
- Caption = #30382#37325
- DataBinding.FieldName = 'Tare'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column28: TcxGridDBColumn
- Caption = #20928#37325
- DataBinding.FieldName = 'NetWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
@@ -705,6 +602,13 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Options.Editing = False
Width = 66
end
+ object Tv1Piece: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'Piece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object Tv1Column12: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'IOPosition'
@@ -712,14 +616,6 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
HeaderAlignmentHorz = taCenter
Width = 71
end
- object Tv1Column10: TcxGridDBColumn
- Caption = #30721#25968
- DataBinding.FieldName = 'Yardage'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
@@ -728,30 +624,6 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Options.Editing = False
Width = 66
end
- object v1Column42: TcxGridDBColumn
- Caption = #24635#35760#24405#25968
- DataBinding.FieldName = 'TotalCount'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column6: TcxGridDBColumn
- Caption = #21367#26465#30721
- DataBinding.FieldName = 'CIID'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column7: TcxGridDBColumn
- Caption = #23458#25143#33457#22411
- DataBinding.FieldName = 'C_CustPattern'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
@@ -768,60 +640,6 @@ inherited frmDyeClothOutList: TfrmDyeClothOutList
Options.Editing = False
Width = 66
end
- object v1Column40: TcxGridDBColumn
- Caption = #33457#22411
- DataBinding.FieldName = 'C_Pattern'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #21253#21495
- DataBinding.FieldName = 'BAONO'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object VC_BaoID: TcxGridDBColumn
- Caption = #21253#26465#30721
- DataBinding.FieldName = 'PacketId'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- end
- object Tv1Column8: TcxGridDBColumn
- Caption = #23458#25143#21333#21495
- DataBinding.FieldName = 'BuyConNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column3: TcxGridDBColumn
- Caption = #33394#21495
- DataBinding.FieldName = 'C_ColorNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column1: TcxGridDBColumn
- Caption = #27454#21495
- DataBinding.FieldName = 'C_StyleNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column2: TcxGridDBColumn
- Caption = #33521#25991#39068#33394
- DataBinding.FieldName = 'C_EColor'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
diff --git a/F06染色成品仓库/U_DyeClothOutList.pas b/F06染色成品仓库/U_DyeClothOutList.pas
index 99608d9..b8284f7 100644
--- a/F06染色成品仓库/U_DyeClothOutList.pas
+++ b/F06染色成品仓库/U_DyeClothOutList.pas
@@ -47,47 +47,28 @@ type
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
- v1Column32: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
- v1Column23: TcxGridDBColumn;
- v1Column8: TcxGridDBColumn;
- v1Column27: TcxGridDBColumn;
- v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
- Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
- v1Column42: TcxGridDBColumn;
- v1Column6: TcxGridDBColumn;
- Tv1Column7: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
- v1Column40: TcxGridDBColumn;
- Tv1Column5: TcxGridDBColumn;
- Tv1Column8: TcxGridDBColumn;
- Tv1Column3: TcxGridDBColumn;
- Tv1Column1: TcxGridDBColumn;
- Tv1Column2: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label3: TLabel;
Label7: TLabel;
Label10: TLabel;
Label5: TLabel;
- Label20: TLabel;
Label23: TLabel;
Label1: TLabel;
OrderNo: TEdit;
- conNO: TEdit;
STKID: TEdit;
C_Name: TEdit;
C_Color: TEdit;
- C_Pattern: TEdit;
C_Code: TEdit;
PCId: TEdit;
- VC_BaoID: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
@@ -96,10 +77,10 @@ type
N2: TMenuItem;
ToolButton1: TToolButton;
N3: TMenuItem;
- Tv1Column6: TcxGridDBColumn;
- Tv1Column13: TcxGridDBColumn;
- Label4: TLabel;
- CustName: TEdit;
+ TbOut: TToolButton;
+ Tv1Piece: TcxGridDBColumn;
+ TbEdit: TToolButton;
+ TbDel: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@@ -125,6 +106,9 @@ type
procedure N1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
+ procedure TbOutClick(Sender: TObject);
+ procedure TbEditClick(Sender: TObject);
+ procedure TbDelClick(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
@@ -139,7 +123,7 @@ type
implementation
uses
- U_DataLink, U_RTFun, U_LabelPrint;
+ U_DataLink, U_RTFun, U_LabelPrint, U_DyeClothOutPut;
{$R *.dfm}
@@ -245,17 +229,90 @@ begin
Close;
end;
+procedure TfrmDyeClothOutList.TbDelClick(Sender: TObject);
+var
+ MIOID: string;
+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;
+ MIOID := '';
+ CDS_1.DisableControls;
+ with CDS_1 do
+ begin
+ First;
+ while CDS_1.Locate('SSel', True, []) do
+ begin
+
+ MIOID := MIOID + ',' + Trim(CDS_1.fieldbyname('IOID').AsString);
+ CDS_1.Delete;
+ end;
+ end;
+ CDS_1.EnableControls;
+
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_Dye_Cloth_Out_Del ');
+ Sql.Add(' @IOIDS=' + quotedstr(MIOID));
+ Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+ Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+ Open;
+ end;
+ if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+ raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+ ADOQueryCmd.Connection.CommitTrans;
+
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ InitGrid();
+ end;
+
+end;
+
+procedure TfrmDyeClothOutList.TbEditClick(Sender: TObject);
+begin
+ try
+ frmDyeClothOutPut := TfrmDyeClothOutPut.Create(Application);
+ with frmDyeClothOutPut do
+ begin
+
+ FIOID := CDS_1.FieldByName('IOID').AsString;
+
+ FWorkshop := self.FWorkshop;
+ if ShowModal = 1 then
+ begin
+ Self.InitGrid();
+ end;
+ end;
+ finally
+ frmDyeClothOutPut.Free;
+ end;
+end;
+
procedure TfrmDyeClothOutList.FormShow(Sender: TObject);
begin
inherited;
- ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒֿ');
+ ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб');
CurrentPage := 1;
RecordsNumber := 500;
canshu1 := self.fParameters1;
canshu2 := self.fParameters3;
FWorkshop := self.fParameters3;
-
+ InitGrid();
SetStatus();
end;
@@ -266,6 +323,26 @@ begin
TcxGridToExcel(Self.Caption, cxGrid1);
end;
+procedure TfrmDyeClothOutList.TbOutClick(Sender: TObject);
+begin
+ try
+ frmDyeClothOutPut := TfrmDyeClothOutPut.Create(Application);
+ with frmDyeClothOutPut do
+ begin
+
+ FIOID := '';
+
+ FWorkshop := self.FWorkshop;
+ if ShowModal = 1 then
+ begin
+ Self.InitGrid();
+ end;
+ end;
+ finally
+ frmDyeClothOutPut.Free;
+ end;
+end;
+
procedure TfrmDyeClothOutList.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
@@ -416,18 +493,18 @@ procedure TfrmDyeClothOutList.Tv1DataControllerSummaryFooterSummaryItemsSummary(
var
BaoID: string;
begin
- if TcxGridDBTableSummaryItem(Arguments.SummaryItem).Column = VC_BaoID then
- begin
- BaoID := vartostr(ASender.DataController.Values[Arguments.RecordIndex, VC_BaoID.Index]);
- if BaoID = '' then
- Exit;
- if BaoID = null then
- Exit;
- if lstCust.IndexOf(BaoID) = -1 then
- begin
- lstCust.Add(BaoID);
- end;
- end;
+// if TcxGridDBTableSummaryItem(Arguments.SummaryItem).Column = VC_BaoID then
+// begin
+// BaoID := vartostr(ASender.DataController.Values[Arguments.RecordIndex, VC_BaoID.Index]);
+// if BaoID = '' then
+// Exit;
+// if BaoID = null then
+// Exit;
+// if lstCust.IndexOf(BaoID) = -1 then
+// begin
+// lstCust.Add(BaoID);
+// end;
+// end;
end;
procedure TfrmDyeClothOutList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
@@ -554,7 +631,7 @@ end;
procedure TfrmDyeClothOutList.ToolButton4Click(Sender: TObject);
begin
- WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒֿ');
+ WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб');
end;
end.
diff --git a/F06染色成品仓库/U_DyeClothOutPut.dfm b/F06染色成品仓库/U_DyeClothOutPut.dfm
new file mode 100644
index 0000000..a256b8e
--- /dev/null
+++ b/F06染色成品仓库/U_DyeClothOutPut.dfm
@@ -0,0 +1,290 @@
+inherited frmDyeClothOutPut: TfrmDyeClothOutPut
+ Left = 65
+ Top = 113
+ Caption = #25104#21697#20986#24211#24405#20837
+ ClientHeight = 546
+ ClientWidth = 1406
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Position = poMainFormCenter
+ OnClose = FormClose
+ ExplicitWidth = 1422
+ ExplicitHeight = 585
+ PixelsPerInch = 96
+ TextHeight = 12
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1406
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 91
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_DyeClothStk.ImageList_new32
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 0
+ ExplicitTop = -6
+ 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 = 308
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object cxGrid2: TcxGrid [1]
+ Left = 0
+ Top = 38
+ Width = 1406
+ Height = 508
+ Align = alClient
+ TabOrder = 1
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource3
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Kind = skSum
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Column = v2Column6
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Format = #26465#25968#65306'0'
+ Kind = skCount
+ Column = v1Column6
+ end
+ item
+ Kind = skSum
+ Column = v1Column15
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'ssel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ HeaderAlignmentHorz = taCenter
+ Width = 41
+ end
+ object v1Column6: TcxGridDBColumn
+ Tag = 2
+ Caption = #20986#24211#21333#21495
+ DataBinding.FieldName = 'IOID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 83
+ end
+ object v1Column2: TcxGridDBColumn
+ Tag = 2
+ Caption = #20986#24211#26102#38388
+ DataBinding.FieldName = 'ioTime'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.SaveTime = False
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 93
+ end
+ object v1Column4: TcxGridDBColumn
+ Tag = 2
+ Caption = #20986#24211#31867#22411
+ DataBinding.FieldName = 'IOType'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxComboBoxProperties'
+ Properties.DropDownListStyle = lsFixedList
+ Properties.Items.Strings = (
+ #27491#24120#20837#24211
+ #29983#20135#36864#22238
+ #26399#21021#20837#24211)
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 81
+ end
+ object Tv1OrderNo: TcxGridDBColumn
+ Tag = 2
+ Caption = #29983#20135#35746#21333#21495
+ DataBinding.FieldName = 'IONo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Tag = 2
+ Caption = #25104#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 81
+ end
+ object v2Column1: TcxGridDBColumn
+ Tag = 2
+ Caption = #25104#21697#21697#21517
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object v1Column15: TcxGridDBColumn
+ Tag = 2
+ Caption = #21305#25968
+ DataBinding.FieldName = 'Piece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 65
+ end
+ object v2Column6: TcxGridDBColumn
+ Tag = 2
+ Caption = #31859#25968
+ DataBinding.FieldName = 'Meter'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 85
+ end
+ object v1Column13: TcxGridDBColumn
+ Tag = 2
+ Caption = #25104#21697#38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 78
+ end
+ end
+ object cxGrid2Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ Left = 121
+ Top = 80
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ end
+ inherited ImageList_new32: TImageList
+ Left = 320
+ Top = 280
+ end
+ object DataSource3: TDataSource
+ DataSet = CDS_Sub
+ Left = 592
+ Top = 144
+ end
+ object CDS_Sub: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 512
+ Top = 144
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ Parameters = <>
+ Left = 232
+ Top = 184
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 304
+ Top = 176
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 376
+ Top = 184
+ end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 464
+ Top = 104
+ end
+end
diff --git a/F06染色成品仓库/U_DyeClothOutPut.pas b/F06染色成品仓库/U_DyeClothOutPut.pas
new file mode 100644
index 0000000..0bbbbba
--- /dev/null
+++ b/F06染色成品仓库/U_DyeClothOutPut.pas
@@ -0,0 +1,446 @@
+unit U_DyeClothOutPut;
+
+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, cxSpinEdit,
+ StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
+ dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
+ U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, cxCheckBox;
+
+type
+ TfrmDyeClothOutPut = class(TfrmBaseInput)
+ 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;
+ cxGrid2: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ Tv1Column2: TcxGridDBColumn;
+ v1Column6: TcxGridDBColumn;
+ v1Column2: TcxGridDBColumn;
+ v1Column4: TcxGridDBColumn;
+ Tv1OrderNo: TcxGridDBColumn;
+ Tv1Column4: TcxGridDBColumn;
+ v2Column1: TcxGridDBColumn;
+ v2Column6: TcxGridDBColumn;
+ v1Column15: TcxGridDBColumn;
+ v1Column13: TcxGridDBColumn;
+ cxGrid2Level1: TcxGridLevel;
+ 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 Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ private
+ { Private declarations }
+ function SaveCKData(): Boolean;
+ public
+ { Public declarations }
+ FIOID, FStkName, FKHName, FWorkshop: string;
+ end;
+
+var
+ frmDyeClothOutPut: TfrmDyeClothOutPut;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_DyeClothStkSel;
+
+{$R *.dfm}
+
+procedure TfrmDyeClothOutPut.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmDyeClothOutPut.TBAddClick(Sender: TObject);
+begin
+ try
+ frmDyeClothStkSel := TfrmDyeClothStkSel.Create(Application);
+ with frmDyeClothStkSel do
+ begin
+ FstkName := Self.FstkName;
+ if ShowModal = 1 then
+ begin
+ frmDyeClothStkSel.CDS_Main.DisableControls;
+ with frmDyeClothStkSel.CDS_Main do
+ begin
+ First;
+ while frmDyeClothStkSel.CDS_Main.Locate('SSel', True, []) do
+ begin
+ with Self.CDS_Sub do
+ begin
+ Append;
+ FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
+ FieldByName('STKID').Value := frmDyeClothStkSel.CDS_Main.fieldbyname('BCIOID').Value;
+ FieldByName('IOType').Value := 'ӹ';
+ FieldByName('IONO').Value := frmDyeClothStkSel.CDS_Main.fieldbyname('OrderNo').Value;
+ FieldByName('C_Name').Value := frmDyeClothStkSel.CDS_Main.fieldbyname('C_Name').Value;
+
+ FieldByName('Piece').Value := frmDyeClothStkSel.CDS_Main.fieldbyname('StkPiece').Value;
+ FieldByName('Meter').Value := frmDyeClothStkSel.CDS_Main.fieldbyname('StkMeter').Value;
+ FieldByName('C_Width').Value := frmDyeClothStkSel.CDS_Main.fieldbyname('C_Width').Value;
+
+ end;
+ frmDyeClothStkSel.CDS_Main.Delete;
+ end;
+ end;
+ frmDyeClothStkSel.CDS_Main.EnableControls;
+ end;
+ end;
+ finally
+ frmDyeClothStkSel.Free;
+ end;
+
+end;
+
+function TfrmDyeClothOutPut.SaveCKData(): Boolean;
+var
+ MBCIOID, Maxno: 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 Dye_Cloth_IO where IOID=''' + Trim(CDS_Sub.fieldbyname('IOID').AsString) + '''');
+ Open;
+ end;
+ MBCIOID := Trim(ADOQueryTemp.fieldbyname('IOID').AsString);
+ if Trim(MBCIOID) = '' then
+ begin
+ if not GetLSNo(ADOQueryCmd, Maxno, 'C', 'Dye_Cloth_IO', 5, 1) then
+ raise Exception.Create('ȡƷʧܣ');
+ end
+ else
+ begin
+ Maxno := Trim(MBCIOID);
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Dye_Cloth_IO where IOID=''' + Trim(Maxno) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(MBCIOID) = '' then
+ begin
+ Append;
+ FieldByName('Filler').Value := Trim(DName);
+ FieldByName('FillTime').Value := SGetServerDate(ADOQueryTemp);
+ end
+ else
+ begin
+ Edit;
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
+ end;
+// RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'Dye_Cloth_IO', 2);
+
+ FieldByName('IOID').Value := Trim(Maxno);
+ FieldByName('IONo').Value := CDS_Sub.FieldByName('IONo').asString;
+ FieldByName('IOTime').Value := CDS_Sub.FieldByName('IOTime').asString;
+ FieldByName('IOType').Value := CDS_Sub.FieldByName('IOType').asString;
+ FieldByName('Meter').Value := CDS_Sub.FieldByName('Meter').asString;
+ FieldByName('Piece').Value := CDS_Sub.FieldByName('Piece').asString;
+
+ FieldByName('IOFlag').Value := '';
+ FieldByName('IOQtyFlag').Value := -1;
+ Post;
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('Update Dye_Cloth_Stock Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from Dye_Cloth_IO A where A.IONO=Dye_Cloth_Stock.OrderNo)');
+ sql.Add(',STKMeter=(select Sum(isnull(Meter,0)*IOQtyFlag) from Dye_Cloth_IO A where A.IONO=Dye_Cloth_Stock.OrderNo )');
+ sql.Add('where OrderNo=''' + Trim(CDS_Sub.fieldbyname('IONO').AsString) + '''');
+ ExecSQL;
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Dye_Cloth_Stock where OrderNo=''' + Trim(CDS_Sub.fieldbyname('IONO').AsString) + '''');
+ Open;
+ end;
+
+ if (ADOQueryCmd.FieldByName('StkPiece').AsString = '0') and (ADOQueryCmd.FieldByName('StkMeter').AsString = '0') then
+ begin
+ ADOQueryCmd.Edit;
+ ADOQueryCmd.FieldByName('StkExists').Value := 0;
+ ADOQueryCmd.Post;
+ end
+ else
+ begin
+ ADOQueryCmd.Edit;
+ ADOQueryCmd.FieldByName('StkExists').Value := 1;
+ ADOQueryCmd.Post;
+ end;
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select * from Dye_Cloth_Stock where OrderNo=''' + Trim(CDS_Sub.fieldbyname('IONO').AsString) + '''');
+ Open;
+ end;
+
+
+ if ADOQueryTemp.FieldByName('StkMeter').Value < 0 then
+ raise Exception.Create('ܱ棡');
+
+ if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
+ raise Exception.Create('ƥƥܱ棡');
+
+ Edit;
+ FieldByName('IOID').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 TfrmDyeClothOutPut.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmDyeClothOutPut.FormShow(Sender: TObject);
+var
+ fsj: string;
+begin
+ inherited;
+ ReadCxGrid(FSTKName + 'Ʒ¼', Tv1, 'Ʒ¼');
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* ');
+ sql.Add(' from V_Dye_Cloth_IO A');
+ sql.Add(' where IOID=''' + Trim(FIOID) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_Sub);
+ SInitCDSData(ADOQueryTemp, CDS_Sub);
+// fsj:='select name=CJName ,Code=null from CheJian';
+// SInitCxGridComboBoxBySql(ADOQueryTemp,v1CheJian,fsj,0,True,'');
+end;
+
+procedure TfrmDyeClothOutPut.TBDelClick(Sender: TObject);
+begin
+ if CDS_Sub.IsEmpty then
+ Exit;
+ if Trim(CDS_Sub.fieldbyname('IOID').AsString) <> '' then
+ begin
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ Exit;
+
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+// with ADOQueryCmd do
+// begin
+// Close;
+// Sql.Clear;
+// Sql.Add('exec P_BS_Cloth_Out_Del ');
+// Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
+// Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+// Open;
+// end;
+// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+
+ ADOQueryCmd.Connection.CommitTrans;
+ CDS_Sub.Delete;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ end;
+ end
+ else
+ CDS_Sub.Delete;
+end;
+
+procedure TfrmDyeClothOutPut.TBSaveClick(Sender: TObject);
+begin
+ if CDS_Sub.IsEmpty then
+ Exit;
+ if CDS_Sub.Locate('IOTime', null, []) = True then
+ begin
+ Application.MessageBox('ʱ䲻Ϊ!', 'ʾ', 0);
+ Exit;
+ end;
+ if CDS_Sub.Locate('IOType', null, []) = True then
+ begin
+ Application.MessageBox('ͲΪ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if CDS_Sub.Locate('Piece', null, []) = True then
+ begin
+ Application.MessageBox('ƥΪ!', 'ʾ', 0);
+ Exit;
+ end;
+ if CDS_Sub.Locate('Meter', null, []) = True then
+ begin
+ Application.MessageBox('Ϊ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if CDS_Sub.Locate('Meter', 0, []) = True then
+ begin
+ Application.MessageBox('Ϊ0!', 'ʾ', 0);
+ Exit;
+ end;
+ if CDS_Sub.Locate('Piece', 0, []) = True then
+ begin
+ Application.MessageBox('ƥΪ0!', 'ʾ', 0);
+ Exit;
+ end;
+
+ if CDS_Sub.Locate('IONO', null, []) = True then
+ begin
+ Application.MessageBox('ƻŲΪ!', 'ʾ', 0);
+ Exit;
+ end;
+ if SaveCKData() then
+ begin
+ Application.MessageBox('ɹ!', 'ʾ', 0);
+ //ModalResult:=1;
+ Exit;
+ end;
+end;
+
+procedure TfrmDyeClothOutPut.ToolButton1Click(Sender: TObject);
+begin
+ WriteCxGrid(fSTKName + 'Ʒ¼', Tv1, 'Ʒ¼');
+
+end;
+
+procedure TfrmDyeClothOutPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ if Trim(self.CDS_Sub.fieldbyname('IOType').AsString) = '˻' then
+ FCoType := 'ͻ'
+ else
+ FCoType := 'Ӧ';
+ if ShowModal = 1 then
+ begin
+ with Self.CDS_Sub do
+ begin
+ Edit;
+ FieldByName('ToCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
+ FieldByName('ToCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
+ end;
+ end;
+ end;
+ finally
+ frmCompanySel.Free;
+ end;
+
+end;
+
+procedure TfrmDyeClothOutPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+ FFSPID: string;
+begin
+// if CDS_Sub.IsEmpty then
+// Exit;
+// if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then
+// begin
+// with ADOQueryTemp do
+// begin
+// Close;
+// sql.Clear;
+// sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
+// Open;
+// end;
+// FFSPID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
+// if Trim(FFSPID) <> '' then
+// begin
+// v1CRType.Options.Editing := False;
+// end
+// else
+// begin
+// v1CRType.Options.Editing := True;
+// end;
+// end
+// else
+// begin
+// v1CRType.Options.Editing := True;
+// end;
+end;
+
+procedure TfrmDyeClothOutPut.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+// with ADOQueryTemp do
+// begin
+// close;
+// sql.Clear;
+// sql.Add('exec P_OrderCR');
+//
+//// ShowMessage(sql.Text);
+// execsql;
+// end;
+//
+// frmProductOrderListSel := TfrmProductOrderListSel.create(self);
+// with frmProductOrderListSel do
+// begin
+// FWorkshop := self.FWorkshop;
+// if ShowModal = 1 then
+// begin
+// Self.CDS_Sub.FieldByName('OrderNo').Value := Order_Main.fieldbyname('OrderNo').asstring;
+//// initGlide();
+// end;
+// free;
+// end;
+end;
+
+end.
+
diff --git a/F06染色成品仓库/U_DyeClothOutTotalList.dfm b/F06染色成品仓库/U_DyeClothOutTotalList.dfm
index 6af5115..174e713 100644
--- a/F06染色成品仓库/U_DyeClothOutTotalList.dfm
+++ b/F06染色成品仓库/U_DyeClothOutTotalList.dfm
@@ -3,11 +3,11 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
Top = 138
Caption = #25104#21697#20986#24211#27719#24635
ClientHeight = 600
- ClientWidth = 1544
+ ClientWidth = 1540
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
- ExplicitWidth = 1560
+ ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 12
@@ -15,7 +15,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
Tag = 1
Left = 0
Top = 0
- Width = 1544
+ Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
@@ -69,7 +69,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object Panel1: TPanel [1]
Left = 0
Top = 38
- Width = 1544
+ Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
@@ -77,6 +77,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
Color = clWhite
ParentBackground = False
TabOrder = 1
+ ExplicitTop = 44
object Label2: TLabel
Left = 70
Top = 36
@@ -238,7 +239,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object cxGrid1: TcxGrid [2]
Left = 0
Top = 105
- Width = 1544
+ Width = 1540
Height = 495
Align = alClient
BorderStyle = cxcbsNone
@@ -252,6 +253,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -322,6 +324,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@@ -332,6 +335,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column21: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
@@ -339,6 +343,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
@@ -346,6 +351,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -353,12 +359,14 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object Tv1Column13: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column18: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCId'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -366,6 +374,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column23: TcxGridDBColumn
Caption = #21367#25968
DataBinding.FieldName = 'SumPieceNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -373,6 +382,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -380,6 +390,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'SumTare'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -387,6 +398,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -394,6 +406,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'SumMeter'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -401,6 +414,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'SumYardage'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -408,11 +422,13 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
+ DataBinding.IsNullValueType = True
Options.Editing = False
end
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -420,6 +436,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -427,6 +444,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -434,6 +452,7 @@ inherited frmDyeClothOutTotalList: TfrmDyeClothOutTotalList
object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
diff --git a/F06染色成品仓库/U_DyeClothOutTotalList.pas b/F06染色成品仓库/U_DyeClothOutTotalList.pas
index 79c7c99..4a23852 100644
--- a/F06染色成品仓库/U_DyeClothOutTotalList.pas
+++ b/F06染色成品仓库/U_DyeClothOutTotalList.pas
@@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
- System.StrUtils;
+ System.StrUtils, dxScrollbarAnnotations;
type
TfrmDyeClothOutTotalList = class(TfrmBaseList)
diff --git a/F06染色成品仓库/U_DyeClothStkList.dfm b/F06染色成品仓库/U_DyeClothStkList.dfm
index 2dd6dc5..587b65d 100644
--- a/F06染色成品仓库/U_DyeClothStkList.dfm
+++ b/F06染色成品仓库/U_DyeClothStkList.dfm
@@ -47,6 +47,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
AutoSize = True
Caption = #30721#21333#25171#21360
ImageIndex = 21
+ Visible = False
OnClick = ToolButton2Click
end
object TBExport: TToolButton
@@ -85,6 +86,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
Color = clWhite
ParentBackground = False
TabOrder = 1
+ ExplicitTop = 36
object Label2: TLabel
Left = 70
Top = 36
@@ -106,22 +108,8 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
Font.Style = [fsBold]
ParentFont = False
end
- object TLabel
- Left = 374
- Top = 10
- Width = 39
- Height = 12
- Hint = '0'
- Caption = #21512#21516#21495
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label7: TLabel
- Left = 546
+ Left = 388
Top = 10
Width = 26
Height = 12
@@ -135,7 +123,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
ParentFont = False
end
object Label10: TLabel
- Left = 703
+ Left = 545
Top = 36
Width = 39
Height = 12
@@ -163,7 +151,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
ParentFont = False
end
object lbl1: TLabel
- Left = 716
+ Left = 558
Top = 10
Width = 26
Height = 12
@@ -176,20 +164,6 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
Font.Style = [fsBold]
ParentFont = False
end
- object Label20: TLabel
- Left = 546
- Top = 36
- Width = 26
- Height = 12
- Hint = '0'
- Caption = #33457#22411
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object Label23: TLabel
Left = 195
Top = 36
@@ -204,20 +178,6 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
Font.Style = [fsBold]
ParentFont = False
end
- object Label4: TLabel
- Left = 868
- Top = 10
- Width = 26
- Height = 12
- Hint = '0'
- Caption = #23458#25143
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
object BegDate: TDateTimePicker
Left = 88
Top = 6
@@ -282,24 +242,14 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
TabOrder = 5
OnKeyPress = orderNoKeyPress
end
- object conNO: TEdit
- Tag = 2
- Left = 419
- Top = 6
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 6
- OnKeyPress = orderNoKeyPress
- end
object STKID: TEdit
Tag = 2
- Left = 748
+ Left = 590
Top = 32
Width = 100
Height = 20
Hint = '1'
- TabOrder = 7
+ TabOrder = 6
OnKeyPress = orderNoKeyPress
end
object C_Name: TEdit
@@ -309,12 +259,22 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
Width = 100
Height = 20
Hint = '0'
- TabOrder = 8
+ TabOrder = 7
OnKeyPress = orderNoKeyPress
end
object C_Color: TEdit
Tag = 2
- Left = 578
+ Left = 420
+ Top = 6
+ Width = 100
+ Height = 20
+ Hint = '0'
+ TabOrder = 8
+ OnKeyPress = orderNoKeyPress
+ end
+ object PCId: TEdit
+ Tag = 2
+ Left = 590
Top = 6
Width = 100
Height = 20
@@ -322,26 +282,6 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
TabOrder = 9
OnKeyPress = orderNoKeyPress
end
- object PCId: TEdit
- Tag = 2
- Left = 748
- Top = 6
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 10
- OnKeyPress = orderNoKeyPress
- end
- object C_Pattern: TEdit
- Tag = 2
- Left = 578
- Top = 32
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 11
- OnKeyPress = orderNoKeyPress
- end
object C_Code: TEdit
Tag = 2
Left = 253
@@ -349,17 +289,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
Width = 100
Height = 20
Hint = '0'
- TabOrder = 12
- OnKeyPress = orderNoKeyPress
- end
- object CustName: TEdit
- Tag = 2
- Left = 900
- Top = 5
- Width = 100
- Height = 20
- Hint = '0'
- TabOrder = 13
+ TabOrder = 10
OnKeyPress = orderNoKeyPress
end
end
@@ -372,6 +302,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
AutoSize = True
BorderStyle = bsSingle
TabOrder = 2
+ ExplicitTop = 99
DesignSize = (
1536
23)
@@ -465,371 +396,400 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
'10000')
end
end
- object cxGrid1: TcxGrid [3]
+ object cxPageControl1: TcxPageControl [3]
Left = 0
Top = 132
Width = 1540
Height = 468
Align = alClient
- BorderStyle = cxcbsNone
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- PopupMenu = PM_1
TabOrder = 3
- 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 = <>
- DataController.Summary.FooterSummaryItems = <
- item
- Kind = skSum
- Column = v1Column8
+ Properties.ActivePage = cxTabSheet1
+ Properties.CustomButtons.Buttons = <>
+ ExplicitTop = 133
+ ClientRectBottom = 466
+ ClientRectLeft = 2
+ ClientRectRight = 1538
+ ClientRectTop = 22
+ object cxTabSheet1: TcxTabSheet
+ Caption = #27719#24635
+ ImageIndex = 0
+ object cxGrid1: TcxGrid
+ Left = 0
+ Top = 0
+ Width = 1536
+ Height = 444
+ Align = alClient
+ BorderStyle = cxcbsNone
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ PopupMenu = PM_1
+ TabOrder = 0
+ 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 = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ Column = v1Column10
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Format = #26816#39564#31995#25968'=#.##'
+ Kind = skAverage
+ end
+ item
+ Format = #25442#31639#31995#25968'=#.##'
+ Kind = skAverage
+ end
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ Styles.IncSearch = DataLink_DyeClothStk.SHuangSe
+ Styles.Footer = DataLink_DyeClothStk.Default
+ Styles.Header = DataLink_DyeClothStk.Default
+ Styles.Inactive = DataLink_DyeClothStk.SHuangSe
+ Styles.Selection = DataLink_DyeClothStk.SHuangSe
+ object v1Column22: TcxGridDBColumn
+ 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 v1Column1: TcxGridDBColumn
+ Caption = #35745#21010#21333#21495
+ DataBinding.FieldName = 'IONO'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 98
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #20135#21697#32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 89
+ end
+ object v1Column13: TcxGridDBColumn
+ Caption = #20135#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 94
+ end
+ object v1Column4: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 89
+ end
+ object v1Column10: TcxGridDBColumn
+ Caption = #24211#23384#31859#25968
+ DataBinding.FieldName = 'StkMeter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 84
+ end
+ object Tv1Column10: TcxGridDBColumn
+ Caption = #24211#23384#21305#25968
+ DataBinding.FieldName = 'StkPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object v1Column12: TcxGridDBColumn
+ Caption = #21697#36136
+ DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v1Column3: TcxGridDBColumn
+ Caption = #38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v1Column5: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
end
- item
- Kind = skSum
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
end
- item
- Kind = skCount
- Column = v1Column6
- end
- item
- Kind = skSum
- Column = v1Column10
- end
- item
- Kind = skSum
- end
- item
- Kind = skSum
- end
- item
- Kind = skSum
- Column = v1Column27
- end
- item
- Kind = skSum
- Column = v1Column28
- end
- item
- Kind = skSum
- end
- item
- Format = #26816#39564#31995#25968'=#.##'
- Kind = skAverage
- end
- item
- Format = #25442#31639#31995#25968'=#.##'
- Kind = skAverage
- end
- item
- Kind = skCount
- Column = v1Column23
- end
- item
- Kind = skSum
- end
- item
- Kind = skSum
- end
- item
- Kind = skSum
- end>
- DataController.Summary.SummaryGroups = <>
- OptionsCustomize.ColumnFiltering = False
- OptionsView.Footer = True
- OptionsView.GroupByBox = False
- OptionsView.IndicatorWidth = 30
- Styles.IncSearch = DataLink_DyeClothStk.SHuangSe
- Styles.Footer = DataLink_DyeClothStk.Default
- Styles.Header = DataLink_DyeClothStk.Default
- Styles.Inactive = DataLink_DyeClothStk.SHuangSe
- Styles.Selection = DataLink_DyeClothStk.SHuangSe
- object v1Column22: TcxGridDBColumn
- 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 v1Column21: TcxGridDBColumn
- Caption = #20837#24211#26102#38388
- DataBinding.FieldName = 'IOTime'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 103
- end
- object v1Column32: TcxGridDBColumn
- Caption = #21512#21516#21495
- DataBinding.FieldName = 'conNO'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 76
- end
- object v1Column1: TcxGridDBColumn
- Caption = #35745#21010#21333#21495
- DataBinding.FieldName = 'OrderNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 78
- end
- object Tv1Column4: TcxGridDBColumn
- Caption = #20135#21697#32534#21495
- DataBinding.FieldName = 'C_Code'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 74
- end
- object v1Column13: TcxGridDBColumn
- Caption = #20135#21697#21517#31216
- DataBinding.FieldName = 'C_Name'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column4: TcxGridDBColumn
- Caption = #39068#33394
- DataBinding.FieldName = 'C_Color'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column18: TcxGridDBColumn
- Caption = #21345#21495
- DataBinding.FieldName = 'PCId'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column23: TcxGridDBColumn
- Caption = #21367#21495
- DataBinding.FieldName = 'PieceNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column8: TcxGridDBColumn
- Caption = #27611#37325
- DataBinding.FieldName = 'GrossWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column27: TcxGridDBColumn
- Caption = #30382#37325
- DataBinding.FieldName = 'Tare'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column28: TcxGridDBColumn
- Caption = #20928#37325
- DataBinding.FieldName = 'NetWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column10: TcxGridDBColumn
- Caption = #31859#25968
- DataBinding.FieldName = 'Meter'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column9: TcxGridDBColumn
- Caption = #20837#24211#26102#38388
- DataBinding.FieldName = 'IOTime'
- DataBinding.IsNullValueType = True
- Options.Editing = False
- end
- object Tv1Column11: TcxGridDBColumn
- Caption = #20837#24211#31867#22411
- DataBinding.FieldName = 'IOType'
- DataBinding.IsNullValueType = True
- Options.Editing = False
- end
- object Tv1Column12: TcxGridDBColumn
- Caption = #24211#20301
- DataBinding.FieldName = 'IOPosition'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 71
- end
- object Tv1Column10: TcxGridDBColumn
- Caption = #30721#25968
- DataBinding.FieldName = 'Yardage'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column12: TcxGridDBColumn
- Caption = #21697#36136
- DataBinding.FieldName = 'Grade'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column42: TcxGridDBColumn
- Caption = #24635#35760#24405#25968
- DataBinding.FieldName = 'TotalCount'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column6: TcxGridDBColumn
- Caption = #21367#26465#30721
- DataBinding.FieldName = 'CIID'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column7: TcxGridDBColumn
- Caption = #23458#25143#33457#22411
- DataBinding.FieldName = 'C_CustPattern'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column3: TcxGridDBColumn
- Caption = #38376#24133
- DataBinding.FieldName = 'C_Width'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column5: TcxGridDBColumn
- Caption = #20811#37325
- DataBinding.FieldName = 'C_GramWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column34: TcxGridDBColumn
- Caption = #32568#26465#30721
- DataBinding.FieldName = 'BCIOID'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column40: TcxGridDBColumn
- Caption = #33457#22411
- DataBinding.FieldName = 'C_Pattern'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column46: TcxGridDBColumn
- Caption = #26816#39564#26426#21488
- DataBinding.FieldName = 'CIMachNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #21253#21495
- DataBinding.FieldName = 'BAONO'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object VC_BaoID: TcxGridDBColumn
- Caption = #21253#26465#30721
- DataBinding.FieldName = 'PacketId'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- end
- object Tv1Column8: TcxGridDBColumn
- Caption = #23458#25143#21333#21495
- DataBinding.FieldName = 'BuyConNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column13: TcxGridDBColumn
- Caption = #23458#25143
- DataBinding.FieldName = 'custname'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 69
- end
- object Tv1Column14: TcxGridDBColumn
- Caption = #32568#21495
- DataBinding.FieldName = 'batchno2'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 72
- end
- object Tv1Column3: TcxGridDBColumn
- Caption = #33394#21495
- DataBinding.FieldName = 'C_ColorNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column6: TcxGridDBColumn
- Caption = #23436#25104#24230
- DataBinding.FieldName = 'ClothDegree'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column1: TcxGridDBColumn
- Caption = #27454#21495
- DataBinding.FieldName = 'C_StyleNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column2: TcxGridDBColumn
- Caption = #33521#25991#39068#33394
- DataBinding.FieldName = 'C_EColor'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
end
end
- object cxGrid1Level1: TcxGridLevel
- GridView = Tv1
+ object cxTabSheet2: TcxTabSheet
+ Caption = #26126#32454
+ ImageIndex = 1
+ object cxGrid2: TcxGrid
+ Left = 0
+ Top = 0
+ Width = 1536
+ Height = 444
+ Align = alClient
+ BorderStyle = cxcbsNone
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentFont = False
+ PopupMenu = PM_1
+ TabOrder = 0
+ ExplicitLeft = -32
+ ExplicitTop = -3
+ object Tv2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_2
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skCount
+ Column = cxGridDBColumn12
+ end
+ item
+ Kind = skSum
+ Column = cxGridDBColumn8
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Format = #26816#39564#31995#25968'=#.##'
+ Kind = skAverage
+ end
+ item
+ Format = #25442#31639#31995#25968'=#.##'
+ Kind = skAverage
+ end
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ Styles.IncSearch = DataLink_DyeClothStk.SHuangSe
+ Styles.Footer = DataLink_DyeClothStk.Default
+ Styles.Header = DataLink_DyeClothStk.Default
+ Styles.Inactive = DataLink_DyeClothStk.SHuangSe
+ Styles.Selection = DataLink_DyeClothStk.SHuangSe
+ object cxGridDBColumn1: TcxGridDBColumn
+ 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 cxGridDBColumn2: TcxGridDBColumn
+ Caption = #20986#20837#24211#26102#38388
+ DataBinding.FieldName = 'IOTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 103
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #35745#21010#21333#21495
+ DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 98
+ end
+ object cxGridDBColumn4: TcxGridDBColumn
+ Caption = #20135#21697#32534#21495
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 89
+ end
+ object cxGridDBColumn5: TcxGridDBColumn
+ Caption = #20135#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 94
+ end
+ object Tv2Column1: TcxGridDBColumn
+ Caption = #20986#20837#24211
+ DataBinding.FieldName = 'IOFlag'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object cxGridDBColumn6: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 89
+ end
+ object cxGridDBColumn7: TcxGridDBColumn
+ Caption = #21345#21495
+ DataBinding.FieldName = 'PCId'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 95
+ end
+ object cxGridDBColumn8: TcxGridDBColumn
+ Caption = #31859#25968
+ DataBinding.FieldName = 'Meter'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn9: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'Piece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn10: TcxGridDBColumn
+ Caption = #21697#36136
+ DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn12: TcxGridDBColumn
+ Caption = #21367#26465#30721
+ DataBinding.FieldName = 'CIID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn13: TcxGridDBColumn
+ Caption = #38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn14: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = Tv2
+ end
+ end
end
end
inherited ADOQueryBaseCmd: TADOQuery
@@ -872,8 +832,8 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
- Left = 728
- Top = 288
+ Left = 496
+ Top = 264
end
object CDS_1: TClientDataSet
Aggregates = <>
@@ -894,4 +854,21 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
OnClick = PM11Click
end
end
+ object GPM2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 736
+ Top = 280
+ end
+ object CDS_2: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 378
+ Top = 298
+ end
+ object DS_2: TDataSource
+ DataSet = CDS_2
+ Left = 434
+ Top = 298
+ end
end
diff --git a/F06染色成品仓库/U_DyeClothStkList.pas b/F06染色成品仓库/U_DyeClothStkList.pas
index 3810733..7910951 100644
--- a/F06染色成品仓库/U_DyeClothStkList.pas
+++ b/F06染色成品仓库/U_DyeClothStkList.pas
@@ -42,64 +42,57 @@ type
BTLP: TButton;
BTNP: TButton;
TCBNOR: TComboBox;
- cxGrid1: TcxGrid;
- Tv1: TcxGridDBTableView;
- v1Column22: TcxGridDBColumn;
- v1Column21: TcxGridDBColumn;
- v1Column32: TcxGridDBColumn;
- v1Column1: TcxGridDBColumn;
- Tv1Column4: TcxGridDBColumn;
- v1Column13: TcxGridDBColumn;
- v1Column4: TcxGridDBColumn;
- v1Column18: TcxGridDBColumn;
- v1Column23: TcxGridDBColumn;
- v1Column8: TcxGridDBColumn;
- v1Column27: TcxGridDBColumn;
- v1Column28: TcxGridDBColumn;
- v1Column10: TcxGridDBColumn;
- Tv1Column10: TcxGridDBColumn;
- v1Column12: TcxGridDBColumn;
- v1Column42: TcxGridDBColumn;
- v1Column6: TcxGridDBColumn;
- Tv1Column7: TcxGridDBColumn;
- v1Column3: TcxGridDBColumn;
- v1Column5: TcxGridDBColumn;
- v1Column34: TcxGridDBColumn;
- v1Column40: TcxGridDBColumn;
- v1Column46: TcxGridDBColumn;
- Tv1Column5: TcxGridDBColumn;
- Tv1Column8: TcxGridDBColumn;
- Tv1Column3: TcxGridDBColumn;
- Tv1Column6: TcxGridDBColumn;
- Tv1Column1: TcxGridDBColumn;
- Tv1Column2: TcxGridDBColumn;
- cxGrid1Level1: TcxGridLevel;
Label3: TLabel;
Label7: TLabel;
Label10: TLabel;
Label5: TLabel;
lbl1: TLabel;
- Label20: TLabel;
Label23: TLabel;
OrderNo: TEdit;
- conNO: TEdit;
STKID: TEdit;
C_Name: TEdit;
C_Color: TEdit;
PCId: TEdit;
- C_Pattern: TEdit;
C_Code: TEdit;
- VC_BaoID: TcxGridDBColumn;
- Tv1Column9: TcxGridDBColumn;
- Tv1Column11: TcxGridDBColumn;
- Tv1Column12: TcxGridDBColumn;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
- Label4: TLabel;
- CustName: TEdit;
- Tv1Column13: TcxGridDBColumn;
- Tv1Column14: TcxGridDBColumn;
+ cxPageControl1: TcxPageControl;
+ cxTabSheet1: TcxTabSheet;
+ cxTabSheet2: TcxTabSheet;
+ cxGrid1: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ v1Column22: TcxGridDBColumn;
+ v1Column1: TcxGridDBColumn;
+ Tv1Column4: TcxGridDBColumn;
+ v1Column13: TcxGridDBColumn;
+ v1Column4: TcxGridDBColumn;
+ v1Column10: TcxGridDBColumn;
+ Tv1Column10: TcxGridDBColumn;
+ v1Column12: TcxGridDBColumn;
+ v1Column3: TcxGridDBColumn;
+ v1Column5: TcxGridDBColumn;
+ cxGrid1Level1: TcxGridLevel;
+ cxGrid2: TcxGrid;
+ Tv2: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridDBColumn2: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ cxGridDBColumn4: TcxGridDBColumn;
+ cxGridDBColumn5: TcxGridDBColumn;
+ cxGridDBColumn6: TcxGridDBColumn;
+ cxGridDBColumn7: TcxGridDBColumn;
+ cxGridDBColumn8: TcxGridDBColumn;
+ cxGridDBColumn9: TcxGridDBColumn;
+ cxGridDBColumn10: TcxGridDBColumn;
+ cxGridDBColumn12: TcxGridDBColumn;
+ cxGridDBColumn13: TcxGridDBColumn;
+ cxGridDBColumn14: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ GPM2: TcxGridPopupMenu;
+ CDS_2: TClientDataSet;
+ DS_2: TDataSource;
+ Tv2Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@@ -113,19 +106,22 @@ type
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
- procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
- procedure Tv1DataControllerSummaryFooterSummaryItemsSummary(ASender: TcxDataSummaryItems; Arguments: TcxSummaryEventArguments; var OutArguments: TcxSummaryEventOutArguments);
- procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
+ procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
+ procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+ APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+ ANewItemRecordFocusingChanged: Boolean);
+
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
+ procedure InitSubGrid();
{ Private declarations }
public
canshu1, FWorkshop: string;
@@ -199,6 +195,7 @@ begin
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
+// InitSubGrid();
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
@@ -206,6 +203,31 @@ begin
end;
+
+procedure TfrmDyeClothStkList.InitSubGrid();
+begin
+
+ try
+ CDS_2.DisableControls;
+
+ with ADOQueryTemp do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* from V_Dye_Cloth_IO A where A.IONo = ' + QuotedStr(Trim(CDS_1.FieldByName('IONO').AsString) ) );
+// showmessage(sql.text);
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_2);
+ SInitCDSData(ADOQueryTemp, CDS_2);
+
+ finally
+ CDS_2.EnableControls;
+ end;
+
+end;
+
procedure TfrmDyeClothStkList.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
@@ -226,12 +248,7 @@ begin
end;
end;
-procedure TfrmDyeClothStkList.cxPageControl1Change(Sender: TObject);
-begin
- CurrentPage := 1;
- SetStatus();
- InitGrid();
-end;
+
procedure TfrmDyeClothStkList.TBCloseClick(Sender: TObject);
begin
@@ -243,10 +260,12 @@ procedure TfrmDyeClothStkList.FormShow(Sender: TObject);
begin
inherited;
- ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒֿ');
+ ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб');
+ ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒб');
CurrentPage := 1;
RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1);
+ InitGrid();
SetStatus();
v1Column4.Visible := false;
@@ -279,22 +298,13 @@ begin
lstCust.Clear;
end;
-procedure TfrmDyeClothStkList.Tv1DataControllerSummaryFooterSummaryItemsSummary(ASender: TcxDataSummaryItems; Arguments: TcxSummaryEventArguments; var OutArguments: TcxSummaryEventOutArguments);
-var
- BaoID: string;
+
+
+procedure TfrmDyeClothStkList.Tv1FocusedRecordChanged(
+ Sender: TcxCustomGridTableView; APrevFocusedRecord,
+ AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
- if TcxGridDBTableSummaryItem(Arguments.SummaryItem).Column = VC_BaoID then
- begin
- BaoID := vartostr(ASender.DataController.Values[Arguments.RecordIndex, VC_BaoID.Index]);
- if BaoID = '' then
- Exit;
- if BaoID = null then
- Exit;
- if lstCust.IndexOf(BaoID) = -1 then
- begin
- lstCust.Add(BaoID);
- end;
- end;
+ InitSubGrid();
end;
procedure TfrmDyeClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
@@ -388,7 +398,8 @@ end;
procedure TfrmDyeClothStkList.ToolButton4Click(Sender: TObject);
begin
- WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒֿ');
+ WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб');
+ WriteCxGrid(trim(self.Caption) + 'Tv2', Tv1, 'Ʒб');
end;
end.
diff --git a/F06染色成品仓库/U_DyeClothStkSel.dfm b/F06染色成品仓库/U_DyeClothStkSel.dfm
new file mode 100644
index 0000000..cb93403
--- /dev/null
+++ b/F06染色成品仓库/U_DyeClothStkSel.dfm
@@ -0,0 +1,319 @@
+inherited frmDyeClothStkSel: TfrmDyeClothStkSel
+ Left = 105
+ Top = 131
+ Caption = #24211#23384#36873#25321#21015#34920
+ ClientHeight = 550
+ ClientWidth = 1165
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Position = poMainFormCenter
+ OnClose = FormClose
+ ExplicitWidth = 1181
+ ExplicitHeight = 589
+ PixelsPerInch = 96
+ TextHeight = 12
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1165
+ Height = 38
+ AutoSize = True
+ ButtonHeight = 38
+ ButtonWidth = 91
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = []
+ Images = DataLink_DyeClothStk.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
+ Visible = False
+ OnClick = TBFindClick
+ end
+ object ToolButton1: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #30830#23450
+ ImageIndex = 12
+ OnClick = ToolButton1Click
+ end
+ object ToolButton2: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton2Click
+ end
+ object TBClose: TToolButton
+ Left = 308
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [1]
+ Left = 0
+ Top = 38
+ Width = 1165
+ Height = 36
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clWhite
+ ParentBackground = False
+ TabOrder = 1
+ object Label3: TLabel
+ Left = 162
+ Top = 11
+ Width = 24
+ Height = 12
+ Caption = #21697#21517
+ end
+ object Label5: TLabel
+ Left = 23
+ Top = 10
+ Width = 48
+ Height = 12
+ Caption = #35745#21010#21333#21495
+ end
+ object C_name: TEdit
+ Tag = 2
+ Left = 192
+ Top = 7
+ Width = 100
+ Height = 20
+ TabOrder = 0
+ OnChange = TBFindClick
+ OnKeyPress = C_nameKeyPress
+ end
+ object OrderNo: TEdit
+ Tag = 2
+ Left = 71
+ Top = 6
+ Width = 78
+ Height = 20
+ TabOrder = 1
+ OnKeyPress = OrderNoKeyPress
+ end
+ end
+ object cxGrid2: TcxGrid [2]
+ Left = 0
+ Top = 74
+ Width = 1165
+ Height = 476
+ Align = alClient
+ PopupMenu = PopupMenu1
+ TabOrder = 2
+ ExplicitTop = 71
+ object Tv1: TcxGridDBTableView
+ OnDblClick = Tv1DblClick
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource1
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Kind = skSum
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Column = v2Column6
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Format = #26465#25968#65306'0'
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ Column = v1Column15
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'ssel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ HeaderAlignmentHorz = taCenter
+ Width = 41
+ end
+ object Tv1OrderNo: TcxGridDBColumn
+ Caption = #29983#20135#35746#21333#21495
+ DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #25104#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 81
+ end
+ object v2Column1: TcxGridDBColumn
+ Tag = 2
+ Caption = #25104#21697#21697#21517
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 99
+ end
+ object v2Column6: TcxGridDBColumn
+ Tag = 2
+ Caption = #25968#37327
+ DataBinding.FieldName = 'StkMeter'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 85
+ end
+ object v1Column15: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'StkPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 65
+ end
+ object v1Column13: TcxGridDBColumn
+ Caption = #25104#21697#38376#24133
+ DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 79
+ end
+ object Tv1Grade: TcxGridDBColumn
+ Caption = #31561#32423
+ DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGrid2Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ Left = 225
+ Top = 137
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ Parameters = <>
+ Left = 544
+ Top = 136
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 672
+ Top = 160
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_DyeClothStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 464
+ Top = 152
+ end
+ object DataSource1: TDataSource
+ DataSet = CDS_Main
+ Left = 552
+ Top = 232
+ end
+ object cxGridPopupMenu1: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 520
+ Top = 232
+ end
+ object CDS_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 584
+ Top = 232
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 488
+ Top = 232
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 456
+ Top = 232
+ object N1: TMenuItem
+ Caption = #20840#36873
+ OnClick = N1Click
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ OnClick = N2Click
+ end
+ end
+end
diff --git a/F06染色成品仓库/U_DyeClothStkSel.pas b/F06染色成品仓库/U_DyeClothStkSel.pas
new file mode 100644
index 0000000..dfbbcc5
--- /dev/null
+++ b/F06染色成品仓库/U_DyeClothStkSel.pas
@@ -0,0 +1,227 @@
+unit U_DyeClothStkSel;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
+ cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
+ cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
+ ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
+ cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
+ RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
+ cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
+ cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList,
+ Vcl.ImgList, dxScrollbarAnnotations;
+
+type
+ TfrmDyeClothStkSel = class(TfrmBaseHelp)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBFind: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DataSource1: TDataSource;
+ cxGridPopupMenu1: TcxGridPopupMenu;
+ CDS_Main: TClientDataSet;
+ CDS_HZ: TClientDataSet;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ ToolButton1: TToolButton;
+ Label3: TLabel;
+ C_name: TEdit;
+ Label5: TLabel;
+ OrderNo: TEdit;
+ ToolButton2: TToolButton;
+ cxGrid2: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ Tv1Column2: TcxGridDBColumn;
+ Tv1OrderNo: TcxGridDBColumn;
+ Tv1Column4: TcxGridDBColumn;
+ v2Column1: TcxGridDBColumn;
+ v2Column6: TcxGridDBColumn;
+ v1Column15: TcxGridDBColumn;
+ v1Column13: TcxGridDBColumn;
+ cxGrid2Level1: TcxGridLevel;
+ Tv1Grade: TcxGridDBColumn;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure ConNoMChange(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBFindClick(Sender: TObject);
+ procedure MPRTCodeNameChange(Sender: TObject);
+ procedure N1Click(Sender: TObject);
+ procedure N2Click(Sender: TObject);
+ procedure SXBatchNOChange(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure Tv1DblClick(Sender: TObject);
+ procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+ procedure C_nameKeyPress(Sender: TObject; var Key: Char);
+ private
+ procedure InitGrid();
+ { Private declarations }
+ public
+ FstkName: string;
+ { Public declarations }
+ end;
+
+var
+ frmDyeClothStkSel: TfrmDyeClothStkSel;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmDyeClothStkSel.FormDestroy(Sender: TObject);
+begin
+ inherited;
+ frmDyeClothStkSel := nil;
+end;
+
+procedure TfrmDyeClothStkSel.C_nameKeyPress(Sender: TObject; var Key: Char);
+begin
+ if Key = #13 then
+ begin
+ TBFind.Click;
+ end;
+
+end;
+
+procedure TfrmDyeClothStkSel.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmDyeClothStkSel.InitGrid();
+begin
+ try
+ ADOQueryMain.DisableControls;
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* ');
+ sql.Add(' from Dye_Cloth_Stock A ');
+ SQL.Add(' where A.StkExists=1 ');
+ Open;
+ end;
+ SCreateCDS(ADOQueryMain, CDS_Main);
+ SInitCDSData(ADOQueryMain, CDS_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ end;
+end;
+
+procedure TfrmDyeClothStkSel.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmDyeClothStkSel.ConNoMChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ end;
+end;
+
+procedure TfrmDyeClothStkSel.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmDyeClothStkSel.FormShow(Sender: TObject);
+begin
+ inherited;
+ ReadCxGrid(trim(self.Caption), Tv1, 'бѡ');
+ InitGrid();
+end;
+
+procedure TfrmDyeClothStkSel.TBFindClick(Sender: TObject);
+begin
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, CDS_Main);
+ SInitCDSData(ADOQueryMain, CDS_Main);
+ end;
+end;
+
+procedure TfrmDyeClothStkSel.MPRTCodeNameChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+procedure TfrmDyeClothStkSel.N1Click(Sender: TObject);
+begin
+ SelOKNo(CDS_Main, True);
+end;
+
+procedure TfrmDyeClothStkSel.N2Click(Sender: TObject);
+begin
+ SelOKNo(CDS_Main, False);
+end;
+
+procedure TfrmDyeClothStkSel.OrderNoKeyPress(Sender: TObject; var Key: Char);
+begin
+
+ if Key = #13 then
+ begin
+ TBFind.Click;
+ end;
+
+end;
+
+procedure TfrmDyeClothStkSel.SXBatchNOChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+
+procedure TfrmDyeClothStkSel.ToolButton1Click(Sender: TObject);
+begin
+ if CDS_Main.IsEmpty then
+ Exit;
+ if CDS_Main.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+ ModalResult := 1;
+end;
+
+procedure TfrmDyeClothStkSel.ToolButton2Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption), Tv1, 'бѡ');
+end;
+
+procedure TfrmDyeClothStkSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+ ModalResult := 1;
+end;
+
+procedure TfrmDyeClothStkSel.Tv1DblClick(Sender: TObject);
+begin
+ CDS_Main.Edit;
+ CDS_Main.FieldByName('ssel').Value := True;
+ CDS_Main.Post;
+ ModalResult := 1;
+end;
+
+end.
+
diff --git a/F06染色成品仓库/U_DyeClothStkTotalList.dfm b/F06染色成品仓库/U_DyeClothStkTotalList.dfm
index 66a36da..a3b538b 100644
--- a/F06染色成品仓库/U_DyeClothStkTotalList.dfm
+++ b/F06染色成品仓库/U_DyeClothStkTotalList.dfm
@@ -7,7 +7,6 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
- ExplicitLeft = -441
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
@@ -253,6 +252,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -323,6 +323,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@@ -333,6 +334,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column21: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
@@ -340,6 +342,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
@@ -347,6 +350,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -354,12 +358,14 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object Tv1Column13: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column18: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCId'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -367,6 +373,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column23: TcxGridDBColumn
Caption = #21367#25968
DataBinding.FieldName = 'SumPieceNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -374,6 +381,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -381,6 +389,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'SumTare'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -388,6 +397,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -395,6 +405,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'SumMeter'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -402,6 +413,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'SumYardage'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -409,11 +421,13 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
+ DataBinding.IsNullValueType = True
Options.Editing = False
end
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -421,6 +435,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -428,6 +443,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -435,6 +451,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -442,6 +459,7 @@ inherited frmDyeClothStkTotalList: TfrmDyeClothStkTotalList
object Tv1Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'batchno2'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
diff --git a/F06染色成品仓库/U_DyeClothStkTotalList.pas b/F06染色成品仓库/U_DyeClothStkTotalList.pas
index 57ee451..bd33132 100644
--- a/F06染色成品仓库/U_DyeClothStkTotalList.pas
+++ b/F06染色成品仓库/U_DyeClothStkTotalList.pas
@@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
- System.StrUtils;
+ System.StrUtils, dxScrollbarAnnotations;
type
TfrmDyeClothStkTotalList = class(TfrmBaseList)
diff --git a/F06染色成品仓库/U_GetDllForm.pas b/F06染色成品仓库/U_GetDllForm.pas
index d9c9c54..deb62aa 100644
--- a/F06染色成品仓库/U_GetDllForm.pas
+++ b/F06染色成品仓库/U_GetDllForm.pas
@@ -72,10 +72,10 @@ begin
if trim(DataBaseStr) = '' then
begin
- server := '101.132.143.144,7781';
- dtbase := 'zhonghuayrData';
- user := 'rtsa';
- pswd := 'rightsoft@5740';
+ server := '112.14.44.145';
+ dtbase := 'yilanbuyidata';
+ user := 'yilansa';
+ pswd := 'yilanbuyi@123';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '';
@@ -199,7 +199,7 @@ begin
end;
end;
- 321: //Ʒб
+ 321: //Ʒ
begin
with TfrmDyeClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
@@ -223,7 +223,7 @@ begin
end;
end;
- 411: //Ʒб
+ 411: //Ʒ
begin
with TfrmDyeClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
diff --git a/F06染色成品仓库/testDll.res b/F06染色成品仓库/testDll.res
index 2465ca0..e116c48 100644
Binary files a/F06染色成品仓库/testDll.res and b/F06染色成品仓库/testDll.res differ