📄 frmborrower.frm
字号:
VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "Vsflex7.ocx"
Begin VB.Form frmBorrower
BorderStyle = 1 'Fixed Single
Caption = "Borrower"
ClientHeight = 4065
ClientLeft = 45
ClientTop = 330
ClientWidth = 10425
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4065
ScaleWidth = 10425
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame3
Height = 855
Left = 120
TabIndex = 5
Top = 3120
Width = 10215
Begin VB.CommandButton cmdlClose
Caption = "Cl&ose"
Height = 495
Left = 9360
TabIndex = 11
Top = 240
Width = 735
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 495
Left = 3000
TabIndex = 10
Top = 240
Width = 735
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
Height = 495
Left = 2280
TabIndex = 9
Top = 240
Width = 735
End
Begin VB.CommandButton cmdDelete
Caption = "&Delete"
Height = 495
Left = 1560
TabIndex = 8
Top = 240
Width = 735
End
Begin VB.CommandButton cmdEdit
Caption = "&Edit"
Height = 495
Left = 840
TabIndex = 7
Top = 240
Width = 735
End
Begin VB.CommandButton cmdAdd
Caption = "&Add"
Height = 495
Left = 120
TabIndex = 6
Top = 240
Width = 735
End
End
Begin VB.Frame Frame2
Caption = "Borrower Details"
Height = 3015
Left = 4200
TabIndex = 2
Top = 120
Width = 6135
Begin VB.ComboBox cboYear
Height = 315
ItemData = "frmBorrower.frx":0000
Left = 3120
List = "frmBorrower.frx":0010
Style = 2 'Dropdown List
TabIndex = 27
Top = 2520
Width = 1935
End
Begin VB.TextBox txtSection
Height = 315
Left = 840
TabIndex = 25
Top = 2520
Width = 1575
End
Begin VB.TextBox txtContactNumbers
Height = 315
Left = 1560
TabIndex = 23
Top = 2040
Width = 4455
End
Begin VB.TextBox txtAddress
Height = 315
Left = 840
TabIndex = 21
Top = 1560
Width = 5175
End
Begin VB.TextBox txtLastName
Height = 315
Left = 4320
TabIndex = 16
Top = 840
Width = 1695
End
Begin VB.TextBox txtMiddleName
Height = 315
Left = 2520
TabIndex = 15
Top = 840
Width = 1695
End
Begin VB.TextBox txtFirstName
Height = 315
Left = 720
TabIndex = 14
Top = 840
Width = 1695
End
Begin VB.ComboBox cboType
Height = 315
ItemData = "frmBorrower.frx":0028
Left = 3840
List = "frmBorrower.frx":0032
Style = 2 'Dropdown List
TabIndex = 12
Top = 360
Width = 1935
End
Begin VB.Label lblID
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 720
TabIndex = 28
Top = 360
Width = 2295
End
Begin VB.Label lblYear
Caption = "Year:"
Height = 255
Left = 2520
TabIndex = 26
Top = 2580
Width = 495
End
Begin VB.Label lblSection
Caption = "Section:"
Height = 255
Left = 120
TabIndex = 24
Top = 2580
Width = 615
End
Begin VB.Label Label8
Caption = "Contact Numbers:"
Height = 255
Left = 120
TabIndex = 22
Top = 2100
Width = 1455
End
Begin VB.Label Label7
Caption = "Address:"
Height = 255
Left = 120
TabIndex = 20
Top = 1620
Width = 615
End
Begin VB.Label Label6
Caption = "Last Name"
Height = 255
Left = 4440
TabIndex = 19
Top = 1200
Width = 1095
End
Begin VB.Label Label5
Caption = "Middle Name"
Height = 255
Left = 2520
TabIndex = 18
Top = 1200
Width = 975
End
Begin VB.Label Label4
Caption = "First Name"
Height = 255
Left = 720
TabIndex = 17
Top = 1200
Width = 855
End
Begin VB.Label Label3
Caption = "Name:"
Height = 255
Left = 120
TabIndex = 13
Top = 900
Width = 495
End
Begin VB.Label Label2
Caption = "Type:"
Height = 255
Left = 3240
TabIndex = 4
Top = 420
Width = 495
End
Begin VB.Label Label1
Caption = "ID:"
Height = 255
Left = 240
TabIndex = 3
Top = 420
Width = 255
End
End
Begin VB.Frame Frame1
Caption = "List of Borrowers"
Height = 3015
Left = 120
TabIndex = 0
Top = 120
Width = 3855
Begin VSFlex7Ctl.VSFlexGrid grdBorrower
Height = 2535
Left = 120
TabIndex = 1
Top = 240
Width = 3615
_cx = 6376
_cy = 4471
_ConvInfo = 1
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = -2147483636
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 2
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= 0 'False
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 1
Cols = 3
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = -1 'True
FormatString = $"frmBorrower.frx":0049
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 1
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
End
End
Attribute VB_Name = "frmBorrower"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Enum colBorrower
colID = 0
colFirstName = 1
colLastName = 2
End Enum
Dim enumDBOperation As DatabaseOperation
Private Function CreateNewBorrowerID() As Integer
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open gblConnectionString
With rs
Set .ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "SELECT MAX(BorrowerID) as BorrowerID FROM Borrower"
If .RecordCount > 0 Then
CreateNewBorrowerID = rs!BorrowerID + 1
Else
CreateNewBorrowerID = 1
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -