📄 b家庭成员信息.frm
字号:
VERSION 5.00
Begin VB.Form B家庭成员信息
Caption = "成员信息"
ClientHeight = 3945
ClientLeft = 60
ClientTop = 345
ClientWidth = 8250
LinkTopic = "Form1"
ScaleHeight = 3945
ScaleWidth = 8250
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame
Caption = "成员信息"
Height = 3735
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 8055
Begin VB.Frame FrameList
Caption = "学生家庭列表"
Height = 3375
Left = 120
TabIndex = 10
Top = 240
Width = 2055
Begin VB.ComboBox CboStu
Height = 315
Left = 120
TabIndex = 12
Top = 480
Width = 1815
End
Begin VB.ListBox ListStu
Height = 1815
ItemData = "B家庭成员信息.frx":0000
Left = 120
List = "B家庭成员信息.frx":0002
TabIndex = 11
Top = 1440
Width = 1815
End
Begin VB.Label LblNotes
Height = 615
Left = 120
TabIndex = 23
Top = 840
Width = 1815
End
Begin VB.Label Label9
Caption = "选择学生："
Height = 255
Left = 240
TabIndex = 13
Top = 240
Width = 1095
End
End
Begin VB.Frame FrameInfo
Caption = "成员信息"
Height = 3375
Left = 2280
TabIndex = 1
Top = 240
Width = 5655
Begin VB.TextBox txtItem
Height = 375
Index = 1
Left = 1080
MaxLength = 50
TabIndex = 22
Top = 1200
Width = 1695
End
Begin VB.TextBox txtItem
Height = 375
Index = 0
Left = 1080
MaxLength = 50
TabIndex = 21
Top = 240
Width = 1695
End
Begin VB.Frame Frame2
Height = 645
Index = 0
Left = 120
TabIndex = 14
Top = 2640
Width = 5475
Begin VB.CommandButton CmdModify
BackColor = &H00C0C0C0&
Caption = "修改"
Height = 360
Left = 1065
Style = 1 'Graphical
TabIndex = 20
Top = 195
Width = 800
End
Begin VB.CommandButton CmdExit
BackColor = &H00C0C0C0&
Caption = "退出"
Height = 360
Left = 4245
Style = 1 'Graphical
TabIndex = 19
Top = 195
Width = 800
End
Begin VB.CommandButton CmdCancel
BackColor = &H00C0C0C0&
Caption = "取消"
Height = 360
Left = 3450
Style = 1 'Graphical
TabIndex = 18
Top = 195
Width = 800
End
Begin VB.CommandButton CmdDelete
BackColor = &H00C0C0C0&
Caption = "删除"
Height = 360
Left = 1860
Style = 1 'Graphical
TabIndex = 17
Top = 195
Width = 800
End
Begin VB.CommandButton CmdAdd
BackColor = &H00C0C0C0&
Caption = "添加"
Height = 360
Left = 255
Style = 1 'Graphical
TabIndex = 16
Top = 195
Width = 800
End
Begin VB.CommandButton CmdSave
BackColor = &H00C0C0C0&
Caption = "保存"
Enabled = 0 'False
Height = 360
Left = 2650
Style = 1 'Graphical
TabIndex = 15
Top = 195
Width = 800
End
End
Begin VB.TextBox txtItem
Height = 375
Index = 2
Left = 1080
MaxLength = 18
TabIndex = 2
Top = 1680
Width = 2535
End
Begin VB.TextBox txtItem
Height = 375
Index = 3
Left = 1080
MaxLength = 50
TabIndex = 3
Top = 2160
Width = 2535
End
Begin VB.ComboBox CboSelect
Height = 315
Left = 1080
TabIndex = 4
Top = 720
Width = 1575
End
Begin VB.Label Label5
Caption = "成员姓名："
Height = 255
Index = 0
Left = 120
TabIndex = 9
Top = 360
Width = 1215
End
Begin VB.Label Label5
Caption = "关系："
Height = 255
Index = 1
Left = 480
TabIndex = 8
Top = 840
Width = 615
End
Begin VB.Label Label6
Caption = "所在单位："
Height = 375
Index = 1
Left = 120
TabIndex = 7
Top = 1800
Width = 975
End
Begin VB.Label Label7
Caption = "职务："
Height = 375
Index = 1
Left = 480
TabIndex = 6
Top = 1320
Width = 735
End
Begin VB.Label Label5
Caption = "联系方式："
Height = 255
Index = 2
Left = 120
TabIndex = 5
Top = 2280
Width = 1335
End
End
End
End
Attribute VB_Name = "B家庭成员信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset
Dim SQL As String
Dim msg As String
Dim Index As Integer
Dim strClassNo As String
Dim flag As String '判断是新增加的记录还是修改记录
Private Sub FixData()
Dim stuNo As String
Dim memberName As String
'显示学生具体信息
If CboStu.ListCount > 0 And ListStu.ListCount > 0 Then
stuNo = Left(Trim(CboStu.Text), 8)
memberName = Left(Trim(ListStu.Text), InStr(Trim(ListStu.Text), ":") - 1)
Else
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -