毕业论文管理信息系统计算机(VB)毕业设计.doc

《毕业论文管理信息系统计算机(VB)毕业设计.doc》由会员分享，可在线阅读，更多相关《毕业论文管理信息系统计算机(VB)毕业设计.doc（31页珍藏版）》请在三一办公上搜索。

1、1 引言Basic，源远流长的编程语言说起Basic，它是最古老的高级编程语言之一（1964年创建），在70年代得到很大的发展。那时的个人计算机，Basic编程语言是必备的程序，像当时如日中天的苹果电脑很多机型就只配备了Basic编程语言，大名鼎鼎的微软公司就是靠为苹果电脑、IBM电脑开发Basic程序起家的。随着DOS和Windows操作系统的出现，电脑初学者不用先学习Basic了，但Basic作为一种编程语言仍然在高速发展，特别是以Basic起家的微软公司1990年推出了Visual Basic（简称VB），该编程语言使用了可视化编程和对象技术，使得编程更加直观、高效。据说全世界有60以上

2、的编程者主要是使用Basic编程。Basic，最简单实用的编程语Basic，顾名思义就是初学者使用的编程语言，多家公司出品了很多版本如Qbasic、Turbo Basic等。Visual Basic的意思就是可视化的Basic，由微软公司出品，目前版本为60，有标准版（初学者和不进行复杂编程者使用）、专业版（专业编程人员使用）、企业版（开发大型程序使用）之分。Basic语言的特点：Basic的语法简单，语句与常用英语相似，容易理解Basic概念、基本语句较少，没有复杂的概念如指针等；Basic处理图像、音乐、字符串非常简单方便；Basic可以解释执行，调试程序非常方便；Basic不受硬件限制，

3、编程不用了解内存、中断等。学习Visual Basic的建议深入理解基本概念：为电脑编程的思想方法与我们平常的想法概念有很大的不同，例如对于i=i1这样的语句就不符合我们一般的数学方式。在Basic中，我们要理解数据、流程、赋值等概念，在Visual Basic中，我们就要理解窗口、对象、属性、方法、事件等概念。抓住基本特征：学习过一门语言以上的编程人员都知道，各种语言的基本语句都差不多，不外乎赋值、判断、循环等。学习一门编程语言主要是抓住其主要特征即可。学习VB当然从VB的最主要特点入手：对象（Object）、属性（Property）、方法（Method）、事件（Event）。这四个特征构成

4、了VB的灵魂。要学习VB编程，首先就得理解VB的这四个基本特征。一定要动手做：学习语言，一定要动手做。特别是Visual Basic，编程的过程有点像搭积木一样，没有逻辑性很强的语句和流程，光是看书本和编程语句是理解不了的，只有动手去摆放摆放那些控件、窗口，去设置一下它们的属性如大小、颜色、字体，你才能掌握VB的编程。循序渐进：虽然Visual Basic和Basic有很大差别（差别在40以上），但Visual Basic使用的很多基本概念还是Basic的，建议在学习Visual Basic之前还是先大概学习了解一下Basic。多看编程实例：尽管VB是编程语言中最简单的语言，但并不代表它不强大

5、、不复杂，实际上VB是非常强大和复杂的，实现的功能多种多样，设计的技巧也是不胜枚举，如果只是靠书本来学习VB，是不可能成为Visual Basic的编程高手的，必须要多找些资料来学习，特别是看优秀的编程实例。如可从各种书本、报刊中查找，当然更方便的是通过互联网来查找这方面的资料。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，

6、而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，帝国时代之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。VB的诞生。VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Wi

7、ndows提供了一组预定义工具-称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种

8、操作方便，使用简单的新工具Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。2软件介绍 (一) Visual

9、BASIC程序设计VB提供了开发基于对象的可视化程序开发工具，“Visual”指的是开发图形用户界面的方法。一、VB的发展历史BASIC语言诞生于1964年，基本扩展结构化BASIC语言在使用中得到了不断的发展。VB的出现更使得BASIC成为计算机技术发展史上应用最广泛的语言。微 1991年 Visual Basic 1.0 软 1992年 Visual Basic 2.0 应用于DOSWindows 3.x环境公 1993年4月 Visual Basic 3.0 下16个程序司 1995年10月 Visual Basic 4.0 推 1997年 Visual Basic 5.0 Window

