From 354682dae0f96deafa709e2bfc24c59fad3d55e8 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 1 Aug 2025 16:35:48 +0800 Subject: [PATCH] 1234 --- F04染色刷卡/DyeProcess.dpr | 2 +- F04染色刷卡/DyeProcess.dproj | 4 +- F04染色刷卡/DyeProcess.dproj.local | 46 ++- F04染色刷卡/DyeProcess.identcache | Bin 1189 -> 1185 bytes F04染色刷卡/U_DyePCList.dfm | 630 +++++++++++++++++++++++++++++ F04染色刷卡/U_DyePCList.pas | 274 +++++++++++++ F04染色刷卡/U_GetDllForm.pas | 14 +- F04染色刷卡/testDll.res | Bin 3308 -> 3308 bytes 8 files changed, 943 insertions(+), 27 deletions(-) create mode 100644 F04染色刷卡/U_DyePCList.dfm create mode 100644 F04染色刷卡/U_DyePCList.pas diff --git a/F04染色刷卡/DyeProcess.dpr b/F04染色刷卡/DyeProcess.dpr index 9ae8f6a..7edf311 100644 --- a/F04染色刷卡/DyeProcess.dpr +++ b/F04染色刷卡/DyeProcess.dpr @@ -20,7 +20,7 @@ uses U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel}, U_DataLink in 'U_DataLink.pas' {DataLink_DyeProcess: TDataModule}, - U_DyeOutputList in 'U_DyeOutputList.pas' {frmDyeOutputList}, + U_DyePCList in 'U_DyePCList.pas' {frmDyePCList}, U_DyeOutput in 'U_DyeOutput.pas' {frmDyeOutput}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; diff --git a/F04染色刷卡/DyeProcess.dproj b/F04染色刷卡/DyeProcess.dproj index 356db8b..78e24f8 100644 --- a/F04染色刷卡/DyeProcess.dproj +++ b/F04染色刷卡/DyeProcess.dproj @@ -118,8 +118,8 @@ dfm TDataModule - -
frmDyeOutputList
+ +
frmDyePCList
dfm diff --git a/F04染色刷卡/DyeProcess.dproj.local b/F04染色刷卡/DyeProcess.dproj.local index f55a4aa..475e28e 100644 --- a/F04染色刷卡/DyeProcess.dproj.local +++ b/F04染色刷卡/DyeProcess.dproj.local @@ -1,25 +1,27 @@  - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj - 1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas= - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 2025/06/28 17:17:29.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas= + 1899-12-30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 2025-06-28 17:17:29.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 2025-08-01 15:46:35.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas + 2025-08-01 15:46:35.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm @@ -43,16 +45,16 @@ + - - - + + diff --git a/F04染色刷卡/DyeProcess.identcache b/F04染色刷卡/DyeProcess.identcache index 2ea9ef6266e48ed43716d9b230f30c9c7b3b34b5..46a55f3da75fcf594ae25fade8966ce8467a5bc6 100644 GIT binary patch delta 43 ycmZ3=xsY>1G~?u2X4}cpjOQoMV^ZGS#U#u)*^5aQC}77F;5_*tlgQ*<%##5=_YNlj delta 57 zcmV-90LK5J38e|JTLF{013r`10g;n^13i + FindPanel.DisplayMode = fpdmAlways + FindPanel.UseExtendedSyntax = True + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + DateTimeHandling.Grouping = dtgByDate + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object tv1CraftIdx: TcxGridDBColumn + DataBinding.FieldName = 'CraftIdx' + DataBinding.IsNullValueType = True + Visible = False + end + object tv1mcName: TcxGridDBColumn + Caption = #26426#32568 + DataBinding.FieldName = 'mcName' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 99 + end + object tv1runStatus: TcxGridDBColumn + Tag = 99 + Caption = #29366#24577 + DataBinding.FieldName = 'runStatus' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 64 + end + object tv1lastMinNum: TcxGridDBColumn + Caption = #19982#19978#32568#38388#38548'('#20998')' + DataBinding.FieldName = 'lastMinNum' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 125 + end + object tv1curDoInfo: TcxGridDBColumn + Caption = #24403#21069#29983#20135 + DataBinding.FieldName = 'curDoInfo' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 114 + end + object tv1curInTime: TcxGridDBColumn + Caption = #26412#32568#36827#32568#26102#38388 + DataBinding.FieldName = 'curInTime' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 117 + end + object tv1runTime: TcxGridDBColumn + Caption = #24050#25345#32493'(h)' + DataBinding.FieldName = 'runTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Options.Focusing = False + Width = 80 + end + object tv1Column1: TcxGridDBColumn + Caption = #39044#35745#20986#32568 + DataBinding.IsNullValueType = True + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object tv1wait1: TcxGridDBColumn + Caption = #31561#24453'1' + DataBinding.FieldName = 'wait1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object tv1wait2: TcxGridDBColumn + Caption = #31561#24453'2' + DataBinding.FieldName = 'wait2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object tv1wait3: TcxGridDBColumn + Caption = #31561#24453'3' + DataBinding.FieldName = 'wait3' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object tv1wait4: TcxGridDBColumn + Caption = #31561#24453'4' + DataBinding.FieldName = 'wait4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object tv1wait5: TcxGridDBColumn + Caption = #31561#24453'5' + DataBinding.FieldName = 'wait5' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Options.Focusing = False + Width = 100 + end + object tv1wait6: TcxGridDBColumn + Caption = #31561#24453'6' + DataBinding.FieldName = 'wait6' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object tv1finish1: TcxGridDBColumn + Caption = #23436'1' + DataBinding.FieldName = 'finish1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Options.Focusing = False + Width = 63 + end + object tv1finish2: TcxGridDBColumn + Caption = #23436'2' + DataBinding.FieldName = 'finish2' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Options.Focusing = False + Width = 61 + end + object tv1finish3: TcxGridDBColumn + Caption = #23436'3' + DataBinding.FieldName = 'finish3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 70 + end + object tv1GC_BatchNo: TcxGridDBColumn + Caption = #22383#24067#25209#27425 + DataBinding.FieldName = 'GC_BatchNo' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Filtering = False + Width = 89 + end + object tv1finish4: TcxGridDBColumn + Caption = #23436'4' + DataBinding.FieldName = 'finish4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object tv1finish5: TcxGridDBColumn + Caption = #23436'5' + DataBinding.FieldName = 'finish5' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object tv1finish6: TcxGridDBColumn + Caption = #23436'6' + DataBinding.FieldName = 'finish6' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object tv1CurGlideName: TcxGridDBColumn + Caption = #21047#21345#36827#24230 + DataBinding.FieldName = 'CurGlideName' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object tv1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Options.Focusing = False + Width = 109 + end + end + object dbGrid1Level1: TcxGridLevel + GridView = tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + Parameters = <> + Left = 788 + Top = 168 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 852 + Top = 280 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DyeProcess.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 764 + Top = 288 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 896 + Top = 360 + end + object cxGridPopupMenu1: TcxGridPopupMenu + 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 +end diff --git a/F04染色刷卡/U_DyePCList.pas b/F04染色刷卡/U_DyePCList.pas new file mode 100644 index 0000000..d68a6a8 --- /dev/null +++ b/F04染色刷卡/U_DyePCList.pas @@ -0,0 +1,274 @@ +unit U_DyePCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common, + RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, + U_BaseList, dxScrollbarAnnotations; + +type + TfrmDyePCList = 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; + Label5: TLabel; + orderNo: TEdit; + MovePanel2: TMovePanel; + Label10: TLabel; + RMGridReport1: TRMGridReport; + Label16: TLabel; + customerNoName: TEdit; + Label13: TLabel; + ywy: TEdit; + Label17: TLabel; + C_Color: TEdit; + Label4: TLabel; + C_ColorNo: TEdit; + Label6: TLabel; + lbHx: TEdit; + Label7: TLabel; + GlideName: TComboBox; + StaffName: TEdit; + Label9: TLabel; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + ToolButton1: TToolButton; + dbGrid1: TcxGrid; + tv1: TcxGridDBTableView; + tv1CraftIdx: TcxGridDBColumn; + tv1mcName: TcxGridDBColumn; + tv1runStatus: TcxGridDBColumn; + tv1lastMinNum: TcxGridDBColumn; + tv1curDoInfo: TcxGridDBColumn; + tv1curInTime: TcxGridDBColumn; + tv1runTime: TcxGridDBColumn; + tv1Column1: TcxGridDBColumn; + tv1wait1: TcxGridDBColumn; + tv1wait2: TcxGridDBColumn; + tv1wait3: TcxGridDBColumn; + tv1wait4: TcxGridDBColumn; + tv1wait5: TcxGridDBColumn; + tv1wait6: TcxGridDBColumn; + tv1finish1: TcxGridDBColumn; + tv1finish2: TcxGridDBColumn; + tv1finish3: TcxGridDBColumn; + tv1GC_BatchNo: TcxGridDBColumn; + tv1finish4: TcxGridDBColumn; + tv1finish5: TcxGridDBColumn; + tv1finish6: TcxGridDBColumn; + tv1CurGlideName: TcxGridDBColumn; + tv1Note: TcxGridDBColumn; + dbGrid1Level1: TcxGridLevel; + 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); + + private + FLeft, FTop: Integer; + procedure InitGrid(); + { Private declarations } + public + fsyrName, canshu1: string; + { Public declarations } + end; + +var + frmDyePCList: TfrmDyePCList; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmDyePCList.FormDestroy(Sender: TObject); +begin + inherited; + frmDyePCList := nil; +end; + +procedure TfrmDyePCList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmDyePCList.FormCreate(Sender: TObject); +begin + inherited; + + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; + fsyrName := trim(DdataBase); + canshu1 := trim(DParameters1); + SInitComBoxBySql(ADOQueryTemp, GlideName, false, 'select PSName as Name from Dye_Process'); +end; + +procedure TfrmDyePCList.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 GOID,A.GlideName,Qty,rollnum,groupName,B.*,a.filler as filler2,a.filltime as filltime2,gotime,QtyUnit,StaffName from Dye_Plan_Glide_OutPut A '); + sql.Add('select * from V_Dye_Plan_Glide_OutPut A'); + sql.Add('inner join Dye_Plan_Card B on A.PCID=B.PCID '); + sql.add('where A.GOTime>=''' + trim(mbegdate) + ''' '); + sql.Add('and A.GOTime<''' + trim(menddate) + ''' '); + sql.Add(Msql); + // showmessage(sql.Text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmDyePCList.TBRafreshClick(Sender: TObject); +begin + MovePanel2.Visible := True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible := False; +end; + +procedure TfrmDyePCList.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(self.Caption + tv1.Name, Tv1, 'Ʒֿ'); +end; + +procedure TfrmDyePCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmDyePCList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmDyePCList.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(self.Caption + tv1.Name, Tv1, 'Ʒֿ'); + canshu1 := self.fParameters1; + + initgrid(); +end; + +procedure TfrmDyePCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; +// SelExportData(tv1,ADOQueryMain,self.Caption); + TcxGridToExcel(self.Caption, DBGrid1); +end; + +procedure TfrmDyePCList.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 TfrmDyePCList.pcidChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDyePCList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDyePCList.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('insert into Dye_Need_Up(UType,UDataId) values(''̨ˢ'',' + quotedstr(Trim(CDS_Main.fieldbyname('GOID').AsString)) + ') '); + sql.Add('delete Dye_Plan_Glide_OutPut where GOID=''' + Trim(CDS_Main.fieldbyname('GOID').AsString) + ''''); + + ExecSQL; + end; +////////////////// ½ ////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('exec P_Dye_Card_upCL @PCID=' + QuotedStr(CDS_Main.fieldbyname('pcid').AsString)); + + execsql; + end; +////////////////// ½ ////////////////// + CDS_Main.Delete; + except + application.MessageBox('ɾʧܣ', 'ʾϢ', 0); + end; + +end; + +end. + diff --git a/F04染色刷卡/U_GetDllForm.pas b/F04染色刷卡/U_GetDllForm.pas index 3101983..6cff925 100644 --- a/F04染色刷卡/U_GetDllForm.pas +++ b/F04染色刷卡/U_GetDllForm.pas @@ -15,7 +15,7 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean; implementation uses - U_DataLink, U_iniParam, U_DyeOutput, U_DyeOutputList; + U_DataLink, U_iniParam, U_DyeOutput, U_DyeOutputList, U_DyePCList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -123,7 +123,17 @@ begin ///////////////////// //ģ鴰 case FormID of - + 1: //̨Ų + begin + with TfrmDyePCList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; 211: //Ǽ begin with TfrmDyeOutput.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/F04染色刷卡/testDll.res b/F04染色刷卡/testDll.res index e116c482ff64a90aae29d14ae002699b9b83f166..2465ca0e30696a8467f3b1371b2f343eab2cd121 100644 GIT binary patch delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5