diff --git a/A00通用窗体/U_LabelPrint.pas b/A00通用窗体/U_LabelPrint.pas index 6b0dc12..de2a883 100644 --- a/A00通用窗体/U_LabelPrint.pas +++ b/A00通用窗体/U_LabelPrint.pas @@ -9,27 +9,11 @@ uses cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, - dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, RM_Common, - RM_Class, RM_GridReport, RM_Dataset, Vcl.Buttons, RM_E_llPDF, RM_BarCode, - RM_e_Graphic, RM_e_Jpeg, RM_e_Xls, cxContainer, cxMaskEdit, cxDropDownEdit, - cxMRUEdit, - - - - - - - - - - - - - - - - RM_RichEdit; + cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, + System.ImageList, U_BaseInput, RM_Common, RM_Class, RM_GridReport, RM_Dataset, + Vcl.Buttons, RM_E_llPDF, RM_BarCode, RM_e_Graphic, RM_e_Jpeg, RM_e_Xls, + cxContainer, cxMaskEdit, cxDropDownEdit, cxMRUEdit, RM_RichEdit, dxSkinsCore, + dxSkinsDefaultPainters; type TfrmLabelPrint = class(TfrmBaseHelp) diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index 93dc75d..9abfa31 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -6,32 +6,32 @@ 1899-12-30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas 1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas 1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm 1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm 1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas + 1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas 1899-12-30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas - 1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas 1899-12-30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas 1899-12-30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas 1899-12-30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas + 1899-12-30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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= @@ -46,9 +46,9 @@ 1899-12-30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas 1899-12-30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas 1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas + 1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas 1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas 1899-12-30 00:00:00.000.217,=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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas @@ -58,19 +58,19 @@ 1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm 1899-12-30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj 1899-12-30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas @@ -121,7 +121,6 @@ - diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index cdc11f9..5ac4bd3 100644 Binary files a/A02基础产品管理/ClothInfo.identcache and b/A02基础产品管理/ClothInfo.identcache differ diff --git a/A02基础产品管理/ProjectGroup1.groupproj.local b/A02基础产品管理/ProjectGroup1.groupproj.local index 0bb5fbc..65492fa 100644 --- a/A02基础产品管理/ProjectGroup1.groupproj.local +++ b/A02基础产品管理/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm index 7c1ddaf..badcf76 100644 --- a/A02基础产品管理/U_TatClothInfo.dfm +++ b/A02基础产品管理/U_TatClothInfo.dfm @@ -724,6 +724,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo Height = 367 Align = alBottom TabOrder = 2 + Visible = False Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 @@ -773,6 +774,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo Height = 337 Align = alClient TabOrder = 1 + ExplicitLeft = 4 + ExplicitTop = 0 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1162,7 +1165,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 0 - ExplicitHeight = 25 end end object cxTabSheet5: TcxTabSheet diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm index b4bc9ea..96ec507 100644 --- a/A02基础产品管理/U_TatClothInfoInput.dfm +++ b/A02基础产品管理/U_TatClothInfoInput.dfm @@ -3,14 +3,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Top = 231 Anchors = [] Caption = #26797#32455#20135#21697#20449#24687#24405#20837 - ClientHeight = 801 + ClientHeight = 737 ClientWidth = 1442 Color = clWhite Font.Height = -16 OldCreateOrder = True Position = poScreenCenter ExplicitWidth = 1458 - ExplicitHeight = 840 + ExplicitHeight = 776 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -444,23 +444,28 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 393 Width = 1442 - Height = 408 + Height = 344 Align = alClient TabOrder = 2 + Visible = False Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - ClientRectBottom = 408 + ExplicitHeight = 2 + ClientRectBottom = 344 ClientRectRight = 1442 ClientRectTop = 28 object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 931 Top = 0 Width = 511 - Height = 380 + Height = 316 Align = alClient Caption = #32463#25490#21015 Font.Charset = GB2312_CHARSET @@ -470,28 +475,31 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Font.Style = [fsBold] ParentFont = False TabOrder = 0 + ExplicitHeight = 0 object Y_Note_PLJ: TMemo Tag = 2 Left = 2 Top = 31 Width = 507 - Height = 347 + Height = 283 Align = alClient TabOrder = 0 + ExplicitHeight = 19 end end object Panel1: TPanel Left = 0 Top = 0 Width = 931 - Height = 380 + Height = 316 Align = alLeft TabOrder = 1 + ExplicitHeight = 0 object cxPageControl2: TcxPageControl Left = 1 Top = 1 Width = 929 - Height = 378 + Height = 314 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -506,7 +514,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 378 + ExplicitHeight = 6 + ClientRectBottom = 314 ClientRectRight = 929 ClientRectTop = 0 end @@ -514,10 +523,11 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 1 Top = 1 Width = 929 - Height = 378 + Height = 314 Align = alClient PopupMenu = PM_1 TabOrder = 1 + ExplicitHeight = 6 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -692,7 +702,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 961 Top = 0 Width = 481 - Height = 380 + Height = 316 Align = alClient Caption = #32428#25490#21015 Font.Charset = GB2312_CHARSET @@ -707,7 +717,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 2 Top = 31 Width = 477 - Height = 347 + Height = 283 Align = alClient TabOrder = 0 end @@ -716,14 +726,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 0 Width = 961 - Height = 380 + Height = 316 Align = alLeft TabOrder = 1 object cxPageControl1: TcxPageControl Left = 1 Top = 1 Width = 959 - Height = 378 + Height = 314 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -738,7 +748,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 378 + ClientRectBottom = 314 ClientRectRight = 959 ClientRectTop = 0 end @@ -746,7 +756,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 1 Top = 1 Width = 959 - Height = 378 + Height = 314 Align = alClient PopupMenu = PM_2 TabOrder = 1 @@ -994,12 +1004,10 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 32 Width = 1442 - Height = 348 + Height = 284 Align = alClient ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 TabOrder = 1 - ExplicitTop = 0 - ExplicitHeight = 380 end end object cxTabSheet4: TcxTabSheet @@ -1010,7 +1018,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 0 Width = 1442 - Height = 380 + Height = 316 Align = alClient ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 TabOrder = 0 @@ -1024,7 +1032,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 0 Width = 1442 - Height = 380 + Height = 316 Align = alClient ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 TabOrder = 0 @@ -1042,8 +1050,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Top = 318 end inherited ImageList_new32: TImageList - Left = 409 - Top = 514 + Left = 404 + Top = 547 end inherited cxImageList_bar: TcxImageList FormatVersion = 1 @@ -1072,8 +1080,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput end object DS_1: TDataSource DataSet = CDS_1 - Left = 256 - Top = 602 + Left = 255 + Top = 609 end object CDS_2: TClientDataSet Aggregates = <> @@ -1095,8 +1103,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput DrawingStyle = dsTransparent Height = 32 Width = 32 - Left = 486 - Top = 520 + Left = 489 + Top = 557 Bitmap = { 494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 000000000000360000002800000080000000E0000000010020000000000000C0 @@ -4815,14 +4823,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput object GPM_1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 192 - Top = 622 + Left = 198 + Top = 608 end object GPM_2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> - Left = 500 - Top = 653 + Left = 324 + Top = 608 end object GPM_4: TcxGridPopupMenu PopupMenus = <> @@ -4844,16 +4852,16 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Top = 326 end object PM_1: TPopupMenu - Left = 223 - Top = 477 + Left = 269 + Top = 546 object N1: TMenuItem Caption = #28165#31354 OnClick = N1Click end end object PM_2: TPopupMenu - Left = 299 - Top = 474 + Left = 322 + Top = 549 object MenuItem1: TMenuItem Caption = #28165#31354 OnClick = MenuItem1Click diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas index 23dfd3a..d6080de 100644 --- a/A02基础产品管理/U_TatClothInfoInput.pas +++ b/A02基础产品管理/U_TatClothInfoInput.pas @@ -373,128 +373,128 @@ procedure TfrmTatClothInfoInput.JSJS(); var GS, ZGS, MF, DS, WM, TW: double; begin - if CDS_1.IsEmpty then - exit; - with CDS_1 do - begin - DisableControls; - first; - while not eof do - begin - - with CDS_1 do - begin - - if FieldByName('YarnQty').Value = null then - begin - GS := 0; // - end - else - begin - GS := FieldByName('YarnQty').Value; // - end; - - if FieldByName('CycleYarnQty').Value = null then - begin - ZGS := 0; //ѭ - end - else - begin - ZGS := FieldByName('CycleYarnQty').Value; //ѭ - end; - - MF := strtofloatdef(C_ReedWidth.text, 0); //ط - - TW := strtofloatdef(C_YarnQty.text, 0); //ͷ - - if FieldByName('TestDenier').Value = null then - begin - DS := 0; //D - end - else - begin - DS := FieldByName('TestDenier').Value; //D - end; - - WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ - end; - if ZGS <> 0 then - begin - with CDS_1 do - begin - Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); - Post; - end; - end; - next; - end; - First; - EnableControls; - end; +// if CDS_1.IsEmpty then +// exit; +// with CDS_1 do +// begin +// DisableControls; +// first; +// while not eof do +// begin +// +// with CDS_1 do +// begin +// +// if FieldByName('YarnQty').Value = null then +// begin +// GS := 0; // +// end +// else +// begin +// GS := FieldByName('YarnQty').Value; // +// end; +// +// if FieldByName('CycleYarnQty').Value = null then +// begin +// ZGS := 0; //ѭ +// end +// else +// begin +// ZGS := FieldByName('CycleYarnQty').Value; //ѭ +// end; +// +// MF := strtofloatdef(C_ReedWidth.text, 0); //ط +// +// TW := strtofloatdef(C_YarnQty.text, 0); //ͷ +// +// if FieldByName('TestDenier').Value = null then +// begin +// DS := 0; //D +// end +// else +// begin +// DS := FieldByName('TestDenier').Value; //D +// end; +// +// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ +// end; +// if ZGS <> 0 then +// begin +// with CDS_1 do +// begin +// Edit; +// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); +// Post; +// end; +// end; +// next; +// end; +// First; +// EnableControls; +// end; end; procedure TfrmTatClothInfoInput.JSWS(); var GS, ZGS, MF, DS, WM: double; begin - if CDS_2.IsEmpty then - exit; - with CDS_2 do - begin - DisableControls; - first; - while not eof do - begin - - with CDS_2 do - begin - - if FieldByName('YarnQty').Value = null then - begin - GS := 0; // - end - else - begin - GS := FieldByName('YarnQty').Value; // - end; - - if FieldByName('CycleYarnQty').Value = null then - begin - ZGS := 0; //ѭ - end - else - begin - ZGS := FieldByName('CycleYarnQty').Value; //ѭ - end; - - MF := strtofloatdef(C_ReedWidth.text, 0) + 15; //ط - - if FieldByName('TestDenier').Value = null then - begin - DS := 0; //D - end - else - begin - DS := FieldByName('TestDenier').Value; //D - end; - - WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ - end; - if ZGS <> 0 then - begin - with CDS_2 do - begin - Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); - Post; - end; - end; - next; - end; - First; - EnableControls; - end; +// if CDS_2.IsEmpty then +// exit; +// with CDS_2 do +// begin +// DisableControls; +// first; +// while not eof do +// begin +// +// with CDS_2 do +// begin +// +// if FieldByName('YarnQty').Value = null then +// begin +// GS := 0; // +// end +// else +// begin +// GS := FieldByName('YarnQty').Value; // +// end; +// +// if FieldByName('CycleYarnQty').Value = null then +// begin +// ZGS := 0; //ѭ +// end +// else +// begin +// ZGS := FieldByName('CycleYarnQty').Value; //ѭ +// end; +// +// MF := strtofloatdef(C_ReedWidth.text, 0) + 15; //ط +// +// if FieldByName('TestDenier').Value = null then +// begin +// DS := 0; //D +// end +// else +// begin +// DS := FieldByName('TestDenier').Value; //D +// end; +// +// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ +// end; +// if ZGS <> 0 then +// begin +// with CDS_2 do +// begin +// Edit; +// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); +// Post; +// end; +// end; +// next; +// end; +// First; +// EnableControls; +// end; end; procedure TfrmTatClothInfoInput.MenuItem1Click(Sender: TObject); @@ -551,27 +551,27 @@ procedure TfrmTatClothInfoInput.JSKZ(); var SumJS, SumWS: double; begin - C_GramWeight.SetFocus; - - if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then - begin - SumJS := Tv1.DataController.Summary.FooterSummaryValues[0]; - end - else - begin - SumJS := 0; - end; - - if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then - begin - SumWS := Tv2.DataController.Summary.FooterSummaryValues[0]; - end - else - begin - SumWS := 0; - end; - - C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); +// C_GramWeight.SetFocus; +// +// if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then +// begin +// SumJS := Tv1.DataController.Summary.FooterSummaryValues[0]; +// end +// else +// begin +// SumJS := 0; +// end; +// +// if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then +// begin +// SumWS := Tv2.DataController.Summary.FooterSummaryValues[0]; +// end +// else +// begin +// SumWS := 0; +// end; +// +// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); end; procedure TfrmTatClothInfoInput.FormShow(Sender: TObject); diff --git a/A02基础产品管理/testDll.identcache b/A02基础产品管理/testDll.identcache index f336987..8a529c2 100644 Binary files a/A02基础产品管理/testDll.identcache and b/A02基础产品管理/testDll.identcache differ diff --git a/A05基础资料管理/BaseInfo.dpr b/A05基础资料管理/BaseInfo.dpr index ecf6b8b..858b04e 100644 --- a/A05基础资料管理/BaseInfo.dpr +++ b/A05基础资料管理/BaseInfo.dpr @@ -32,9 +32,11 @@ uses FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, U_EmployeeSel in '..\A00ͨô\U_EmployeeSel.pas' {frmEmployeeSel}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', - U_GKManage in 'U_GKManage.pas' {frmGKManage}, U_GKInput in 'U_GKInput.pas' {frmGKInput}, - U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel}; + U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel}, + U_GKDRList in 'U_GKDRList.pas' {frmGKDRList}, + U_GKDRtInPut in 'U_GKDRtInPut.pas' {frmGKDRtInPut}, + U_GKManage_Sel in 'U_GKManage_Sel.pas' {frmGKManage_Sel}; {$R *.res} diff --git a/A05基础资料管理/BaseInfo.dproj b/A05基础资料管理/BaseInfo.dproj index 48ac1dc..1c7a98e 100644 --- a/A05基础资料管理/BaseInfo.dproj +++ b/A05基础资料管理/BaseInfo.dproj @@ -202,10 +202,6 @@ dfm - -
frmGKManage
- dfm -
frmGKInput
dfm @@ -214,6 +210,18 @@
frmCompanySel
dfm + +
frmGKDRList
+ dfm + + +
frmGKDRtInPut
+ dfm + + +
frmGKManage_Sel
+ dfm + Cfg_2 Base diff --git a/A05基础资料管理/BaseInfo.dproj.local b/A05基础资料管理/BaseInfo.dproj.local index 88e97f8..903b30d 100644 --- a/A05基础资料管理/BaseInfo.dproj.local +++ b/A05基础资料管理/BaseInfo.dproj.local @@ -1,26 +1,32 @@  - 1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas + 1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas + 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas + 1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas + 1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas 1899-12-30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm + 1899-12-30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm + 1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm 1899-12-30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm - 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas - 1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas + 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm + 1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm + 1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm 1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas - 1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm - 1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm - 1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas + 1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas + 1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas + 1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 2025-03-01 08:11:52.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm - 2025-03-01 08:11:52.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas - 2025-03-01 08:22:04.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas - 2025-03-01 08:31:18.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas + 2025-03-04 23:03:41.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas + 2025-03-04 23:03:41.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm + 2025-03-04 23:12:55.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas + 2025-03-04 23:15:05.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas + 2025-03-04 23:30:55.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas + 2025-03-04 23:30:55.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm diff --git a/A05基础资料管理/U_GKDRList.dfm b/A05基础资料管理/U_GKDRList.dfm new file mode 100644 index 0000000..00344d4 --- /dev/null +++ b/A05基础资料管理/U_GKDRList.dfm @@ -0,0 +1,623 @@ +inherited frmGKDRList: TfrmGKDRList + Left = 220 + Top = 16 + BorderStyle = bsNone + Caption = #38050#31576#25253#24223#30003#35831 + ClientHeight = 594 + ClientWidth = 1453 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1469 + ExplicitHeight = 633 + PixelsPerInch = 96 + TextHeight = 17 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1453 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_BaseInfo.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 4 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TBAddClick + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 4 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object TBEdit: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object TBPrint: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + Visible = False + OnClick = TBPrintClick + end + object tchk: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 12 + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 568 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + OnClick = TnochkClick + end + object btnWC: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #23436#25104 + ImageIndex = 12 + Visible = False + OnClick = btnWCClick + end + object btnWCCX: TToolButton + Left = 734 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 11 + Visible = False + OnClick = btnWCCXClick + end + object TBExport: TToolButton + Left = 829 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton6: TToolButton + Left = 900 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 995 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid [1] + Left = 0 + Top = 127 + Width = 1453 + Height = 176 + Align = alClient + TabOrder = 3 + ExplicitHeight = 276 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + OptionsView.IndicatorWidth = 30 + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.MultiLine = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column8: TcxGridDBColumn + Caption = #25253#24223#21333#21495 + DataBinding.FieldName = 'DRMID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1OrdDate: TcxGridDBColumn + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#26680#26085#26399 + DataBinding.FieldName = 'ChkTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column7: TcxGridDBColumn + Caption = #25253#24223#21407#22240 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel [2] + Left = 0 + Top = 38 + Width = 1453 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 5 + object Label4: TLabel + Left = 701 + Top = 15 + Width = 48 + Height = 17 + Caption = #25253#24223#21407#22240 + end + object Label8: TLabel + Left = 430 + Top = 99 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 303 + Top = 99 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 303 + Top = 123 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 309 + Top = 15 + Width = 5 + Height = 17 + Caption = '-' + end + object Label1: TLabel + Left = 494 + Top = 15 + Width = 48 + Height = 17 + Caption = #25253#24223#21333#21495 + end + object BegDate: TDateTimePicker + Left = 159 + Top = 13 + Width = 120 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 344 + Top = 13 + Width = 120 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464761099538009100 + TabOrder = 1 + end + object Note: TEdit + Tag = 2 + Left = 779 + Top = 11 + Width = 115 + Height = 25 + TabOrder = 2 + OnChange = NoteChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 483 + Top = 95 + Width = 76 + Height = 25 + TabOrder = 4 + OnChange = NoteChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 332 + Top = 95 + Width = 56 + Height = 25 + TabOrder = 3 + OnChange = NoteChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 332 + Top = 119 + Width = 56 + Height = 25 + TabOrder = 5 + OnChange = NoteChange + end + object CheckBox1: TCheckBox + Left = 9 + Top = 15 + Width = 120 + Height = 17 + Caption = #30331#35760#26085#26399 + Checked = True + State = cbChecked + TabOrder = 6 + end + object DRMID: TEdit + Tag = 2 + Left = 572 + Top = 11 + Width = 99 + Height = 25 + TabOrder = 7 + OnChange = NoteChange + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 96 + Width = 1453 + Height = 31 + Align = alTop + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 31 + ClientRectRight = 1453 + ClientRectTop = 24 + end + object cxSplitter1: TcxSplitter [4] + Left = 0 + Top = 586 + Width = 1453 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + end + inherited cxProgressBar2: TcxProgressBar + Left = 284 + Top = 204 + ExplicitLeft = 284 + ExplicitTop = 204 + ExplicitHeight = 25 + end + object cxGrid2: TcxGrid [7] + Left = 0 + Top = 303 + Width = 1453 + Height = 283 + Align = alBottom + TabOrder = 7 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column1: TcxGridDBColumn + Caption = #38050#25187#24207#21495 + DataBinding.FieldName = 'GKNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column2: TcxGridDBColumn + Caption = #38050#25187#31576#21495 + DataBinding.FieldName = 'GKKH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column3: TcxGridDBColumn + Caption = #38050#25187#40831#25968 + DataBinding.FieldName = 'GKCS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column4: TcxGridDBColumn + Caption = #38050#25187#32534#21495 + DataBinding.FieldName = 'GKBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column5: TcxGridDBColumn + Caption = #38050#25187#35268#26684 + DataBinding.FieldName = 'GKSpec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Left = 73 + Top = 224 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Left = 73 + Top = 161 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 753 + Top = 313 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 440 + Top = 156 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 560 + Top = 160 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 152 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 968 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 184 + end + object DS_2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 600 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 272 + Top = 592 + end + object GPM_2: TcxGridPopupMenu + PopupMenus = <> + Left = 408 + Top = 600 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 870 + Top = 332 + end +end diff --git a/A05基础资料管理/U_GKDRList.pas b/A05基础资料管理/U_GKDRList.pas new file mode 100644 index 0000000..ab79dc9 --- /dev/null +++ b/A05基础资料管理/U_GKDRList.pas @@ -0,0 +1,683 @@ +unit U_GKDRList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, + cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu, U_BaseList, dxDateRanges, dxScrollbarAnnotations, + cxContainer, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; + +type + TfrmGKDRList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + v1OrdDate: TcxGridDBColumn; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label4: TLabel; + Label8: TLabel; + Label12: TLabel; + Label13: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Note: TEdit; + MPRTCodeName: TEdit; + MPRTKZ: TEdit; + MPRTMF: TEdit; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + cxSplitter1: TcxSplitter; + DS_2: TDataSource; + v1Column8: TcxGridDBColumn; + Label2: TLabel; + ClientDataSet2: TClientDataSet; + GPM_2: TcxGridPopupMenu; + v1Column13: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + btnWC: TToolButton; + btnWCCX: TToolButton; + CheckBox1: TCheckBox; + ToolButton6: TToolButton; + Label1: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + //RMllPDFExport1: TRMllPDFExport; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure NoteChange(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure btnWCClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure btnWCCXClick(Sender: TObject); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitSubGrid(); + procedure InitForm(); + procedure SetStatus(); + function DelData(): Boolean; + { Private declarations } + public + FFInt: Integer; + canshu1, canshu2: string; + { Public declarations } + end; + +//var + //frmContractListNX: TfrmContractListNX; + +implementation + +uses + U_DataLink, U_GKDRtInPut, U_RTFun, U_ZDYHelp, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmGKDRList.SetStatus(); +begin + tchk.Enabled := False; + Tnochk.Enabled := False; + btnWC.Enabled := False; + btnWCCX.Enabled := False; + if canshu1 = '' then + begin + case cxTabControl1.TabIndex of + 0: + begin + tchk.Enabled := true; + end; + 1: + begin + Tnochk.Enabled := true; + + end; + 2: + begin + + end; + end; + end + else + begin + end; +end; + +procedure TfrmGKDRList.FormDestroy(Sender: TObject); +begin + inherited; + //frmFHSQList:=nil; + +end; + +procedure TfrmGKDRList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmGKDRList.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmGKDRList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + Sql.Add(' select A.* '); + sql.Add(' from Tat_Cloth_DR_Main A where 1=1 and LX=''ֿ'' '); + if CheckBox1.Checked then + begin + sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + end; + case cxTabControl1.TabIndex of + 0: + begin + SQL.Add(' and isnull(A.status,''0'')=''0'' '); + end; + 1: + begin + SQL.Add(' and isnull(A.status,''0'')=''9'' '); + end; + 2: + begin + SQL.Add(' and isnull(A.status,''0'')=''10'' '); + end; + end; + +// if Trim(canshu1) <> '' then +// begin +// sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + ''''); +// end; + sql.Add(' order by Filltime desc '); +// ShowMessage(sql.Text); + Open; + end; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + TV2.DataController.Filter.Clear; + end; +end; + +procedure TfrmGKDRList.InitForm(); +begin + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); + + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 60; + InitGrid(); + +end; + +procedure TfrmGKDRList.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 TfrmGKDRList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; +// if cxTabControl1.TabIndex <> 0 then +// Exit; + + try + frmGKDRtInPut := TfrmGKDRtInPut.Create(Application); + with frmGKDRtInPut do + begin + PState := 1; + FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmGKDRtInPut.Free; + end; +end; + +procedure TfrmGKDRList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if cxTabControl1.TabIndex <> 0 then + Exit; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if DelData() then + begin + Order_Main.Delete; + InitSubGrid(); + end; +end; + +function TfrmGKDRList.DelData(): Boolean; +begin + try + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_Cloth_DR_Sub where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_Cloth_DR_Main where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); + ExecSQL; + end; + end; + next; + end; + First; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmGKDRList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; +// SelExportData(Tv1, ADOQueryMain, 'б'); +end; + +procedure TfrmGKDRList.TBPrintClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothDR1'; + FFiltration1 := Trim(self.Order_Main.fieldbyname('DRMID').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmGKDRList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGKDRList.TBAddClick(Sender: TObject); +var + maxno: string; +begin + try + frmGKDRtInPut := TfrmGKDRtInPut.Create(Application); + with frmGKDRtInPut do + begin + PState := 0; + FDRMID := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmGKDRtInPut.Free; + end; +end; + +procedure TfrmGKDRList.FormShow(Sender: TObject); +begin + inherited; + canshu1 := self.fParameters1; + InitForm(); + SetStatus(); +end; + +procedure TfrmGKDRList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGKDRList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmGKDRList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmGKDRtInPut := TfrmGKDRtInPut.Create(Application); + with frmGKDRtInPut do + begin + PState := 1; + FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); + ToolBar2.Visible := False; + TBSave.Visible := False; + ScrollBox1.Enabled := False; + Tv1.OptionsSelection.CellSelect := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmGKDRtInPut.Free; + end; +end; + +procedure TfrmGKDRList.NoteChange(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 TfrmGKDRList.tchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if cxTabControl1.TabIndex <> 0 then + exit; + try + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_Cloth_DR_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),Status=''9'' '); + sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + Order_Main.Delete; + InitSubGrid(); + application.MessageBox('˳ɹ', 'ʾϢ'); + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmGKDRList.InitSubGrid(); +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, ClientDataSet2); + SInitCDSData(ADOQueryTemp, ClientDataSet2); +end; + +procedure TfrmGKDRList.TnochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if cxTabControl1.TabIndex <> 1 then + exit; + try + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_Cloth_DR_Main SET Chker=Null,ChkTime=Null,status=''0'' '); + sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + Order_Main.Delete; + application.MessageBox('ɹ', 'ʾϢ'); + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmGKDRList.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; + SetStatus(); +end; + +procedure TfrmGKDRList.btnWCCXClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_Fin_Judge_All @DataID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); + Open; + end; + if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then + begin + Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0); + exit; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_Cloth_DR_Main SET status=''9'' ,Comper=null,Comptime=null '); + sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + InitSubGrid(); + application.MessageBox('ɹ', 'ʾϢ'); + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmGKDRList.ToolButton6Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); +end; + +procedure TfrmGKDRList.btnWCClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_Cloth_DR_Main SET status=''10'' ,Comper=''' + Trim(DName) + ''',Comptime=getdate() '); + sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + InitSubGrid(); + application.MessageBox('ɹ', 'ʾϢ'); + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmGKDRList.Tv1Column9PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + if mvalue = '' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('update Tat_Cloth_DR_Main set ' + FFieldName + '=' + 'NULL'); + sql.Add('where DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString))); + ExecSQL; + end; + end + else + begin + with Order_Main do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('update Tat_Cloth_DR_Main set ' + FFieldName + '=' + quotedstr(Trim(mvalue))); + sql.Add('where DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString))); + ExecSQL; + end; + end; + + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmGKDRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitSubGrid(); +end; + +procedure TfrmGKDRList.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with Order_Main do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('update Tat_Cloth_DR_Main set ' + FFieldName + '=' + quotedstr(Trim(mvalue))); + sql.Add('where DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString))); + ExecSQL; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +end. + diff --git a/A05基础资料管理/U_GKDRtInPut.dfm b/A05基础资料管理/U_GKDRtInPut.dfm new file mode 100644 index 0000000..c3e09d9 --- /dev/null +++ b/A05基础资料管理/U_GKDRtInPut.dfm @@ -0,0 +1,330 @@ +object frmGKDRtInPut: TfrmGKDRtInPut + Left = 302 + Top = 139 + Caption = #25253#24223#24405#20837 + ClientHeight = 644 + ClientWidth = 1252 + 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 + Tag = 1 + Left = 0 + Top = 0 + Width = 1252 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_BaseInfo.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_BaseInfo.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton4: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 166 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 38 + Width = 1252 + Height = 75 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clWhite + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + ExplicitTop = 32 + object Label1: TLabel + Left = 244 + Top = 13 + Width = 52 + Height = 12 + Caption = #30003#35831#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 31 + Top = 42 + Width = 65 + Height = 12 + Caption = #25253#24223#21407#22240#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 31 + Top = 13 + Width = 65 + Height = 12 + Caption = #25253#24223#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Note: TEdit + Tag = 1 + Left = 96 + Top = 39 + Width = 346 + Height = 18 + TabOrder = 0 + end + object DlyDate: TDateTimePicker + Tag = 1 + Left = 96 + Top = 9 + Width = 132 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464761099538009100 + TabOrder = 1 + end + object Filler: TEdit + Tag = 1 + Left = 302 + Top = 10 + Width = 140 + Height = 18 + TabOrder = 2 + end + end + object ToolBar2: TToolBar + Tag = 1 + Left = 0 + Top = 113 + Width = 1252 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clBtnFace + DisabledImages = DataLink_BaseInfo.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_BaseInfo.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #38050#31576#36873#25321 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 95 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 166 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 151 + Width = 1252 + Height = 493 + Align = alClient + TabOrder = 3 + ExplicitTop = 150 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column1: TcxGridDBColumn + Caption = #38050#25187#24207#21495 + DataBinding.FieldName = 'GKNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column2: TcxGridDBColumn + Caption = #38050#25187#31576#21495 + DataBinding.FieldName = 'GKKH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column3: TcxGridDBColumn + Caption = #38050#25187#40831#25968 + DataBinding.FieldName = 'GKCS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column4: TcxGridDBColumn + Caption = #38050#25187#32534#21495 + DataBinding.FieldName = 'GKBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column5: TcxGridDBColumn + Caption = #38050#25187#35268#26684 + DataBinding.FieldName = 'GKSpec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 256 + Top = 281 + end + object ADOCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 328 + Top = 281 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 684 + Top = 276 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 596 + Top = 284 + end + object ADOQuery1: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 188 + Top = 281 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 456 + Top = 276 + end + object cxStyleRepository1: TcxStyleRepository + Left = 200 + Top = 432 + PixelsPerInch = 96 + object dazi1: TcxStyle + AssignedValues = [svColor] + Color = clRed + end + end +end diff --git a/A05基础资料管理/U_GKDRtInPut.pas b/A05基础资料管理/U_GKDRtInPut.pas new file mode 100644 index 0000000..0136ea6 --- /dev/null +++ b/A05基础资料管理/U_GKDRtInPut.pas @@ -0,0 +1,390 @@ +unit U_GKDRtInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, + dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters; + +type + TfrmGKDRtInPut = class(Tform) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + Label1: TLabel; + Note: TEdit; + Label12: TLabel; + cxStyleRepository1: TcxStyleRepository; + dazi1: TcxStyle; + Label2: TLabel; + DlyDate: TDateTimePicker; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Filler: TEdit; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure JSQtyUnitChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + fuserName: string; + procedure InitData(); + function SaveData(): Boolean; + { Private declarations } + public + PState, CopyInt: Integer; + FDRMID: string; + { Public declarations } + end; + +var + frmGKDRtInPut: TfrmGKDRtInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_RTFun, U_GKManage_Sel; + +{$R *.dfm} + +procedure TfrmGKDRtInPut.TBCloseClick(Sender: TObject); +begin + Close; + +end; + +procedure TfrmGKDRtInPut.InitData(); +var + fsj: string; +begin + if PState = 0 then + begin + DlyDate.DateTime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now))); + + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from Tat_Cloth_DR_Sub A'); + if PState = 1 then + begin + sql.Add('where DRMID=''' + Trim(FDRMID) + ''''); + end; + if PState = 0 then + begin + sql.Add(' where 1<>1'); + end; + Open; + end; + SCreateCDS(ADOQuery1, Order_Sub); + SInitCDSData(ADOQuery1, Order_Sub); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_Cloth_DR_Main A'); + sql.Add(' where DRMID=''' + Trim(FDRMID) + ''' '); + Open; + end; + SCSHData(ADOQuery1, ScrollBox1, 1); + +end; + +procedure TfrmGKDRtInPut.JSQtyUnitChange(Sender: TObject); +begin + if not Order_Sub.IsEmpty then + begin + + exit; + end; +end; + +procedure TfrmGKDRtInPut.FormShow(Sender: TObject); +var + fsj: string; +begin + + readCxGrid(trim(self.Caption), Tv1, ''); + + InitData(); +end; + +function TfrmGKDRtInPut.SaveData(): Boolean; +var + MaxMid, MaxSid: string; +begin + try + ADOCmd.Connection.BeginTrans; + ///////////////// ///////////////// + if Trim(FDRMID) = '' then + begin + if GetLSNo(ADOCmd, MaxMid, 'BF', 'Tat_Cloth_DR_Main', 4, 1) = False then + raise Exception.Create('ȡʧܣ'); + end + else + begin + MaxMid := Trim(FDRMID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Tat_Cloth_DR_Main where DRMID=''' + Trim(MaxMid) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(FDRMID) = '' then + begin + Append; + FieldByName('FillID').Value := Trim(DCode); + FieldByName('Filler').Value := Trim(Filler.text); + end + else + begin + Edit; + FieldByName('EditID').Value := Trim(DCode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + RTSetsavedata(ADOCmd, 'Tat_Cloth_DR_Main', ScrollBox1, 1); + FieldByName('DRMID').Value := Trim(MaxMid); + FieldByName('Status').Value := '0'; + FieldByName('LX').Value := 'ֿ'; + Post; + end; + ///////////////// ///////////////// + /// + ///////////////// ӱ ///////////////// + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('DRSID').AsString) = '' then + begin + if GetLSNo(ADOCmd, MaxSid, 'TDS', 'Tat_Cloth_DR_Sub', 4, 1) = False then + raise Exception.Create('ȡˮʧܣ'); + end + else + begin + MaxSid := Trim(Order_Sub.fieldbyname('DRSID').AsString); + end; + + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Cloth_DR_Sub '); + sql.Add(' where DRMID=''' + Trim(MaxMid) + ''''); + sql.Add(' and DRSID=''' + Trim(MaxSid) + ''''); + Open; + if ADOCmd.IsEmpty then + begin + Append; + end + else + begin + Edit; + end; + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Tat_Cloth_DR_Sub', 0); + FieldByName('DRMID').Value := Trim(MaxMid); + FieldByName('DRSID').Value := Trim(MaxSid); + FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value; + FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value; + FieldByName('ConMId').Value := Order_Sub.fieldbyname('ConMId').Value; + FieldByName('ConSId').Value := Order_Sub.fieldbyname('ConSId').Value; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('DRSID').Value := Trim(MaxSid); + Next; + end; + end; + Order_Sub.EnableControls; + ///////////////// ӱ ///////////////// + FDRMID := Trim(MaxMid); + ADOCmd.Connection.CommitTrans; + Result := True; + except + ADOCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + Result := False; + end; +end; + +procedure TfrmGKDRtInPut.TBSaveClick(Sender: TObject); +var + Freal: Double; +begin + ToolBar1.SetFocus; + + if Trim(Filler.Text) = '' then + begin + Application.MessageBox('˲Ϊգ', 'ʾ', 0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; + end; +end; + +procedure TfrmGKDRtInPut.ToolButton1Click(Sender: TObject); +var + FQtyUnit, FFSubid: string; +begin + { + try + frmTradePlanSel := TfrmTradePlanSel.Create(Application); + with frmTradePlanSel do + begin + if ShowModal = 1 then + begin + while CDS_1.locate('SSel', true, []) do + begin +// Self.CustomerNoName.Text := Trim(frmTradePlanSel.Order_Main.fieldbyname('CustomerNoName').AsString); +// FQtyUnit := Trim(frmTradePlanSel.Order_Main.fieldbyname('orderUnit').AsString); +// if Self.Order_Sub.Locate('Subid', Trim(frmTradePlanSel.Order_Main.fieldbyname('Subid').AsString), []) = False then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('SCConNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('Orderno').AsString); + FieldByName('SSConMainId').Value := frmTradePlanSel.CDS_1.fieldbyname('ConMainId').Value; + FieldByName('SSConSubId').Value := frmTradePlanSel.CDS_1.fieldbyname('ConSubId').Value; + FieldByName('MainId').Value := frmTradePlanSel.CDS_1.fieldbyname('MainId').Value; + FieldByName('SubId').Value := frmTradePlanSel.CDS_1.fieldbyname('SubId').Value; + FieldByName('PRTColor').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_Color').AsString); + FieldByName('SPrtCode').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_Code').AsString); + FieldByName('SPrtCodeName').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_CodeName').AsString); + FieldByName('PRTHX').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_HX').AsString); +// FieldByName('orderUnit').Value := JSQtyUnit.Text; +// if Trim(JSQtyUnit.Text) = 'Kg' then +// begin +// FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYGW').Value; +// end +// else if Trim(JSQtyUnit.Text) = 'M' then +// begin +// FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYLen').Value; +// end +// else if Trim(JSQtyUnit.Text) = 'Y' then +// begin +// FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYYLen').Value; +// end; + + end; + end; + CDS_1.Delete; + end; + end; + end; + finally + frmTradePlanSel.Free; + end; } +end; + +procedure TfrmGKDRtInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + Exit; + if Trim(Order_Sub.fieldbyname('DRSID').AsString) <> '' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + ''''); + sql.add(' and isnull(DlyPiece,0)>0'); + Open; + end; + if ADOTemp.IsEmpty = False then + begin + Application.MessageBox('ѷɾ!', 'ʾ', 0); + exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + ''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmGKDRtInPut.ToolButton3Click(Sender: TObject); +begin + try + frmGKManage_Sel := TfrmGKManage_Sel.Create(Application); + with frmGKManage_Sel do + begin + if ShowModal = 1 then + begin + while CDS_HZ.locate('SSel', true, []) do + begin + with Self.Order_Sub do + begin + Append; + FieldByName('GKNo').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKNo').Value; + FieldByName('GKKH').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKKH').Value; + FieldByName('GKCS').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKCS').Value; + FieldByName('GKBH').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKBH').Value; + FieldByName('GKSpec').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKSpec').Value; + end; + CDS_HZ.Edit; + CDS_HZ.fieldbyname('SSel').value := false; + end; + end; + end; + finally + frmGKManage_Sel.Free; + end; +end; + +procedure TfrmGKDRtInPut.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption), Tv1, '') +end; + +end. + diff --git a/A05基础资料管理/U_GKInput.dfm b/A05基础资料管理/U_GKInput.dfm index 1f18be1..2eedc03 100644 --- a/A05基础资料管理/U_GKInput.dfm +++ b/A05基础资料管理/U_GKInput.dfm @@ -2,7 +2,7 @@ inherited frmGKInput: TfrmGKInput Left = 261 Top = 149 Caption = #38050#25187#24405#20837 - ClientHeight = 385 + ClientHeight = 494 ClientWidth = 863 Color = clWhite Font.Charset = GB2312_CHARSET @@ -11,7 +11,7 @@ inherited frmGKInput: TfrmGKInput Position = poScreenCenter OnClose = FormClose ExplicitWidth = 879 - ExplicitHeight = 424 + ExplicitHeight = 533 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -52,7 +52,7 @@ inherited frmGKInput: TfrmGKInput Left = 0 Top = 30 Width = 863 - Height = 355 + Height = 464 Align = alClient BevelInner = bvNone BevelOuter = bvNone @@ -86,7 +86,7 @@ inherited frmGKInput: TfrmGKInput end object Label7: TLabel Left = 10 - Top = 221 + Top = 292 Width = 57 Height = 21 Caption = #22791' '#27880 @@ -99,7 +99,7 @@ inherited frmGKInput: TfrmGKInput Caption = #38050#25187#31576#21495 end object Label1: TLabel - Left = 320 + Left = 319 Top = 48 Width = 64 Height = 21 @@ -107,32 +107,60 @@ inherited frmGKInput: TfrmGKInput end object Label4: TLabel Left = 10 - Top = 132 + Top = 127 Width = 62 Height = 21 Caption = #20215' '#26684 end object Label5: TLabel Left = 319 - Top = 132 + Top = 127 Width = 64 Height = 21 Caption = #24403#21069#36136#37327 end object Label26: TLabel Left = 10 - Top = 169 + Top = 249 Width = 58 Height = 21 Caption = #20379' '#24212' '#21830 end object Label8: TLabel Left = 319 - Top = 170 + Top = 250 Width = 64 Height = 21 Caption = #20837#24211#26085#26399 end + object lbl2: TLabel + Left = 10 + Top = 173 + Width = 59 + Height = 21 + Caption = 'A'#38754#29366#24577 + end + object Label9: TLabel + Left = 319 + Top = 173 + Width = 58 + Height = 21 + Caption = 'B'#38754#29366#24577 + end + object Label10: TLabel + Left = 10 + Top = 212 + Width = 59 + Height = 21 + Caption = 'C'#38754#29366#24577 + end + object Label11: TLabel + Left = 319 + Top = 212 + Width = 60 + Height = 21 + Caption = 'D'#38754#29366#24577 + end object GKCS: TcxTextEdit Tag = 2 Left = 79 @@ -152,7 +180,7 @@ inherited frmGKInput: TfrmGKInput Left = 79 Top = 82 TabOrder = 2 - Width = 510 + Width = 200 end object GKKH: TcxTextEdit Tag = 2 @@ -164,7 +192,7 @@ inherited frmGKInput: TfrmGKInput object Note: TcxMemo Tag = 2 Left = 79 - Top = 221 + Top = 292 TabOrder = 4 Height = 77 Width = 518 @@ -179,21 +207,21 @@ inherited frmGKInput: TfrmGKInput object Price: TcxTextEdit Tag = 2 Left = 79 - Top = 129 + Top = 124 TabOrder = 6 Width = 200 end object DQZL: TcxTextEdit Tag = 2 Left = 389 - Top = 129 + Top = 124 TabOrder = 7 Width = 200 end object GKGYS: TcxButtonEdit Tag = 2 Left = 79 - Top = 166 + Top = 246 Properties.Buttons = < item Default = True @@ -208,11 +236,59 @@ inherited frmGKInput: TfrmGKInput object IODate: TcxDateEdit Tag = 2 Left = 389 - Top = 166 + Top = 246 Properties.ShowTime = False TabOrder = 9 Width = 200 end + object AM: TcxComboBox + Tag = 2 + Left = 79 + Top = 169 + Properties.Items.Strings = ( + #27491#24120 + #24453#22788#29702 + #31105#29992) + TabOrder = 10 + Text = #27491#24120 + Width = 200 + end + object BM: TcxComboBox + Tag = 2 + Left = 389 + Top = 169 + Properties.Items.Strings = ( + #27491#24120 + #24453#22788#29702 + #31105#29992) + TabOrder = 11 + Text = #27491#24120 + Width = 200 + end + object CM: TcxComboBox + Tag = 2 + Left = 79 + Top = 208 + Properties.Items.Strings = ( + #27491#24120 + #24453#22788#29702 + #31105#29992) + TabOrder = 12 + Text = #27491#24120 + Width = 200 + end + object DM: TcxComboBox + Tag = 2 + Left = 389 + Top = 208 + Properties.Items.Strings = ( + #27491#24120 + #24453#22788#29702 + #31105#29992) + TabOrder = 13 + Text = #27491#24120 + Width = 200 + end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_BaseInfo.ADOLink diff --git a/A05基础资料管理/U_GKInput.pas b/A05基础资料管理/U_GKInput.pas index 31f2b87..c764728 100644 --- a/A05基础资料管理/U_GKInput.pas +++ b/A05基础资料管理/U_GKInput.pas @@ -47,6 +47,14 @@ type GKGYS: TcxButtonEdit; Label8: TLabel; IODate: TcxDateEdit; + lbl2: TLabel; + AM: TcxComboBox; + Label9: TLabel; + BM: TcxComboBox; + Label10: TLabel; + CM: TcxComboBox; + Label11: TLabel; + DM: TcxComboBox; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -229,6 +237,7 @@ begin if SaveData() then begin Application.MessageBox('ɹ!', 'ʾ', 0); + ModalResult := 1; end; end; diff --git a/A05基础资料管理/U_GKManage.dfm b/A05基础资料管理/U_GKManage.dfm index 961ab2f..0859487 100644 --- a/A05基础资料管理/U_GKManage.dfm +++ b/A05基础资料管理/U_GKManage.dfm @@ -100,8 +100,7 @@ inherited frmGKManage: TfrmGKManage Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 119 - ExplicitWidth = 1107 + ExplicitTop = 126 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -210,6 +209,38 @@ inherited frmGKManage: TfrmGKManage Options.Editing = False Width = 100 end + object Tv2Column11: TcxGridDBColumn + Caption = 'A'#38754#29366#24577 + DataBinding.FieldName = 'AM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column12: TcxGridDBColumn + Caption = 'B'#38754#29366#24577 + DataBinding.FieldName = 'BM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column13: TcxGridDBColumn + Caption = 'C'#38754#29366#24577 + DataBinding.FieldName = 'CM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column14: TcxGridDBColumn + Caption = 'D'#38754#29366#24577 + DataBinding.FieldName = 'DM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end object Tv2Column10: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' @@ -234,7 +265,6 @@ inherited frmGKManage: TfrmGKManage Color = clWhite ParentBackground = False TabOrder = 4 - ExplicitTop = 24 object Label1: TLabel Left = 42 Top = 35 diff --git a/A05基础资料管理/U_GKManage.pas b/A05基础资料管理/U_GKManage.pas index 2444e22..ced5143 100644 --- a/A05基础资料管理/U_GKManage.pas +++ b/A05基础资料管理/U_GKManage.pas @@ -53,6 +53,10 @@ type Tv2Column8: TcxGridDBColumn; Tv2Column9: TcxGridDBColumn; Tv2Column10: TcxGridDBColumn; + Tv2Column11: TcxGridDBColumn; + Tv2Column12: TcxGridDBColumn; + Tv2Column13: TcxGridDBColumn; + Tv2Column14: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A05基础资料管理/U_GKManage_CX.dfm b/A05基础资料管理/U_GKManage_CX.dfm new file mode 100644 index 0000000..19f6ff3 --- /dev/null +++ b/A05基础资料管理/U_GKManage_CX.dfm @@ -0,0 +1,375 @@ +inherited frmGKManage_CX: TfrmGKManage_CX + Left = 297 + Top = 109 + Caption = #38050#31576#26597#35810 + ClientHeight = 523 + ClientWidth = 1461 + Font.Height = -16 + KeyPreview = True + ExplicitWidth = 1477 + ExplicitHeight = 562 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1461 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 67 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.cxImageList_bar + Images = DataLink_BaseInfo.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 3 + 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 + Visible = False + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 6 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton3: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + Visible = False + end + object ToolButton1: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid [1] + Left = 0 + Top = 120 + Width = 1461 + Height = 403 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + ExplicitLeft = 399 + ExplicitTop = 80 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv2Column1: TcxGridDBColumn + Caption = #38050#25187#24207#21495 + DataBinding.FieldName = 'GKNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column2: TcxGridDBColumn + Caption = #38050#25187#31576#21495 + DataBinding.FieldName = 'GKKH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column3: TcxGridDBColumn + Caption = #38050#25187#40831#25968 + DataBinding.FieldName = 'GKCS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column4: TcxGridDBColumn + Caption = #38050#25187#32534#21495 + DataBinding.FieldName = 'GKBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column5: TcxGridDBColumn + Caption = #38050#25187#35268#26684 + DataBinding.FieldName = 'GKSPec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column8: TcxGridDBColumn + Caption = #20215#26684 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column9: TcxGridDBColumn + Caption = #24403#21069#36136#37327 + DataBinding.FieldName = 'DQZL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column6: TcxGridDBColumn + Caption = #38050#25187#20379#24212#21830 + DataBinding.FieldName = 'GKGYS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column7: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'IODate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column11: TcxGridDBColumn + Caption = 'A'#38754#29366#24577 + DataBinding.FieldName = 'AM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column12: TcxGridDBColumn + Caption = 'B'#38754#29366#24577 + DataBinding.FieldName = 'BM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column13: TcxGridDBColumn + Caption = 'C'#38754#29366#24577 + DataBinding.FieldName = 'CM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column14: TcxGridDBColumn + Caption = 'D'#38754#29366#24577 + DataBinding.FieldName = 'DM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column15: TcxGridDBColumn + Caption = #20351#29992#26102#38388 + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column16: TcxGridDBColumn + Caption = #31359#31576#38754 + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel1: TPanel [2] + Left = 0 + Top = 30 + Width = 1461 + Height = 90 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 4 + object Label1: TLabel + Left = 42 + Top = 35 + Width = 64 + Height = 21 + Caption = #38050#25187#24207#21495 + end + object GKNo: TcxTextEdit + Tag = 2 + Left = 112 + Top = 31 + ParentColor = True + Properties.OnChange = MCNOPropertiesChange + TabOrder = 0 + Width = 158 + end + end + inherited loadProcess: TPanel + Left = 316 + Top = 411 + ExplicitLeft = 316 + ExplicitTop = 411 + end + inherited cxProgressBar2: TcxProgressBar + Left = 316 + Top = 356 + ExplicitLeft = 316 + ExplicitTop = 356 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Left = 113 + Top = 256 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Left = 137 + Top = 169 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 459 + Top = 169 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 357 + Top = 153 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 253 + Top = 161 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 283 + Top = 259 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 429 + Top = 271 + end + object PopupMenu1: TPopupMenu + Left = 355 + Top = 250 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/A05基础资料管理/U_GKManage_CX.pas b/A05基础资料管理/U_GKManage_CX.pas new file mode 100644 index 0000000..fed1c5d --- /dev/null +++ b/A05基础资料管理/U_GKManage_CX.pas @@ -0,0 +1,361 @@ +unit U_GKManage_CX; + +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, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer, + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; + +type + TfrmGKManage_CX = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + GPM_1: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Panel1: TPanel; + Label1: TLabel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + GKNo: TcxTextEdit; + Tv2Column1: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; + Tv2Column4: TcxGridDBColumn; + Tv2Column5: TcxGridDBColumn; + Tv2Column6: TcxGridDBColumn; + Tv2Column7: TcxGridDBColumn; + Tv2Column8: TcxGridDBColumn; + Tv2Column9: TcxGridDBColumn; + Tv2Column10: TcxGridDBColumn; + Tv2Column11: TcxGridDBColumn; + Tv2Column12: TcxGridDBColumn; + Tv2Column13: TcxGridDBColumn; + Tv2Column14: TcxGridDBColumn; + Tv2Column15: TcxGridDBColumn; + Tv2Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure CustomerChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure MCNOPropertiesChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column12PropertiesEditValueChanged(Sender: TObject); + procedure cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject); + procedure v2Column8PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fFlag: integer; + { Public declarations } + RKFlag, FCYID, fmanage: string; + end; + +var + frmGKManage_CX: TfrmGKManage_CX; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_MachineInPut, U_EmployeeSel, + U_GKInput; + +{$R *.dfm} + +procedure TfrmGKManage_CX.InitGrid(); +begin + GKNO.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from BS_GK A '); + +// showmessage(Sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; + +procedure TfrmGKManage_CX.MCNOPropertiesChange(Sender: TObject); +var + sql: string; +begin + if ADOQueryMain.Active then + begin + sql := SGetFilters(Panel1, 1, 2); + SDofilter(ADOQueryMain, sql); + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + end; +end; + +procedure TfrmGKManage_CX.FormDestroy(Sender: TObject); +begin + inherited; + frmGKManage_CX := nil; +end; + +procedure TfrmGKManage_CX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmGKManage_CX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(Trim(Self.Caption), Tv2, 'ʹ'); + Close; +end; + +procedure TfrmGKManage_CX.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(Trim(Self.Caption), Tv2, 'ʹ'); + InitGrid(); +end; + +procedure TfrmGKManage_CX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGKManage_CX.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + + TcxGridToExcel(self.Caption, cxgrid2); +end; + +procedure TfrmGKManage_CX.ToolButton4Click(Sender: TObject); +begin + try + frmGKInput := TfrmGKInput.Create(Application); + with frmGKInput do + begin + FGKID := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmGKInput.Free; + end; +end; + +procedure TfrmGKManage_CX.ToolButton5Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + Exit; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BS_GK where GKID=' + QuotedStr(CDS_HZ.FieldByName('GKID').AsString)); + ExecSQL; + end; + + InitGrid(); +end; + +procedure TfrmGKManage_CX.ToolButton6Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + try + frmGKInput := TfrmGKInput.Create(Application); + with frmGKInput do + begin + FGKID := Trim(Self.CDS_HZ.fieldbyname('GKID').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmGKInput.Free; + end; +end; + +procedure TfrmGKManage_CX.v2Column12PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate BS_HL '); + sql.Add(' Set Begdate = ''' + mvalue + ''''); + sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + tv2.Controller.EditingController.ShowEdit(); + except + tv2.Controller.EditingController.ShowEdit(); + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end +end; + +procedure TfrmGKManage_CX.v2Column8PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate BS_HL '); + sql.Add(' Set HL = ' + mvalue + ''); + sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + tv2.Controller.EditingController.ShowEdit(); + except + tv2.Controller.EditingController.ShowEdit(); + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end +end; + +procedure TfrmGKManage_CX.cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate BS_HL '); + sql.Add(' Set EndDate = ''' + mvalue + ''''); + sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + tv2.Controller.EditingController.ShowEdit(); + except + tv2.Controller.EditingController.ShowEdit(); + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end +end; + +procedure TfrmGKManage_CX.cxTabControl1Change(Sender: TObject); +begin + InitGrid; +end; + +procedure TfrmGKManage_CX.N1Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + SelOKNo(CDS_HZ, True); +end; + +procedure TfrmGKManage_CX.N2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + SelOKNo(CDS_HZ, False); +end; + +procedure TfrmGKManage_CX.CustomerChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmGKManage_CX.FormCreate(Sender: TObject); +begin + inherited; + fmanage := Trim(DParameters1); +end; + +end. + diff --git a/A05基础资料管理/U_GKManage_Sel.dfm b/A05基础资料管理/U_GKManage_Sel.dfm new file mode 100644 index 0000000..7cd59b9 --- /dev/null +++ b/A05基础资料管理/U_GKManage_Sel.dfm @@ -0,0 +1,376 @@ +inherited frmGKManage_Sel: TfrmGKManage_Sel + Left = 297 + Top = 109 + Caption = #38050#31576#36873#25321 + ClientHeight = 523 + ClientWidth = 1461 + Font.Height = -16 + KeyPreview = True + ExplicitWidth = 1477 + ExplicitHeight = 562 + PixelsPerInch = 96 + TextHeight = 19 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1461 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.cxImageList_bar + Images = DataLink_BaseInfo.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton7: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 12 + OnClick = ToolButton7Click + end + object TBRafresh: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 6 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + Visible = False + end + object ToolButton1: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid [1] + Left = 0 + Top = 120 + Width = 1461 + Height = 403 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv2Column17: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object Tv2Column1: TcxGridDBColumn + Caption = #38050#25187#24207#21495 + DataBinding.FieldName = 'GKNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column2: TcxGridDBColumn + Caption = #38050#25187#31576#21495 + DataBinding.FieldName = 'GKKH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column3: TcxGridDBColumn + Caption = #38050#25187#40831#25968 + DataBinding.FieldName = 'GKCS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column4: TcxGridDBColumn + Caption = #38050#25187#32534#21495 + DataBinding.FieldName = 'GKBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column5: TcxGridDBColumn + Caption = #38050#25187#35268#26684 + DataBinding.FieldName = 'GKSPec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column8: TcxGridDBColumn + Caption = #20215#26684 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column9: TcxGridDBColumn + Caption = #24403#21069#36136#37327 + DataBinding.FieldName = 'DQZL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column6: TcxGridDBColumn + Caption = #38050#25187#20379#24212#21830 + DataBinding.FieldName = 'GKGYS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column7: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'IODate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column11: TcxGridDBColumn + Caption = 'A'#38754#29366#24577 + DataBinding.FieldName = 'AM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column12: TcxGridDBColumn + Caption = 'B'#38754#29366#24577 + DataBinding.FieldName = 'BM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column13: TcxGridDBColumn + Caption = 'C'#38754#29366#24577 + DataBinding.FieldName = 'CM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column14: TcxGridDBColumn + Caption = 'D'#38754#29366#24577 + DataBinding.FieldName = 'DM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column15: TcxGridDBColumn + Caption = #20351#29992#26102#38388 + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column16: TcxGridDBColumn + Caption = #31359#31576#38754 + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel1: TPanel [2] + Left = 0 + Top = 30 + Width = 1461 + Height = 90 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label1: TLabel + Left = 42 + Top = 35 + Width = 64 + Height = 19 + Caption = #38050#25187#24207#21495 + end + object GKNo: TcxTextEdit + Tag = 2 + Left = 112 + Top = 31 + ParentColor = True + Properties.OnChange = MCNOPropertiesChange + TabOrder = 0 + Width = 158 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Left = 113 + Top = 256 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Left = 137 + Top = 169 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 459 + Top = 169 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 357 + Top = 153 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 253 + Top = 161 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 283 + Top = 259 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 429 + Top = 271 + end + object PopupMenu1: TPopupMenu + Left = 355 + Top = 250 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/A05基础资料管理/U_GKManage_Sel.pas b/A05基础资料管理/U_GKManage_Sel.pas new file mode 100644 index 0000000..8d37349 --- /dev/null +++ b/A05基础资料管理/U_GKManage_Sel.pas @@ -0,0 +1,371 @@ +unit U_GKManage_Sel; + +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, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseHelp, RM_BarCode, dxScrollbarAnnotations, cxContainer, + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, + System.ImageList, Vcl.ImgList; + +type + TfrmGKManage_Sel = class(TfrmBaseHelp) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + GPM_1: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Panel1: TPanel; + Label1: TLabel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + GKNo: TcxTextEdit; + Tv2Column1: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; + Tv2Column4: TcxGridDBColumn; + Tv2Column5: TcxGridDBColumn; + Tv2Column6: TcxGridDBColumn; + Tv2Column7: TcxGridDBColumn; + Tv2Column8: TcxGridDBColumn; + Tv2Column9: TcxGridDBColumn; + Tv2Column10: TcxGridDBColumn; + Tv2Column11: TcxGridDBColumn; + Tv2Column12: TcxGridDBColumn; + Tv2Column13: TcxGridDBColumn; + Tv2Column14: TcxGridDBColumn; + Tv2Column15: TcxGridDBColumn; + Tv2Column16: TcxGridDBColumn; + ToolButton7: TToolButton; + Tv2Column17: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure CustomerChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure MCNOPropertiesChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column12PropertiesEditValueChanged(Sender: TObject); + procedure cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject); + procedure v2Column8PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fFlag: integer; + { Public declarations } + RKFlag, FCYID, fmanage: string; + end; + +var + frmGKManage_Sel: TfrmGKManage_Sel; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_MachineInPut, U_EmployeeSel, + U_GKInput; + +{$R *.dfm} + +procedure TfrmGKManage_Sel.InitGrid(); +begin + GKNO.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from BS_GK A '); + +// showmessage(Sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; + +procedure TfrmGKManage_Sel.MCNOPropertiesChange(Sender: TObject); +var + sql: string; +begin + if ADOQueryMain.Active then + begin + sql := SGetFilters(Panel1, 1, 2); + SDofilter(ADOQueryMain, sql); + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + end; +end; + +procedure TfrmGKManage_Sel.FormDestroy(Sender: TObject); +begin + inherited; + frmGKManage_Sel := nil; +end; + +procedure TfrmGKManage_Sel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmGKManage_Sel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(Trim(Self.Caption), Tv2, 'ʹ'); + Close; +end; + +procedure TfrmGKManage_Sel.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(Trim(Self.Caption), Tv2, 'ʹ'); + InitGrid(); +end; + +procedure TfrmGKManage_Sel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGKManage_Sel.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + + TcxGridToExcel(self.Caption, cxgrid2); +end; + +procedure TfrmGKManage_Sel.ToolButton4Click(Sender: TObject); +begin + try + frmGKInput := TfrmGKInput.Create(Application); + with frmGKInput do + begin + FGKID := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmGKInput.Free; + end; +end; + +procedure TfrmGKManage_Sel.ToolButton5Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + Exit; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BS_GK where GKID=' + QuotedStr(CDS_HZ.FieldByName('GKID').AsString)); + ExecSQL; + end; + + InitGrid(); +end; + +procedure TfrmGKManage_Sel.ToolButton6Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + try + frmGKInput := TfrmGKInput.Create(Application); + with frmGKInput do + begin + FGKID := Trim(Self.CDS_HZ.fieldbyname('GKID').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmGKInput.Free; + end; +end; + +procedure TfrmGKManage_Sel.ToolButton7Click(Sender: TObject); +begin + GKNo.SetFocus; + ModalResult := 1; +end; + +procedure TfrmGKManage_Sel.v2Column12PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate BS_HL '); + sql.Add(' Set Begdate = ''' + mvalue + ''''); + sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + tv2.Controller.EditingController.ShowEdit(); + except + tv2.Controller.EditingController.ShowEdit(); + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end +end; + +procedure TfrmGKManage_Sel.v2Column8PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate BS_HL '); + sql.Add(' Set HL = ' + mvalue + ''); + sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + tv2.Controller.EditingController.ShowEdit(); + except + tv2.Controller.EditingController.ShowEdit(); + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end +end; + +procedure TfrmGKManage_Sel.cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate BS_HL '); + sql.Add(' Set EndDate = ''' + mvalue + ''''); + sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + tv2.Controller.EditingController.ShowEdit(); + except + tv2.Controller.EditingController.ShowEdit(); + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end +end; + +procedure TfrmGKManage_Sel.cxTabControl1Change(Sender: TObject); +begin + InitGrid; +end; + +procedure TfrmGKManage_Sel.N1Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + SelOKNo(CDS_HZ, True); +end; + +procedure TfrmGKManage_Sel.N2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + SelOKNo(CDS_HZ, False); +end; + +procedure TfrmGKManage_Sel.CustomerChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmGKManage_Sel.FormCreate(Sender: TObject); +begin + inherited; + fmanage := Trim(DParameters1); +end; + +end. + diff --git a/A05基础资料管理/U_GetDllForm.pas b/A05基础资料管理/U_GetDllForm.pas index 5d02384..0c3dcc1 100644 --- a/A05基础资料管理/U_GetDllForm.pas +++ b/A05基础资料管理/U_GetDllForm.pas @@ -14,7 +14,7 @@ implementation uses U_DataLink, U_MachineManage, U_PositionList, U_WarpBeamManage, U_TrayManage, - U_HLManage, U_GKManage; + U_HLManage, U_GKManage, U_GKManage_CX, U_GKDRList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -72,7 +72,7 @@ begin user := 'rtsa'; pswd := 'rightsoft@5740'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; -// DParameters1:='Ȩ'; + DParameters1 := ''; end else begin @@ -163,6 +163,29 @@ begin end; end; + 115: //ֿ۲ѯ + begin + with TfrmGKManage_CX.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; + + 116: //ֿ۱ + begin + with TfrmGKDRList.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; { diff --git a/A05基础资料管理/U_HLManage.dfm b/A05基础资料管理/U_HLManage.dfm index f16a58e..ac7c3d4 100644 --- a/A05基础资料管理/U_HLManage.dfm +++ b/A05基础资料管理/U_HLManage.dfm @@ -100,7 +100,6 @@ inherited frmHLManage: TfrmHLManage Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 36 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -165,6 +164,20 @@ inherited frmHLManage: TfrmHLManage HeaderAlignmentHorz = taCenter Width = 180 end + object Tv2Column1: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZ' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'CNY' + 'USD' + 'EUR' + 'VND') + Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 120 + end end object cxGridLevel1: TcxGridLevel GridView = Tv2 diff --git a/A05基础资料管理/U_HLManage.pas b/A05基础资料管理/U_HLManage.pas index bcb0f07..9d4e8e4 100644 --- a/A05基础资料管理/U_HLManage.pas +++ b/A05基础资料管理/U_HLManage.pas @@ -46,6 +46,7 @@ type ToolButton6: TToolButton; MCNO: TcxTextEdit; cxgrdbclmnTv2Column3: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -63,6 +64,7 @@ type procedure cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject); procedure v2Column8PropertiesEditValueChanged(Sender: TObject); procedure ToolButton5Click(Sender: TObject); + procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject); private { Private declarations } procedure InitGrid(); @@ -193,6 +195,40 @@ begin InitGrid(); end; +procedure TfrmHLManage.Tv2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate BS_HL '); + sql.Add(' Set BZ = ''' + mvalue + ''''); + sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + tv2.Controller.EditingController.ShowEdit(); + except + tv2.Controller.EditingController.ShowEdit(); + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end +end; + procedure TfrmHLManage.v2Column12PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; diff --git a/E01梭织生产计划/TatPlan.dpr b/E01梭织生产计划/TatPlan.dpr index 63faa81..0576ffb 100644 --- a/E01梭织生产计划/TatPlan.dpr +++ b/E01梭织生产计划/TatPlan.dpr @@ -29,8 +29,6 @@ uses U_WBSpecSel in '..\A00ͨô\U_WBSpecSel.pas' {frmWBSpecSel}, U_TatPlanSel in '..\E00֯ͨô\U_TatPlanSel.pas' {frmTatPlanSel}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, - U_TatPlanList in 'U_TatPlanList.pas' {frmTatPlanList}, - U_TatPlanInPut in 'U_TatPlanInPut.pas' {frmTatPlanInPut}, U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, U_TatPlanMachList in 'U_TatPlanMachList.pas' {frmTatPlanMachList}, U_TatPlanMachInput in 'U_TatPlanMachInput.pas' {frmTatPlanMachInput}, @@ -42,7 +40,9 @@ uses U_YarnInfoInPut in '..\B02ɴֿ߲\U_YarnInfoInPut.pas' {frmYarnInfoInPut}, U_WBSpecInPut in '..\A02Ʒ\U_WBSpecInPut.pas' {frmWBSpecInPut}, FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, - uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; + uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', + U_TatGYList in 'U_TatGYList.pas' {frmTatGYList}, + U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut}; {$R *.res} diff --git a/E01梭织生产计划/TatPlan.dproj b/E01梭织生产计划/TatPlan.dproj index 6bbeaa0..e510d51 100644 --- a/E01梭织生产计划/TatPlan.dproj +++ b/E01梭织生产计划/TatPlan.dproj @@ -207,14 +207,6 @@ dfm TDataModule - -
frmTatPlanList
- dfm - - -
frmTatPlanInPut
- dfm -
frmTradeSalesContractSel
dfm @@ -246,6 +238,14 @@ TFrame + +
frmTatGYList
+ dfm + + +
frmTatGYInPut
+ dfm + Cfg_2 Base diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 0b8e9c8..ec143ff 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,69 +1,73 @@  - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm + 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas= - 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm - 1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas - 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm - 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm - 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas - 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas - 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas - 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm + 1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas + 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas + 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas - 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas + 1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas + 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.306,=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.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.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas + 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas + 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas + 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm + 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_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm + 2025-03-04 20:53:30.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm + 2025-03-04 20:53:30.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas + 2025-03-04 20:56:26.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm + 2025-03-04 20:56:26.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas @@ -104,7 +108,6 @@ - @@ -160,15 +163,15 @@ - - - - + + + + diff --git a/E01梭织生产计划/U_GetDllForm.pas b/E01梭织生产计划/U_GetDllForm.pas index 8f6d15c..9b1b270 100644 --- a/E01梭织生产计划/U_GetDllForm.pas +++ b/E01梭织生产计划/U_GetDllForm.pas @@ -16,7 +16,7 @@ implementation uses U_DataLink, U_iniParam, U_TatPlanList, U_TatPlanCard, U_TatPlanMachList, - U_TatPlanCard1, U_TatPlanCardWJY, U_JHDTJ; + U_TatPlanCard1, U_TatPlanCardWJY, U_JHDTJ, U_TatGYList; @@ -127,6 +127,18 @@ begin //ģ鴰 case FormID of + 100: //յ + begin + with TfrmTatGYList.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 TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/E01梭织生产计划/U_TatGYInPut.dfm b/E01梭织生产计划/U_TatGYInPut.dfm new file mode 100644 index 0000000..c50369e --- /dev/null +++ b/E01梭织生产计划/U_TatGYInPut.dfm @@ -0,0 +1,1326 @@ +inherited frmTatGYInPut: TfrmTatGYInPut + Left = 212 + Top = 14 + Caption = #24037#33402#21333#24405#20837 + ClientHeight = 766 + ClientWidth = 1595 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -16 + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1611 + ExplicitHeight = 805 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1595 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + DisabledImages = DataLink_TatPlan.cxImageList_bar + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatPlan.cxImageList_bar + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton8: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton8Click + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox [1] + Left = 0 + Top = 30 + Width = 1595 + Height = 291 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label2: TLabel + Left = 787 + Top = 9 + Width = 80 + Height = 21 + Caption = #19979#21333#26085#26399#65306 + end + object Label3: TLabel + Left = 260 + Top = 81 + Width = 80 + Height = 21 + Caption = #22383#24067#21517#31216#65306 + end + object Label14: TLabel + Left = 787 + Top = 44 + Width = 80 + Height = 21 + Caption = #20844#21496#25260#22836#65306 + end + object Label5: TLabel + Left = 512 + Top = 9 + Width = 80 + Height = 21 + Caption = #20132#36135#26085#26399#65306 + end + object Label8: TLabel + Left = 1065 + Top = 249 + Width = 48 + Height = 21 + Caption = #21305#25968#65306 + Visible = False + end + object Label12: TLabel + Left = 260 + Top = 116 + Width = 48 + Height = 21 + Caption = #21305#38271#65306 + end + object Label13: TLabel + Left = 1298 + Top = 249 + Width = 74 + Height = 21 + Caption = #24635' '#25968' '#37327#65306 + Visible = False + end + object Label26: TLabel + Left = 9 + Top = 81 + Width = 80 + Height = 21 + Caption = #22383#24067#32534#21495#65306 + end + object Label31: TLabel + Left = 787 + Top = 189 + Width = 68 + Height = 21 + Caption = #35268' '#26684#65306 + end + object Label47: TLabel + Left = 512 + Top = 44 + Width = 48 + Height = 21 + Caption = #23458#25143#65306 + end + object Label43: TLabel + Left = 260 + Top = 44 + Width = 64 + Height = 21 + Caption = #19994#21153#21592#65306 + end + object lbl2: TLabel + Left = 260 + Top = 9 + Width = 80 + Height = 21 + Caption = #29983#20135#31867#22411#65306 + end + object Label7: TLabel + Left = 9 + Top = 9 + Width = 80 + Height = 21 + Caption = #24037#33402#21333#21495#65306 + end + object Label4: TLabel + Left = 1047 + Top = 44 + Width = 80 + Height = 21 + Caption = #21152#24037#21333#20301#65306 + end + object Label35: TLabel + Left = 9 + Top = 44 + Width = 64 + Height = 21 + Caption = #21512#21516#21495#65306 + end + object Label10: TLabel + Left = 1047 + Top = 9 + Width = 78 + Height = 21 + Caption = #26426' '#22411#65306 + end + object Label9: TLabel + Left = 9 + Top = 152 + Width = 48 + Height = 21 + Caption = #31576#24133#65306 + end + object Label6: TLabel + Left = 512 + Top = 81 + Width = 112 + Height = 21 + Caption = #29702#35770#24179#26041#20811#37325#65306 + end + object Label11: TLabel + Left = 512 + Top = 152 + Width = 64 + Height = 21 + Caption = #24635#22836#32441#65306 + end + object Label15: TLabel + Left = 9 + Top = 116 + Width = 48 + Height = 21 + Caption = #32428#23494#65306 + end + object Label16: TLabel + Left = 787 + Top = 81 + Width = 112 + Height = 21 + Caption = #23454#27979#24179#26041#20811#37325#65306 + end + object Label17: TLabel + Left = 260 + Top = 152 + Width = 48 + Height = 21 + Caption = #31576#21495#65306 + end + object Label55: TLabel + Left = 65 + Top = 409 + Width = 80 + Height = 21 + Caption = #31359#32508#39034#24207#65306 + Visible = False + end + object Label18: TLabel + Left = 9 + Top = 200 + Width = 48 + Height = 21 + Caption = #22791#27880#65306 + end + object Label1: TLabel + Left = 1327 + Top = 11 + Width = 96 + Height = 21 + Caption = #19979#25512#22383#24067#25968#65306 + Visible = False + end + object Label19: TLabel + Left = 1327 + Top = 46 + Width = 80 + Height = 21 + Caption = #35746#21333#25968#37327#65306 + Visible = False + end + object Label20: TLabel + Left = 787 + Top = 152 + Width = 80 + Height = 21 + Caption = #19978#26426#38376#24133#65306 + end + object Label21: TLabel + Left = 1047 + Top = 152 + Width = 80 + Height = 21 + Caption = #25104#21697#38376#24133#65306 + end + object Label22: TLabel + Left = 1047 + Top = 81 + Width = 80 + Height = 21 + Caption = #29256#26412#32534#21495#65306 + end + object Label23: TLabel + Left = 1047 + Top = 189 + Width = 78 + Height = 21 + Caption = #39068' '#33394#65306 + end + object OrdPieceLen: TcxTextEdit + Tag = 2 + Left = 337 + Top = 112 + Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged + TabOrder = 2 + OnKeyPress = ConNoKeyPress + Width = 150 + end + object OrdPiece: TcxTextEdit + Tag = 2 + Left = 1139 + Top = 245 + Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged + TabOrder = 3 + Visible = False + OnKeyPress = ConNoKeyPress + Width = 150 + end + object OrdQty: TcxTextEdit + Tag = 2 + Left = 1404 + Top = 245 + TabOrder = 1 + Visible = False + OnKeyPress = ConNoKeyPress + Width = 150 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 337 + Top = 75 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + Width = 150 + end + object Saleser: TcxTextEdit + Left = 337 + Top = 38 + TabOrder = 4 + OnKeyPress = ConNoKeyPress + Width = 150 + end + object OrderNo: TcxTextEdit + Left = 83 + Top = 3 + Enabled = False + TabOrder = 5 + OnKeyPress = ConNoKeyPress + Width = 150 + end + object ConMId: TcxTextEdit + Tag = 2 + Left = 749 + Top = 235 + Enabled = False + TabOrder = 6 + Visible = False + OnKeyPress = ConNoKeyPress + Width = 120 + end + object ConSId: TcxTextEdit + Tag = 2 + Left = 893 + Top = 234 + Enabled = False + TabOrder = 7 + Visible = False + OnKeyPress = ConNoKeyPress + Width = 120 + end + object ThroughHealdOrder: TcxMemo + Tag = 2 + Left = 139 + Top = 389 + ParentColor = True + ParentFont = False + TabOrder = 8 + Visible = False + Height = 57 + Width = 589 + end + object C_FinishLatitudeDensity: TcxTextEdit + Tag = 2 + Left = 83 + Top = 112 + ParentColor = True + Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged + TabOrder = 9 + Width = 150 + end + object C_TestGramWeight: TcxTextEdit + Tag = 2 + Left = 893 + Top = 75 + ParentColor = True + TabOrder = 10 + Width = 150 + end + object C_GramWeight: TcxTextEdit + Tag = 2 + Left = 618 + Top = 75 + ParentColor = True + TabOrder = 11 + Width = 150 + end + object C_ReedNo: TcxTextEdit + Tag = 2 + Left = 337 + Top = 148 + ParentColor = True + TabOrder = 12 + Width = 150 + end + object C_ReedWidth: TcxTextEdit + Tag = 2 + Left = 83 + Top = 148 + ParentColor = True + Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged + TabOrder = 13 + Width = 150 + end + object C_YarnQty: TcxTextEdit + Tag = 2 + Left = 618 + Top = 148 + ParentColor = True + Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged + TabOrder = 14 + Width = 150 + end + object LoomType: TcxTextEdit + Tag = 2 + Left = 1139 + Top = 3 + ParentColor = True + TabOrder = 15 + Width = 150 + end + object OrdNote: TcxMemo + Left = 83 + Top = 189 + ParentColor = True + TabOrder = 16 + Height = 57 + Width = 589 + end + object OurCoName: TcxButtonEdit + Left = 893 + Top = 38 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = OurCoNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 17 + OnDblClick = OurCoNameDblClick + Width = 150 + end + object FtyCoName: TcxButtonEdit + Left = 1139 + Top = 38 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = FtyCoNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 18 + OnDblClick = OurCoNameDblClick + Width = 150 + end + object OrdType: TcxComboBox + Left = 337 + Top = 3 + Properties.Items.Strings = ( + #22823#36135#21333 + #35797#26679#21333) + TabOrder = 19 + Width = 150 + end + object DlyDate: TcxDateEdit + Left = 618 + Top = 3 + Properties.ShowTime = False + TabOrder = 20 + Width = 150 + end + object OrdDate: TcxDateEdit + Left = 893 + Top = 3 + Properties.ShowTime = False + TabOrder = 21 + Width = 150 + end + object ConNo: TcxButtonEdit + Tag = 2 + Left = 83 + Top = 38 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = ConNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 22 + OnDblClick = OurCoNameDblClick + Width = 150 + end + object CustName: TcxButtonEdit + Left = 618 + Top = 38 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = CustNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 23 + OnDblClick = OurCoNameDblClick + Width = 150 + end + object C_Spec: TcxMemo + Tag = 2 + Left = 893 + Top = 189 + TabOrder = 24 + Height = 32 + Width = 150 + end + object C_Code: TcxButtonEdit + Tag = 2 + Left = 83 + Top = 75 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = C_CodePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 25 + OnDblClick = OurCoNameDblClick + Width = 150 + end + object PBQty: TcxTextEdit + Tag = 2 + Left = 1419 + Top = 5 + Properties.ReadOnly = True + TabOrder = 26 + Visible = False + OnKeyPress = ConNoKeyPress + Width = 150 + end + object DDQty: TcxTextEdit + Tag = 2 + Left = 1419 + Top = 40 + Properties.ReadOnly = True + TabOrder = 27 + Visible = False + OnKeyPress = ConNoKeyPress + Width = 150 + end + object C_Width: TcxTextEdit + Tag = 2 + Left = 893 + Top = 148 + ParentColor = True + TabOrder = 28 + Width = 150 + end + object C_FinishWidth: TcxTextEdit + Tag = 2 + Left = 1139 + Top = 148 + ParentColor = True + TabOrder = 29 + Width = 150 + end + object BBNo: TcxTextEdit + Tag = 2 + Left = 1139 + Top = 75 + ParentColor = True + TabOrder = 30 + Width = 150 + end + object C_Color: TcxTextEdit + Tag = 2 + Left = 1139 + Top = 189 + ParentColor = True + TabOrder = 31 + Width = 150 + end + end + object cxPageControl3: TcxPageControl [2] + Left = 0 + Top = 321 + Width = 1595 + Height = 445 + Align = alClient + TabOrder = 2 + Properties.ActivePage = cxTabSheet1 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + ClientRectBottom = 445 + ClientRectRight = 1595 + ClientRectTop = 28 + object cxTabSheet1: TcxTabSheet + Caption = #32463#19997#32452#21512 + ImageIndex = 0 + object GroupBox1: TGroupBox + Left = 931 + Top = 0 + Width = 664 + Height = 417 + Align = alClient + Caption = #32463#25490#21015 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Y_Note_PLJ: TMemo + Tag = 2 + Left = 2 + Top = 31 + Width = 660 + Height = 384 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 931 + Height = 417 + Align = alLeft + TabOrder = 1 + object cxPageControl2: TcxPageControl + Left = 1 + Top = 1 + Width = 929 + Height = 415 + Align = alClient + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentBackground = False + ParentColor = False + ParentFont = False + TabOrder = 0 + Visible = False + Properties.CustomButtons.Buttons = <> + Properties.Style = 6 + ClientRectBottom = 415 + ClientRectRight = 929 + ClientRectTop = 0 + end + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 929 + Height = 415 + Align = alClient + TabOrder = 1 + object TV1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = TV1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object TV1Column7: TcxGridDBColumn + Caption = #34892#21495 + DataBinding.FieldName = 'RowNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21407#26009#20195#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 131 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 138 + end + object TV1Column6: TcxGridDBColumn + Caption = #29702#35770'D'#25968 + DataBinding.FieldName = 'TestDenier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Column1: TcxGridDBColumn + Caption = #26681#25968 + DataBinding.FieldName = 'YarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object TV1Column2: TcxGridDBColumn + Caption = #24490#29615#26681#25968 + DataBinding.FieldName = 'CycleYarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 96 + end + object TV1Column8: TcxGridDBColumn + Caption = #31859'/'#24212#29992#37327 + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 114 + end + object TV1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object TV1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Column13: TcxGridDBColumn + Caption = #30424#22836#21495 + DataBinding.FieldName = 'PTNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #32433#32447#21697#29260 + DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 111 + end + object TV1Column11: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Column12: TcxGridDBColumn + Caption = #25467#24230 + DataBinding.FieldName = 'ND' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Column3: TcxGridDBColumn + Caption = #28068 + DataBinding.FieldName = 'Dacron' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Column4: TcxGridDBColumn + Caption = #26825 + DataBinding.FieldName = 'Cotton' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Column5: TcxGridDBColumn + Caption = #40635 + DataBinding.FieldName = 'Linen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV1 + end + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #32428#19997#32452#21512 + ImageIndex = 1 + object GroupBox2: TGroupBox + Left = 863 + Top = 0 + Width = 732 + Height = 417 + Align = alClient + Caption = #32428#25490#21015 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Y_Note_PLW: TMemo + Tag = 2 + Left = 2 + Top = 31 + Width = 728 + Height = 384 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 863 + Height = 417 + Align = alLeft + TabOrder = 1 + object cxPageControl1: TcxPageControl + Left = 1 + Top = 1 + Width = 861 + Height = 415 + Align = alClient + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentBackground = False + ParentColor = False + ParentFont = False + TabOrder = 0 + Visible = False + Properties.CustomButtons.Buttons = <> + Properties.Style = 6 + ClientRectBottom = 415 + ClientRectRight = 861 + ClientRectTop = 0 + end + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 861 + Height = 415 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv2Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv2Column7: TcxGridDBColumn + Caption = #34892#21495 + DataBinding.FieldName = 'RowNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v2Column10: TcxGridDBColumn + Caption = #21407#26009#20195#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 131 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 138 + end + object Tv2Column6: TcxGridDBColumn + Caption = #29702#35770'D'#25968 + DataBinding.FieldName = 'TestDenier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column1: TcxGridDBColumn + Caption = #26681#25968 + DataBinding.FieldName = 'YarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column2: TcxGridDBColumn + Caption = #24490#29615#26681#25968 + DataBinding.FieldName = 'CycleYarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column8: TcxGridDBColumn + Caption = #31859'/'#24212#29992#37327 + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 120 + end + object Tv2Column9: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column10: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column13: TcxGridDBColumn + Caption = #28504#36890#21495 + DataBinding.FieldName = 'PTNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v2Column2: TcxGridDBColumn + Caption = #32433#32447#21697#29260 + DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 111 + end + object Tv2Column12: TcxGridDBColumn + Caption = #25467#24230 + DataBinding.FieldName = 'ND' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column11: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column3: TcxGridDBColumn + Caption = #28068 + DataBinding.FieldName = 'Dacron' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column4: TcxGridDBColumn + Caption = #26825 + DataBinding.FieldName = 'Cotton' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column5: TcxGridDBColumn + Caption = #40635 + DataBinding.FieldName = 'Linen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #36215#32508#27861 + ImageIndex = 3 + object cxGrid4: TcxGrid + Left = 0 + Top = 375 + Width = 1595 + Height = 42 + Align = alBottom + TabOrder = 0 + Visible = False + object TV4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_QZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object TV4Column1: TcxGridDBColumn + Tag = 2 + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 63 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #39034#24207 + DataBinding.FieldName = 'XuNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Options.Sorting = False + Width = 146 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #22320#32452#32455#36215#32508#35268#24459 + DataBinding.FieldName = 'DZZQZGL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 499 + end + end + object cxGridLevel5: TcxGridLevel + GridView = TV4 + end + end + object QZF: TMemo + Tag = 2 + Left = 0 + Top = 0 + Width = 1595 + Height = 375 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 1 + end + end + object cxTabSheet4: TcxTabSheet + Caption = #31359#32508#27861 + ImageIndex = 3 + object CZF: TMemo + Tag = 2 + Left = 0 + Top = 0 + Width = 1595 + Height = 417 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 0 + end + end + object cxTabSheet5: TcxTabSheet + Caption = #31359#31576#27861 + ImageIndex = 3 + object CKF: TMemo + Tag = 2 + Left = 0 + Top = 0 + Width = 1595 + Height = 417 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 0 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Left = 631 + Top = 313 + end + inherited ADOQueryBaseTemp: TADOQuery + Left = 663 + Top = 313 + end + inherited ImageList_new32: TImageList + Left = 703 + Top = 385 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 701 + Top = 266 + DesignInfo = 17433277 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 727 + Top = 313 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Parameters = <> + Left = 695 + Top = 313 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 791 + Top = 313 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 860 + Top = 450 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 759 + Top = 313 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 554 + Top = 405 + end + object DS_QZ: TDataSource + DataSet = CDS_QZ + Left = 608 + Top = 421 + end + object CDS_QZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 823 + Top = 313 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 855 + Top = 313 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 887 + Top = 313 + end +end diff --git a/E01梭织生产计划/U_TatGYInPut.pas b/E01梭织生产计划/U_TatGYInPut.pas new file mode 100644 index 0000000..b5672e3 --- /dev/null +++ b/E01梭织生产计划/U_TatGYInPut.pas @@ -0,0 +1,1566 @@ +unit U_TatGYInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, + StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels, + cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges, + U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, cxCheckBox, dxCore, + cxDateUtils, dxScrollbarAnnotations, cxGridCustomPopupMenu, cxGridPopupMenu, + dxCoreClasses, dxHashUtils, dxSpreadSheetCore, dxSpreadSheetCoreFormulas, + dxSpreadSheetCoreHistory, dxSpreadSheetCoreStyles, dxSpreadSheetCoreStrs, + dxSpreadSheetConditionalFormatting, dxSpreadSheetConditionalFormattingRules, + dxSpreadSheetClasses, dxSpreadSheetContainers, dxSpreadSheetFormulas, + dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles, + dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, + dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, + dxSkinsCore, dxSkinsDefaultPainters, cxImageList, 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; + +type + TfrmTatGYInPut = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label2: TLabel; + Label3: TLabel; + Label14: TLabel; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + OrdPieceLen: TcxTextEdit; + OrdPiece: TcxTextEdit; + Label13: TLabel; + OrdQty: TcxTextEdit; + CDS_2: TClientDataSet; + DS_1: TDataSource; + CDS_1: TClientDataSet; + DS_2: TDataSource; + Label26: TLabel; + Label31: TLabel; + Label47: TLabel; + C_Name: TcxTextEdit; + Label43: TLabel; + lbl2: TLabel; + Saleser: TcxTextEdit; + Label7: TLabel; + OrderNo: TcxTextEdit; + Label4: TLabel; + ToolButton8: TToolButton; + Label35: TLabel; + ConMId: TcxTextEdit; + ConSId: TcxTextEdit; + cxPageControl3: TcxPageControl; + cxTabSheet1: TcxTabSheet; + GroupBox1: TGroupBox; + Y_Note_PLJ: TMemo; + cxTabSheet2: TcxTabSheet; + GroupBox2: TGroupBox; + Y_Note_PLW: TMemo; + cxTabSheet3: TcxTabSheet; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + TV4Column1: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Panel1: TPanel; + cxPageControl2: TcxPageControl; + Panel2: TPanel; + cxPageControl1: TcxPageControl; + DS_QZ: TDataSource; + CDS_QZ: TClientDataSet; + ThroughHealdOrder: TcxMemo; + C_FinishLatitudeDensity: TcxTextEdit; + C_TestGramWeight: TcxTextEdit; + C_GramWeight: TcxTextEdit; + C_ReedNo: TcxTextEdit; + C_ReedWidth: TcxTextEdit; + C_YarnQty: TcxTextEdit; + LoomType: TcxTextEdit; + OrdNote: TcxMemo; + Label10: TLabel; + Label9: TLabel; + Label6: TLabel; + Label11: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label55: TLabel; + Label18: TLabel; + OurCoName: TcxButtonEdit; + FtyCoName: TcxButtonEdit; + OrdType: TcxComboBox; + DlyDate: TcxDateEdit; + OrdDate: TcxDateEdit; + ConNo: TcxButtonEdit; + CustName: TcxButtonEdit; + C_Spec: TcxMemo; + C_Code: TcxButtonEdit; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + TV1Column7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + TV1Column1: TcxGridDBColumn; + TV1Column2: TcxGridDBColumn; + TV1Column3: TcxGridDBColumn; + TV1Column4: TcxGridDBColumn; + TV1Column5: TcxGridDBColumn; + TV1Column6: TcxGridDBColumn; + TV1Column8: TcxGridDBColumn; + TV1Column9: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + Tv2Column7: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; + Tv2Column4: TcxGridDBColumn; + Tv2Column5: TcxGridDBColumn; + Tv2Column6: TcxGridDBColumn; + Tv2Column8: TcxGridDBColumn; + Tv2Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + GPM_1: TcxGridPopupMenu; + GPM_2: TcxGridPopupMenu; + cxTabSheet4: TcxTabSheet; + CZF: TMemo; + cxTabSheet5: TcxTabSheet; + CKF: TMemo; + TV1Column11: TcxGridDBColumn; + TV1Column12: TcxGridDBColumn; + Tv2Column11: TcxGridDBColumn; + Tv2Column12: TcxGridDBColumn; + Label1: TLabel; + PBQty: TcxTextEdit; + Label19: TLabel; + DDQty: TcxTextEdit; + Label20: TLabel; + C_Width: TcxTextEdit; + Label21: TLabel; + C_FinishWidth: TcxTextEdit; + Label22: TLabel; + BBNo: TcxTextEdit; + Label23: TLabel; + C_Color: TcxTextEdit; + QZF: TMemo; + Tv2Column10: TcxGridDBColumn; + Tv2Column13: TcxGridDBColumn; + TV1Column10: TcxGridDBColumn; + TV1Column13: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure OrdPieceLenChange(Sender: TObject); + procedure OrdPieceChange(Sender: TObject); + procedure C_CodeKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure MCTypeBtnUpClick(Sender: TObject); + procedure cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure OurCoNameDblClick(Sender: TObject); + procedure FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton8Click(Sender: TObject); + procedure OrdPiecePropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV1Column1PropertiesEditValueChanged(Sender: TObject); + procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject); + procedure C_YarnQtyPropertiesEditValueChanged(Sender: TObject); + private + FXS, FGridFlag: Integer; + procedure InitData(); + procedure Initexcel(); + procedure CALCYarnQty(); + + procedure JSJS(); //㾭˿ + procedure JSWS(); //γ˿ + procedure JSKZ(); // + function SaveData(): Boolean; + procedure InitClothYarn(MC_Code: string); + { Private declarations } + public + PState, FCopyInt: Integer; + FConNo, FMainId, FSubId: string; + { Public declarations } + end; + +var + frmTatGYInPut: TfrmTatGYInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel, + U_TradeSalesContractSel; + +{$R *.dfm} +procedure TfrmTatGYInPut.InitClothYarn(MC_Code: string); +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Bs_Cloth_Info A'); + sql.Add(' where A.C_Code=''' + Trim(MC_Code) + ''''); + Open; + end; + Self.C_Code.Text := ADOQueryTemp.fieldbyname('C_Code').AsString; + Self.C_Name.Text := ADOQueryTemp.fieldbyname('C_Name').AsString; + Self.C_Spec.Text := ADOQueryTemp.fieldbyname('C_Spec').AsString; + Self.C_FinishLatitudeDensity.Text := ADOQueryTemp.fieldbyname('C_FinishLatitudeDensity').AsString; + + Self.C_GramWeight.Text := ADOQueryTemp.fieldbyname('C_GramWeight').AsString; + Self.C_ReedNo.Text := ADOQueryTemp.fieldbyname('C_ReedNo').AsString; + Self.C_YarnQty.Text := ADOQueryTemp.fieldbyname('C_YarnQty').AsString; + Self.C_TestGramWeight.Text := ADOQueryTemp.fieldbyname('C_TestGramWeight').AsString; + Self.LoomType.Text := ADOQueryTemp.fieldbyname('LoomType').AsString; + Self.C_ReedWidth.Text := ADOQueryTemp.fieldbyname('C_ReedWidth').AsString; + Self.BBNO.Text := ADOQueryTemp.fieldbyname('BBNO').AsString; + Self.C_Color.Text := ADOQueryTemp.fieldbyname('C_Color').AsString; + +// Self.QZF.Text := ADOQueryTemp.fieldbyname('QZF').AsString; +// Self.CZF.Text := ADOQueryTemp.fieldbyname('CZF').AsString; +// Self.CKF.Text := ADOQueryTemp.fieldbyname('CKF').AsString; +// Self.Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLJ').AsString; +// Self.Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PLW').AsString; +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); +// sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_1); +// SInitCDSData(ADOQueryTemp, CDS_1); +// ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']); +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); +// sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_2); +// SInitCDSData(ADOQueryTemp, CDS_2); +// ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']); +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); +// sql.Add(' where B.C_Code=''' + Trim(MC_Code) + ''''); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_QZ); +// SInitCDSData(ADOQueryTemp, CDS_QZ); +// ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']); + +end; + +procedure TfrmTatGYInPut.CALCYarnQty(); +var + MYarnQty, MOrdQty, MWidth, MMachLatitudeDensity: Double; +begin +// MYarnQty := STRTOFLOATDEF(C_YarnQty.Text, 0); +// MOrdQty := STRTOFLOATDEF(OrdQty.Text, 0); +// MWidth := STRTOFLOATDEF(StringReplace(C_Width.Text, 'CM', '', [rfReplaceAll, rfIgnoreCase]), 0); +// MMachLatitudeDensity := STRTOFLOATDEF(C_MachLatitudeDensity.Text, 0); +// with CDS_1 do +// begin +// DisableControls; +// First; +// while not Eof do +// begin +// Edit; +// FieldByName('Y_Qty').Value := MYarnQty * MOrdQty * FieldByName('Y_Ratio').AsFloat / 100 / 9000 * FieldByName('Denier').AsFloat / 1000; +// Next; +// end; +// EnableControls; +// end; +// +// with CDS_2 do +// begin +// DisableControls; +// First; +// while not Eof do +// begin +// Edit; +// FieldByName('Y_Qty').Value := MMachLatitudeDensity * MOrdQty * MWidth * FieldByName('Y_Ratio').AsFloat / 100 / 9000 * FieldByName('Denier').AsFloat / 1000; +// Next; +// end; +// EnableControls; +// end; + +end; + +procedure TfrmTatGYInPut.TBCloseClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmTatGYInPut.InitData(); +var + PBNO, PBFlag: string; +begin + if PState = 1 then + begin + ConNo.enabled := false; + end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(FMainId) + ''''); + Open; + end; + SCSHData(ADOQueryTemp, ScrollBox1, 0); + +// QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString); + CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString); + CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString); + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(FMainId) + ''''); + Open; + end; + SCSHData(ADOQueryTemp, ScrollBox1, 2); + Y_Note_PLJ.Text := ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString; + + Y_Note_PLW.Text := ADOQueryTemp.FieldByName('Y_Note_PLW').AsString; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Tat_Plan_Yarn A '); + sql.Add(' where YRType=''˿'' and A.MainId=''' + Trim(FMainId) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Tat_Plan_Yarn A '); + sql.Add(' where YRType=''γ˿'' and A.MainId=''' + Trim(FMainId) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); + + /////////////////ˢ۹յϢ///////////////////////// + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Tat_Plan_QZ where MainId=''' + Trim(FMainId) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_QZ); + SInitCDSData(ADOQueryTemp, CDS_QZ); + /////////////////ˢ۹յϢ///////////////////////// + if FMainId = '' then + begin + with CDS_1 do + begin + Append; + FieldByName('RowNo').Value := 'A'; + Post; + Append; + FieldByName('RowNo').Value := 'B'; + Post; + Append; + FieldByName('RowNo').Value := 'C'; + Post; + Append; + FieldByName('RowNo').Value := 'D'; + Post; + Append; + FieldByName('RowNo').Value := 'E'; + Post; + Append; + FieldByName('RowNo').Value := 'F'; + Post; + Append; + FieldByName('RowNo').Value := 'G'; + Post; + end; + with CDS_2 do + begin + Append; + FieldByName('RowNo').Value := 'A'; + Post; + Append; + FieldByName('RowNo').Value := 'B'; + Post; + Append; + FieldByName('RowNo').Value := 'C'; + Post; + Append; + FieldByName('RowNo').Value := 'D'; + Post; + Append; + FieldByName('RowNo').Value := 'E'; + Post; + Append; + FieldByName('RowNo').Value := 'F'; + Post; + Append; + FieldByName('RowNo').Value := 'G'; + Post; + end; + + end; +end; + +procedure TfrmTatGYInPut.Initexcel(); +var + myStream: TMemoryStream; +begin + +// myStream := TMemoryStream.Create(); +// +// with ADOQueryTemp do +// begin +// close; +// sql.Clear; +// sql.Add(' select * from BS_Cloth_Info_Excel A INNER JOIN Bs_Cloth_Info B on A.BCIID =B.BCIID where B.C_Code=''' + Trim(C_Code.text) + ''''); +// open; +// end; +// +// if not ADOQueryTemp.IsEmpty then +// begin +// +// TBlobField(ADOQueryTemp.FieldByName('ExcelData')).SaveToStream(myStream); +// myStream.Position := 0; +// dxSpreadSheet1.LoadFromStream(myStream); +// end +// else +// begin +//// dxSpreadSheet1.ClearAll; +// end; +// +// myStream.Free; +end; + +procedure TfrmTatGYInPut.FormCreate(Sender: TObject); +var + FDate: TDateTime; +begin + FDate := SGetServerDateTime(ADOQueryTemp); + OrdDate.Date := FDate; + DlyDate.Date := FDate; +end; + +procedure TfrmTatGYInPut.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƻ¼11', Tv1, ''); + ReadCxGrid('ƻ¼22', Tv2, ''); + InitData(); +// Initexcel(); +end; + +procedure TfrmTatGYInPut.FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); + FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +function TfrmTatGYInPut.SaveData(): Boolean; +var + maxno, maxsubno, maxpbno, maxpzno, maxsjno, maxQZID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FMainId) = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'GY', 'Tat_Plan_Main', 4, 1) = False then + raise Exception.Create('ˮ쳣'); + + OrderNo.Text := maxno; + end + else + begin + maxno := Trim(FMainId); + end; +////////////////////////// ////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Tat_Plan_Main where MainId=''' + Trim(FMainId) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FMainId) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('Status').Value := 11; + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MainId').Value := Trim(maxno); +// FieldByName('QZF').Value := Trim(QZF.text); + FieldByName('CZF').Value := Trim(CZF.text); + FieldByName('CKF').Value := Trim(CKF.text); + + RTSetsavedata(ADOQueryCmd, 'Tat_Plan_Main', ScrollBox1, 0); + Post; + end; +////////////////////////// ////////////////////////// +/// +////////////////////////// ӱ ////////////////////////// + if Trim(FSubId) = '' then + begin + if GetLSNo(ADOQueryTemp, maxsubno, 'SZS', 'Tat_Plan_Sub', 4, 1) = False then + raise Exception.Create('ȡˮʧܣ'); + + end + else + begin + maxsubno := Trim(FSubId); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Plan_Sub where '); + sql.Add(' SubId=''' + Trim(maxsubno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FSubId) = '' then + Append + else + Edit; + FieldByName('MainId').Value := Trim(maxno); + FieldByName('SubId').Value := Trim(maxsubno); + + RTSetsavedata(ADOQueryCmd, 'Tat_Plan_Sub', ScrollBox1, 2); + FieldByName('Y_Note_PLJ').Value := Trim(Y_Note_PLJ.Text); + + FieldByName('Y_Note_PLW').Value := Trim(Y_Note_PLW.Text); + + Post; + end; +////////////////////////// ӱ ////////////////////////// +////////////////////////// 澭˿ȱ ////////////////////////// + with CDS_1 do + begin + First; + while not Eof do + begin + if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxpbno, 'RJ', 'Tat_Plan_Yarn', 4, 1) = False then + raise Exception.Create('ȡˮʧܣ'); + + end + else + begin + maxpbno := Trim(CDS_1.fieldbyname('YRId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Plan_Yarn where '); + sql.Add(' YRId=''' + Trim(maxpbno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('YRType').Value := '˿'; + FieldByName('MainId').Value := Trim(maxno); + FieldByName('SubId').Value := Trim(maxsubno); + FieldByName('YRId').Value := Trim(maxpbno); + RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_Plan_Yarn', 0); + Post; + end; + CDS_1.Edit; + CDS_1.FieldByName('SubId').Value := Trim(maxsubno); + CDS_1.FieldByName('MainId').Value := Trim(maxno); + CDS_1.FieldByName('YRId').Value := Trim(maxpbno); + + Next; + end; + end; +////////////////////////// 澭˿ȱ ////////////////////////// +////////////////////// +////////////////////////// γ˿ȱ ////////////////////////// + with CDS_2 do + begin + First; + while not Eof do + begin + if Trim(CDS_2.fieldbyname('YRId').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxpbno, 'RJ', 'Tat_Plan_Yarn', 4, 1) = False then + raise Exception.Create('ȡˮʧܣ'); + + end + else + begin + maxpbno := Trim(CDS_2.fieldbyname('YRId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Plan_Yarn where '); + sql.Add(' YRId=''' + Trim(maxpbno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_2.fieldbyname('YRId').AsString) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('YRType').Value := 'γ˿'; + FieldByName('MainId').Value := Trim(maxno); + FieldByName('SubId').Value := Trim(maxsubno); + FieldByName('YRId').Value := Trim(maxpbno); + RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Tat_Plan_Yarn', 0); + Post; + end; + CDS_2.Edit; + CDS_2.FieldByName('SubId').Value := Trim(maxsubno); + CDS_2.FieldByName('MainId').Value := Trim(maxno); + CDS_2.FieldByName('YRId').Value := Trim(maxpbno); + + Next; + end; + end; +////////////////////////// γ˿ȱ ////////////////////////// + ////////////////////// +////////////////////////// ////////////////////////// + with CDS_QZ do + begin + First; + while not Eof do + begin + if Trim(CDS_QZ.fieldbyname('QZID').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxQZID, 'QZ', 'Tat_Plan_QZ', 4, 1) = False then + raise Exception.Create('ȡˮʧܣ'); + + end + else + begin + maxQZID := Trim(CDS_QZ.fieldbyname('QZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Plan_QZ where '); + sql.Add(' QZID=''' + Trim(maxQZID) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_QZ.fieldbyname('QZID').AsString) = '' then + begin + Append; +// FieldByName('Filler').Value := Trim(DName); +// FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + end + else + begin + Edit; +// FieldByName('Editer').Value := Trim(DName); +// FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MainId').Value := Trim(maxno); + FieldByName('SubId').Value := Trim(maxsubno); + FieldByName('QZID').Value := Trim(maxQZID); + RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_QZ, 'Tat_Plan_QZ', 0); + Post; + end; + CDS_QZ.Edit; + CDS_QZ.FieldByName('SubId').Value := Trim(maxsubno); + CDS_QZ.FieldByName('MainId').Value := Trim(maxno); + CDS_QZ.FieldByName('QZID').Value := Trim(maxQZID); + + Next; + end; + end; +////////////////////////// ////////////////////////// + ADOQueryCmd.Connection.CommitTrans; + FMainId := Trim(maxno); + FSubId := Trim(maxsubno); + Result := True; + except + Result := False; + CDS_1.EnableControls; + CDS_2.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + + end; +end; + +procedure TfrmTatGYInPut.TBSaveClick(Sender: TObject); +var + FReal: Double; + maxConNo: string; +begin + OrdDate.SetFocus; + CALCYarnQty(); + + if Trim(CustName.Text) = '' then + begin + Application.MessageBox('ͻΪ!', 'ʾ', 0); + Exit; + end; + + if Trim(OrdType.Text) = '' then + begin + Application.MessageBox('ͲΪ!', 'ʾ', 0); + Exit; + end; + + if Trim(C_Name.Text) = '' then + begin + Application.MessageBox('ƷƲΪ!', 'ʾ', 0); + Exit; + end; + if Trim(C_Code.Text) = '' then + begin + Application.MessageBox('ƷŲΪ!', 'ʾ', 0); + Exit; + end; + + if Trim(C_Width.Text) = '' then + begin + Application.MessageBox('ϻŷΪ!', 'ʾ', 0); + Exit; + end; + +// if Trim(OrdQty.Text) = '' then +// begin +// Application.MessageBox('Ϊ!', 'ʾ', 0); +// Exit; +// end; + if Trim(OrdPieceLen.Text) = '' then + begin + Application.MessageBox('ƥΪ!', 'ʾ', 0); + Exit; + end; +// if Trim(OrdPiece.Text) = '' then +// begin +// Application.MessageBox('ƥΪ!', 'ʾ', 0); +// Exit; +// end; +// +// if TryStrToFloat(OrdQty.Text, FReal) = False then +// begin +// Application.MessageBox('Ƿ!', 'ʾ', 0); +// Exit; +// end; + if TryStrToFloat(OrdPiecelen.Text, FReal) = False then + begin + Application.MessageBox('ƥǷ!', 'ʾ', 0); + Exit; + end; +// if TryStrToFloat(OrdPiece.Text, FReal) = False then +// begin +// Application.MessageBox('ƥǷ!', 'ʾ', 0); +// Exit; +// end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; + end; +end; + +procedure TfrmTatGYInPut.ToolButton7Click(Sender: TObject); +var + i, j: Integer; +begin + for j := 0 to 5 do + begin + i := CDS_QZ.RecordCount; + i := i + 1; + with CDS_QZ do + begin + Append; + FieldByName('SSEL').Value := FALSE; + FieldByName('XuNO').Value := i; + Post; + end; + end; +end; + +procedure TfrmTatGYInPut.ToolButton8Click(Sender: TObject); +begin + WriteCxGrid('ƻ¼11', Tv1, ''); + WriteCxGrid('ƻ¼22', Tv2, ''); +end; + +procedure TfrmTatGYInPut.ToolButton9Click(Sender: TObject); +begin + if CDS_QZ.IsEmpty then + exit; + if CDS_QZ.Locate('ssel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪϺݲָܻ', 'ʾ', 32 + 4) <> IDYES then + Exit; + CDS_QZ.DisableControls; + with CDS_QZ do + begin + First; + while not Eof do + begin + if CDS_QZ.FieldByName('SSel').AsBoolean = True then + begin + if Trim(CDS_QZ.fieldbyname('QZID').AsString) <> '' then + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete PD_Plan_QZ where QZID=''' + Trim(CDS_QZ.fieldbyname('QZID').AsString) + ''''); + ExecSQL; + end; + CDS_QZ.Delete; + end + else + Next; + + end; + + end; + CDS_QZ.EnableControls; +end; + +procedure TfrmTatGYInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, TW: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0); //ط + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + + TW := strtofloatdef(C_YarnQty.text, 0); //ͷ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + JSKZ(); +end; + +procedure TfrmTatGYInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_2 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0); //ط + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_2 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); + Post; + end; + end; + JSKZ(); +end; + +procedure TfrmTatGYInPut.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + if ShowModal = 1 then + begin + with self.CDS_2 do + begin + Edit; + FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value; + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; + FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + Post; + end; + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +procedure TfrmTatGYInPut.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + if ShowModal = 1 then + begin + with self.CDS_1 do + begin + Edit; + + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value; + + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; + + FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; + FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; + + FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; + FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; + FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + + Post; + end; + + JSJS(); + JSWS(); + JSKZ(); + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +procedure TfrmTatGYInPut.JSJS(); +var + GS, ZGS, MF, DS, WM, TW: double; +begin + if CDS_1.IsEmpty then + exit; + with CDS_1 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_1 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0); //ط + + TW := strtofloatdef(C_YarnQty.text, 0); //ͷ + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmTatGYInPut.JSWS(); +var + GS, ZGS, MF, DS, WM: double; +begin + if CDS_2.IsEmpty then + exit; + with CDS_2 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_2 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0) + 15; //ط + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_2 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmTatGYInPut.JSKZ(); +var + SumJS, SumWS: double; +begin + C_GramWeight.SetFocus; + + if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then + begin + SumJS := Tv1.DataController.Summary.FooterSummaryValues[0]; + end + else + begin + SumJS := 0; + end; + + if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then + begin + SumWS := Tv2.DataController.Summary.FooterSummaryValues[0]; + end + else + begin + SumWS := 0; + end; + + C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); +end; + +procedure TfrmTatGYInPut.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + if ShowModal = 1 then + begin + with self.CDS_1 do + begin + Append; + FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value; + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; + FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + + Post; + end; + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +procedure TfrmTatGYInPut.v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + if ShowModal = 1 then + begin + with self.CDS_2 do + begin + Edit; + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value; + + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; + + FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; + FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; + + FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; + FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; + FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + Post; + end; + + JSJS(); + JSWS(); + JSKZ(); + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +procedure TfrmTatGYInPut.v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + + if ShowModal = 1 then + begin + with Self.CDS_1 do + begin + Edit; + FieldByName('GYSName').Value := Trim(CDS_1.fieldbyname('CoName').AsString); + end; + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatGYInPut.OrdPieceLenChange(Sender: TObject); +var + FOrdQty, FOrdPieceLen: Double; +begin + FOrdQty := StrToFloatDef(OrdQty.Text, 0); + FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); + if FOrdPieceLen > 0 then + OrdPiece.Text := IntToStr(Ceil(FOrdQty / FOrdPieceLen)); +end; + +procedure TfrmTatGYInPut.OrdPiecePropertiesEditValueChanged(Sender: TObject); +begin + OrdQty.text := floattostr(strtofloatdef(OrdPiece.text, 0) * strtofloatdef(OrdPieceLen.text, 0)); +end; + +procedure TfrmTatGYInPut.OurCoNameDblClick(Sender: TObject); +begin + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; + TcxButtonEdit(Sender).Text := ''; +end; + +procedure TfrmTatGYInPut.OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '˾'; + if ShowModal = 1 then + begin + OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); + OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); + FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatGYInPut.OrdPieceChange(Sender: TObject); +var + FOrdQty, FOrdPieceLen, FOrdPiece: Double; +begin + FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); + FOrdPiece := StrToFloatDef(OrdPiece.Text, 0); + if FOrdPiece > 0 then + OrdQty.Text := FloatToStr(FOrdPieceLen * FOrdPiece) + else + OrdQty.Text := '0'; +end; + +procedure TfrmTatGYInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmTatGYInPut.C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmTatClothInfoSel := TfrmTatClothInfoSel.Create(Application); + with frmTatClothInfoSel do + begin + if ShowModal = 1 then + begin + InitClothYarn(frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').AsString); + Initexcel(); + end; + end; + finally + frmTatClothInfoSel.Free; + end; +end; + +procedure TfrmTatGYInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject); +begin + JSJS(); + JSWS(); + JSKZ(); +end; + +procedure TfrmTatGYInPut.Edit1KeyPress(Sender: TObject; var Key: Char); +var + i, j: Integer; +begin +// if Key = #13 then +// begin +// +// if Edit1.Text <> '' then +// begin +// i := CDS_QZ.RecordCount; +// i := i + 1; +// with CDS_QZ do +// begin +// Append; +// FieldByName('SSEL').Value := FALSE; +// FieldByName('XuNO').Value := i; +// FieldByName('DZZQZGL').Value := Trim(Edit1.Text); +// Post; +// end; +// Edit1.Text := ''; +// end; +// +// end; +end; + +procedure TfrmTatGYInPut.MCTypeBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TBtnEditC(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 + TBtnEditC(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmTatGYInPut.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmTatGYInPut.ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + FConMainId, FMPRTCode: string; +begin + try + frmTradeSalesContractSel := TfrmTradeSalesContractSel.Create(Application); + with frmTradeSalesContractSel do + begin + fconNo := self.ConNo.Text; + fC_Code := self.C_Code.Text; + FLX := '֯'; + + if ShowModal = 1 then + begin + + self.CustName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString); + self.CustName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString); + + self.OurCoName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellno').AsString); + self.OurCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellname').AsString); + + self.FtyCoName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellno').AsString); + self.FtyCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellname').AsString); + + self.ConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString); + self.ConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString); + self.ConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString); + self.Saleser.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Saleser').AsString); + self.C_Code.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString); + + self.C_Width.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Width').AsString); + + self.C_GramWeight.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').AsString); + self.BBNO.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BBNO').AsString); + self.C_Color.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString); + self.OrdQty.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConQty').AsString); + InitClothYarn(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString); + Initexcel(); + end; + end; + finally + frmTradeSalesContractSel.Free; + end; +end; + +procedure TfrmTatGYInPut.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin + CustName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); + CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +end. + diff --git a/E01梭织生产计划/U_TatGYList.dfm b/E01梭织生产计划/U_TatGYList.dfm new file mode 100644 index 0000000..6a03176 --- /dev/null +++ b/E01梭织生产计划/U_TatGYList.dfm @@ -0,0 +1,674 @@ +inherited frmTatGYList: TfrmTatGYList + Left = 249 + Top = 194 + Caption = #24037#33402#21333 + ClientHeight = 579 + ClientWidth = 1540 + Font.Height = -16 + Position = poScreenCenter + ExplicitWidth = 1556 + ExplicitHeight = 618 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_TatPlan.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatPlan.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 5 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TBAddClick + end + object TBCopy: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = TBCopyClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object TBPrint: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = TBPrintClick + end + object TBView: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 4 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object btnChk: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 20 + OnClick = btnChkClick + end + object btnReChk: TToolButton + Left = 567 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + OnClick = btnReChkClick + end + object TBEnd: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #32467#26463 + ImageIndex = 20 + Visible = False + OnClick = TBEndClick + end + object TBNoEnd: TToolButton + Left = 717 + Top = 0 + AutoSize = True + Caption = #25764#38144#32467#26463 + ImageIndex = 11 + Visible = False + OnClick = TBNoEndClick + end + object TBExport: TToolButton + Left = 804 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 867 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 954 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1540 + Height = 82 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 6 + object Label1: TLabel + Left = 18 + Top = 14 + Width = 64 + Height = 21 + Caption = #30331#35760#26085#26399 + end + object Label2: TLabel + Left = 53 + Top = 50 + Width = 21 + Height = 21 + Caption = '---' + end + object Label3: TLabel + Left = 229 + Top = 14 + Width = 48 + Height = 21 + Caption = #21512#21516#21495 + end + object Label5: TLabel + Left = 615 + Top = 50 + Width = 64 + Height = 21 + Caption = #22383#24067#21517#31216 + end + object Label10: TLabel + Left = 615 + Top = 14 + Width = 64 + Height = 21 + Caption = #22383#24067#32534#21495 + end + object Label7: TLabel + Left = 442 + Top = 14 + Width = 32 + Height = 21 + Caption = #23458#25143 + end + object lbl1: TLabel + Left = 442 + Top = 50 + Width = 32 + Height = 21 + Caption = #31867#22411 + end + object Label4: TLabel + Left = 230 + Top = 50 + Width = 64 + Height = 21 + Caption = #24037#33402#21333#21495 + end + object ConNo: TcxTextEdit + Tag = 2 + Left = 300 + Top = 6 + Properties.OnChange = ConNoPropertiesChange + TabOrder = 0 + OnKeyPress = conPress + Width = 120 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 687 + Top = 46 + Properties.OnChange = ConNoPropertiesChange + TabOrder = 1 + OnKeyPress = C_NameKeyPress + Width = 120 + end + object C_Code: TcxTextEdit + Tag = 2 + Left = 687 + Top = 7 + Properties.OnChange = ConNoPropertiesChange + TabOrder = 2 + OnKeyPress = C_CodeKeyPress + Width = 120 + end + object CustName: TcxTextEdit + Tag = 2 + Left = 486 + Top = 8 + Properties.OnChange = ConNoPropertiesChange + TabOrder = 3 + OnKeyPress = CustNameKeyPress + Width = 120 + end + object OrderNo: TcxTextEdit + Tag = 2 + Left = 300 + Top = 46 + Properties.OnChange = ConNoPropertiesChange + TabOrder = 4 + OnKeyPress = conPress + Width = 120 + end + object BegDate: TcxDateEdit + Left = 89 + Top = 8 + Properties.ShowTime = False + TabOrder = 5 + Width = 120 + end + object EndDate: TcxDateEdit + Left = 89 + Top = 46 + Properties.ShowTime = False + TabOrder = 6 + Width = 120 + end + object OrdType: TcxComboBox + Left = 489 + Top = 46 + Properties.Items.Strings = ( + #22823#36135#21333 + #35797#26679#21333) + Properties.OnChange = ConNoPropertiesChange + TabOrder = 7 + Width = 120 + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 140 + Width = 1285 + Height = 439 + Align = alClient + TabOrder = 2 + ExplicitHeight = 444 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24037#33402#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v1Column31: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 109 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21152#24037#21333#20301 + DataBinding.FieldName = 'FtyCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v1Column19: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v1Column21: TcxGridDBColumn + Caption = #22383#24067#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column2: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + object Tv1Column4: TcxGridDBColumn + Caption = #26426#22411 + DataBinding.FieldName = 'LoomType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #29702#35770#24179#26041#20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 131 + end + object v1Column3: TcxGridDBColumn + Caption = #23454#27979#24179#26041#20811#37325 + DataBinding.FieldName = 'C_TestGramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object Tv1Column3: TcxGridDBColumn + Caption = #32428#23494 + DataBinding.FieldName = 'C_FinishLatitudeDensity' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column7: TcxGridDBColumn + Caption = #21305#38271 + DataBinding.FieldName = 'OrdPieceLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTMF: TcxGridDBColumn + Caption = #31576#24133 + DataBinding.FieldName = 'C_ReedWidth' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column8: TcxGridDBColumn + Caption = #31576#21495 + DataBinding.FieldName = 'C_ReedNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column5: TcxGridDBColumn + Caption = #24635#22836#32441 + DataBinding.FieldName = 'C_YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column11: TcxGridDBColumn + Caption = #19978#26426#38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column12: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'C_FinishWidth' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column13: TcxGridDBColumn + Caption = #29256#26412#32534#21495 + DataBinding.FieldName = 'BBNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column6: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column16: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 112 + Width = 1540 + Height = 28 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectRight = 0 + ClientRectTop = 0 + end + object Picture4: TcxDBImage [4] + Left = 1285 + Top = 140 + Hint = 'FileName' + Align = alRight + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DSImage + Properties.GraphicClassName = 'TdxSmartImage' + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 4 + Visible = False + OnDblClick = Picture4DblClick + ExplicitHeight = 444 + Height = 439 + Width = 255 + end + inherited loadProcess: TPanel + Left = 351 + Top = 309 + ExplicitLeft = 351 + ExplicitTop = 309 + end + inherited cxProgressBar2: TcxProgressBar + Left = 351 + Top = 254 + ExplicitLeft = 351 + ExplicitTop = 254 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Left = 225 + Top = 216 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Left = 89 + Top = 217 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 320 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Parameters = <> + Left = 472 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + Top = 192 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 664 + Top = 320 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 600 + Top = 320 + end + object DSImage: TDataSource + DataSet = ADOQuery1 + Left = 831 + Top = 279 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TatPlan.ADOLink + EnableBCD = False + Parameters = <> + Left = 903 + Top = 281 + end +end diff --git a/E01梭织生产计划/U_TatGYList.pas b/E01梭织生产计划/U_TatGYList.pas new file mode 100644 index 0000000..d81e3ce --- /dev/null +++ b/E01梭织生产计划/U_TatGYList.pas @@ -0,0 +1,797 @@ +unit U_TatGYList; + +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, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, + cxPC, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit, + cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, + 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, cxImage, cxDBEdit, IdFTP, + ShellAPI; + +type + TfrmTatGYList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + GPM_1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + Label3: TLabel; + ConNo: TcxTextEdit; + Label5: TLabel; + C_Name: TcxTextEdit; + TBExport: TToolButton; + CDS_1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column7: TcxGridDBColumn; + TBCopy: TToolButton; + TBView: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Label10: TLabel; + C_Code: TcxTextEdit; + v1Column31: TcxGridDBColumn; + CustName: TcxTextEdit; + Label7: TLabel; + lbl1: TLabel; + cxTabControl1: TcxTabControl; + Tv1Column1: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TcxTextEdit; + Tv1Column2: TcxGridDBColumn; + TBEnd: TToolButton; + TBNoEnd: TToolButton; + Tv1Column3: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + ToolButton1: TToolButton; + btnChk: TToolButton; + btnReChk: TToolButton; + BegDate: TcxDateEdit; + EndDate: TcxDateEdit; + OrdType: TcxComboBox; + Tv1Column4: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + DSImage: TDataSource; + ADOQuery1: TADOQuery; + Picture4: TcxDBImage; + Tv1Column16: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure TBViewClick(Sender: TObject); + procedure TBCopyClick(Sender: TObject); + procedure OrdTypeChange(Sender: TObject); + procedure C_CodeKeyPress(Sender: TObject; var Key: Char); + procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char); + procedure CustNameKeyPress(Sender: TObject; var Key: Char); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure TBEndClick(Sender: TObject); + procedure TBNoEndClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure btnChkClick(Sender: TObject); + procedure btnReChkClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure Picture4DblClick(Sender: TObject); + procedure ConNoPropertiesChange(Sender: TObject); + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + procedure InitButton(); + { Private declarations } + public + canshu1, FCheJian: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatGYInPut, U_TatCardInPut; + +{$R *.dfm} + +procedure TfrmTatGYList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatGYList.InitButton(); +begin + + TBAdd.Enabled := False; + TBCopy.Enabled := False; + TBEdit.Enabled := False; + TBDel.Enabled := False; + TBEnd.Enabled := False; + TBNoEnd.Enabled := False; + btnChk.Enabled := False; + btnReChk.Enabled := False; + if Trim(canshu1) = '¼' then + begin + case cxTabControl1.TabIndex of + 0: + begin + TBAdd.Enabled := true; + TBCopy.Enabled := true; + TBDel.Enabled := true; + TBEdit.Enabled := true; + btnChk.Enabled := true; + + end; + 1: + begin + TBAdd.Enabled := true; + TBCopy.Enabled := true; + TBEnd.Enabled := true; + TBEdit.Enabled := true; + btnReChk.Enabled := true; + end; + 2: + begin + TBNoEnd.Enabled := true; + end; + end; + end; + + if Trim(canshu1) = '' then + begin + case cxTabControl1.TabIndex of + 0: + begin + TBAdd.Enabled := true; + TBCopy.Enabled := true; + TBDel.Enabled := true; + TBEdit.Enabled := true; + btnChk.Enabled := true; + end; + 1: + begin + TBAdd.Enabled := true; + TBCopy.Enabled := true; + TBEnd.Enabled := true; + TBEdit.Enabled := true; + btnReChk.Enabled := true; + end; + 2: + begin + TBNoEnd.Enabled := true; + end; + end; + end; + +end; + +procedure TfrmTatGYList.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTatGYList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,FileName=(select FileName from TP_File X inner join Bs_Contract_Sub Y on X.FileName=Y.AttName where Y.ConSID = B.ConSID ) '); + sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId'); + sql.Add('where 1=1 '); + case cxTabControl1.TabIndex of + 0: + begin + sql.Add('and isnull(Status,''0'') =''11'' '); + end; + 1: + begin + sql.Add('and isnull(Status,''0'') =''22'' '); + end; + 2: + begin + sql.Add('and isnull(Status,''0'') in(''11'',''22'') '); + end; + end; + + sql.add('order by A.FILLTIME DESC'); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmTatGYList.InitForm(); +begin + + ReadCxGrid('ƻ', Tv1, ''); + BegDate.Date := SGetServerDate(ADOQueryTemp) - 30; + EndDate.Date := SGetServerDate(ADOQueryTemp); + InitButton(); + InitGrid(); +end; + +procedure TfrmTatGYList.TBFindClick(Sender: TObject); +begin + TBRafresh.Click; + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatGYList.TBNoEndClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_Plan_Main SET status=''0'',Comper=null,Comptime=null '); + sql.Add('where mainID=' + quotedstr(trim(CDS_1.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(CDS_1.FieldByName('OrderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatGYList.TBEditClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatGYInPut := TfrmTatGYInPut.Create(Application); + with frmTatGYInPut do + begin + PState := 1; + FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString); + FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString); + if ShowModal = 1 then + begin + InitGrid(); + Self.CDS_1.Locate('MainId', frmTatGYInPut.FMainId, []); + end; + end; + finally + frmTatGYInPut.Free; + end; +end; + +procedure TfrmTatGYList.TBEndClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_Plan_Main SET status=''10'' ,Comper=''' + trim(DName) + ''',Comptime=getdate() '); + sql.Add('where mainID=' + quotedstr(trim(CDS_1.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(CDS_1.FieldByName('OrderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatGYList.TBDelClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from Tat_Plan_Card A'); + sql.Add(' where isnull(Status,''0'') <>''-1'' and A.SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + ''''); + sql.Add(' and A.MainId=''' + Trim(CDS_1.fieldbyname('MainId').AsString) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('Ѳݲɾ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if DelData() then + begin + CDS_1.Delete; + end; +end; + +function TfrmTatGYList.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + ''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Tat_Plan_Sub where MainId=''' + Trim(CDS_1.fieldbyname('MainId').AsString) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_Plan_Main where MainId=''' + Trim(CDS_1.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; + end; + if Trim(CDS_1.fieldbyname('SubId').AsString) = '' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_Plan_Main where MainId=''' + Trim(CDS_1.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmTatGYList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('', cxGrid1); +end; + +procedure TfrmTatGYList.TBPrintClick(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + WSql := Trim(CDS_1.fieldbyname('MainId').AsString); + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TatPlanPrint2'; + FFiltration1 := WSql; + FFiltration2 := WSql; + FFiltration3 := WSql; + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmTatGYList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTatGYList.TBAddClick(Sender: TObject); +begin + + try + frmTatGYInPut := TfrmTatGYInPut.Create(Application); + with frmTatGYInPut do + begin + PState := 0; + FMainId := ''; + FSubId := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTatGYInPut.Free; + end; +end; + +procedure TfrmTatGYList.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatGYList.ConNoPropertiesChange(Sender: TObject); +begin + TBRafresh.Click; + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatGYList.FormShow(Sender: TObject); +begin + inherited; + canshu1 := DParameters1; + InitForm(); + +end; + +procedure TfrmTatGYList.conPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Length(Trim(ConNo.Text)) < 4 then + Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + //sql.Add('exec Tat_Plan_QryList :MainId,:WSql'); + // Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''' + // +' and ConType='''' '; + sql.Add('select * from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId'); + sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + ''''); + + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmTatGYList.TBViewClick(Sender: TObject); +begin + try + frmTatGYInPut := TfrmTatGYInPut.Create(Application); + with frmTatGYInPut do + begin + PState := 1; + FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString); + FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString); + FConNo := Trim(Self.CDS_1.fieldbyname('ConNo').AsString); + TBSave.Visible := False; + ScrollBox1.Enabled := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatGYInPut.Free; + end; +end; + +procedure TfrmTatGYList.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid('ƻ', Tv1, ''); +end; + +procedure TfrmTatGYList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A '); + sql.Add(' where TFType =''HX'' and A.FileName =' + quotedstr(trim(CDS_1.fieldbyname('FileName').AsString))); +// ShowMessage(sql.text); + open; + end; +end; + +procedure TfrmTatGYList.btnChkClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_Plan_Main SET status=''22'',chker=''' + trim(DName) + ''',Chktime=getdate() '); + sql.Add('where mainID=' + quotedstr(trim(CDS_1.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(CDS_1.FieldByName('OrderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatGYList.btnReChkClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + if cxTabControl1.TabIndex <> 1 then + begin + Application.MessageBox('ֻ״̬½иò!', 'ʾ', 0); + Exit; + end; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_Plan_Main SET status=''11'',chker=null,Chktime=null '); + sql.Add('where mainID=' + quotedstr(trim(CDS_1.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(CDS_1.FieldByName('OrderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + TBRafresh.Click; + except + application.MessageBox('ƻʼʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatGYList.TBCopyClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatGYInPut := TfrmTatGYInPut.Create(Application); + with frmTatGYInPut do + begin + PState := 1; + FCopyInt := 1; + FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString); + FConNo := Trim(Self.CDS_1.fieldbyname('ConNo').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatGYInPut.Free; + end; +end; + +procedure TfrmTatGYList.OrdTypeChange(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmTatGYList.Picture4DblClick(Sender: TObject); +var + IdFTP1: TIdFTP; + FPath, FFName: string; + FInt: integer; + mfileSize: Integer; + mCreationTime: TdateTime; + mWriteTime: TdateTime; +begin + try + IdFTP1 := TIdFTP.Create(self); + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + IdFTP1.Free; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath := 'D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName := Trim(CDS_1.fieldbyname('FileName').AsString); + FFName := FPath + FFName; + if FileExists(FFName) then + begin + FInt := 1; + GetFileInfo(FFName, mfileSize, mCreationTime, mWriteTime); + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File A '); + SQL.Add(' where FileName=''' + Trim(CDS_1.fieldbyname('FileName').AsString) + ''''); + SQL.Add(' and FileType=''HX'' '); + SQL.Add(' and TFDate>''' + FormatDateTime('yyyy-MM-dd hh:nn:ss', mWriteTime) + ''''); +// ShowMessage(SQL.Text); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + if FileExists(FFName) then + DeleteFile(FFName); + FInt := 0; + end; + + end; + if FInt <> 1 then + IdFTP1.Get(UserDataFlag + 'HX\' + CDS_1.fieldbyname('FileName').AsString, pchar(FFName)); + + if IdFTP1.Connected then + begin + IdFTP1.Quit; + IdFTP1.Free; + end; + ShellExecute(Handle, 'open', PChar(FFName), '', '', SW_SHOWNORMAL); + +end; + +procedure TfrmTatGYList.C_CodeKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + TBRafresh.Click(); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatGYList.BatchNoHZKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + TBRafresh.Click(); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatGYList.CustNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + TBRafresh.Click(); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatGYList.cxTabControl1Change(Sender: TObject); +begin + InitButton(); + InitGrid(); +end; + +procedure TfrmTatGYList.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + TBRafresh.Click(); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +end. + diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index d528aba..8c1f03e 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -72,7 +72,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Ctl3D = False ParentCtl3D = False TabOrder = 1 - ExplicitTop = 24 object Label2: TLabel Left = 787 Top = 9 @@ -289,7 +288,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object OrdPieceLen: TcxTextEdit Tag = 2 Left = 618 - Top = 110 + Top = 112 Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged TabOrder = 2 OnKeyPress = ConNoKeyPress @@ -298,7 +297,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object OrdPiece: TcxTextEdit Tag = 2 Left = 334 - Top = 110 + Top = 112 Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged TabOrder = 3 OnKeyPress = ConNoKeyPress @@ -307,7 +306,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object OrdQty: TcxTextEdit Tag = 2 Left = 893 - Top = 110 + Top = 112 TabOrder = 1 OnKeyPress = ConNoKeyPress Width = 150 @@ -369,8 +368,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object C_FinishLatitudeDensity: TcxTextEdit Tag = 2 Left = 83 - Top = 114 + Top = 112 ParentColor = True + Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged TabOrder = 9 Width = 150 end @@ -403,6 +403,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 83 Top = 148 ParentColor = True + Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged TabOrder = 13 Width = 150 end @@ -411,6 +412,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 618 Top = 148 ParentColor = True + Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged TabOrder = 14 Width = 150 end @@ -598,7 +600,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 445 Align = alClient TabOrder = 2 - Properties.ActivePage = cxTabSheet1 + Properties.ActivePage = cxTabSheet2 Properties.CustomButtons.Buttons = <> Properties.Style = 9 ClientRectBottom = 445 @@ -674,6 +676,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 415 Align = alClient TabOrder = 1 + ExplicitLeft = 2 + ExplicitTop = 0 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -684,7 +688,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut item Format = 'C_Code' end> - DataController.Summary.FooterSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = TV1Column8 + end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True @@ -711,6 +719,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Kind = bkEllipsis end> Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 131 end @@ -731,6 +740,68 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Options.Sorting = False Width = 138 end + object TV1Column6: TcxGridDBColumn + Caption = #29702#35770'D'#25968 + DataBinding.FieldName = 'TestDenier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Column1: TcxGridDBColumn + Caption = #26681#25968 + DataBinding.FieldName = 'YarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object TV1Column2: TcxGridDBColumn + Caption = #24490#29615#26681#25968 + DataBinding.FieldName = 'CycleYarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 96 + end + object TV1Column8: TcxGridDBColumn + Caption = #31859'/'#24212#29992#37327 + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 114 + end + object TV1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object TV1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Column13: TcxGridDBColumn + Caption = #30424#22836#21495 + DataBinding.FieldName = 'PTNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 + end object cxGridDBColumn5: TcxGridDBColumn Caption = #32433#32447#21697#29260 DataBinding.FieldName = 'Brand' @@ -740,26 +811,19 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Options.Sorting = False Width = 111 end - object cxGridDBColumn8: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' + object TV1Column11: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 99 + Width = 80 end - object TV1Column1: TcxGridDBColumn - Caption = #26681#25968 - DataBinding.FieldName = 'YarnQty' + object TV1Column12: TcxGridDBColumn + Caption = #25467#24230 + DataBinding.FieldName = 'ND' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 60 - end - object TV1Column2: TcxGridDBColumn - Caption = #24490#29615#26681#25968 - DataBinding.FieldName = 'CycleYarnQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 96 + Width = 80 end object TV1Column3: TcxGridDBColumn Caption = #28068 @@ -782,48 +846,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut HeaderAlignmentHorz = taCenter Width = 80 end - object TV1Column10: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'SpinningMethod' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column6: TcxGridDBColumn - Caption = #23454#27979'D'#25968 - DataBinding.FieldName = 'TestDenier' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column11: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column12: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column8: TcxGridDBColumn - Caption = #31859'/'#24212#29992#37327 - DataBinding.FieldName = 'MeterQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 114 - end - object TV1Column9: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end end object cxGridLevel2: TcxGridLevel GridView = TV1 @@ -901,6 +923,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 415 Align = alClient TabOrder = 1 + ExplicitLeft = -408 + ExplicitTop = -28 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -911,7 +935,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut item Format = 'C_Code' end> - DataController.Summary.FooterSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv2Column8 + end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True @@ -938,6 +966,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Kind = bkEllipsis end> Properties.ReadOnly = True + Properties.OnButtonClick = v2Column10PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 131 end @@ -958,6 +987,68 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Options.Sorting = False Width = 138 end + object Tv2Column6: TcxGridDBColumn + Caption = #29702#35770'D'#25968 + DataBinding.FieldName = 'TestDenier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column1: TcxGridDBColumn + Caption = #26681#25968 + DataBinding.FieldName = 'YarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column2: TcxGridDBColumn + Caption = #24490#29615#26681#25968 + DataBinding.FieldName = 'CycleYarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column8: TcxGridDBColumn + Caption = #31859'/'#24212#29992#37327 + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 120 + end + object Tv2Column9: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column10: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column13: TcxGridDBColumn + Caption = #28504#36890#21495 + DataBinding.FieldName = 'PTNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 + end object v2Column2: TcxGridDBColumn Caption = #32433#32447#21697#29260 DataBinding.FieldName = 'Brand' @@ -967,23 +1058,16 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Options.Sorting = False Width = 111 end - object v2Column6: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 99 - end - object Tv2Column1: TcxGridDBColumn - Caption = #26681#25968 - DataBinding.FieldName = 'YarnQty' + object Tv2Column12: TcxGridDBColumn + Caption = #25467#24230 + DataBinding.FieldName = 'ND' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 end - object Tv2Column2: TcxGridDBColumn - Caption = #24490#29615#26681#25968 - DataBinding.FieldName = 'CycleYarnQty' + object Tv2Column11: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -1009,48 +1093,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut HeaderAlignmentHorz = taCenter Width = 80 end - object Tv2Column10: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'SpinningMethod' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column6: TcxGridDBColumn - Caption = #23454#27979'D'#25968 - DataBinding.FieldName = 'TestDenier' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column11: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column12: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column8: TcxGridDBColumn - Caption = #31859'/'#24212#29992#37327 - DataBinding.FieldName = 'MeterQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column9: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end end object cxGridLevel1: TcxGridLevel GridView = Tv2 @@ -1162,7 +1204,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 1 - ExplicitTop = 8 end end object cxTabSheet4: TcxTabSheet @@ -1245,8 +1286,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut end object DS_1: TDataSource DataSet = CDS_1 - Left = 919 - Top = 313 + Left = 860 + Top = 450 end object CDS_1: TClientDataSet Aggregates = <> @@ -1256,13 +1297,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut end object DS_2: TDataSource DataSet = CDS_2 - Left = 639 - Top = 385 + Left = 554 + Top = 405 end object DS_QZ: TDataSource DataSet = CDS_QZ - Left = 671 - Top = 385 + Left = 608 + Top = 421 end object CDS_QZ: TClientDataSet Aggregates = <> diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas index 7c570f9..0ae9257 100644 --- a/E01梭织生产计划/U_TatPlanInPut.pas +++ b/E01梭织生产计划/U_TatPlanInPut.pas @@ -133,7 +133,6 @@ type TV1Column3: TcxGridDBColumn; TV1Column4: TcxGridDBColumn; TV1Column5: TcxGridDBColumn; - TV1Column10: TcxGridDBColumn; TV1Column6: TcxGridDBColumn; TV1Column8: TcxGridDBColumn; TV1Column9: TcxGridDBColumn; @@ -150,7 +149,6 @@ type Tv2Column3: TcxGridDBColumn; Tv2Column4: TcxGridDBColumn; Tv2Column5: TcxGridDBColumn; - Tv2Column10: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn; Tv2Column8: TcxGridDBColumn; Tv2Column9: TcxGridDBColumn; @@ -178,6 +176,10 @@ type Label23: TLabel; C_Color: TcxTextEdit; QZF: TMemo; + Tv2Column10: TcxGridDBColumn; + Tv2Column13: TcxGridDBColumn; + TV1Column10: TcxGridDBColumn; + TV1Column13: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -201,11 +203,20 @@ type procedure ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton8Click(Sender: TObject); procedure OrdPiecePropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV1Column1PropertiesEditValueChanged(Sender: TObject); + procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject); + procedure C_YarnQtyPropertiesEditValueChanged(Sender: TObject); private FXS, FGridFlag: Integer; procedure InitData(); procedure Initexcel(); procedure CALCYarnQty(); + + procedure JSJS(); //㾭˿ + procedure JSWS(); //γ˿ + procedure JSKZ(); // function SaveData(): Boolean; procedure InitClothYarn(MC_Code: string); { Private declarations } @@ -251,46 +262,47 @@ begin Self.BBNO.Text := ADOQueryTemp.fieldbyname('BBNO').AsString; Self.C_Color.Text := ADOQueryTemp.fieldbyname('C_Color').AsString; - Self.QZF.Text := ADOQueryTemp.fieldbyname('QZF').AsString; - Self.CZF.Text := ADOQueryTemp.fieldbyname('CZF').AsString; - Self.CKF.Text := ADOQueryTemp.fieldbyname('CKF').AsString; - Self.Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLJ').AsString; - Self.Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PLW').AsString; - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); - sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); - Open; - end; - SCreateCDS(ADOQueryTemp, CDS_1); - SInitCDSData(ADOQueryTemp, CDS_1); - ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']); - - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); - sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); - Open; - end; - SCreateCDS(ADOQueryTemp, CDS_2); - SInitCDSData(ADOQueryTemp, CDS_2); - ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']); - - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); - sql.Add(' where B.C_Code=''' + Trim(MC_Code) + ''''); - Open; - end; - SCreateCDS(ADOQueryTemp, CDS_QZ); - SInitCDSData(ADOQueryTemp, CDS_QZ); - ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']); +// Self.QZF.Text := ADOQueryTemp.fieldbyname('QZF').AsString; +// Self.CZF.Text := ADOQueryTemp.fieldbyname('CZF').AsString; +// Self.CKF.Text := ADOQueryTemp.fieldbyname('CKF').AsString; +// Self.Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLJ').AsString; +// Self.Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PLW').AsString; +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); +// sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_1); +// SInitCDSData(ADOQueryTemp, CDS_1); +// ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']); +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); +// sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_2); +// SInitCDSData(ADOQueryTemp, CDS_2); +// ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']); +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); +// sql.Add(' where B.C_Code=''' + Trim(MC_Code) + ''''); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_QZ); +// SInitCDSData(ADOQueryTemp, CDS_QZ); +// ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']); end; @@ -400,7 +412,58 @@ begin SCreateCDS(ADOQueryTemp, CDS_QZ); SInitCDSData(ADOQueryTemp, CDS_QZ); /////////////////ˢ۹յϢ///////////////////////// - /// + if FMainId = '' then + begin + with CDS_1 do + begin + Append; + FieldByName('RowNo').Value := 'A'; + Post; + Append; + FieldByName('RowNo').Value := 'B'; + Post; + Append; + FieldByName('RowNo').Value := 'C'; + Post; + Append; + FieldByName('RowNo').Value := 'D'; + Post; + Append; + FieldByName('RowNo').Value := 'E'; + Post; + Append; + FieldByName('RowNo').Value := 'F'; + Post; + Append; + FieldByName('RowNo').Value := 'G'; + Post; + end; + with CDS_2 do + begin + Append; + FieldByName('RowNo').Value := 'A'; + Post; + Append; + FieldByName('RowNo').Value := 'B'; + Post; + Append; + FieldByName('RowNo').Value := 'C'; + Post; + Append; + FieldByName('RowNo').Value := 'D'; + Post; + Append; + FieldByName('RowNo').Value := 'E'; + Post; + Append; + FieldByName('RowNo').Value := 'F'; + Post; + Append; + FieldByName('RowNo').Value := 'G'; + Post; + end; + + end; end; procedure TfrmTatPlanInPut.Initexcel(); @@ -445,8 +508,8 @@ end; procedure TfrmTatPlanInPut.FormShow(Sender: TObject); begin - ReadCxGrid('ƻ¼1', Tv1, ''); - ReadCxGrid('ƻ¼2', Tv2, ''); + ReadCxGrid('ƻ¼11', Tv1, ''); + ReadCxGrid('ƻ¼22', Tv2, ''); InitData(); // Initexcel(); end; @@ -825,8 +888,8 @@ end; procedure TfrmTatPlanInPut.ToolButton8Click(Sender: TObject); begin - WriteCxGrid('ƻ¼1', Tv1, ''); - WriteCxGrid('ƻ¼2', Tv2, ''); + WriteCxGrid('ƻ¼11', Tv1, ''); + WriteCxGrid('ƻ¼22', Tv2, ''); end; procedure TfrmTatPlanInPut.ToolButton9Click(Sender: TObject); @@ -867,6 +930,124 @@ begin CDS_QZ.EnableControls; end; +procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, TW: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0); //ط + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + + TW := strtofloatdef(C_YarnQty.text, 0); //ͷ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + JSKZ(); +end; + +procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_2 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0); //ط + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_2 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); + Post; + end; + end; + JSKZ(); +end; + procedure TfrmTatPlanInPut.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -893,6 +1074,199 @@ begin end; end; +procedure TfrmTatPlanInPut.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + if ShowModal = 1 then + begin + with self.CDS_1 do + begin + Edit; + + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value; + + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; + + FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; + FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; + + FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; + FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; + FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + + Post; + end; + + JSJS(); + JSWS(); + JSKZ(); + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +procedure TfrmTatPlanInPut.JSJS(); +var + GS, ZGS, MF, DS, WM, TW: double; +begin + if CDS_1.IsEmpty then + exit; + with CDS_1 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_1 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0); //ط + + TW := strtofloatdef(C_YarnQty.text, 0); //ͷ + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmTatPlanInPut.JSWS(); +var + GS, ZGS, MF, DS, WM: double; +begin + if CDS_2.IsEmpty then + exit; + with CDS_2 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_2 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0) + 15; //ط + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_2 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmTatPlanInPut.JSKZ(); +var + SumJS, SumWS: double; +begin + C_GramWeight.SetFocus; + + if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then + begin + SumJS := Tv1.DataController.Summary.FooterSummaryValues[0]; + end + else + begin + SumJS := 0; + end; + + if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then + begin + SumWS := Tv2.DataController.Summary.FooterSummaryValues[0]; + end + else + begin + SumWS := 0; + end; + + C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); +end; + procedure TfrmTatPlanInPut.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -920,6 +1294,42 @@ begin end; end; +procedure TfrmTatPlanInPut.v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + if ShowModal = 1 then + begin + with self.CDS_2 do + begin + Edit; + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value; + + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; + + FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; + FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; + + FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; + FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; + FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + Post; + end; + + JSJS(); + JSWS(); + JSKZ(); + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + procedure TfrmTatPlanInPut.v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -1020,6 +1430,13 @@ begin end; end; +procedure TfrmTatPlanInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject); +begin + JSJS(); + JSWS(); + JSKZ(); +end; + procedure TfrmTatPlanInPut.Edit1KeyPress(Sender: TObject; var Key: Char); var i, j: Integer; diff --git a/E01梭织生产计划/U_TatPlanList.pas b/E01梭织生产计划/U_TatPlanList.pas index 9186b61..18bf577 100644 --- a/E01梭织生产计划/U_TatPlanList.pas +++ b/E01梭织生产计划/U_TatPlanList.pas @@ -255,6 +255,10 @@ begin sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); end; + 3: + begin + sql.Add('and isnull(Status,''0'') not in (''11'',''22'') '); + end; end; sql.add('order by A.FILLTIME DESC'); diff --git a/E02梭织经轴仓库/U_TatWBPlan.dfm b/E02梭织经轴仓库/U_TatWBPlan.dfm index 230280e..08d0902 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.dfm +++ b/E02梭织经轴仓库/U_TatWBPlan.dfm @@ -233,7 +233,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan Height = 541 Align = alLeft TabOrder = 2 - ExplicitTop = 117 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E02梭织经轴仓库/U_TatWBPlan.pas b/E02梭织经轴仓库/U_TatWBPlan.pas index 0d2e2fd..e68ece3 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.pas +++ b/E02梭织经轴仓库/U_TatWBPlan.pas @@ -12,7 +12,7 @@ uses RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer, - cxProgressBar; + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; type TfrmTatWBPlan = class(TfrmBaseList) @@ -439,7 +439,7 @@ begin Close; sql.Clear; SQL.Add('select A.*'); - sql.Add('from Tat_Plan_Card A'); + sql.Add('from Tat_WB_Plan A'); sql.Add(' where A.TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + ''''); Open; end;