10、s 9.x或Windows出 1998年Visual Basic 6.0 NT OS 二、Visual Basic 6.0 的基本特点1. 可视化的编程工具2. 面向对象的设计方法（coop）花更少的时间做更多的事情3. 事件驱动的编程机制4. 结构化的程序设计语言5. 交互式开发方式6. 共享Windows资源7. 开放的数据库功能与网络支持8. 得心应手的应用程序向导9. 完善的联机帮助功能三、VB 6.0 版体1. 学习版：基础版 可用来开发Windows9.x 和Windows NT下的应用程序2. 专业版：为计算机专业人员提供了一套功能完整的工具3. 企业版：可开发功能强大的组内分布

11、式应用程序(二) 设计最简单的VB应用程序 VB 6.0的安装与帮助文件的使用一、系统的安装环境软件和硬件两个方面1. 操作系统：Windows 9.5 NT4.0及其以上2. 微处理器：3. 内存：24MB以上；32MB以上4. 硬盘空间：5. 其他设备：CD-ROM驱动器 .Mouse.二、VB 6.0的安装步骤6. 启动安装程序7. 输入产品量和用户ID8. 选择安装路径9. 选择安装方式三、添加或删除VB6.0组件10. 再次运行安装程序11. 在“安装向导”的“添加/删除选项”中选择12. 改变安装组件后，单击“继续”按钮四、帮助文件的使用13. 使用MSDN Library在线帮助

12、通过菜单“帮助”“内容”，打开MSDN Library窗口14. 上下文相关帮助启动VB 6.0后，在“代码窗口”中将光标插入点，置于一个关键词中并按下F1，就会显示有关该关键词的帮助信息。详见P7。VB 6.0的开发环境 Microsoft应用软件常规的标题栏、菜单栏和工具栏，以及VB 6.0的几个独立窗口。标题栏：标题为“工程1Microsoft Visual Basic设计”，说明此时开发环境处于设计模式，在进入其他状态时，方括号中的文字将做相应的变化，VB有三种工作模式：r设计模式：可进行用户界面的设计和代码的编制，来完成应用程序的开发；r运行模式：运行应用程序，此时不可编辑代码和界面

13、；r中断模式：应用程序运行暂时中断，可编辑代码，但不可编辑界面。按F5或单击“继续”按钮，程序继续运行，单击“结束”按钮，停止程序。一、工程资源管理器它保存一个应用程序所有属性以及组成这个应用程序的所有文件。工程文件的扩展名为.vbp。1工程资源资源管理器窗口的三个按钮：“查看代码”按钮：切换到代码窗口，显示和编辑代码“查看对象”按钮：切换到窗体窗口，显示和编辑对象“切换文件夹”按钮：切换文件佳吓唬司的方式2列表窗口的工程文件类型窗体文件（.frm文件）：存储窗体上使用的所有控件对象和有关的属性。对象相应的时间过程、程序代码。一个程序至少包含一个窗体文件。标准模块文件（.bas文件）存储所有模

14、块级变量和用户自定义的通用过程（指可以被应用程序各处调用的过程）。 注意：括号内的有扩展名已保存过，否则未保存P9。二、对象窗口对象窗口中包含一个窗体窗口，窗体是VB应用程序的主要构成部分，每个窗口必须有一个唯一的窗体名字。设计状态的窗体由网络点构成。网络点的间距可以通过“工具”菜单“选项”命令“通用”标签“窗体设置网格”中输入“宽度”和“高度”来改变。除了一般窗体外，还有一种MDI(Multiple Document Interpace)多文档窗体，它可包含各自独立的子窗体。三、工具箱控件构成VB 6.0窗口程序的GUI的最主要的部分。而工具箱则是控件的“窗容器”。1组成（基本组成）初始状态

15、下，工具箱窗口由21个被绘制成按钮形式的图标组成。显示了各种控件的制作工具。窗口中的20个控件称标准控件（注：指令不是控件，仅用于移动窗体和控件及调整他们的大小）2工具箱窗口的显示及关闭在“视图”菜单“工具箱”命令运行状态下的工具箱窗口自动隐去。3新控件的添加具箱除了已有的“通用（Greneral）”控件，还可添加VB 6.0提供的具有各功能的Activex控件，步骤如下：（1）单击工具箱的空白处，在弹出的快捷菜单中选择“部件”或“工程”菜单“部件”（2）在部件对话框中选择要添加的控件。4选项卡的添加工具箱空白处单击右键“添加选项卡”名称确定。四、属性窗口所有窗体或控件的属性，如颜色、字体、大

16、小等，都可通过心属性窗口来修改。属性窗口由四部分组成：1对象列表框：单击右边的下拉按钮，可打开所选窗体所含对象的列表2属性显示排列方式：“按字母序“和”“分类序”3属性列表框：左边是各种属性，右边是相应的属性而不同属性的设置方式不同：（1）直接输入：eg: Caption（2）选取项目：eg: BorderStgle（3）对话框：eg: Icon4属性说明五、窗体布局窗口用于指定程序运行时的初始位置。主要为使所开发的应用程序能在各不同分辨率的屏幕上正常运行，在多窗体应用程序中较有用。六、代码窗口1窗口的打开（三种方法）（1）从工程窗口中选择一个窗体或标准模块，并选择“查看代码：按钮（2）从窗体

17、窗口中打开代码窗口，可用鼠标双击一个控件或窗体本身;（3）从“视图“菜单中选择”代码窗口“命令。2窗口组成（1）“对象”下拉式列表框：显示所选对象的名称。其中“通用”表示与特定对象无关的通用代码，一般在此声明模块级变量或用户编写自定义的过程。（2）“过程”下拉式列表框：列出所有对应于“对象”列表框中对象的事件过程名称（还可显示用户自定义的过程名）。选择对象名和事件过程名即可构成选中对象的事件过程模板，用户可在该模板内输入代码。其中“声明”表示模块级变量。（3）代码框：输入程序代码（4）“过程查看”按钮：只能显示所选的一个过程（5）“全模块查看”按钮：显示模块中令部过程。VB6.0程序开发的基本

18、步骤建立一个应用程序的步骤：（）建立用户界面的对象（）对象属性的设置（）对象事件过程及编程（）保存和运行程序例2.1 编写一个对输入字符进行转换的程序。转换规则为：将其中的大写字母转换成大写字母，空格不转换，其余转换成“*”。要求每输入一个字符，马上就进行判断和转换。一、建立用户界面的对象新建一个工程：“文件”菜单“新建工程”本例共涉及6个对象2个Label(标签):只能显示信息，不能输入2个TextBox(文本框)：即可输入又可显示数据2个Command Button：执行有关操作而窗体是上述对象的一个载体。建立的用户界面的对象如下图所示：二、对象属性的设置步骤及方法：（1）选定要设置的对象

19、()修改属性默认控件名标题（Caption）文 本（Text）字号（FontSize）磅值Form1大小写字母转换12Label1输入字符串12Label2转换12Test1,2空白10Command1清屏10Command2结束10注意：若窗体上各控件的字号等属性要设置相同的大小，不要逐个设置，只要在建立控件前，将窗体的字号等属性进行设置，以后建立的控件都有该默认属性值。三、对象事件过程及编程在VB程序设计中，许多功能已封装在对象内部，因此，在程序设计时，只要编写少量的代码就能满足某些功能要求。根据本例要求：1当在“输入字符串“文本框每键入一个字符键，马上就进行判断，这就要求对“输入字符串”

20、文本对象Text1对应的keyPress事件进行编程，其事件过程编程的步骤如下：（）单击“对象”列表框的下拉按钮，列出与Text1相关的所有事件，选择Text1;（）单击“对象”列表框的下拉按钮，列出与Text1相关的所有事件，选择Key Press事件。此时代码窗口就显示出Text1-KeyPress事件代码的模板模板Private Sub Text1_Key Press (Key ASCII As Integer)End Sub在过程体加入代码Private Sub Test1_Key Press (KeyAscii As Integer)Dim aa As String*1aa = Ch

21、r$ (KeyAscii) 将ASCII码转换为字符Select Case aaCase “A” To “Z” 大写转换成小写aa=Chr$(Key ASCII+32)Case “a” To “z” 小写转换成大aa=Chr$(Key ASCII-32)Case “ ” 空格不转换Case Else 其他转换成*aa= “*”End Select将转换文本框已有的内容与刚输入并转换的字符连接Text2Text=Text2Text & aa End Sub 2当单击“清屏”按钮时，清除两个文本框的所有内容，就要对命令按钮对象Command1对应的click事件编程。Private Sub Com

22、mand1_Click()Text1Text= “”Text2Text= “” End Sub当单击“结束”命令按钮时，程序运行结束，这要对Command2对应的click事件编程。Private Sub Command 2_ Click () EndEnd Sub四、保存和运行程序保存工程程序的运行在VB中，程序可以以两种模式运行，即编译运行模式和解释运行模式。（）编译运行模式选择“文件”菜单的“生成exe”命令后，系统读取程序中全部代码，将其转换为机器码，并在扩展名为.exe的可执行文件中，供以后多次运行。（）解释运行模式选择“运行”菜单的“启动”命令（或F5），直接运行。由于转换后的机器

23、代码不保存，如需再次运行程序，必须再解释一次，因此运行速度比编译运行模式慢。在开发阶段为了便于程序的调试，一般使用此模式。3系统设计31开发和运行环境开发工具：vb6.0运行环境：windows XP32系统功能分析系统工具: 以用户界面为载体，达到对常用工具的快捷操作。网络：以点对点方式进行计算机之间的聊天。系统设置：以用户界面为载体，达到对控制面板的快捷操作。4 功能设计41欢迎界面作为本软件的第一个界面，以戏欢迎词为主，新建一个窗体 再上面添加一time个，一个WindowsMediaPlayer、三个label设timel对象的按钮属性intrver:3000设WindowsMedia

24、Player对象的按钮属性Url:c;我的音乐：001设三个label对象的按钮属性caption:”张涛毕业设计”、”欢迎使用”vb程序集” 本窗体代码：Private Sub Timer1_Timer()Form2.ShowUnload MeEnd Sub42用户界面这是本软件用户操作界面。新建一个窗体 再上面添加二time个，一个WindowsMediaPlayer、三个label,一个command设timel对象的按钮属性intrver:500 设WindowsMediaPlayer对象的按钮属性Url:c; G:VB01.mid设四个label对象的按钮属性caption:”张涛毕

25、业设计”、” 指导老师:安政”vb程序集” “空”设command对象的按钮属性caption:退出本窗体代码：Option ExplicitPrivate Sub about_Click()gycx.ShowEnd SubPrivate Sub book_Click()Shel lC:WINDOWSsystem32notepad.exeEnd SubPrivate Sub cb_Click()m = Shell(C:WINDOWSsystem32cleanmgr.exe)End SubPrivate Sub close_Click()biao.ShowEnd SubPrivate Sub C

26、ommand1_Click()EndEnd SubPrivate Sub Form_Load()Timer2.Interval = 300 End SubPrivate Sub off_Click()power.ShowEnd SubPrivate Sub sm_Click()smcx.ShowEnd SubPrivate Sub Timer1_Timer()Label2.Caption = TimeEnd Sub Private Sub ht_Click()Shell C:WINDOWSsystem32mspaint.exeEnd SubPrivate Sub kh_Click()frmCl

27、ient.ShowEnd SubPrivate Sub ml_Click()Shell C:WINDOWSsystem32cmd.exeEnd SubPrivate Sub net_Click()frmServer.ShowEnd SubPrivate Sub rl_Click()day.ShowEnd SubPrivate Sub sx_Click()sxcx.ShowEnd SubPrivate Sub Timer2_Timer()Chc Label1, 10, 12, 5Chc Label3, 10, 12, 5End SubPrivate Sub tools_Click()kzmb.S

28、howEnd SubPrivate Sub txl_Click()Shell C:Program FilesOutlook Expresswab.exeEnd SubSub Chc(Cont As Control, Color1 As Integer, Color2 As Integer, Color3 As Integer) If Val(Cont.Tag) = Color1 Then Cont.Tag = Color2 ElseIf Val(Cont.Tag) = Color2 Then Cont.Tag = Color3 ElseIf Val(Cont.Tag) = Color3 The

29、n Cont.Tag = Color1 Else Cont.Tag = Color1 End If Cont.ForeColor = QBColor(Cont.Tag)End Sub43 系统工具磁盘清理命令提示符记事本画图通讯录系统工具菜单是使用 shell命令与系统功能相连接。没有多大用处，只是为了方便！44网络应用4.41点对点聊天服务器端：新建一个窗体 再上面添加上面所示控件！代码如下：Dim Num As IntegerDim flag As BooleanDim NumOnline As IntegerDim clientName(1 To 5)Private Sub Winsoc

30、k1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)End SubPrivate Sub cmdLogin_Click()Load frmServerLogInfrmServerLogIn.ShowEnd SubPrivate Sub Command1_Click()End SubPriva

31、te Sub cmdExit_Click()End SubPrivate Sub Form_Load()StatusBar1.Panels(1).Text = 目前没有用户接入Num = 0NumOnline = 0tcpServer(0).LocalPort = 5000tcpServer(0).ListenLabel1.Caption = Label1.Caption + CStr(tcpServer(0).LocalIP)Label3.Caption = Label3.Caption + CStr(tcpServer(0).LocalPort)End SubPrivate Sub mnu

