VB基础教程7～9章

VB基础教程7～9章 VB 7.1 1 1 （DriveListBox）：用来显示当前机器上的所有盘符 2 （DirListBox）：用来显示当前盘上的所有文件夹 3 （FileListBox）：用来显示当前文件夹下的所有文件名 2 Drive 驱动器列表框 包含当前选定的驱动器名 Driver1. Drive="C" Path 目录和文件列表框 包含当前路径 Dir1.Path="C:\WINDOWS" FileName 文件列表框 包含选定的文件名 MsgBox File1.FileName Pattern 文件列表框 决定显示的文件类型 File1.Pattern="*.BMP" 3 驱动器列表框的Change事件是在选择一个新的驱动器 或通过代码改变Drive属性的设置时发生 Change 目录和驱动器列表框 目录列表框的Change事件是在双击一个新的目录或通 过代码改变Path属性的设置时发生 PathChange 文件列表框 当文件列表框的Path属性改变时发生 PattenChange 文件列表框 当文件列表框的Pattern属性改变时发生 Click 目录和文件列表框 用鼠标单击时发生 DblClick 文件列表框 用鼠标双击时发生 7.2 1. ：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 中的一行。 ：记录的集合，相当于一张表。 ：顺序文件、随机文件、二进制文件。 ：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。 2. 顺序访问模式的 规则 编码规则下载淘宝规则下载天猫规则下载麻将竞赛规则pdf麻将竞赛规则pdf 最简单，指读出或写入时，从第一条记录“顺序”地读到最后一条记录， 不可以跳跃式访问。该模式专门用于处理文本文件，每一行文本相当于一条记录，每条记录可长 可短，记录与记录之间用“换行符”来分隔。 顺序文件的：； ：。 打开文件的命令是Open， 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 为： Open “文件名” For 模式 As [#] 文件号 [Len=记录长度] ： 1）文件名可以是字符串常量也可以是字符串变量 2）模式可以是下面之一： OutPut：打开一个文件，将对该文件进行写操作 Input：打开一个文件，将对该文件进行读操作 Append：打开一个文件，将在该文件末尾追加记录 3） 文件号是一个介于1-511之间的整数，打开一个文件时需要指定一个文件号，这个文 件号就代表该文件，直到文件关闭后这个号才可以被其他文件所使用。可以利用FreeFile（）函数获得下一个可以利用的文件号。 例： Open "D:\sj\aaa" For Output As #1 意思是：打开D:\SJ下aaa文件供写入数据，文件号为#1 将数据写入磁盘文件所用的命令是：Write# 或Print#。语法格式： 例： Open “D:\SJ\TEST.DAT” For Output As #1 Print #1,Text1.Text '把文本框的内容一次性写入文件 Close #1 2 其中的输出列表一般指用逗号，分隔的数值或字符串表达式。Write #与Print #的功能基本相同，区别是Write #是以紧凑格式存放，在数据间插入逗号，并给字符串加上双引号。 结束各种读写操作后，必须将文件关闭，否则会造成数据丢失。关闭文件的命令是Close。 Close [#]文件号[，[#]文件号]„„ 例： Close #1，#2，#3 1 Input # 作用：将从文件中读出的数据分别赋给指定的变量。 注意：与Write #配套才可以准确地读出。 2Line Input # 用于从文件中读出一行数据，并将读出的数据赋给指定的字符串变量，读出的数据中不 包含回车符和换行符，可与Print #配套用。 3Input$# 该函数可以读取指定数目的字符。 与读文件有关的两个函数： LOF（）：返回某文件的字节数 EOF（）：检查指针是否到达文件尾。 例：将一个文本文件读入文本框的三种方法。 3. 该模式要求文件中的每条记录的长度都是相同的，记录与记录之间不需要特殊的分隔符号。 只要给出记录号，可以直接访问某一特定记录，其优点是存取速度快，更新容易。 ：Open “文件名” For Random As [#] 文件号 [Len=记录长度] ：Close #文件号 注意：文件以随机方式打开后，可以同时进行写入和读出操作，但需要指明记录的长度， 系统默认长度为128个字节。 ：Get [#]文件号，[记录号]，变量名 说明：Get命令是从磁盘文件中将一条由记录号指定的记录内容读入记录变量中；记录 号是大于1的整数，表示对第几条记录进行操作，如果忽略不写，则表示当前记录的下一条记录。 ：Put [#]文件号，[记录号]，变量名 说明：Put命令是将一个记录变量的内容，写入所打开的磁盘文件指定的记录位置；记 录号是大于1的整数，表示写入的是第几条记录，如果忽略不写，则表示在当前记录后插入一条 记录。 4. ：Open “文件名” For Binary As [#] 文件号 [Len=记录长度] ：Close #文件号 该模式是最原始的文件类型，直接把二进制码存放在文件中，没有什么格式，以字节数来 定位数据，允许程序按所需的任何方式组织和访问数据，也允许对文件中各字节数据进行存取和 访问。 该模式与随机模式类似，其读写语句也是Get 和Put，区别是二进制模式的访问单位是字节， 随机模式的访问单位是记录。在此模式中，可以把文件指针移到文件的任何地方，刚开始打开时， 文件指针指向第一个字节，以后随文件处理命令的执行而一旦。文件一旦打开，就可以同时进行 读写。 7.3 1 FileCopy ：FileCopy 源文件名 目标文件名 ：复制一个文件 ：不能复制一个已打开的文件 2 Kill Kill 文件名 删除文件 文件名中可以使用通配符 *，？ 3 Name Name 旧文件名 新文件名 重新命名一个文件或目录 不能使用通配符；具有移动文件功能；不能对已打开的文件进行重命名操作 4 ChDrive ChDrive 驱动器 改变当前驱动器 如果驱动器为空，则不变；如果驱动器中有多个字符，则只会使用首字母 5MkDir MkDir 文件夹名 创建一个新的目录 6ChDir ChDir 文件夹名 改变当前目录 改变默认目录，但不改变默认驱动器。 RmDir 7. RmDir 文件夹名 删除一个存在的目录 不能删除一个含有文件的目录 8. CurDir CurDir[（驱动器）] 可以确定任何一个驱动器的当前目录。 括号中的驱动器表示需要确定当前目录的驱动器，如果为空，返回当前驱动器的当前 目录路径。 VBActiveX 81 这里的ActiveX控件是指VB 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 工具箱里没有的控件，用时需从“工程”菜单里选择“部 件„”（或右键单击工具箱，从快捷菜单中选择“部件„”），从窗口里勾上需要的控件。 常用ActiveX控件 ActiveX控件 ActiveX部件 文件名 TabStrip 页框 Toolbar 工具栏 StatusBar 状态栏 路径： ProgressBar 进程条 Windows TreeView 分层显示 Windows\system\ Microsoft Windows Common Controls 6.0 ListView 排列显示 Mscomctl.ocx ImageList 图象列表 Slider 滑块 ImageCombo 图象组合框 CommonDialog 通用对话框 Comdlg32.ocx Microsoft Common Dialog Control 6.0 Mci32.ocx Microsoft Multimedia Control 6.0 MMControl1 多媒体 MediaPlayer 媒体播放器 Msdxm.ocx Microsoft Media Player 8.1 TabStrip 1. （1） 先在窗体上画出一个TabStrip对象； （2） 右击该对象，从快捷菜单中选择“属性”； （3） 在TabStrip属性窗口里选择（General）标签，在样式（Style）列表框里选择样式； （4） 在TabStrip属性窗口里选择（Tabs）标签，在标题（Caption）框里输入标题和关键字； （5） 如果需要的话，在工具提示文本（ToolTipText）框里输入提示信息； （6） 在TabStrip属性窗口里选择（Font）标签，设置标题的字体（可以直接采用默认值）。 2 在TabStrip属性窗口里选择标签，单击按钮增加标签，单击按钮删除标签。 3TabStrip 1) 在窗体里拖入一个图象列表（ImageList）控件； 2) 在此对象上右击，选择，打开窗口； 3) 选择标签， 单击按钮，在对话框里选择想使用的位图或图标，然 后单击打开按钮；为每个想添加图形的选项卡重复此步； 4) 单击确定按钮， ImageList里就存储了需要的图片。 5) 选择TabStrip， 进入TabStrip属性窗口并选择标签，在框里选择ImageList1； 6) 选择标签，单击紧挨框的向左或向右箭头以选择一个Tab序号。在图象框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形，单击确定按钮完成。 4TabStrip 在窗体上象添加普通控件一样，把每一页需要的控件添上，控件不止一个时，应该用Frame来分组，注意：除了默认的第一页上的Frame控件外，其他所有Frame的Visible属性都应该设为假。 5 在用户选择了标签后，TabStrip要求编写代码来显示或隐藏控件。可用类似下面的代码来识别 用户在哪一个项目上单击。 <选第一项时需要执行的代码> <选第一项时需要执行的代码> ： Private Sub TabStrip1_Click() Select Case TabStrip1.SelectedItem.Key Case "statubar" Frame2.Visible = False Frame1.Visible = True Case "toolbar" Frame1.Visible = False Frame2.Visible = True End Select End Sub 8.2 StatusBarToolBar 1 StatusBar 控件由 Panel（窗格） 对象组成，最多能被分成 16 个 Panel 对象，每一个 Panel 对象能包含文本和/或图片。控制个别窗格的外观属性包括 Width、Alignment（文本和图片的）和 Bevel(斜面)。此外，能使用 Style 属性七个值中的一个自动地显示公共数据，诸如日期、时 间和键盘状态等。 2 先在窗体上画出一个StatusBar对象，再右击该对象，从快捷菜单中选择“属性”，进入属 性页设置窗口，进行下面的设置： 1 在属性窗口里选择标签，在列表框里选择多窗格（缺省形式）或单窗格简单文本 形式。 2 在属性窗口里选择标签，单击按钮添加一个窗格，或单击按钮删 除一个窗格。 3 在属性窗口里选择标签，在框里输入想显示在状态栏窗格里的文本。用代 码显示的方式是： StatusBar1.SimpleText = "" 4 1). 在属性窗口里选择标签，用索引旁的按钮选择窗格序号。 2). 在文本框里输入想显示在状态栏窗格里的文本。用代码显示的方式是： StatusBar1.Panels(x).Text = "" 3). 如果想加入图形，单击浏览按钮打开一个图形选择对话框，选择想加入的图形，然后 单击打开按钮。 5) 如果是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事件过程来响应： Private Sub StatusBar1_Click() <要执行的代码> End Sub 如果是一个多窗格状态栏，就需要鉴别用户单击的是哪一个窗格，可用下面的事件过程来 识别用户所单击的窗格： Private Sub StatusBar1_PanelClick(ByVal Panel As Panel) Select Case Panel.Index Case 1 <要执行的代码> Case 2 <要执行的代码> „„ End Select End Sub 3 1. 1） 在工具箱里单击工具栏图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移 到顶部。再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口； 2） 选择标签，单击插入按钮，Visual Basic就会在工具栏上显示一个空按钮，重复此步插入多个按钮； 3） 单击确定按钮。如果想把按钮分组，首先插入一个分隔的按钮，再在对话框里将这个 按钮的样式属性改为3-Separator。 2 1). 在Visual Basic工具箱里单击ImageList图标，并将它拖到窗体的任何位置（位置不重 要，因为它总是不可见的），再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口； 2). 选择图象标签，单击插入图片，在选定图形对话框里选择想使用的位图或图标，然后 单击打开按钮。为每个想添加图形的工具栏按钮重复此步。 3). 单击确定按钮。 4). 进入ToolBar属性对话框，选择标签，在框里选择刚才添加的ImageList 控件。 5). 选择按钮标签，单击紧挨Index框的向左或向右箭头以选择一个按钮序号。出现在工 具栏最左边的按钮序号为1。 6). 在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。 7). 为每个按钮重复第6步， 单击确定按钮，现在Visual Basic就会在工具栏上显示精美的图形了。 3 在ToolBar属性对话框中选择标签，在框里输入想显示在按钮上的文本。 4ToolTips ToolTips是一种当点到工具按钮时弹出的小标签。ToolTips很方便，可以告诉那些新手每个按钮是干什么用的。在ToolBar属性对话框中选择标签，在框里输入想作为ToolTip的文本。 5 双击工具栏，以下面的格式输入代码就可以了： Private Sub Toolbar1_ButtonClick(ByVal Button As Button) Select Case Button.Index Case 1 <要执行的代码> Case 2 <要执行的代码> „„ End Select End Sub 8.3 ProgressBarSlider 1. ：进程条控件用于监视操作完成的进度。 ：在窗体上画出进程条控件，右击，选择属性，然后进行所需的外观设置。 ：ProgressBar 控件有一个行程和一个当前位置。行程代表该操作的整个持续时间。 当前位置则代表应用程序在完成该操作过程时的进度。Max 和 Min 属性设置了行程的界限。Value 属性则指明了在行程范围内的当前位置。 (1) Min属性代表进程条全空时的值，缺省时为0。 (2) Max属性代表进程条全空时的值，缺省时为100。 (3) Value属性代表进程条当前的值（但不出现在属性窗口中），它大于Min属性，小于Max属性。改变Value属性的值将改变进程条的进度显示。 ： Private Sub Command1_Click() If ProgressBar1.Value < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 5 Else ProgressBar1.Visible = False ‘当进程条满了的时候让进程条消失 End If End Sub 2 Slider 控件是包含滑块和可选择性刻度标记的窗口，在窗体上画出滑块控件，右击，选择属 性，然后进行下列设置： 1 1)属性决定滑块的方位，可以是垂直的或水平的滑块。 2)属性决定滑块标记的样子。 3)属性 规定 关于下班后关闭电源的规定党章中关于入党时间的规定公务员考核规定下载规定办法文件下载宁波关于闷顶的规定 了沿着滑块的标记的间隔大小，缺省的状态是1，表明每个可能值都出现标记，如果把值设置为3，则每三个可能值出现一个标记。 2 1MinMax Min属性决定滑块最左端或最顶端所代表的值。Max属性决定滑块最右端或最下端所代 表的值。 2LargeChange,SmallChange SmallChange决定在滑块两端的箭头钮上单击时改变的值。LargeChange决定在滑块上方或下方区域单击时改变的值。 3Value Value属性代表当前滑块所处位置的值，这个值由滑块的相对位置决定。 4Change 当滑块位置发生变化时就引发了Change事件。 84 ListViewTreeView 1ListView 象“资源管理器”的右侧一样，可使用四种不同视图显示项目。通过此控件，可将项目组成 带有或不带有列标头的列，并显示伴随的图标和文本。 可使用 ListView 控件将称作 ListItem 对象的列表条目组织成下列四种不同的视图之一： View 属性决定在列表中控件使用何种视图显示项目。还可用 LabelWrap 属性控制列表中与项目关联的标签是否可换行显示。另外，还可管理列表中项目的排序方法和选定项目的外观。 ListView 控件包括 ListItem 和 ColumnHeader 对象。ListItem 对象定义 ListView 控件中项目的各种特性，如： 项目的简要描述、由 ImageList 控件提供的与项目一起出现的图标、 附加的文本片段，称作子项目，它们与显示在报表视图中的 ListItem 对象关联。 可以使用 HideColumnHeaders 属性决定是否在 ListView 控件中显示列标头。列标头可以在设计时添加，也可以在运行时 添加。设计时，使用 ListView“控件属性”对话框的“列首”选项卡添加列标头。运行时，使用 Add 方法添加 ColumnHeader 对象到 ColumnHeaders 集合中。 2TreeView 该控件象“资源管理器”的左侧一样，用于显示结点（ Node） 对象的分层列表，每个 Node 对象均由一个标签和一个可选的位图组成。TreeView 一般用于显示文档标题、索引入口、磁盘 上的文件和目录、或能被有效地分层显示的其它种类信息。 创建了 TreeView 控件之后，可以通过设置属性与调用方法对各 Node 对象进行操作，这些操作包括添加、删除、对齐和其它操作。可以编程展开与折回 Node 对象来显示或隐藏所有子节点。 TreeView 控件使用由 ImageList 属性指定的 ImageList 控件，来存储显示于 Node 对象的位图和图标。任何时刻，TreeView 控件只能使用一个 ImageList。这意味着，当 TreeView 控件的 Style 属性被设置成显示图像的样式时，TreeView 控件中每一项的旁边都有一个同样大小 的图像。 85 1 Multimedia MCI 控件管理媒体控制接口 (MCI) 设备上的多媒体文件的记录与回放。从概念 上说，这种控件就是一组按钮，它被用来向诸如声卡、MIDI 序列发生器、CD-ROM 驱动器、视频 CD 播放器和视频磁带记录器及播放器等设备发出 MCI 命令。MCI 控件还支持 Windows (*.avi) 视频文件的回放。 在允许用户从 Multimedia MCI 控件选取按钮之前，应用程序必须先将 MCI 设备打开，并在 Multimedia MCI 控件上启用适当的按钮。在 Visual Basic 中， MCI Open Form_Load 2 可以播放各种多媒体文件，主要属性有： （1） filename（待播放的文件名），可以在属性窗口中设置，也可以用代码实现。 （2） AutoStart（是否自动播放），默认是True。 （3） AutoRewind（是否自动循环），默认是False。 （4） PlayCount（文件播放遍数），默认是1。 86 ImageList ImageCombo 1 ImageList 控件是包含 ListImage 对象的集合，该集合中的每个对象都可以通过其索引或关键 字被引用。ImageList 控件不能独立使用，只是作为一个便于向其它控件提供图象的资料中心。 ImageList 控件的作用象图像的储藏室，同时，它需要第二个控件显示所储存的图像。第二 个控件可以是任何能显示图像 Picture 对象的控件，也可以是特别设计的、用于绑定 ImageList 控件的 Windows 通用控件之一。这些控件包括ListView、ToolBar、TabStrip、Header、ImageCombo、和 TreeView 控件。为了与这些控件一同使用 ImageList，必须通过一个适当的属 性将特定的 ImageList控件绑定到第二个控件。对于 ListView 控件，必须设置其 Icons 和 SmallIcons 属性为 ImageList 控件。对于 TreeView、TabStrip、ImageCombo、和 Toolbar 控件，必须设置 ImageList 属性为 ImageList 控件。 一旦 ImageList 与某个 Windows 通用控件相关联，就可以在过程中用 Index 属性或 Key 属性的值来引用 ListImage 对象。 当与 Windows 通用控件一起使用 ImageList 控件时，在将它绑定到第二个控件之前，按照希望的顺序将全部需要的图像插入到 ImageList。一旦 ImageList 被绑定到第二个控件 ，就不 能再删除图像了，并且也不能将图像插入到 ListImages 集合中间。但是可以在集合的末尾添加图像。 2 ImageCombo 控件是标准 Windows 组合框的允许绘图版本。控件列表部分中的每一项都可 以有一幅指定的图片。它可以显示一个包含图片的项目列表，每一项可以有自己的图片，也可以 对多个列表项使用相同的图片。 除了支持图片之外， ImageCombo 还提供了一个对象和基于集合的列表控件。控件列表部 分的每一项是一个不同的 ComboItem 对象，而且列表中的所有项组合起来构成 ComboItems 集 合。这就使它容易一项一项地指定诸如标记文本、ToolTip文本、关键字值以及缩进等级等属性。 87 Windows应用程序里的Open对话框，Save As对话框在各个应用程序里看起来都是一样的，通用对话框控件就可以提供这些对话框的标准功能。 1OpenSave As 打开Open对话框使用ShowOpen方法，打开Save As对话框使用ShowSave方法。 Private Sub mnuOpen_Click () On Error GoTo ErrorHandler CommonDialog1.CancelError = True CommonDialog1.Filter = "Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat|All Files (*.*)|*.*" CommonDialog1.ShowOpen ' 显示打开对话框 Call OpenFile(CommonDialog1.FileName) ErrorHandler: Exit Sub End Sub 其中第三行决定了在文件格式类型栏里出现的文件类型。第五行需要一个自己的打开文件的 过程，这个过程需要的参数就是通用对话框返回的文件名。通用对话框的CancelError属性设为 True的话，用户单击Cancel按钮将产生一个错误信息程序，凭借这个信息程序可以检测到用户 的放弃操作。 2Color 下面的过程可用用户选择的颜色作为窗体的底色。 Private Sub mnuColor_Click () On Error GoTo CancelButton CommonDialog1.CancelError = True CommonDialog1.ShowColor Form1.BackColor = CommonDialog1.Color CancelButton: Exit Sub End Sub 3Fonts 下面的过程可用字体对话框改变文本框的字体: Private Sub mnuFonts_Click () On Error GoTo CancelButton CommonDialog1.CancelError = True CommonDialog1.Flags = cdlCFBoth ' Flags property must be set to cdlCFBoth CommonDialog1.ShowFont ' Display Font common dialog box. Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontUnderline = CommonDialog1.FontUnderline Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.ForeColor = CommonDialog1.Color CancelButton: Exit Sub End Sub 代码的第三行出现了通用对话框的Flags属性决定了通用对话框的一些可选项，不过即使不 赋值给Flags，代码也一样会按缺省的情况去执行的。 VB 9.1 1 第一阶段：人工管理阶段，特点是数据不长期保存，没有软件系统对数据进行管理，没有文 件的概念，一组数据对应一个程序。 第二阶段：采用文件管理方式，特点是数据不再是程序的组成部分，而是有组织、有结构地 构成文件形式，形成数据文件；文件管理系统是应用程序与数据文件的接口。 第三阶段：数据库管理方式，特点是对所有数据实行统一、集中、独立的管理，数据独立于 程序存在，并可以提供给各类不同用户使用。 2 DataBase DB 具有最小的冗余度 具有数据独立性 实现数据共享 安全可靠，保密性能好 DataBase Management System DBMS 是操纵和管理数据库的系统软件。 数据定义语言（DDL）： 用来建立所需的数据库（即设计库结构） 数据语言： 数据操作语言（DML）： 用来对数据库进行查询和维护操作。 数据控制语言（DCL）： 用来控制数据的访问权限及事务管理。 关系型数据库使用的标准语言是（Structured Query Language， ）。 DataBase System DBS 以数据库应用为基础的计算机系统。 硬件：计算机硬件设备 数据库也可以这样划分其组成： 软件：数据库管理系统 、操作系统、开发工具、应用程序 用户：应用程序设计员、终端用户、数据库管理员 层次型数据库 网状型数据库 分类 网状型数据库 第一代 非关系型数据库系统，60年代末问世，包括层次型和网状型 分代 第二代 关系型数据库系统（RDBS），70年代中期问世 第三代 对象-关系数据库系统（ORDBS 、OOBDS），80年代中期至今 3 层次模型（采用树型结构） 数据模型的分类： 网络模型（采用无向图型结构） 关系模型（采用二维表结构） 二维表的记录数随数据的增加而改变，但其字段数是相对固定的 二维表中的每一列均有唯一的字段名 关系模型的性质： 二维表中不允许出现完全相同的两行 二维表中行的顺序、列的顺序均可以任意交换 4 关系型数据库的基本结构是一张二维表，包括以下概念： （1） Record：数据表中的每一行数据 （2） Field：数据表中的每一列，表头（第一行）的内容为字段名 （3） Table：相关数据组成的二维表格 （4） Database：相关数据表的集合 （5） Relation：相关表之间通过相关联的字段建立的联系。 （6） Index：指按表文件中某个关键字段或表达式建立记录的逻辑顺序。它是由一 系列记录号组成的一个列表，目的是提供对数据的快速访问。。 用来建立索引的一个字段或字段表达式。 数据库和数据表可以通过数据库管理系统软件来建立，如：Access，Visual FoxPro，SQL Server 、Sybase、 Oracle。在VB环境下可以直接建立Access数据库。 ：（1）每一个字段不可再分解，也不能有名字相同的字段； （2）每一列中的数据都有相同的数据类型； （3）表中没有内容完全相同的行（记录）。 5 query：从相关数据表中选取符合特定要求的数据。 ：可以通过查询生成器创建一个查询，也可以在SQL窗口直接用SELECT—SQL命令写出查询。 9.2 1 在VB中可以通过“外接程序”菜单中的“可视化数据管理器”调出“VisData”数据库管理器窗口。 打开数据库 打开指定的数据库 文件 新建 根据所选类型建立新数据库 导入/导出 从其他数据库导入数据表，或导出数据表及SQL查询结果 显示注册对话框注册新工作空间，用新输入的用户名和密码从新的工作空间 工作空间重新打开当前数据库。 压缩MDB 压缩指定的Access数据库，创建一个加密或解密文件。 修复MDB 修复指定的Access数据库 查询生成器 建立、查看、执行和存储SQL查询 数据窗口设计器 创建数据窗体并将其添加到VB工程中 全局替换 创建SQL表达式并更新所选数据表中满足条件的记录 实用附加 显示当前Access数据库中所有附加数据表及连接条件 程序 用户组/用户 查看和修改用户组、用户、权限等设置 System.mda 创建System.mda文件，以便为每个文件设置安全机制 性能选项 设置超时值 2 设计表名和表结构 输入记录 建立索引 增加记录 修改记录 删除记录 ： 设计表结构 ? 输入记录 ? 建立索引 ? 数据维护 1 启动可视化数据管理器 ? 在database窗口中右击，从菜单中选择“新表” ? 在表结构窗口中输入表名? 添加字段 ? 确定字段名称和属性、有效性规则 ? 建立索引 ?生成表结构。 即每个字段的名字（对所用字符没有什么限制） 指该字段的数据特征，包括：Boolean、Byte、Integer、Long、Currency、Single、 Double、Date/Time、Text、Binary（二进制型，存放图片）、Memo（备注型，存 放长文本） 字段宽度，指该字段所能容纳数据的的最大字节数 字段宽度固定不变 字段宽度可变 表示空字符串可作为有效的字段值 表示该字段值不可缺少 字段在表中的顺序位置 当向表中输入无效值时系统显示的提示信息 验证输入字段值的简单规则，目的是使所输数据符合设定的条件 在输入时设置的字段初始值，以减少输入重复性数据时的工作量 2 在database窗口中选中表名并右击，从菜单中选择“打开” ?在数据表窗口输入记录（注意窗口样式）? 单击“新增”? 在窗口中输入记录并“更新” ?重复„„ 在database窗口中选中表名并右击，从菜单中选择“打开” ?单击“编辑”/“删除”/“新增”，即可完成对记录的修改、删除、添加操作。 3 建立查询就是在数据表中找到符合特定条件的记录并组成一张新表。 在database窗口中选中表名并右击，从菜单中选择“新查询” ?在查询生成器中构造查询条件?单击“运行” ?单击“保存”，给出查询结果文件名?“关闭”。 设置查询应该满足的基本条件，可以用and /or来设置应满足的多个条件 / 设置查询结果中将显示的字段名，单击一个加亮便选中了 只显示查询结果中的前若干条记录 N 只显示查询结果中的前N条记录 执行查询命令，并显示出查询结果 用消息框显示SQL命令 将SQL命令复制到SQL窗口 将查询结果取个名并保存到数据库中 清除条件列表框中的查询条件 将查询结果分组，一般每组只有一个记录 将查询结果按顺序显示出来，ASC（升序）、DESC（降序） 设置相关表之间的连接字段 9.3 1. 从VB工具箱中单击Data控件，在窗体上画出数据控件即可。 2. 指定数据控件所要连接的数据库类型，VB默认的是Access的MDB数据库，Connect 也可以连接DBF、XLS、ODBC等数据库 DatabaseName 指定具体使用的数据库文件名，包括路径名 指定具体可访问的数据，这些数据构成记录集对象Recordset对象，可以是数RecordSource 据库中的单个表名、一个存储查询，也可以是SQL查询命令 确定记录集类型，有三种： 0——Table（表）； 1——Dynaset（动态，默认RecordsetType 的） ；2——Snapshot（快照） 当记录指针指向记录集的开始时，确定数据控件该采取的操作： 0——控件重定位到第一个记录 BofAction 1——移过记录集开始位，定位到一个无效记录，触发数据控件对第一个记录 的无效事件Validate 当记录指针指向记录集的结束时，确定数据控件该采取的操作： 0——控件重定位到最后一个记录 1——移过记录集结束位，定位到一个无效记录，触发数据控件对最后一个记EofAction 录的无效事件Validate 2——向记录集加入新的空记录，可以对新记录进行编辑，移动记录指针新记 录写入数据库 绑定控件、数据控件、数据库之间的关系： ： DataSource——通过一个有效的数据控件连接到一个数据库上。 DataField——将数据库中的有效字段连接到绑定控件上。 除了常规控件外，可以与Data数据控件绑定的控件有： MSFlexGrid Microsoft FlexGrid Control 6.0（OLE DB） DataSourse DBCombo Microsoft Data Bound List Controls 6.0 DataField、DataSource、 ListField、RowSource、DBList BoundColumn DBGrid Microsoft Data Bound Grid Control 5.0（SP3） DataSourse 3 发生在一条记录成为当前记录后。只要将记录指针从一条记录移动到另一条记录就Reposition 会触发。 在一条不同的记录成为当前记录之前，Update 方法之前（用 UpdateRecord 方法保 存数据时除外）；以及 Delete、Unload 或 Close 操作之前会发生该事件。它检查 Validate 被数据控件绑定的控件内的数据是否发生变化。 语法：Private Sub Data_Validate(Action As Integer, Save As Integer) „„ End Sub Validate Action Action Action 取消对数据控件的操作 Update 操作 0 6 MoveFirst 方法 Delete 方法 1 7 MovePrevious 方法 Find 方法 2 8 MoveNext 方法 设置Bookmark 属性 3 9 MoveLast 方法。 Close 的方法 4 10 AddNew 方法 卸载窗体 5 11 4 Refresh 激活数据控件，使各用户对数据库的操作有效。 Data1.Refresh 按钮代码： 将数据从数据库中重新读到数据控件绑定的控件内，UpdateControls 通过它可以终止用户对绑定控件内数据的修改。 Data1. UpdateControls 按钮代码： 强制数据控件将绑定控件内的数据写入到数据库中，UpdateRecord 不再触发Validate事件 Data1. UpdateRecord 5 AbsolutePostion 返回当前指针值，如果是第一条记录，其值为0；是只读属性 Bof判断记录指针是否在首记录之前，若是则为True；Eof判断记录指Bof / Eof 针是否在末记录之后，若是则为True 用于设置或返回当前指针的标签，可以用在在程序中重定位记录集的指Bookmark 属性 针，其值采用字符串类型。 在记录集中进行查找时，如果找到相匹配的记录，则为Falue，找不到NoMatch 则为True。 对Recordset对象中的记录记数，为了准确起见，在记数前用MoveLastRecordCount 方法将记录指针移到最后一条记录上；是只读属性。 用于移动记录指针，共有5种方法： MoveFirst——将指针移到第1条记录 MoveLast——将指针移到最后一条记录 Move MoveNext——将指针移到下一条记录 MovePrevious——将指针移到上一条记录 Move n——将指针向前或向后移动n条记录 在指定的Dynaset或 Snapshop类型的Recordset对象中查找与指定条件相符的一条记录，并使之成为当前记录，共有4种方法： FindFirst——从记录集的开始查找满足条件的第1条记录 方法 FindLast——从记录集的尾部向前查找满足条件的第1条记录 FindNext——从当前记录开始查找满足条件的下一条记录 FindPrevious——从当前记录开始查找满足条件的上一条记录 Find 语法格式举例： Data1.Recordset.FindFirst "课程名='计算机基础' " Find方法支持通配符，默认情况下忽略大小写，可以添加说明改变默 认设置： Option Compare Text （与大小写无关） Option Compare Binary （与大小写有关） 如果找不到相匹配的记录，当前记录保持在查找的始发处；如果找到了， 则指针定位到该记录。 使用该方法必需打开表的索引，它在Table表中查找与指定索引规则相 符的第一条记录，并使其成为当前记录。 语法格式举例： Seek Data1.Recordset.Index= "课程名" Data1.Recordset.Seek "=", "计算机基础" 6． 1） 调用AddNew方法：Data1.Recordset. AddNew 2） 给各字段赋值：Recordset.Fields("字段名")=值如果缺少第3）步而将指针移或在绑定控件中直接输入内容 动到其他记录或关闭了记 录，则所做的输入全部丢失；3） 调用Update方法，将缓冲区内的数据写入数据库： 增加记录 若没有第4）步。虽然加入了 新记录，但记录指针自动返 Data1.Recordset. Update 回到添加新记录前的位置 上，并不显示新记录。 4） 调用MoveLast方法显示新记录： Data1.Recordset. MoveLast 1）使用Delete方法时，当前记 定位被删除记录使之成为当前记录（用Move或Find方法） 录立即删除，但被数据库约 删除记录 束的绑定控件仍旧显示该记2） 调用Delete方法：Data1.Recordset. Delete 录的内容，故必须用第3）步 3） 调用MoveNext方法移动记录指针 刷新绑定控件。 1） 调用Edit方法：Data1.Recordset. Edit 如果要放弃对数据的所有修2） 给各字段赋值：在绑定控件中直接修改 改，可在第3）步之前用修改记录 Refresh方法，重读数据库，3） 调用Update方法，确定所做的修改： 刷新记录。 Data1.Recordset. Update 9.4 ADO ADO 1 ADO（ActiveX Data Object）数据访问接口是微软处理数据库信息的最新技术，它是一种 ActiveX对象，采用了OLE DB（动态连接与嵌入数据库）的数据访问模式，是数据访问对象DAO、 远程数据对象RDO和开放式数据库互连ODBC三种方式的扩展。 要使用ADO对象必需先为当前工程引用ADO对象库，方法是： 执行“工程”菜单中的“引用”命令，在对话框中选中“Microsoft ActiveX Data Object 2.0 Library”。 ADO Connection 连接数据来源 Command 从数据源获取所需数据的命令信息 Recordset 所获取的一组记录组成的记录集 Error 在访问数据库时，由数据源所返回的错误信息 Parameter 与命令对象相关的参数 Field 包含了记录集中某个字段的信息 2ADO ADO 从“工程”菜单中选择“部件”命令，在对话框中选中“Microsoft ADO Data ControlS 6.0（OLE DB）”，将其添加到工具箱，并在窗体上拖划出ADO数据控件。 ADO 用来与数据库建立连接，它包括4个参数： Provide——指定数据源的名称 FileName——指定数据源所对应的文件名 ConnectionString RemoteProvide——在远程数据服务器打开一个客户端时所用的 数据源名称 RemoteServer——在远程数据服务器打开一个主机端时所用的数 据源名称 确定具体可访问的数据，可以是数据库中的单个表名、一个存储RecordSource 查询或一个SQL查询字符串 设置数据连接的超时时间，若在指定时间内连接不成功则显示超ConnectionTimeout 时信息 MaxRecords 确定从一个查询中最多能返回的记录数 ADO 1）先在窗体上放置一个ADO数据控件 2）在ADO属性窗口中单击ConnectionString属性右边的„按钮，从对话框中选择连接数 据源的方式： 使用连接字符串——单击“生成”按钮，通过选项设置系统自动产生连接字符串 使用Data Link文件——通过一个连接文件来完成 使用ODBC数据资源名称——在下拉列表中选择某个创建好的数据源名称作为数据来 源对远程数据库进行控制。 3）在ADO属性窗口中单击RecordSource属性右边的„按钮，在“命令类型”中选择2——adCmdTable，在“表或存储过程名称”中选择所需要的表。 以上2）、3）可以合并成一步：在ADO控件上单击右键，从快捷菜单中选择ADODC属性，直接在属性页对话框中进行所有设置。 ADO 与Data数据控件完全相同。 ADO 可以从“工程”的“部件”中添加如下绑定控件： DataGrid Microsoft DataGrid Control 6.0（OLE DB） DataSource DataCombo Microsoft DataList Controls 6.0（OLE DB） DataField、DataSource、 ListField、RowSource、DataList BoundColumn MSChart Microsoft Chart Control 6.0（OLE DB） DataSource 3 从“外接程序”菜单中选择“外接程序管理器”，在对话框中选中VB6数据窗体向导，“加载”并“确定”，再从“外接程序”菜单中选择“数据窗体向导”，然后根据系统提示逐步 操作即可创建所需要的数据窗体，系统自动把所创建的窗体加到工程中。 9.5 1SQL SQL语言由命令、子句、运算、函数等组成： SQL CREATE 用于建立新的数据表结构 DROP 用于删除数据库中的数据表及其索引 ALTER 用于修改数据表结构 SELECT 用于查找符合特定条件的某些记录 INSERT 用于向数据表中加入数据 UPDATE 用于更新特定记录或字段的数据 DELETE 用于删除记录 SQL FROM 用于指定数据所在的数据表 WHERE 用于指定数据需要满足的条件 GROUP BY 将选定的记录分组 HAVING 用于说明每个群组需要满足的条件 ORDER BY 用于确定排序依据 INTO 查询结果去向 SQL 逻辑运算符 And (与)、 Or(或)、 Not(非) 比较运算符 < <= > >= = <> SQL AVG COUNT SUM MAX MIN 求平均值 计数 求和 求最大值 求最小值 2 SQL CREATE TABLE 数据表名 (字段名1 数据类型(长度), 字段名2 数据类型(长 度),„„) 建立数据表 create table student(xh text(9), xm text(8) , cj single(4), nl integer(2)) 建立含有xh、xm、cj、nl 4个字段的student表 ALTER TABLE 数据表名 ADD COLUMN 字段名 数据类型(长度) 添加字段 alter table student add column xb text(2) '在学生表中添加性别字段 ALTER TABLE 数据表名 DROP COLUMN 字段名 删除字段 alter table student drop column nl '将学生表中的年龄字段删除 SELECT 字段名表 FROM 子句 WHERE 子句 GROUP BY 子句 HAVING 子句 ORDER BY 子句 INTO 子句 数据查询 select xh, xm from student where xb="" order by xh 从学生表中查询性别为男的学生，显示其学号和姓名并使结果按学号升序排列。 INSERT INTO 数据表名字段名1，字段名2„„ VALUES数据1，数据2„„ 添加记录 insert into student (xh, xm, xb) values("015200101", "", "") DELETE FROM 数据表名 WHERE 条件表达式 删除记录 delete from student where xb="" UPDATE 数据表名 SET 新数据值 WHERE 条件表达式 更新记录 update student set cj=cj+5 where xb="" 9.6 1. 利用报表可以把数据表中的数据按一定的格式输出到屏幕上或打印到纸上。 2 在VB6.0中可以利用报表设计器来制作报表，从“工程”中选择“添加data report”，将报表设计器加入到当前工程中，报表由5部分组成： ——每份报表只有一个，可以用标签建立报表名。 ——每页有一个，即每页的表头，如字段名。 ——需要输出的具体数据，一行一条记录。 ——每页有一个，如页码。 ——每份报表只有一个，可以用标签建立对本报表的注释、说明。 使用报表设计器处理的数据需要利用数据环境设计器创建与数据库的连接， 从“工程”菜单中选择 “添加Data Enviroment”，在连接中选择指定的数据库文件，完成与数据库的连接， 然后产生Command对象连接数据库内的表。 （1） 新建工程，在窗体上放置两个命令按钮； （2） 从“工程”菜单中“添加Data Enviroment”，右击Connection1，在属性中选择“Microsoft Jet 4 OLE DB Provider”，在“连接”中指定数据库； （3） 再次右击Connection1，选则“添加命令”，创建Command1对象，右击Command1，在属性中设置该对象连接的数据源为需要打印的数据表； （4） 在从“工程”菜单中“添加Data Report”，在属性窗口中设置DataSource为数据环境DataEnviroment1对象，DataMember为Command1对象，即指定数据报表设计器DataReport1的数据来源； （5） 将数据环境设计器中Command1对象内的字段拖到数据报表设计器的细节区； （6） 利用控件在报表标头区插入报表名，在页标头区设置报表每一页顶部的标题； （7） 利用控件在报表内加入直线，利用控件和形状控件加入图案或图形； （8） 利用DataReport1对象的Show方法显示报表，在窗体Click事件加代码：DataReport1.Show （9） 利用预览窗口按打印按钮可以打印报表； 利用预览窗口工具栏上的导出按钮可以将报表内容输出成文本文件或Html文件； （10） 也可以利用DataReport1对象的ExportReport方法将报表内容输出成文本文件或Html文件。 制作报表的简单方法是从“外接程序”中选择报表向导来设计报表。 9.7 MIS 学生成绩管理系统的设计 1. 建立工程文件 设计系统主界面，验证用户身份 2. 3. 建立Access数据库，输入若干记录 4. 设计带菜单的主窗体，把其他窗体组织起来 5. 根据需要完成系统功能，设计带数据控件的各种窗体 6. 调试、修改 7. 生成EXE文件