From ed9a59cced4aa3be9d2b7b4c67b327d5fc1c42aa Mon Sep 17 00:00:00 2001 From: libingpeng <3360871605@qq.com> Date: Sat, 15 Nov 2025 10:33:47 +0800 Subject: [PATCH] =?UTF-8?q?=E6=A3=80=E9=AA=8C=E7=A0=81=E5=8D=95=E6=94=B9?= =?UTF-8?q?=E4=B8=BA=20=E6=A3=80=E9=AA=8C=E7=A0=81=E5=8D=95=EF=BC=88?= =?UTF-8?q?=E7=B1=B3=E7=A0=81=E5=85=AC=E6=96=A4=EF=BC=89=20=E5=86=8D?= =?UTF-8?q?=E5=8A=A0=E4=B8=80=E4=B8=AA=20=E6=A3=80=E9=AA=8C=E7=A0=81?= =?UTF-8?q?=E5=8D=95=EF=BC=88=E7=B1=B3=E7=A0=81=EF=BC=89=EF=BC=8C=E6=A3=80?= =?UTF-8?q?=E9=AA=8C=E6=8C=87=E7=A4=BA=E5=8D=95=20=E5=93=81=E5=90=8D?= =?UTF-8?q?=E4=B8=AD=E6=96=87=20=E6=94=B9=E4=B8=BA=20=E5=93=81=E5=90=8D/?= =?UTF-8?q?=E8=A7=84=E6=A0=BC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 复合检验管理/U_GetDllForm.pas | 8 ++-- 复合检验管理/U_JYOrderCDOne.dfm | 79 +++++++++++++++++---------------- 复合检验管理/U_JYOrderCDOne.pas | 5 ++- 复合检验管理/U_OrderInPut.dfm | 6 +-- 4 files changed, 50 insertions(+), 48 deletions(-) diff --git a/复合检验管理/U_GetDllForm.pas b/复合检验管理/U_GetDllForm.pas index 8542b9b..abd292a 100644 --- a/复合检验管理/U_GetDllForm.pas +++ b/复合检验管理/U_GetDllForm.pas @@ -70,11 +70,11 @@ begin SetLength(user, 255); SetLength(pswd, 255); - server := '121.40.233.100,7781'; + server := '101.132.143.144,7781'; // server:='.'; - dtbase := 'rtjydata'; - user := 'sa'; - pswd := 'rightsoft@123'; + dtbase := 'jingzhimingjydata'; + user := 'rtsa'; + pswd := 'rightsoft@5740'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; IF trim(DataBaseStr)<>''then diff --git a/复合检验管理/U_JYOrderCDOne.dfm b/复合检验管理/U_JYOrderCDOne.dfm index 38f0800..8a3e137 100644 --- a/复合检验管理/U_JYOrderCDOne.dfm +++ b/复合检验管理/U_JYOrderCDOne.dfm @@ -21,8 +21,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1384 - Height = 62 + Width = 1392 + Height = 92 AutoSize = True ButtonHeight = 30 ButtonWidth = 119 @@ -101,27 +101,28 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Top = 0 Caption = #25209#37327#20462#25913#32568#21495 ImageIndex = 54 + Wrap = True OnClick = ToolButton11Click end object TBDW: TToolButton - Left = 608 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 ImageIndex = 54 OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 719 - Top = 0 + Left = 111 + Top = 30 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 ImageIndex = 54 OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 830 - Top = 0 + Left = 222 + Top = 30 AutoSize = True Caption = #25209#37327#20928#37325#36716#38271#24230 ImageIndex = 54 @@ -129,23 +130,22 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton13Click end object ToolButton8: TToolButton - Left = 953 - Top = 0 + Left = 345 + Top = 30 AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 ImageIndex = 54 OnClick = ToolButton8Click end object ToolButton14: TToolButton - Left = 1064 - Top = 0 + Left = 456 + Top = 30 Caption = #25209#37327#20462#25913#31995#25968 ImageIndex = 54 - Wrap = True OnClick = ToolButton14Click end object ToolButton1: TToolButton - Left = 0 + Left = 575 Top = 30 AutoSize = True Caption = #25171#21360#26631#31614 @@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 87 + Left = 662 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -162,33 +162,34 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 174 + Left = 749 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 ImageIndex = 12 + Wrap = True Visible = False OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 273 - Top = 30 + Left = 0 + Top = 60 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 ImageIndex = 12 OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 384 - Top = 30 + Left = 111 + Top = 60 AutoSize = True Caption = #25171#21360 ImageIndex = 12 OnClick = ToolButton5Click end object Edit3: TEdit - Left = 447 - Top = 30 + Left = 174 + Top = 60 Width = 68 Height = 30 Font.Charset = GB2312_CHARSET @@ -202,8 +203,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnKeyPress = Edit3KeyPress end object ComboBox1: TComboBox - Left = 515 - Top = 33 + Left = 242 + Top = 63 Width = 149 Height = 24 Style = csDropDownList @@ -227,8 +228,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #26816#39564#30721#21333) end object Edit4: TEdit - Left = 664 - Top = 30 + Left = 391 + Top = 60 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET @@ -241,32 +242,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Visible = False end object ToolButton12: TToolButton - Left = 785 - Top = 30 + Left = 512 + Top = 60 Caption = #20462#25913#30721#21333 ImageIndex = 54 Visible = False OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 904 - Top = 30 + Left = 631 + Top = 60 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 991 - Top = 30 + Left = 718 + Top = 60 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 1054 - Top = 30 + Left = 781 + Top = 60 AutoSize = True Caption = #20851#38381 ImageIndex = 55 @@ -275,8 +276,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object Panel1: TPanel Left = 0 - Top = 62 - Width = 1384 + Top = 92 + Width = 1392 Height = 88 Align = alTop BevelInner = bvRaised @@ -821,9 +822,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object cxGrid1: TcxGrid Left = 0 - Top = 150 - Width = 1384 - Height = 568 + Top = 180 + Width = 1392 + Height = 546 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/复合检验管理/U_JYOrderCDOne.pas b/复合检验管理/U_JYOrderCDOne.pas index a6918fb..3b221f2 100644 --- a/复合检验管理/U_JYOrderCDOne.pas +++ b/复合检验管理/U_JYOrderCDOne.pas @@ -11,7 +11,8 @@ 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, dxSkinsDefaultPainters, + dxSkinscxPCPainter; type TfrmJYOrderCDOne = class(TForm) @@ -1599,7 +1600,7 @@ begin end; end; - if (trim(ComboBox1.Text) = '뵥') then + if (trim(ComboBox1.Text) = '뵥(빫)') or (trim(ComboBox1.Text) = '뵥()') then begin with ADOQueryTemp do begin diff --git a/复合检验管理/U_OrderInPut.dfm b/复合检验管理/U_OrderInPut.dfm index 1393b1f..51254c2 100644 --- a/复合检验管理/U_OrderInPut.dfm +++ b/复合检验管理/U_OrderInPut.dfm @@ -1,6 +1,6 @@ object frmOrderInPut: TfrmOrderInPut - Left = 184 - Top = 291 + Left = 297 + Top = 262 Width = 1379 Height = 761 Caption = #25351#31034#21333#24405#20837 @@ -1674,7 +1674,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 74 end object v1PRTCodeName: TcxGridDBColumn - Caption = #21697#21517#20013#25991 + Caption = #21697#21517'/'#35268#26684 DataBinding.FieldName = 'PRTCodeName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = <