第一篇：vb课程设计档案管理系统代码
一、登陆界面
运行本系统需要进行用户名和密码验证，没有用户名的可以在登陆界面注册，详细注册方法在下文有介绍。登陆界面效果图如图1-1：
图1-1 登陆界面设计的代码如下：
Private Sub Command1_Click()str1 = Text1.Text str2 = Text2.Text STRSQL = “SELECT * FROM 密码表 WHERE 用户名='” & str1 & “'” + “ AND 密码='” & str2 & “ '” Data1.RecordSource = STRSQL Data1.Refresh If Data1.Recordset.EOF Then
MsgBox “用户名或密码错！”, 16, 提示“ Else
Form8.Show
Form1.Hide End If End Sub
Private Sub Command2_Click()
End End Sub
Private Sub Command3_Click()
Form6.Show End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time End Sub
二、欢迎界面
当用户名和密码验证成功后即可进入欢迎界面如图2-1
图2-1 在欢迎界面的设计时用了一个时钟控件，让欢迎界面出现3秒后自动消失进入系统主界面，欢迎界面的代码设计如下：
Private Sub Timer1_Timer()
If Timer1.Enabled = True Then
Form8.Hide
Form2.Show
Timer1.Enabled = False
End If End Sub
三、系统主界面
系统主界面可以进行简单的信息浏览（如图3-1），在主界面设置了一些命令按扭，其中 “修改”、“删除”、“打印”可以在主界面直接进行，而“查询”和“添加”需要打开另一个窗体操作。代码设计如下：
Private Sub Command6_Click()
Data1.Recordset.MoveFirst End Sub Private Sub Command7_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End Sub Private Sub Command8_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub Private Sub Command9_Click()
Data1.Recordset.MoveLast End Sub Private Sub Form_Load()
Timer1.Enabled = True
Label11.Left = Me.Width End Sub Private Sub Command10_Click()DataReport1.Show End Sub Private Sub Command3_Click()
ans = MsgBox(”确认修改Ä?“, 32 + 1, 提示”)
If ans = 1 Then
mbookmark = Data1.Recordset.Bookmark
Data1.Recordset.Edit
End If End Sub
Private Sub Command4_Click()
On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
MsgBox “确认删除?”, 32 + 1, “提示” End Sub
Private Sub Timer1_Timer()
Label11.Left = Label11.Left-200
If Label11.Left <=-Label11.Width Then
Form2.BackColor = vbRed
End If End Sub Private Sub Timer2_Timer()
Label12.Caption = Time End Sub
图3-1
四、查询
查询的效果图如图4-1
图4-1 代码设计如下：
Private Sub Command1_Click()
a = “select * from学生档案 where ”
n = 0 If Check1.Value = Checked Then
a = a + “ 姓名='” + DataCombo1 + “'”
Adodc1.RecordSource = a
Adodc1.Refresh
n = 1 End If If Check2.Value = Checked Then
If n = 1 Then
a = a + “ and ”
End If
a = a + “ 学号 ='” + DataCombo2 + “'”
Adodc1.RecordSource = a
Adodc1.Refresh
n = 1 End If If Check3.Value = Checked Then
If n = 1 Then
a = a + “ and ”
End If
a = a + “ 院系='” + DataCombo3 + “'”
Adodc1.RecordSource = a
Adodc1.Refresh
n = 1 End If
If Check4.Value = Checked Then
If n = 1 Then
a = a + “ and ”
End If
a = a + “ 专业='” + DataCombo4 + “'”
Adodc1.RecordSource = a
Adodc1.Refresh
n = 1 End If If Check5.Value = Checked Then
If n = 1 Then
a = a + “ and ”
End If
a = a + “ 班级='” + DataCombo5+ “'”
Adodc1.RecordSource = a
Adodc1.Refresh
n = 1 End If If Check6.Value = Checked Then
If n = 1 Then
a = a + “ and ”
End If
a = a + “ 入学时间='” + DataCombo6 + “'”
Adodc1.RecordSource = a
Adodc1.Refresh
n = 1 End If End Sub
五、添加
添加效果图如图5-1
图5-1
代码设计如下：
Private Sub Command1_Click()
If Command1.Caption = “Ìí¼Ó” Then
Command1.Caption = “È·ÈÏ”
mbookmark = Data1.Recordset.Bookmark
Data1.Recordset.AddNew
Data1.Recordset.MoveLast
Data1.Refresh
Text1(0).SetFocus
End If
MsgBox “È·ÈÏÌí¼Ó?”, 32 + 1, “Ìáʾ” End Sub
Private Sub Command2_Click()For i = 0 To 13
Text1(i)= “" Next i
Text1(0).SetFocus End Sub
Private Sub Command3_Click()
Unload Form4 End Sub
六、修改、删除、打印
这部分的效果图如图6-
1、图6-2
图6-1
图6-2
代码设计如下：
Private Sub Command4_Click()
On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
MsgBox ”确认删除?“, 32 + 1, ”提示“ End Sub
Private Sub Command3_Click()
ans = MsgBox(”确认修改?“, 32 + 1, ”提示“)
If ans = 1 Then
mbookmark = Data1.Recordset.Bookmark
Data1.Recordset.Edit
End If End Sub
Private Sub Command6_Click()
Data1.Recordset.MoveFirst End Sub
七、统计
必须添加一个MSFlexGrid控件与Data控件连接，用来保存统计的结果，统计的效果图如图7-1
图7-1
代码设计如下：
Private Sub Command2_Click(Index As Integer)
Data1.RecordSource = ”select 院系,count(*)as人数 from学生档案¸ group by 院系“
Data1.Refresh End Sub Private Sub Command3_Click()
Data1.RecordSource = ”select专业,count(*)as人数 from学生档案¸ group by 专业“
Data1.Refresh End Sub Private Sub Command4_Click()
Data1.RecordSource = ”select 入学时间,count(*)as人数 from学生档案¸ group by入学时间“
Data1.Refresh End Sub Private Sub Command5_Click()
Data1.RecordSource = ”select 籍贯,count(*)as人数 from学生档案¸ group by 籍贯“
Data1.Refresh End Sub Private Sub Command6_Click()
Data1.RecordSource = ”select 民族,count(*)as人数 from学生档案¸ group by 民族“
Data1.Refresh End Sub Private Sub Command7_Click()
Data1.RecordSource = ”select 政治面貌,count(*)as人数 from学生档案¸ group by 政治面貌“
Data1.Refresh End Sub Private Sub Command8_Click()
Unload Form9 End Sub
八、帐户管理
（一）帐号注册
由于本系统登陆需要用户名和密码验证，所以本系统设置了一个帐号注册的功能，其效果图如图8-
1、图8-2
图8-1
图8-2 帐号注册代码设计如下：
Private Sub Command1_Click()If Text1.Text = ”“ Then
MsgBox ”你没有输入用户名！“, 16, ”提示“
Exit Sub End If If Text2.Text = ”“ Then
MsgBox ”你没有输入密码！“, 16, ”提示“
Exit Sub End If If Text3.Text = ”“ Then
MsgBox ”你没有再次输入密码！“, 16, ”提示“
Exit Sub End If
If Text2.Text <> Text3.Text Then
MsgBox ”两次输入的密码不一致！“, 16, ”提示“
Exit Sub End If If Text2.Text = Text3.Text Then
If Command1.Caption = ”注册“ Then
Command1.Caption = ”确认“
mbookmark = Data1.Recordset.Bookmark
Data1.Recordset.AddNew
Text1.SetFocus
Else
Command1.Caption = ”注册“
Data1.Recordset.Update
Data1.Recordset.MoveLast
End If
Text3.Text = ”“
MsgBox ”恭喜你注册成功！“, 48, ”欢迎使用“ End If End Sub
（二）密码修改
密码修改的效果图如图8-
3、图8-4
图8-3
图8-4 密码修改代码设计如下：
Private Sub Command1_Click()If Text1.Text = ”“ Then
MsgBox ”你没有输入用户名！“, 16, ”提示“
Exit Sub End If If Text2.Text = ”“ Then
MsgBox ”你没有输入旧密码！“, 16, ”提示“
Exit Sub End If If Text2.Text <> Text3.Text Then
MsgBox ”旧密码错误！“, 16, ”提示“
Exit Sub End If If Text3.Text = ”“ Then
MsgBox ”你没有输入新密码！“, 16, ”提示“
Exit Sub End If If Text4.Text = ”“ Then
MsgBox ”你没有再次输入新密码！“, 16, ”提示“
Exit Sub End If If Text3.Text <> Text4.Text Then
MsgBox ”两次输入的密码不一致！“, 16, ”提示“
Exit Sub End If If Text3.Text = Text4.Text Then
prompt = ”确认修改?“
answer = MsgBox(prompt, 32 + 0, ”确认修改“)
If answer = vbYes Then
Data1.Recordset.Edit
Data1.Recordset.Fields(0)= Trim(Text1.Text)
Data1.Recordset.Fields(1)= Trim(Text3.Text)
Data1.Recordset.Update
Data1.Refresh
MsgBox ”密码修改成功！“, vbOKOnly, ”密码修改“
End If End If End Sub
（三）帐号注销
效果图如图8-5
图8-5 代码设计如下：
Private Sub Command1_Click()If Text1.Text = ”“ Then
MsgBox ”你没有输入用户名！“, 16, ”提示“
Exit Sub End If If Text2.Text = ”“ Then
MsgBox ”你没有输入旧密码！“, 16, ”提示“
Exit Sub End If If Text2.Text <> Text3.Text Then
MsgBox ”旧密码错误！“, 16, ”提示“
Exit Sub End If If Text2.Text = Text3.Text Then
On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
MsgBox ”确认注销该用户?“, 32 + 1, ”提示" End If End Sub
第二篇：vb课程设计 职工工资管理系统代码
Form1: Dim errorCount As Integer Private Sub Command1_Click()If Text1.Text = “system” And Text2.Text = “1234” Then
Load Form2
Form2.Show
Me.Hide
MsgBox “登陆成功，欢迎您进入职工工资管理系统”, vbInformation, “登陆成功”
Else
errorCount = errorCount + 1
If errorCount < 3 Then
MsgBox “用户名或密码错误(第” & errorCount & “次)！”, vbOKOnly + vbExclamation, “登陆失败”
Text1.SetFocus
End If
If errorCount >= 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox “三次输入用户名或密码错误,程序将自动退出！”, vbOKOnly + vbExclamation, “登陆失败”
End
End If End If
End Sub
Private Sub Command2_Click()Unload Me End Sub
Private Sub Form_Load()errorCount = 0 End Sub
Private Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo Then
Cancel = 1 End If End Sub
For i = 1 To jlNum
ygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensui
CSng(ygList(i).jingtie)
ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = linShi.shifagongzi End If Next loadData End Sub
Private Sub Command5_Click()Dim linShi As YuanGong
linShi.ygnamg = InputBox(“请输入要添加的姓名”, “添加员工-姓名录入”)If Len(Trim(linShi.ygnamg))> 0 Then
linShi.jibengz = InputBox(“请输入添加员工的基本工资”, “添加员工-基本工资录入”)
If Len(Trim(linShi.jibengz))> 0 Then
linShi.jingtie = InputBox(“请输入添加员工的津贴”, “添加员工-津贴录入”)
If Len(Trim(linShi.jingtie))> 0 Then
linShi.gerensui = InputBox(“请输入添加员工的个人所得税”, “添加员工-个税录入”)
If Len(Trim(linShi.gerensui))> 0 Then
linShi.suidianfei = InputBox(“请输入添加员工的水电费”, “添加员工-水电费录入”)
If Len(Trim(linShi.suidianfei))> 0 Then
Open filedir For Append As #1
Write #1, linShi.ygnamg;linShi.jibengz;linShi.jingtie;linShi.gerensui;linShi.suidianfei
Close #1
MsgBox “添加员工成功！”, vbOKOnly + vbInformation, “成功”
jlNum = 0 If Len(Trim(filedir))> 0 Then
Open filedir For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Len(Trim(a))> 0 Then
jlNum = jlNum + 1
End If
Loop
Close #1
ReDim Preserve ygList(jlNum)As YuanGong
jlNum = 0
Open filedir For Input As #1
Do While Not EOF(1)
jlNum = jlNum + 1
Input #1, ygList(jlNum).ygnamg
Input #1, ygList(jlNum).jibengz
Input #1, ygList(jlNum).jingtie
Next
Close #1
MsgBox “删除员工成功！”, vbOKOnly + vbInformation, “成功”
jlNum = 0 If Len(Trim(filedir))> 0 Then
Open filedir For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Len(Trim(a))> 0 Then
jlNum = jlNum + 1
End If
Loop
Close #1
ReDim ygList(jlNum)As YuanGong
jlNum = 0
Open filedir For Input As #1
Do While Not EOF(1)
jlNum = jlNum + 1
Input #1, ygList(jlNum).ygnamg
Input #1, ygList(jlNum).jibengz
Input #1, ygList(jlNum).jingtie
Input #1, ygList(jlNum).gerensui
Input #1, ygList(jlNum).suidianfei
Loop
Close #1
loadData
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True End If
Text1.Text = “姓名” & vbTab & “工资” & vbTab & “津贴” & vbTab & “所得税” & vbTab & “水电费” & vbCrLf
For i = 1 To jlNum
Text1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLf
Next Else
MsgBox “删除员工失败！”, vbOKOnly + vbExclamation, “失败” End If End Sub
Private Sub Command7_Click()
第三篇：学生档案管理系统(vb)
莱 芜 职 业 技 术 学
院
毕业设计（论文）
所 在 系：计算机系 姓 名： 韩坤 论文题目：学生档案管理系统
专 业：软件应用技术 班 级：07级软件一班 指导老师：宋文敏
二零一零 年 四月 月 三十 日
摘 要
学生档案管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字：控件、窗体、域。
ABSTRACT The system of managing student file is a typical application of managing information system（know as MIS）,which mainly includes building up data-base of back-end and developing the application interface of front-end.The former required consistency and integrality and security of data.The later should make the application powerful and easily used.By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32.VB offered a series of ActiveX operating a data-base.It can give you a short-cut to build up a prototype of system application.The prototype could be modified and developed till users are satisfied with it.Keywords: ActiveX , Form , Field.目 录
--------8-9--------
--------10-31--------
--------31-32--------
----------33----------
言学生档案管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套学生档案管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。
需求分析
计算机已经成为我们学习和工作的得力助手：
今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面： 首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以节省许多资源；
技术上可行性：
软件界面清晰，整洁。功能一目了然，操作简单，容易上手，对于一般网络操作者都能胜任。
综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。运行上可行性：
本系统为一个小型的编辑系统，所耗费的资源非常的小，具体的系统需求如下：
CPU:至少200MHz Intel Pentinm 处理器
操作系统：Windows 98 拉按钮和平滑按钮等。
选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其属性及对象如下：
1． Align属性定义工具条在窗体中的位置
2． ToolTipText属性是字符串类型，定义控件的提示字符 3． Style属性定义按钮外观。
4． ImageList属性定义与数据条对应的ImageList控件名，该控件定义工具条按钮显示的图像。
5． HotImangeList属性设置一个ImageList控件名，该控件定义按钮获得热点时显示的图像。
6． DisabledImageList属性定义工具条按钮无效时显示的图像。创建工具条包括ImageList和Toolbar控件
ImageList用于为其他控件提供图像库，将ImageList控件加入到工具箱的操作于前述Toolbar控件相同。
3.3帮助
专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的Help Workshop4.0 是一套独立于Visual Basic 的用来协助我们创建、运行于32位Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。
3.4关于版本
为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。Visual Basic允许你使用APP对象来保存这些信息，APP对象是一个预定义对象，不需要在程序中创建它。APP对象的大多数属性被应用程序用来提供常规的信息，通过使用这些APP提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。
使用Access2000 实现关系型数据库
3.5数据库的概念
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。
新建一个数据库
创建任何一个数据库的 6． 标识指定字段的信息； 7． 创建物理表。
修改已建的数据库
数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。
实现数据库之间的联系
数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。系统总体规划
3.6系统功能
1． 可以进行文本操作； 2． 添加一个数据库项目； 3． 删除一个数据库项目； 4． 修改一个数据库项目； 5． 查询信息； 6． 察看课程表。
学号CodeInteger6No性别SexDate2No年龄AgeDate6No民族NationDate6No政治面貌Visage...Date2...Yes...家庭住址AddressDate10No备注RecordDate15No 学籍模块：
该模块主要完成学生基本信息的录入、删除、更新等功能。在此模块中定义了八个域名来进行学生的信息存储。如果用户修改某一纪录中的某一项，可单添加按钮进行学生记录的编辑，此窗口使用数据窗口的FREEDOM风格（典型的录入界面）。该种风格特点是列标题紧挨着数据列在此窗口还可以增加新学生纪录。
4.4．2成绩数据库
成绩数据库里存储了学生的成绩包括：学号、成绩、等
列名（中文）列名（英文）数据类型宽度小数点位数是否为空姓名Name Date8No学号CodeInteger6No成绩ScoreDate10No备注RecordDate15No 成绩模块：
该模块主要完成学生成绩的基本信息的录入、删除、更新等功能。在此模块中定义了四个域名来进行学生的信息存储。
4.4.3课程数据库
课程数据库利存储了课程的信息：课程名、作者、出版社等 列名（中文）列名（英文）数据类型宽度小数点位数是否为空课程IDCourseDate8No课程名NameDate15No出版社PublisherDate20No作者ScoreDate18No备注RecordDate15No
课程模块：
该模块主要完成存储课程的所有信息及录入、删除、更新等功能
与VB的连接
Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种： ·通过使用Visual Basic的 DATA控件。
·通过使用由Visual Basic提供的专用的直接与数据库相连的接口
ImgUndo.Picture = ImageDisable.ListImages(“Undo”).Picture End Sub Private Sub ImgUndoEnable()'有效“Undo”按钮 ImgUndo.Enabled = True ImgUndo.Picture = ImageUp.ListImages(“Undo”).Picture End Sub Private Sub Check_ImgPaste()'设置粘贴按钮
If Len(Clipboard.GetText)> 0 Then ImgPaste.Enabled = True ImgPaste.Picture = ImageUp.ListImages(“Paste”).Picture Else ImgPaste.Enabled = False ImgPaste.Picture = ImageDisable.ListImages(“Paste”).Picture End If End Sub Private Sub Check_ImgCutCopy()'设置剪切、复制按钮 If Text1.SelLength > 0 Then ImgCut.Enabled = True ImgCut.Picture = ImageUp.ListImages(“Cut”).Picture
ImgCopy.Enabled = True ImgCopy.Picture = ImageUp.ListImages(“Copy”).Picture Else ImgCut.Enabled = False ImgCut.Picture = ImageDisable.ListImages(“Cut”).Picture ImgCopy.Enabled = False ImgCopy.Picture = ImageDisable.ListImages(“Copy”).Picture End If End Sub Private Sub BackColor_Click()CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color End Sub Private Sub Box_Click()'显停工具栏 If Box.Checked Then '将停显工具栏 Box.Checked = False CoolBar1.Visible = False Else Box.Checked = True CoolBar1.Visible = True End If
Form_Resize '重新调整控件位置 End Sub Private Sub Close_Click()Dim FileNum As Integer
If Len(FileName)> 0 Then '有输入文件名
FileNum = FreeFile()'获得可用文件号
Open FileName For Output As FileNum '打开输出文件 '如果无指定文件，则创建新文件 Print #FileNum, Text1.Text '输出文本 Close FileNum '关闭文件 End If Text1.Text = “" FileName = ”“ End Sub Private Sub ComboSize_Click()Text1.FontSize = Val(ComboSize.Text)End Sub
Private Sub ComboFont_Click()Text1.FontName = ComboFont.Text End Sub Private Sub Copy_Click()Clipboard.SetText Text1.SelText '复制文本到剪裁板 End Sub Private Sub Cut_Click()Clipboard.SetText Text1.SelText '复制文本到剪裁板 Text1.SelText = ”“ '清选择的文本 End Sub Private Sub DataTime_Click()Text1.SelText = Now End Sub Private Sub Delete_Click()Text1.SelText = ”“ '清选择的文本 End Sub Private Sub Edit_Click()'当程序显示“编辑”子菜单前，触发该程序 If Text1.SelLength > 0 Then '文本框中有选中的文本 Cut.Enabled = True
Copy.Enabled = True Delete.Enabled = True Else Cut.Enabled = False Copy.Enabled = False Delete.Enabled = False End If
If Len(Clipboard.GetText())> 0 Then '剪裁板中有文本数据 Paste.Enabled = True Else '没有可粘贴的文本 Paste.Enabled = False End If End Sub Private Sub Exit_Click()Unload Me End Sub Private Sub FindText_KeyPress(KeyAscii As Integer)Dim BeginPos As Long
If KeyAscii = 13 Then BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)If BeginPos > 0 Then Text1.SelStart = BeginPos1 ComboFont.AddItem Screen.Fonts(i)Next i End Sub Private Sub Form_Resize()Dim TextTop As Long
'修改工具条大小
CoolBar1.Top = Me.ScaleTop Me.ScaleLeft Text1.Width = Me.ScaleWidth If Me.ScaleHeight > CoolBar1.Height Then Text1.Height = Me.ScaleHeight” + FileName '修改标题显示 End If End Sub Private Sub Paste_Click()Text1.SelText = Clipboard.GetText End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1 = “工具栏” End Sub Private Sub Picture1_Resize()If Picture1.Width > Label1.Left Then Label1.Width = Picture1.ScaleWidth" + FileName '修改标题显示 ImgUndoDisable End If End Sub Private Sub Text1_Change()If Not ImgUndo.Enabled Then '使“Undo”按钮可用 ImgUndoEnable
End If UndoString = UndoNew UndoNew = Text1 End Sub Private Sub Text1_Click()Check_ImgCutCopy End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)Check_ImgCutCopy End sub
也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
二者的结合（DBA）
微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。
DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。
第四篇：VB学生管理系统主要代码
主要代码如下：
Dim cn As New ADODB.Connection Dim rst0 As New ADODB.Recordset Dim rst1 As New ADODB.Recordset Dim rst2 As New ADODB.Recordset Dim rst3 As New ADODB.Recordset
Private Sub Cmd0add_Click()rst0.AddNew Cmd0add.Enabled = False Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True End Sub
Private Sub Cmd0del_Click()Cmd0add.Enabled = True Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True x = MsgBox(“确定要删除吗”, vbYesNoCancel + vbQuestion, “确认”)If x = vbYes Then rst0.Delete End Sub
Private Sub Cmd0Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd0save_Click()Cmd0add.Enabled = True Cmd0save.Enabled = False Cmd0del.Enabled = True Cmd0Exit.Enabled = True rst0.Update rst0.Sort = “应聘人编号” End Sub
Private Sub Cmd1Exit_Click()cn.close Unload Me End Sub Private Sub Cmd1Import_Click()rst0.MoveFirst For i = 1 To rst0.RecordCount
rst1.AddNew
rst1.Fields(“应聘人编号”)= rst0.Fields(“应聘人编号”)
rst0.MoveNext
rst1.MoveNext Next i '
Cmd1Import.Enabled = False
' Cmd1OK.Enabled = True
' Cmd1Exit.Enabled = True
End Sub
Private Sub Cmd1OK_Click()rst1.Fields(“综合评分”)=(Val(rst1.Fields(“计算机能力”))+ rst1.Fields(“业务能力”))* 0.5 If rst1.Fields(“综合评分”)>= 6 Then
rst1.Fields(“初选状态”)= “通过”
Else
rst1.Fields(“初选状态”)= “未通过”
End If
rst1.Update
rst1.Sort = “应聘人编号” End Sub
Private Sub Cmd2Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd2Import_Click()rst1.close rst1.open “select * from 初选表 where 初选状态='通过'”, cn rst1.MoveFirst For i = 1 To rst1.RecordCount
rst2.AddNew
rst2.Fields(“应聘人编号”)= rst1.Fields(“应聘人编号”)
rst2.Fields(“初选评分”)= rst1.Fields(“综合评分”)
rst1.MoveNext Next i rst2.Update Cmd2Import.Enabled = False End Sub
Private Sub Cmd2OK_Click()rst2.Fields(“综合评分”)=(rst2.Fields(“初选评分”)+ rst2.Fields(“外表形象”)+ rst2.Fields(“领悟反应能力”))/ 3 If rst2.Fields(“综合评分”)>= 6 Then
rst2.Fields(“录用情况”)= “通过” Else
rst2.Fields(“录用情况”)= “未通过” End If rst2.Update rst2.Sort = “应聘人编号” rst2.MoveLast End Sub
Private Sub Cmd3Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd3Import_Click()rst2.close rst2.open “selsct * from 面试表 where 录用情况= '通过'” rst2.MoveFirst For i = 1 To rst2.RecordCount
rst3.AddNew
rst3.Fields(“应聘人编号”)= rst2.Fields(“应聘人编号”)
rst3.Fields(“面试分”)= rst2.Fields(“综合评分”)
rst3.Fields(“开始录用时间”)= Date
rst2.MoveNext Next i Cmd3Import.Enabled = False End Sub
Private Sub Cmd3OK_Click()rst3.Fields(“综合考核分”)=(rst3.Fields(“面试分”)+ rst3.Fields(“笔试分”))/ 2 If rst3.Fields(“综合考核分”)>= 6 Then
rst3.Fields(“是否录用”)= “是”
Else
rst3.Fields(“是否录用”)= “否”
End If
rst3.Update
rst3.Sort = “应聘人编号”
rst3.MoveLast End Sub
Private Sub cxtg_Click()frmDataEnv.Show 1 End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()cn.ConnectionString = “DSN=xsgl;name=sa;pass=sa” cn.open cn.CursorLocation = adUseClient rst0.LockType = adLockPessimistic rst1.LockType = adLockPessimistic rst2.LockType = adLockPessimistic rst3.LockType = adLockPessimistic
rst0.open “select * from 登记表”, cn Set DataGrid1.DataSource = rst0
rst1.open “select * from 初选表”, cn Set DataGrid2.DataSource = rst1 If rst1.RecordCount <> 0 Then Cmd1Import.Enabled = False End If
rst2.open “select * from 面试表”, cn Set DataGrid3.DataSource = rst2 If rst2.RecordCount <> 0 Then Cmd2Import.Enabled = False End If
rst3.open “select * from 录用表”, cn Set DataGrid4.DataSource = rst3 If rst3.RecordCount <> 0 Then Cmd3Import.Enabled = False End If End Sub 学生基本信息浏览窗口
图5.6学生基本信息浏览
主要代码如下：
string sql = string.Format(“select P_id from Tb_popedom order by P_id desc”);
if(GetConn.conn.State == ConnectionState.Closed)
{
GetConn.conn.Open();
}
SqlCommand c = new SqlCommand(sql, GetConn.conn);
SqlDataReader reader = c.ExecuteReader();
if(reader.Read())
{
string id = reader[“P_id”].ToString();
txt_id.Text =(int.Parse(id.Substring(1,(id.Length-1)))+ 1)+ “";
}
reader.Close();
GetConn.conn.Close();
////加载一级菜单
sql = ”select * from Tb_function where F_level='1'“;
if(GetConn.conn.State == ConnectionState.Closed)
{
GetConn.conn.Open();
}
sda = new SqlDataAdapter(sql, GetConn.conn);
sda.Fill(ds, ”fun");
……
}
第五篇：VB课程设计--学生信息管理系统
******11111111111111
目
录
摘
要………………………………………………………………………5 前
言………………………………………………………………………6 第一章 为什么要开发一个学生档案管理系统……………………………7 1.1 在教育中用计算机管理学生档案的意义.………………………7 1.2为将来学校上网做好准备……………………..…………………7 1.3 学生档案的设计分析……………………………………………7 第二章 编程环境的选择.…………………………………………………9 2.1开发工具的介绍.…………………………………………………9 2.3关系型数据库……………………………………………………11 2.4 数据库的概念……………………………………………………12 2.5新建一个数据库.…………………………………………………12 第三章 需求分析………….………………………………………………14 3.1 可行性研究………………………………………………………14 3.2 需求分析…………………………………………………………15 第四章 系统总体规划..……………………………………………………17 4.1软件模块结构设计………………………………………………17 4.2数据库设计...……………………………………………………18 第五章 系统具体实………………………………………………………19 5.1 主界面………………………………………………………………19 5.2数据库的实现…………………………………………………………21 5.3 ACCESS与VB的连接………………………………………………22 第六章 测试 …………………………………………………………………24 6.1程序运行界面 如下图………………………………………………24 6.2输入用户名和密码界面………………………………………………26 ******11111111111111 6.3系统所具备的功能显示界面…………………………………………26 6.4系统管理功能…………………………………………………………27 6.5班级系统………………………………………………………………30 6.6 档案管理……………………………..………………………………32 6.7课程管理………………………………………………………………33 6.8成绩管理………………………………………………………………34 结束语…………………………………………………………………………36 致
谢……………………………………………………………………….37 参考文献………………………………………………………………………38
摘 要
学生档案管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字：控件、窗体、域。
摘要:随着中国教育事业的迅速发展，学生的数量日益增加，学生的信息管理也变得日益繁重和复杂。如果想要提高学生信息管理的效率和质量，以适应教育事业的发展，我们就必须对学校内部进行改革和加强学校管理。借助现代信息技术的管理方法，建立学生信息管理系统势在必行。本文通过对一个学生信息管理系统的开发实例，对基于Visual Basic 6.0和SQL 2000的学生信息管理系统进行了分析和研究。
文章首先分析了管理信息系统的概念和特点，介绍了开发工具Visual Basic 6.0和SQL ******11111111111111 2000，然后对学生信息管理信息系统进行了需求分析、概要设计和详细设计，在概要设计中进行了数据库的设计，在详细设计中讨论了系统的实现方法和编码。之后对系统测试进行了分析和讨论，功能模块的测试中把登录服务器模块的测试和其他功能模块的测试分开进行，介绍了一种实用的测试方法。最后是介绍系统的总体测试和系统发布。本文所论述的学生信息管理系统对实现初中、高中和大中专院校的学生信息管理的现代化、科学化具有重要意义。
关键词:学生信息管理系统；Visual Basic 6.0；SQL 2000 ；C/S模式
Information Management system of student
Based on C/S model
Abstrac: With the quick development of Chinese education, the student’s quantity increasingly increaseses, the student’s status management also becomes increasingly heavy and complicated.If want to improve the efficiency and quality of the student’s status management and adapt the development of the education business, we must to reform the inner school and enhance the school management.So ask for the management method of the modern information technique and eatablish the student’s status management system is imperative.This text analysis and study the student’s status management information system which based on Visual Basic 6.0 and SQL 2000 across an example of student’s status management imformation system.Firstly, the article analyzed the management information system’s concept and characteristics and introduced the development tools Visual Basic 6.0 and SQL 2000.Then it carried through the need analysis, general design and detailed design for the student’s student status information system.It designed the database in the general design and discussed the realize methord and coding of the system in the detailed design.Then it analysised and dicussed to the system test.It classified the test of registering server mold and the test of other founction mold in the function mold test and introduced a practical test method.Finally it introduced the total test and release of the system.The student’s student status management this text discussing have important meaning to realize the student’s student status manage of junior and senior high school.Keywords: Students status management system;Visual Basic 6.0;SQL 2000;C/S model
目 录 前言 1 1 系统开发环境及其工具介绍 2 ******11111111111111
1.1 系统简介 2 1.1.1 管理信息系统的概述 2 1.1.4 学生学籍管理信息系统概述 2 1.2 系统开发工具及开发环境概述 3 1.2.1 Visual Basic 6.0 的介绍 3 1.2.2 ADO数据访问技术 3 1.2.3 Microsoft SQL Server简介 8 需求分析 11 2.1 系统需求 11 2.1.1 编写目的 11 2.1.2 背景及范围 11 2.2 任务概要 11 2.2.1 目标 11 2.2.2 运行环境 11 2.2.3 条件与限制 11 3 系统总体分析与设计 12
3.1 系统分析 12 3.1.1 系统功能的分析 12 3.1.2 系统功能模块设计 12
3.2 数据库设计 13 3.2.1 数据库需求分析 13 3.2.2 数据库概念结构设计 13 3.2.3 数据库逻辑结构设计 15 详细设计 18 4.1 学生管理系统主窗体的创建 18 4.1.1 创建工程项目——Student_MIS 18 4.1.2 创建学生信息管理系统的主窗体 18
4.1.3 创建主窗体的菜单 20 4.1.4 创建公用模块 20 4.2 系统用户管理模块的创建 21 4.2.1 用户登录窗体的创建 21 4.2.2 添加用户窗体的创建 23 4.2.3 修改用户密码窗体的创建 24 4.3 学籍管理模块的创建 25 ******11111111111111 4.3.1 添加学籍信息窗体的创建 25 4.3.2 修改学籍信息窗体的创建 27 4.3.3 查询学籍信息窗体的创建 29 4.4 班级管理模块的创建 30 4.4.1 添加班级信息窗体的创建 30 4.4.2 修改班级信息窗体的创建 32 4.5 课程设置模块的创建 32 4.5.1 添加课程信息窗体的创建 32 4.5.2 修改课程信息窗体的创建 33 4.5.3 设置年级课程窗体的创建 34 4.6 成绩管理模块的创建 35 4.6.1 添加成绩信息窗体的创建 36 4.6.2 修改成绩信息窗体的创建 37 4.6.3 查询成绩信息窗体的创建 37 运行与测试 39 5.1 登录服务器模块测试 39 5.2 其他模块的测试 39 5.3 帮助文档的设计 39 5.4 系统测试和打包发行 40
结束语 41 参考文献 42 致谢 43 附录 44
前言
管理信息系统就是我们常说的MIS（Management Information System），在强调管理，强调信息的现代社会中它变得越来越普及。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学，运筹学、统计学以及计算机科学。[1]在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。
管理信息系统起初应用于最基础的工作，如打印报表、计算工资、人事管理等，进而发展到企业财务管理、库存管理等单项业务管理，这属于电子数据处理（EDP，Electronic Data Processing）系统。当建立了企业数据库，有了计算机网络从而达到数据共享后，从系统观点出发，实施全局规划和设计信息系统时，就达到管理信息系统的阶段。随着计算机技术的进步和人们对系统的需求进一步提高，人们更加强调管理信息系统能否支持企业高层 ******11111111111111 领导的决策这一功能，更侧重于企业外部信息的收集、综合数据库、模型库、方法库和其他人工智能工具能否直接面向决策者，这是决策支持系统（DSS，Decision Support System）的任务。
我国20世纪70年代末有少数企业开始MIS的局部应用。“六五”期间，选择一些大型企业进行MIS的开发试点，其中首都钢铁公司、北京第一棉纺厂、湖北第二汽车制造厂、宁江机床厂等取得了经验。20世纪80年代中后期，在全国性的计算机应用热潮中，许多企业纷纷从财务管理、人事管理等单项应用入手，尝试建立MIS。许多企业，如北京内燃机厂、北京电视机厂、沈阳鼓风机厂、天津渤海无线电厂的MIS初具规模，建立了覆盖全厂的计算机网络。“八五”期间，企业逐步走向市场，MIS建设的目标和需求日益明确。一些企业的系统，如北京第一机床厂、山西经纬纺织机械厂、成都飞机制造公司等都达到了很高的水平，与企业中其他系统集成，形成了CIMS。目前，我国MIS已经有了相当的普及率，几乎覆盖了各个行业及各个部门。
在学校，尤其是在各大高校，对于学生的管理是相当重要，而且也是相当麻烦的，它是学校管理中最基本的一项常规性工作。而长期以来，学校管理都是依赖人工来进行的，面对如此众多的学生信息，其工作量是相当相当巨大的。这样不仅仅浪费了大量的人力物力，而且由于人工管理存在着大量的不可预知性，造成学生信息管理的一些不规范，使得信息
管理陷入“事倍功半”的地步。
开发本系统就是为了解决学校在管理中的一些不规范，使学生信息的管理向着规范化、简
单化、有效化的方向发展。[2] 根据学生信息管理系统的基本流程和高校学生信息管理的实际要求，本系统需要实现以下
功能：
（1）学生基本信息的录入，基本信息包括学生的基本情况、所在班级、所学课程和成绩等；
（2）要求在系统中能够对学生信息精心灵活的浏览和查询；（3）要求在系统中能够对班级信息进行输入、查询和修改等；（4）要求能够对学校基本课程信息录入、修改和设置等；（5）要求能够对学生成绩信息进行输入、修改和查询等；（6）本系统可以提供给管理员或者学生本人使用。对学生类用 ******11111111111111
6．3系统所具备的功能显示界面
如图 ******11111111111111
6．4系统管理功能
如图 ******11111111111111
6．5班级系统
．
6．5．1 班级添加 ******11111111111111
6．6 档案管理 ******11111111111111
6．6．1 档案添加
6．6．2 档案查询 ******11111111111111
6．7课程管理
6．7．1课程设置 ******11111111111111
6．7．2 课程添加 ******11111111111111
四、设计结果分析
（1）系统所具备的功能显示界面 ******11111111111111 ******11111111111111 ******11111111111111（2）结果分析
1、第一步能很好的运行，初始密码就是用户名，只有密码正确才会进入系统。
2、点击在用户界面可以加入新的用户和删除以前的用户，也可以对密码进行修改。
3、在班级管理系统中各个功能都可以实现，可以显示当前系统中所有的班级信息。
4、课程设计一栏中可以添加系统中已经存储的课程和手动的输入课程，可以对课程的信息进行相应的操作。
5、成绩管理功能可以正常的运行，每一个功能都是单独的实现，不会产生混淆。
6、学籍管理是比较难的一部分，在运行了几次才让各个功能更能很好的实现，能够很好的将学生的信息存到数据库中。而且可以对其中的数据镜像相应的操作 ******11111111111111
五、个人小结
虽然Vb课结束了，但是自己感觉好像没有学到太多的东西，可能是上机的时间比较少吧，还有就是对待这么课的心态不同和老师要求的不严的缘故。
通过写完这个学生管理系统，感到收获很多，不动手就不知道自己的在哪里不懂，在这次作业的完成中遇到了许多自己无法调试的错误，只能请教已经学过了的同学，感觉到自己的知识的缺乏。虽然最后自己把所有的功能都按照预期的编好了，也可以很好的运行，但是其中也有许多的不足，对图像的不理解和不会很好的使用是自己的程序让人感到很呆板，这是需要改进的一大部分。
跟着老师学习了一个学期，自己感觉到学会一些简单的程序编写，至少认识了vb的作用性，这次的大作业，我只能把每一功能当做一个小的程序来编写，不会很好的联系所用的功能，在编写较长的运算时，不能够写好，只能对着书本一个的一个算法尝试，不能脱离课本，有时看着课本也不知道怎么写。
当自己写到难的时候，有点想放弃，感觉太难了，就把自己的程序给别人修改，加工。对其中的控件和文件的概念不是很熟 ******11111111111111 悉，还有就是数据库，以前没有接触，虽然老师在最后一节课的时候是一步一步的在课堂上讲解的，但是自己操作时，有时不知道在哪个地方编辑。
编完这个程序最大的收获就是将自己不同的和学到的知识重新的联系起来了，又重新的复习了所学的内容，对不同的算法有了新的了解。常用控件和系统对象有了初步的认识，学会利用数据库来存储信息，对上课不知道的多文档界面，在试着编写的过程中有了较大的认识。
总的来说，这一个学期并没有浪费，可以在别人的帮助下做完这个学生管理系统，感到有种成就感，虽然不是很完美，至少自己能够让这个系统完整的运行，其中不足之处，就只好留在自
点击咨询 