diff --git a/E02梭织经轴仓库/ProjectGroup1.groupproj.local b/E02梭织经轴仓库/ProjectGroup1.groupproj.local index 9149e9d..61111db 100644 --- a/E02梭织经轴仓库/ProjectGroup1.groupproj.local +++ b/E02梭织经轴仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/E02梭织经轴仓库/U_GetDllForm.pas b/E02梭织经轴仓库/U_GetDllForm.pas index 20ae3c7..7164bd1 100644 --- a/E02梭织经轴仓库/U_GetDllForm.pas +++ b/E02梭织经轴仓库/U_GetDllForm.pas @@ -20,7 +20,7 @@ uses U_EmptyBeamInList, U_EmptyBeamOutList, U_EmptyBeamStkList, U_TatWBOutputList, U_TatWBOutputList1, U_WarpBeamQianList, U_TatWBOutputList_CZ, U_TatWBOutputList_SZ, U_TatWBOutputList_JT, U_TatWBOutputList_XB, - U_TatWBOutputList_XZ; + U_TatWBOutputList_XZ, U_TatOutputList1, U_TatWBPlan; ///////////////////////////////////////////////////////////////// @@ -80,7 +80,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:='Ȩ'; + Parameters1 := ''; Parameters2 := ''; Parameters2 := ''; end @@ -131,6 +131,30 @@ begin //ģ鴰 case FormID of + 511: //ɴƻ + begin + with TfrmTatWBPlan.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; + + 521: //ɴ + begin + with TfrmTatOutputList1.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 TfrmWarpBeamInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/E02梭织经轴仓库/U_TatOutputList1.dfm b/E02梭织经轴仓库/U_TatOutputList1.dfm new file mode 100644 index 0000000..7e507ff --- /dev/null +++ b/E02梭织经轴仓库/U_TatOutputList1.dfm @@ -0,0 +1,522 @@ +inherited frmTatOutputList1: TfrmTatOutputList1 + Caption = #27974#32433#36710#38388#20135#37327#31649#29702 + ClientHeight = 582 + ClientWidth = 1473 + WindowState = wsMaximized + ExplicitWidth = 1489 + ExplicitHeight = 621 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1473 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 97 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + OnClick = TBFindClick + end + object TBdel: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBdelClick + end + object ToolButton2: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20135#37327#24037#36164 + ImageIndex = 3 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + Visible = False + end + object TBExport: TToolButton + Left = 379 + Top = 0 + AutoSize = True + Caption = #23548#20986'Excel' + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 480 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 575 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1473 + Height = 43 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label3: TLabel + Left = 448 + Top = 13 + Width = 24 + Height = 12 + Caption = #21345#21495 + end + object Label1: TLabel + Left = 24 + Top = 13 + Width = 48 + Height = 12 + Caption = #21047#21345#26085#26399 + end + object Label2: TLabel + Left = 246 + Top = 13 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label13: TLabel + Left = 288 + Top = 128 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label17: TLabel + Left = 440 + Top = 128 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object Label7: TLabel + Left = 604 + Top = 124 + Width = 36 + Height = 12 + Caption = #33457#22411#21495 + end + object Label4: TLabel + Left = 624 + Top = 13 + Width = 24 + Height = 12 + Caption = #24037#24207 + end + object pcid: TEdit + Tag = 2 + Left = 478 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 0 + OnChange = pcidChange + end + object BegDate: TDateTimePicker + Left = 73 + Top = 9 + Width = 90 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 255 + Top = 9 + Width = 90 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object customerNoName: TEdit + Tag = 2 + Left = 314 + Top = 124 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = pcidChange + end + object ywy: TEdit + Tag = 2 + Left = 478 + Top = 124 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = pcidChange + end + object lbHx: TEdit + Tag = 2 + Left = 642 + Top = 120 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = pcidChange + end + object begtime: TDateTimePicker + Left = 157 + Top = 9 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 6 + end + object endTime: TDateTimePicker + Left = 339 + Top = 9 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 7 + end + object GlideName: TEdit + Tag = 2 + Left = 654 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = pcidChange + end + end + object cxGrid2: TcxGrid [2] + Left = 0 + Top = 81 + Width = 1473 + Height = 501 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Format = #20849' 0 '#34892 + Kind = skCount + Column = Tv1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 45 + end + object Tv1Column12: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'GOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object Tv1Column5: TcxGridDBColumn + Caption = #21345#21495 + DataBinding.FieldName = 'pcid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column6: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'GlideName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object Tv1Column8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object Tv1Column15: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column18: TcxGridDBColumn + Caption = #21592#24037 + DataBinding.FieldName = 'StaffName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column10: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column11: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 106 + end + object Tv1Column1: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'MachineNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object Tv1Column2: TcxGridDBColumn + Caption = #32463#35268#26684 + DataBinding.FieldName = 'WB_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #22836#32441 + DataBinding.FieldName = 'WB_YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column4: TcxGridDBColumn + Caption = #32433#21517 + DataBinding.FieldName = 'WB_YarnName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column7: TcxGridDBColumn + Caption = #32463#20135#21697#21517 + DataBinding.FieldName = 'WB_ClothName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column9: TcxGridDBColumn + Caption = #32467#26463#20154 + DataBinding.FieldName = 'Ender' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object Tv1Column13: TcxGridDBColumn + Caption = #32467#26463#26102#38388 + DataBinding.FieldName = 'EndTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object Tv1Column16: TcxGridDBColumn + Caption = #29992#26102'('#20998')' + DataBinding.FieldName = 'JGSJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object Tv1Column17: TcxGridDBColumn + Caption = #20135#37327#24037#36164 + DataBinding.FieldName = 'OutMoney' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object MovePanel2: TMovePanel [3] + Left = 351 + Top = 244 + Width = 289 + Height = 49 + BevelInner = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 249 + Top = 168 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 137 + Top = 161 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 804 + Top = 288 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 852 + Top = 280 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 764 + Top = 288 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 896 + Top = 360 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 144 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 376 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 720 + Top = 136 + ReportData = {} + end + object PopupMenu1: TPopupMenu + Left = 544 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/E02梭织经轴仓库/U_TatOutputList1.pas b/E02梭织经轴仓库/U_TatOutputList1.pas new file mode 100644 index 0000000..5729b66 --- /dev/null +++ b/E02梭织经轴仓库/U_TatOutputList1.pas @@ -0,0 +1,315 @@ +unit U_TatOutputList1; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common, + RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus, + dxScrollbarAnnotations; + +type + TfrmTatOutputList1 = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + pcid: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + MovePanel2: TMovePanel; + RMGridReport1: TRMGridReport; + customerNoName: TEdit; + Label13: TLabel; + ywy: TEdit; + Label17: TLabel; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + lbHx: TEdit; + Label7: TLabel; + TBdel: TToolButton; + Tv1Column15: TcxGridDBColumn; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + ToolButton1: TToolButton; + Tv1Column14: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Label4: TLabel; + GlideName: TEdit; + Tv1Column17: TcxGridDBColumn; + ToolButton2: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Tv1Column18: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure pcidChange(Sender: TObject); + procedure PRTColorChange(Sender: TObject); + procedure TBdelClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + private + FLeft, FTop: Integer; + procedure InitGrid(); + { Private declarations } + public + fsyrName, canshu1: string; + { Public declarations } + end; + +var + frmTatOutputList1: TfrmTatOutputList1; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp; + +{$R *.dfm} + +procedure TfrmTatOutputList1.FormDestroy(Sender: TObject); +begin + inherited; + frmTatOutputList1 := nil; +end; + +procedure TfrmTatOutputList1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatOutputList1.FormCreate(Sender: TObject); +begin + inherited; + + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 30; + fsyrName := trim(DdataBase); + canshu1 := trim(DParameters1); +end; + +procedure TfrmTatOutputList1.InitGrid(); +var + Msql, mbegdate, menddate: string; +begin + Msql := ''; + if SGetFilters(Panel1, 1, 2) <> '' then + Msql := Msql + ' and ' + SGetFilters(Panel1, 1, 2); + mbegdate := FormatDateTime('yyyy-MM-dd', begdate.Date) + ' ' + FormatDateTime('HH:nn', begTime.Time); + menddate := FormatDateTime('yyyy-MM-dd', enddate.Date) + ' ' + FormatDateTime('HH:nn', endTime.Time); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered := False; + sql.Add('select A.* '); + sql.Add(',B.WB_Spec,B.WB_YarnQty,B.WB_YarnName,B.WB_ClothName '); + sql.Add(',JGSJ=DATEDIFF(MI, A.FillTime, A.EndTime) '); + sql.Add(' from Tat_Plan_OutPut A left join Tat_WB_Card B on A.Pcid=B.WBCID '); + sql.add('where A.GOTime>=''' + trim(mbegdate) + ''' '); + sql.Add('and A.GOTime<''' + trim(menddate) + ''' '); + + sql.Add('and GlideName in (''Ͻ'','''') '); + sql.Add(Msql); + sql.Add('order by GOTime,pcid'); + +// showmessage(sql.Text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmTatOutputList1.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, true); +end; + +procedure TfrmTatOutputList1.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmTatOutputList1.TBRafreshClick(Sender: TObject); +begin + MovePanel2.Visible := True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible := False; +end; + +procedure TfrmTatOutputList1.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(self.Caption + tv1.Name, Tv1, 'Ʒֿ'); +end; + +procedure TfrmTatOutputList1.ToolButton2Click(Sender: TObject); +var + MGOIDS: string; +begin + if CDS_Main.IsEmpty then + exit; + + if not CDS_Main.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_Main do + begin + DisableControls; + while CDS_Main.Locate('SSel', True, []) do + begin + MGOIDS := MGOIDS + Trim(CDS_Main.fieldbyname('GOID').AsString) + ','; + CDS_Main.Delete; + end; + EnableControls; + end; + try + frmOutPutHelp := TfrmOutPutHelp.Create(Application); + with frmOutPutHelp do + begin + FGOIDS := MGOIDS; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmOutPutHelp.Free; + end; +end; + +procedure TfrmTatOutputList1.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatOutputList1.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatOutputList1.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(self.Caption + tv1.Name, Tv1, 'Ʒֿ'); + canshu1 := self.fParameters1; + + initgrid(); +end; + +procedure TfrmTatOutputList1.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; +// SelExportData(tv1,ADOQueryMain,self.Caption); + TcxGridToExcel(self.Caption, cxGrid2); +end; + +procedure TfrmTatOutputList1.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + end; +end; + +procedure TfrmTatOutputList1.pcidChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTatOutputList1.PRTColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTatOutputList1.TBdelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_Plan_OutPut where GOID=''' + Trim(CDS_Main.fieldbyname('GOID').AsString) + ''''); + ExecSQL; + end; +////////////////// ½ ////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into Nap_Need_Up(UType,UDataId) values(''̨ˢ'',' + quotedstr(Trim(CDS_Main.fieldbyname('GOID').AsString)) + ') '); + execsql; + end; +////////////////// ½ ////////////////// + CDS_Main.Delete; + except + application.MessageBox('ɾʧܣ', 'ʾϢ', 0); + end; + +end; + +end. + diff --git a/E02梭织经轴仓库/U_TatWBPlan.dfm b/E02梭织经轴仓库/U_TatWBPlan.dfm new file mode 100644 index 0000000..230280e --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlan.dfm @@ -0,0 +1,828 @@ +inherited frmTatWBPlan: TfrmTatWBPlan + Left = 249 + Top = 194 + Caption = #27974#32433#35745#21010#21015#34920 + ClientHeight = 652 + ClientWidth = 1540 + Font.Height = -16 + Position = poScreenCenter + ExplicitWidth = 1556 + ExplicitHeight = 691 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + 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 = 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 TBEdit: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object TBPrint: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = TBPrintClick + end + object TBView: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 4 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object btnChk: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #24320#22987 + ImageIndex = 20 + OnClick = btnChkClick + end + object btnReChk: TToolButton + Left = 568 + Top = 0 + AutoSize = True + Caption = #25764#38144#24320#22987 + ImageIndex = 11 + OnClick = btnReChkClick + end + object TBEnd: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #32467#26463 + ImageIndex = 20 + OnClick = TBEndClick + end + object TBNoEnd: TToolButton + Left = 734 + Top = 0 + AutoSize = True + Caption = #25764#38144#32467#26463 + ImageIndex = 11 + OnClick = TBNoEndClick + end + object TBExport: TToolButton + Left = 829 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 900 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 995 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 45 + 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 = 202 + Top = 14 + Width = 21 + Height = 21 + Caption = '---' + end + object Label7: TLabel + Left = 341 + Top = 14 + Width = 32 + Height = 21 + Caption = #23458#25143 + end + object Label3: TLabel + Left = 491 + Top = 14 + Width = 48 + Height = 21 + Caption = #32463#35268#26684 + end + object BegDate: TDateTimePicker + Left = 86 + Top = 10 + Width = 112 + Height = 29 + Date = 44378.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 227 + Top = 10 + Width = 110 + Height = 29 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464761099538009100 + TabOrder = 1 + end + object CustName: TEdit + Tag = 2 + Left = 377 + Top = 10 + Width = 110 + Height = 29 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = CustNameKeyPress + end + object WB_Spec: TEdit + Tag = 2 + Left = 543 + Top = 10 + Width = 110 + Height = 29 + TabOrder = 3 + OnChange = ConNoChange + OnKeyPress = CustNameKeyPress + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 111 + Width = 974 + Height = 541 + Align = alLeft + TabOrder = 2 + ExplicitTop = 117 + 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 + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column2: TcxGridDBColumn + Caption = #27974#32433#21333#21495 + DataBinding.FieldName = 'TWPId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column31: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'FillTIme' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 82 + 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 = 82 + end + object v1Column21: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'WB_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#32463#26681#25968 + DataBinding.FieldName = 'WB_YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column6: TcxGridDBColumn + Caption = #24635#31859#25968 + DataBinding.FieldName = 'WB_YarnTotalLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #39044#35745#36724#25968 + DataBinding.FieldName = 'WB_Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column7: TcxGridDBColumn + Caption = #39044#35745#27974#26009#25104#26412 + DataBinding.FieldName = 'SizingAgentCost' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 83 + 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 = 6 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #24453#24320#22987 + #24050#24320#22987 + #24050#32467#26463 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 30 + ClientRectRight = 1540 + ClientRectTop = 30 + end + object Panel2: TPanel [4] + Left = 974 + Top = 111 + Width = 566 + Height = 541 + Align = alClient + Caption = 'Panel2' + TabOrder = 4 + object cxGrid2: TcxGrid + Left = 1 + Top = 67 + Width = 564 + Height = 233 + Align = alClient + PopupMenu = PM_1 + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = TV2FocusedRecordChanged + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 42 + end + object V2Column4: TcxGridDBColumn + Caption = #36724#21345#21495 + DataBinding.FieldName = 'WBCID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object TV1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'WB_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object V2Column3: TcxGridDBColumn + Caption = #25972#32463#38271#24230 + DataBinding.FieldName = 'WB_YarnLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #22836#32441 + DataBinding.FieldName = 'WB_YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object TV1Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 146 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object ToolBar2: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 564 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #24320#36724 + ImageIndex = 2 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = ToolButton4Click + end + object ToolButton3: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 0 + OnClick = ToolButton3Click + end + end + object cxTabControl2: TcxTabControl + Left = 1 + Top = 39 + Width = 564 + Height = 28 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 6 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #32463#36724 + #27974#36724) + OnChange = cxTabControl2Change + ClientRectBottom = 30 + ClientRectRight = 564 + ClientRectTop = 30 + end + object cxGrid3: TcxGrid + Left = 1 + Top = 300 + Width = 564 + Height = 240 + Align = alBottom + TabOrder = 3 + LockedStateImageOptions.AssignedValues = [lsiavFont] + LockedStateImageOptions.Font.Charset = GB2312_CHARSET + LockedStateImageOptions.Font.Color = clWindowText + LockedStateImageOptions.Font.Height = -19 + LockedStateImageOptions.Font.Name = #24494#36719#38597#40657 + LockedStateImageOptions.Font.Style = [fsBold] + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_3 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + 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.Footer = True + OptionsView.GroupByBox = False + object v2Column10: TcxGridDBColumn + Caption = #21407#26009#20195#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 131 + end + object cxGridDBColumn2: 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 + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 138 + 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 v2Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #37197#27604 + DataBinding.FieldName = 'Y_Ratio' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end + end + inherited cxProgressBar2: TcxProgressBar + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 214 + Top = 216 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 89 + Top = 217 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 525 + Top = 318 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 503 + Top = 190 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 399 + Top = 194 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 605 + Top = 191 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 650 + Top = 319 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 318 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 646 + Top = 423 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 585 + Top = 422 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 531 + Top = 423 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 644 + Top = 514 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 590 + Top = 512 + end + object GPM_3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 533 + Top = 516 + end + object ADO_2: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 425 + end + object ADO_3: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 445 + Top = 512 + end + object PM_1: TPopupMenu + Left = 777 + Top = 304 + object N5: TMenuItem + Caption = #20840#36873 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #20840#24323 + OnClick = N6Click + end + end +end diff --git a/E02梭织经轴仓库/U_TatWBPlan.pas b/E02梭织经轴仓库/U_TatWBPlan.pas new file mode 100644 index 0000000..0d2e2fd --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlan.pas @@ -0,0 +1,835 @@ +unit U_TatWBPlan; + +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, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer, + cxProgressBar; + +type + TfrmTatWBPlan = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + GPM_1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + TBExport: TToolButton; + CDS_1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + TBView: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + CustName: TEdit; + Label7: TLabel; + cxTabControl1: TcxTabControl; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + TBEnd: TToolButton; + TBNoEnd: TToolButton; + ToolButton1: TToolButton; + btnChk: TToolButton; + btnReChk: TToolButton; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + TV1Column5: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + TV1Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + DS_2: TDataSource; + CDS_2: TClientDataSet; + GPM_2: TcxGridPopupMenu; + Label3: TLabel; + WB_Spec: TEdit; + ToolButton4: TToolButton; + cxTabControl2: TcxTabControl; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + v2Column10: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DS_3: TDataSource; + CDS_3: TClientDataSet; + GPM_3: TcxGridPopupMenu; + ADO_2: TADOQuery; + ADO_3: TADOQuery; + PM_1: TPopupMenu; + N5: TMenuItem; + N6: TMenuItem; + 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 TBViewClick(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 ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl2Change(Sender: TObject); + procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton3Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitCard(); + procedure InitCardYarn(); + 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_TatWBPlanInPut, + U_TatWBPlanCardInPut; + +{$R *.dfm} +procedure TfrmTatWBPlan.InitCard(); +begin + with ADO_2 do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Card A '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString))); + case cxTabControl2.TabIndex of + 0: + begin + sql.Add('and WB_Type ='''' '); + end; + 1: + begin + sql.Add('and WB_Type ='''' '); + end; + + end; + + Open; + end; + SCreateCDS(ADO_2, CDS_2); + SInitCDSData(ADO_2, CDS_2); +end; + +procedure TfrmTatWBPlan.InitCardYarn(); +begin + + with ADO_3 do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Card_Yarn A '); + sql.Add('where WBCID=' + quotedstr(trim(CDS_2.fieldbyname('WBCID').AsString))); + + Open; + end; + SCreateCDS(ADO_3, CDS_3); + SInitCDSData(ADO_3, CDS_3); +end; + +procedure TfrmTatWBPlan.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatWBPlan.InitButton(); +begin + + TBAdd.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; + TBDel.Enabled := true; + TBEdit.Enabled := true; + btnChk.Enabled := true; + + end; + 1: + begin + TBAdd.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; + TBDel.Enabled := true; + TBEdit.Enabled := true; + btnChk.Enabled := true; + end; + 1: + begin + TBAdd.Enabled := true; + TBEnd.Enabled := true; + TBEdit.Enabled := true; + btnReChk.Enabled := true; + end; + 2: + begin + TBNoEnd.Enabled := true; + end; + end; + end; + +end; + +procedure TfrmTatWBPlan.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTatWBPlan.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Plan A '); + sql.Add('where 1=1 '); + case cxTabControl1.TabIndex of + 0: + begin + sql.Add('and isnull(Status,''0'') =''0'' '); + end; + 1: + begin + sql.Add('and isnull(Status,''0'') =''9'' '); + end; + 2: + begin + sql.Add('and isnull(Status,''0'') =''10'' '); + sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); + sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''); + 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 TfrmTatWBPlan.N5Click(Sender: TObject); +begin + SelOKNo(CDS_2, True); +end; + +procedure TfrmTatWBPlan.N6Click(Sender: TObject); +begin + SelOKNo(CDS_2, False); +end; + +procedure TfrmTatWBPlan.InitForm(); +begin + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); + ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, ''); + BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 30; + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + InitButton(); + InitGrid(); +end; + +procedure TfrmTatWBPlan.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 TfrmTatWBPlan.TBNoEndClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_WB_Plan SET status=''0'',Comper=null,Comptime=null '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').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('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlan.TBEditClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ɴƻ޸'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(CDS_1.FieldByName('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + try + frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application); + with frmTatWBPlanInPut do + begin + PState := 1; + FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString); + if ShowModal = 1 then + begin + InitGrid(); + Self.CDS_1.Locate('TWPId', frmTatWBPlanInPut.FTWPId, []); + end; + end; + finally + frmTatWBPlanInPut.Free; + end; +end; + +procedure TfrmTatWBPlan.TBEndClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_WB_Plan SET status=''10'' ,Comper=''' + trim(DName) + ''',Comptime=getdate() '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').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('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlan.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 A.TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').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 TfrmTatWBPlan.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_WB_Plan where TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').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('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmTatWBPlan.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('', cxGrid1); +end; + +procedure TfrmTatWBPlan.TBPrintClick(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + WSql := Trim(CDS_1.fieldbyname('TWPId').AsString); + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TatWBPlan'; + FFiltration1 := WSql; + FFiltration2 := WSql; + FFiltration3 := WSql; + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmTatWBPlan.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTatWBPlan.TBAddClick(Sender: TObject); +begin + try + frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application); + with frmTatWBPlanInPut do + begin + PState := 0; + FTWPId := ''; + FSubId := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTatWBPlanInPut.Free; + end; +end; + +procedure TfrmTatWBPlan.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 TfrmTatWBPlan.FormShow(Sender: TObject); +begin + inherited; + canshu1 := Self.fParameters1; + InitForm(); + +end; + +procedure TfrmTatWBPlan.TBViewClick(Sender: TObject); +begin + try + frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application); + with frmTatWBPlanInPut do + begin + PState := 1; + FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString); + TBSave.Visible := False; + ToolBar3.Visible := False; + ScrollBox1.Enabled := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatWBPlanInPut.Free; + end; +end; + +procedure TfrmTatWBPlan.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); + WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, ''); +end; + +procedure TfrmTatWBPlan.ToolButton2Click(Sender: TObject); +begin + try + frmTatWBPlanCardInPut := TfrmTatWBPlanCardInPut.Create(Application); + with frmTatWBPlanCardInPut do + begin + FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString); + case cxTabControl2.TabIndex of + 0: + begin + FWB_Type := ''; + end; + 1: + begin + FWB_Type := ''; + end; + + end; + if ShowModal = 1 then + begin + InitCard(); + end; + end; + finally + frmTatWBPlanCardInPut.Free; + end; + +end; + +procedure TfrmTatWBPlan.ToolButton3Click(Sender: TObject); +var + rtvalues: TArray; +begin + if CDS_2.IsEmpty then + Exit; + Tv2.OnFocusedRecordChanged := nil; + if CDS_2.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + rtvalues := SelCDSKey(CDS_2, ['WBCID']); + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_TatWB_Card_Del '); + Sql.Add('@WBCIDS=' + quotedstr(Trim(rtvalues[0]))); + Sql.Add(',@DCode=' + Quotedstr(DCode)); + Sql.Add(',@DName=' + Quotedstr(DName)); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + begin + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + end; + ADOQueryCmd.Connection.CommitTrans; + InitCard(); + application.MessageBox('ɾɹ', 'ʾϢ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlan.ToolButton4Click(Sender: TObject); +var + RTValues: TArray; +begin + if CDS_2.IsEmpty then + Exit; + + RTValues := SelCDSKey(CDS_2, ['WBCID']); + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FPreviewPrint := False; + case cxTabControl2.TabIndex of + 0: + begin + FLMType := 'TatWBCard1'; + end; + 1: + begin + FLMType := 'TatWBCard2'; + end; + end; + FFiltration1 := RTValues[0]; + if ShowModal = 1 then + begin +// Self.InitGrid(); +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('update Tat_WB_Card '); +// sql.Add(' set PRTer=' + quotedstr(DName)); +// sql.Add(', PRTCount=PRTCount+1'); +// sql.Add(', PRTDate=getdate()'); +// sql.Add(' where WBCID in (' + WSql + ')'); +// ExecSQL; +// end; + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmTatWBPlan.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitCard(); +end; + +procedure TfrmTatWBPlan.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitCardYarn(); +end; + +procedure TfrmTatWBPlan.btnChkClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_WB_Plan SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').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('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ʼɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʼʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlan.btnReChkClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_WB_Plan SET status=''0'',chker=null,Chktime=null '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').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('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + TBRafresh.Click; + except + application.MessageBox('ƻʼʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlan.OrdTypeChange(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmTatWBPlan.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 TfrmTatWBPlan.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 TfrmTatWBPlan.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 TfrmTatWBPlan.cxTabControl1Change(Sender: TObject); +begin + InitButton(); + InitGrid(); +end; + +procedure TfrmTatWBPlan.cxTabControl2Change(Sender: TObject); +begin + InitCard(); +end; + +procedure TfrmTatWBPlan.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/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm new file mode 100644 index 0000000..085eaf7 --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm @@ -0,0 +1,660 @@ +inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut + Left = -35 + Top = 98 + Caption = #32463#36724#35745#21010 + ClientHeight = 667 + ClientWidth = 1540 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Name = #23435#20307 + Position = poMainFormCenter + OnClose = FormClose + ExplicitWidth = 1556 + ExplicitHeight = 706 + PixelsPerInch = 96 + TextHeight = 12 + object Panel2: TPanel [0] + Left = 0 + Top = 0 + Width = 1540 + Height = 667 + Align = alClient + TabOrder = 0 + object Panel1: TPanel + Left = 1 + Top = 1 + Width = 1538 + Height = 83 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label8: TLabel + Left = 377 + Top = 50 + Width = 54 + Height = 12 + Caption = #22836' '#32441 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 377 + Top = 21 + Width = 54 + Height = 12 + Caption = #36724' '#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 561 + Top = 50 + Width = 52 + Height = 12 + Caption = #25972#32463#38271#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 763 + Top = 21 + Width = 54 + Height = 12 + Caption = #22791' '#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 201 + Top = 21 + Width = 54 + Height = 12 + Caption = #26085' '#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 40 + Top = 254 + Width = 53 + Height = 12 + Caption = #20379' '#24212' '#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clMaroon + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 18 + Top = 21 + Width = 52 + Height = 12 + Caption = #27974#32433#35745#21010 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 17 + Top = 50 + Width = 54 + Height = 12 + Caption = #21697' '#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 40 + Top = 217 + Width = 53 + Height = 12 + Caption = #30424' '#22836' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clMaroon + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object WB_YarnQty: TEdit + Tag = 1 + Left = 436 + Top = 45 + Width = 100 + Height = 20 + TabOrder = 0 + end + object edtCardQty: TEdit + Tag = 1 + Left = 435 + Top = 20 + Width = 282 + Height = 20 + TabOrder = 1 + end + object WB_Spec: TEdit + Tag = 1 + Left = 76 + Top = 46 + Width = 282 + Height = 20 + TabOrder = 2 + end + object WB_YarnLen: TEdit + Tag = 1 + Left = 619 + Top = 45 + Width = 100 + Height = 20 + TabOrder = 3 + end + object Note: TRichEdit + Tag = 2 + Left = 823 + Top = 20 + Width = 282 + Height = 49 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Zoom = 100 + end + object WBData: TDateTimePicker + Left = 258 + Top = 17 + Width = 100 + Height = 20 + Date = 44378.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + TabOrder = 5 + end + object FtyCoName: TBtnEditC + Left = 99 + Top = 250 + Width = 100 + Height = 20 + ReadOnly = True + TabOrder = 6 + OnBtnUpClick = FtyCoNameBtnUpClick + OnBtnDnClick = FtyCoNameBtnDnClick + end + object TWPId: TEdit + Tag = 1 + Left = 76 + Top = 17 + Width = 100 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object WBNo: TBtnEditC + Left = 99 + Top = 213 + Width = 100 + Height = 20 + ReadOnly = True + TabOrder = 8 + Visible = False + OnBtnUpClick = WBNoBtnUpClick + OnBtnDnClick = FtyCoNameBtnDnClick + end + end + object Panel4: TPanel + Left = 1 + Top = 84 + Width = 1538 + Height = 582 + Align = alClient + Caption = 'Panel4' + TabOrder = 0 + object Panel3: TPanel + Left = 1 + Top = 1 + Width = 1536 + Height = 580 + Align = alClient + TabOrder = 0 + object cxPageControl1: TcxPageControl + Left = 1 + Top = 282 + Width = 1534 + Height = 297 + 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 = 297 + ClientRectRight = 1534 + ClientRectTop = 0 + end + object cxGrid1: TcxGrid + Left = 1 + Top = 42 + Width = 1534 + Height = 240 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + 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 + 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 = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v2Column10: TcxGridDBColumn + Caption = #21407#26009#20195#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + 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 + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 138 + 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 v2Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 + end + object TV1Column2: TcxGridDBColumn + Caption = #37197#27604 + DataBinding.FieldName = 'Y_Ratio' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV1 + end + end + object Panel5: TPanel + Left = 1 + Top = 1 + Width = 1534 + Height = 41 + Align = alTop + TabOrder = 2 + object Panel6: TPanel + Left = 1 + Top = 1 + Width = 184 + Height = 39 + Align = alLeft + TabOrder = 0 + object Label21: TLabel + Left = 37 + Top = 7 + Width = 84 + Height = 20 + Caption = #32463#32433#37197#27604 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object ToolBar1: TToolBar + Tag = 1 + Left = 185 + Top = 1 + Width = 308 + Height = 39 + Align = alLeft + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #24320#21345 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton1: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 5 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + end + object cxGrid2: TcxGrid + Left = 1 + Top = 282 + Width = 1534 + Height = 297 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + 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> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21407#26009#20195#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 131 + end + object cxGridDBColumn3: 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 + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 138 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #32433#32447#21697#29260 + DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 111 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #37197#27604 + DataBinding.FieldName = 'Y_Ratio' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV2 + end + end + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 722 + Top = 338 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 596 + Top = 342 + end + inherited ImageList_new32: TImageList + Left = 680 + Top = 416 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 1028 + Top = 328 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 866 + Top = 338 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 793 + Top = 416 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 614 + Top = 183 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 547 + Top = 181 + end + object PopupMenu1: TPopupMenu + Left = 553 + Top = 412 + object N2: TMenuItem + Caption = #20840#36873 + end + object N3: TMenuItem + Caption = #20840#24323 + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 484 + Top = 242 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 546 + Top = 239 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 614 + Top = 240 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 481 + Top = 186 + end +end diff --git a/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas b/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas new file mode 100644 index 0000000..fe1f9d1 --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas @@ -0,0 +1,356 @@ +unit U_TatWBPlanCardInPut; + +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, cxCheckBox, cxPC, + Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, + dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, + dxScrollbarAnnotations, cxImageList; + +type + TfrmTatWBPlanCardInPut = class(TfrmBaseInput) + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + RMXLSExport1: TRMXLSExport; + Panel2: TPanel; + DS_1: TDataSource; + CDS_1: TClientDataSet; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + N3: TMenuItem; + Panel4: TPanel; + Panel1: TPanel; + Label8: TLabel; + Label2: TLabel; + Label6: TLabel; + Label4: TLabel; + WB_YarnQty: TEdit; + edtCardQty: TEdit; + WB_Spec: TEdit; + WB_YarnLen: TEdit; + Note: TRichEdit; + GPM_2: TcxGridPopupMenu; + Label7: TLabel; + WBData: TDateTimePicker; + Label10: TLabel; + FtyCoName: TBtnEditC; + Label18: TLabel; + TWPId: TEdit; + Label19: TLabel; + Label12: TLabel; + WBNo: TBtnEditC; + Panel3: TPanel; + cxPageControl1: TcxPageControl; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + v2Column10: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + TV1Column2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel5: TPanel; + Panel6: TPanel; + Label21: TLabel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ToolBar1: TToolBar; + TBSave: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + CDS_2: TClientDataSet; + DS_2: TDataSource; + GPM_1: TcxGridPopupMenu; + ToolButton1: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FtyCoNameBtnUpClick(Sender: TObject); + procedure FtyCoNameBtnDnClick(Sender: TObject); + procedure WB_CodeBtnDnClick(Sender: TObject); + procedure WB_MachNoBtnUpClick(Sender: TObject); + procedure WBNoBtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + function TestData(): Boolean; + procedure InitYarn(); + { Private declarations } + public + FTWPId, FWB_Type: string; + { Public declarations } + end; + +var + frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_CompanySel, U_YarnInfoSel, + U_WarpBeamInfoSel; + +{$R *.dfm} +procedure TfrmTatWBPlanCardInPut.InitYarn(); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Plan A '); + sql.Add(' where A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + if FWB_Type = '' then + begin + WB_Spec.Text := ADOQueryTemp.FieldByName('WB_Spec').AsString; + edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty').AsString; + WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_YarnLen').AsString; + WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_YarnQty').AsString; + end + else + begin + WB_Spec.Text := ADOQueryTemp.FieldByName('WB_Spec').AsString; + WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZGS').AsString; + edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJJZZS').AsString; + WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZMS').AsString; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Plan_Yarn A '); + sql.Add(' where YRType=''ᾭ˿'' and A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); +end; + +function TfrmTatWBPlanCardInPut.TestData(): Boolean; +begin + try + + if StrToIntDef(WB_YarnQty.Text, 0) = 0 then + raise Exception.Create('ͷƲΪգ'); + + if StrToIntDef(WB_YarnLen.Text, 0) = 0 then + raise Exception.Create('ȲΪգ'); + + Result := True; + except + Result := false; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanCardInPut.WBNoBtnUpClick(Sender: TObject); +begin + try + frmWarpBeamInfoSel := TfrmWarpBeamInfoSel.Create(Application); + with frmWarpBeamInfoSel do + begin + if ShowModal = 1 then + begin + + Self.WBNo.Text := Trim(frmWarpBeamInfoSel.CDS_Main.fieldbyname('WBNo').AsString); + + end; + end; + finally + frmWarpBeamInfoSel.Free; + end; +end; + +procedure TfrmTatWBPlanCardInPut.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatWBPlanCardInPut.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, 'Ῠ'); + WBData.DateTime := SGetServerDate(ADOQueryTemp); + + TWPId.Text := FTWPId; + + if FWB_Type = '' then + TV1.OptionsData.Editing := False; + + InitYarn(); +end; + +procedure TfrmTatWBPlanCardInPut.FtyCoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).TxtCode := ''; + TBtnEditC(Sender).Text := ''; +end; + +procedure TfrmTatWBPlanCardInPut.FtyCoNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatWBPlanCardInPut.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTatWBPlanCardInPut.TBSaveClick(Sender: TObject); +var + MWBCID: string; + i, j: integer; +begin + if TestData() = false then + exit; + try + ADOQueryCmd.Connection.BeginTrans; +////////////////// Ῠ ////////////////////// + if GetLSNo(ADOQueryTemp, MWBCID, 'ZK1', 'Tat_WB_Card', 3, 1) = False then + begin + raise Exception.Create('ȡƱˮʧ!'); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' insert into Tat_WB_Card(WBCID,WBNo,TWPId,WB_Spec,WB_YarnQty,WB_YarnLen '); + sql.Add(' ,WBData,FtyCoNo,FtyCoName'); + sql.Add(' ,WB_Type,Note,FillId,Filler) values'); + + for i := 1 to StrToIntdef(edtCardQty.Text, 1) do + begin + if i > 1 then + sql.Add(','); + sql.Add(' (' + Quotedstr(Trim(MWBCID) + IntToStr(i))); + sql.Add(',' + Quotedstr(Trim(WBNO.Text))); + sql.Add(',' + Quotedstr(Trim(FTWPId))); + sql.Add(',' + Quotedstr(Trim(WB_Spec.Text))); + sql.Add(',' + (Trim(WB_YarnQty.Text))); + sql.Add(',' + (Trim(WB_YarnLen.Text))); + sql.Add(',' + Quotedstr(Trim(FormatDateTime('yyyy-MM-dd', WBData.DateTime)))); + sql.Add(',' + Quotedstr(Trim(FtyCoName.TxtCode))); + sql.Add(',' + Quotedstr(Trim(FtyCoName.Text))); + sql.Add(',' + Quotedstr(FWB_Type)); + sql.Add(',' + Quotedstr(Trim(Note.Text))); + sql.Add(',' + Quotedstr(Trim(DCode))); + sql.Add(',' + Quotedstr(Trim(DName))); + sql.Add(' )'); + + end; + + for i := 1 to StrToIntdef(edtCardQty.Text, 1) do + begin + sql.Add(' insert into Tat_WB_Card_Yarn(YRId,WBCID,Y_Code,Y_Name,Brand,Y_Color,Y_Ratio'); + sql.Add(',Filler) values'); + CDS_1.DisableControls; + CDS_1.first; + j := 1; + while not CDS_1.eof do + begin + if j > 1 then + sql.Add(','); + sql.Add(' (' + Quotedstr(Trim(MWBCID) + IntToStr(i) + IntToStr(j))); + sql.Add(',' + Quotedstr(Trim(MWBCID) + IntToStr(i))); + sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Code').AsString))); + sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Name').AsString))); + sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Brand').AsString))); + sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Color').AsString))); + sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Ratio').AsString))); + sql.Add(',' + Quotedstr(Trim(DName))); + sql.Add(' )'); + + CDS_1.Next; + j := j + 1; + end; + CDS_1.enableControls; + end; +// ShowMessage(sql.Text); + ExecSQL; + end; + +////////////////// Ῠ ////////////////////// + ADOQueryCmd.Connection.CommitTrans; + ModalResult := 1; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanCardInPut.ToolButton1Click(Sender: TObject); +begin + CDS_1.Delete; +end; + +procedure TfrmTatWBPlanCardInPut.ToolButton3Click(Sender: TObject); +begin + WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, 'Ῠ'); +end; + +procedure TfrmTatWBPlanCardInPut.WB_CodeBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; + +end; + +procedure TfrmTatWBPlanCardInPut.WB_MachNoBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +end. + diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm new file mode 100644 index 0000000..9b28975 --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm @@ -0,0 +1,655 @@ +inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut + Left = 212 + Top = 14 + Caption = #27974#32433#35745#21010#24405#20837 + ClientHeight = 541 + ClientWidth = 952 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Name = #23435#20307 + Position = poScreenCenter + ExplicitWidth = 968 + ExplicitHeight = 580 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 952 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + 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 = 71 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + end + object TBClose: TToolButton + Left = 166 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel2: TPanel [1] + Left = 0 + Top = 192 + Width = 952 + Height = 349 + Align = alClient + TabOrder = 1 + object cxPageControl1: TcxPageControl + Left = 1 + Top = 42 + Width = 950 + Height = 306 + 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 = 306 + ClientRectRight = 950 + ClientRectTop = 0 + end + object cxGrid2: TcxGrid + Left = 1 + Top = 42 + Width = 950 + Height = 306 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + 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.Footer = True + OptionsView.GroupByBox = False + object v2Column10: TcxGridDBColumn + Caption = #21407#26009#20195#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + 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 + HeaderAlignmentHorz = taCenter + Options.Moving = False + Options.Sorting = False + Width = 138 + 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 v2Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 + end + object Tv2Column2: TcxGridDBColumn + Caption = #37197#27604 + DataBinding.FieldName = 'Y_Ratio' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel5: TPanel + Left = 1 + Top = 1 + Width = 950 + Height = 41 + Align = alTop + TabOrder = 2 + object Panel6: TPanel + Left = 1 + Top = 1 + Width = 184 + Height = 39 + Align = alLeft + TabOrder = 0 + object Label21: TLabel + Left = 37 + Top = 7 + Width = 84 + Height = 20 + Caption = #32463#32433#37197#27604 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object ToolBar3: TToolBar + Tag = 1 + Left = 185 + Top = 1 + Width = 142 + Height = 39 + Align = alLeft + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = ToolButton4Click + end + end + end + end + object ScrollBox1: TScrollBox [2] + Left = 0 + Top = 38 + Width = 952 + Height = 154 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentCtl3D = False + ParentFont = False + TabOrder = 2 + object Label3: TLabel + Left = 12 + Top = 29 + Width = 67 + Height = 12 + Caption = #21697' '#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 14 + Top = 6 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 470 + Top = 6 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 12 + Top = 72 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label47: TLabel + Left = 238 + Top = 6 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 240 + Top = 29 + Width = 65 + Height = 12 + Caption = #24635#32463#26681#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 431 + Top = 29 + Width = 104 + Height = 12 + Caption = #23458#25143#19979#21333#24635#31859#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 1 + Top = 53 + Width = 78 + Height = 12 + Caption = #39044#35745#32463#36724#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 201 + Top = 53 + Width = 104 + Height = 12 + Caption = #39044#35745#27599#32463#36724#31859#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 444 + Top = 53 + Width = 91 + Height = 12 + Caption = #39044#35745#29992#27974#25104#26412#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 683 + Top = 6 + Width = 91 + Height = 12 + Caption = #27974#32433#25490#21333#31859#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 696 + Top = 29 + Width = 78 + Height = 12 + Caption = #39044#35745#27974#36724#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 696 + Top = 53 + Width = 78 + Height = 12 + Caption = #27599#27974#36724#26681#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 696 + Top = 76 + Width = 78 + Height = 12 + Caption = #27599#27974#36724#31859#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 735 + Top = 99 + Width = 39 + Height = 12 + Caption = #36724#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DlyDate: TDateTimePicker + Left = 532 + Top = 2 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548000 + ShowCheckbox = True + TabOrder = 2 + end + object OrdNote: TRichEdit + Left = 81 + Top = 72 + Width = 571 + Height = 66 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + Zoom = 100 + OnKeyPress = ConNoKeyPress + end + object WB_Spec: TEdit + Left = 81 + Top = 26 + Width = 120 + Height = 18 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object CustName: TBtnEditC + Left = 301 + Top = 2 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 3 + OnBtnUpClick = CustNameBtnUpClick + OnBtnDnClick = CustNameBtnDnClick + end + object OurCoName: TBtnEditC + Left = 81 + Top = 2 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 4 + OnBtnUpClick = OurCoNameBtnUpClick + OnBtnDnClick = CustNameBtnDnClick + end + object WB_YarnQty: TEdit + Left = 301 + Top = 25 + Width = 120 + Height = 18 + TabOrder = 5 + OnKeyPress = ConNoKeyPress + end + object WB_YarnTotalLen: TEdit + Left = 532 + Top = 26 + Width = 120 + Height = 18 + TabOrder = 6 + OnKeyPress = ConNoKeyPress + end + object WB_Qty: TEdit + Left = 81 + Top = 50 + Width = 120 + Height = 18 + TabOrder = 7 + OnKeyPress = ConNoKeyPress + end + object WB_YarnLen: TEdit + Left = 301 + Top = 50 + Width = 120 + Height = 18 + TabOrder = 8 + OnKeyPress = ConNoKeyPress + end + object SizingAgentCost: TEdit + Left = 532 + Top = 50 + Width = 120 + Height = 18 + TabOrder = 9 + OnKeyPress = ConNoKeyPress + end + object WB_Qty_JSPDMS: TEdit + Left = 771 + Top = 3 + Width = 120 + Height = 18 + TabOrder = 10 + OnKeyPress = ConNoKeyPress + end + object WB_Qty_YJJZZS: TEdit + Left = 770 + Top = 26 + Width = 120 + Height = 18 + TabOrder = 11 + OnKeyPress = ConNoKeyPress + end + object WB_Qty_YJMJZGS: TEdit + Left = 771 + Top = 50 + Width = 120 + Height = 18 + TabOrder = 12 + OnKeyPress = ConNoKeyPress + end + object WB_Qty_YJMJZMS: TEdit + Left = 771 + Top = 73 + Width = 120 + Height = 18 + TabOrder = 13 + OnKeyPress = ConNoKeyPress + end + object WB_Len: TEdit + Left = 771 + Top = 96 + Width = 120 + Height = 18 + TabOrder = 14 + OnKeyPress = ConNoKeyPress + end + end + inherited ADOQueryBaseCmd: TADOQuery + Left = 1185 + Top = 88 + end + inherited ADOQueryBaseTemp: TADOQuery + Left = 1225 + Top = 193 + end + inherited ImageList_new32: TImageList + Left = 1272 + Top = 200 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1090 + Top = 89 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 1410 + Top = 225 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 363 + Top = 394 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 436 + Top = 393 + end +end diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas new file mode 100644 index 0000000..62028aa --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas @@ -0,0 +1,419 @@ +unit U_TatWBPlanInPut; + +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, dxScrollbarAnnotations, + cxImageList; + +type + TfrmTatWBPlanInPut = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ToolButton8: TToolButton; + Panel2: TPanel; + cxPageControl1: TcxPageControl; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column10: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel5: TPanel; + Panel6: TPanel; + Label21: TLabel; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + CDS_1: TClientDataSet; + DS_1: TDataSource; + ScrollBox1: TScrollBox; + Label3: TLabel; + Label14: TLabel; + Label5: TLabel; + Label16: TLabel; + Label47: TLabel; + Label1: TLabel; + Label2: TLabel; + Label4: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + DlyDate: TDateTimePicker; + OrdNote: TRichEdit; + WB_Spec: TEdit; + CustName: TBtnEditC; + OurCoName: TBtnEditC; + WB_YarnQty: TEdit; + WB_YarnTotalLen: TEdit; + WB_Qty: TEdit; + WB_YarnLen: TEdit; + SizingAgentCost: TEdit; + WB_Qty_JSPDMS: TEdit; + WB_Qty_YJJZZS: TEdit; + WB_Qty_YJMJZGS: TEdit; + WB_Qty_YJMJZMS: TEdit; + WB_Len: TEdit; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure C_CodeKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure MCTypeBtnUpClick(Sender: TObject); + procedure CustNameBtnUpClick(Sender: TObject); + procedure CustNameBtnDnClick(Sender: TObject); + procedure OurCoNameBtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + procedure InitData(); + function SaveData(): Boolean; + + { Private declarations } + public + PState, FCopyInt: Integer; + FConNo, FTWPId, FSubId: string; + { Public declarations } + end; + +var + frmTatWBPlanInPut: TfrmTatWBPlanInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel; + +{$R *.dfm} + +procedure TfrmTatWBPlanInPut.TBCloseClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmTatWBPlanInPut.InitData(); +var + PBNO, PBFlag: string; +begin + if PState = 1 then + begin + + end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + SCSHData(ADOQueryTemp, ScrollBox1, 0); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Tat_WB_Plan_Yarn A '); + sql.Add(' where YRType=''ᾭ˿'' and A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); + + if FCopyInt = 1 then + begin + FConNo := ''; + FTWPId := ''; + FSubId := ''; + end; +end; + +procedure TfrmTatWBPlanInPut.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmTatWBPlanInPut.SaveData(): Boolean; +var + maxno, maxsubno, maxpbno, maxpzno, maxsjno: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FTWPId) = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'SZ', 'Tat_WB_Plan', 4, 1) = False then + raise Exception.Create('ˮ쳣'); + + end + else + begin + maxno := Trim(FTWPId); + end; +////////////////////////// ////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Tat_WB_Plan where TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FTWPId) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('TWPId').Value := Trim(maxno); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Plan', ScrollBox1, 0); + 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, 'WY', 'Tat_WB_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_WB_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('TWPId').Value := Trim(maxno); + FieldByName('YRId').Value := Trim(maxpbno); + RTSetsavedataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_WB_Plan_Yarn', 0); + Post; + end; + CDS_1.Edit; + CDS_1.FieldByName('TWPId').Value := Trim(maxno); + CDS_1.FieldByName('YRId').Value := Trim(maxpbno); + + Next; + end; + end; +////////////////////////// 澭˿ȱ ////////////////////////// + + + ADOQueryCmd.Connection.CommitTrans; + FTWPId := Trim(maxno); + FSubId := Trim(maxsubno); + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + + end; +end; + +procedure TfrmTatWBPlanInPut.TBSaveClick(Sender: TObject); +var + FReal: Double; + maxConNo: string; +begin + + if Trim(CustName.Text) = '' then + begin + Application.MessageBox('ͻΪ!', 'ʾ', 0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; + end; +end; + +procedure TfrmTatWBPlanInPut.ToolButton3Click(Sender: TObject); +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; + FieldByName('Y_Ratio').Value := 0; + Post; + end; + + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +procedure TfrmTatWBPlanInPut.ToolButton4Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + if Trim(CDS_1.fieldbyname('YRId').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_WB_Plan_Yarn where YRId=''' + Trim(CDS_1.fieldbyname('YRId').AsString) + ''''); + ExecSQL; + end; + end; + CDS_1.Delete; +end; + +procedure TfrmTatWBPlanInPut.OurCoNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '˾'; + if ShowModal = 1 then + begin + OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); +// FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); +// FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; + +end; + +procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmTatWBPlanInPut.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 TfrmTatWBPlanInPut.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmTatWBPlanInPut.CustNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).TxtCode := ''; + TBtnEditC(Sender).Text := ''; +end; + +procedure TfrmTatWBPlanInPut.CustNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin + CustName.TxtCode := 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/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local index 138629d..9f2b76d 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj.local +++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local @@ -29,7 +29,7 @@ - + @@ -120,6 +120,14 @@ + + + + + + + + @@ -130,33 +138,25 @@ + + - - - - - - - - - - - 1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas + 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm 1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas + 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas 1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas - 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas - 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm - 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm - 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas - 2025-02-28 19:52:48.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 2025-02-28 19:53:16.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= + 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= + 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm + 1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas diff --git a/E02梭织经轴仓库/WarpBeamStk.identcache b/E02梭织经轴仓库/WarpBeamStk.identcache index 4fec3d7..578631a 100644 Binary files a/E02梭织经轴仓库/WarpBeamStk.identcache and b/E02梭织经轴仓库/WarpBeamStk.identcache differ diff --git a/E02梭织经轴仓库/testDll.identcache b/E02梭织经轴仓库/testDll.identcache index f917a59..5f7d627 100644 Binary files a/E02梭织经轴仓库/testDll.identcache and b/E02梭织经轴仓库/testDll.identcache differ