《Visual Basic 6.0可视化编程与实训》完整版课件全套ppt教学教程最全整套电子讲义幻灯片（最新）.ppt

《《Visual Basic 6.0可视化编程与实训》完整版课件全套ppt教学教程最全整套电子讲义幻灯片（最新）.ppt》由会员分享，可在线阅读，更多相关《《Visual Basic 6.0可视化编程与实训》完整版课件全套ppt教学教程最全整套电子讲义幻灯片（最新）.ppt（291页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、项目一 VB集成环境及基本操作,学习目标 了解VB语言的发展历史 了解VB的工作原理 VB的集成开发环境 掌握基本操作,VB6.0的启动和工作界面,启动方法1：开始按钮程序Microsoft Visual Basic 6.0中文版Microsoft Visual Basic 6.0中文版。 方法 2：桌面 Microsoft Visual Basic 6.0中文版图标。,VB工作界面,用户界面,工具栏：由多个图标按钮组成，用于对常用常用命令的快速访问。,工具箱,使用工具箱将使界面设计变得更加容易，只需要拖动任意控件到主窗体上便能创建一个标准的界面元素。（用鼠标左键按单击一个控件，鼠标指针变成十

2、字，在窗体上单击左键即可。双击控件则可添加该控件的程序代码）。,用户界面,属性窗口,属性窗口是用来设置对象的颜色、字体、大小和尺寸之类的属性，这些属性可以通过属性窗口进行修改。,用户界面,窗体布局窗口,窗体布局窗口是用来设置窗体在“屏幕”中的位置，这种设置将影响程序运行时窗体在屏幕的初始位置，这个窗口增强了Visual Basic的可视化功能。,用户界面,工程管理器窗口,工程管理器窗口用来显示一个应用程序中所有的组件（类似于浏览器），如工程、窗体、模块等等。,用户界面,【案例1.1】我的第一个程序加法器。 设计一个加法器程序，输入两个数，点“计算”按钮算出两个数的和。,第1步：在空白窗体中放入

3、指定控件。,【案例1.1】我的第一个程序加法器。,第2步，为指定的控件写入相应的属性值,第3步，双击“计算”按钮，输入代码,【案例1.1】我的第一个程序加法器。,VB的工作原理事件驱动,传统结构化编程的思路是：根据程序实现的功能，写出一个主程序和若干子程序，执行时从主程序的第一句开始，不断的转向子程序中并在程序运行中暂停输入数据，这样一旦出错就得从头开始一步一步去检查。而VB编程只需要对界面中的每一个对象的事件写出相对应的代码，执行时一般是一段程序对应一个单一的功能。也就是说，一个主程序统一控制的局面被分解成许多独立的小模块，每一个模块又独立的由各种事件来驱动。,控件的添加,1控件的选择：在工

4、具箱里用鼠标左键单击控件选中 2控件的添加：鼠标的指针成为十字型的时候，在指定位置按下鼠标左键并拖动，会得到一个随鼠标拖动而变化大小的矩形框，放开鼠标左键，会产生一个控件的实例。也可以在工具箱中的控件上双击鼠标左键，这样可以快速的在窗体中产生一个控件的实例，只是它的位置和大小采取系统的默认值。 3创建多个不同的控件：先在工具箱中选择控件，然后再窗体中按第2步的方法创建任意一个控件的实例。产生一个控件实例以后，鼠标指针已经还原，再继续拖拽鼠标不会产生新的实例。如果要创建控件的多个实例，则可以按住Ctrl键再用鼠标左键单击工具箱中的控件，这里在窗体中创建一个控件实例后，鼠标的形状还保持十字不变，这

