diff --git a/D01针织生产计划/KnitPlan.dproj.local b/D01针织生产计划/KnitPlan.dproj.local index 1294820..cfc6834 100644 --- a/D01针织生产计划/KnitPlan.dproj.local +++ b/D01针织生产计划/KnitPlan.dproj.local @@ -1,7 +1,7 @@  - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.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 @@ -10,7 +10,7 @@ 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas 1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj @@ -27,11 +27,11 @@ 1899-12-30 00:00:00.000.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas 1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas 1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas 1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas 1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas @@ -40,17 +40,17 @@ 1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.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.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas 1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm diff --git a/D01针织生产计划/U_KnitPlanImport.dfm b/D01针织生产计划/U_KnitPlanImport.dfm new file mode 100644 index 0000000..75fdc4a --- /dev/null +++ b/D01针织生产计划/U_KnitPlanImport.dfm @@ -0,0 +1,478 @@ +inherited frmknitplanImport: TfrmknitplanImport + Left = 189 + Top = 138 + Caption = #26679#21697#23548#20837 + ClientHeight = 562 + ClientWidth = 1484 + Color = clWhite + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Position = poMainFormCenter + ExplicitWidth = 1500 + ExplicitHeight = 601 + PixelsPerInch = 107 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1484 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_KnitPlan.cxImageList_bar + Images = DataLink_KnitPlan.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton5: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36873#25321#25991#20214 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton3: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 14 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #20445#23384#25968#25454 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 348 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 451 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid [1] + Left = 0 + Top = 30 + Width = 1484 + Height = 532 + Align = alClient + TabOrder = 1 + ExplicitTop = 36 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column6 + 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 + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column6 + 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 + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_KnitPlan.Default + object cxgrdbclmnTv1Column21: TcxGridDBColumn + Tag = 4 + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object Tv1Column15: TcxGridDBColumn + Caption = #35745#21010#31867#22411 + DataBinding.FieldName = 'OrdType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 71 + 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 + Styles.Header = DataLink_KnitPlan.Default + Width = 82 + end + object v1OrderNo: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 100 + end + object v1Column31: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 101 + end + object Tv1Column16: TcxGridDBColumn + Caption = #23458#25143#35746#21333#21495 + DataBinding.FieldName = 'khconno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxgrdbclmnTv1Column15: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxgrdbclmnTv1Column16: TcxGridDBColumn + Tag = 1 + Caption = #20869#37096#22411#21495 + DataBinding.FieldName = 'C_I_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Tag = 1 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 92 + end + object v1Column2: TcxGridDBColumn + Tag = 1 + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 73 + end + object v1PRTMF: TcxGridDBColumn + Tag = 1 + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 69 + end + object Tv1Column7: TcxGridDBColumn + Tag = 1 + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column11: TcxGridDBColumn + Tag = 1 + Caption = #38754#32433 + DataBinding.FieldName = 'C_Yarn' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column1: TcxGridDBColumn + Tag = 1 + Caption = #22841#23618 + DataBinding.FieldName = 'C_jiaceng' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 82 + end + object Tv1Column6: TcxGridDBColumn + Tag = 1 + Caption = #24213#32433 + DataBinding.FieldName = 'C_DYARN' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column20: TcxGridDBColumn + Tag = 1 + Caption = #20027#35201#32433#32447 + DataBinding.FieldName = 'C_MainYarn' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1Column3: TcxGridDBColumn + Tag = 1 + Caption = #21518#22788#29702 + DataBinding.FieldName = 'C_Deal' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default + Width = 67 + end + object v1Column6: TcxGridDBColumn + Tag = 1 + Caption = #24635#21305#25968 + DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 59 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 1 + Caption = #24635#25968#37327 + DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 92 + end + object Tv1Column5: TcxGridDBColumn + Tag = 1 + Caption = #21333#20301 + DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Tag = 2 + Caption = #30382#37325 + DataBinding.FieldName = 'RuleBeforeTare' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column10: TcxGridDBColumn + Tag = 2 + Caption = #21253#26631#31614#21517#31216 + DataBinding.FieldName = 'LabPackage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1PRTKZ: TcxGridDBColumn + Tag = 1 + Caption = #29289#26009#21495 + DataBinding.FieldName = 'C_Material_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 76 + end + object v1Column7: TcxGridDBColumn + Tag = 1 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'C_Material' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 72 + end + object cxgrdbclmnTv1Column17: TcxGridDBColumn + Caption = #21097#20313#20132#26399 + DataBinding.FieldName = 'IFJQ' + DataBinding.IsNullValueType = True + Visible = False + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_KnitPlan.ADOLink + Left = 121 + Top = 161 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_KnitPlan.ADOLink + Left = 249 + Top = 161 + end + inherited ImageList_new32: TImageList + Left = 528 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_KnitPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 853 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_KnitPlan.ADOLink + Parameters = <> + Left = 941 + Top = 209 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_KnitPlan.ADOLink + Parameters = <> + Left = 741 + Top = 209 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 648 + Top = 328 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 795 + Top = 323 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 720 + Top = 328 + end + object cxStyleRepository1: TcxStyleRepository + Left = 600 + Top = 200 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svTextColor] + TextColor = clRed + end + end + object OpenDialog1: TOpenDialog + Left = 226 + Top = 290 + end + object CDS_LM: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 329 + end +end diff --git a/D01针织生产计划/U_KnitPlanImport.pas b/D01针织生产计划/U_KnitPlanImport.pas new file mode 100644 index 0000000..ff77940 --- /dev/null +++ b/D01针织生产计划/U_KnitPlanImport.pas @@ -0,0 +1,371 @@ +unit U_KnitPlanImport; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, ComObj, + U_BaseList, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, + dxSkinsDefaultPainters, dxSkinsCore; + +type + TfrmknitplanImport = class(TfrmBaseHelp) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + GPM_1: TcxGridPopupMenu; + DS_1: TDataSource; + CDS_1: TClientDataSet; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + CDS_LM: TClientDataSet; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxgrdbclmnTv1Column21: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + cxgrdbclmnTv1Column15: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + cxgrdbclmnTv1Column16: TcxGridDBColumn; + cxgrdbclmnTv1Column17: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + FCTID: string; + end; + +var + frmknitplanImport: TfrmknitplanImport; + +implementation + +uses + U_DataLink, U_RTFun; + +{$R *.dfm} + +procedure TfrmknitplanImport.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select * from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId inner join Trade_Cloth_Inspect_Rule C on A.Mainid=C.RuleID where 2= 1 '); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmknitplanImport.FormDestroy(Sender: TObject); +begin + inherited; + + frmKnitPlanImport := nil; +end; + +procedure TfrmknitplanImport.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := cafree; + +end; + +procedure TfrmknitplanImport.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmknitplanImport.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(self.Caption, Tv1, 'Ʒ'); + with CDS_LM do + begin + FieldDefs.Clear; + FieldDefs.Add('LXH', ftInteger, 0); + FieldDefs.Add('lCode', ftString, 40); + FieldDefs.Add('LName', ftString, 40); + close; + CreateDataSet; + end; + InitGrid(); +end; + +procedure TfrmknitplanImport.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmknitplanImport.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(self.Caption, Tv1, 'Ʒ'); +end; + +procedure TfrmknitplanImport.ToolButton2Click(Sender: TObject); +var + maxno: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(CDS_1.FieldByName('mainid').AsString) = '' then + begin + if CDS_1.FieldByName('OrdType').AsString = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'DH', 'knit_Plan_Main', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end; + if CDS_1.FieldByName('OrdType').AsString = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'SY', 'knit_Plan_Main', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end; + if CDS_1.FieldByName('OrdType').AsString = 'ⷢ' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'KM', 'knit_Plan_Main', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end; + + end + else + begin + + end; + +////////////////////////// ////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from knit_Plan_Main where MainId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + + Append; + + FieldByName('MainId').Value := Trim(maxno); + FieldByName('orderno').Value := Trim(maxno); + FieldByName('Filler').Value := Trim(DName); + + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_main', 0); + Post; + end; +////////////////////////// ////////////////////////// +/// +////////////////////////// ӱ ////////////////////////// + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from knit_Plan_Sub where '); + sql.Add(' SubId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + + Append; + + FieldByName('MainId').Value := Trim(maxno); + FieldByName('SubId').Value := Trim(maxno); + + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_sub', 1); + Post; + end; +////////////////////////// ӱ ////////////////////////// +/// +////////////////////////// ǩ ////////////////////////// + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Trade_Cloth_Inspect_Rule where '); + sql.Add(' RuleID=''' + Trim(maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + + Append; + FieldByName('Filler').Value := Trim(DName); + + FieldByName('RuleID').Value := Trim(maxno); + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Cloth_Inspect_Rule', 2); + Post; + end; +////////////////////////// ǩ ////////////////////////// +/// + + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ', 'ʾ', 0); + tbclose.Click(); + except + + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end; +end; + +procedure TfrmknitplanImport.ToolButton3Click(Sender: TObject); +begin + CDS_1.Delete; +end; + +procedure TfrmknitplanImport.ToolButton5Click(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, LX, ExcelRowCount: integer; + maxId, FCPID, FCPName, t1, t2, t3, FFID: string; +begin + + try + excelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter := '*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + excelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('EXCEL', 'Ϣ', MB_ICONERROR); + exit; + end; + + CDS_LM.EmptyDataSet; + + for j := 0 to Tv1.ColumnCount - 1 do + begin + with CDS_LM do + begin + Append; + FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName); + FieldByName('LName').Value := trim(Tv1.Columns[j].Caption); + Post; + end; + end; + + try + for i := 1 to 50 do + begin + if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then + continue; + if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then + begin + with CDS_LM do + begin + Edit; + FieldByName('LXH').Value := i; + Post; + end; + end; + end; + except + application.MessageBox('', 'Ϣ', MB_ICONERROR); + exit; + end; + + try + for i := 2 to ExcelRowCount do + begin + with CDS_1 do + begin + Append; + CDS_LM.First; + while not CDS_LM.Eof do + begin + if CDS_LM.FieldByName('LXH').AsInteger > 0 then + CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; + CDS_LM.Next; + end; + Post; + end; + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + application.MessageBox('д쳣жϣ', 'Ϣ', MB_ICONERROR); + exit; + end; + +end; + +end. + diff --git a/D01针织生产计划/U_KnitPlanInPut.dfm b/D01针织生产计划/U_KnitPlanInPut.dfm index 419dc90..8d91d9d 100644 --- a/D01针织生产计划/U_KnitPlanInPut.dfm +++ b/D01针织生产计划/U_KnitPlanInPut.dfm @@ -2,7 +2,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Left = 212 Top = 14 Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837 - ClientHeight = 581 + ClientHeight = 634 ClientWidth = 1363 Color = clWhite Font.Charset = GB2312_CHARSET @@ -10,7 +10,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Position = poScreenCenter ExplicitWidth = 1379 - ExplicitHeight = 620 + ExplicitHeight = 673 PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar [0] @@ -84,6 +84,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentCtl3D = False ParentFont = False TabOrder = 1 + ExplicitTop = 36 object Label1: TLabel Left = 11 Top = 102 @@ -152,7 +153,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut object Label22: TLabel Left = 851 Top = 152 - Width = 102 + Width = 110 Height = 21 Caption = #25104#21697#20811#37325#65306 Font.Charset = GB2312_CHARSET @@ -362,7 +363,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut object Label6: TLabel Left = 851 Top = 240 - Width = 114 + Width = 110 Height = 21 Caption = #33853#24067#36716#25968#65306 Font.Charset = GB2312_CHARSET @@ -588,7 +589,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut BevelInner = bvNone Date = 40916.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.670856296288548100 + Time = 0.670856296288548000 ShowCheckbox = True Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -606,7 +607,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut BevelInner = bvNone Date = 40916.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.670856296288548100 + Time = 0.670856296288548000 ShowCheckbox = True Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -1217,8 +1218,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Align = alClient TabOrder = 2 Visible = False - ExplicitTop = 576 - ExplicitHeight = 82 object cxPageControl1: TcxPageControl Left = 1 Top = 1 @@ -1238,7 +1237,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ExplicitHeight = 80 ClientRectBottom = 3 ClientRectRight = 1361 ClientRectTop = 3 @@ -1247,8 +1245,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Color = clWhite ImageIndex = 0 ParentColor = False - ExplicitTop = 32 - ExplicitHeight = 48 object cxGrid2: TcxGrid Left = 0 Top = 38 @@ -1262,7 +1258,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Style = [] ParentFont = False TabOrder = 0 - ExplicitHeight = 10 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1503,8 +1498,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut object cxTabSheet2: TcxTabSheet Caption = #25490#38024#19977#35282 ImageIndex = 1 - ExplicitTop = 32 - ExplicitHeight = 48 object Panel1: TPanel Left = 0 Top = 183 @@ -3954,7 +3947,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_KnitPlan.ADOLink - Left = 732 + Left = 733 Top = 552 end inherited ImageList_new32: TImageList diff --git a/D01针织生产计划/U_KnitPlanList.dfm b/D01针织生产计划/U_KnitPlanList.dfm index 31e26f9..10d1b63 100644 --- a/D01针织生产计划/U_KnitPlanList.dfm +++ b/D01针织生产计划/U_KnitPlanList.dfm @@ -72,16 +72,24 @@ inherited frmKnitPlanList: TfrmKnitPlanList ImageIndex = 3 OnClick = TBEditClick end - object ToolButton8: TToolButton + object ToolButton11: TToolButton Left = 355 Top = 0 AutoSize = True + Caption = #23548#20837 + ImageIndex = 22 + OnClick = ToolButton11Click + end + object ToolButton8: TToolButton + Left = 426 + Top = 0 + AutoSize = True Caption = #25171#21360#35745#21010#21333 ImageIndex = 21 OnClick = ToolButton8Click end object TBPrint: TToolButton - Left = 462 + Left = 533 Top = 0 AutoSize = True Caption = #25171#21360#35745#21010#21333 @@ -90,7 +98,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = TBPrintClick end object DYPrint: TToolButton - Left = 569 + Left = 640 Top = 0 AutoSize = True Caption = #25171#21360#25171#26679#21333 @@ -98,7 +106,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = DYPrintClick end object TBView: TToolButton - Left = 676 + Left = 747 Top = 0 AutoSize = True Caption = #26597#30475 @@ -106,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = TBViewClick end object TBDel: TToolButton - Left = 747 + Left = 818 Top = 0 AutoSize = True Caption = #21024#38500 @@ -114,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = TBDelClick end object TBSCAP: TToolButton - Left = 818 + Left = 889 Top = 0 AutoSize = True Caption = #29983#20135#23433#25490 @@ -122,7 +130,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = TBSCAPClick end object ToolButton2: TToolButton - Left = 913 + Left = 984 Top = 0 AutoSize = True Caption = #25171#21367#35774#32622 @@ -130,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = ToolButton2Click end object btn1: TToolButton - Left = 1008 + Left = 1079 Top = 0 AutoSize = True Caption = #25171#21360#27969#31243#21345 @@ -413,6 +421,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Height = 374 Align = alClient TabOrder = 2 + ExplicitTop = 165 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/D01针织生产计划/U_KnitPlanList.pas b/D01针织生产计划/U_KnitPlanList.pas index d8f356c..df1b6e0 100644 --- a/D01针织生产计划/U_KnitPlanList.pas +++ b/D01针织生产计划/U_KnitPlanList.pas @@ -158,6 +158,7 @@ type cxgrdbclmnTv1Column20: TcxGridDBColumn; cxgrdbclmnTv1Column21: TcxGridDBColumn; DYPrint: TToolButton; + ToolButton11: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); @@ -202,6 +203,7 @@ type procedure ToolButton10Click(Sender: TObject); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure DYPrintClick(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); private FInt, PFInt: Integer; procedure InitGrid(); @@ -223,7 +225,7 @@ implementation uses U_DataLink, U_KnitPlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_KnitCardInPut, - U_TradeInspSet, U_LCKInput; + U_TradeInspSet, U_LCKInput, U_KnitPlanImport; {$R *.dfm} @@ -903,6 +905,23 @@ begin end; +procedure TfrmKnitPlanList.ToolButton11Click(Sender: TObject); +begin + try + frmknitplanImport := TfrmknitplanImport.Create(Application); + with frmknitplanImport do + begin + + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmknitplanImport.Free; + end; +end; + procedure TfrmKnitPlanList.ToolButton1Click(Sender: TObject); begin WriteCxGrid('ƻ1', Tv1, '');