From aaecd2e3e3b6b1ae4828e4d561d49132f6b11285 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 29 Jul 2025 16:41:45 +0800 Subject: [PATCH] ~ --- 检验管理/TradeManage.dof | 2 +- 检验管理/U_JYOrderCDOne.dfm | 6 ++ 检验管理/U_JYOrderCDOne.pas | 129 ++++++------------------------------ 3 files changed, 28 insertions(+), 109 deletions(-) diff --git a/检验管理/TradeManage.dof b/检验管理/TradeManage.dof index bf51fb2..1d3cbff 100644 --- a/检验管理/TradeManage.dof +++ b/检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJnaile\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index b7c5d92..c512e46 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -1085,6 +1085,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne HeaderAlignmentHorz = taCenter Width = 65 end + object Tv1Column2: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 54a6790..1e099c6 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -11,7 +11,20 @@ uses cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, - cxCurrencyEdit, MMSystem; + cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmJYOrderCDOne = class(TForm) @@ -206,6 +219,7 @@ type RM4: TRMGridReport; ADOQueryPrint1: TADOQuery; RMDB_Main1: TRMDBDataSet; + Tv1Column2: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -369,7 +383,7 @@ begin try ADOQueryMain.DisableControls; with ADOQueryMain do - begin + begin Close; Filtered := False; sql.Clear; @@ -1502,107 +1516,6 @@ begin ExecSQL; end; -// if (trim(ComboBox1.Text) = '뵥(Ӣ)') or (ComboBox1.ItemIndex = 0) then -// begin -// with ADOQueryTemp do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Print_CKMDHAEIL '); -// sql.add('@DName=' + quotedstr(Trim(DCode))); -// Open; -// end; -// SCreateCDS20(ADOQueryTemp, CDS_HZ); -// SInitCDSData20(ADOQueryTemp, CDS_HZ); -// -// with ADOQueryPrint do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Do_PrintMd_HZ '); -// sql.add('@mainID=' + quotedstr(Trim(''))); -// sql.add(',@DName=' + quotedstr(Trim(DCode))); -// sql.add(',@flag=''2'' '); -// Open; -// end; -// end; -// if (trim(ComboBox1.Text) = '뵥()') or (ComboBox1.ItemIndex = 1) then -// begin -// with ADOQueryTemp do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Print_CKMDHAEIL '); -// sql.add('@DName=' + quotedstr(Trim(DCode))); -// Open; -// end; -// SCreateCDS20(ADOQueryTemp, CDS_HZ); -// SInitCDSData20(ADOQueryTemp, CDS_HZ); -// -// with ADOQueryPrint do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Do_PrintMd_HZ '); -// sql.add('@mainID=' + quotedstr(Trim(''))); -// sql.add(',@DName=' + quotedstr(Trim(DCode))); -// sql.add(',@flag=''2'' '); -// Open; -// end; -// end; -// -// if (trim(ComboBox1.Text) = '뵥()') or (ComboBox1.ItemIndex = 4) then -// begin -// with ADOQueryTemp do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Print_CKMDHZ '); -// SQL.Add('@mainid='''' '); -// sql.add(',@DName=' + quotedstr(Trim(DCode))); -// SQL.Add(',@DLen =' + edit3.Text); -// Open; -// end; -// SCreateCDS20(ADOQueryTemp, CDS_HZ); -// SInitCDSData20(ADOQueryTemp, CDS_HZ); -// -// with ADOQueryPrint do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Do_PrintMd_HZ '); -// sql.add('@mainID=' + quotedstr(Trim(''))); -// sql.add(',@DName=' + quotedstr(Trim(DCode))); -// sql.add(',@flag=''2'' '); -// Open; -// end; -// end; -// -// if (trim(ComboBox1.Text) = '뵥') or (ComboBox1.ItemIndex = 5) then -// begin -// with ADOQueryTemp do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Print_CKMDYDL '); -// sql.add('@DName=' + quotedstr(Trim(DCode))); -// Open; -// end; -// SCreateCDS20(ADOQueryTemp, CDS_HZ); -// SInitCDSData20(ADOQueryTemp, CDS_HZ); -// -// with ADOQueryPrint do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Do_PrintMd_HZ '); -// sql.add('@mainID=' + quotedstr(Trim(''))); -// sql.add(',@DName=' + quotedstr(Trim(DCode))); -// sql.add(',@flag=''2'' '); -// Open; -// end; -// end; - if (trim(ComboBox1.Text) = '뵥()') or (ComboBox1.ItemIndex = 2) then begin with ADOQueryTemp do @@ -1808,8 +1721,8 @@ begin Order_Main.EnableControls; if Length(OrderNo.Text) > 2 then begin - Key := #13; - OrderNo.OnKeyPress(OrderNo, Key); + key := #13; + OrderNo.OnKeyPress(OrderNo, key); end else begin @@ -1829,7 +1742,7 @@ begin if Application.MessageBox('ȷҪ', 'ʾ', 32 + 4) <> IDYES then Exit; Order_Main.DisableControls; - with Order_Main do + with Order_Main do begin First; while not Eof do @@ -1879,8 +1792,8 @@ begin Order_Main.EnableControls; if Length(OrderNo.Text) > 2 then begin - Key := #13; - OrderNo.OnKeyPress(OrderNo, Key); + key := #13; + OrderNo.OnKeyPress(OrderNo, key); end else begin