5、样可以连续创建控件的实例。,【案例1.2】我的文字会隐藏,单击“显示”按钮在窗体上显示文本；单击“隐藏”按钮隐藏文本；单击“退出”按钮可结束程序，关闭窗体。,操作步骤 启动VB 向窗体中添加控件：添加一个标签，三个按钮 设置标签控件的属性： Caption世上无难事，只要肯登攀。 VisibleFalse 设置命令按钮的属性：将三个按钮的Caption属性分别设为“显示”、“隐藏”、“退出” 编辑程序代码：双击“显示”按钮，输入“Label1.Visible=True” 双击“隐藏”按钮，输入“Label1.Visible=False” 双击“退出”按钮，输入“Unload Form1”,【案

6、例1.2】我的文字会隐藏,本章小结,对于初涉编程的同学们来说，Basic语言可能是最好的开端；而选择VB6.0则为这种语言提供了优秀的可视化集成编程环境。 作为一种大众化的编程工具，Visual Basic具有强大的功能，这一点，同学们可以在学习完本章就有了初步的认识，等学完本书后，你就更能体会出她的易学易用性。 本章，你知道了什么是编程？为什么要编程？编程过程及用户界面的设计，当然还有界面元素（控件）的属性及设置。对VB6.0的工作集成环境有了认识，以后，它就是你手中的设计工具，把你头脑中的想法通过它来完成吧，相信自己，你一定能行。,项目二 窗体及输入输出,学习目标 了解窗体的信息输出 理解

7、数据的输入 了解信息输出的格式 掌握信息输入、输出的对话框的使用 掌握如何运用输入输出的运用,知识1 窗体的常用属性,1窗体的建立 每次装入Visual Basic或从File菜单中选择新建项目，一个空白的窗体自动出现在屏幕上。可以开始画用户界面了。 对一个简单的程序，一个窗体已经足够了。但是对于一个长程序，也许需要用两个、三个、或者十几个窗体。为了创建另一个窗体，你可以单击工具栏中的第二个按钮来添加第二个窗体。,知识1 窗体的常用属性,2.窗体的存储 在创建一个窗体之后，用户也许需要保存它，这样以后不必再创建它，为了存储一个窗体，Visual Basic提供了两种方法： 从文件菜单中单击保存

8、 按Ctrl+s键，,知识1 窗体的常用属性,3窗体的边框 边框使得窗体看上去漂亮。根据BorderStyle（边框类型）属性，窗体可以有几种不同的类型： 0-None 1-Fixed Single 2-Sizable 3-Fixed Dialob 4-Fixed ToolWindow 5-Sizable ToolWindow,知识1 窗体的常用属性,知识2 信息的输出,Print方法： 1 格式 对象名.Print Spc(n)|Tab(m) 表达式 抑制换行符 2 说明 （1）对象名参数指定了文本的显示地方（下例中指定的是“Form1”-即窗体），这个参数可以取以下四个值之一。窗体名称、图

9、片框名称、调试窗口(debug)或者printer（打印机）。 也可以省略对象名，那么结果将在当前窗体中显示文本。当文本出现在窗体中时，文本将会成为窗体背景的一部分。文本将在窗体中所有的控件之下出现，因此很少在应用程序的主窗体中使用print来显示文本，而是运用专门的文本信息显示。 （2）n为插入空格的个数，spc为产生n个空格的相对定位函数 （3）m为插入点定位的列号,Tab为横向绝对列定位函数使用无参数的Tab表示插入点定位在下一列。在同一行上m的值应该是递增的，不然会从下一行显示。,知识2 信息的输出,知识3 信息的输入,InputBox函数 1语法格式： InputBox(prompt

10、,title,default,xpos,ypos,helpfile,context) BackString=InputBox(prompt,title,default,xpos,ypos,helpfile, context ) 选项中参数对应的中文含义为： InputBox(提示信息,标题,缺省值,X坐标,Y坐标) 如：BackString= InputBox(“请输入用户名:”,“安全”,“张三”, 800, 800) BackString 对话框中的返回值 prompt 对话框中显示的提示信息，必选项 title 可选，对话框的标题，缺省标题为应用程序名 default 可选，输入文本框中