32、Break_Click()For i = 1 To Num tcpServer(i).close Next iEnd SuPrivate Sub mnuExit_Click() Response = MsgBox(要保存文件后再退出吗?, vbYesNo, 退出) If Response = vbYes Then CommonDialog1.ShowSave rtbSave.SaveFile (CommonDialog1.FileName) End If EndEnd SubPrivate Sub mnuList_Click()mnuList.Checked = Not mnuList.Che

33、ckedIf mnuList.Checked ThenToolbar1.Buttons(List).Value = tbrPressed Me.lstClient.ForeColor = RGB(0, 0, 0)ElseToolbar1.Buttons(List).Value = tbrUnpressed Me.lstClient.ForeColor = Me.lstClient.BackColorEnd IfEnd SubPrivate Sub mnuOpen_Click() CommonDialog1.ShowOpen Load frmInspect frmInspect.rtbOpen.

34、LoadFile (CommonDialog1.FileName) frmInspect.rtbOpen.Visible = True frmInspect.ShowEnd SubPrivate Sub mnuSave_Click() CommonDialog1.ShowSave rtbSave.SaveFile (CommonDialog1.FileName)End SubPrivate Sub mnuSend_Click()mnuSend.Checked = Not mnuSend.CheckedTxtSend.Locked = Not TxtSend.LockedEnd SubPriva

35、te Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)If Index = 0 Then Num = Num + 1 NumOnline = NumOnline + 1 Load tcpServer(Num) StatusBar1.Panels(1).Text = There are & NumOnline & Client connected tcpServer(Num).LocalPort = 0 tcpServer(Num).Accept requestID End IfEnd SubPr

36、ivate Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)Dim sData As StringDim sName As String tcpServer(Index).GetData sData rtbSave.SelStart = Len(rtbSave.Text) sName = Left(sData, 1)If sName = / Then lstClient.AddItem sData + CStr(Now() tcpServer(Index).SendData recieved succes

37、sfully ElseIf sName = Then tcpServer(Index).SendData you can quit. lstClient.AddItem sData + CStr(Now() tcpServer(Index).close NumOnline = NumOnline - 1 StatusBar1.Panels(1).Text = There are & NumOnline & Client connected rtbSave.SelStart = Len(rtbSave.Text) rtbSave.Text = rtbSave.Text + sData End I

38、f rtbSave.SelStart = Len(rtbSave.Text) rtbSave.Text = rtbSave.Text + sData txtout.Text = sData rtbSave.SelStart = Len(rtbSave.Text) End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case Open CommonDialog1.ShowOpen Load frmInspect frmInspect.rtbOpen.Lo

39、adFile (CommonDialog1.FileName) frmInspect.Show Case Quit Response = MsgBox(要保存文件后再退出吗?, vbYesNo, 退出) If Response = vbYes Then CommonDialog1.ShowSave rtbSave.SaveFile (CommonDialog1.FileName) End If End Case Save CommonDialog1.ShowSave rtbSave.SaveFile (CommonDialog1.FileName) Case List mnuList_Clic

40、k End SelectEnd SubPrivate Sub txtOut_Change()For i = 1 To Num If tcpServer(i).State sckClosed Then tcpServer(i).SendData txtout.TextEnd IfNext iEnd SubPrivate Sub TxtSend_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then For i = 1 To Num If tcpServer(i).State = sckClosed Then Exit For

41、 Else tcpServer(i).SendData server: & TxtSend.Text End If Next i rtbSave.SelStart = Len(rtbSave.Text) rtbSave.Text = rtbSave.Text + Chr(10) + TxtSend.TextTxtSend.Text = End IfEnd Sub4.41点对点聊天服务器端： 帮助界面新建一个窗体 再上面添加上面所示控件！代码如下：Dim NewClient As BooleanPrivate Sub cmdConnect_Click()On Error GoTo errhand

42、le:tcpClient.RemoteHost = txtHost.TexttcpClient.RemotePort = txtPort.TexttcpClient.ConnectNewClient = TrueExit Suberrhandle: MsgBox Err.DescriptionEnd SubPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub cmdExit_Click()Unload frmClie

43、ntEnd SubPrivate Sub cmdLogin_Click()Load frmClientLogInfrmClientLogIn.ShowEnd Sub.Private Sub cmdQuit_Click()On Error GoTo errhandle:tcpClient.SendData q & lblName.Caption & CStr(Now()Exit Suberrhandle: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Load()Me.cmdConnect.Enabled = FalseMe.cmdQuit.Enabled = FalseEnd Sub