方便的和 Office 的其他套件综合使用。
由于 Access 具有显著的简易性和有效性,大量的桌面数据库系统都采用 Access 作为后台数据库。
使用Access 的好处还在于,如果你的系统扩展到 Client/Server 模式的时候,可以使用Microsoft 的数据库服务器软件 SQL Server,此时,程序只需要简单的修改一下链接(ADO 的数据源)就可以,这样,为程序的平滑扩展提供了非常有力的条件。
3.2.1 本系统中所涉及到的主要实体共有九个数据表:class 表:年级,班级,教室,年制,专业,班主任,备注use 表:usernamepasswordadminreadonlyqx1qx2qx3qx4 3.2.2 各表的物理结构如下:Class 表:字段名称 类型 宽度 小数位年级 文本 16班级 文本 20教室 文本 5年制 文本 8专业 文本 16班主任 文本 8备注 备注Use 表:字段名称 类型 宽度 小数位username 文本 20password 文本 20Admin 文本 2Readonly 文本 2Qx1 文本 2Qx2 文本 2Qx3 文本 2Qx4 文本 2xj 表:字段名称 类型 宽度 小数位学号 文本 9姓名 文本 8性别 文本 2班级 文本 10出生年月 日期/时间家庭住址 文本 30邮政编码 数字(长整型)联系电话 数字(长整型)入学时间 日期/时间备注 备注 四、 系统的功能 本部分主要内容为本系统的运行界面以及主要界面的源代码。
4.1 系统登陆界面: 本界面的主要功能是为了对系统进行安全性管理, 本系统的用户名和密码保存在 USE 表中,本系统根据不同的用户而设置了不同的权限,可以用 aa 为用户名和密码来登陆本系统。
Private Sub Command1_ClickDim mrc As ADODB.Recordsettxtsql quotselect username from use where usernamequot amp TrimText1.Text amp quotquotSet mrc ExecuteSQLtxtsqlIf mrc.EOF True Then MsgBox quot 用户名错误!quot vbExclamation vbOKOnly quot警告quot Text1.SetFocus Text1.SelStart 0 Text1.SelLength LenText1.Text Exit SubEnd Ifusername mrc.Fields0txtsql2 quotselect username from use where passwordquot amp TrimText2.Text amp quotquotSet mrc ExecuteSQLtxtsql2If mrc.EOF True Then MsgBox quot 密码错误!quot vbExclamation vbOKOnly quot警告quot Text2.SetFocus Text2.SelStart 0 Text2.SelLength LenText2.Text Exit SubEnd Iftxtsql quotselect username from use where usernamequot amp TrimText1.Text amp quotandpasswordquot amp TrimText2.Text amp quotquotSet mrc ExecuteSQLtxtsqlIf mrc.EOF True Then MsgBox quot用户名称和密码不匹配!quot vbExclamation vbOKOnly quot警告quot Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text Text1.TextUnload MeEnd SubPrivate Sub Command2_ClickUnload MeEnd SubPrivate Sub Form_LoadEnd SubPrivate Sub Text1_KeyPressKeyAscii As IntegerIf KeyAscii 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPressKeyAsci.
上一篇:
个人信息管理系统
下一篇:
谈谈网络对行政管理的积极作用