11、的缺省值 xpos,ypos 对话框与屏幕左边和上边的距离,知识3 信息的输入,2作用： 该函数能产生一个对话框，并显示提示，等待用户输入正文或按下按钮，如果用户单击OK或按下ENTER，则InputBox函数返回文本框中的内容，输入的是数值，就返回数值，是字符串就返回字符串 3说明： （1）提示信息：最大长度为1024个字符,VB将长消息自动换行 （2）缺省值：可选显示文本框中的字符串表达式，在没有其它输入时作为缺省值如果省略default，则文本框为空 （3）X坐标缺省时，输入框水平居中 （4）Y坐标缺省时，输入框垂直居中,知识3 信息的输入,知识4 信息框的使用,MsgBox函数 1格式

12、：MsgBox( prompt ,buttons ,title ,helpfile, context ) 2作用：弹出信息框 3参数说明： Prompt：对话框中显示的消息 如果有多行信息，则每行结尾加上回车符chr(10) 和换行符chr(13)，或者常量vbCrlf,知识4 信息框的使用,知识4 信息框的使用,【案例2.1】密码的控制 模拟用户登录界面，利用输入对话框要求用户输入密码（假设密码为“abcd”）， 如果输入正确，则开始程序，否则退出程序。,知识4 信息框的使用,【案例2.1】密码的控制,【案例2.1】密码的控制,1密码的输入 在程序运行的时候，可以通过inputbox获得数据

13、，然后再和指定的密码比较 2信息提示 在密码不正确而退出的时候，应该用MsgBox函数提示用户错误。这里需要使用选择语句来实现智能的判断。 3在窗体中放入一按钮，显示的文字为“登录”； 然后，在command1_click( )的程序代码中输入如下代码： Private Sub Command1_Click() xx$ = InputBox(请输入你的密码:, 登录, , 3800, 2000) If xx$ abcd Then yy = MsgBox(你输入的密码不对, vbOKOnly, 提示信息) End End If Print 欢迎使用! End Sub,【案例2.1】密码的控制,本

14、章小结,Visual Basic 6.0是我们手中实现自己设计思想并为用户提供服务的有利工具。本章让我们了解了窗体的外衣是如何改变的。并且我们理解了如何利用inputbox( )函数为程序随机的提供数据，程序会根据获得的数据进行处理。我们还利用了Msgbox( )函数进行动态的输出，让用户在使用程序过程中得到有益的提醒。 我们利用了程序进行了密码控制，可以更加有效的使程序更加的智能化。当然，在以后的程序设计和开发过程中，你人更多的函数和方法，让你的程序实现更多、更好的功能。,学习目标 了解标签控件的属性 了解文本框的属性 了解命令按钮的属性 掌握控件综合运用,项目三 VB基本控件的使用,功能：

15、常用于显示不可编辑的文本，作为说明文字文字使用。,知识1 标签,属性：,【案例3.1】让标签文字对齐,设计如图界面，实现单击“左”按钮标签标题左对齐，单击“中”按钮标签标题居中，单击“右”按钮标签标题右对齐。,设置各控件属性值,Private Sub Command1_Click() Label1.Alignment = 0 End Sub Private Sub Command2_Click() Label1.Alignment = 2 End Sub Private Sub Command3_Click() Label1.Alignment = 1 End Sub 提示：如果标签已经设置A

16、utoSize属性为True，那么标签大小恰好容纳文本，此时将看不到Aligement属性设置的对齐效果。,双击三个按钮，分别输入下列代码：,【案例3.2】会变的标签,设计窗体实现单击窗体，标签会变为透明，单击标签，标签具有单线边框。,单击标签后的效果,设置控件的属性值,代码： Private Sub Form_Click() Label1.BackStyle = 0 End Sub Private Sub Label1_Click() Label1.BorderStyle = 1 End Sub,提示： 如果标签的BackStyle属性值为0，此时标签变为透明，将看不到标签的背景色。,功能：

