From e500d3af26d32b8ad50a218e1bd86ae26c5459a2 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 14 Mar 2025 14:59:53 +0800 Subject: [PATCH] 111 --- A01基础公司管理/Company.identcache | Bin 2742 -> 2748 bytes A01基础公司管理/ProjectGroup1.groupproj.local | 2 +- A01基础公司管理/U_CustInput.dfm | 139 +++++++++++------- A01基础公司管理/U_CustInput.pas | 26 +--- A01基础公司管理/U_Customer.dfm | 16 ++ A01基础公司管理/U_Customer.pas | 2 + A01基础公司管理/testDll.identcache | Bin 180 -> 178 bytes 7 files changed, 114 insertions(+), 71 deletions(-) diff --git a/A01基础公司管理/Company.identcache b/A01基础公司管理/Company.identcache index 0b41378d23bc4d1cfe0369f0247b60234d1a094a..b8299c0a654624e1b85f4d301cf8ede8ac6e6792 100644 GIT binary patch delta 151 zcmdlcx<_<_71QJzmY~V}?AjCcB_=a6KZ7vECePs%pZuKJX7W=;^M1vMS?MKvH-i*M13(1=hEVm{M^){$rl(!C!b@f1gqBP;GO)0b=qWi*4W8aY*T?) oadQW|0^?*WCRdp0E)a70h$;?kZhz{CNz;T>o3 - + diff --git a/A01基础公司管理/U_CustInput.dfm b/A01基础公司管理/U_CustInput.dfm index 0857f32..68158c7 100644 --- a/A01基础公司管理/U_CustInput.dfm +++ b/A01基础公司管理/U_CustInput.dfm @@ -60,7 +60,7 @@ inherited frmCustInput: TfrmCustInput Left = 0 Top = 30 Width = 1143 - Height = 350 + Height = 442 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -70,121 +70,137 @@ inherited frmCustInput: TfrmCustInput ParentColor = False ParentCtl3D = False TabOrder = 1 + ExplicitLeft = -1 + ExplicitTop = 26 object Label2: TLabel - Left = 17 + Left = 14 Top = 12 Width = 32 Height = 21 Caption = #32534#21495 end object Label6: TLabel - Left = 17 + Left = 14 Top = 47 Width = 32 Height = 21 Caption = #20840#31216 end object Label7: TLabel - Left = 17 - Top = 252 + Left = 14 + Top = 332 Width = 32 Height = 21 Caption = #22791#27880 end object Label1: TLabel - Left = 304 + Left = 343 Top = 12 Width = 32 Height = 21 Caption = #31616#31216 end object Label4: TLabel - Left = 17 - Top = 219 - Width = 32 + Left = 14 + Top = 84 + Width = 64 Height = 21 - Caption = #22320#22336 + Caption = #23458#25143#22320#22336 end object Label8: TLabel - Left = 17 - Top = 86 + Left = 14 + Top = 129 Width = 32 Height = 21 Caption = #22269#23478 end object Label10: TLabel - Left = 597 + Left = 639 Top = 47 Width = 32 Height = 21 Caption = #31561#32423 end object Label3: TLabel - Left = 597 + Left = 639 Top = 12 Width = 32 Height = 21 Caption = #31867#22411 end object Label5: TLabel - Left = 274 - Top = 86 + Left = 341 + Top = 129 Width = 64 Height = 21 Caption = #19978#32423#21333#20301 end object Label9: TLabel - Left = 17 - Top = 136 + Left = 14 + Top = 172 Width = 32 Height = 21 Caption = #31246#21495 end object Label11: TLabel - Left = 274 - Top = 136 + Left = 341 + Top = 172 Width = 64 Height = 21 Caption = #24320#25143#38134#34892 end object Label12: TLabel - Left = 17 - Top = 175 + Left = 14 + Top = 213 Width = 32 Height = 21 Caption = #34892#21495 end object Label13: TLabel - Left = 274 - Top = 175 + Left = 341 + Top = 213 Width = 64 Height = 21 Caption = #38134#34892#36134#21495 end + object Label14: TLabel + Left = 14 + Top = 285 + Width = 64 + Height = 21 + Caption = #38134#34892#22320#22336 + end + object Label15: TLabel + Left = 14 + Top = 251 + Width = 98 + Height = 21 + Caption = 'SWIFT CODE' + end object CoName: TcxTextEdit Tag = 2 - Left = 55 + Left = 124 Top = 43 TabOrder = 1 Width = 487 end object CoAbbrName: TcxTextEdit Tag = 2 - Left = 342 + Left = 412 Top = 8 TabOrder = 2 Width = 200 end object CoCode: TcxTextEdit Tag = 2 - Left = 55 + Left = 124 Top = 8 TabOrder = 0 Width = 200 end object CoBusinessType: TcxButtonEdit Tag = 2 - Left = 637 + Left = 679 Top = 8 Hint = 'CoBusinessType/'#23458#25143#31867#22411 Properties.Buttons = < @@ -201,8 +217,8 @@ inherited frmCustInput: TfrmCustInput end object cocountry: TcxButtonEdit Tag = 2 - Left = 55 - Top = 80 + Left = 124 + Top = 125 Hint = 'CoCountry/'#22269#23478 Properties.Buttons = < item @@ -218,7 +234,7 @@ inherited frmCustInput: TfrmCustInput end object CoLevel: TcxComboBox Tag = 2 - Left = 635 + Left = 679 Top = 43 Properties.Items.Strings = ( 'A' @@ -229,8 +245,8 @@ inherited frmCustInput: TfrmCustInput end object ParentCoName: TcxButtonEdit Tag = 2 - Left = 344 - Top = 80 + Left = 411 + Top = 125 Hint = 'CoBusinessType/'#23458#25143#31867#22411 Properties.Buttons = < item @@ -246,30 +262,30 @@ inherited frmCustInput: TfrmCustInput end object CoAddress: TcxTextEdit Tag = 2 - Left = 55 - Top = 213 + Left = 124 + Top = 78 TabOrder = 7 - Width = 780 + Width = 753 end object CoNote: TcxMemo Tag = 2 - Left = 55 - Top = 252 + Left = 124 + Top = 329 TabOrder = 8 Height = 77 - Width = 780 + Width = 755 end object ShuiNo: TcxTextEdit Tag = 2 - Left = 55 - Top = 130 + Left = 124 + Top = 168 TabOrder = 9 Width = 198 end object BankName: TcxButtonEdit Tag = 2 - Left = 344 - Top = 130 + Left = 411 + Top = 168 Hint = 'BankName/'#24320#25143#38134#34892 Properties.Buttons = < item @@ -285,35 +301,52 @@ inherited frmCustInput: TfrmCustInput end object BankNo: TcxTextEdit Tag = 2 - Left = 55 - Top = 169 + Left = 124 + Top = 209 TabOrder = 11 Width = 198 end object BankCode: TcxTextEdit Tag = 2 - Left = 344 - Top = 169 + Left = 411 + Top = 209 TabOrder = 12 Width = 198 end + object YHDZ: TcxTextEdit + Tag = 2 + Left = 124 + Top = 282 + TabOrder = 13 + Width = 753 + end + object SC: TcxTextEdit + Tag = 2 + Left = 124 + Top = 247 + TabOrder = 14 + Width = 753 + end end object Panel1: TPanel [2] Left = 0 - Top = 380 + Top = 472 Width = 1143 - Height = 263 + Height = 171 Align = alClient Caption = 'Panel1' TabOrder = 2 + ExplicitTop = 380 + ExplicitHeight = 263 object Panel3: TPanel Left = 1 Top = 1 Width = 1141 - Height = 261 + Height = 169 Align = alClient Caption = 'Panel1' TabOrder = 0 + ExplicitHeight = 261 object ToolBar3: TToolBar Tag = 1 Left = 1 @@ -360,10 +393,11 @@ inherited frmCustInput: TfrmCustInput Left = 1 Top = 31 Width = 1139 - Height = 229 + Height = 137 Align = alClient BorderStyle = cxcbsNone TabOrder = 1 + ExplicitHeight = 229 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -466,6 +500,9 @@ inherited frmCustInput: TfrmCustInput end inherited cxImageList_bar: TcxImageList FormatVersion = 1 + Left = 1069 + Top = 56 + DesignInfo = 3671085 end object ADOQueryTemp: TADOQuery Connection = DataLink_Company.ADOLink diff --git a/A01基础公司管理/U_CustInput.pas b/A01基础公司管理/U_CustInput.pas index a9797cc..c5b5f83 100644 --- a/A01基础公司管理/U_CustInput.pas +++ b/A01基础公司管理/U_CustInput.pas @@ -13,25 +13,9 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, dxDateRanges, - dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, - cxMemo, - - - - - - - - - - - - - - - dxScrollbarAnnotations, - cxImageList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, + Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, cxImageList, + dxSkinsCore, dxSkinsDefaultPainters; type TfrmCustInput = class(TfrmBaseInput) @@ -88,6 +72,10 @@ type BankNo: TcxTextEdit; Label13: TLabel; BankCode: TcxTextEdit; + Label14: TLabel; + YHDZ: TcxTextEdit; + Label15: TLabel; + SC: TcxTextEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A01基础公司管理/U_Customer.dfm b/A01基础公司管理/U_Customer.dfm index 5d217b5..3bbcea3 100644 --- a/A01基础公司管理/U_Customer.dfm +++ b/A01基础公司管理/U_Customer.dfm @@ -379,6 +379,22 @@ inherited frmCustomer: TfrmCustomer Options.ExpressionEditing = False Width = 100 end + object Tv1Column13: TcxGridDBColumn + Caption = 'SWIFT CODE' + DataBinding.FieldName = 'SC' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column12: TcxGridDBColumn + Caption = #38134#34892#22320#22336 + DataBinding.FieldName = 'YHDZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 diff --git a/A01基础公司管理/U_Customer.pas b/A01基础公司管理/U_Customer.pas index 334057e..578c213 100644 --- a/A01基础公司管理/U_Customer.pas +++ b/A01基础公司管理/U_Customer.pas @@ -86,6 +86,8 @@ type Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A01基础公司管理/testDll.identcache b/A01基础公司管理/testDll.identcache index 530751fae0a58a52859cbccc7f956400efeb0767..8107a169b5cb2dffb0aea7c246345caf9574a6cb 100644 GIT binary patch delta 43 ncmdnOxQUUKiGhK^b7GtVyLVz{L}p~-L|yTTbHy3GQG^Tt`^5}d delta 42 mcmdnQxP_6GiGhK^XJWJhM`USgL}p@M`oty!MlTcr9X$a0C=9Ux