📄 formain.frm
字号:
Width = 1515
End
Begin VB.Image ComFind
Height = 510
Left = 8250
Picture = "ForMain.frx":E012
Top = 525
Width = 780
End
Begin VB.Image Image10
Height = 495
Left = 2460
Picture = "ForMain.frx":F50C
Top = 525
Width = 1185
End
Begin VB.Image Image9
Height = 705
Left = 0
Picture = "ForMain.frx":1143E
Top = 525
Width = 2385
End
Begin VB.Image Image5
Height = 525
Left = 2235
Picture = "ForMain.frx":16CA0
Top = 0
Width = 6840
End
Begin VB.Image ComAdd
Height = 510
Left = 0
Picture = "ForMain.frx":227EA
ToolTipText = "添加同学资料"
Top = 15
Width = 930
End
Begin VB.Image Image4
Height = 510
Left = 930
Picture = "ForMain.frx":24124
Top = 15
Width = 1305
End
Begin VB.Menu A_File
Caption = "文件(&F)"
Begin VB.Menu A_F_R
Caption = "重新登录(&R)"
End
Begin VB.Menu A_F_Exit
Caption = "退出(&E)"
End
End
Begin VB.Menu A_T
Caption = "设置(&T)"
Begin VB.Menu A_T_User
Caption = "用户管理(&U)"
End
Begin VB.Menu A_T_Pass
Caption = "修改密码(&P)"
End
End
Begin VB.Menu A_Tool
Caption = "工具(&T)"
Begin VB.Menu A_Tool_ToFile
Caption = "导出所有信息到TXT文件(&F)"
End
Begin VB.Menu A_Tool_MoFile
Caption = "导出所有手机号码到TXT文件(&F)"
End
End
Begin VB.Menu A_Halp
Caption = "帮助(&H)"
Begin VB.Menu A_H_Aout
Caption = "关于...(&A)"
End
End
End
Attribute VB_Name = "ForMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Nodx As Node '注释：全局变量
Private Sub A_F_Exit_Click() '注释：单击"文件>退出"
End '注释：退出程序
End Sub
Private Sub A_F_R_Click()
ForLoad.Show
ForLoad.TextUser = ""
ForLoad.TextPass = ""
Unload Me
End Sub
Private Sub A_H_Aout_Click()
ForAbout.Show
End Sub
Private Sub A_T_Pass_Click()
ForPass.Show
End Sub
Private Sub A_T_User_Click()
If TextPower.Text <> "管理员" Then
MsgBox ("对不起,你不是系统管理员,不能进行此操作!")
Exit Sub
End If
ForUser.Show
End Sub
Private Sub A_Tool_MoFile_Click()
Dim PathTemp As String
Dim TempData As String
Dim TempData2 As String
Dim I As Integer '注释：局部变量 I 为数值型.
Dim K As Integer '注释：局部变量 K 为数值型.
Dim Temp As Integer '注释：局部变量 Temp 为数值型.
Dim TempKey As String '注释：局部变量 TempKey 为字符型.
Dim TempName As String '注释：局部变量 TempName为字符型.
Dim TID As String
On Error GoTo errhandle:
CommonDialog1.DialogTitle = "导出所有信息到TXT文件"
CommonDialog1.FileName = "所有手机号码"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
PathTemp = CommonDialog1.FileName
Else
Exit Sub '注释：跳出 Sub
End If
'------------------------------------------------
'注释：生成文件.
TempData2 = Chr(13) & Chr(10) & ""
TempData = ""
Adodc1.Refresh
Adodc1.Recordset.MoveFirst '指向第一条记录
For I = 1 To Adodc1.Recordset.RecordCount
'注释：查找用户
TempData2 = Chr(13) & Chr(10) & ""
TempData = ""
TID = Adodc1.Recordset("ID")
TempData = TempData & TempData2 & "姓名:"
TempData = TempData & Adodc1.Recordset("姓名")
TempData2 = Chr(13) & Chr(10) & " "
TempData = TempData & TempData2
TempData = TempData & TempData2 & "移动手机:"
TempData = TempData & Adodc1.Recordset("移动手机")
'------------------------------------------------
Open CommonDialog1.FileName & ".txt" For Append As #1
'注释：打开文件 CommonDialog1.FileName
Print #1, TempData
'注释： 写入信息.
Close #1
'注释：关闭文件.
'------------------------------------------------
Adodc1.Recordset.MoveNext '注释：指向下一条记录
DoEvents
'------------------------------------------------
TempData2 = Chr(13) & Chr(10) & ""
TempData = ""
Next I
Exit Sub
errhandle:
MsgBox Err.Description
End Sub
Private Sub A_Tool_ToFile_Click()
Dim PathTemp As String
Dim TempData As String
Dim TempData2 As String
Dim I As Integer '注释：局部变量 I 为数值型.
Dim K As Integer '注释：局部变量 K 为数值型.
Dim Temp As Integer '注释：局部变量 Temp 为数值型.
Dim TempKey As String '注释：局部变量 TempKey 为字符型.
Dim TempName As String '注释：局部变量 TempName为字符型.
Dim TID As String
On Error GoTo errhandle:
CommonDialog1.DialogTitle = "导出所有信息到TXT文件"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
PathTemp = CommonDialog1.FileName
Else
Exit Sub '注释：跳出 Sub
End If
'------------------------------------------------
'注释：生成文件.
TempData2 = Chr(13) & Chr(10) & ""
TempData = ""
Adodc1.Refresh
Adodc1.Recordset.MoveFirst '指向第一条记录
For I = 1 To Adodc1.Recordset.RecordCount
'注释：查找用户
TempData2 = Chr(13) & Chr(10) & ""
TempData = ""
TID = Adodc1.Recordset("ID")
TempData = TempData & TempData2 & "姓名:"
TempData = TempData & Adodc1.Recordset("姓名")
TempData2 = Chr(13) & Chr(10) & " "
TempData = TempData & TempData2
TempData = TempData & TempData2 & "性别:"
TempData = TempData & Adodc1.Recordset("性别")
TempData = TempData & TempData2 & "固定电话:"
TempData = TempData & Adodc1.Recordset("固定电话")
TempData = TempData & TempData2 & "移动手机:"
TempData = TempData & Adodc1.Recordset("移动手机")
TempData = TempData & TempData2 & "电子邮箱:"
TempData = TempData & Adodc1.Recordset("电子邮箱")
TempData = TempData & TempData2 & "QQ号码:"
TempData = TempData & Adodc1.Recordset("QQ号码")
K = 0
Adodc2.Refresh
Adodc2.Recordset.MoveFirst '指向第一条记录
For K = 1 To Adodc2.Recordset.RecordCount '记录的数量.
If Adodc2.Recordset("ID") = TID Then
TempData = TempData & TempData2 & "班级名称:"
TempData = TempData & Adodc2.Recordset("班级名称")
TempData = TempData & TempData2 & "专业名称:"
TempData = TempData & Adodc2.Recordset("专业名称")
TempData = TempData & TempData2 & "学号:"
TempData = TempData & Adodc2.Recordset("学号")
TempData = TempData & TempData2 & "寝室电话:"
TempData = TempData & Adodc2.Recordset("寝室电话")
TempData = TempData & TempData2 & "寝室地址:"
TempData = TempData & Adodc2.Recordset("寝室地址")
TempData = TempData & TempData2 & "职务:"
TempData = TempData & Adodc2.Recordset("职务")
Exit For '注释：跳出For
End If
Adodc2.Recordset.MoveNext '注释：指向下一条记录
DoEvents
Next K
K = 0
Adodc3.Refresh
Adodc3.Recordset.MoveFirst '指向第一条记录
For K = 1 To Adodc3.Recordset.RecordCount '记录的数量.
If Adodc3.Recordset("ID") = TID Then
TempData = TempData & TempData2 & "家庭地址:"
TempData = TempData & Adodc3.Recordset("家庭地址")
TempData = TempData & TempData2 & "家庭电话:"
TempData = TempData & Adodc3.Recordset("家庭电话")
TempData = TempData & TempData2 & "家庭邮编:"
TempData = TempData & Adodc3.Recordset("家庭邮编")
Exit For '注释：跳出For
End If
Adodc3.Recordset.MoveNext '注释：指向下一条记录
DoEvents
Next K
K = 0
Adodc4.Refresh
Adodc4.Recordset.MoveFirst '指向第一条记录
For K = 1 To Adodc4.Recordset.RecordCount '记录的数量.
If Adodc4.Recordset("ID") = TID Then
TempData = TempData & TempData2 & "生日:"
TempData = TempData & Adodc4.Recordset("生日")
TempData = TempData & TempData2 & "兴趣爱好:"
TempData = TempData & Adodc4.Recordset("兴趣爱好")
TempData = TempData & TempData2 & "备注:"
TempData = TempData & Adodc4.Recordset("备注")
Exit For '注释：跳出For
End If
Adodc4.Recordset.MoveNext '注释：指向下一条记录
DoEvents
Next K
'------------------------------------------------
Open CommonDialog1.FileName & ".txt" For Append As #1
'注释：打开文件 CommonDialog1.FileName
Print #1, TempData
'注释： 写入信息.
Close #1
'注释：关闭文件.
'------------------------------------------------
Adodc1.Recordset.MoveNext '注释：指向下一条记录
DoEvents
'------------------------------------------------
TempData2 = Chr(13) & Chr(10) & ""
TempData = ""
Next I
Exit Sub
errhandle:
MsgBox Err.Description
End Sub
Private Sub ComAdd_Click()
ForAdd.Show
End Sub
Private Sub ComDel_Click()
Dim I As Integer
Dim Temp As Integer
Dim TID As Integer
On Error GoTo errhandle:
If TextName.Text = "" Then
MsgBox ("要删除的用户名不能为空,请先找到所要删除的用户")
Exit Sub
End If
Temp = 0
'注释：查找用户
Adodc1.Refresh
Adodc1.Recordset.MoveFirst '指向第一条记录
For I = 1 To Adodc1.Recordset.RecordCount '记录的数量.
If TextID.Text = Adodc1.Recordset("ID") Then
Temp = Temp + 1
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DoEvents
Exit For '注释：跳出For
End If
Adodc1.Recordset.MoveNext '注释：指向下一条记录
DoEvents
Next I
If Temp = 0 Then
MsgBox ("删除失败!,找不到该用户名!请确认")
Exit Sub
End If
For I = 1 To Adodc2.Recordset.RecordCount '记录的数量.
If TextID.Text = Adodc2.Recordset("ID") Then
Temp = Temp + 1
Adodc2.Recordset.Delete
Adodc2.Recordset.Update
DoEvents
Exit For '注释：跳出For
End If
Adodc2.Recordset.MoveNext '注释：指向下一条记录
DoEvents
Next I
For I = 1 To Adodc3.Recordset.RecordCount '记录的数量.
If TextID.Text = Adodc3.Recordset("ID") Then
Temp = Temp + 1
Adodc3.Recordset.Delete
Adodc3.Recordset.Update
DoEvents
Exit For '注释：跳出For
End If
Adodc3.Recordset.MoveNext '注释：指向下一条记录
DoEvents
Next I
For I = 1 To Adodc4.Recordset.RecordCount '记录的数量.
If TextID.Text = Adodc4.Recordset("ID") Then
Temp = Temp + 1
Adodc4.Recordset.Delete
Adodc4.Recordset.Update
DoEvents
Exit For '注释：跳出For
End If
Adodc4.Recordset.MoveNext '注释：指向下一条记录
DoEvents
Next I
If Temp <> 4 Then
Temp = MsgBox("找不到该用户,请确定所要查找的用户名没错!!!", vbOKOnly, "错误")
'注释：提示用户:"找不到该用户,请确定所要查找的用户名没错!!!"
Else
MsgBox ("删除成功!")
End If
Exit Sub
errhandle:
MsgBox Err.Description
End Sub
Private Sub ComFind_Click()
Dim I As Integer '注释：局部变量 I 为数值型.
Dim K As Integer '注释：局部变量 k 为数值型.
Dim Temp As String '注释：局部变量 Temp 为字符型.
On Error GoTo errhandle:
If TextFind.Text <> "" Then '注释：检查所要查找的用户是否为空.
For I = 1 To Adodc1.Recordset.RecordCount '记录的数量.
TextName.Text = TextFind.Text
'注释：查找用户
Adodc1.Refresh
Adodc1.Recordset.MoveFirst '指向第一条记录
For K = 1 To Adodc1.Recordset.RecordCount '记录的数量.
If TextName.Text = Adodc1.Recordset("姓名") Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -