事务型管理系统。
3.2数据库设计
数据库采用了Microsoft推出的Access数据库,这是微软集成到Office中的一个桌面数
据库,能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性,大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于,如果你的系统扩展到Client/Server模式的时候,可以使用Microsoft的数据库服务器软件SQL Server,此时,程序只需要简单的修改一下链接(ADO的数据源)就可以,这样,为程序的平滑扩展提供了非常有力的条件。
3.2.1 本系统中所涉及到的主要实体共有九个数据表:
allkecheng表:{课程名称,教材}
cj表:{,学期,类型,课程名称,分数}
class表:{年级,班级,教室,年制,专业,班主任,备注}
classkecheng表:{年级,专业,年制,学期,课程名称}
jf表:{,学期,交费,欠费,日期,操作员}
kaoshileixing表:{类型}
use表:{username,password,admin,readonly,qx1,qx2,qx3,qx4}
xj表:{,,性别,班级,出生年月,家庭住址,邮政编码,联系电话,入学时间,备注}
suefei表:{年级,专业,年制,学期,学费}
3.2.2 各表的物理结构如下:
allkecheng表:
字段名称 类型 宽度 小数位 课程名称 文本 20 教材 文本 30 Cj表:
字段名称 类型 宽度 小数位 文本 10 学期 文本 50 类型 文本 16 课程名称 文本 20 分数 单精度型数字 自动
Class表:
字段名称 类型 宽度 小数位 年级 文本 16 班级 文本 20 教室 文本 5 年制 文本 8 专业 文本 16 班主任 文本 8 备注 备注
Classkecheng表:
字段名称 类型 宽度 小数位 年级 文本 16 专业 文本 12 年制 文本 8 学期 文本 50 课程名称 文本 20
Jf表:
字段名称 类型 宽度 小数位 文本 5 学期 文本 50 交费 货币 自动 欠费 货币 自动 日期 日期/时间 操作员 文本 10
Kaosileixing表:
字段名称 类型 宽度 小数位 类型 文本 10
Use表:
字段名称 类型 宽度 小数位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2
xj表:
字段名称 类型 宽度 小数位 文本 9 文本 8 性别 文本 2 班级 文本 10 出生年月 日期/时间 家庭住址 文本 30 邮政编码 数字(长整型) 联系电话 数字(长整型) 入学时间 日期/时间 备注 备注
xuefei表:
字段名称 类型 宽度 小数位 年级 文本 16 专业 文本 50 年制 文本 20 学期 文本 40 学费 货币 自动
4.系统的功能
本部分主要内容为本系统的运行界面以及主要界面的源代码。
4.1系统登陆界面:
本界面的主要功能是为了对系统进行安全性管理,本系统的用户名和密码保存在USE表中,本系统根据不同的用户而设置了不同的权限,可以用909;909为用户名和密码来登陆本系统。
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 用户名错误!", vbExclamation + vbOKOnly, "警告"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
username = mrc.Fields(0)
txtsql2 = "select username from use where password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql2)
If mrc.EOF = True Then
MsgBox " 密码错误!", vbExclamation + vbOKOnly, "警告"
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Exit Sub
End If
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox "用户名称和密码不匹配!", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
MDIForm1.Show
frmcpass.Text1.Text = Text1.Text
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
4.2系统主界面:
本模块是本系统的应用界面,在本界面上集成了本系统的所有功能,共有6个功能菜单和19个子菜单(功能模块),从而实现了本系统从班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能,同时,在系统管理模块中可以完成对本系统的安全性管理。
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim find1 As Integer
Dim liulan1 As Integer
Private Sub add_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
Form1.Show
modi = False
Form1.ZOrder (0)
End Sub
Private Sub cjadd_Click()
fenshumodi = False
qxstr = Executeqx(4)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
frmcj2.Show
frmcj2.ZOrder 0
End Sub
Private Sub cjbrowse_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
frmcj1.Show
frmcj1.ZOrder 0
End Sub
Private Sub claasfind_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
Form4.Show
Form4.ZOrder (0)
i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
Private Sub classapp_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
Formclass1.Show
classmodi = False
Formclass1.classload
Formclass1.ZOrder (0)
End Sub
Public Sub clabrowse()
txtsql = "select * from class"
Formclass2.ZOrder (0)
Formclass2.Caption = "浏览班级设置"
Formclass2.classshowtitle
Formclass2.classshowdata
End Sub
Private Sub classbrowse_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
Formclass2.Show
End Sub
Private Sub classfind_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
Formclass3.Show
Formclass3.ZOrder (0)
End Sub
Private Sub find_Click()
End Sub
Private Sub classkecheng_Click()
qxstr = Executeqx(4)
If
上一篇:
教务管理系统完整论文
下一篇:
高校学生二手物品交易系统设计与实现