内容发布更新时间 : 2024/11/16 23:33:01星期一 下面是文章的全部内容请认真阅读。
创建完表后右击对应表名——“打开表”——“返回所有行”，可对表进行添加、修改、插入、删除等相应编辑操作，如图6.3所示：
2. 创建工程项目
(1)启动VB 6.0，出现VB6.0运行界面，如图6.4所示： (2)点击“文件”——“保存工程”保存当前工程文件。
- 9 -
3.主窗体的建立
工程主窗体
在VB程序设计中，主界面负责应用程序的主界面，由它调用其它模块。因此，主界面应该具有操作性好、界面清晰、使用户能够很方便地找到所需功能的特点。系统的主界面部在相应的系统菜单组成，用户只需点击相应的菜单使可调出对应的系统模块。 相应代码：
Private Sub changecj_Click() Form6.Show End Sub
Private Sub cjshuru_Click() Form7.Show End Sub
Private Sub dispcj_Click() Form5.Show End Sub
Private Sub exit_Click() End End Sub
Private Sub newuser_Click() Form11.Show End Sub
- 10 -
Private Sub newusr_Click() Form10.Show End Sub
Private Sub stucase_Click() Form3.Show End Sub
Private Sub xskcgl_Click() Form9.Show End Sub
Private Sub xueshendagl_Click() Form8.Show End Sub
Private Sub xueshengcx_Click() Form4.Show End Sub
3.1 用户登陆模块
本模块共有三个部分组成：用户登陆窗体、密码修改窗体、新用户注册窗体。 用户登陆窗体主要由文本框及命令按钮组成，利用Adodc控件及DataGrid控件实现程序代码与SQL数据的连接（如图6.6所示）。用户键入用户名及密码后点击“确定”按钮系统会通过上述两个控件与数据库进行连接并进行数据的比较，如果存在该用户及密码正确则会进行系统跳转进行主控制界面，否则会提示用户出错，重新输入用户名及密码，次数无限制。默认用户名为：admin，默认密码为：123456
用户登陆窗口
- 11 -
密码修改窗体及新用户注册窗体及登陆窗体的控件组成大致相同，这里不再详述。
用户登陆代码：
Dim username As String, userpass As String Private Sub Command1_Click() Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find (\If Adodc1.Recordset.EOF Then MsgBox \无此用户，请重新输入！\Exit Sub Else
abc = Adodc1.Recordset.Fields(1) If Text2 = Trim(abc) Then
MsgBox \欢迎使用本系统，点击进入！\登陆\Me.Hide Form2.Show Else
MsgBox \用户名或密码不正确，请重新输入！\Text1 = \Text2 = \Exit Sub End If End If End Sub
Private Sub Command2_Click() End End Sub
3.2 新生注册窗体
- 12 -
点击“新生注册”——“学生档案”可打开本窗体，本窗体专门为新生注册使用。通过ADODC控件实现本窗体与数据库学生表的连接，文本框默认不可编辑，用户点击“添加记录”按系统提示可自动完成添加。如图6.7所示 对应代码：
Private Sub Command1_Click() Adodc1.Recordset.AddNew
Text1 = InputBox(\请输入学生学号\添加学号\Text2 = InputBox(\请输入学生姓名\添加姓名\Text3 = InputBox(\请输入学生性别\添加性别\Text4 = InputBox(\请输入学生年龄\添加年龄\If Not IsNumeric(Text4) Then MsgBox \请输入数值\Text4.SetFocus End If
Text5 = InputBox(\请输入学生系别\添加系别\
resu = MsgBox(\确认添加到数据库\确认添加\If resu = vbOK Then Adodc1.Recordset.Update Else
Adodc1.Recordset.Delete End If End Sub
Private Sub Command2_Click() Me.Hide Form2.Show
新生注册窗口
- 13 -