17、文本框控件常用于显示需要编辑的文本。,知识2 文本框,属性：,控件事件：Change事件，当文本框中的Text属性值发生改变时，触发Change事件，程序运行后，在文本框中每输入一个字符，就会引发一次Change事件。,【案例3.3】同步的文本内容,设计如图窗体，在Text1中输入字符时，Text2中同步显示输入的内容，但Text2中的文本不可直接被编辑。,设置各控件属性值,代码： Private Sub Text1_Change() Text2.Text = Text1.Text End Sub,提示： 只有当MultiLine属性值为True时，ScrollBars属性设置的滚动条才会有效

18、。,【案例3.4】用户登录界面,设计如图学籍管理系统的登录界面，在Text2中输入的6位密码以“*”显示，单击“确定”按钮，Text2中的真正密码字符显示在窗体上；单击“退出”按钮，结束程序运行。,设置控件的属性值,代码： Private Sub Command1_Click() Print Text2.Text End Sub Private Sub Command2_Click() End End Sub,运行： 在文本框Text1中输入“admin”，在文本框Text2中输入“123456”，单击“确定”按钮，窗体上显示输入的密码，如图所示：,提示：如果文本框的PasswordChar属

19、性设置为一个字符，则在文本框中输入字符时，显示的不是输入的字符，而是通过PasswordChar设置的字符。如果需要知道输入的字符是什么，可以通过文本框的Text属性获取。,功能：在应用程序中，命令按钮通常用来在单击时执行指定的操作。,知识3 命令按钮,属性：,事件：Click事件，单击命令按钮引发该事件。,【案例3.5】按钮的简单应用,设计如图窗体，单击“默认”按钮，文本框中显示“Text1”；单击“确定”按钮或按回车键，窗体上显示文本框中的内容；单击“取消”按钮或按Esc键，结束程序运行。,设置各控件属性值,代码： Private Sub Command1_Click() Text1.Te

20、xt = Text1 End Sub Private Sub Command2_Click() Print Text1.Text End Sub Private Sub Command3_Click() End End Sub 提示：如果焦点已经在命令按钮上，此时按回车键相当于单击焦点所在的命令按钮。,【案例3.6】文本的复制,设计如图窗体，单击“复制”按钮，将文本框Text1中的文本复制到Text2中，单击“清除”按钮，清除两个文本框中的文本。,设置控件的属性值,代码： Private Sub Command1_Click() Text2 = Text1 End Sub Private Su

21、b Command2_Click() Text1 = Text2 = End Sub 提示：按钮的大小可以根据图片的大小进行相应的调整，使文字显示在图片的下方。,本章小结,本章介绍了标签控件、文本框控件和命令按钮控件的功能、常用属性和事件。 标签控件常用于显示系统的说明信息和为没有Caption属性的控件添加描述性文字，文本框控件主要用于显示文本和接受用户输入的文本，命令按钮控件常用于执行指定的操作。掌握标签控件、文本框控件和命令按钮控件的属性和功能，以及设置属性值的方法，对编写Visual Basic程序是大有好处的，也为今后学习更复杂的VB控件打下了坚实基础。,项目四 VB程序设计,学习目

22、标 掌握VB中的各种数据类型 VB中常量与变量的概念及定义方法 熟练使用VB中的常用函数 掌握VB中的选择结构和循环结构的基本格式,各种数据有不同的特性。例如，学生成绩是可计算的数值型数据，而学生姓名、性别是不需要计算的字符型数据。不同类型的数据在计算机中的处理和组织是不同的，我们来看一看Visual Basic是如何在内存中组织不同类型的数据的。 基本数据类型 Visual Basic的数据类型 用户自定义数据类型,知识1 数据类型,知识1 数据类型,1字符型（String）： 字符型数据也称字符串。凡是用双引号引起来的数据都是字符串。例如，”Visual Basic 6.0”、”中国”、”

