Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-03-14 14:59:53 +08:00
parent bb97dac207
commit e500d3af26
7 changed files with 114 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

2
A01基础公司管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szYueXiang\A01基础公司管理\Company.dproj"/> <Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\Company.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

139
A01基础公司管理/U_CustInput.dfm
View File

@ -60,7 +60,7 @@ inherited frmCustInput: TfrmCustInput
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1143 Width = 1143
Height = 350 Height = 442
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -70,121 +70,137 @@ inherited frmCustInput: TfrmCustInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 26
object Label2: TLabel object Label2: TLabel
Left = 17 Left = 14
Top = 12 Top = 12
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #32534#21495 Caption = #32534#21495
end end
object Label6: TLabel object Label6: TLabel
Left = 17 Left = 14
Top = 47 Top = 47
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #20840#31216 Caption = #20840#31216
end end
object Label7: TLabel object Label7: TLabel
Left = 17 Left = 14
Top = 252 Top = 332
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22791#27880 Caption = #22791#27880
end end
object Label1: TLabel object Label1: TLabel
Left = 304 Left = 343
Top = 12 Top = 12
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31616#31216 Caption = #31616#31216
end end
object Label4: TLabel object Label4: TLabel
Left = 17 Left = 14
Top = 219 Top = 84
Width = 32 Width = 64
Height = 21 Height = 21
Caption = #22320#22336 Caption = #23458#25143#22320#22336
end end
object Label8: TLabel object Label8: TLabel
Left = 17 Left = 14
Top = 86 Top = 129
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22269#23478 Caption = #22269#23478
end end
object Label10: TLabel object Label10: TLabel
Left = 597 Left = 639
Top = 47 Top = 47
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31561#32423 Caption = #31561#32423
end end
object Label3: TLabel object Label3: TLabel
Left = 597 Left = 639
Top = 12 Top = 12
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31867#22411 Caption = #31867#22411
end end
object Label5: TLabel object Label5: TLabel
Left = 274 Left = 341
Top = 86 Top = 129
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #19978#32423#21333#20301 Caption = #19978#32423#21333#20301
end end
object Label9: TLabel object Label9: TLabel
Left = 17 Left = 14
Top = 136 Top = 172
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31246#21495 Caption = #31246#21495
end end
object Label11: TLabel object Label11: TLabel
Left = 274 Left = 341
Top = 136 Top = 172
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #24320#25143#38134#34892 Caption = #24320#25143#38134#34892
end end
object Label12: TLabel object Label12: TLabel
Left = 17 Left = 14
Top = 175 Top = 213
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #34892#21495 Caption = #34892#21495
end end
object Label13: TLabel object Label13: TLabel
Left = 274 Left = 341
Top = 175 Top = 213
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #38134#34892#36134#21495 Caption = #38134#34892#36134#21495
end 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 object CoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 55 Left = 124
Top = 43 Top = 43
TabOrder = 1 TabOrder = 1
Width = 487 Width = 487
end end
object CoAbbrName: TcxTextEdit object CoAbbrName: TcxTextEdit
Tag = 2 Tag = 2
Left = 342 Left = 412
Top = 8 Top = 8
TabOrder = 2 TabOrder = 2
Width = 200 Width = 200
end end
object CoCode: TcxTextEdit object CoCode: TcxTextEdit
Tag = 2 Tag = 2
Left = 55 Left = 124
Top = 8 Top = 8
TabOrder = 0 TabOrder = 0
Width = 200 Width = 200
end end
object CoBusinessType: TcxButtonEdit object CoBusinessType: TcxButtonEdit
Tag = 2 Tag = 2
Left = 637 Left = 679
Top = 8 Top = 8
Hint = 'CoBusinessType/'#23458#25143#31867#22411 Hint = 'CoBusinessType/'#23458#25143#31867#22411
Properties.Buttons = < Properties.Buttons = <
@ -201,8 +217,8 @@ inherited frmCustInput: TfrmCustInput
end end
object cocountry: TcxButtonEdit object cocountry: TcxButtonEdit
Tag = 2 Tag = 2
Left = 55 Left = 124
Top = 80 Top = 125
Hint = 'CoCountry/'#22269#23478 Hint = 'CoCountry/'#22269#23478
Properties.Buttons = < Properties.Buttons = <
item item
@ -218,7 +234,7 @@ inherited frmCustInput: TfrmCustInput
end end
object CoLevel: TcxComboBox object CoLevel: TcxComboBox
Tag = 2 Tag = 2
Left = 635 Left = 679
Top = 43 Top = 43
Properties.Items.Strings = ( Properties.Items.Strings = (
'A' 'A'
@ -229,8 +245,8 @@ inherited frmCustInput: TfrmCustInput
end end
object ParentCoName: TcxButtonEdit object ParentCoName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 344 Left = 411
Top = 80 Top = 125
Hint = 'CoBusinessType/'#23458#25143#31867#22411 Hint = 'CoBusinessType/'#23458#25143#31867#22411
Properties.Buttons = < Properties.Buttons = <
item item
@ -246,30 +262,30 @@ inherited frmCustInput: TfrmCustInput
end end
object CoAddress: TcxTextEdit object CoAddress: TcxTextEdit
Tag = 2 Tag = 2
Left = 55 Left = 124
Top = 213 Top = 78
TabOrder = 7 TabOrder = 7
Width = 780 Width = 753
end end
object CoNote: TcxMemo object CoNote: TcxMemo
Tag = 2 Tag = 2
Left = 55 Left = 124
Top = 252 Top = 329
TabOrder = 8 TabOrder = 8
Height = 77 Height = 77
Width = 780 Width = 755
end end
object ShuiNo: TcxTextEdit object ShuiNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 55 Left = 124
Top = 130 Top = 168
TabOrder = 9 TabOrder = 9
Width = 198 Width = 198
end end
object BankName: TcxButtonEdit object BankName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 344 Left = 411
Top = 130 Top = 168
Hint = 'BankName/'#24320#25143#38134#34892 Hint = 'BankName/'#24320#25143#38134#34892
Properties.Buttons = < Properties.Buttons = <
item item
@ -285,35 +301,52 @@ inherited frmCustInput: TfrmCustInput
end end
object BankNo: TcxTextEdit object BankNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 55 Left = 124
Top = 169 Top = 209
TabOrder = 11 TabOrder = 11
Width = 198 Width = 198
end end
object BankCode: TcxTextEdit object BankCode: TcxTextEdit
Tag = 2 Tag = 2
Left = 344 Left = 411
Top = 169 Top = 209
TabOrder = 12 TabOrder = 12
Width = 198 Width = 198
end 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 end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
Top = 380 Top = 472
Width = 1143 Width = 1143
Height = 263 Height = 171
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 2 TabOrder = 2
ExplicitTop = 380
ExplicitHeight = 263
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1141 Width = 1141
Height = 261 Height = 169
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 261
object ToolBar3: TToolBar object ToolBar3: TToolBar
Tag = 1 Tag = 1
Left = 1 Left = 1
@ -360,10 +393,11 @@ inherited frmCustInput: TfrmCustInput
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1139 Width = 1139
Height = 229 Height = 137
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 1 TabOrder = 1
ExplicitHeight = 229
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -466,6 +500,9 @@ inherited frmCustInput: TfrmCustInput
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 1069
Top = 56
DesignInfo = 3671085
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink

26
A01基础公司管理/U_CustInput.pas
View File

@ -13,25 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, cxImageList,
cxMemo, dxSkinsCore, dxSkinsDefaultPainters;
dxScrollbarAnnotations,
cxImageList;
type type
TfrmCustInput = class(TfrmBaseInput) TfrmCustInput = class(TfrmBaseInput)
@ -88,6 +72,10 @@ type
BankNo: TcxTextEdit; BankNo: TcxTextEdit;
Label13: TLabel; Label13: TLabel;
BankCode: TcxTextEdit; BankCode: TcxTextEdit;
Label14: TLabel;
YHDZ: TcxTextEdit;
Label15: TLabel;
SC: TcxTextEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

16
A01基础公司管理/U_Customer.dfm
View File

@ -379,6 +379,22 @@ inherited frmCustomer: TfrmCustomer
Options.ExpressionEditing = False Options.ExpressionEditing = False
Width = 100 Width = 100
end 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 end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1

2
A01基础公司管理/U_Customer.pas
View File

@ -86,6 +86,8 @@ type
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

BIN
A01基础公司管理/testDll.identcache
View File

Binary file not shown.