diff --git a/A00通用窗体/U_LabelMapSet.dfm b/A00通用窗体/U_LabelMapSet.dfm index 40ab981..d5e4b02 100644 --- a/A00通用窗体/U_LabelMapSet.dfm +++ b/A00通用窗体/U_LabelMapSet.dfm @@ -194,6 +194,7 @@ object frmLabelMapSet: TfrmLabelMapSet BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 + ExplicitTop = 32 object Label1: TLabel Left = 51 Top = 20 diff --git a/A00通用窗体/U_ProductInfoSel.dfm b/A00通用窗体/U_ProductInfoSel.dfm index 934520c..504f13e 100644 --- a/A00通用窗体/U_ProductInfoSel.dfm +++ b/A00通用窗体/U_ProductInfoSel.dfm @@ -77,14 +77,14 @@ inherited frmProductInfoSel: TfrmProductInfoSel Height = 12 Caption = #21517#31216 end - object CoName: TEdit + object P_Name: TEdit Tag = 2 Left = 53 Top = 12 Width = 169 Height = 20 TabOrder = 0 - OnChange = CoNameChange + OnChange = P_NameChange end end object cxGrid2: TcxGrid [2] @@ -94,7 +94,6 @@ inherited frmProductInfoSel: TfrmProductInfoSel Height = 476 Align = alClient TabOrder = 2 - ExplicitTop = 76 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/A00通用窗体/U_ProductInfoSel.pas b/A00通用窗体/U_ProductInfoSel.pas index 8691e1f..746f35f 100644 --- a/A00通用窗体/U_ProductInfoSel.pas +++ b/A00通用窗体/U_ProductInfoSel.pas @@ -27,7 +27,7 @@ type ADOConnection1: TADOConnection; Panel1: TPanel; Label1: TLabel; - CoName: TEdit; + P_Name: TEdit; GPM_1: TcxGridPopupMenu; ImageList1: TImageList; ThreeColorBase: TcxStyleRepository; @@ -63,7 +63,7 @@ type procedure TBSaveClick(Sender: TObject); procedure TV1DblClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); - procedure CoNameChange(Sender: TObject); + procedure P_NameChange(Sender: TObject); private procedure InitGrid(); { Private declarations } @@ -99,7 +99,7 @@ begin end; end; -procedure TfrmProductInfoSel.CoNameChange(Sender: TObject); +procedure TfrmProductInfoSel.P_NameChange(Sender: TObject); begin if ADOQueryMain.Active then begin @@ -113,7 +113,7 @@ end; procedure TfrmProductInfoSel.FormClose(Sender: TObject; var Action: TCloseAction); begin - CoName.SetFocus; + P_Name.SetFocus; Action := cahide; end; @@ -159,7 +159,7 @@ end; procedure TfrmProductInfoSel.ToolButton1Click(Sender: TObject); begin - CoName.SetFocus; + P_Name.SetFocus; ModalResult := 1; end; diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index eee93b1..879e7fa 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -1,24 +1,24 @@  - 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas - 1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= - 1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas - 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm - 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm - 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= - 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm - 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm + 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm + 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm + 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas + 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas + 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm 1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm 1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas + 1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas 1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas - 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas - 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas + 1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= diff --git a/A01基础公司管理/Company.identcache b/A01基础公司管理/Company.identcache index 7730536..043b812 100644 Binary files a/A01基础公司管理/Company.identcache and b/A01基础公司管理/Company.identcache differ diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index 8e9703a..7c1cefc 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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.187,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.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.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.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.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 98d2329..b2eced7 100644 --- a/A02基础产品管理/U_ClothInfo.dfm +++ b/A02基础产品管理/U_ClothInfo.dfm @@ -7,6 +7,7 @@ inherited frmClothInfo: TfrmClothInfo FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -593 ExplicitWidth = 1460 ExplicitHeight = 741 PixelsPerInch = 96 @@ -330,14 +331,24 @@ inherited frmClothInfo: TfrmClothInfo BevelOuter = bvLowered Caption = 'Panel3' TabOrder = 4 + object Splitter1: TSplitter + Left = 825 + Top = 60 + Height = 352 + ExplicitLeft = 936 + ExplicitTop = 240 + ExplicitHeight = 100 + end object cxGrid1: TcxGrid Left = 2 Top = 60 - Width = 1212 + Width = 823 Height = 352 - Align = alClient + Align = alLeft PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = 6 + ExplicitTop = 59 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -353,6 +364,7 @@ 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 @@ -653,6 +665,34 @@ inherited frmClothInfo: TfrmClothInfo ClientRectRight = 0 ClientRectTop = 0 end + object cxGrid2: TcxGrid + Left = 828 + Top = 60 + Width = 386 + Height = 352 + Align = alClient + TabOrder = 4 + ExplicitLeft = 831 + ExplicitTop = 56 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.CellAutoHeight = True + OptionsView.GroupByBox = False + object Tv2DTMName: TcxGridDBColumn + Caption = #24037#33402#21517#31216 + DataBinding.FieldName = 'DTMName' + DataBinding.IsNullValueType = True + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_ClothInfo.ADOLink @@ -836,4 +876,15 @@ inherited frmClothInfo: TfrmClothInfo Left = 520 Top = 426 end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 1228 + Top = 227 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 1332 + Top = 235 + end end diff --git a/A02基础产品管理/U_ClothInfo.pas b/A02基础产品管理/U_ClothInfo.pas index e0b3b17..98c5629 100644 --- a/A02基础产品管理/U_ClothInfo.pas +++ b/A02基础产品管理/U_ClothInfo.pas @@ -130,6 +130,13 @@ type cxTabControl1: TcxTabControl; Tv1CINote: TcxGridDBColumn; Tv1Material: TcxGridDBColumn; + Tv2: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Splitter1: TSplitter; + CDS_2: TClientDataSet; + DS_2: TDataSource; + Tv2DTMName: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBDelClick(Sender: TObject); diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index 83c9774..d9ab339 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -3,7 +3,7 @@ object frmClothInfoInput: TfrmClothInfoInput Top = 231 Caption = #20135#21697#20449#24687#24405#20837 ClientHeight = 748 - ClientWidth = 1080 + ClientWidth = 1200 Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -18,11 +18,11 @@ object frmClothInfoInput: TfrmClothInfoInput object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1080 + Width = 1200 Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 75 + ButtonWidth = 91 Caption = 'ToolBar1' Color = clWhite DisabledImages = DataLink_ClothInfo.ImageList_new32 @@ -48,10 +48,18 @@ object frmClothInfoInput: TfrmClothInfoInput ImageIndex = 22 OnClick = TbUpFileClick end - object TBClose: TToolButton + object ToolButton5: TToolButton Left = 142 Top = 0 AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick @@ -60,7 +68,7 @@ object frmClothInfoInput: TfrmClothInfoInput object cxPageControl1: TcxPageControl Left = 0 Top = 38 - Width = 1080 + Width = 1200 Height = 710 Align = alTop Font.Charset = GB2312_CHARSET @@ -75,7 +83,7 @@ object frmClothInfoInput: TfrmClothInfoInput Properties.CustomButtons.Buttons = <> ClientRectBottom = 708 ClientRectLeft = 2 - ClientRectRight = 1078 + ClientRectRight = 1198 ClientRectTop = 25 object cxTabSheet1: TcxTabSheet Caption = #22522#26412#20449#24687 @@ -89,7 +97,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel1: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 683 Align = alClient Font.Charset = GB2312_CHARSET @@ -99,6 +107,7 @@ object frmClothInfoInput: TfrmClothInfoInput Font.Style = [] ParentFont = False TabOrder = 0 + ExplicitLeft = 1 object C_GramWeight: TcxTextEdit Tag = 2 Left = 553 @@ -433,24 +442,23 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxGrid4: TcxGrid Left = 1 - Top = 336 - Width = 1074 - Height = 346 + Top = 410 + Width = 1194 + Height = 272 Align = alBottom TabOrder = 24 - ExplicitLeft = 2 - ExplicitTop = 337 object TV4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = TV4CellDblClick DataController.DataSource = DS_GY DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsView.GroupByBox = False object TV4F_Code: TcxGridDBColumn - Caption = #22383#24067#32534#21495 - DataBinding.FieldName = 'F_Code' + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 @@ -474,7 +482,7 @@ object frmClothInfoInput: TfrmClothInfoInput DataBinding.FieldName = 'DTMPSlist' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 455 + Width = 469 end object TV4DTMID: TcxGridDBColumn Caption = #24037#33402#20027#38190 @@ -489,11 +497,12 @@ object frmClothInfoInput: TfrmClothInfoInput end object Panel8: TPanel Left = 1 - Top = 295 - Width = 1074 + Top = 369 + Width = 1194 Height = 41 Align = alBottom TabOrder = 25 + ExplicitTop = 295 object Panel9: TPanel Left = 1 Top = 42 @@ -518,7 +527,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel10: TPanel Left = 1 Top = 1 - Width = 1072 + Width = 1192 Height = 41 Align = alTop TabOrder = 1 @@ -703,6 +712,102 @@ object frmClothInfoInput: TfrmClothInfoInput TabOrder = 12 Width = 240 end + object cxLabel40: TcxLabel + Left = 16 + Top = 257 + Caption = #22791#27880 + ParentFont = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + end + object CINote: TcxTextEdit + Tag = 2 + Left = 165 + Top = 248 + AutoSize = False + ParentFont = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.LookAndFeel.SkinName = 'WXI' + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 29 + Height = 40 + Width = 628 + end + object cxLabel44: TcxLabel + Left = 16 + Top = 307 + Caption = #20135#21697#40664#35748#24037#33402 + ParentFont = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + end + object DTMPSlist: TcxTextEdit + Tag = 2 + Left = 165 + Top = 302 + AutoSize = False + ParentFont = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.LookAndFeel.SkinName = 'WXI' + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 31 + Height = 30 + Width = 628 + end + object cxLabel113: TcxLabel + Left = 422 + Top = 211 + Caption = #24037#33402#20027#38190 + ParentFont = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + Visible = False + end + object DTMID: TcxTextEdit + Tag = 2 + Left = 553 + Top = 209 + ParentFont = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.LookAndFeel.SkinName = 'WXI' + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 33 + Visible = False + Width = 240 + end end end object cxTabSheet2: TcxTabSheet @@ -717,7 +822,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel2: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 683 Hint = 'tt' Align = alClient @@ -988,7 +1093,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel3: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 683 Align = alClient Font.Charset = GB2312_CHARSET @@ -1431,7 +1536,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel12: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 683 Align = alClient TabOrder = 0 @@ -1868,7 +1973,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel13: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 683 Align = alClient TabOrder = 0 @@ -2305,7 +2410,7 @@ object frmClothInfoInput: TfrmClothInfoInput object cxGrid2: TcxGrid Left = 0 Top = 496 - Width = 1076 + Width = 1196 Height = 187 Align = alBottom TabOrder = 0 @@ -2379,7 +2484,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel4: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 458 Align = alClient TabOrder = 1 @@ -2925,7 +3030,7 @@ object frmClothInfoInput: TfrmClothInfoInput object ToolBar4: TToolBar Left = 0 Top = 458 - Width = 1076 + Width = 1196 Height = 38 Align = alBottom ButtonHeight = 38 @@ -2964,7 +3069,7 @@ object frmClothInfoInput: TfrmClothInfoInput object cxGrid1: TcxGrid Left = 0 Top = 534 - Width = 1076 + Width = 1196 Height = 149 Align = alBottom TabOrder = 0 @@ -3055,7 +3160,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel5: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 496 Align = alClient TabOrder = 1 @@ -3620,7 +3725,7 @@ object frmClothInfoInput: TfrmClothInfoInput object ToolBar3: TToolBar Left = 0 Top = 496 - Width = 1076 + Width = 1196 Height = 38 Align = alBottom ButtonHeight = 38 @@ -3653,7 +3758,7 @@ object frmClothInfoInput: TfrmClothInfoInput object cxGrid3: TcxGrid Left = 0 Top = 456 - Width = 1076 + Width = 1196 Height = 227 Align = alBottom Font.Charset = GB2312_CHARSET @@ -3748,7 +3853,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel6: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 418 Align = alClient Font.Charset = GB2312_CHARSET @@ -4250,7 +4355,7 @@ object frmClothInfoInput: TfrmClothInfoInput object ToolBar5: TToolBar Left = 0 Top = 418 - Width = 1076 + Width = 1196 Height = 38 Align = alBottom ButtonHeight = 38 @@ -4283,7 +4388,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel14: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 418 Align = alClient Font.Charset = GB2312_CHARSET @@ -4785,7 +4890,7 @@ object frmClothInfoInput: TfrmClothInfoInput object ToolBar6: TToolBar Left = 0 Top = 418 - Width = 1076 + Width = 1196 Height = 38 Align = alBottom ButtonHeight = 38 @@ -4814,7 +4919,7 @@ object frmClothInfoInput: TfrmClothInfoInput object cxGrid5: TcxGrid Left = 0 Top = 456 - Width = 1076 + Width = 1196 Height = 227 Align = alBottom Font.Charset = GB2312_CHARSET @@ -4912,7 +5017,7 @@ object frmClothInfoInput: TfrmClothInfoInput object Panel15: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 418 Align = alClient Font.Charset = GB2312_CHARSET @@ -5414,7 +5519,7 @@ object frmClothInfoInput: TfrmClothInfoInput object ToolBar7: TToolBar Left = 0 Top = 418 - Width = 1076 + Width = 1196 Height = 38 Align = alBottom ButtonHeight = 38 @@ -5443,7 +5548,7 @@ object frmClothInfoInput: TfrmClothInfoInput object cxGrid6: TcxGrid Left = 0 Top = 456 - Width = 1076 + Width = 1196 Height = 227 Align = alBottom Font.Charset = GB2312_CHARSET @@ -5547,7 +5652,7 @@ object frmClothInfoInput: TfrmClothInfoInput object panel7: TPanel Left = 0 Top = 0 - Width = 1076 + Width = 1196 Height = 683 Align = alClient TabOrder = 0 diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas index 4ba525c..b3ac34e 100644 --- a/A02基础产品管理/U_ClothInfoInput.pas +++ b/A02基础产品管理/U_ClothInfoInput.pas @@ -705,6 +705,13 @@ type cxLabel42: TcxLabel; C_washWidth: TcxTextEdit; TV4F_Code: TcxGridDBColumn; + cxLabel40: TcxLabel; + CINote: TcxTextEdit; + ToolButton5: TToolButton; + cxLabel44: TcxLabel; + DTMPSlist: TcxTextEdit; + cxLabel113: TcxLabel; + DTMID: TcxTextEdit; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TbSaveClick(Sender: TObject); @@ -764,6 +771,10 @@ type // procedure TbFBClick(Sender: TObject); procedure TbAddClick(Sender: TObject); procedure TbDeleteClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TV4CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); private canshu1: string; @@ -960,6 +971,7 @@ var // Maxid1, maxid2, maxid3, maxgx: string; begin InitGrid(); + ReadCxGrid(self.Caption + 'TV4', Tv4, 'ƷϢ¼'); ArrangeTabsByDataset; if CopyInt = 2 then // begin @@ -1128,6 +1140,7 @@ begin end; FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('CTID').Value := Trim(FCTID); + FieldByName('F_Name').Value := CDS_GY.FieldByName('F_Name').Value; if trim(C_Code.Text) = 'Զ' then C_Code.Text := Trim(MaxBCIID); RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel1, 2); @@ -2691,6 +2704,11 @@ begin // end; end; +procedure TfrmClothInfoInput.ToolButton5Click(Sender: TObject); +begin + WriteCxGrid(self.Caption + 'TV4', Tv4, 'ƷϢ¼'); +end; + procedure TfrmClothInfoInput.Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -2800,6 +2818,21 @@ begin end; end; +procedure TfrmClothInfoInput.TV4CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_GY.IsEmpty then + begin + Exit; + end + else + begin + DTMPSlist.Text := CDS_GY.FieldByName('DTMPSlist').AsString; + DTMID.Text := CDS_GY.FieldByName('DTMID').AsString; + end; +end; + //procedure TfrmClothInfoInput.cxGridDBColumn14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); //begin // try diff --git a/A05基础资料管理/BaseInfo.identcache b/A05基础资料管理/BaseInfo.identcache index 0937052..18040f6 100644 Binary files a/A05基础资料管理/BaseInfo.identcache and b/A05基础资料管理/BaseInfo.identcache differ diff --git a/A05基础资料管理/testDll.identcache b/A05基础资料管理/testDll.identcache index f60f93c..4f33975 100644 Binary files a/A05基础资料管理/testDll.identcache and b/A05基础资料管理/testDll.identcache differ diff --git a/B03基础物料仓库/ProductStk.dproj.local b/B03基础物料仓库/ProductStk.dproj.local index d478272..cc16da3 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.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.630,=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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.495,=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.630,=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 b5eec37..8be177d 100644 Binary files a/B03基础物料仓库/ProductStk.identcache and b/B03基础物料仓库/ProductStk.identcache differ diff --git a/B03基础物料仓库/U_BSPrtDyeInEdit.dfm b/B03基础物料仓库/U_BSPrtDyeInEdit.dfm index 6b17b29..e637569 100644 --- a/B03基础物料仓库/U_BSPrtDyeInEdit.dfm +++ b/B03基础物料仓库/U_BSPrtDyeInEdit.dfm @@ -22,7 +22,6 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit Height = 425 Align = alClient TabOrder = 0 - ExplicitTop = 44 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B03基础物料仓库/U_BSPrtDyeInList.dfm b/B03基础物料仓库/U_BSPrtDyeInList.dfm index 41f5f27..bc4f481 100644 --- a/B03基础物料仓库/U_BSPrtDyeInList.dfm +++ b/B03基础物料仓库/U_BSPrtDyeInList.dfm @@ -233,7 +233,6 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList Height = 541 Align = alClient TabOrder = 2 - ExplicitTop = 97 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B03基础物料仓库/U_BSPrtDyeInList.pas b/B03基础物料仓库/U_BSPrtDyeInList.pas index b7c71aa..83030bc 100644 --- a/B03基础物料仓库/U_BSPrtDyeInList.pas +++ b/B03基础物料仓库/U_BSPrtDyeInList.pas @@ -241,7 +241,12 @@ begin SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE '); sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + ''''); SQL.Add('AND p_Code=' + QuotedStr(CDS_Main.fieldbyname('p_Code').AsString)); - SQL.Add('AND BatchNo=' + QuotedStr(CDS_Main.fieldbyname('BatchNo').AsString)); +// SQL.Add('AND BatchNo=' + QuotedStr(CDS_Main.fieldbyname('BatchNo').AsString)); + if CDS_Main.fieldbyname('BatchNo').AsString = '' then + SQL.Add('AND (BatchNo is NULL OR BatchNo = '''')') + else + SQL.Add('AND BatchNo=' + QuotedStr(CDS_Main.fieldbyname('BatchNo').AsString)); + SQL.Add(' group by isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''')'); // showMessage(SQL.Text); diff --git a/B03基础物料仓库/U_BSPrtDyeOutList.pas b/B03基础物料仓库/U_BSPrtDyeOutList.pas index a91bcdf..2f962d7 100644 --- a/B03基础物料仓库/U_BSPrtDyeOutList.pas +++ b/B03基础物料仓库/U_BSPrtDyeOutList.pas @@ -228,49 +228,49 @@ begin try ADOQueryCmd.Connection.BeginTrans; -// with ADOQueryCmd do -// begin -// Close; -// Sql.Clear; -// Sql.Add('exec P_BS_Product_Out_Del '); -// Sql.Add(' @BPIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BPIOID').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))); - with ADOQueryCmd do begin Close; - sql.Clear; - sql.Add(' SELECT isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''') '); - SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE '); - sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + ''''); - SQL.Add('AND p_Code=' + QuotedStr(CDS_Main.fieldbyname('p_Code').AsString)); - SQL.Add('AND BatchNo=' + QuotedStr(CDS_Main.fieldbyname('BatchNo').AsString)); - SQL.Add(' group by isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''')'); - -// showMessage(SQL.Text); - OPEN; + Sql.Clear; + Sql.Add('exec P_BS_Product_Out_Del '); + Sql.Add(' @BPIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BPIOID').AsString))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; end; - if ADOQueryCmd.FieldByName('Qty').Value < CDS_Main.FieldByName('Qty').Value then - begin - raise Exception.Create('ڿɾ'); - end - else - begin - with ADOQueryCmd do - begin - Close; - sql.Clear; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - SQL.Add('insert into BS_Product_IO_Del select * from BS_Product_IO where BPIOID = ' + QuotedStr(Trim(CDS_Main.FieldByName('BPIOID').value))); - SQL.Add('Delete BS_Product_IO where BPIOID = ' + QuotedStr(Trim(CDS_Main.FieldByName('BPIOID').value))); - ExecSQL; - end; - end; +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add(' SELECT isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''') '); +// SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE '); +// sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + ''''); +// SQL.Add('AND p_Code=' + QuotedStr(CDS_Main.fieldbyname('p_Code').AsString)); +// SQL.Add('AND BatchNo=' + QuotedStr(CDS_Main.fieldbyname('BatchNo').AsString)); +// SQL.Add(' group by isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''')'); +// +//// showMessage(SQL.Text); +// OPEN; +// end; +// if ADOQueryCmd.FieldByName('Qty').Value < CDS_Main.FieldByName('Qty').Value then +// begin +// raise Exception.Create('ڿɾ'); +// end +// else +// begin +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// +// SQL.Add('insert into BS_Product_IO_Del select * from BS_Product_IO where BPIOID = ' + QuotedStr(Trim(CDS_Main.FieldByName('BPIOID').value))); +// SQL.Add('Delete BS_Product_IO where BPIOID = ' + QuotedStr(Trim(CDS_Main.FieldByName('BPIOID').value))); +// ExecSQL; +// end; +// end; ADOQueryCmd.Connection.CommitTrans; CDS_Main.Delete; diff --git a/F01染色坯布仓库/DyeGreyClothStk.dpr b/F01染色坯布仓库/DyeGreyClothStk.dpr index f588e98..1c430b1 100644 --- a/F01染色坯布仓库/DyeGreyClothStk.dpr +++ b/F01染色坯布仓库/DyeGreyClothStk.dpr @@ -28,7 +28,8 @@ uses U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', - U_DyePlanForCardSel in 'U_DyePlanForCardSel.pas' {frmProductOrderListSel}; + U_DyePlanForCardSel in 'U_DyePlanForCardSel.pas' {frmProductOrderListSel}, + U_DyePBImport in 'U_DyePBImport.pas' {frmDyePBImport}; {$R *.res} diff --git a/F01染色坯布仓库/DyeGreyClothStk.dproj b/F01染色坯布仓库/DyeGreyClothStk.dproj index 2c16d37..3339023 100644 --- a/F01染色坯布仓库/DyeGreyClothStk.dproj +++ b/F01染色坯布仓库/DyeGreyClothStk.dproj @@ -151,6 +151,10 @@
frmProductOrderListSel
dfm + +
frmDyePBImport
+ dfm + Cfg_2 Base diff --git a/F01染色坯布仓库/DyeGreyClothStk.dproj.local b/F01染色坯布仓库/DyeGreyClothStk.dproj.local index 6356a53..da3f414 100644 --- a/F01染色坯布仓库/DyeGreyClothStk.dproj.local +++ b/F01染色坯布仓库/DyeGreyClothStk.dproj.local @@ -1,47 +1,48 @@  - 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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm - 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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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 @@ -89,5 +90,7 @@ + + diff --git a/F01染色坯布仓库/DyeGreyClothStk.identcache b/F01染色坯布仓库/DyeGreyClothStk.identcache index 2c0f4ec..0a12722 100644 Binary files a/F01染色坯布仓库/DyeGreyClothStk.identcache and b/F01染色坯布仓库/DyeGreyClothStk.identcache differ diff --git a/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm b/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm index c1e9264..9ff8e84 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm @@ -1,7 +1,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Left = 67 Top = 126 - Caption = #22383#24067#20837#24211#30331#35760 + Caption = #22383#24067#20837#24211#24405#20837 ClientHeight = 546 ClientWidth = 1340 Color = clWhite @@ -22,6 +22,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Height = 508 Align = alClient TabOrder = 0 + ExplicitTop = 44 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -226,6 +227,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Caption = #25104#21697#32534#21495 DataBinding.FieldName = 'C_Code' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 80 end @@ -325,24 +327,32 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Visible = False OnClick = ToolButton5Click end - object ToolButton2: TToolButton + object TbImport: TToolButton Left = 760 Top = 0 AutoSize = True + Caption = #23548#20837 + ImageIndex = 17 + OnClick = TbImportClick + end + object ToolButton2: TToolButton + Left = 831 + Top = 0 + AutoSize = True Caption = #19968#38190#26367#25442 ImageIndex = 13 OnClick = ToolButton2Click end object ToolButton1: TToolButton - Left = 855 + Left = 926 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 - ImageIndex = 12 + ImageIndex = 16 OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 950 + Left = 1021 Top = 0 AutoSize = True Caption = #20851#38381 @@ -390,7 +400,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> - Left = 440 - Top = 136 + Left = 464 + Top = 120 end end diff --git a/F01染色坯布仓库/U_DyeGreyClothInEdit.pas b/F01染色坯布仓库/U_DyeGreyClothInEdit.pas index e4a2419..5be6e8a 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInEdit.pas +++ b/F01染色坯布仓库/U_DyeGreyClothInEdit.pas @@ -56,6 +56,7 @@ type Tv1OrderNo: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1C_Code: TcxGridDBColumn; + TbImport: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -78,6 +79,7 @@ type procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TbImportClick(Sender: TObject); private { Private declarations } function SaveCKData(): Boolean; @@ -94,7 +96,7 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_DyePlanCardSel, U_CompanySel, U_GreyClothStkSel, U_GreyClothHXSel, U_GreyClothDYSel, U_GreyClothDJHXSel, - U_GreyClothHXDJSel, U_ClothInfoSel, U_DyePlanForCardSel; + U_GreyClothHXDJSel, U_ClothInfoSel, U_DyePlanForCardSel, U_DyePBImport; {$R *.dfm} @@ -291,7 +293,7 @@ var fsj: string; begin inherited; - ReadCxGrid(FSTKName + 'Ǽ', Tv1, 'ϲֿ'); + ReadCxGrid(FSTKName + '¼', Tv1, '¼'); with ADOQueryTemp do begin Close; @@ -344,6 +346,23 @@ begin end; +procedure TfrmDyeGreyClothInEdit.TbImportClick(Sender: TObject); +begin + try + frmDyePBImport := TfrmDyePBImport.Create(Application); + with frmDyePBImport do + begin +// FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString); + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmDyePBImport.Free; + end; +end; + procedure TfrmDyeGreyClothInEdit.TBSaveClick(Sender: TObject); begin if CDS_Sub.IsEmpty then @@ -394,7 +413,7 @@ end; procedure TfrmDyeGreyClothInEdit.ToolButton1Click(Sender: TObject); begin inherited; - WriteCxGrid(FSTKName + 'Ǽ', Tv1, 'ϲֿ'); + WriteCxGrid(FSTKName + '¼', Tv1, '¼'); end; procedure TfrmDyeGreyClothInEdit.ToolButton2Click(Sender: TObject); @@ -764,6 +783,9 @@ begin end; end; + + + procedure TfrmDyeGreyClothInEdit.Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin with ADOQueryTemp do @@ -787,7 +809,10 @@ begin Self.CDS_Sub.FieldByName('C_Name').Value := Order_Main.fieldbyname('C_Name').asstring; Self.CDS_Sub.FieldByName('C_Code').Value := Order_Main.fieldbyname('C_Code').asstring; Self.CDS_Sub.FieldByName('F_Name').Value := Order_Main.fieldbyname('F_Name').asstring; -// initGlide(); + + Self.CDS_Sub.FieldByName('finishDescription').Value := Order_Main.fieldbyname('finishDescription').asstring; +// showMessage(Order_Main.FieldByName('finishDescription').AsString); + // initGlide(); end; free; end; @@ -806,7 +831,7 @@ begin FieldByName('F_Width').Value := Trim(ADOQueryTemp.fieldbyname('F_Width').AsString); FieldByName('Material').Value := Trim(ADOQueryTemp.fieldbyname('Material').AsString); - FieldByName('finishDescription').Value := Trim(ADOQueryTemp.fieldbyname('FinishingStandards').AsString); +// FieldByName('finishDescription').Value := Trim(ADOQueryTemp.fieldbyname('FinishingStandards').AsString); Post; end; end; diff --git a/F01染色坯布仓库/U_DyeGreyClothInList.dfm b/F01染色坯布仓库/U_DyeGreyClothInList.dfm index 1d27504..7c27aae 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInList.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothInList.dfm @@ -1,7 +1,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList Left = 165 Top = 111 - Caption = #20837#24211#21015#34920 + Caption = #22383#24067#20837#24211#21015#34920 ClientHeight = 543 ClientWidth = 1284 ExplicitWidth = 1300 @@ -30,6 +30,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList ParentFont = False ShowCaptions = True TabOrder = 0 + ExplicitTop = 2 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -132,16 +133,9 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList object Label3: TLabel Left = 351 Top = 12 - Width = 24 - Height = 12 - Caption = #21697#21517 - end - object Label4: TLabel - Left = 492 - Top = 12 Width = 48 Height = 12 - Caption = #26469#33258#21333#20301 + Caption = #25104#21697#21517#31216 end object Label5: TLabel Left = 178 @@ -153,9 +147,9 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList object Label8: TLabel Left = 351 Top = 37 - Width = 24 + Width = 60 Height = 12 - Caption = #35268#26684 + Caption = #21518#25972#29702#25551#36848 end object Label12: TLabel Left = 179 @@ -164,41 +158,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList Height = 12 Caption = #20837#24211#31867#22411 end - object Label10: TLabel - Left = 492 - Top = 37 - Width = 48 - Height = 12 - Caption = #25209' '#21495 - end - object Label6: TLabel - Left = 657 - Top = 12 - Width = 24 - Height = 12 - Caption = #38376#24133 - end - object Label7: TLabel - Left = 657 - Top = 37 - Width = 24 - Height = 12 - Caption = #20811#37325 - end - object Label9: TLabel - Left = 807 - Top = 11 - Width = 24 - Height = 12 - Caption = #22411#21495 - end - object Label11: TLabel - Left = 807 - Top = 36 - Width = 24 - Height = 12 - Caption = #33394#21035 - end object BegDate: TDateTimePicker Left = 77 Top = 8 @@ -219,39 +178,30 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList end object C_name: TEdit Tag = 2 - Left = 378 + Left = 413 Top = 8 Width = 100 Height = 20 TabOrder = 2 OnChange = TBFindClick end - object FromCoName: TEdit - Tag = 2 - Left = 542 - Top = 8 - Width = 100 - Height = 20 - TabOrder = 3 - OnChange = FromCoNameChange - end object BCIOID: TEdit Tag = 2 Left = 228 Top = 8 Width = 109 Height = 20 - TabOrder = 4 + TabOrder = 3 OnChange = BCIOIDChange end - object C_spec: TEdit + object finishDescription: TEdit Tag = 2 - Left = 378 + Left = 413 Top = 33 Width = 100 Height = 20 - TabOrder = 5 - OnChange = C_specChange + TabOrder = 4 + OnChange = finishDescriptionChange end object IOType: TComboBox Tag = 2 @@ -261,7 +211,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList Height = 20 Style = csDropDownList DropDownCount = 20 - TabOrder = 6 + TabOrder = 5 OnChange = TBFindClick Items.Strings = ( #21152#24037#20837#24211 @@ -272,51 +222,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList #26679#22238#20837#24211 #26679#36820#20837#24211) end - object BatchNo: TEdit - Tag = 2 - Left = 542 - Top = 33 - Width = 100 - Height = 20 - TabOrder = 7 - OnChange = FromCoNameChange - end - object C_Width: TEdit - Tag = 2 - Left = 684 - Top = 8 - Width = 100 - Height = 20 - TabOrder = 8 - OnChange = TBFindClick - end - object C_GramWeight: TEdit - Tag = 2 - Left = 684 - Top = 32 - Width = 100 - Height = 20 - TabOrder = 9 - OnChange = C_specChange - end - object C_XINHAO: TEdit - Tag = 2 - Left = 834 - Top = 7 - Width = 100 - Height = 20 - TabOrder = 10 - OnChange = TBFindClick - end - object C_ColorDepth: TEdit - Tag = 2 - Left = 834 - Top = 31 - Width = 100 - Height = 20 - TabOrder = 11 - OnChange = C_specChange - end end object cxGrid2: TcxGrid [2] Left = 0 @@ -435,15 +340,15 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList Width = 90 end object Tv1Column4: TcxGridDBColumn - Caption = #25104#21697#32534#21495 - DataBinding.FieldName = 'C_COde' + Caption = #25104#21697#21517#31216 + DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 81 end object Tv1F_Code: TcxGridDBColumn - Caption = #22383#24067#32534#21495 - DataBinding.FieldName = 'F_Code' + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 diff --git a/F01染色坯布仓库/U_DyeGreyClothInList.pas b/F01染色坯布仓库/U_DyeGreyClothInList.pas index bec29bb..23a62ce 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInList.pas +++ b/F01染色坯布仓库/U_DyeGreyClothInList.pas @@ -46,14 +46,12 @@ type TBAdd: TToolButton; TBEdit: TToolButton; Label3: TLabel; - Label4: TLabel; Label5: TLabel; Label8: TLabel; Label12: TLabel; C_name: TEdit; - FromCoName: TEdit; BCIOID: TEdit; - C_spec: TEdit; + finishDescription: TEdit; IOType: TComboBox; cxGrid2: TcxGrid; Tv1: TcxGridDBTableView; @@ -66,22 +64,12 @@ type v1Column3: TcxGridDBColumn; v1Column12: TcxGridDBColumn; cxGrid2Level1: TcxGridLevel; - Label10: TLabel; - BatchNo: TEdit; v1Column13: TcxGridDBColumn; v1Column15: TcxGridDBColumn; ToolButton1: TToolButton; ToolButton2: TToolButton; Tv1Column2: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; - Label6: TLabel; - Label7: TLabel; - C_Width: TEdit; - C_GramWeight: TEdit; - Label9: TLabel; - Label11: TLabel; - C_XINHAO: TEdit; - C_ColorDepth: TEdit; Tv1lzckordno: TcxGridDBColumn; Tv1F_Code: TcxGridDBColumn; Tv1OrderNo: TcxGridDBColumn; @@ -103,12 +91,13 @@ type procedure TBAddClick(Sender: TObject); procedure TBEditClick(Sender: TObject); procedure BCIOIDChange(Sender: TObject); - procedure C_specChange(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); + private canshu1, canshu2, canshu3, FWorkshop: string; procedure InitGrid(); @@ -189,7 +178,7 @@ end; procedure TfrmDyeGreyClothInList.ToolButton1Click(Sender: TObject); begin - WriteCxGrid(Self.Caption, Tv1, 'Ⱦɫֿ'); + WriteCxGrid(Self.Caption, Tv1, 'б'); end; procedure TfrmDyeGreyClothInList.ToolButton2Click(Sender: TObject); @@ -276,7 +265,7 @@ end; procedure TfrmDyeGreyClothInList.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(Self.Caption, Tv1, 'Ⱦɫֿ'); + ReadCxGrid(Self.Caption, Tv1, 'б'); setStatus(); InitGrid(); end; @@ -298,6 +287,8 @@ begin end; end; + + procedure TfrmDyeGreyClothInList.N1Click(Sender: TObject); begin SelOKNo(CDS_Main, True); @@ -433,7 +424,7 @@ begin TBFind.Click; end; -procedure TfrmDyeGreyClothInList.C_specChange(Sender: TObject); +procedure TfrmDyeGreyClothInList.finishDescriptionChange(Sender: TObject); begin TBFind.Click; end; diff --git a/F01染色坯布仓库/U_DyeGreyClothOutEdit.dfm b/F01染色坯布仓库/U_DyeGreyClothOutEdit.dfm index 6ca4ac9..8ce5a65 100644 --- a/F01染色坯布仓库/U_DyeGreyClothOutEdit.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothOutEdit.dfm @@ -1,7 +1,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit Left = 65 Top = 113 - Caption = #20986#24211#30331#35760 + Caption = #22383#24067#20986#24211#24405#20837 ClientHeight = 546 ClientWidth = 1406 Color = clWhite @@ -84,10 +84,6 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit Height = 508 Align = alClient TabOrder = 1 - ExplicitLeft = -91 - ExplicitTop = 96 - ExplicitWidth = 1284 - ExplicitHeight = 447 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -192,16 +188,16 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit end object Tv1Column4: TcxGridDBColumn Tag = 2 - Caption = #25104#21697#32534#21495 - DataBinding.FieldName = 'C_COde' + Caption = #25104#21697#21517#31216 + DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 81 end object Tv1F_Code: TcxGridDBColumn Tag = 2 - Caption = #22383#24067#32534#21495 - DataBinding.FieldName = 'F_Code' + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -229,7 +225,6 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter - Options.Editing = False Width = 85 end object v1Column15: TcxGridDBColumn @@ -238,7 +233,6 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit DataBinding.FieldName = 'Piece' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False Width = 65 end object v1Column3: TcxGridDBColumn diff --git a/F01染色坯布仓库/U_DyeGreyClothOutEdit.pas b/F01染色坯布仓库/U_DyeGreyClothOutEdit.pas index 0b06ff9..1e3b1b3 100644 --- a/F01染色坯布仓库/U_DyeGreyClothOutEdit.pas +++ b/F01染色坯布仓库/U_DyeGreyClothOutEdit.pas @@ -110,7 +110,7 @@ begin FieldByName('StkCoName').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('StkCoName').Value; FieldByName('ToCoNo').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('StkCoNo').Value; FieldByName('ToCoName').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('StkCoName').Value; - FieldByName('F_Code').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('F_Code').Value; + FieldByName('F_Name').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('F_Name').Value; FieldByName('C_Name').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_Name').Value; FieldByName('C_code').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_code').Value; @@ -257,7 +257,7 @@ var fsj: string; begin inherited; - ReadCxGrid(FSTKName + 'Ǽ', Tv1, 'ϲֿ'); + ReadCxGrid(FSTKName + '¼', Tv1, '¼'); with ADOQueryTemp do begin Close; @@ -352,7 +352,7 @@ end; procedure TfrmDyeGreyClothOutEdit.ToolButton1Click(Sender: TObject); begin - WriteCxGrid(fSTKName + 'Ǽ', Tv1, 'ϲֿ'); + WriteCxGrid(fSTKName + '¼', Tv1, '¼'); end; diff --git a/F01染色坯布仓库/U_DyeGreyClothOutList.dfm b/F01染色坯布仓库/U_DyeGreyClothOutList.dfm index 4485530..4469847 100644 --- a/F01染色坯布仓库/U_DyeGreyClothOutList.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothOutList.dfm @@ -1,7 +1,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList Left = 65 Top = 98 - Caption = #20986#24211#21015#34920 + Caption = #22383#24067#20986#24211#21015#34920 ClientHeight = 546 ClientWidth = 1193 Position = poScreenCenter @@ -132,16 +132,9 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList object Label3: TLabel Left = 321 Top = 12 - Width = 24 + Width = 48 Height = 12 - Caption = #21697#21517 - end - object Label4: TLabel - Left = 443 - Top = 12 - Width = 36 - Height = 12 - Caption = #23458' '#25143 + Caption = #25104#21697#21517#31216 end object Label5: TLabel Left = 178 @@ -153,9 +146,9 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList object Label8: TLabel Left = 321 Top = 39 - Width = 24 + Width = 60 Height = 12 - Caption = #35268#26684 + Caption = #21518#25972#29702#25551#36848 end object Label12: TLabel Left = 179 @@ -164,41 +157,6 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList Height = 12 Caption = #20986#24211#31867#22411 end - object Label9: TLabel - Left = 443 - Top = 39 - Width = 36 - Height = 12 - Caption = #22411' '#21495 - end - object Label6: TLabel - Left = 587 - Top = 39 - Width = 48 - Height = 12 - Caption = #35745#21010#21333#21495 - end - object Label7: TLabel - Left = 587 - Top = 12 - Width = 48 - Height = 12 - Caption = #23458#25143#21333#21495 - end - object Label10: TLabel - Left = 729 - Top = 11 - Width = 24 - Height = 12 - Caption = #38376#24133 - end - object Label11: TLabel - Left = 729 - Top = 36 - Width = 24 - Height = 12 - Caption = #20811#37325 - end object Label14: TLabel Left = 879 Top = 35 @@ -226,39 +184,30 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList end object C_NAME: TEdit Tag = 2 - Left = 348 + Left = 384 Top = 8 Width = 80 Height = 20 TabOrder = 2 OnChange = TBFindClick end - object FTYName: TEdit - Tag = 2 - Left = 483 - Top = 8 - Width = 80 - Height = 20 - TabOrder = 3 - OnChange = C_specChange - end object BCIOID: TEdit Tag = 2 Left = 228 Top = 8 Width = 80 Height = 20 - TabOrder = 4 + TabOrder = 3 OnChange = BCIOIDChange end - object C_spec: TEdit + object finishDescription: TEdit Tag = 2 - Left = 348 + Left = 384 Top = 35 Width = 80 Height = 20 - TabOrder = 5 - OnChange = C_specChange + TabOrder = 4 + OnChange = finishDescriptionChange end object IOType: TComboBox Tag = 2 @@ -268,66 +217,21 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList Height = 20 Style = csDropDownList DropDownCount = 20 - TabOrder = 6 + TabOrder = 5 OnChange = TBFindClick Items.Strings = ( #21152#24037#20986#24211 #36864#36824 '') end - object C_XINHAO: TEdit - Tag = 2 - Left = 483 - Top = 35 - Width = 80 - Height = 20 - TabOrder = 7 - OnChange = C_specChange - end - object OrderNo: TEdit - Tag = 2 - Left = 636 - Top = 35 - Width = 80 - Height = 20 - TabOrder = 8 - OnChange = C_specChange - end - object FTYNo: TEdit - Tag = 2 - Left = 636 - Top = 8 - Width = 80 - Height = 20 - TabOrder = 9 - OnChange = C_specChange - end - object C_Width: TEdit - Tag = 2 - Left = 756 - Top = 7 - Width = 100 - Height = 20 - TabOrder = 10 - OnChange = TBFindClick - end - object C_GramWeight: TEdit - Tag = 2 - Left = 756 - Top = 31 - Width = 100 - Height = 20 - TabOrder = 11 - OnChange = C_specChange - end object C_ColorDepth: TEdit Tag = 2 Left = 906 Top = 30 Width = 100 Height = 20 - TabOrder = 12 - OnChange = C_specChange + TabOrder = 6 + OnChange = finishDescriptionChange end end object cxGrid2: TcxGrid [2] @@ -338,9 +242,6 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitLeft = -91 - ExplicitTop = 96 - ExplicitWidth = 1284 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -442,15 +343,15 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList Width = 90 end object Tv1Column4: TcxGridDBColumn - Caption = #25104#21697#32534#21495 - DataBinding.FieldName = 'C_COde' + Caption = #25104#21697#21517#31216 + DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 81 end object Tv1F_Code: TcxGridDBColumn - Caption = #22383#24067#32534#21495 - DataBinding.FieldName = 'F_Code' + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -607,6 +508,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList Top = 152 end object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 PopupMenus = <> Left = 1104 Top = 168 diff --git a/F01染色坯布仓库/U_DyeGreyClothOutList.pas b/F01染色坯布仓库/U_DyeGreyClothOutList.pas index 8ad731a..89c8ea4 100644 --- a/F01染色坯布仓库/U_DyeGreyClothOutList.pas +++ b/F01染色坯布仓库/U_DyeGreyClothOutList.pas @@ -46,27 +46,15 @@ type TBAdd: TToolButton; TBEdit: TToolButton; Label3: TLabel; - Label4: TLabel; Label5: TLabel; Label8: TLabel; Label12: TLabel; C_NAME: TEdit; - FTYName: TEdit; BCIOID: TEdit; - C_spec: TEdit; + finishDescription: TEdit; IOType: TComboBox; - Label9: TLabel; - C_XINHAO: TEdit; - Label6: TLabel; - OrderNo: TEdit; - Label7: TLabel; - FTYNo: TEdit; ToolButton1: TToolButton; ToolButton2: TToolButton; - Label10: TLabel; - Label11: TLabel; - C_Width: TEdit; - C_GramWeight: TEdit; Label14: TLabel; C_ColorDepth: TEdit; cxGrid2: TcxGrid; @@ -106,7 +94,7 @@ type procedure TBDelClick(Sender: TObject); procedure TBAddClick(Sender: TObject); procedure TBEditClick(Sender: TObject); - procedure C_specChange(Sender: TObject); + procedure finishDescriptionChange(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); @@ -193,7 +181,7 @@ end; procedure TfrmDyeGreyClothOutList.ToolButton1Click(Sender: TObject); begin - WriteCxGrid(trim(Self.Caption), Tv1, 'Ⱦɫֿ'); + WriteCxGrid(trim(Self.Caption), Tv1, 'б'); end; @@ -259,7 +247,7 @@ end; procedure TfrmDyeGreyClothOutList.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(trim(Self.Caption), Tv1, 'Ⱦɫֿ'); + ReadCxGrid(trim(Self.Caption), Tv1, 'б'); if canshu1 = 'ѯ' then begin TBAdd.Visible := false; @@ -427,7 +415,7 @@ begin end; -procedure TfrmDyeGreyClothOutList.C_specChange(Sender: TObject); +procedure TfrmDyeGreyClothOutList.finishDescriptionChange(Sender: TObject); begin TBFind.Click; end; diff --git a/F01染色坯布仓库/U_DyeGreyClothStkList.dfm b/F01染色坯布仓库/U_DyeGreyClothStkList.dfm index 57ca74b..236be3e 100644 --- a/F01染色坯布仓库/U_DyeGreyClothStkList.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothStkList.dfm @@ -1,7 +1,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList Left = 105 Top = 131 - Caption = #24211#23384#36873#25321#21015#34920 + Caption = #22383#24067#24211#23384#21015#34920 ClientHeight = 567 ClientWidth = 1400 Position = poDefault @@ -93,101 +93,69 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList Color = clSkyBlue TabOrder = 1 object Label3: TLabel - Left = 355 - Top = 12 - Width = 24 + Left = 324 + Top = 14 + Width = 48 Height = 12 - Caption = #21697#21517 - end - object Label4: TLabel - Left = 187 - Top = 12 - Width = 24 - Height = 12 - Caption = #23458#25143 + Caption = #25104#21697#21517#31216 end object Label8: TLabel - Left = 497 - Top = 12 - Width = 24 + Left = 487 + Top = 14 + Width = 60 Height = 12 - Caption = #35268#26684 + Caption = #21518#25972#29702#25551#36848 end object Label2: TLabel - Left = 638 - Top = 12 - Width = 36 + Left = 38 + Top = 14 + Width = 48 Height = 12 - Caption = #22411' '#21495 + Caption = #20837#24211#21333#21495 end object Label5: TLabel - Left = 769 - Top = 12 - Width = 36 + Left = 183 + Top = 14 + Width = 48 Height = 12 - Caption = #19994#21153#21592 - end - object Label1: TLabel - Left = 901 - Top = 11 - Width = 24 - Height = 12 - Caption = #24211#20301 + Caption = #20837#24211#31867#22411 end object C_name: TEdit Tag = 2 - Left = 382 - Top = 8 + Left = 373 + Top = 10 Width = 100 Height = 20 TabOrder = 0 OnChange = TBFindClick end - object FromCoName: TEdit + object finishDescription: TEdit Tag = 2 - Left = 216 - Top = 8 - Width = 78 - Height = 20 - TabOrder = 1 - OnChange = FromCoNameChange - end - object C_spec: TEdit - Tag = 2 - Left = 524 - Top = 8 + Left = 552 + Top = 10 Width = 100 Height = 20 - TabOrder = 2 + TabOrder = 1 OnChange = TBFindClick end - object C_XINHAO: TEdit + object BCIOID: TEdit Tag = 2 - Left = 677 - Top = 8 + Left = 92 + Top = 10 + Width = 78 + Height = 20 + TabOrder = 2 + OnChange = FromCoNameChange + end + object ioType: TEdit + Tag = 2 + Left = 237 + Top = 10 Width = 78 Height = 20 TabOrder = 3 OnChange = FromCoNameChange end - object Saleser: TEdit - Tag = 2 - Left = 808 - Top = 8 - Width = 78 - Height = 20 - TabOrder = 4 - OnChange = FromCoNameChange - end - object StkPosition: TEdit - Tag = 2 - Left = 930 - Top = 8 - Width = 78 - Height = 20 - TabOrder = 5 - OnChange = FromCoNameChange - end end object cxGrid2: TcxGrid [2] Left = 0 @@ -197,7 +165,6 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitHeight = 398 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -262,7 +229,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList item Format = #26465#25968':0' Kind = skCount - Column = v1Column6 + Column = Tv1IOTime end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -272,7 +239,21 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList Styles.Header = DataLink_DyeGreyClothStk.Default Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe - object v1Column6: TcxGridDBColumn + object Tv1lzckordno: TcxGridDBColumn + Caption = #26469#36135#21333#21495 + DataBinding.FieldName = 'lzckordno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1BCIOID: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1IOTime: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'IOTime' DataBinding.IsNullValueType = True @@ -280,6 +261,114 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList Options.Editing = False Width = 87 end + object Tv1ioType: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'ioType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1OrderNo: TcxGridDBColumn + Caption = #29983#20135#35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #25104#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 124 + end + object Tv1Column4: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'F_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column9: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'stkqty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column1: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'stkpiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column4: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'F_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv1Material: TcxGridDBColumn + Caption = #26448#36136 + DataBinding.FieldName = 'Material' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1finishDescription: TcxGridDBColumn + Caption = #21518#25972#29702#25551#36848 + DataBinding.FieldName = 'finishDescription' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 104 + end object v1Column14: TcxGridDBColumn Tag = 2 Caption = #26469#33258#21333#20301 @@ -297,168 +386,13 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList Options.Editing = False Width = 108 end - object v2Column1: TcxGridDBColumn - Tag = 2 - Caption = #21697#21517 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 124 - end - object v1Column8: TcxGridDBColumn - Tag = 2 - Caption = #35268#26684 - DataBinding.FieldName = 'C_Spec' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - HeaderGlyphAlignmentHorz = taCenter - Options.Editing = False - Width = 131 - end - object v1Column4: 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 = 70 - end - object Tv1Column4: TcxGridDBColumn - Caption = #24037#33402 - DataBinding.FieldName = 'C_GONGYI' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 71 - end - object Tv1Column5: TcxGridDBColumn - Caption = #22411#21495 - DataBinding.FieldName = 'C_XINHAO' + object Tv1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end - object Tv1Column6: TcxGridDBColumn - Caption = #26426#21488 - DataBinding.FieldName = 'C_JITAI' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 69 - end - object v1Column10: TcxGridDBColumn - Caption = #25209#21495 - DataBinding.FieldName = 'BatchNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 124 - end - object v1Column11: TcxGridDBColumn - Caption = #19994#21153#21592 - DataBinding.FieldName = 'Saleser' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 68 - end - object v1Column12: TcxGridDBColumn - Caption = #32852#31995#26041#24335 - DataBinding.FieldName = 'SalesPhone' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 73 - end - object v1Column7: TcxGridDBColumn - Caption = #20837#24211#21305#25968 - DataBinding.FieldName = 'piece' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 62 - end - object v1Column9: TcxGridDBColumn - Caption = #20837#24211#25968#37327 - DataBinding.FieldName = 'Qty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 63 - end - object v1Column1: TcxGridDBColumn - Caption = #24211#23384#21305#25968 - DataBinding.FieldName = 'stkpiece' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 69 - end - object v2Column6: TcxGridDBColumn - Tag = 2 - Caption = #24211#23384#25968#37327 - DataBinding.FieldName = 'stkqty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 74 - end - object v1Column3: TcxGridDBColumn - Tag = 2 - Caption = #21333#20301 - DataBinding.FieldName = 'QtyUnit' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxComboBoxProperties' - Properties.DropDownListStyle = lsFixedList - Properties.Items.Strings = ( - 'Kg' - 'M' - 'Y') - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 51 - end - object Tv1Column2: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'C_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 69 - end - object Tv1Column1: TcxGridDBColumn - Caption = #33394#21035 - DataBinding.FieldName = 'C_ColorDepth' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 72 - end - object Tv1Column3: TcxGridDBColumn - Caption = #24211#20301 - DataBinding.FieldName = 'StkPosition' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnButtonClick = Tv1Column3PropertiesButtonClick - Properties.OnEditValueChanged = Tv1Column3PropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 69 - end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 @@ -493,6 +427,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList Top = 232 end object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 PopupMenus = <> Left = 536 Top = 240 diff --git a/F01染色坯布仓库/U_DyeGreyClothStkList.pas b/F01染色坯布仓库/U_DyeGreyClothStkList.pas index 4e0fde1..60ec72a 100644 --- a/F01染色坯布仓库/U_DyeGreyClothStkList.pas +++ b/F01染色坯布仓库/U_DyeGreyClothStkList.pas @@ -35,39 +35,33 @@ type v2Column1: TcxGridDBColumn; v1Column8: TcxGridDBColumn; v1Column4: TcxGridDBColumn; - v1Column5: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; + Tv1Material: TcxGridDBColumn; v1Column1: TcxGridDBColumn; v2Column6: TcxGridDBColumn; - v1Column3: TcxGridDBColumn; cxGrid2Level1: TcxGridLevel; Label3: TLabel; - Label4: TLabel; Label8: TLabel; Label2: TLabel; C_name: TEdit; - FromCoName: TEdit; - C_spec: TEdit; - C_XINHAO: TEdit; - v1Column6: TcxGridDBColumn; + finishDescription: TEdit; + BCIOID: TEdit; + Tv1IOTime: TcxGridDBColumn; v1Column7: TcxGridDBColumn; v1Column9: TcxGridDBColumn; - v1Column11: TcxGridDBColumn; - v1Column12: TcxGridDBColumn; Label5: TLabel; - Saleser: TEdit; + ioType: TEdit; ToolButton2: TToolButton; - Tv1Column1: TcxGridDBColumn; - Tv1Column2: TcxGridDBColumn; - Tv1Column3: TcxGridDBColumn; - Label1: TLabel; - StkPosition: TEdit; ToolButton1: TToolButton; Edit1: TEdit; ADOQueryTmp: TADOQuery; Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; + Tv1finishDescription: TcxGridDBColumn; + Tv1lzckordno: TcxGridDBColumn; + Tv1BCIOID: TcxGridDBColumn; + Tv1ioType: TcxGridDBColumn; + Tv1OrderNo: TcxGridDBColumn; + Tv1QtyUnit: TcxGridDBColumn; + Tv1Note: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBRafreshClick(Sender: TObject); @@ -168,7 +162,7 @@ end; procedure TfrmDyeGreyClothStkList.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(trim(Self.Caption), Tv1, 'Ⱦɫֿ'); + ReadCxGrid(trim(Self.Caption), Tv1, 'б'); InitGrid(); end; @@ -230,7 +224,7 @@ end; procedure TfrmDyeGreyClothStkList.ToolButton2Click(Sender: TObject); begin - WriteCxGrid(trim(Self.Caption), Tv1, 'Ⱦɫֿ'); + WriteCxGrid(trim(Self.Caption), Tv1, 'б'); end; procedure TfrmDyeGreyClothStkList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); diff --git a/F01染色坯布仓库/U_DyeGreyClothStkSel.dfm b/F01染色坯布仓库/U_DyeGreyClothStkSel.dfm index fe843c2..8582f87 100644 --- a/F01染色坯布仓库/U_DyeGreyClothStkSel.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothStkSel.dfm @@ -178,7 +178,6 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 71 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -287,15 +286,15 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel Width = 90 end object Tv1Column4: TcxGridDBColumn - Caption = #25104#21697#32534#21495 - DataBinding.FieldName = 'C_COde' + Caption = #25104#21697#21517#31216 + DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 81 end object Tv1F_Code: TcxGridDBColumn - Caption = #22383#24067#32534#21495 - DataBinding.FieldName = 'F_Code' + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 diff --git a/F01染色坯布仓库/U_DyePBImport.dfm b/F01染色坯布仓库/U_DyePBImport.dfm new file mode 100644 index 0000000..0517cec --- /dev/null +++ b/F01染色坯布仓库/U_DyePBImport.dfm @@ -0,0 +1,220 @@ +inherited frmDyePBImport: TfrmDyePBImport + Left = 189 + Top = 138 + Caption = #22383#24067#20837#24211#23548#20837 + ClientHeight = 562 + ClientWidth = 1484 + Color = clWhite + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Position = poMainFormCenter + ExplicitWidth = 1500 + ExplicitHeight = 601 + PixelsPerInch = 107 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1484 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + Color = clSkyBlue + Images = DataLink_DyeGreyClothStk.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TbSelFile: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36873#25321#25991#20214 + ImageIndex = 12 + OnClick = TbSelFileClick + end + object ToolButton3: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 14 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #20445#23384#25968#25454 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 348 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 451 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid [1] + Left = 0 + Top = 30 + Width = 1484 + Height = 532 + Align = alClient + TabOrder = 1 + ExplicitTop = 22 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.MultiSelect = True + OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader] + OptionsView.GroupByBox = False + object v2Column6: TcxGridDBColumn + Caption = #29983#20135#35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 127 + end + object v2Column15: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 118 + end + object v2Column3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 111 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 163 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_DyeGreyClothStk.ADOLink + Left = 121 + Top = 160 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_DyeGreyClothStk.ADOLink + Left = 249 + Top = 161 + end + inherited ImageList_new32: TImageList + Left = 528 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DyeGreyClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 853 + Top = 193 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DyeGreyClothStk.ADOLink + Parameters = <> + Left = 941 + Top = 201 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DyeGreyClothStk.ADOLink + Parameters = <> + Left = 741 + Top = 201 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 648 + Top = 328 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 795 + Top = 323 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 720 + Top = 328 + end + object cxStyleRepository1: TcxStyleRepository + Left = 600 + Top = 200 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svTextColor] + TextColor = clRed + end + end + object OpenDialog1: TOpenDialog + Left = 226 + Top = 290 + end + object CDS_LM: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 328 + end +end diff --git a/F01染色坯布仓库/U_DyePBImport.pas b/F01染色坯布仓库/U_DyePBImport.pas new file mode 100644 index 0000000..920775e --- /dev/null +++ b/F01染色坯布仓库/U_DyePBImport.pas @@ -0,0 +1,282 @@ +unit U_DyePBImport; + +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, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, ComObj, + U_BaseList, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, + dxSkinsDefaultPainters, dxSkinsCore; + +type + TfrmDyePBImport = class(TfrmBaseHelp) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + GPM_1: TcxGridPopupMenu; + DS_1: TDataSource; + CDS_1: TClientDataSet; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + OpenDialog1: TOpenDialog; + TbSelFile: TToolButton; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + CDS_LM: TClientDataSet; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column6: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TbSelFileClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + FCTID: string; + end; + +var + frmDyePBImport: TfrmDyePBImport; + +implementation + +uses + U_DataLink, U_RTFun, U_DyeGreyClothInEdit; + +{$R *.dfm} + +procedure TfrmDyePBImport.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select * from BS_Cloth_IO where 2= 1 '); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDyePBImport.FormDestroy(Sender: TObject); +begin + inherited; + frmDyePBImport := nil; +end; + +procedure TfrmDyePBImport.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := cafree; + +end; + +procedure TfrmDyePBImport.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmDyePBImport.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(self.Caption, Tv1, 'BS_Cloth_IO'); + with CDS_LM do + begin + FieldDefs.Clear; + FieldDefs.Add('LXH', ftInteger, 0); + FieldDefs.Add('lCode', ftString, 40); + FieldDefs.Add('LName', ftString, 40); + close; + CreateDataSet; + end; + InitGrid(); +end; + +procedure TfrmDyePBImport.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmDyePBImport.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(self.Caption, Tv1, 'Ʒ'); +end; + +procedure TfrmDyePBImport.ToolButton2Click(Sender: TObject); +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not eof do + begin + + with frmDyeGreyClothInEdit.CDS_Sub do + begin + + Append; + FieldByName('OrderNo').Value := Trim(CDS_1.fieldbyname('OrderNo').AsString); + FieldByName('Qty').Value := Trim(CDS_1.fieldbyname('Qty').AsString); + FieldByName('Piece').Value := Trim(CDS_1.fieldbyname('Piece').AsString); + FieldByName('Note').Value := Trim(CDS_1.fieldbyname('Note').AsString); + FieldByName('Note').Value := 'ӹ'; + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select A.* from Dye_Plan_Main A '); + sql.add(' where MainId = ' + quotedStr(Trim(CDS_1.fieldbyname('OrderNo').AsString))); + open; + end; + frmDyeGreyClothInEdit.CDS_Sub.edit; + frmDyeGreyClothInEdit.CDS_Sub.FieldByName('OrderNo').Value := ADOQueryCmd.fieldbyname('OrderNo').asstring; + frmDyeGreyClothInEdit.CDS_Sub.FieldByName('C_Name').Value := ADOQueryCmd.fieldbyname('C_Name').asstring; + frmDyeGreyClothInEdit.CDS_Sub.FieldByName('C_Code').Value := ADOQueryCmd.fieldbyname('C_Code').asstring; + frmDyeGreyClothInEdit.CDS_Sub.FieldByName('F_Name').Value := ADOQueryCmd.fieldbyname('F_Name').asstring; + + frmDyeGreyClothInEdit.CDS_Sub.FieldByName('finishDescription').Value := ADOQueryCmd.fieldbyname('finishDescription').asstring; + frmDyeGreyClothInEdit.CDS_Sub.Post; + Next; + end; + end; + Application.MessageBox('ɹ', 'ʾϢ', MB_OK); + ADOQueryCmd.Connection.CommitTrans; + CDS_1.EnableControls; + close; + except + CDS_1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + + end; +end; + +procedure TfrmDyePBImport.ToolButton3Click(Sender: TObject); +begin + CDS_1.Delete; +end; + +procedure TfrmDyePBImport.TbSelFileClick(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, LX, ExcelRowCount: integer; + maxId, FCPID, FCPName, t1, t2, t3, FFID: string; +begin + + try + excelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter := '*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + excelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('EXCEL', 'Ϣ', MB_ICONERROR); + exit; + end; + + CDS_LM.EmptyDataSet; + + for j := 0 to Tv1.ColumnCount - 1 do + begin + with CDS_LM do + begin + Append; + FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName); + FieldByName('LName').Value := trim(Tv1.Columns[j].Caption); + Post; + end; + end; + + try + for i := 1 to 50 do + begin + if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then + continue; + if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then + begin + with CDS_LM do + begin + Edit; + FieldByName('LXH').Value := i; + Post; + end; + end; + end; + except + application.MessageBox('', 'Ϣ', MB_ICONERROR); + exit; + end; + + try + for i := 2 to ExcelRowCount do + begin + with CDS_1 do + begin + Append; + CDS_LM.First; + while not CDS_LM.Eof do + begin + if CDS_LM.FieldByName('LXH').AsInteger > 0 then + CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; + CDS_LM.Next; + end; + Post; + end; + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + application.MessageBox('д쳣жϣ', 'Ϣ', MB_ICONERROR); + exit; + end; + +end; + +end. + diff --git a/F01染色坯布仓库/U_DyePlanForCardSel.dfm b/F01染色坯布仓库/U_DyePlanForCardSel.dfm index 49587d9..ecd84c9 100644 --- a/F01染色坯布仓库/U_DyePlanForCardSel.dfm +++ b/F01染色坯布仓库/U_DyePlanForCardSel.dfm @@ -285,6 +285,13 @@ object frmProductOrderListSel: TfrmProductOrderListSel HeaderAlignmentHorz = taCenter Width = 66 end + object Tv1finishDescription: TcxGridDBColumn + Caption = #21518#25972#29702#25551#36848 + DataBinding.FieldName = 'finishDescription' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end object Tv1F_description: TcxGridDBColumn Caption = #22383#24067#25551#36848 DataBinding.FieldName = 'F_description' diff --git a/F01染色坯布仓库/U_DyePlanForCardSel.pas b/F01染色坯布仓库/U_DyePlanForCardSel.pas index a53f1ad..2ff6e85 100644 --- a/F01染色坯布仓库/U_DyePlanForCardSel.pas +++ b/F01染色坯布仓库/U_DyePlanForCardSel.pas @@ -54,6 +54,7 @@ type Label4: TLabel; C_Name: TEdit; Tv1F_description: TcxGridDBColumn; + Tv1finishDescription: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/F02染色计划单/DyePlan.dpr b/F02染色计划单/DyePlan.dpr index 7e70b1f..c7e9359 100644 --- a/F02染色计划单/DyePlan.dpr +++ b/F02染色计划单/DyePlan.dpr @@ -1,4 +1,4 @@ -library DyePlan; + library DyePlan; uses SysUtils, @@ -39,20 +39,21 @@ uses uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', U_DyeProcessDefin in 'U_DyeProcessDefin.pas' {frmDyeProcessDefin}, U_ProductInfoSel in '..\A00ͨô\U_ProductInfoSel.pas' {frmProductInfoSel}, - U_CraftSel in 'U_CraftSel.pas' {frmCraftSel}; + U_CraftSel in 'U_CraftSel.pas' {frmCraftSel}, + U_DyeSimpleTechnicsList in 'U_DyeSimpleTechnicsList.pas' {frmDyeSimpleTechnicsList}; {$R *.res} procedure DllEnterPoint(dwReason: DWORD); far; stdcall; begin - DLLProc := @DLLEnterPoint; + DLLProc := @DllEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH); end; procedure DLLUnloadProc(Reason: Integer); register; begin -// if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then -// Application := NewDllApp; + // if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then + // Application := NewDllApp; end; exports @@ -65,5 +66,5 @@ begin except end; -end. +end. diff --git a/F02染色计划单/DyePlan.dproj b/F02染色计划单/DyePlan.dproj index 43c7215..36834ba 100644 --- a/F02染色计划单/DyePlan.dproj +++ b/F02染色计划单/DyePlan.dproj @@ -195,6 +195,10 @@
frmCraftSel
dfm + +
frmDyeSimpleTechnicsList
+ dfm + Cfg_2 Base diff --git a/F02染色计划单/DyePlan.dproj.local b/F02染色计划单/DyePlan.dproj.local index ca11e01..4461dc0 100644 --- a/F02染色计划单/DyePlan.dproj.local +++ b/F02染色计划单/DyePlan.dproj.local @@ -1,64 +1,65 @@  - 1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas= - 1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas + 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas + 1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas + 1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas= 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas + 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.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.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 - 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.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899/12/30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas - 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas 1899/12/30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas 1899/12/30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm + 1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj 1899/12/30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm + 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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj - 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm - 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.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.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.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 + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 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.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas - 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm - 1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm + 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.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.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.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.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 @@ -128,5 +129,7 @@ + + diff --git a/F02染色计划单/DyePlan.identcache b/F02染色计划单/DyePlan.identcache index bd75939..74747d6 100644 Binary files a/F02染色计划单/DyePlan.identcache and b/F02染色计划单/DyePlan.identcache differ diff --git a/F02染色计划单/DyePlan.skincfg b/F02染色计划单/DyePlan.skincfg new file mode 100644 index 0000000..c0891d9 --- /dev/null +++ b/F02染色计划单/DyePlan.skincfg @@ -0,0 +1,5 @@ +[ExpressSkins] +Default=1 +ShowNotifications=1 +Enabled=1 +dxSkinsDefaultPainters=1 diff --git a/F02染色计划单/U_DyePlanCardInput.dfm b/F02染色计划单/U_DyePlanCardInput.dfm index 00381c7..a1510ab 100644 --- a/F02染色计划单/U_DyePlanCardInput.dfm +++ b/F02染色计划单/U_DyePlanCardInput.dfm @@ -1165,8 +1165,6 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput Align = alClient PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 2 - ExplicitTop = 45 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/F02染色计划单/U_DyePlanCardInput.pas b/F02染色计划单/U_DyePlanCardInput.pas index 28156ca..f1ba7bd 100644 --- a/F02染色计划单/U_DyePlanCardInput.pas +++ b/F02染色计划单/U_DyePlanCardInput.pas @@ -632,8 +632,8 @@ begin end; FPCIDS := FPCIDS + maxId + ';'; - if not GetLSNo(ADOQueryCmd, maxno, 'PC', 'BS_Cloth_IO', 3, 1) then - raise Exception.Create('ȡȾɫʧܣ'); +// if not GetLSNo(ADOQueryCmd, maxno, 'PC', 'BS_Cloth_IO', 3, 1) then +// raise Exception.Create('ȡȾɫʧܣ'); try ADOQueryCmd.Connection.BeginTrans; @@ -647,7 +647,7 @@ begin FieldByName('OrderNo').Value := OrderNo.Text; // FieldByName('SubId').Value := CDS_Color.FieldByName('SubId').Value; FieldByName('Mainid').Value := FMainid; - FieldByName('BCIOID').Value := maxno; +// FieldByName('BCIOID').Value := maxno; FieldByName('Filler').Value := trim(DName); FieldByName('Workshop').Value := trim(FWorkshop); FieldByName('PCType').Value := trim(PCType.Text); diff --git a/F02染色计划单/U_DyePlanInPut.dfm b/F02染色计划单/U_DyePlanInPut.dfm index fe91484..21b5b60 100644 --- a/F02染色计划单/U_DyePlanInPut.dfm +++ b/F02染色计划单/U_DyePlanInPut.dfm @@ -256,10 +256,10 @@ object frmDyePlanInPut: TfrmDyePlanInPut Width = 121 Height = 20 TabOrder = 3 + Text = #24050#35745#21010 Items.Strings = ( - '' - #24050#19979#36798 #24050#35745#21010 + #24050#19979#36798 #24050#32467#31639 #24050#21462#28040) end @@ -373,6 +373,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut ParentFont = False ShowCaptions = True TabOrder = 3 + ExplicitTop = 315 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -601,8 +602,8 @@ object frmDyePlanInPut: TfrmDyePlanInPut object CDS_1: TClientDataSet Aggregates = <> Params = <> - Left = 792 - Top = 464 + Left = 520 + Top = 456 end object GPM_1: TcxGridPopupMenu PopupMenus = <> diff --git a/F02染色计划单/U_DyePlanInPut.pas b/F02染色计划单/U_DyePlanInPut.pas index 4b451b0..c2f53f0 100644 --- a/F02染色计划单/U_DyePlanInPut.pas +++ b/F02染色计划单/U_DyePlanInPut.pas @@ -160,7 +160,7 @@ begin Edit; FieldByName('MainId').Value := ''; FieldByName('SubId').Value := ''; - FieldByName('carNum').Value := 0; +// FieldByName('carNum').Value := 0; Post; Next; end; @@ -187,6 +187,7 @@ begin Self.C_Name.Text := trim(CDS_1.FieldByName('C_Name').AsString); Self.C_Code.Text := trim(CDS_1.FieldByName('C_Code').AsString); + Self.F_Name.Text := trim(CDS_1.FieldByName('F_Name').AsString); end; CDS_1.EnableControls; diff --git a/F02染色计划单/U_DyePlanList.dfm b/F02染色计划单/U_DyePlanList.dfm index 1dd0f7b..a0df715 100644 --- a/F02染色计划单/U_DyePlanList.dfm +++ b/F02染色计划单/U_DyePlanList.dfm @@ -2,6 +2,7 @@ inherited frmDyePlanList: TfrmDyePlanList Caption = #29983#20135#25351#31034#21333 ClientHeight = 699 ClientWidth = 1401 + ExplicitLeft = -172 ExplicitWidth = 1417 ExplicitHeight = 738 PixelsPerInch = 96 @@ -101,40 +102,56 @@ inherited frmDyePlanList: TfrmDyePlanList ImageIndex = 21 OnClick = TBPrintClick end - object Tchk: TToolButton + object TbXiada: TToolButton Left = 663 Top = 0 AutoSize = True - Caption = #23457#26680 + Caption = #19979#36798 ImageIndex = 12 - OnClick = TchkClick + OnClick = TbXiadaClick end - object Tnochk: TToolButton + object TbNoXiada: TToolButton Left = 734 Top = 0 AutoSize = True - Caption = #25764#38144#23457#26680 + Caption = #25764#38144#19979#36798 ImageIndex = 11 - OnClick = TnochkClick + OnClick = TbNoXiadaClick end - object TWC: TToolButton + object TbJiesuan: TToolButton Left = 829 Top = 0 AutoSize = True - Caption = #35746#21333#23436#25104 + Caption = #32467#31639 ImageIndex = 12 - OnClick = TWCClick + OnClick = TbJiesuanClick end - object TNowc: TToolButton - Left = 924 + object TbNoJiesuan: TToolButton + Left = 900 Top = 0 AutoSize = True - Caption = #25764#38144#23436#25104 + Caption = #25764#38144#32467#31639 ImageIndex = 11 - OnClick = TNowcClick + OnClick = TbNoJiesuanClick + end + object TbQuxiao: TToolButton + Left = 995 + Top = 0 + AutoSize = True + Caption = #21462#28040 + ImageIndex = 12 + OnClick = TbQuxiaoClick + end + object TbNoQuxiao: TToolButton + Left = 1066 + Top = 0 + AutoSize = True + Caption = #25764#38144#21462#28040 + ImageIndex = 11 + OnClick = TbNoQuxiaoClick end object TBExport: TToolButton - Left = 1019 + Left = 1161 Top = 0 AutoSize = True Caption = #23548#20986 @@ -142,7 +159,7 @@ inherited frmDyePlanList: TfrmDyePlanList OnClick = TBExportClick end object ToolButton2: TToolButton - Left = 1090 + Left = 1232 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -150,7 +167,7 @@ inherited frmDyePlanList: TfrmDyePlanList OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 1185 + Left = 1327 Top = 0 AutoSize = True Caption = #20851#38381 @@ -168,6 +185,7 @@ inherited frmDyePlanList: TfrmDyePlanList BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 + ExplicitTop = 44 object Label1: TLabel Left = 18 Top = 17 @@ -440,6 +458,7 @@ inherited frmDyePlanList: TfrmDyePlanList Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom + ExplicitTop = 501 end object cxTabControl1: TcxTabControl [4] Left = 0 @@ -450,10 +469,10 @@ inherited frmDyePlanList: TfrmDyePlanList TabOrder = 4 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 4 + Properties.TabIndex = 0 Properties.Tabs.Strings = ( - #24050#19979#36798 #24050#35745#21010 + #24050#19979#36798 #24050#32467#31639 #24050#21462#28040 #20840#37096) @@ -484,6 +503,7 @@ 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 12b5c5c..cac9ff1 100644 --- a/F02染色计划单/U_DyePlanList.pas +++ b/F02染色计划单/U_DyePlanList.pas @@ -62,10 +62,10 @@ type cxSplitter1: TcxSplitter; DS_2: TDataSource; cxTabControl1: TcxTabControl; - Tchk: TToolButton; - Tnochk: TToolButton; - TWC: TToolButton; - TNowc: TToolButton; + TbXiada: TToolButton; + TbNoXiada: TToolButton; + TbQuxiao: TToolButton; + TbNoQuxiao: TToolButton; v1Column6: TcxGridDBColumn; Panel2: TPanel; ADOQueryImage: TADOQuery; @@ -94,6 +94,8 @@ type ToolButton3: TToolButton; TV2Column1: TcxGridDBColumn; Tv1C_PlanQty: TcxGridDBColumn; + TbJiesuan: TToolButton; + TbNoJiesuan: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -118,15 +120,17 @@ type procedure TBcopyClick(Sender: TObject); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure cxTabControl1Change(Sender: TObject); - procedure TchkClick(Sender: TObject); - procedure TnochkClick(Sender: TObject); - procedure TWCClick(Sender: TObject); - procedure TNowcClick(Sender: TObject); + procedure TbXiadaClick(Sender: TObject); + procedure TbNoXiadaClick(Sender: TObject); + procedure TbQuxiaoClick(Sender: TObject); + procedure TbNoQuxiaoClick(Sender: TObject); procedure Picture4DblClick(Sender: TObject); procedure Label3DblClick(Sender: TObject); procedure Label9DblClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); + procedure TbJiesuanClick(Sender: TObject); + procedure TbNoJiesuanClick(Sender: TObject); private DQdate: TDateTime; procedure InitGrid(); @@ -173,10 +177,13 @@ begin tbedit.Enabled := false; //޸ tbdel.Enabled := false; //ɾ TBcopy.Enabled := false; // - tchk.Enabled := false; // - tnochk.Enabled := false; // - twc.Enabled := false; // - tNOwc.Enabled := false; // + + TbXiada.Enabled := false; + TbNoXiada.Enabled := false; + TbJiesuan.Enabled := false; + TbNoJiesuan.Enabled := false; + TbQuxiao.Enabled := false; + TbNoQuxiao.Enabled := false; if Trim(canshu1) = '' then begin @@ -188,19 +195,22 @@ begin tbedit.Enabled := true; tbdel.Enabled := true; - twc.Enabled := true; + TbXiada.Enabled := true; end; 1: begin - tNOwc.Enabled := true; + TbNoXiada.Enabled := true; + TbJiesuan.Enabled := True; end; 2: begin - + TbNoJiesuan.Enabled := true; + TbQuxiao.Enabled := True; end; 3: begin + TbNoQuxiao.Enabled := True; end; end; end; @@ -331,11 +341,11 @@ begin case cxTabControl1.TabIndex of 0: begin - sql.Add(' and isnull(A.status,''0'') in(''´'') '); + sql.Add(' and isnull(A.status,''0'') in(''Ѽƻ'') '); end; 1: begin - sql.Add(' and isnull(A.status,''0'')in(''Ѽƻ'' )'); + sql.Add(' and isnull(A.status,''0'')in(''´'' )'); end; 2: begin @@ -693,6 +703,82 @@ begin end; end; +procedure TfrmDyePlanList.TbJiesuanClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if not Order_Main.Locate('SSel', True, []) then + begin + application.MessageBox('ѡݣ', 'ʾϢ', 0); + Exit; + end; + try + while Order_Main.Locate('SSel', True, []) do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Dye_Plan_Main SET status=''ѽ'' '); + sql.Add('where mainID=' + quotedstr(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; + Order_Main.Delete; + end; + + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmDyePlanList.TbNoJiesuanClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if not Order_Main.Locate('SSel', True, []) then + begin + application.MessageBox('ѡݣ', 'ʾϢ', 0); + Exit; + end; + try + while Order_Main.Locate('SSel', True, []) do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Dye_Plan_Main SET status=''´'' '); + sql.Add('where mainID=' + quotedstr(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; + Order_Main.Delete; + end; + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + procedure TfrmDyePlanList.TBcopyClick(Sender: TObject); begin if Order_Main.IsEmpty then @@ -728,7 +814,7 @@ begin InitGrid(); end; -procedure TfrmDyePlanList.TchkClick(Sender: TObject); +procedure TfrmDyePlanList.TbXiadaClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; @@ -744,13 +830,14 @@ begin begin close; sql.Clear; - sql.Add('update Dye_Plan_Main SET status=''9'' '); + sql.Add('update Dye_Plan_Main SET status=''´'' '); sql.Add('where mainID=' + quotedstr(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('´'))); sql.Add(',' + quotedstr(trim('ţ' + trim(Order_Main.FieldByName('orderNO').AsString)))); sql.Add(',' + quotedstr(trim('ɹ'))); sql.Add(')'); @@ -759,14 +846,14 @@ begin Order_Main.Delete; end; - application.MessageBox('˳ɹ', 'ʾϢ'); + application.MessageBox('´ɹ', 'ʾϢ'); TBRafresh.Click; except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('´ʧܣ', 'ʾϢ', 0); end; end; -procedure TfrmDyePlanList.TnochkClick(Sender: TObject); +procedure TfrmDyePlanList.TbNoXiadaClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; @@ -782,13 +869,13 @@ begin begin close; sql.Clear; - sql.Add('update Dye_Plan_Main SET status=''0'' '); + sql.Add('update Dye_Plan_Main SET status=''Ѽƻ'' '); sql.Add('where mainID=' + quotedstr(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('´'))); sql.Add(',' + quotedstr(trim('ţ' + trim(Order_Main.FieldByName('orderNO').AsString)))); sql.Add(',' + quotedstr(trim('ɹ'))); sql.Add(')'); @@ -796,14 +883,14 @@ begin end; Order_Main.Delete; end; - application.MessageBox('˳ɹ', 'ʾϢ'); + application.MessageBox('´ɹ', 'ʾϢ'); TBRafresh.Click; except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('´ʧܣ', 'ʾϢ', 0); end; end; -procedure TfrmDyePlanList.TWCClick(Sender: TObject); +procedure TfrmDyePlanList.TbQuxiaoClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; @@ -819,13 +906,13 @@ begin begin close; sql.Clear; - sql.Add('update Dye_Plan_Main SET status=''10'' '); + sql.Add('update Dye_Plan_Main SET status=''ȡ'' '); sql.Add('where mainID=' + quotedstr(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('ȡ'))); sql.Add(',' + quotedstr(trim('ţ' + trim(Order_Main.FieldByName('orderNO').AsString)))); sql.Add(',' + quotedstr(trim('ɹ'))); sql.Add(')'); @@ -833,14 +920,14 @@ begin end; Order_Main.Delete; end; - application.MessageBox('ɳɹ', 'ʾϢ'); + application.MessageBox('ȡɹ', 'ʾϢ'); TBRafresh.Click; except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('ȡʧܣ', 'ʾϢ', 0); end; end; -procedure TfrmDyePlanList.TNowcClick(Sender: TObject); +procedure TfrmDyePlanList.TbNoQuxiaoClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; @@ -856,13 +943,13 @@ begin begin close; sql.Clear; - sql.Add('update Dye_Plan_Main SET status=''9'' '); + sql.Add('update Dye_Plan_Main SET status=''ѽ'' '); sql.Add('where mainID=' + quotedstr(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('ȡ'))); sql.Add(',' + quotedstr(trim('ţ' + trim(Order_Main.FieldByName('orderNO').AsString)))); sql.Add(',' + quotedstr(trim('ɹ'))); sql.Add(')'); diff --git a/F02染色计划单/U_DyeProcessDefin.dfm b/F02染色计划单/U_DyeProcessDefin.dfm index 4ce2f47..1eac792 100644 --- a/F02染色计划单/U_DyeProcessDefin.dfm +++ b/F02染色计划单/U_DyeProcessDefin.dfm @@ -62,7 +62,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin Height = 772 Align = alClient TabOrder = 0 - Properties.ActivePage = CCQX + Properties.ActivePage = RGQX Properties.CustomButtons.Buttons = <> ClientRectBottom = 770 ClientRectLeft = 2 @@ -636,12 +636,14 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin 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 @@ -2415,6 +2417,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin '' #28165#27700 #38450#27700 + #25239#33740 #38450#32432#35010) Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' @@ -2593,43 +2596,25 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin Left = 0 Top = 0 Width = 1143 - Height = 554 + Height = 570 Align = alClient TabOrder = 0 - object TbGJReplace2: TcxButton + object TbGJReplace1: TcxButton Left = 100 - Top = 279 + Top = 301 Width = 75 Height = 25 Caption = #19968#38190#26367#25442 TabOrder = 0 - OnClick = TbGJReplace2Click + OnClick = TbGJReplace1Click end - object TbGJClear2: TcxButton + object TbGjClear1: TcxButton Left = 187 - Top = 279 + Top = 301 Width = 75 Height = 25 Caption = #19968#38190#28165#31354 TabOrder = 1 - OnClick = TbGJClear2Click - end - object TbGJReplace1: TcxButton - Left = 102 - Top = 158 - Width = 75 - Height = 25 - Caption = #19968#38190#26367#25442 - TabOrder = 2 - OnClick = TbGJReplace1Click - end - object TbGjClear1: TcxButton - Left = 189 - Top = 158 - Width = 75 - Height = 25 - Caption = #19968#38190#28165#31354 - TabOrder = 3 OnClick = TbGjClear1Click end object cxLabel233: TcxLabel @@ -2637,41 +2622,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin Top = 29 Caption = #28888#31570#21387#21147'(MPA)' end - object cxLabel234: TcxLabel - Left = 277 - Top = 315 - Caption = '2#' - end - object cxLabel235: TcxLabel - Left = 6 - Top = 283 - Caption = #28201#25511#8451':' - end - object cxLabel236: TcxLabel - Left = 34 - Top = 312 - Caption = '1#' - end - object cxLabel237: TcxLabel - Left = 34 - Top = 344 - Caption = '5#' - end - object cxLabel238: TcxLabel - Left = 34 - Top = 375 - Caption = '9#' - end - object cxLabel239: TcxLabel - Left = 36 - Top = 29 - Caption = #36710#23614#38376#24133'(cm)' - end - object cxLabel240: TcxLabel - Left = 36 - Top = 56 - Caption = #36710#36895'(M/Min)' - end object cxLabel241: TcxLabel Left = 6 Top = 7 @@ -2679,12 +2629,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object cxLabel242: TcxLabel Left = 49 - Top = 493 + Top = 505 Caption = #22791#27880 end object cxLabel243: TcxLabel - Left = 599 - Top = 29 + Left = 34 + Top = 153 Caption = #19978#36229#21890#29575'(%)' end object cxLabel244: TcxLabel @@ -2694,49 +2644,19 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object cxLabel245: TcxLabel Left = 36 - Top = 82 + Top = 80 Caption = #24352#21147'(MPA)' end object cxLabel246: TcxLabel - Left = 599 - Top = 80 + Left = 557 + Top = 153 Caption = #19978#38024'(%)' end - object cxLabel247: TcxLabel - Left = 277 - Top = 345 - Caption = '6#' - end object cxLabel248: TcxLabel - Left = 599 - Top = 55 + Left = 295 + Top = 153 Caption = #19979#36229#21890#29575'(%)' end - object cxLabel249: TcxLabel - Left = 487 - Top = 317 - Caption = '3#' - end - object cxLabel250: TcxLabel - Left = 689 - Top = 315 - Caption = '4#' - end - object cxLabel251: TcxLabel - Left = 487 - Top = 346 - Caption = '7#' - end - object cxLabel252: TcxLabel - Left = 689 - Top = 345 - Caption = '8#' - end - object cxLabel253: TcxLabel - Left = 277 - Top = 375 - Caption = '10#' - end object cxLabel254: TcxLabel Left = 315 Top = 55 @@ -2748,118 +2668,302 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin Caption = #28888#31570#28201#24230'('#8451')' end object cxLabel256: TcxLabel - Left = 278 - Top = 194 + Left = 276 + Top = 337 Caption = '2#' end object cxLabel257: TcxLabel - Left = 6 - Top = 162 + Left = 4 + Top = 305 Caption = #28909#39118'r/min:' end object cxLabel258: TcxLabel - Left = 35 - Top = 191 + Left = 33 + Top = 334 Caption = '1#' end object cxLabel259: TcxLabel - Left = 35 - Top = 223 + Left = 33 + Top = 366 Caption = '5#' end object cxLabel260: TcxLabel - Left = 35 - Top = 254 + Left = 33 + Top = 397 Caption = '9#' end object cxLabel261: TcxLabel - Left = 278 - Top = 224 + Left = 276 + Top = 367 Caption = '6#' end object cxLabel262: TcxLabel - Left = 488 - Top = 196 + Left = 486 + Top = 339 Caption = '3#' end object cxLabel263: TcxLabel - Left = 690 - Top = 194 + Left = 688 + Top = 337 Caption = '4#' end object cxLabel264: TcxLabel - Left = 488 - Top = 225 + Left = 486 + Top = 368 Caption = '7#' end object cxLabel265: TcxLabel - Left = 690 - Top = 224 + Left = 688 + Top = 367 Caption = '8#' end object cxLabel266: TcxLabel - Left = 278 - Top = 254 + Left = 276 + Top = 397 Caption = '10#' end object cxLabel267: TcxLabel Left = 277 - Top = 438 + Top = 459 Caption = '2#' end object cxLabel268: TcxLabel Left = 5 - Top = 408 + Top = 429 Caption = #25490#39118'r/min:' end object cxLabel269: TcxLabel Left = 34 - Top = 435 + Top = 456 Caption = '1#' end object cxLabel270: TcxLabel Left = 487 - Top = 440 + Top = 461 Caption = '3#' end object cxLabel271: TcxLabel Left = 689 - Top = 438 + Top = 459 Caption = '4#' end object cxLabel272: TcxLabel - Left = 488 - Top = 254 - Caption = '11#' - end - object cxLabel273: TcxLabel - Left = 487 - Top = 375 + Left = 486 + Top = 397 Caption = '11#' end object cxLabel274: TcxLabel - Left = 599 - Top = 106 + Left = 582 + Top = 29 Caption = #24038#38388#38553'('#19997')' end object cxLabel275: TcxLabel - Left = 599 - Top = 132 + Left = 582 + Top = 55 Caption = #21491#38388#38553'('#19997')' end object cxLabel276: TcxLabel - Left = 36 - Top = 106 + Left = 582 + Top = 80 Caption = #33853#24067'(%)' end object cxLabel277: TcxLabel - Left = 36 - Top = 132 + 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' @@ -2868,10 +2972,10 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin TabOrder = 49 Width = 150 end - object gj_DownSuperRate: TcxTextEdit + object gj_Rolling: TcxTextEdit Tag = 2 - Left = 672 - Top = 54 + Left = 655 + Top = 104 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2879,195 +2983,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin TabOrder = 50 Width = 150 end - object gj_fallCloth: TcxTextEdit - Tag = 2 - Left = 112 - Top = 104 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 51 - Width = 150 - end - object gj_hotWind1: TcxTextEdit - Tag = 2 - Left = 101 - Top = 191 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 52 - Width = 150 - end - object gj_hotWind10: TcxTextEdit - Tag = 2 - Left = 300 - Top = 251 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 53 - Width = 150 - end - object gj_hotWind11: TcxTextEdit - Tag = 2 - Left = 509 - Top = 251 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 54 - Width = 150 - end - object gj_hotWind2: TcxTextEdit - Tag = 2 - Left = 300 - Top = 191 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 55 - Width = 150 - end - object gj_hotWind3: TcxTextEdit - Tag = 2 - Left = 509 - Top = 191 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 56 - Width = 150 - end - object gj_hotWind4: TcxTextEdit - Tag = 2 - Left = 708 - Top = 191 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 57 - Width = 150 - end - object gj_hotWind5: TcxTextEdit - Tag = 2 - Left = 101 - Top = 221 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 58 - Width = 150 - end - object gj_hotWind6: TcxTextEdit - Tag = 2 - Left = 300 - Top = 221 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 59 - Width = 150 - end - object gj_hotWind7: TcxTextEdit - Tag = 2 - Left = 509 - Top = 221 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 60 - Width = 150 - end - object gj_hotWind8: TcxTextEdit - Tag = 2 - Left = 708 - Top = 221 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 61 - Width = 150 - end - object gj_hotWind9: TcxTextEdit - Tag = 2 - Left = 101 - Top = 251 - Hint = #21038#33014#28909#39118 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 62 - Width = 150 - end - object gj_leftGap: TcxTextEdit - Tag = 2 - Left = 672 - Top = 104 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 63 - Width = 150 - end - object gj_Precautions: TcxTextEdit - Tag = 2 - Left = 100 - Top = 479 - AutoSize = False - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 64 - Height = 50 - Width = 650 - end - object gj_rightGap: TcxTextEdit - Tag = 2 - Left = 672 - Top = 130 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 65 - Width = 150 - end - object gj_Rolling: TcxTextEdit - Tag = 2 - Left = 112 - Top = 130 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 66 - Width = 150 - end object gj_RollMethod: TcxComboBox Tag = 2 Left = 397 @@ -3081,7 +2996,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 67 + TabOrder = 51 Width = 150 end object gj_RosePower: TcxTextEdit @@ -3092,198 +3007,55 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 68 + TabOrder = 52 Width = 150 end object gj_rowWind1: TcxTextEdit Tag = 2 Left = 100 - Top = 435 + Top = 456 Hint = #21038#33014#25490#39118 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 69 + TabOrder = 53 Width = 150 end object gj_rowWind2: TcxTextEdit Tag = 2 Left = 299 - Top = 435 + Top = 456 Hint = #21038#33014#25490#39118 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 70 + TabOrder = 54 Width = 150 end object gj_rowWind3: TcxTextEdit Tag = 2 Left = 508 - Top = 435 + Top = 456 Hint = #21038#33014#25490#39118 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 71 + TabOrder = 55 Width = 150 end object gj_rowWind4: TcxTextEdit Tag = 2 Left = 707 - Top = 435 + Top = 456 Hint = #21038#33014#25490#39118 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 72 - Width = 150 - end - object gj_speed: TcxTextEdit - Tag = 2 - Left = 112 - Top = 54 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 73 - Width = 150 - end - object gj_temperature1: TcxTextEdit - Tag = 2 - Left = 100 - Top = 312 - Hint = #21038#33014#28201#25511 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 74 - Width = 150 - end - object gj_temperature10: TcxTextEdit - Tag = 2 - Left = 299 - Top = 372 - Hint = #21038#33014#28201#25511 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 75 - Width = 150 - end - object gj_temperature11: TcxTextEdit - Tag = 2 - Left = 508 - Top = 372 - Hint = #21038#33014#28201#25511 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 76 - Width = 150 - end - object gj_temperature2: TcxTextEdit - Tag = 2 - Left = 299 - Top = 312 - Hint = #21038#33014#28201#25511 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 77 - Width = 150 - end - object gj_temperature3: TcxTextEdit - Tag = 2 - Left = 508 - Top = 312 - 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_temperature4: TcxTextEdit - Tag = 2 - Left = 707 - Top = 312 - 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_temperature5: TcxTextEdit - Tag = 2 - Left = 100 - Top = 342 - 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_temperature6: TcxTextEdit - Tag = 2 - Left = 299 - Top = 342 - 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_temperature7: TcxTextEdit - Tag = 2 - Left = 508 - Top = 342 - 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_temperature8: TcxTextEdit - Tag = 2 - Left = 707 - Top = 342 - 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_temperature9: TcxTextEdit - Tag = 2 - Left = 100 - Top = 372 - Hint = #21038#33014#28201#25511 - Style.LookAndFeel.SkinName = 'WXI' - StyleDisabled.LookAndFeel.SkinName = 'WXI' - StyleFocused.LookAndFeel.SkinName = 'WXI' - StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 84 + TabOrder = 56 Width = 150 end object gj_TubePress: TcxTextEdit @@ -3294,7 +3066,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 85 + TabOrder = 57 Width = 150 end object gj_tubeTemper: TcxTextEdit @@ -3305,13 +3077,245 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 86 + TabOrder = 58 Width = 150 end object gj_upperNeedle: TcxTextEdit Tag = 2 - Left = 672 - Top = 79 + 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' @@ -3319,10 +3323,11 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin TabOrder = 87 Width = 150 end - object gj_UpSuperRate: TcxTextEdit + object gj_temperature9: TcxTextEdit Tag = 2 - Left = 672 - Top = 28 + Left = 100 + Top = 275 + Hint = #21038#33014#28201#25511 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -3330,46 +3335,49 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin TabOrder = 88 Width = 150 end - object gj_WidthAmplitude: TcxTextEdit + 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 = 89 + TabOrder = 93 Width = 150 end - object TbGJReplace3: TcxButton - Left = 97 - Top = 402 - Width = 75 - Height = 25 - Caption = #19968#38190#26367#25442 - TabOrder = 90 - OnClick = TbGJReplace3Click - end - object TbGJClear3: TcxButton - Left = 184 - Top = 402 - Width = 75 - Height = 25 - Caption = #19968#38190#28165#31354 - TabOrder = 91 - OnClick = TbGJClear3Click - end - object cxLabel197: TcxLabel - Left = 6 - Top = 534 - Caption = #27974#26009#37197#27604':' - end end object cxGrid3: TcxGrid Left = 0 - Top = 592 + Top = 608 Width = 1143 - Height = 156 + Height = 140 Align = alBottom Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -3477,7 +3485,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object ToolBar5: TToolBar Left = 0 - Top = 554 + Top = 570 Width = 1143 Height = 38 Align = alBottom @@ -3584,8 +3592,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin Caption = '9#' end object cxLabel290: TcxLabel - Left = 34 - Top = 32 + Left = 30 + Top = 58 Caption = #36710#36895'(M/Min)' end object cxLabel291: TcxLabel @@ -3609,8 +3617,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin Caption = #26426#23614#21367#24067#26041#27861 end object cxLabel295: TcxLabel - Left = 34 - Top = 58 + Left = 30 + Top = 83 Caption = #24352#21147'(MPA)' end object cxLabel296: TcxLabel @@ -3764,13 +3772,13 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin Caption = #21491#38388#38553'('#19997')' end object cxLabel326: TcxLabel - Left = 34 - Top = 83 + Left = 30 + Top = 109 Caption = #33853#24067'(%)' end object cxLabel327: TcxLabel - Left = 34 - Top = 109 + Left = 30 + Top = 135 Caption = #25171#21367'(%)' end object fp_CarPress: TcxTextEdit @@ -3797,8 +3805,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object fp_fallCloth: TcxTextEdit Tag = 2 - Left = 110 - Top = 82 + Left = 106 + Top = 107 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -3975,8 +3983,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object fp_Rolling: TcxTextEdit Tag = 2 - Left = 110 - Top = 107 + Left = 106 + Top = 133 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -4002,8 +4010,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object fp_RosePower: TcxTextEdit Tag = 2 - Left = 110 - Top = 56 + Left = 106 + Top = 82 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -4061,8 +4069,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object fp_speed: TcxTextEdit Tag = 2 - Left = 110 - Top = 31 + Left = 106 + Top = 57 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -4248,23 +4256,23 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object cxLabel27: TcxLabel Left = 286 - Top = 175 + Top = 181 Caption = #27969#37327'(L/h)' end object cxLabel39: TcxLabel Left = 4 - Top = 148 + Top = 154 Caption = #21457#27873#26426':' end object cxLabel164: TcxLabel Left = 522 - Top = 175 + Top = 181 Caption = #27668#20307'(L/h)' end object fp_Flow: TcxTextEdit Tag = 2 Left = 358 - Top = 174 + Top = 180 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -4275,7 +4283,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin object fp_Gas: TcxTextEdit Tag = 2 Left = 595 - Top = 174 + Top = 180 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -4285,13 +4293,13 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin end object cxLabel168: TcxLabel Left = 22 - Top = 175 + Top = 181 Caption = #25605#25292#36716#36895'(r/min)' end object fp_mixSpeed: TcxTextEdit Tag = 2 Left = 115 - Top = 174 + Top = 180 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -4322,6 +4330,22 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin 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 diff --git a/F02染色计划单/U_DyeProcessDefin.pas b/F02染色计划单/U_DyeProcessDefin.pas index 485685c..d34713a 100644 --- a/F02染色计划单/U_DyeProcessDefin.pas +++ b/F02染色计划单/U_DyeProcessDefin.pas @@ -438,31 +438,16 @@ type fp_upperNeedle: TcxTextEdit; fp_UpSuperRate: TcxTextEdit; Panel_gj: TPanel; - TbGJReplace2: TcxButton; - TbGJClear2: TcxButton; TbGJReplace1: TcxButton; TbGjClear1: TcxButton; cxLabel233: TcxLabel; - cxLabel234: TcxLabel; - cxLabel235: TcxLabel; - cxLabel236: TcxLabel; - cxLabel237: TcxLabel; - cxLabel238: TcxLabel; - cxLabel239: TcxLabel; - cxLabel240: TcxLabel; cxLabel241: TcxLabel; cxLabel242: TcxLabel; cxLabel243: TcxLabel; cxLabel244: TcxLabel; cxLabel245: TcxLabel; cxLabel246: TcxLabel; - cxLabel247: TcxLabel; cxLabel248: TcxLabel; - cxLabel249: TcxLabel; - cxLabel250: TcxLabel; - cxLabel251: TcxLabel; - cxLabel252: TcxLabel; - cxLabel253: TcxLabel; cxLabel254: TcxLabel; cxLabel255: TcxLabel; cxLabel256: TcxLabel; @@ -482,7 +467,6 @@ type cxLabel270: TcxLabel; cxLabel271: TcxLabel; cxLabel272: TcxLabel; - cxLabel273: TcxLabel; cxLabel274: TcxLabel; cxLabel275: TcxLabel; cxLabel276: TcxLabel; @@ -511,23 +495,10 @@ type gj_rowWind2: TcxTextEdit; gj_rowWind3: TcxTextEdit; gj_rowWind4: TcxTextEdit; - gj_speed: TcxTextEdit; - 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; gj_TubePress: TcxTextEdit; gj_tubeTemper: TcxTextEdit; gj_upperNeedle: TcxTextEdit; gj_UpSuperRate: TcxTextEdit; - gj_WidthAmplitude: TcxTextEdit; Panel_fs: TPanel; TbFSReplace1: TcxButton; TbFSClear1: TcxButton; @@ -798,6 +769,38 @@ type 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 TbSaveClick(Sender: TObject); @@ -1068,10 +1071,6 @@ var begin InitGrid(); ArrangeTabsByDataset(); - if (BtnInt = 0) and (frmDyeTechnicsinput.CDS_1.FieldByName('PSID').Value = '') then // - begin - FPSID := ''; - end; with ADOQueryTemp do begin @@ -1123,15 +1122,6 @@ begin SCSHData(ADOQueryTemp, Panel_zm, 2); end; - if BtnInt = 2 then // - begin -// FPSID := ''; -// PSName.Text := ''; - end; - if ((BtnInt = 1) or (BtnInt = 0)) and (frmDyeTechnicsinput.CDS_1.FieldByName('PSID').AsString <> '') then //޸ - begin -// PSName.Enabled := False; - end; if BtnInt = 3 then //鿴 begin TbSave.Visible := False; @@ -1182,24 +1172,24 @@ begin Exit; end; - if frmDyeTechnicsinput.CDS_1.FieldByName('DTMID').AsString <> '' then/// - begin -// FPSID := ''; - with ADOQueryCmd do - begin - Close; - SQL.Clear; - sql.Add('select * from Dye_Process where PSName=''' + trim(PSName.Text) + ''''); - sql.Add(' and DTMID = '+ QuotedStr(Trim(frmDyeTechnicsinput.CDS_1.FieldByName('DTMID').AsString))); - Open; - end; - if ADOQueryCmd.RecordCount > 1 then - begin - application.MessageBox(PChar('''' + trim(PSName.text) + '''Ѵ'), 'ʾ'); - Result := false; - Exit; - end; - end; +// if frmDyeTechnicsinput.CDS_1.FieldByName('DTMID').AsString <> '' then/// +// begin +//// FPSID := ''; +// with ADOQueryCmd do +// begin +// Close; +// SQL.Clear; +// sql.Add('select * from Dye_Process where PSName=''' + trim(PSName.Text) + ''''); +// sql.Add(' and DTMID = '+ QuotedStr(Trim(frmDyeTechnicsinput.CDS_1.FieldByName('DTMID').AsString))); +// Open; +// end; +// if ADOQueryCmd.RecordCount > 1 then +// begin +// application.MessageBox(PChar('''' + trim(PSName.text) + '''Ѵ'), 'ʾ'); +// Result := false; +// Exit; +// end; +// end; Result := True; end; @@ -1295,9 +1285,53 @@ begin RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_fs, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_gj, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel_fp, 2); + +// if FPSType = 'ë' then +// begin +// ADOQueryCmd.FieldByName('All_Speed').Value := StrToFloat(zm_inout.Text); +// end +// else if FPSType = 'ϴ' then +// begin +// ADOQueryCmd.FieldByName('All_Speed').Value := StrToFloat(ccqx_speed.Text); +// end +// else if FPSType = 'Ⱦϴ' then +// begin +// ADOQueryCmd.FieldByName('All_Speed').Value := StrToFloat(rgqx_speed.Text); +// end +// else if FPSType = 'ϴ' then +// begin +//// jgqx_keepTemper.Text +//// jgqx_upperSpeed.Text +//// jgqx_keepTime.Text +//// jgqx_downSpeed.Text +// ADOQueryCmd.FieldByName('All_Speed').Value := +// (StrToFloat(jgqx_keepTemper.Text) - 40)/StrToFloat(jgqx_upperSpeed.Text) +// + StrToFloat(jgqx_keepTime.Text) +// + (StrToFloat(jgqx_keepTemper.Text) - 40)/StrToFloat(jgqx_downSpeed.Text); +// end +// else if FPSType = 'ɶ' then +// begin +// ADOQueryCmd.FieldByName('All_Speed').Value := StrToFloat(dx_speed.Text); +// end +// else if FPSType = 'ˮ' then +// begin +// ADOQueryCmd.FieldByName('All_Speed').Value := StrToFloat(fs_speed.Text); +// end +// else if FPSType = 'ν' then +// begin +// ADOQueryCmd.FieldByName('All_Speed').Value := StrToFloat(gj_speed.Text); +// end +// else if FPSType = '' then +// begin +// ADOQueryCmd.FieldByName('All_Speed').Value := StrToFloat(fp_speed.Text); +// end; + Post; end; + + + //////////////// ////////////////////// /// ///// diff --git a/F02染色计划单/U_DyeSimpleTechnicsList.dfm b/F02染色计划单/U_DyeSimpleTechnicsList.dfm new file mode 100644 index 0000000..c708b1b --- /dev/null +++ b/F02染色计划单/U_DyeSimpleTechnicsList.dfm @@ -0,0 +1,2580 @@ +inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList + Left = -55 + Caption = #24037#33402#30331#35760 + ClientHeight = 845 + ClientWidth = 1540 + Position = poDesigned + ExplicitWidth = 1556 + ExplicitHeight = 884 + PixelsPerInch = 96 + TextHeight = 12 + object Splitter1: TSplitter [0] + Left = 785 + Top = 99 + Height = 746 + ExplicitLeft = 800 + ExplicitTop = 328 + ExplicitHeight = 100 + end + object ToolBar1: TToolBar [1] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + 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 TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object TBDel: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #38145#23450 + ImageIndex = 16 + OnClick = TchkClick + end + object TNochk: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #25764#38144#38145#23450 + ImageIndex = 11 + OnClick = TNochkClick + end + object ToolButton3: TToolButton + Left = 592 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 687 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [2] + Left = 0 + Top = 38 + Width = 1540 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 316 + Top = 13 + Width = 48 + Height = 12 + Caption = #24037#33402#21517#31216 + end + object Label3: TLabel + Left = 30 + Top = 13 + Width = 48 + Height = 12 + Caption = #24037#33402#32534#21495 + end + object DTMName: TEdit + Tag = 2 + Left = 366 + Top = 9 + Width = 180 + Height = 20 + TabOrder = 0 + OnChange = DTMNoChange + end + object DTMNo: TEdit + Tag = 2 + Left = 78 + Top = 9 + Width = 180 + Height = 20 + TabOrder = 1 + OnChange = DTMNoChange + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 76 + Width = 1540 + Height = 23 + Align = alTop + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#38145#23450 + #24050#38145#23450 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1540 + ClientRectTop = 19 + end + object Panel2: TPanel [4] + Left = 0 + Top = 99 + Width = 785 + Height = 746 + Align = alLeft + TabOrder = 3 + object Splitter2: TSplitter + Left = 577 + Top = 1 + Height = 744 + ExplicitLeft = 696 + ExplicitTop = 88 + ExplicitHeight = 100 + end + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 576 + Height = 744 + Align = alLeft + TabOrder = 0 + ExplicitLeft = -1 + ExplicitTop = 6 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = Tv2FocusedRecordChanged + 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 = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.ColumnAutoWidth = True + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DyePlan.FonePurple + object v2Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 33 + end + object v2GYNO: TcxGridDBColumn + Caption = #24037#33402#32534#21495 + DataBinding.FieldName = 'DTMNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 122 + end + object v2GYName: TcxGridDBColumn + Caption = #24037#33402#21517#31216 + DataBinding.FieldName = 'DTMName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v2GYGX: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'DTMPSlist' + DataBinding.IsNullValueType = True + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 210 + end + object Tv2DTMID: TcxGridDBColumn + Caption = #24037#33402#20027#38190 + DataBinding.FieldName = 'DTMID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 96 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel3: TPanel + Left = 580 + Top = 1 + Width = 204 + Height = 744 + Align = alClient + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 202 + Height = 385 + Align = alTop + TabOrder = 0 + ExplicitLeft = 0 + ExplicitTop = -5 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_PsType + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + object Tv1PSType: TcxGridDBColumn + Caption = #24037#24207#31867#21035 + DataBinding.FieldName = 'PSType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid9: TcxGrid + Left = 1 + Top = 386 + Width = 202 + Height = 357 + Align = alClient + TabOrder = 1 + ExplicitLeft = 2 + ExplicitTop = 392 + object Tv3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_GX + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + object Tv3PSNO: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSNO' + 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> + Properties.OnButtonClick = ButtonEdit + 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 + end + object cxGridLevel8: TcxGridLevel + GridView = Tv3 + end + end + end + end + object ScrollBox1: TScrollBox [5] + Left = 788 + Top = 99 + Width = 752 + 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 + end + object TbGJClear2: TcxButton + Left = 90 + Top = 29 + Width = 50 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 5 + 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 cxGridDBColumn25: TcxGridDBColumn + Caption = #21333#20301'(%)' + DataBinding.FieldName = 'ccqx_unit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #29992#37327 + DataBinding.FieldName = 'ccqx_use' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + 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 cxGridDBColumn28: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'ccqx_precautions' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGridLevel7: TcxGridLevel + GridView = TvGJ + end + end + object cxLabel9: TcxLabel + Left = 534 + Top = 53 + Caption = #22791#27880 + end + object cxButton7: TcxButton + Left = 287 + Top = 6 + Width = 40 + Height = 20 + Caption = #22686#34892 + TabOrder = 30 + end + object cxButton8: TcxButton + Left = 287 + Top = 37 + Width = 40 + Height = 20 + Caption = #21024#34892 + TabOrder = 31 + end + object gj_Precautions: TcxMemo + Left = 568 + Top = 39 + Properties.Alignment = taLeftJustify + Properties.ScrollBars = ssVertical + TabOrder = 32 + Height = 50 + Width = 140 + 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 + end + object TbFPClear2: TcxButton + Left = 90 + Top = 30 + Width = 50 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 5 + 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 cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20301'(%)' + DataBinding.FieldName = 'ccqx_unit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #29992#37327 + DataBinding.FieldName = 'ccqx_use' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + 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 cxGridDBColumn18: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'ccqx_precautions' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGridLevel5: TcxGridLevel + GridView = TvFP + end + end + object cxLabel8: TcxLabel + Left = 534 + Top = 61 + Caption = #22791#27880 + end + object cxButton9: TcxButton + Left = 287 + Top = 7 + Width = 40 + Height = 20 + Caption = #22686#34892 + TabOrder = 30 + end + object cxButton10: TcxButton + Left = 287 + Top = 38 + Width = 40 + Height = 20 + Caption = #21024#34892 + TabOrder = 31 + end + object fp_Precautions: TcxMemo + Left = 568 + Top = 46 + Properties.Alignment = taLeftJustify + Properties.ScrollBars = ssVertical + TabOrder = 32 + Height = 50 + Width = 140 + 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 + 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 + end + object TbccqxClear: TcxButton + Left = 90 + Top = 32 + Width = 50 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 9 + 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 cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20301'(%)' + DataBinding.FieldName = 'ccqx_unit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1ccqx_use: TcxGridDBColumn + Caption = #29992#37327 + DataBinding.FieldName = 'ccqx_use' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + 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 + 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 = TvCCQX + end + end + object cxLabel1: TcxLabel + Left = 534 + Top = 59 + Caption = #22791#27880 + end + object cxButton5: TcxButton + Left = 287 + Top = 7 + Width = 40 + Height = 20 + Caption = #22686#34892 + TabOrder = 18 + end + object cxButton6: TcxButton + Left = 287 + Top = 38 + Width = 40 + Height = 20 + Caption = #21024#34892 + TabOrder = 19 + end + object ccqx_note: TcxMemo + 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 TvRG: 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 cxGridDBColumn3: TcxGridDBColumn + Caption = #21333#20301'(%)' + DataBinding.FieldName = 'ccqx_unit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #29992#37327 + DataBinding.FieldName = 'ccqx_use' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + 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 cxGridDBColumn8: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'ccqx_precautions' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TvRG + end + end + object cxLabel2: TcxLabel + Left = 534 + Top = 51 + Caption = #22791#27880 + end + object cxButton3: TcxButton + Left = 287 + Top = 7 + Width = 40 + Height = 20 + Caption = #22686#34892 + TabOrder = 8 + end + object cxButton4: TcxButton + Left = 287 + Top = 38 + Width = 40 + Height = 20 + Caption = #21024#34892 + TabOrder = 9 + end + object rgqx_note: TcxMemo + 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 TvJG: 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 + end + object cxGridLevel3: TcxGridLevel + GridView = TvJG + end + end + object cxLabel3: TcxLabel + Left = 534 + Top = 54 + Caption = #22791#27880 + end + object cxButton1: TcxButton + Left = 288 + Top = 7 + Width = 40 + Height = 20 + Caption = #22686#34892 + TabOrder = 10 + end + object cxButton2: TcxButton + Left = 288 + Top = 38 + Width = 40 + Height = 20 + Caption = #21024#34892 + TabOrder = 11 + end + object jgqx_note: TcxMemo + 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 + end + object TbDXClear2: TcxButton + Left = 90 + Top = 26 + Width = 50 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 23 + 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 + 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 + end + object TBFScLEAR2: TcxButton + Left = 90 + Top = 30 + Width = 50 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 5 + 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 cxGridDBColumn20: TcxGridDBColumn + Caption = #21333#20301'(%)' + DataBinding.FieldName = 'ccqx_unit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #29992#37327 + DataBinding.FieldName = 'ccqx_use' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + 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 cxGridDBColumn23: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'ccqx_precautions' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TvFS + end + end + object cxLabel7: TcxLabel + Left = 534 + Top = 57 + Caption = #22791#27880 + end + object cxButton11: TcxButton + Left = 287 + Top = 6 + Width = 40 + Height = 20 + Caption = #22686#34892 + TabOrder = 30 + end + object cxButton12: TcxButton + Left = 287 + Top = 37 + Width = 40 + Height = 20 + Caption = #21024#34892 + TabOrder = 31 + end + object fs_Precautions: TcxMemo + 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 + 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 = 728 + Top = 131 + end + object CDS_PSType: TClientDataSet + Aggregates = <> + Params = <> + Left = 680 + Top = 137 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DyePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 917 + Top = 3 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 932 + Top = 51 + 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 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 + end +end diff --git a/F02染色计划单/U_DyeSimpleTechnicsList.pas b/F02染色计划单/U_DyeSimpleTechnicsList.pas new file mode 100644 index 0000000..8c91e6c --- /dev/null +++ b/F02染色计划单/U_DyeSimpleTechnicsList.pas @@ -0,0 +1,920 @@ +unit U_DyeSimpleTechnicsList; + +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; + +type + TfrmDyeSimpleTechnicsList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + DTMName: TEdit; + ADOQueryMain: TADOQuery; + Label3: TLabel; + DTMNo: TEdit; + GPM_2: TcxGridPopupMenu; + DS_2: TDataSource; + CDS_2: TClientDataSet; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + TNochk: TToolButton; + DS_PsType: TDataSource; + CDS_PSType: TClientDataSet; + ADOQuery1: TADOQuery; + GPM_1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Ssel: TcxGridDBColumn; + v2GYNO: TcxGridDBColumn; + v2GYName: TcxGridDBColumn; + v2GYGX: TcxGridDBColumn; + 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; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: 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; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: 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; + cxGridDBColumn4: TcxGridDBColumn; + Tv1ccqx_use: TcxGridDBColumn; + Tv1ccqx_rate: TcxGridDBColumn; + cxGridDBColumn6: 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; + TvRG: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: 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; + TvJG: 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; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxLabel7: TcxLabel; + Splitter2: TSplitter; + Panel3: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid9: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridLevel8: TcxGridLevel; + cxButton1: TcxButton; + cxButton2: TcxButton; + cxButton3: TcxButton; + cxButton4: TcxButton; + cxButton5: TcxButton; + cxButton6: TcxButton; + cxButton7: TcxButton; + cxButton8: TcxButton; + cxButton9: TcxButton; + cxButton10: TcxButton; + cxButton11: TcxButton; + cxButton12: TcxButton; + Tv1PSType: TcxGridDBColumn; + CDS_GX: TClientDataSet; + DS_GX: TDataSource; + Tv3PSNO: TcxGridDBColumn; + 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; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + 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); + procedure FormCreate(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer); + procedure Tv1DblClick(Sender: TObject); + private + { Private declarations } + + procedure InitGrid(); + procedure SetStatus(); + + procedure InitPSTypeGrid(); + procedure InitGlide(); + procedure InitGXDetails(); + public + fmanage: string; + end; + +var + frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_DyeTechnicsinput, U_DyeProcessDefin; + +{$R *.dfm} + +procedure TfrmDyeSimpleTechnicsList.SetStatus(); +var + i: integer; +begin + + Tchk.Visible := false; + 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; + +// for i := 0 to tv2.ColumnCount - 1 do +// begin +// if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then +// tv2.Columns[i].Options.Editing := false; +// end; + if cxTabControl1.TabIndex = 0 then + begin + Tchk.Visible := true; + TBDel.Visible := true; + end; + if cxTabControl1.TabIndex = 1 then + begin + TNochk.Visible := true; + end; + if cxTabControl1.TabIndex = 2 then + begin + + end; +end; + +procedure TfrmDyeSimpleTechnicsList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select * FROM Dye_Technics_Main'); + if cxTabControl1.TabIndex < 2 then + sql.Add(' where isnull(status,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' '); + ShowMessage(SQL.Text); + Open; + + end; + + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + ShowMessage(ADOQueryMain.FieldByName('DTMID').AsString); +// ShowMessage(CDS_2.FieldByName('DTMID').AsString); + finally + ADOQueryMain.EnableControls; + + //CDS_1.EmptyDataSet; + 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.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'չ'); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'չ'); + SetStatus(); + InitGrid(); +end; + +procedure TfrmDyeSimpleTechnicsList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmDyeSimpleTechnicsList.ToolButton1Click(Sender: TObject); +var + maxno: string; +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, 'չ'); +end; + +procedure TfrmDyeSimpleTechnicsList.ToolButton4Click(Sender: TObject); +begin + try + frmDyeTechnicsinput := TfrmDyeTechnicsinput.Create(Application); + with frmDyeTechnicsinput do + begin + PState := '޸'; + FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmDyeTechnicsinput.Free; + end; +end; + +procedure TfrmDyeSimpleTechnicsList.ToolButton5Click(Sender: TObject); +begin + try + frmDyeTechnicsinput := TfrmDyeTechnicsinput.Create(Application); + with frmDyeTechnicsinput do + begin + PState := ''; + FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmDyeTechnicsinput.Free; + end; +end; + +procedure TfrmDyeSimpleTechnicsList.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; + +end; + +procedure TfrmDyeSimpleTechnicsList.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + SetStatus(); + InitGlide(); + InitGXDetails(); +// ShowMessage(CDS_2.FieldByName('DTMID').AsString); + if (CDS_2.FieldByName('DTMID').AsString = '') or (CDS_2.FieldByName('DTMID').AsString = null) then + begin + InitPSTypeGrid(); + 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 TfrmDyeSimpleTechnicsList.ButtonEdit(Sender: TObject; AButtonIndex: Integer); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + FPSType := self.CDS_GX.FieldByName('PSType').Value; + FPSID := Self.CDS_GX.FieldByName('PSID').Value; + BtnInt := 3;//鿴 + TbSave.visible := false; + TbUpFile.Visible := False; + if ShowModal = 1 then + begin + + end; + end; + + finally + frmDyeProcessDefin.Free; + end; +end; + +procedure TfrmDyeSimpleTechnicsList.DTMNoChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmDyeSimpleTechnicsList.TchkClick(Sender: TObject); +begin + if CDS_2.IsEmpty then + exit; + + if CDS_2.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + 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('update Dye_Technics_Main SET status=''1'' '); + sql.Add('where DTMID =' + quotedstr(trim(CDS_2.fieldbyname('DTMID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmDyeSimpleTechnicsList.TNochkClick(Sender: TObject); +begin + if CDS_2.IsEmpty then + exit; + + if CDS_2.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + 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('update Dye_Technics_Main SET status=''0'' '); + sql.Add('where DTMID =' + quotedstr(trim(CDS_2.fieldbyname('DTMID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmDyeSimpleTechnicsList.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 TfrmDyeSimpleTechnicsList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +procedure TfrmDyeSimpleTechnicsList.FormCreate(Sender: TObject); +begin + inherited; + fmanage := Trim(DParameters1); +end; + +end. + diff --git a/F02染色计划单/U_DyeTechnicsList.dfm b/F02染色计划单/U_DyeTechnicsList.dfm index 39a66b5..8d11a54 100644 --- a/F02染色计划单/U_DyeTechnicsList.dfm +++ b/F02染色计划单/U_DyeTechnicsList.dfm @@ -3,16 +3,22 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList Top = 106 Caption = #24037#33402#30331#35760 ClientHeight = 593 - ClientWidth = 1455 - ExplicitWidth = 1471 + ClientWidth = 1467 + ExplicitWidth = 1483 ExplicitHeight = 632 PixelsPerInch = 96 TextHeight = 12 - object ToolBar1: TToolBar [0] + object Splitter1: TSplitter [0] + Left = 809 + Top = 99 + Height = 494 + ExplicitLeft = 825 + end + object ToolBar1: TToolBar [1] Tag = 1 Left = 0 Top = 0 - Width = 1455 + Width = 1467 Height = 38 AutoSize = True ButtonHeight = 38 @@ -106,10 +112,10 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList OnClick = TBCloseClick end end - object Panel1: TPanel [1] + object Panel1: TPanel [2] Left = 0 Top = 38 - Width = 1455 + Width = 1467 Height = 38 Align = alTop BevelInner = bvRaised @@ -149,15 +155,14 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList OnChange = DTMNoChange end end - object cxGrid2: TcxGrid [2] + object cxGrid2: TcxGrid [3] Left = 0 Top = 99 - Width = 1217 + Width = 809 Height = 494 Align = alLeft TabOrder = 2 - ExplicitLeft = -6 - ExplicitTop = 105 + ExplicitLeft = 8 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -185,6 +190,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False + OptionsView.ColumnAutoWidth = True OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Header = DataLink_DyePlan.FonePurple @@ -225,17 +231,17 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList HeaderGlyphAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False - Width = 528 + Width = 251 end end object cxGridLevel1: TcxGridLevel GridView = Tv2 end end - object cxTabControl1: TcxTabControl [3] + object cxTabControl1: TcxTabControl [4] Left = 0 Top = 76 - Width = 1455 + Width = 1467 Height = 23 Align = alTop TabOrder = 3 @@ -248,13 +254,13 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 23 - ClientRectRight = 1455 + ClientRectRight = 1467 ClientRectTop = 19 end - object cxGrid1: TcxGrid [4] - Left = 1217 + object cxGrid1: TcxGrid [5] + Left = 812 Top = 99 - Width = 238 + Width = 655 Height = 494 Align = alClient TabOrder = 4 @@ -274,6 +280,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList OptionsCustomize.ColumnSorting = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False + OptionsView.CellAutoHeight = True OptionsView.Footer = True OptionsView.GroupByBox = False Styles.IncSearch = DataLink_DyePlan.SHuangSe @@ -310,19 +317,32 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList HeaderAlignmentHorz = taCenter Width = 80 end + object TV1All_Detail: TcxGridDBColumn + Caption = #24037#24207#21442#25968 + DataBinding.FieldName = 'All_Detail' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object TV1All_zhuji: TcxGridDBColumn + Caption = #21161#21058#20449#24687 + DataBinding.FieldName = 'All_zhuji' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1ALL_NOTE: TcxGridDBColumn + Caption = #24037#24207#22791#27880 + DataBinding.FieldName = 'ALL_NOTE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end end object cxGridLevel2: TcxGridLevel GridView = TV1 end end - object cxSplitter1: TcxSplitter [5] - Left = 1217 - Top = 99 - Width = 0 - Height = 494 - AlignSplitter = salRight - Control = cxGrid2 - end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_DyePlan.ADOLink Left = 281 diff --git a/F02染色计划单/U_DyeTechnicsList.pas b/F02染色计划单/U_DyeTechnicsList.pas index 02d45be..77ffbf6 100644 --- a/F02染色计划单/U_DyeTechnicsList.pas +++ b/F02染色计划单/U_DyeTechnicsList.pas @@ -53,12 +53,15 @@ type CDS_1: TClientDataSet; ADOQuery1: TADOQuery; GPM_1: TcxGridPopupMenu; - cxSplitter1: TcxSplitter; ToolButton3: TToolButton; ToolButton1: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; TV1PSID: TcxGridDBColumn; + Splitter1: TSplitter; + TV1All_Detail: TcxGridDBColumn; + TV1ALL_NOTE: TcxGridDBColumn; + TV1All_zhuji: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -104,7 +107,7 @@ begin begin Close; SQL.Clear; - sql.Add(' select A.*,B.* FROM Dye_Technics_Sub A inner join Dye_Process B on A.PSId=B.PSId '); + 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; diff --git a/F02染色计划单/U_DyeTechnicsinput.dfm b/F02染色计划单/U_DyeTechnicsinput.dfm index ee9512e..47c2533 100644 --- a/F02染色计划单/U_DyeTechnicsinput.dfm +++ b/F02染色计划单/U_DyeTechnicsinput.dfm @@ -120,6 +120,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput Align = alRight TabOrder = 2 Visible = False + ExplicitLeft = -124 object Tv3: TcxGridDBTableView OnDblClick = Tv3DblClick Navigator.Buttons.CustomButtons = <> @@ -242,7 +243,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput HeaderAlignmentHorz = taCenter Width = 130 end - object TV1Column1: TcxGridDBColumn + object TV1PSID: TcxGridDBColumn DataBinding.FieldName = 'PSID' DataBinding.IsNullValueType = True Visible = False diff --git a/F02染色计划单/U_DyeTechnicsinput.pas b/F02染色计划单/U_DyeTechnicsinput.pas index b6fe306..4278bfa 100644 --- a/F02染色计划单/U_DyeTechnicsinput.pas +++ b/F02染色计划单/U_DyeTechnicsinput.pas @@ -18,7 +18,7 @@ uses Vcl.ImgList, cxButtons; type - TfrmDyeTechnicsinput = class(TfrmBaseinput) + TfrmDyeTechnicsinput = class(TfrmBaseInput) ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; @@ -71,7 +71,7 @@ type TV1DTMID: TcxGridDBColumn; TV1DTMName: TcxGridDBColumn; Tv3DTMName: TcxGridDBColumn; - TV1Column1: TcxGridDBColumn; + TV1PSID: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -176,11 +176,11 @@ begin with ADOQueryTemp do begin Close; - SQL.Clear; - sql.Add(' select A.*,B.* FROM Dye_Technics_Sub A inner join Dye_Process B on A.PSId=B.PSId '); - sql.Add(' Where A.DTMID=''' + FDTMID + ''''); - SQL.Add(' ORDER BY A.PSNO'); - Open; + SQL.Clear; + sql.Add(' select A.*,B.* FROM Dye_Technics_Sub A inner join Dye_Process B on A.PSId=B.PSId '); + sql.Add(' Where A.DTMID=''' + trim(FDTMID) + ''''); + SQL.Add(' ORDER BY A.PSNO'); + Open; end; SCreateCDS(ADOQueryTemp, CDS_1); SInitCDSData(ADOQueryTemp, CDS_1); @@ -346,24 +346,26 @@ begin if ADOQueryCmd.RecordCount > 0 then raise Exception.Create('ظ!'); - with ADOQueryCmd do - begin - Close; - sql.Clear; +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; // sql.Add('SELECT PSName,COUNT(*) AS DuplicateCount FROM Dye_Process WHERE DTMNo =''' + Trim(DTMNo.Text) + ''''); // sql.Add(' GROUP BY PSName HAVING COUNT(*) > 1 ORDER BY DuplicateCount DESC;'); - sql.Add('SELECT STRING_AGG(PSName, '', '') AS DuplicatePSNames,'); - sql.Add('COUNT(*) AS TotalPSName'); - sql.Add('FROM (SELECT PSName'); - sql.Add('FROM Dye_Process'); - sql.Add('WHERE DTMID = ''' + Trim(maxno) + ''''); - sql.Add('GROUP BY PSName'); - sql.Add('HAVING COUNT(*) > 1) AS Duplicates HAVING Count(*)>0;'); - Open; -// showMessage(sql.Text); - end; - if ADOQueryCmd.RecordCount > 0 then - raise Exception.Create('' + ADOQueryCmd.FieldByName('DuplicatePSNames').AsString + 'ظ!'); + + +// sql.Add('SELECT STRING_AGG(PSName, '', '') AS DuplicatePSNames,'); +// sql.Add('COUNT(*) AS TotalPSName'); +// sql.Add('FROM (SELECT PSName'); +// sql.Add('FROM Dye_Process'); +// sql.Add('WHERE DTMID = ''' + Trim(maxno) + ''''); +// sql.Add('GROUP BY PSName'); +// sql.Add('HAVING COUNT(*) > 1) AS Duplicates HAVING Count(*)>0;'); +// Open; +//// showMessage(sql.Text); +// end; +// if ADOQueryCmd.RecordCount > 0 then +// raise Exception.Create('' + ADOQueryCmd.FieldByName('DuplicatePSNames').AsString + 'ظ!'); if fPSIDList <> '' then begin @@ -672,26 +674,7 @@ begin with frmDyeProcessDefin do begin FPSType := self.CDS_1.FieldByName('PSType').Value; - if (PState = '') and (Self.CDS_1.FieldByName('PSID').Value = '') then - begin - FPSID := ''; - BtnInt := 0;//// - end - else if PState = '޸' then - begin - FPSID := Self.CDS_1.FieldByName('PSID').Value; - BtnInt := 1;///޸ - end - else if (PState = '') then - begin - FPSID := Self.CDS_1.FieldByName('PSID').Value; - BtnInt := 2;/// - end - else - begin - FPSID := Self.CDS_1.FieldByName('PSID').Value; - BtnInt := 0;//ظ - end; + FPSID := Self.CDS_1.FieldByName('PSID').Value; if ShowModal = 1 then begin diff --git a/F02染色计划单/U_GetDllForm.pas b/F02染色计划单/U_GetDllForm.pas index 8a120a2..e880550 100644 --- a/F02染色计划单/U_GetDllForm.pas +++ b/F02染色计划单/U_GetDllForm.pas @@ -16,7 +16,7 @@ implementation uses U_DataLink, U_iniParam, U_DyePlanList, U_DyePlanCardList, U_DyeTechnicsList, - U_DyeProcessList, U_DyeCardList, U_PSC_Card, U_Cust_Cloth_PSC; + U_DyeProcessList, U_DyeCardList, U_PSC_Card, U_Cust_Cloth_PSC,U_DyeSimpleTechnicsList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -125,6 +125,18 @@ begin ///////////////////// //ģ鴰 case FormID of + 101: //׹չ + begin + with TfrmDyeSimpleTechnicsList.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 with TfrmDyeProcessList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // @@ -148,6 +160,9 @@ begin end; end; + + + 131: //Ⱦɫƻ begin with TfrmDyePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/F04染色刷卡/DyeProcess.dpr b/F04染色刷卡/DyeProcess.dpr index f8927d3..76c81ef 100644 --- a/F04染色刷卡/DyeProcess.dpr +++ b/F04染色刷卡/DyeProcess.dpr @@ -23,7 +23,9 @@ uses U_DyePCList in 'U_DyePCList.pas' {frmDyePCList}, U_DyeOutput in 'U_DyeOutput.pas' {frmDyeOutput}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', - U_MachTaskList in 'U_MachTaskList.pas' {frmMachTaskList}; + U_MachTaskList in 'U_MachTaskList.pas' {frmMachTaskList}, + U_BS_MachineSel in 'U_BS_MachineSel.pas' {frmBS_MachineSel}, + U_DyeProcessDefin in 'U_DyeProcessDefin.pas' {frmDyeProcessDefin}; {$R *.res} diff --git a/F04染色刷卡/DyeProcess.dproj b/F04染色刷卡/DyeProcess.dproj index 426f5c0..fbe9885 100644 --- a/F04染色刷卡/DyeProcess.dproj +++ b/F04染色刷卡/DyeProcess.dproj @@ -131,6 +131,14 @@
frmMachTaskList
dfm + +
frmBS_MachineSel
+ dfm + + +
frmDyeProcessDefin
+ dfm + Cfg_2 Base diff --git a/F04染色刷卡/DyeProcess.dproj.local b/F04染色刷卡/DyeProcess.dproj.local index 5ca30f6..9aa65fe 100644 --- a/F04染色刷卡/DyeProcess.dproj.local +++ b/F04染色刷卡/DyeProcess.dproj.local @@ -1,28 +1,30 @@  - 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.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas - 1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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_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.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.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 2025-09-11 15:02:11.620,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_MachTaskList.pas + 1899/12/30 00:00:00.000.811,=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.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.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.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm + 1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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 + 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 @@ -59,5 +61,9 @@ + + + + diff --git a/F04染色刷卡/DyeProcess.identcache b/F04染色刷卡/DyeProcess.identcache index 826d413..b38b102 100644 Binary files a/F04染色刷卡/DyeProcess.identcache and b/F04染色刷卡/DyeProcess.identcache differ diff --git a/F04染色刷卡/U_BS_MachineSel.dfm b/F04染色刷卡/U_BS_MachineSel.dfm new file mode 100644 index 0000000..1694591 --- /dev/null +++ b/F04染色刷卡/U_BS_MachineSel.dfm @@ -0,0 +1,253 @@ +object frmBS_MachineSel: TfrmBS_MachineSel + Left = -8 + Top = -8 + Caption = #35745#21010#21333#36873#25321 + ClientHeight = 613 + ClientWidth = 1370 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poDesktopCenter + WindowState = wsMaximized + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Tag = 1 + Left = 0 + Top = 0 + Width = 1370 + 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_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 + Visible = False + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 12 + OnClick = ToolButton3Click + 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 Panel1: TPanel + Left = 0 + Top = 38 + Width = 1370 + Height = 43 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 28 + 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 + end + object Label4: TLabel + Left = 260 + Top = 17 + Width = 52 + Height = 12 + Caption = #25104#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 85 + Top = 13 + Width = 149 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + object C_Name: TEdit + Tag = 2 + Left = 317 + Top = 13 + Width = 149 + Height = 20 + TabOrder = 1 + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 81 + Width = 1370 + Height = 532 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1OrderNo: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'MCNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object Tv1C_CodeName: TcxGridDBColumn + Caption = #26426#21488#31867#22411 + DataBinding.FieldName = 'MCType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'PRTOrderKgQty' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + Parameters = <> + Left = 344 + Top = 312 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 432 + Top = 326 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 224 + Top = 296 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 464 + Top = 168 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 760 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 640 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/F04染色刷卡/U_BS_MachineSel.pas b/F04染色刷卡/U_BS_MachineSel.pas new file mode 100644 index 0000000..23d4411 --- /dev/null +++ b/F04染色刷卡/U_BS_MachineSel.pas @@ -0,0 +1,189 @@ +unit U_BS_MachineSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxPC, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations; + +type + TfrmBS_MachineSel = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Tv1OrderNo: TcxGridDBColumn; + Order_Main: TClientDataSet; + Tv1C_CodeName: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton1: TToolButton; + Label4: TLabel; + C_Name: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); +// procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1DblClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + FFInt, FCloth: Integer; + fWorkshop: string; + { Public declarations } + end; + +var + frmBS_MachineSel: TfrmBS_MachineSel; + +implementation + +uses + U_DataLink, U_RTFun; + +{$R *.dfm} + +procedure TfrmBS_MachineSel.FormDestroy(Sender: TObject); +begin + frmBS_MachineSel := nil; +end; + +procedure TfrmBS_MachineSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmBS_MachineSel.TBCloseClick(Sender: TObject); +begin + Close; + +end; + +procedure TfrmBS_MachineSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered := False; + sql.Clear; + sql.Add('select A.* '); + sql.add('from BS_Machine A'); + Open; + end; + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + Tbfind.Click; + end; +end; + +procedure TfrmBS_MachineSel.InitForm(); +begin + ReadCxGrid('̨бѡ', Tv1, '̨бѡ'); + InitGrid(); +end; + +procedure TfrmBS_MachineSel.FormShow(Sender: TObject); +begin + + InitForm(); + if FFInt = 1 then + begin + v1Column4.Visible := False; + v1Column4.Hidden := True; + end; +// InitGrid(); +end; + +procedure TfrmBS_MachineSel.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid('̨бѡ', Tv1, '̨бѡ'); +end; + +procedure TfrmBS_MachineSel.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + ModalResult := 1; +end; + + +procedure TfrmBS_MachineSel.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmBS_MachineSel.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main, True); +end; + +procedure TfrmBS_MachineSel.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main, false); +end; + +procedure TfrmBS_MachineSel.OrderNoKeyPress(Sender: TObject; + var Key: Char); +begin + InitGrid(); +end; + +procedure TfrmBS_MachineSel.TBRafreshClick(Sender: TObject); +begin + initgrid(); +end; + +procedure TfrmBS_MachineSel.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); +end; + +procedure TfrmBS_MachineSel.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +end. + diff --git a/F04染色刷卡/U_DyePCList.dfm b/F04染色刷卡/U_DyePCList.dfm index 58e2f2f..b8761b6 100644 --- a/F04染色刷卡/U_DyePCList.dfm +++ b/F04染色刷卡/U_DyePCList.dfm @@ -1,14 +1,15 @@ inherited frmDyePCList: TfrmDyePCList Caption = #25490#20135#20449#24687 ClientHeight = 584 - ClientWidth = 1145 + ClientWidth = 1180 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Height = -11 Font.Name = 'Tahoma' OldCreateOrder = True WindowState = wsMaximized - ExplicitWidth = 1161 + ExplicitLeft = -329 + ExplicitWidth = 1196 ExplicitHeight = 623 PixelsPerInch = 96 TextHeight = 13 @@ -16,11 +17,11 @@ inherited frmDyePCList: TfrmDyePCList Tag = 1 Left = 0 Top = 0 - Width = 1145 + Width = 1180 Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 96 + ButtonWidth = 97 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_DyeProcess.ImageList_new32 @@ -76,7 +77,7 @@ inherited frmDyePCList: TfrmDyePCList OnClick = TBExportClick end object ToolButton1: TToolButton - Left = 408 + Left = 409 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -84,7 +85,7 @@ inherited frmDyePCList: TfrmDyePCList OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 503 + Left = 504 Top = 0 AutoSize = True Caption = #20851#38381 @@ -95,17 +96,16 @@ inherited frmDyePCList: TfrmDyePCList object Panel1: TPanel [1] Left = 0 Top = 38 - Width = 1145 + Width = 1180 Height = 64 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 - Visible = False object Label3: TLabel - Left = 21 - Top = 20 + Left = 293 + Top = 28 Width = 48 Height = 13 Caption = #27969#31243#21345#21495 @@ -131,10 +131,24 @@ inherited frmDyePCList: TfrmDyePCList Height = 13 Caption = #33457#22411#21495 end + object Label1: TLabel + Left = 23 + Top = 6 + Width = 48 + Height = 13 + Caption = #24320#22987#26102#38388 + end + object Label2: TLabel + Left = 23 + Top = 40 + Width = 48 + Height = 13 + Caption = #32467#26463#26102#38388 + end object pcid: TEdit Tag = 2 - Left = 71 - Top = 16 + Left = 347 + Top = 24 Width = 154 Height = 21 TabOrder = 0 @@ -167,6 +181,44 @@ inherited frmDyePCList: TfrmDyePCList 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 end object MovePanel2: TMovePanel [2] Left = 351 @@ -188,13 +240,12 @@ inherited frmDyePCList: TfrmDyePCList object dbGrid1: TcxGrid [3] Left = 0 Top = 102 - Width = 1145 - Height = 485 - Align = alTop + Width = 1180 + Height = 482 + Align = alClient TabOrder = 3 LookAndFeel.ScrollbarMode = sbmHybrid LookAndFeel.ScrollMode = scmDefault - ExplicitTop = 108 object tv1: TcxGridDBTableView Tag = 9999 DragMode = dmAutomatic @@ -202,6 +253,7 @@ inherited frmDyePCList: TfrmDyePCList FindPanel.DisplayMode = fpdmAlways FindPanel.UseExtendedSyntax = True ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = tv1CellDblClick DataController.DataSource = DataSource1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -210,166 +262,148 @@ inherited frmDyePCList: TfrmDyePCList DataController.Summary.SummaryGroups = <> DateTimeHandling.Grouping = dtgByDate OptionsData.Deleting = False - OptionsData.Editing = False OptionsData.Inserting = False + OptionsView.CellAutoHeight = True + OptionsView.ColumnAutoWidth = True OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True + OptionsView.IndicatorWidth = 30 + Styles.Selection = DataLink_DyeProcess.SHuangSe object tv1CraftIdx: TcxGridDBColumn DataBinding.FieldName = 'CraftIdx' DataBinding.IsNullValueType = True Visible = False end object tv1mcName: TcxGridDBColumn - Caption = #26426#32568 - DataBinding.FieldName = 'machNo' + Caption = #26102#38388 + DataBinding.FieldName = 'time' DataBinding.IsNullValueType = True - FixedKind = fkLeftDynamic + PropertiesClassName = 'TcxDateEditProperties' + Properties.DisplayFormat = 'yyyy-mm-dd hh:nn:ss' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False - Width = 99 + Width = 88 end - object tv1runStatus: TcxGridDBColumn + object tv1CCQX1: TcxGridDBColumn Tag = 99 - Caption = #29366#24577 - DataBinding.FieldName = 'runStatus' + Caption = #38271#36710#28165#27927#26426 + DataBinding.FieldName = 'CCQX1' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 64 + Options.CellMerging = True + Styles.OnGetContentStyle = tv1CCQX1StylesGetContentStyle + Width = 109 + OnCompareRowValuesForCellMerging = tv1CCQX1CompareRowValuesForCellMerging end - object tv1lastMinNum: TcxGridDBColumn - Caption = #19982#19978#32568#38388#38548'('#20998')' - DataBinding.FieldName = 'lastMinNum' + object tv1DX1: TcxGridDBColumn + Caption = #23450#22411#26426#19968#21495#26426 + DataBinding.FieldName = 'DX1' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False + Options.CellMerging = True + Styles.OnGetContentStyle = tv1DX1StylesGetContentStyle Width = 125 + OnCompareRowValuesForCellMerging = tv1DX1CompareRowValuesForCellMerging end - object tv1curDoInfo: TcxGridDBColumn - Caption = #24403#21069#29983#20135 - DataBinding.FieldName = 'curDoInfo' + object tv1DX2: TcxGridDBColumn + Caption = #23450#22411#26426#20108#21495#26426 + DataBinding.FieldName = 'DX2' DataBinding.IsNullValueType = True - FixedKind = fkLeftDynamic HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False + Options.FilteringPopupIncrementalFiltering = True + Options.CellMerging = True + Styles.OnGetContentStyle = tv1DX2StylesGetContentStyle Width = 114 + OnCompareRowValuesForCellMerging = tv1DX2CompareRowValuesForCellMerging end - object tv1curInTime: TcxGridDBColumn - Caption = #26412#32568#36827#32568#26102#38388 - DataBinding.FieldName = 'curInTime' + object tv1DX3: TcxGridDBColumn + Caption = #23450#22411#26426#19977#21495#26426 + DataBinding.FieldName = 'DX3' DataBinding.IsNullValueType = True - FixedKind = fkLeftDynamic HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False + Options.FilteringPopupIncrementalFiltering = True + Options.CellMerging = True + Styles.OnGetContentStyle = tv1DX3StylesGetContentStyle Width = 117 + OnCompareRowValuesForCellMerging = tv1DX3CompareRowValuesForCellMerging end - object tv1runTime: TcxGridDBColumn - Caption = #24050#25345#32493'(h)' - DataBinding.FieldName = 'runTime' + object tv1DX4: TcxGridDBColumn + Caption = #23450#22411#26426#22235#21495#26426 + DataBinding.FieldName = 'DX4' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Filtering = False - Options.Focusing = False - Width = 80 + Options.FilteringPopupIncrementalFiltering = True + Options.CellMerging = True + Styles.OnGetContentStyle = tv1DX4StylesGetContentStyle + Width = 109 + OnCompareRowValuesForCellMerging = tv1DX4CompareRowValuesForCellMerging end - object tv1Column1: TcxGridDBColumn - Caption = #39044#35745#20986#32568 - DataBinding.IsNullValueType = True - Options.Editing = False - Options.Focusing = False - Width = 85 - end - object tv1wait1: TcxGridDBColumn - Caption = #31561#24453'1' - DataBinding.FieldName = 'wait1' + object tv1DX5: TcxGridDBColumn + Caption = #23450#22411#26426#20116#21495#26426 + DataBinding.FieldName = 'DX5' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False + Options.FilteringPopupIncrementalFiltering = True + Options.CellMerging = True + Styles.OnGetContentStyle = tv1DX5StylesGetContentStyle + Width = 103 + OnCompareRowValuesForCellMerging = tv1DX5CompareRowValuesForCellMerging + end + object tv1DX6: TcxGridDBColumn + Caption = #23450#22411#26426#20845#21495#26426 + DataBinding.FieldName = 'DX6' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.FilteringPopupIncrementalFiltering = True + Options.CellMerging = True + Styles.OnGetContentStyle = tv1DX6StylesGetContentStyle Width = 100 + OnCompareRowValuesForCellMerging = tv1DX6CompareRowValuesForCellMerging end - object tv1wait2: TcxGridDBColumn - Caption = #31561#24453'2' - DataBinding.FieldName = 'wait2' + object tv1JG1: TcxGridDBColumn + Caption = #26426#32568 + DataBinding.FieldName = 'JG1' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False + Options.FilteringPopupIncrementalFiltering = True + Options.CellMerging = True + Styles.OnGetContentStyle = tv1JG1StylesGetContentStyle Width = 100 + OnCompareRowValuesForCellMerging = tv1JG1CompareRowValuesForCellMerging end - object tv1wait3: TcxGridDBColumn - Caption = #31561#24453'3' - DataBinding.FieldName = 'wait3' + object tv1JRG1: TcxGridDBColumn + Caption = #21367#26579#32568'1' + DataBinding.FieldName = 'JRG1' DataBinding.IsNullValueType = True - FixedKind = fkLeftDynamic HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False + Options.FilteringPopupIncrementalFiltering = True + Options.CellMerging = True + Styles.OnGetContentStyle = tv1JRG1StylesGetContentStyle Width = 100 + OnCompareRowValuesForCellMerging = tv1JRG1CompareRowValuesForCellMerging end - object tv1wait4: TcxGridDBColumn - Caption = #31561#24453'4' - DataBinding.FieldName = 'wait4' + object tv1JRG2: TcxGridDBColumn + Caption = #21367#26579#32568'2' + DataBinding.FieldName = 'JRG2' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False + Options.FilteringPopupIncrementalFiltering = True + Options.CellMerging = True + Styles.OnGetContentStyle = tv1JRG2StylesGetContentStyle Width = 100 + OnCompareRowValuesForCellMerging = tv1JRG2CompareRowValuesForCellMerging end - object tv1wait5: TcxGridDBColumn - Caption = #31561#24453'5' - DataBinding.FieldName = 'wait5' + object tv1JRG3: TcxGridDBColumn + Caption = #21367#26579#32568'3' + DataBinding.FieldName = 'JRG3' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Filtering = False - Options.Focusing = False + Options.CellMerging = True + Styles.OnGetContentStyle = tv1JRG3StylesGetContentStyle Width = 100 - end - object tv1wait6: TcxGridDBColumn - Caption = #31561#24453'6' - DataBinding.FieldName = 'wait6' - DataBinding.IsNullValueType = True - FixedKind = fkLeftDynamic - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False - Width = 100 - end - object tv1finish1: TcxGridDBColumn - Caption = #23436'1' - DataBinding.FieldName = 'finish1' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Filtering = False - Options.Focusing = False - Width = 63 - end - object tv1finish2: TcxGridDBColumn - Caption = #23436'2' - DataBinding.FieldName = 'finish2' - DataBinding.IsNullValueType = True - FixedKind = fkLeftDynamic - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Filtering = False - Options.Focusing = False - Width = 61 - end - object tv1finish3: TcxGridDBColumn - Caption = #23436'3' - DataBinding.FieldName = 'finish3' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Filtering = False - Width = 70 + OnCompareRowValuesForCellMerging = tv1JRG3CompareRowValuesForCellMerging end object tv1GC_BatchNo: TcxGridDBColumn Caption = #22383#24067#25209#27425 @@ -380,32 +414,6 @@ inherited frmDyePCList: TfrmDyePCList Options.Filtering = False Width = 89 end - object tv1finish4: TcxGridDBColumn - Caption = #23436'4' - DataBinding.FieldName = 'finish4' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 92 - end - object tv1finish5: TcxGridDBColumn - Caption = #23436'5' - DataBinding.FieldName = 'finish5' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 103 - end - object tv1finish6: TcxGridDBColumn - Caption = #23436'6' - DataBinding.FieldName = 'finish6' - DataBinding.IsNullValueType = True - FixedKind = fkLeftDynamic - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False - Width = 61 - end object tv1CurGlideName: TcxGridDBColumn Caption = #21047#21345#36827#24230 DataBinding.FieldName = 'CurGlideName' @@ -427,6 +435,13 @@ inherited frmDyePCList: TfrmDyePCList 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 @@ -468,9 +483,10 @@ inherited frmDyePCList: TfrmDyePCList Top = 360 end object cxGridPopupMenu1: TcxGridPopupMenu + Grid = dbGrid1 PopupMenus = <> - Left = 888 - Top = 144 + Left = 920 + Top = 216 end object CDS_Main: TClientDataSet Aggregates = <> diff --git a/F04染色刷卡/U_DyePCList.pas b/F04染色刷卡/U_DyePCList.pas index 17b3966..fe0f4a2 100644 --- a/F04染色刷卡/U_DyePCList.pas +++ b/F04染色刷卡/U_DyePCList.pas @@ -44,29 +44,29 @@ type tv1: TcxGridDBTableView; tv1CraftIdx: TcxGridDBColumn; tv1mcName: TcxGridDBColumn; - tv1runStatus: TcxGridDBColumn; - tv1lastMinNum: TcxGridDBColumn; - tv1curDoInfo: TcxGridDBColumn; - tv1curInTime: TcxGridDBColumn; - tv1runTime: TcxGridDBColumn; - tv1Column1: TcxGridDBColumn; - tv1wait1: TcxGridDBColumn; - tv1wait2: TcxGridDBColumn; - tv1wait3: TcxGridDBColumn; - tv1wait4: TcxGridDBColumn; - tv1wait5: TcxGridDBColumn; - tv1wait6: TcxGridDBColumn; - tv1finish1: TcxGridDBColumn; - tv1finish2: TcxGridDBColumn; - tv1finish3: TcxGridDBColumn; + tv1CCQX1: TcxGridDBColumn; + tv1DX1: TcxGridDBColumn; + tv1DX2: TcxGridDBColumn; + tv1DX3: TcxGridDBColumn; + tv1DX4: TcxGridDBColumn; + tv1DX5: TcxGridDBColumn; + tv1DX6: TcxGridDBColumn; + tv1JG1: TcxGridDBColumn; + tv1JRG1: TcxGridDBColumn; + tv1JRG2: TcxGridDBColumn; + tv1JRG3: TcxGridDBColumn; tv1GC_BatchNo: TcxGridDBColumn; - tv1finish4: TcxGridDBColumn; - tv1finish5: TcxGridDBColumn; - tv1finish6: TcxGridDBColumn; tv1CurGlideName: TcxGridDBColumn; tv1Note: TcxGridDBColumn; dbGrid1Level1: TcxGridLevel; ToolButton2: TToolButton; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + tv1PCKey: TcxGridDBColumn; + BegTime: TDateTimePicker; + EndTime: TDateTimePicker; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -81,6 +81,49 @@ type procedure TBdelClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); + procedure tv1JRG1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure tv1JRG2CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure tv1CCQX1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure tv1DX1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure tv1DX2CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure tv1DX3CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure tv1DX4CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure tv1DX5CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure tv1DX6CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + 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); private FLeft, FTop: Integer; @@ -88,6 +131,7 @@ type { Private declarations } public fsyrName, canshu1: string; + { Public declarations } end; @@ -122,6 +166,7 @@ begin fsyrName := trim(DdataBase); canshu1 := trim(DParameters1); // SInitComBoxBySql(ADOQueryTemp, GlideName, false, 'select PSName as Name from Dye_Process'); + end; procedure TfrmDyePCList.InitGrid(); @@ -136,17 +181,18 @@ begin try tv1.BeginUpdate; ADOQueryMain.DisableControls; + with ADOQueryMain do begin close; filtered := false; sql.Clear; - sql.Add('exec p_dyemach_pcjklist'); -// sql.Add('@PCID=' + quotedStr(PCID.text)); -// sql.Add(',@cust=' + quotedStr(trim(custName.Text))); -// sql.Add(',@cpName=' + quotedStr('')); -// sql.Add(',@color=' + quotedStr(trim(C_color.Text))); + SQL.Add('select * from PCAboutTime where time between :StartTime and :EndTime order By Time'); + Parameters.ParamByName('StartTime').Value := Trunc(BegDate.Date) + Frac(BegTime.Time); + Parameters.ParamByName('EndTime').Value := Trunc(EndDate.Date) + Frac(EndTime.Time); + Open; + end; SCreateCDS(ADOQueryMain, CDS_main); SInitCDSData(ADOQueryMain, CDS_main); @@ -167,7 +213,7 @@ end; procedure TfrmDyePCList.ToolButton1Click(Sender: TObject); begin - WriteCxGrid(self.Caption + tv1.Name, Tv1, 'Ʒֿ'); + WriteCxGrid(self.Caption + tv1.Name, Tv1, 'ŲϢ'); end; procedure TfrmDyePCList.ToolButton2Click(Sender: TObject); @@ -178,14 +224,450 @@ begin frmMachTaskList := TfrmMachTaskList.create(self); with frmMachTaskList do begin - fcurMachId := trim(self.adoquerymain.FieldByName('mcid').AsString); - machName.text := trim(self.adoquerymain.FieldByName('mcName').AsString); +// fcurMachId := trim(self.adoquerymain.FieldByName('mcid').AsString); +// machName.text := trim(self.adoquerymain.FieldByName('mcName').AsString); showModal; free; end; initgrid(); end; +procedure TfrmDyePCList.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 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 + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1DX5StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1DX5.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1DX2CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1DX2.Index] = ARow2.Values[tv1DX2.Index]) and (ARow1.Values[tv1DX2.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1DX2StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1DX2.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1DX3CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1DX3.Index] = ARow2.Values[tv1DX3.Index]) and (ARow1.Values[tv1DX3.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1DX3StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1DX3.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1DX1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1DX1.Index] = ARow2.Values[tv1DX1.Index]) and (ARow1.Values[tv1DX1.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1DX1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1DX1.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +//procedure TfrmDyePCList.tv1DX1StylesGetContentStyle( +// Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; +// AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +//begin +// if ARecord <> nil then +// begin +// if ARecord.RecordIndex mod 2 = 0 then +// begin +// // żУɫ +// AStyle := TcxStyle.Create(nil); +// AStyle.Color := clWhite; +// AStyle.TextColor := clBlack; +// end +// else +// begin +// // Уdzɫ +// AStyle := TcxStyle.Create(nil); +// AStyle.Color := $00FFF5E1; // dzɫ +// AStyle.TextColor := clBlack; +// end; +// end; +//end; + +procedure TfrmDyePCList.tv1CCQX1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1CCQX1.Index] = ARow2.Values[tv1CCQX1.Index]) and (ARow1.Values[tv1CCQX1.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1CCQX1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1CCQX1.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1DX4CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1DX4.Index] = ARow2.Values[tv1DX4.Index]) and (ARow1.Values[tv1DX4.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1DX4StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1DX4.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1DX6CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1DX6.Index] = ARow2.Values[tv1DX6.Index]) and (ARow1.Values[tv1DX6.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1DX6StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1DX6.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1JG1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1JG1.Index] = ARow2.Values[tv1JG1.Index]) and (ARow1.Values[tv1JG1.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1JG1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1JG1.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1JRG1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1JRG1.Index] = ARow2.Values[tv1JRG1.Index]) and (ARow1.Values[tv1JRG1.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmDyePCList.tv1JRG1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1JRG1.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1JRG2CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1JRG2.Index] = ARow2.Values[tv1JRG2.Index]) and (ARow1.Values[tv1JRG2.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1JRG2StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1JRG2.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + +procedure TfrmDyePCList.tv1JRG3CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[tv1JRG3.Index] = ARow2.Values[tv1JRG3.Index]) and (ARow1.Values[tv1JRG3.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmDyePCList.tv1JRG3StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; + ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[tv1JRG3.Index]); + + if (GroupValue <> '') and (GroupValue <> null) then + 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; // ɫ + end; + AStyle.TextColor := clBlack; + end; + end; +end; + procedure TfrmDyePCList.ConNoMChange(Sender: TObject); begin if ADOQueryMain.Active then @@ -203,9 +685,16 @@ end; procedure TfrmDyePCList.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(self.Caption + tv1.Name, Tv1, 'Ʒֿ'); + 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 initgrid(); end; diff --git a/F04染色刷卡/U_DyeProcessDefin.dfm b/F04染色刷卡/U_DyeProcessDefin.dfm new file mode 100644 index 0000000..37e57c7 --- /dev/null +++ b/F04染色刷卡/U_DyeProcessDefin.dfm @@ -0,0 +1,6055 @@ +object frmDyeProcessDefin: TfrmDyeProcessDefin + 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_DyeProcess.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 1 + object TbSave: TToolButton + Tag = 1 + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + end + object TbUpFile: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #38468#20214 + ImageIndex = 22 + end + object TBClose: TToolButton + Left = 142 + 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 = GJ + Properties.CustomButtons.Buttons = <> + ExplicitTop = 53 + ExplicitHeight = 792 + ClientRectBottom = 770 + ClientRectLeft = 2 + ClientRectRight = 1145 + ClientRectTop = 22 + object ZM: TcxTabSheet + Caption = ' '#36711#27611' ' + ImageIndex = 12 + ExplicitHeight = 768 + object Panel_zm: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 748 + Align = alClient + TabOrder = 0 + ExplicitHeight = 768 + 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 + ExplicitHeight = 768 + object Panel_ccqx: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 313 + Align = alClient + TabOrder = 0 + ExplicitTop = 2 + 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 = 313 + Width = 1143 + Height = 435 + 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> + 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 + end + object RGQX: TcxTabSheet + Caption = #21367#26579#32568#28165#27927 + ImageIndex = 7 + ExplicitHeight = 768 + object Panel_rgqx: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 206 + Align = alClient + TabOrder = 0 + ExplicitLeft = 1 + ExplicitTop = 2 + ExplicitHeight = 197 + 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 = 206 + Width = 1143 + Height = 542 + 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> + 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 + end + object JGQX: TcxTabSheet + Caption = ' '#26426#32568#28165#27927' ' + ImageIndex = 11 + ExplicitHeight = 768 + object Panel_jgqx: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 359 + Align = alClient + TabOrder = 0 + ExplicitHeight = 385 + 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 = 359 + Width = 1143 + Height = 389 + 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> + 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 + 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 + ExplicitHeight = 768 + 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 + ExplicitHeight = 768 + 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 + ExplicitHeight = 768 + object Panel_fs: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 557 + Align = alClient + TabOrder = 0 + ExplicitHeight = 602 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 557 + Width = 1143 + Height = 191 + Align = alBottom + TabOrder = 1 + 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> + 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 + ExplicitHeight = 768 + object Panel_gj: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 565 + Align = alClient + TabOrder = 0 + ExplicitHeight = 590 + 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 = 565 + Width = 1143 + Height = 183 + 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> + 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 + end + object FP: TcxTabSheet + Caption = ' '#21457#27873' ' + ImageIndex = 9 + ExplicitHeight = 768 + object Panel_FP: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 595 + Align = alClient + TabOrder = 0 + ExplicitHeight = 618 + 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 = 595 + Width = 1143 + Height = 153 + 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> + 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 + 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 + ExplicitHeight = 768 + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 748 + Align = alClient + TabOrder = 0 + ExplicitHeight = 768 + 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 + ExplicitHeight = 768 + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 748 + Hint = 'tt' + Align = alClient + TabOrder = 0 + ExplicitHeight = 768 + 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 + ExplicitHeight = 768 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 748 + Align = alClient + TabOrder = 0 + ExplicitHeight = 768 + 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 + ExplicitHeight = 768 + 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 + ExplicitHeight = 768 + 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 + ExplicitHeight = 768 + object panel7: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 748 + Align = alClient + TabOrder = 0 + ExplicitHeight = 768 + 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 + ExplicitTop = 18 + 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 PSName: 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 + Tag = 2 + Left = 673 + Top = 9 + Width = 140 + Height = 20 + TabOrder = 2 + Visible = False + end + object MachineName: TEdit + Tag = 2 + Left = 293 + Top = 8 + Width = 140 + Height = 20 + TabOrder = 3 + end + object note: TEdit + Tag = 2 + Left = 485 + Top = 8 + Width = 140 + Height = 20 + TabOrder = 4 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + Parameters = <> + Left = 841 + Top = 433 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DyeProcess.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/F04染色刷卡/U_DyeProcessDefin.pas b/F04染色刷卡/U_DyeProcessDefin.pas new file mode 100644 index 0000000..6bb2064 --- /dev/null +++ b/F04染色刷卡/U_DyeProcessDefin.pas @@ -0,0 +1,2337 @@ +unit U_DyeProcessDefin; + +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 + TfrmDyeProcessDefin = class(TForm) + ToolBar1: TToolBar; + TbSave: TToolButton; + TBClose: TToolButton; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + TbUpFile: TToolButton; + 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; + PSName: 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; + 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; + 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; + 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; + cxGrid5: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + cxGrid6: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + 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 TbfsAddClick(Sender: TObject); + procedure TbfsDelClick(Sender: TObject); + procedure TbgjAddClick(Sender: TObject); + procedure TbgjDelClick(Sender: TObject); + 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 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 CheckData(): Boolean; + function AddPercentSuffixIfNeeded(const AText: string): string; + { Private declarations } + public + BtnInt: Integer; + FPSType: string; + FPSID: string; + + { Public declarations } + end; + +var + frmDyeProcessDefin: TfrmDyeProcessDefin; + +implementation + +uses + U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp; +// U_ProductInfoSel; + +{$R *.dfm} + +procedure TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.InitGrid(); +var + i: integer; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Bs_Cloth_GY_sub 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 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 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 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 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 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 TfrmDyeProcessDefin.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_Process 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 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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.TBCloseClick(Sender: TObject); +begin + Close; +end; + +function TfrmDyeProcessDefin.CheckData(): Boolean; +begin + if Trim(PSName.Text) = '' then + begin + Application.MessageBox('ƲΪգ', 'ʾϢ', MB_OK); + Result := False; + Exit; + end; + + Result := True; +end; + + +procedure TfrmDyeProcessDefin.CYJGGYBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; +end; + + + +procedure TfrmDyeProcessDefin.TbDXReplace1Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_dx, 'ɶȷ', FindLastEditedTextEdit(panel_dx, 'ɶȷ')); +end; + +procedure TfrmDyeProcessDefin.TbDXReplace2Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_dx, 'ɶ¿', FindLastEditedTextEdit(panel_dx, 'ɶ¿')); +end; + +procedure TfrmDyeProcessDefin.TbDXReplace3Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_dx, 'ɶŷ', FindLastEditedTextEdit(panel_dx, 'ɶŷ')); +end; + +procedure TfrmDyeProcessDefin.TbFPClear1Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_Fp, 'ȷ'); +end; + +procedure TfrmDyeProcessDefin.TbFPClear2Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_Fp, '¿'); +end; + +procedure TfrmDyeProcessDefin.TbFPClear3Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_Fp, 'ŷ'); +end; + +procedure TfrmDyeProcessDefin.TbFPReplace1Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_fp, 'ȷ', FindLastEditedTextEdit(panel_fp, 'ȷ')); +end; + +procedure TfrmDyeProcessDefin.TbFPReplace2Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_fp, '¿', FindLastEditedTextEdit(panel_fp, '¿')); +end; + +procedure TfrmDyeProcessDefin.TbFPReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel5, 'ݺ¶', FindLastEditedTextEdit(panel5, 'ݺ¶')); +end; + +procedure TfrmDyeProcessDefin.TbFSClear1Click(Sender: TObject); +begin + ClearAllTextEditsByHint(Panel_fs, 'ˮȷ'); +end; + +procedure TfrmDyeProcessDefin.TBFScLEAR2Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_FS, 'ˮ¿'); +end; + +procedure TfrmDyeProcessDefin.TbGJReplace1Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_gj, 'νȷ', FindLastEditedTextEdit(Panel_gj, 'νȷ')); +end; + +procedure TfrmDyeProcessDefin.TbGJReplace2Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_gj, 'ν¿', FindLastEditedTextEdit(panel_gj, 'ν¿')); +end; + +procedure TfrmDyeProcessDefin.TbGJReplace3Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_gj, 'νŷ', FindLastEditedTextEdit(Panel_gj, 'νŷ')); +end; + +procedure TfrmDyeProcessDefin.TbGJReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel6, 'ν¶', FindLastEditedTextEdit(panel6, 'ν¶')); +end; + +procedure TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.TbccqxClearClick(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_ccqx, 'ϴ¿'); +end; + +procedure TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.TbCPReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel2, 'ϴˮ', FindLastEditedTextEdit(panel2, 'ϴˮ')); +end; + +function TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.TbFSReplace3Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_fs, 'ˮŷ', FindLastEditedTextEdit(panel_fs, 'ˮŷ')); +end; + +procedure TfrmDyeProcessDefin.TbFSClear3Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_fs, 'ˮŷ'); +end; + +procedure TfrmDyeProcessDefin.TbCCQXReplaceClick(Sender: TObject); +begin + + FillAllTextEditsWithValue(panel_ccqx, 'ϴ¿', FindLastEditedTextEdit(panel_ccqx, 'ϴ¿')); +end; + +procedure TfrmDyeProcessDefin.TbDXClear1Click(Sender: TObject); +begin + + ClearAllTextEditsByHint(panel_DX, 'ɶȷ'); +end; + +procedure TfrmDyeProcessDefin.TbDXClear2Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_DX, 'ɶ¿'); +end; + +procedure TfrmDyeProcessDefin.TbDXClear3Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_DX, 'ɶŷ'); +end; + +procedure TfrmDyeProcessDefin.TbFPReplace3Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_fp, 'ŷ', FindLastEditedTextEdit(panel_fp, 'ŷ')); +end; + +procedure TfrmDyeProcessDefin.cxButton4Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel5, 'ݺ¶'); +end; + +procedure TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.AddPercentSuffixIfNeeded(const AText: string): string; +begin + Result := AText; + if (AText <> '') and (AText[Length(AText)] <> '%') then + Result := AText + '%'; +end; + + + +procedure TfrmDyeProcessDefin.TbGjClear1Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_gj, 'νȷ'); +end; + +procedure TfrmDyeProcessDefin.TbGJClear2Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_gj, 'ν¿'); +end; + +procedure TfrmDyeProcessDefin.TbGJClear3Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel_gj, 'νŷ'); +end; + +procedure TfrmDyeProcessDefin.TbGJClearClick(Sender: TObject); +begin + ClearAllTextEditsByHint(panel6, 'ν¶'); +end; + +procedure TfrmDyeProcessDefin.TbFSReplace1Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_fs, 'ˮȷ', FindLastEditedTextEdit(panel_fs, 'ˮȷ')); +end; + +procedure TfrmDyeProcessDefin.TbFSReplace2Click(Sender: TObject); +begin + FillAllTextEditsWithValue(panel_fs, 'ˮ¿', FindLastEditedTextEdit(panel_fs, 'ˮ¿')); +end; + +procedure TfrmDyeProcessDefin.CYColorKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmDyeProcessDefin.C_WidthBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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 TfrmDyeProcessDefin.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/F04染色刷卡/U_MachTaskList.dfm b/F04染色刷卡/U_MachTaskList.dfm index 6922100..74dc651 100644 --- a/F04染色刷卡/U_MachTaskList.dfm +++ b/F04染色刷卡/U_MachTaskList.dfm @@ -2,8 +2,8 @@ object frmMachTaskList: TfrmMachTaskList Left = 0 Top = 0 Caption = #25195#25551#25490#32568 - ClientHeight = 824 - ClientWidth = 1271 + ClientHeight = 836 + ClientWidth = 1540 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText @@ -16,145 +16,183 @@ object frmMachTaskList: TfrmMachTaskList OnShow = FormShow PixelsPerInch = 96 TextHeight = 21 + object Splitter1: TSplitter + Left = 846 + Top = 97 + Height = 739 + Align = alRight + ExplicitLeft = 688 + ExplicitTop = 296 + ExplicitHeight = 100 + end object cxGrid1: TcxGrid Left = 0 - Top = 121 - Width = 1271 - Height = 703 + Top = 97 + Width = 846 + Height = 739 Align = alClient Images = DataLink_DyeProcess.ThreeImgList TabOrder = 0 - ExplicitTop = 127 - object tv1: TcxGridDBTableView + ExplicitLeft = 8 + ExplicitTop = 91 + object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DataSource1 + DataController.DataSource = DS_1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum - Column = tv1taskQty + Column = Tv1taskQty end item Kind = skSum - Column = tv1taskRollNum + Column = Tv1taskRollNum end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnSorting = False OptionsData.Deleting = False - OptionsData.Editing = False OptionsData.Inserting = False OptionsView.ShowEditButtons = gsebForFocusedRecord OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.HeaderHeight = 30 - Styles.UseOddEvenStyles = bFalse - object tv1OrderNo: TcxGridDBColumn + object Tv1OrderNo: TcxGridDBColumn Caption = #35745#21010#21333 DataBinding.FieldName = 'OrderNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 74 + Options.Editing = False + Width = 59 end - object tv1custName: TcxGridDBColumn - Caption = #23458#25143 - DataBinding.FieldName = 'custName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 70 - end - object tv1pcid: TcxGridDBColumn - Caption = #27969#31243#21345 + object Tv1pcid: TcxGridDBColumn + Caption = #27969#31243#21345#21495 DataBinding.FieldName = 'pcid' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 115 + Options.Editing = False + Width = 92 end - object tv1C_name: TcxGridDBColumn - Caption = #20135#21697#21517#31216 + object Tv1C_name: TcxGridDBColumn + Caption = #25104#21697#21517#31216 DataBinding.FieldName = 'C_name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 125 + Options.Editing = False + Width = 99 end - object tv1c_color: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'c_color' + object Tv1c_color: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'GlideName' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv1c_colorPropertiesButtonClick HeaderAlignmentHorz = taCenter - Width = 98 + Width = 78 end - object tv1taskDate: TcxGridDBColumn - Caption = #20219#21153#26102#38388 - DataBinding.FieldName = 'taskDate' + object Tv1taskRollNum: TcxGridDBColumn + Caption = #20219#21153#21305#25968 + DataBinding.FieldName = 'PCPiece' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 103 + Width = 87 end - object tv1taskRollNum: TcxGridDBColumn - Caption = #21305#25968 - DataBinding.FieldName = 'taskRollNum' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Filtering = False - Width = 71 - end - object tv1taskQty: TcxGridDBColumn + object Tv1taskQty: TcxGridDBColumn Caption = #20219#21153#25968#37327 - DataBinding.FieldName = 'taskQty' + DataBinding.FieldName = 'PCQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object Tv1taskDate: TcxGridDBColumn + Caption = #20219#21153#26102#38388 + DataBinding.FieldName = 'time' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv1MCNO: TcxGridDBColumn + Caption = #26426#21488 + DataBinding.FieldName = 'MCNO' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = tv1CarNoPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 61 + end + object Tv1BegTime: TcxGridDBColumn + Caption = #24320#22987#26102#38388 + DataBinding.FieldName = 'BegTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + Properties.OnValidate = tv1BegTimePropertiesValidate + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1MCName: TcxGridDBColumn + Caption = #26426#21488#21517#31216 + DataBinding.FieldName = 'MCName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 86 end - object tv1CarNo: TcxGridDBColumn - Caption = #36733#36710#21495 - DataBinding.FieldName = 'CarNo' + object Tv1GlideID: TcxGridDBColumn + Caption = #20027#38190 + DataBinding.FieldName = 'GlideID' DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 81 + Visible = False + Width = 80 end - object tv1Column1: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_Width' + object Tv1GlideNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'GlideNo' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 80 end - object tv1Column2: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' + object Tv1PSType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'PSType' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1PSID: TcxGridDBColumn + Caption = #24037#24207#20027#38190 + DataBinding.FieldName = 'PSID' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter Width = 80 end - object tv1Column3: TcxGridDBColumn - Caption = #33394#21495 - DataBinding.FieldName = 'C_ColorNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object tv1Column4: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'PJNote' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 139 - end end object cxGrid1Level1: TcxGridLevel - GridView = tv1 + GridView = Tv1 end end object ToolBar3: TToolBar Tag = 1 Left = 0 Top = 0 - Width = 1271 + Width = 1540 Height = 38 AutoSize = True ButtonHeight = 38 @@ -180,6 +218,7 @@ object frmMachTaskList: TfrmMachTaskList AutoSize = True Caption = #19978#31227 ImageIndex = 19 + Visible = False OnClick = ToolButton1Click end object ToolButton2: TToolButton @@ -188,26 +227,43 @@ object frmMachTaskList: TfrmMachTaskList AutoSize = True Caption = #19979#31227 ImageIndex = 17 + Visible = False OnClick = ToolButton2Click end - object Tconfirm: TToolButton + object TbSave: TToolButton Left = 237 Top = 0 AutoSize = True - Caption = #20445#23384#26684#24335 - ImageIndex = 15 - OnClick = TconfirmClick + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TbSaveClick end - object TBDel: TToolButton - Left = 348 + object TbEditSave: TToolButton + Left = 316 Top = 0 AutoSize = True - Caption = #21024#38500#25490#32568 + Caption = #20462#25913#20445#23384 + ImageIndex = 3 + OnClick = TbEditSaveClick + end + object TBDel: TToolButton + Left = 427 + Top = 0 + AutoSize = True + Caption = #21024#38500#20445#23384 ImageIndex = 5 OnClick = TBDelClick end + object Tconfirm: TToolButton + Left = 538 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = TconfirmClick + end object Tclose: TToolButton - Left = 459 + Left = 649 Top = 0 AutoSize = True Caption = #20851#38381 @@ -218,13 +274,12 @@ object frmMachTaskList: TfrmMachTaskList object Panel1: TPanel Left = 0 Top = 38 - Width = 1271 - Height = 83 + Width = 1540 + Height = 59 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 - ExplicitTop = 27 object Label1: TLabel Left = 24 Top = 18 @@ -239,11 +294,11 @@ object frmMachTaskList: TfrmMachTaskList ParentFont = False end object Label2: TLabel - Left = 368 - Top = 18 - Width = 32 + Left = 357 + Top = 15 + Width = 64 Height = 22 - Caption = #26426#21488 + Caption = #20135#21697#21517#31216 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -16 @@ -252,8 +307,8 @@ object frmMachTaskList: TfrmMachTaskList ParentFont = False end object pcid: TcxTextEdit - Left = 104 - Top = 9 + Left = 99 + Top = 11 ParentFont = False Style.Font.Charset = DEFAULT_CHARSET Style.Font.Color = clWindowText @@ -265,9 +320,9 @@ object frmMachTaskList: TfrmMachTaskList OnKeyPress = pcidKeyPress Width = 228 end - object machName: TcxTextEdit - Left = 422 - Top = 9 + object C_Name: TcxTextEdit + Left = 427 + Top = 11 ParentFont = False Properties.ReadOnly = True Style.Font.Charset = DEFAULT_CHARSET @@ -280,10 +335,113 @@ object frmMachTaskList: TfrmMachTaskList Width = 155 end end - object DataSource1: TDataSource - DataSet = ADOQueryList - Left = 184 - Top = 208 + object cxGrid2: TcxGrid + Left = 849 + Top = 97 + Width = 691 + Height = 739 + Align = alRight + TabOrder = 3 + ExplicitLeft = 852 + ExplicitTop = 103 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + FindPanel.DisplayMode = fpdmAlways + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DS_2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + object Tv2OrderNo: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object Tv2PCID: TcxGridDBColumn + Caption = #27969#31243#21345#21495 + DataBinding.FieldName = 'PCID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object Tv2GlideName: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'GlideName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv2GlideNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object Tv2GlideNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'GlideNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv2C_Name: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object Tv2PSType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'PSType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv2All_zhuji: TcxGridDBColumn + Caption = #21161#21058 + DataBinding.FieldName = 'All_zhuji' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv2ALL_temperature6: TcxGridDBColumn + Caption = '6#'#28201#24230 + DataBinding.FieldName = 'ALL_temperature6' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv2GlideID: TcxGridDBColumn + Caption = #25490#20135'ID' + DataBinding.FieldName = 'GlideID' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 728 + Top = 224 end object ADOQueryList: TADOQuery Connection = DataLink_DyeProcess.ADOLink @@ -319,4 +477,33 @@ object frmMachTaskList: TfrmMachTaskList Left = 320 Top = 360 end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 840 + Top = 232 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 1168 + Top = 288 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 1280 + Top = 296 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 680 + Top = 312 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 1056 + Top = 224 + end end diff --git a/F04染色刷卡/U_MachTaskList.pas b/F04染色刷卡/U_MachTaskList.pas index 43b23c0..99a36dd 100644 --- a/F04染色刷卡/U_MachTaskList.pas +++ b/F04染色刷卡/U_MachTaskList.pas @@ -11,44 +11,66 @@ uses cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, Vcl.ComCtrls, Vcl.ToolWin, Data.Win.ADODB, Vcl.ExtCtrls, cxContainer, cxTextEdit, Vcl.StdCtrls, cxMaskEdit, cxButtonEdit, - Vcl.Menus, cxButtons, dxSkinsDefaultPainters; + Vcl.Menus, cxButtons, dxSkinsDefaultPainters, Datasnap.DBClient, cxTimeEdit, + cxCalendar, dxBarBuiltInMenu, cxGridCustomPopupMenu, cxGridPopupMenu; type TfrmMachTaskList = class(TForm) cxGrid1: TcxGrid; - tv1: TcxGridDBTableView; - tv1pcid: TcxGridDBColumn; - tv1CarNo: TcxGridDBColumn; - tv1custName: TcxGridDBColumn; - tv1OrderNo: TcxGridDBColumn; - tv1C_name: TcxGridDBColumn; - tv1c_color: TcxGridDBColumn; - tv1taskDate: TcxGridDBColumn; - tv1taskRollNum: TcxGridDBColumn; - tv1taskQty: TcxGridDBColumn; + Tv1: TcxGridDBTableView; + Tv1pcid: TcxGridDBColumn; + Tv1MCNO: TcxGridDBColumn; + Tv1OrderNo: TcxGridDBColumn; + Tv1C_name: TcxGridDBColumn; + Tv1c_color: TcxGridDBColumn; + Tv1taskDate: TcxGridDBColumn; + Tv1taskRollNum: TcxGridDBColumn; + Tv1taskQty: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; ToolBar3: TToolBar; Trefresh: TToolButton; Tconfirm: TToolButton; Tclose: TToolButton; - DataSource1: TDataSource; + DS_1: TDataSource; ADOQueryList: TADOQuery; Panel1: TPanel; Label1: TLabel; pcid: TcxTextEdit; Label2: TLabel; - machName: TcxTextEdit; + C_Name: TcxTextEdit; ADOQueryTmp: TADOQuery; ADOQueryCmd: TADOQuery; ADOQueryCard: TADOQuery; ADOQueryMach: TADOQuery; TBDel: TToolButton; - tv1Column1: TcxGridDBColumn; - tv1Column2: TcxGridDBColumn; - tv1Column3: TcxGridDBColumn; - tv1Column4: TcxGridDBColumn; + Tv1BegTime: TcxGridDBColumn; ToolButton1: TToolButton; ToolButton2: TToolButton; + CDS_1: TClientDataSet; + TbSave: TToolButton; + Tv1MCName: TcxGridDBColumn; + Tv2: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2OrderNo: TcxGridDBColumn; + Tv2PCID: TcxGridDBColumn; + Tv2GlideName: TcxGridDBColumn; + Tv2C_Name: TcxGridDBColumn; + CDS_2: TClientDataSet; + DS_2: TDataSource; + TbEditSave: TToolButton; + Tv1GlideID: TcxGridDBColumn; + Splitter1: TSplitter; + Tv1GlideNo: TcxGridDBColumn; + Tv2GlideNo: TcxGridDBColumn; + Tv2PSType: TcxGridDBColumn; + Tv1PSType: TcxGridDBColumn; + Tv1PSID: TcxGridDBColumn; + Tv2All_zhuji: TcxGridDBColumn; + Tv2ALL_temperature6: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + Tv2GlideID: TcxGridDBColumn; procedure TcloseClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); @@ -59,10 +81,24 @@ type procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); + procedure tv1CarNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TbSaveClick(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure TbEditSaveClick(Sender: TObject); + 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); + private procedure initGrid(); + procedure initSubGrid(); + function SaveData(): boolean; + function GetLastLine(const AText: string): string; + function CheckDate: Boolean; + public fcurMachId: string; + fBegTime, fMCNO, fMCName, fText: string; end; var @@ -71,7 +107,7 @@ var implementation uses - U_dataLink, U_rtFun, U_globalVar; + U_dataLink, U_rtFun, U_globalVar, U_BS_MachineSel, U_DyeProcessDefin; {$R *.dfm} procedure TfrmMachTaskList.FormCreate(Sender: TObject); @@ -81,21 +117,65 @@ end; procedure TfrmMachTaskList.TBDelClick(Sender: TObject); begin - try - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('exec p_delete_machTask'); - sql.Add('@ids=' + quotedstr(Trim(ADOQueryList.FieldByName('taskid').AsString))); - sql.Add(',@user=' + quotedstr(gUserId)); - ExecSql; + 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(fMCName + ' = null WHERE '); + SQL.Add(fMCName + ' = ' + QuotedStr(Trim(fText))); +// 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); + Close; + + except + on E: Exception do + begin + // 쳣ع + ADOQueryCmd.Connection.RollbackTrans; + ShowMessage('ʧܣ' + E.Message); + end; end; - except - application.MessageBox('ɾ¼ʧ!', 'ʾϢ', 0); end; - initGrid(); end; +//begin +// try +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('exec p_delete_machTask'); +// sql.Add('@ids=' + quotedstr(Trim(ADOQueryList.FieldByName('taskid').AsString))); +// sql.Add(',@user=' + quotedstr(gUserId)); +// ExecSql; +// end; +// except +// application.MessageBox('ɾ¼ʧ!', 'ʾϢ', 0); +// end; +// initSubGrid(); +//end; procedure TfrmMachTaskList.TcloseClick(Sender: TObject); begin @@ -105,6 +185,7 @@ end; procedure TfrmMachTaskList.TconfirmClick(Sender: TObject); begin WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '̨ɨŸ'); + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '̨ɨŸ'); end; procedure TfrmMachTaskList.ToolButton1Click(Sender: TObject); @@ -129,7 +210,7 @@ begin except application.MessageBox('ʧ!', 'ʾϢ', 0); end; - initGrid(); + initSubGrid(); ADOQueryList.Locate('taskid', FTaskID, []); end; @@ -156,25 +237,651 @@ begin except application.MessageBox('ʧ!', 'ʾϢ', 0); end; - initGrid(); + initSubGrid(); ADOQueryList.Locate('taskid', FTaskID, []); end; +procedure TfrmMachTaskList.TbEditSaveClick(Sender: TObject); +begin + if not CheckDate then + Exit; + + 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(fMCName + ' = null WHERE '); + SQL.Add(fMCName + ' = ' + QuotedStr(Trim(fText))); + ExecSQL; + end; + + // ݿԼ... + + // вɹύ + ADOQueryCmd.Connection.CommitTrans; + + except + on E: Exception do + begin + ADOQueryCmd.Connection.RollbackTrans; + ShowMessage('ʧܣ' + E.Message); + Exit; // Ҫ쳣˳ + end; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + end; + close; + end; + +end; + +function TfrmMachTaskList.CheckDate: Boolean; +var + Hour, Min, Sec, MSec: Word; +begin + Result := False; + + ////////////////ĿλǷи + if (CDS_1.FieldByName('BegTime').AsString <> fBegTime) or (CDS_1.FieldByName('MCName').AsString <> fMCName) then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(' select ' + CDS_1.FieldByName('MCName').AsString + ' from PCAboutTime where Time = ' + QuotedStr(Trim(CDS_1.FieldByName('BegTime').AsString))); + +// ShowMessage(sql.Text); + open; + if (ADOQueryCmd.FieldByName(CDS_1.FieldByName('MCName').AsString).asString <> fText) and (ADOQueryCmd.FieldByName(CDS_1.FieldByName('MCName').AsString).asString <> null) and (ADOQueryCmd.FieldByName(CDS_1.FieldByName('MCName').AsString).asString <> '') then + begin + Application.MessageBox('Ŀʱй', 'ʾϢ', MB_OK); + Exit; + end; + end; + end; + + var i: Integer; + if (fText = '') or (fText = null) then + begin + + end; + if CDS_1.FieldByName('time').Value = 0 then + begin + Application.MessageBox('ʱ䲻Ϊ0', 'ʾϢ', MB_OK); + Exit; + end; +// ShowMessage(CDS_1.FieldByName('Begtime').AsString); + DecodeTime(VarToDateTime(CDS_1.FieldByName('Begtime').Value), Hour, Min, Sec, MSec); + + if Sec <> 0 then + begin + Application.MessageBox('ʼʱΪ 0', 'ʾϢ', MB_OK); + Exit; + end + else if (Min mod 10) <> 0 then // ӷ֤ + begin + Application.MessageBox('ʼʱӱΪ 10 ı', 'ʾϢ', MB_OK); + Exit; + end; + +//////////////Ų˳ʱ//////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(' select * from Dye_Plan_Glide where PCID = ' + QuotedStr(Trim(CDS_1.FieldByName('PCID').AsString))); + SQL.Add(' and PC_FLAG = 1 and endTime > ' + quotedStr(Trim(CDS_1.FieldByName('Begtime').AsString))); + SQL.Add(' and GlideNo < ' + QuotedStr(Trim(CDS_1.FieldByName('GlideNo').AsString))); +// ShowMessage(sql.Text); + open; + if not IsEmpty then + begin + Application.MessageBox('ʱظ', 'ʾϢ', MB_OK); + Exit; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(' select * from Dye_Plan_Glide where PCID = ' + QuotedStr(Trim(CDS_1.FieldByName('PCID').AsString))); + SQL.Add(' and PC_FLAG = 1 and BegTime < DATEADD(MINUTE, ' + CDS_1.FieldByName('time').AsString + ', ' + QuotedStr(trim(CDS_1.FieldByName('BegTime').AsString)) + ')'); + SQL.Add(' and GlideNo > ' + QuotedStr(Trim(CDS_1.FieldByName('GlideNo').AsString))); +// ShowMessage(sql.Text); + open; + if not IsEmpty then + begin + 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); +// Exit; +// end; + + if not CheckDate then + Exit; + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + end; + close; +end; + +function TfrmMachTaskList.SaveData(): boolean; +var + mLoopNum: Integer; + mMCName, mNewValue, mStartTime: string; +begin + result := false; + ADOQueryCmd.Connection.BeginTrans; + try + + mLoopNum := StrToInt(CDS_1.FieldByName('Time').AsString) div 10; + + with CDS_1 do + begin + First; + while not Eof do + begin + if (CDS_1.FieldByName('MCNO').AsString <> '') 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(' where GlideID = ' + QuotedStr(Trim(CDS_1.FieldByName('GlideID').asString))); +// ShowMessage(sql.Text); + ExecSQL; + end; + mMCName := CDS_1.FieldByName('MCName').AsString; + 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('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; +// 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; + + 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 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; + end; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + result := true; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + result := false; + end; +end; + procedure TfrmMachTaskList.TrefreshClick(Sender: TObject); begin - initGrid(); + initSubGrid(); +end; + +procedure TfrmMachTaskList.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 TfrmMachTaskList.tv1CarNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmBS_MachineSel := TfrmBS_MachineSel.Create(Application); + with frmBS_MachineSel do + begin + + if ShowModal = 1 then + begin + Self.CDS_1.Edit; + Self.CDS_1.FieldByName('MCNO').Value := frmBS_MachineSel.Order_Main.FieldByName('MCNO').Value; + Self.CDS_1.FieldByName('MCName').Value := frmBS_MachineSel.Order_Main.FieldByName('MCName').Value; + Self.CDS_1.Post; +// ShowMessage(CDS_1.FieldByName('BegTime').AsString); + Self.initSubGrid(); + end; + end; + finally + frmBS_MachineSel.Free; + end; +end; + +procedure TfrmMachTaskList.Tv1c_colorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + FPSID := self.CDS_1.FieldByName('PSID').AsString; + FPSType := self.CDS_1.FieldByName('PSType').AsString; + BtnInt := 3; + if ShowModal = 1 then + begin + + end; + end; + + finally + frmDyeProcessDefin.Free; + end; +end; + +procedure TfrmMachTaskList.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +var + glideIds: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCard do + begin + close; + sql.clear; + sql.Add(' select * from V_Dye_Cloth_PaiGang where GlideID = ' + quotedStr(Trim(CDS_2.FieldByName('GlideID').AsString))); + open; + end; + with CDS_1 do + begin + if CDS_1.RecordCount = 0 then + begin + append; + end + else + begin + Edit; + end; + + FieldByName('GlideID').value := ADOQueryCard.FieldByName('GlideID').AsString; + FieldByName('GlideNo').value := ADOQueryCard.FieldByName('GlideNo').AsString; + FieldByName('OrderNo').value := ADOQueryCard.FieldByName('OrderNo').AsString; + FieldByName('pcid').value := ADOQueryCard.FieldByName('pcid').AsString; + FieldByName('C_name').value := ADOQueryCard.FieldByName('C_name').AsString; + FieldByName('GlideName').value := ADOQueryCard.FieldByName('GlideName').AsString; + FieldByName('PCPiece').value := ADOQueryCard.FieldByName('PCPiece').AsString; + FieldByName('PCQty').value := 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; + + FieldByName('ccqx_speed').value := ADOQueryCard.FieldByName('ccqx_speed').AsString; + FieldByName('ccqx_temperature6').value := ADOQueryCard.FieldByName('ccqx_temperature6').AsString; + FieldByName('dx_speed').value := ADOQueryCard.FieldByName('dx_speed').AsString; + FieldByName('dx_temperature6').value := ADOQueryCard.FieldByName('dx_temperature6').AsString; + FieldByName('fs_speed').value := ADOQueryCard.FieldByName('fs_speed').AsString; + FieldByName('fs_temperature6').value := ADOQueryCard.FieldByName('fs_temperature6').AsString; + FieldByName('gj_speed').value := ADOQueryCard.FieldByName('gj_speed').AsString; + FieldByName('gj_temperature6').value := ADOQueryCard.FieldByName('gj_temperature6').AsString; + FieldByName('fp_speed').value := ADOQueryCard.FieldByName('fp_speed').AsString; + FieldByName('fp_temperature6').value := ADOQueryCard.FieldByName('fp_temperature6').AsString; + FieldByName('All_zhuji').value := ADOQueryCard.FieldByName('All_zhuji').AsString; + + FieldByName('MCNO').value := fMCNO; + FieldByName('BegTime').value := fBegTime; + FieldByName('MCName').value := fMCName; + Post; + end; + if ADOQueryCard.RecordCount = 0 then + begin + raise Exception.Create('δҵ̿̿δŹ'); + end; + + ADOQueryCmd.Connection.CommitTrans; + except + if ADOQueryCmd.Connection.InTransaction then + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); +// showMessage('ʱ!'); + end; + initSubGrid(); +end; + +procedure TfrmMachTaskList.Tv2GlideNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + FPSID := self.CDS_2.FieldByName('PSID').AsString; + FPSType := self.CDS_2.FieldByName('PSType').AsString; + BtnInt := 3; + if ShowModal = 1 then + begin + + end; + end; + + finally + frmDyeProcessDefin.Free; + end; end; //////////////////////////////////////////// /// + +function TfrmMachTaskList.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 TfrmMachTaskList.FormShow(Sender: TObject); begin ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '̨ɨŸ'); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '̨ɨŸ'); + initSubGrid(); initGrid(); +// ShowMessage(GetLastLine(fText)); + if CDS_1.RecordCount > 0 then + begin + TbSave.Visible := False; + cxGrid2.Visible := False; + end + else + begin + TbEditSave.Visible := false; + TbDel.Visible := False; + end; end; procedure TfrmMachTaskList.initGrid(); +begin + try + ADOQueryList.DisableControls; + with ADOQueryTmp do + begin + Close; + SQL.Clear; + SQL.Add(' select * from BS_Machine where MCName = ' + QuotedStr(fMCName)); + open; + end; + fMCNO := ADOQueryTmp.FieldByName('MCNO').AsString; + + with ADOQueryList do + begin + close; + sql.Clear; + sql.Add('select * from V_Dye_Cloth_PaiGang where 1 = 2'); +// sql.Add('where not exists ('); +// sql.Add(' select 1 from PCAboutTime '); +// sql.Add(' where PCAboutTime.GlideID = V_Dye_Cloth_PaiGang.GlideID'); +// sql.Add(')'); +// ShowMessage(SQL.Text); +// a.taskDate, + open; + end; + SCreateCDS(ADOQueryList, CDS_1); + SInitCDSData(ADOQueryList, CDS_1); + + if (fText = '') or (fText = null) then + begin + + end + else + begin + TbEditSave.Visible := True; + with ADOQueryList do + begin + close; + sql.Clear; + sql.Add('select * from V_Dye_Cloth_PaiGang where GlideID = ' + QuotedStr(Trim(GetLastLine(fText)))); + open; + end; + with CDS_1 do + begin + Append; + FieldByName('GlideID').value := trim(ADOQueryList.FieldByName('GlideID').AsString); + FieldByName('GlideNo').value := trim(ADOQueryList.FieldByName('GlideNo').AsString); + FieldByName('OrderNo').value := trim(ADOQueryList.FieldByName('OrderNo').AsString); + FieldByName('pcid').value := ADOQueryList.FieldByName('pcid').AsString; + FieldByName('C_name').value := ADOQueryList.FieldByName('C_name').AsString; + FieldByName('GlideName').value := ADOQueryList.FieldByName('GlideName').AsString; + FieldByName('PCPiece').value := ADOQueryList.FieldByName('PCPiece').Asfloat; + FieldByName('PCQty').value := ADOQueryList.FieldByName('PCQty').Asfloat; + FieldByName('time').value := ADOQueryList.FieldByName('time').AsString; + FieldByName('PSType').value := ADOQueryList.FieldByName('PSType').AsString; + FieldByName('PSID').value := ADOQueryList.FieldByName('PSID').AsString; + + FieldByName('MCNO').value := fMCNO; + FieldByName('BegTime').value := fBegTime; + FieldByName('MCName').value := fMCName; + Post; + end; + end; + + finally + ADOQueryList.EnableControls; +// tv1.ApplyBestFit(); + end; +end; + +procedure TfrmMachTaskList.initSubGrid(); begin try ADOQueryList.DisableControls; @@ -182,21 +889,18 @@ begin begin close; sql.Clear; - sql.Add('select a.*,b.custName,b.orderno,B.c_color,B.c_name,B.PCID,B.C_ColorNo'); - sql.Add('from MD_Machine_Task a'); - sql.Add('inner join Dye_Plan_Card b on b.pcid=a.pcid'); - sql.Add('where a.status=''0'''); - sql.Add('and A.mcid=' + quotedstr(fcurMachId)); - sql.Add('and not EXISTS(select 1 from Dye_Cloth_Stock X where X.pcid=B.pcid)'); - sql.add('and not EXISTS(select 1 from Dye_Plan_Card_Move X where X.FromID= B.pcid)'); - sql.Add('order by a.order_idx '); + sql.Add('select * from V_Dye_Cloth_PaiGang '); + sql.Add('where PC_Flag = 0 order by PCID ASC, GlideNo ASC'); // ShowMessage(SQL.Text); // a.taskDate, open; end; + SCreateCDS(ADOQueryList, CDS_2); + SInitCDSData(ADOQueryList, CDS_2); +// ShowMessage(CDS_2.FieldByName('PSID').AsString); finally ADOQueryList.EnableControls; - tv1.ApplyBestFit(); +// tv1.ApplyBestFit(); end; end; @@ -212,82 +916,85 @@ begin begin close; sql.clear; - sql.add(' select top 1 A.OrderNo,A.workShop,A.PSC_StkPiece,A.PSC_StkQty,B.GlideId,B.GlideNo,B.GlideName '); - sql.add(' from Dye_Plan_Card A '); - sql.add(' left join Dye_Plan_Glide B on A.pcid=B.pcid '); - sql.add(' where A.pcid= ' + QuotedStr(Trim(pcid.Text))); -// sql.add(' and B.Completeness < 100 '); - sql.add(' and not exists(select * from Dye_Plan_Glide_output e where e.glideno=b.glideno and e.pcid=a.pcid)'); - sql.add(' order by B.GlideNo '); +// sql.add(' select top 1 A.OrderNo,A.workShop,A.PSC_StkPiece,A.PSC_StkQty,B.GlideId,B.GlideNo,B.GlideName '); +// sql.add(' from Dye_Plan_Card A '); +// sql.add(' left join Dye_Plan_Glide B on A.pcid=B.pcid '); +// sql.add(' where A.pcid= ' + QuotedStr(Trim(pcid.Text))); +//// sql.add(' and B.Completeness < 100 '); +// sql.add(' and not exists(select * from Dye_Plan_Glide_output e where e.glideno=b.glideno and e.pcid=a.pcid)'); +// sql.add(' order by B.GlideNo '); + sql.Add(' select * from V_Dye_Cloth_PaiGang where PCID = ' + quotedStr(Trim(PCID.Text))); + open; end; - + SCreateCDS(ADOQueryCard, CDS_1); + SInitCDSData(ADOQueryCard, CDS_1); if ADOQueryCard.RecordCount = 0 then begin raise Exception.Create('δҵ̿̿δŹ'); end; - with ADOQueryMach do - begin - close; - sql.clear; - sql.add(' select A.* from Bs_Machine A '); - sql.add(' where A.mcid= ' + QuotedStr(Trim(fcurMachId))); - open; - end; +// with ADOQueryMach do +// begin +// close; +// sql.clear; +// sql.add(' select A.* from Bs_Machine A '); +// sql.add(' where A.mcid= ' + QuotedStr(Trim(fcurMachId))); +// open; +// end; +// +// if ADOQueryMach.RecordCount = 0 then +// begin +// raise Exception.Create('δҵ̨'); +// end; +// +// with ADOQueryCmd do +// begin +// close; +// sql.clear; +// sql.add('select * from MD_Machine_Task '); +// sql.add('where 1=2'); +// open; +// append; +// +// fieldByName('mcId').value := Trim(fcurMachId); +// fieldByName('mcNo').value := Trim(ADOQueryMach.FieldByName('mcno').AsString); +// fieldByName('taskDate').value := SGetServerDate(ADOQueryTmp); +// fieldByName('orderNo').value := trim(ADOQueryCard.FieldByName('orderNo').AsString); +// fieldByName('pcId').value := Trim(pcid.Text); +// fieldByName('status').value := '0'; +// fieldByName('glideGroup').value := ''; +// fieldByName('machGroupNo').value := ''; +// fieldByName('workShop').value := trim(ADOQueryCard.FieldByName('workShop').AsString); +// fieldByName('taskRollNum').value := ADOQueryCard.FieldByName('PSC_StkPiece').AsFloat; +// fieldByName('taskQty').value := ADOQueryCard.FieldByName('PSC_StkQty').AsFloat; +// +// fieldByName('taskType').value := 'ֶ'; +// fieldByName('curGlideName').value := trim(ADOQueryCard.FieldByName('glideName').AsString); +// fieldByName('curGlide').value := trim(ADOQueryCard.FieldByName('glideName').AsString); +// fieldByName('GlideId').value := trim(ADOQueryCard.FieldByName('GlideId').AsString); +// fieldByName('deleted').value := 0; +// fieldByName('filler').value := gUserName; +// post; +// end; - if ADOQueryMach.RecordCount = 0 then - begin - raise Exception.Create('δҵ̨'); - end; - - with ADOQueryCmd do - begin - close; - sql.clear; - sql.add('select * from MD_Machine_Task '); - sql.add('where 1=2'); - open; - append; - - fieldByName('mcId').value := Trim(fcurMachId); - fieldByName('mcNo').value := Trim(ADOQueryMach.FieldByName('mcno').AsString); - fieldByName('taskDate').value := SGetServerDate(ADOQueryTmp); - fieldByName('orderNo').value := trim(ADOQueryCard.FieldByName('orderNo').AsString); - fieldByName('pcId').value := Trim(pcid.Text); - fieldByName('status').value := '0'; - fieldByName('glideGroup').value := ''; - fieldByName('machGroupNo').value := ''; - fieldByName('workShop').value := trim(ADOQueryCard.FieldByName('workShop').AsString); - fieldByName('taskRollNum').value := ADOQueryCard.FieldByName('PSC_StkPiece').AsFloat; - fieldByName('taskQty').value := ADOQueryCard.FieldByName('PSC_StkQty').AsFloat; - - fieldByName('taskType').value := 'ֶ'; - fieldByName('curGlideName').value := trim(ADOQueryCard.FieldByName('glideName').AsString); - fieldByName('curGlide').value := trim(ADOQueryCard.FieldByName('glideName').AsString); - fieldByName('GlideId').value := trim(ADOQueryCard.FieldByName('GlideId').AsString); - fieldByName('deleted').value := 0; - fieldByName('filler').value := gUserName; - post; - end; - - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('update MD_Machine_Task set order_idx=isnull((select floor(max(order_idx)) from MD_Machine_Task X where X.mcNo=MD_Machine_Task.mcNo),0)+1'); - sql.Add('where order_idx is null'); - ExecSql; - end; - - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('update dye_plan_glide set pc_flag=1'); - sql.Add('where glideId =' + quotedstr(trim(ADOQueryCard.FieldByName('GlideId').AsString))); - ExecSql; - end; +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update MD_Machine_Task set order_idx=isnull((select floor(max(order_idx)) from MD_Machine_Task X where X.mcNo=MD_Machine_Task.mcNo),0)+1'); +// sql.Add('where order_idx is null'); +// ExecSql; +// end; +// +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update dye_plan_glide set pc_flag=1'); +// sql.Add('where glideId =' + quotedstr(trim(ADOQueryCard.FieldByName('GlideId').AsString))); +// ExecSql; +// end; ADOQueryCmd.Connection.CommitTrans; except @@ -296,7 +1003,7 @@ begin application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); // showMessage('ʱ!'); end; - initGrid(); + initSubGrid(); end; end; diff --git a/F05染色检验/DyeInsp.dproj.local b/F05染色检验/DyeInsp.dproj.local index 5a3fc26..7de5e3b 100644 --- a/F05染色检验/DyeInsp.dproj.local +++ b/F05染色检验/DyeInsp.dproj.local @@ -1,38 +1,38 @@  - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 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.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 + 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.958,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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.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 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 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.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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.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.958,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.320,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas diff --git a/F05染色检验/DyeInsp.identcache b/F05染色检验/DyeInsp.identcache index 6d3105f..0f11634 100644 Binary files a/F05染色检验/DyeInsp.identcache and b/F05染色检验/DyeInsp.identcache differ diff --git a/F05染色检验/DyeInspLogin.dproj.local b/F05染色检验/DyeInspLogin.dproj.local index e2843ae..8a45a34 100644 --- a/F05染色检验/DyeInspLogin.dproj.local +++ b/F05染色检验/DyeInspLogin.dproj.local @@ -21,6 +21,6 @@ - 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj + 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj diff --git a/F05染色检验/DyeInspLogin.identcache b/F05染色检验/DyeInspLogin.identcache index da5bc7b..948741f 100644 Binary files a/F05染色检验/DyeInspLogin.identcache and b/F05染色检验/DyeInspLogin.identcache differ diff --git a/F05染色检验/U_DyeClothInspList.dfm b/F05染色检验/U_DyeClothInspList.dfm index 69ef4d4..0056055 100644 --- a/F05染色检验/U_DyeClothInspList.dfm +++ b/F05染色检验/U_DyeClothInspList.dfm @@ -20,7 +20,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList AutoSize = True BorderStyle = bsSingle TabOrder = 3 - ExplicitWidth = 1472 DesignSize = ( 1467 24) @@ -128,7 +127,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList ParentFont = False PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 136 object Tv1: TcxGridDBTableView OnMouseUp = Tv1MouseUp Navigator.Buttons.CustomButtons = <> @@ -505,7 +503,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitWidth = 1472 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -599,7 +596,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList Color = 16242829 ParentBackground = False TabOrder = 4 - ExplicitWidth = 1472 object Label3: TLabel Left = 195 Top = 14 diff --git a/F05染色检验/U_DyeClothInspList.pas b/F05染色检验/U_DyeClothInspList.pas index 29c064d..22e82d6 100644 --- a/F05染色检验/U_DyeClothInspList.pas +++ b/F05染色检验/U_DyeClothInspList.pas @@ -401,7 +401,7 @@ end; procedure TfrmDyeClothInspList.btnJBQClick(Sender: TObject); var - fPrintFile, FLBName: string; + MCIID: string; begin if Order_Main.IsEmpty then Exit; @@ -410,14 +410,34 @@ begin Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; + + MCIID := ''; Order_Main.DisableControls; with Order_Main do begin + MCIID := Trim(Order_Main.fieldbyname('CIID').AsString); First; - while not Eof do + while Order_Main.Locate('SSel', True, []) do begin - if Order_Main.FieldByName('SSel').AsBoolean = True then + +// MPCID := MPCID + ',' + Trim(CDS_1.fieldbyname('PCID').AsString); + + Edit; + FieldByName('SSel').Value := False; + Post; + end; + end; + Order_Main.EnableControls; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'DyeClothInspListPrint1'; + FFiltration1 := MCIID; + if ShowModal = 1 then begin +// Self.InitGrid(); with ADOQueryCmd do begin Close; @@ -426,43 +446,77 @@ begin sql.Add(' where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); ExecSQL; end; - - with ADOQueryPrint do - begin - Close; - SQL.Clear; - sql.Add(' EXEC P_Dye_Insp_Prt_Lab '); - SQL.Add(' @CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); - Open; - end; - if ADOQueryPrint.IsEmpty then - begin - application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR); - exit; - end; - - FLBName := Trim(ADOQueryPrint.fieldbyname('LBName').AsString); - ExportFtErpFile(FLBName + '.rmf', ADOQueryTemp); - - fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLBName + '.rmf'; - - if FileExists(fPrintFile) then - begin - RM1.LoadFromFile(fPrintFile); - Rm1.DefaultCopies := 2; - RM1.PrintReport; - end - else - begin - Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); - end; end; - Next; end; + finally + frmLabelPrint.Free; end; - Order_Main.EnableControls; end; + +//var +// fPrintFile, FLBName: string; +//begin +// if Order_Main.IsEmpty then +// Exit; +// if Order_Main.Locate('SSel', True, []) = False then +// begin +// Application.MessageBox('ûѡ!', 'ʾ', 0); +// Exit; +// end; +// Order_Main.DisableControls; +// with Order_Main do +// begin +// First; +// while not Eof do +// begin +// if Order_Main.FieldByName('SSel').AsBoolean = True then +// begin +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update Dye_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + ''''); +// sql.Add(' where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); +// ExecSQL; +// end; +// +// with ADOQueryPrint do +// begin +// Close; +// SQL.Clear; +// sql.Add(' EXEC P_Dye_Insp_Prt_Lab '); +// SQL.Add(' @CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); +// Open; +// end; +// if ADOQueryPrint.IsEmpty then +// begin +// application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR); +// exit; +// end; +// +// FLBName := Trim(ADOQueryPrint.fieldbyname('LBName').AsString); +// ExportFtErpFile(FLBName + '.rmf', ADOQueryTemp); +// +// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLBName + '.rmf'; +// +// if FileExists(fPrintFile) then +// begin +// RM1.LoadFromFile(fPrintFile); +// Rm1.DefaultCopies := 2; +// RM1.PrintReport; +// end +// else +// begin +// Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); +// end; +// end; +// Next; +// end; +// end; +// Order_Main.EnableControls; +//end; + procedure TfrmDyeClothInspList.OrderNoKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then diff --git a/F05染色检验/testDll.identcache b/F05染色检验/testDll.identcache index 131539d..9988363 100644 Binary files a/F05染色检验/testDll.identcache and b/F05染色检验/testDll.identcache differ