23、12345”、”1月20日” 字符串的双引号不能省略，并且必须是“英文”状态下的双引号。 组成字符串的字句可以是英文字母、汉字、数字和除双引号外的其他符号。 字符串不能参加算术运算。 不包含任何字符的字符串称为空串，用两个连续的双引号来表示（“”）。,知识1 数据类型,2整型（Integer）： 凡是在-32768 +32767之间的整数都称为整型数据。占用2个字节的内存空间，类型符是“%”。例如，234、4568、-3200 3长整型（Long）： 凡是在-2147483648 +2147483647之间的整数都称为长整型数据。占用4个字节的内存空间，类型符是“|, Print #语法中除了

24、比Print方法多了一个文件号，其他各参数，包括Spc函数、Tab函数、“表达式”以及尾部的分号、逗号都和Print方法相同。,知识5 顺序文件的写操作,Print #语句说明： 如果Print #语句后面的“表达式”省略，则向文件中写入一个空行。如果Print #语句最后一项参数后面没有以分号或逗号结束，则下次Print #语句将把数据写到文件的下一行。 Print #语句的各项参数直接可以用分号或逗号隔开，分别对于紧凑格式和标准格式。 为了能正确读取输出的文件，除了数值数据可以用Print #语句写入到文件外，其他类型的数据尽量使用Write #语句写入。,【案例8.1】 随机生成50个1

25、50间的正整数，并存入到文件“abc1.dat”中,Private Sub Command1_Click() Dim i As Integer, x As Integer Randomize Open abc1.dat For Output As #1 For i = 1 To 50 x = Int(Rnd * 50) + 1 Print #1, x; Next End Sub,知识5 顺序文件的写操作,Wrtie #语句 语法格式为： Write #文件号,表达式 Write #语句没有Spc函数和Tab函数来控制输出位置。 表达式依然可以由多项组成，各项之间用逗号或分号分隔。 用Write

26、 #语句向文件写数据的时候，数据以紧凑格式存放。但Write #语句能自动在各项数据之间插入逗号，并给字符串数据两端加上双引号。,【案例8.2】 输入3个学生的学号、姓名、年龄并保存到文件“abc2.dat”中,Private Sub Command1_Click() Dim i As Integer, age As Integer Dim name As String, num As String Open abc2.dat For Output As #1 For i = 1 To 3 num = InputBox(请输入学号：) name = InputBox(请输入姓名：) age =

