From 22103733ec3e8b3f8aeb5b38284272dcf3f00141 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 21 Nov 2025 15:26:38 +0800 Subject: [PATCH] =?UTF-8?q?=E5=A2=9E=E5=8A=A0=E7=A0=81=E5=8D=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 检验管理/U_DataLink.pas | 16 ++++- 检验管理/U_JYOrderCDOne.dfm | 9 +-- 检验管理/U_JYOrderCDOne.pas | 113 ++++++++++++++++++++++++------------ 3 files changed, 95 insertions(+), 43 deletions(-) diff --git a/检验管理/U_DataLink.pas b/检验管理/U_DataLink.pas index e53b287..4c58cd6 100644 --- a/检验管理/U_DataLink.pas +++ b/检验管理/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs, + 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; type TMyThread = class(TThread) protected diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index 41a6dee..11daa3c 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -1,6 +1,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne - Left = -8 - Top = 0 + Left = 294 + Top = 95 Width = 1378 Height = 754 Caption = #26816#39564#25253#21578 @@ -198,7 +198,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Text = #30721#21333'('#25171#21367')' OnChange = ComboBox1Change Items.Strings = ( - #30721#21333'('#25171#21367')') + #30721#21333'('#25171#21367')' + #30721#21333'('#25353#21367#21495')') end object ToolButton9: TToolButton Left = 664 @@ -728,7 +729,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Left = 0 Top = 150 Width = 1362 - Height = 566 + Height = 565 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 905ca81..52a2d90 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -10,8 +10,21 @@ uses cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, 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; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, + 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) @@ -475,15 +488,15 @@ begin TBManage.Visible := True; v1Column22.visible := True; v1Column15.Options.Focusing := True; - TCPDB.Visible:=True; - TBPrintBao.Visible:=True; + TCPDB.Visible := True; + TBPrintBao.Visible := True; - TBck.Visible:=true; - TBSMck.Visible:=True; - TBnoCK.Visible:=True; - TBDW.Visible:=True; - TBMS.Visible:=True; - TBPZ.Visible:=True; + TBck.Visible := true; + TBSMck.Visible := True; + TBnoCK.Visible := True; + TBDW.Visible := True; + TBMS.Visible := True; + TBPZ.Visible := True; end; if Trim(DParameters2) = 'Ʒ' then @@ -497,13 +510,13 @@ begin TBZF.Visible := False; TBManage.Visible := False; v1Column22.visible := False; - TBck.Visible:=false; - TBSMck.Visible:=false; - TBnoCK.Visible:=false; - TBDW.Visible:=false; - TBMS.Visible:=false; - TBPZ.Visible:=false; - TCPDB.Visible:=True; + TBck.Visible := false; + TBSMck.Visible := false; + TBnoCK.Visible := false; + TBDW.Visible := false; + TBMS.Visible := false; + TBPZ.Visible := false; + TCPDB.Visible := True; TBPrintBao.Visible := True; end; if Trim(DParameters2) = '' then @@ -511,12 +524,12 @@ begin TBZF.Visible := False; TBManage.Visible := False; v1Column22.visible := False; - TBck.Visible:=false; - TBSMck.Visible:=false; - TBnoCK.Visible:=false; - TBDW.Visible:=false; - TBMS.Visible:=false; - TBPZ.Visible:=false; + TBck.Visible := false; + TBSMck.Visible := false; + TBnoCK.Visible := false; + TBDW.Visible := false; + TBMS.Visible := false; + TBPZ.Visible := false; // TCPDB.Visible:=False; end; end; @@ -795,8 +808,6 @@ begin TBFind.Click; end; - - procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -866,7 +877,8 @@ end; procedure TfrmJYOrderCDOne.TBPrintJYBBClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; if Order_Main.Locate('SSel', True, []) = False then begin @@ -1379,7 +1391,6 @@ var sqlStr: string; begin - if Order_Main.IsEmpty then Exit; if trim(ComboBox1.Text) = '' then @@ -1535,7 +1546,7 @@ begin end; end; - if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') OR (trim(ComboBox1.Text) = '뵥(ӡ)') then + if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') or (trim(ComboBox1.Text) = '뵥(ӡ)') then begin with ADOQueryTemp do begin @@ -1543,7 +1554,7 @@ begin sql.Clear; sql.add('exec P_Print_CKMD '); sql.add('@mainID=' + quotedstr(Trim(''))); - sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); Open; end; SCreateCDS20(ADOQueryTemp, CDS_HZ); @@ -1560,7 +1571,7 @@ begin Open; end; end; - if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') OR (trim(ComboBox1.Text) = '뵥(ӡ)') then + if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') or (trim(ComboBox1.Text) = '뵥(ӡ)') then begin with ADOQueryTemp do begin @@ -1568,7 +1579,7 @@ begin sql.Clear; sql.add('exec P_Print_CKMDDB '); sql.add('@mainID=' + quotedstr(Trim(''))); - sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); Open; end; SCreateCDS20(ADOQueryTemp, CDS_HZ); @@ -1595,7 +1606,33 @@ begin sql.add('exec P_Print_CKMD '); sql.add('@mainID=' + quotedstr(Trim(''))); sql.add(',@DName=' + quotedstr(Trim(DCode))); - sql.Add(',@Cnum=''3'''); + sql.Add(',@Cnum=''3'''); + 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) = '뵥()') then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMD_JH '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.Add(',@Cnum=''3'''); Open; end; SCreateCDS20(ADOQueryTemp, CDS_HZ); @@ -1864,12 +1901,12 @@ begin panel3.Visible := false; end; -procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; - var Key: Char); +procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char); begin - IF key=#13 then + if Key = #13 then begin - IF trim(Edit_CKMJID.Text)='' then exit; + if trim(Edit_CKMJID.Text) = '' then + exit; try with ADOQueryCmd do @@ -1883,13 +1920,13 @@ begin except PlaySound('wav\ɨ.wav', 0, SND_FILENAME or SND_ASYNC); end; - Edit_CKMJID.Text:=''; + Edit_CKMJID.Text := ''; end; end; procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject); begin - Panel_SMCK.Visible:=false; + Panel_SMCK.Visible := false; end; procedure TfrmJYOrderCDOne.TBSMCKClick(Sender: TObject);