27、 Val(InputBox(请输入年龄：) Write #1, num, name, age Next Close #1 End Sub,【案例8.3】下面的语句建立一个新文件123.dat，并存入1至10个数字,Cls Open 123.dat For Output As #1 打开一个文件名为123.dat的文件用于写。 For i = 1 To 10 Print #1, i; Next i Close #1 关闭和文件号为1 的文件的关联。 End,【案例8.4】把刚才建立的文件123.dat的文件内容读出来，输出到屏幕上,Cls Open 123.dat For Input As #1

28、 For i = 1 To 10 Input #1, i Print i; Next i Close #1,【案例8.5】以下程序代码可以说明同时在Input模式下分配两个文件号码,a$ = 123.dat Open a$ For Input As #1 Open a$ For Input As #2 Input #1, i For i = 1 To 9 Input #1, y Input #2, z Print y; z; Next i Close #1, 2,【案例8.6】现在你可以把密码保存到一个文件里，程序运行时再把文件内容读到变量里，再和输入的内容比较，如果不对，则认为密码不正确,1

29、）建立一个新的工程，并在窗体上按要求放置各个控件。,【案例8.6】现在你可以把密码保存到一个文件里，程序运行时再把文件内容读到变量里，再和输入的内容比较，如果不对，则认为密码不正确,2）双击Command1，在代码编辑器中输入如图中的代码。,知识6 文件的读写相关函数,FreeFile函数 使用FreeFile函数可得到一个在程序中没有使用的文件号，该函数返回一个整型数据。 函数语法格式：FreeFile(范围) 参数“范围”是可选参数，用来决定返回的文件号的取值范围。缺省值为0，当参数为0时，则返回一个介于1255之间的文件号。为1时，则返回一个介于256511之间的文件号。,知识6 文件的

30、读写相关函数,Loc函数 Loc函数返回由“文件号”指定的文件的当前读写位置,是一个长整型值。 语法格式： Loc(文件号) Loc函数对于随机文件，返回上一次读取或写入的记录号；对于二进制文件，返回上一次读取或写入的字节位置；对于顺序文件，返回的是该文件打开以来读或写的记录个数，一个记录是一个数据块。,知识6 文件的读写相关函数,LOF函数 LOF函数返回一个长整型值，表示用Open语句打开的文件的大小，该大小以字节为单位。 语法格式： LOF(文件号) 例如： Open in.dat For Input As #1 FileLength =LOF(1) 取得文件长度 Close #1,知识

31、6 文件的读写相关函数,EOF函数 EOF函数用于测试文件的结束标志，可以避免因试图在文件结尾处进行输入而产生的错误。 语法格式：EOF(文件号),知识6 文件的读写相关函数,EOF函数通常用来在循环读数据时测试是否已到文件尾，例如： Open in.out For Input As #1 Do While Not Eof(1) 利用循环读取数据，一直读到文件尾 Input #1, a 把读出的数据赋予变量a Loop Close #1,课堂练习文件的建立与读取,1）建立新文件：选择一个新的文件名，如abc123.txt. 2）选择文件的读取方式：选择Output。 3）选择文件号：选择1号文

32、件。 4）写出相应语句： Open “abc123.txt” For Output As #1 5）输入文件内容,1至10个数字，换行输入 For i=1 To 10 Print #1,i; Next i 6）保存：保存文件名为 test.bas。,拓展1 随机文件的使用,随机文件的读写操作一般分为以下4步： 1）用TypeEnd Type语句定义数据类型。 2）以随机方式打开文件。格式如下： Open 文件名 For Random As 文件号 Len=记录长度 打开文件时，应注意给出记录长度（也就是用户定义数据类型占用的存储空间），如果省略，则记录的默认长度为128。 3）对文件进行读操作

33、。 4）关闭文件。,随机文件的写操作,随机文件的写操作可以用Put语句来实现。其语法格式如下： Put #文件号,记录号,变量 Put语句把变量存储到文件的指定记录。记录号可以省略，如果省略记录号，则在上一个Get或Put语句之后（或上一个Seek函数指出的）的下一个记录写入。省略记录号时，用于分界的逗号都必须罗列出来，例如： Put #1, , Var,【案例8.7】 用TypeEnd Type语句定义一个记录数据类型，用来存储每个学生的学号、姓名、年龄。输入3个学生的记录，并存储到文件中,Private Type stu 在窗体的通用声明内声明用户定义数据类型 sno As String

34、* 5 注意，用户定义数据类型中的字符串必须是定长的 name As String * 10 age As Integer End Type Private Sub Command1_Click() Dim recordstu As stu Dim i As Integer Open tt.txt For Random As #1 Len = Len(recordstu) 打开文件 For i = 1 To 3 利用循环输入数据 recordstu.sno = InputBox(请输入5位学号：) recordstu.name = InputBox(请输入姓名：) recordstu.age

35、= Val(InputBox(请输入年龄：) Put #1, i, recordstu 把记录存储到文件 Next Close #1 End Sub,随机文件的读操作,随机文件的读操作可以用Get语句来实现。其语法格式如下： Get #文件号,记录号,变量 Get语句从文件中读取指定记录，并存入相应变量中，和Put语句相同，记录号可以省略，如果省略记录号，则在上一个Get或Put语句之后（或上一个Seek函数指出的）的下一个记录读入。若省略记录号，则用于分界的逗号都必须罗列出来。,【案例8.8】 读出例8-7写入的学生记录，并存储到数组中，然后打印到窗口上,Private Sub Comman

36、d2_Click() Dim recordstu As stu Dim i As Integer, recordnum As Integer Open tt.txt For Random As #1 Len = Len(recordstu) 打开文件 recordnum = LOF(1) / Len(recordstu) 得到记录的总数 Print 学号, 姓名, 年龄 打印标题 For i = 1 To recordnum Get #1, i, recordstu Print recordstu.sno, recordstu.name, recordstu.age 打印数据 Next Clo

37、se #1 End Sub,随机文件中记录的添加,在随机文件中添加记录，就是在文件的末尾添加记录。首先找到文件最后一个记录的记录号，然后把要添加的记录写在它后面。,【案例8.9】 在例8-7写入的学生记录后添加一个新记录,Private Sub Command3_Click() Dim recordstu As stu Dim lastrecord As Integer Open tt.txt For Random As #1 Len = Len(recordstu) lastrecord = LOF(1) / Len(recordstu) + 1 记录总数加1 recordstu.sno =

38、 InputBox(请输入5位学号：) recordstu.name = InputBox(请输入姓名：) recordstu.age = Val(InputBox(请输入年龄：) Put #1, lastrecord, recordstu 添加记录 Close #1 End Sub,随机文件中记录的删除,要清除随机访问文件中删除的记录，一般步骤如下： 1）创建一个新文件。 2）把所有有用的记录从原文件复制到新文件。 3）关闭原文件并用 Kill 语句删除它。 4）使用 Name 语句把新文件以原文件的名字重新命名。,【案例8.10】 删除文件中第n个学生记录,Private Sub Comm

39、and4_Click() Dim recordstu As stu Dim lastrecord As Integer Dim i As Integer, n As Integer Open tt.txt For Random As #1 Len = Len(recordstu) 打开文件 Open temp.txt For Random As #2 Len = Len(recordstu) 打开临时文件 lastrecord = LOF(1) / Len(recordstu) 求记录数 n = Val(InputBox(请输入要删除的记录号：) If n lastrecord Then Ms

40、gBox 要删除的记录不存在 Else For i = 1 To lastrecord Get #1, i, recordstu 从文件读取记录 如果不是要删除记录，则写到临时文件 If i n Then Put #2, , recordstu 写入临时文件 End If Next End If Close #1 Close #2 Kill tt.txt 删除原文件 Name temp.txt As tt.txt 文件改名 End Sub,删除文件,用Kill语句来删除文件。 其语法格式为： Kill 文件名 文件名中可以包含路径。 Kill out.dat Kill d:testout.da

41、t 文件名中还可以包含通配符。 Kill d:test*.dat,拷贝文件,用FileCopy语句来拷贝文件。 语法格式为： FileCopy 源文件名,目标文件名 源文件名和目标文件名都可以包含路径，但不能含有通配符。例如： FileCopy d:testout.dat ,d:vbin.dat,文件（目录）重命名,可以用Name语句来修改一个文件或目录的名称。 语法格式为：Name 原文件名 As 新文件名 原文件名和新文件名都可以包含路径，但不能含有通配符。例如： Name out.dat As in.dat Name d:test As d:test1,建立目录,使用mkdir语句建立目

42、录。 语法格式为： MkDir 目录名,删除目录,使用RmDir语句删除目录。 语法格式为： RmDir 目录名 删除目录时，所删除的目录应为空目录，即该目录下没有任何文件及子目录。,改变目录,使用ChDir语句改变当前目录。 语法格式为： ChDir 路径 ChDir可以改变当前目录，但不能改变当前驱动器。,改变驱动器,使用ChDriver语句改变当前驱动器。 语法格式为： ChDriver 驱动器 如果参数“驱动器”省略，则不会改变当前驱动器。如果“驱动器”有多个字母，则以首字母为准。,获得当前目录,使用CurDir语句可以确定任何一个驱动器的当前目录。 语法格式为： CurDir 驱动器

43、 如果参数“驱动器”省略，则返回当前目录的驱动器。,本章小结,本章主要介绍了有关文件操作的基本知识。 1.文件系统的基本概念和文件类型。 2.文件管理的常用语句。重点介绍了顺序文件的管理与使用。 3.了解随机文件的管理与使用。 4.文件的移动、复制和更名等基本的文件操作技术。,项目九 “学生学籍管理系统”的制作,学习目标 基本数据的生成 浏览数据 查询数据 添加数据 删除数据,制作一个能够“浏览数据”、“查询数据”、“添加数据”、“删除数据”、“保存数据”的“学生学籍管理系统”界面如图,本章任务,VB具有强大的数据处理功能，它支持多种数据库的访问，可以处理多种数据库中的数据。 在VB中建立一个

44、ACCESS数据库，步骤如下： 第1步：新建一个ACCESS数据库 1建立封面后，选择“外接程序” “可视化数据管理器”，,知识1 学生学籍基本数据的生成,弹出VisData窗口,2在该窗口选择“文件/新建/Microsoft Access/Version 7.0MDB”，打开“选择要创建的Microsoft Access数据库”对话框,3选择合适的路径，文件名为“xsxj.mdb”，单击“保存”,第2步：新建表 在数据库窗口中单击鼠标右键，选择快捷菜单中的“新建表”命令,表名称输入xsxj，单击“添加字段”按钮，打开“添加字段”对话框，依次输入各字段的名称、类型和大小,所有字段输入完毕,单击

45、“表结构”对话框中的“添加索引”按钮，打开“添加索引到xsxj”对话框，在“名称”文本框中输入索引名称xh，选择“学号”字段为“可用字段”，指定按学号字段建立索引。,第3步：输入数据 用鼠标右键单击数据库窗口中的xsxj表，选择快捷菜单中的“打开”命令，打开添加数据窗口。,单击“添加”按钮，将第一条记录输入完毕，单击“更新”按钮,重复以上步骤，将所有记录输入完毕。单击“关闭”按钮。 关闭可视化数据库管理器窗口。,知识2 “浏览数据”窗体的制作 第1步：制作“浏览数据”窗体 1选择菜单“工程/添加窗体”命令，添加Form2窗体。使用标签、文本框、命令按钮等控件制作界面。,2添加Data控件，名称

46、为Data1。,第2步：设置“浏览数据”窗体中各个控件的属性值 第3步：为“浏览数据”窗体上的各个按钮编程 “第一个”按钮的单击事件编程 Private Sub Command1_Click() Data1.Recordset.MoveFirst Command3.Enabled = False Command2.Enabled = True End Sub “下一个”按钮的单击事件编程 Private Sub Command2_Click() Command3.Enabled = True Data1.Recordset.MoveNext If Data1.Recordset.EOF The

47、n Data1.Recordset.MovePrevious Command2.Enabled = False End If End Sub,“上一个”按钮的单击事件编程 Private Sub Command3_Click() Command2.Enabled = True Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Command3.Enabled = False End If End Sub “末一个”按钮的单击事件编程 Private Sub Command4_Cl

48、ick() Data1.Recordset.MoveLast Command3.Enabled = True Command2.Enabled = False End Sub,“退出”按钮的单击事件编程 Private Sub Command5_Click() Unload Form2 Form1.Show End Sub,第4步：将“学生学籍管理系统”的封面窗口与“浏览数据”窗口连接。 1. 将“学生学籍管理系统”的封面窗口设为当前窗口 2. 双击“浏览数据”按钮，弹出代码窗口，为按钮的单击事件编程。 Private Sub Command1_Click() Form2.Show End S

49、ub,1选择菜单“工程/添加窗体”命令，添加Form3窗体。使用标签、文本框、命令按钮等控件制作界面。,知识3 “查询数据”窗口的制作,2添加Data控件，名称为Data1。,第2步：设置“查询数据”窗体中各个控件的属性值 第3步：为“查询数据”窗体中的各个按钮编程 “查询”按钮的单击事件编程 Private Sub Command1_Click() Dim num As String num = InputBox(请输入学号(4位), 学号搜索) Data1.Refresh Do While Not Data1.Recordset.EOF n = Data1.Recordset.Fields(学号) If n = num Then Exit Do Else Data1.Recordset.Move