管理信息系统开发ppt13.ppt

一 VB内置的数据库管理对象 为了能够方便地操作数据库 VB提供了一系列的内置的数据库管理类 其中最重要的类是ADODB Connection类和ADODB RecordSet类 1 ADODB Connection类ADODB Connection是数据库连接类 所有对数据库的连接操作都是在这个类的基础上派生出来的 这个类有两个非常重要的属性 一 VB内置的数据库管理对象 1 ConnectionString属性ConnectionString属性的值是一个字符串 用于描述数据库连接信息 例如 DSN 数据源名称 uid 用户名 pwd 密码 就是用的较多的方式 表示以指定的用户名和密码访问数据源对应的数据库 2 Open方法Open的含义是打开数据库连接 当数据库连接被打开后 就可以通过这个数据库连接访问数据库中的内容了 一 VB内置的数据库管理对象 3 示例假设要使用VB访问SQLServer2000的数据库ycxxgl 已知此数据库的用户名是yyinfodl 密码是12345 在此数据库中有一张数据表 员工表 结构为 职工号 姓名 性别 生日 权限 密码等 一 VB内置的数据库管理对象 连接此数据库的常用方法是 利用 控制面板 管理工具 中的 ODBC数据源 设置ycxxgl为系统数据源 数据源名称为 lswgl 使用以下代码连接数据库DIMconnASADODB Connection 定义一个数据库连接变量Setconn newADODB Connection 创建一个数据库连接对象Conn ConnectionString DSN lswgl uid yyinfodl pwd 12345 Conn open 打开这个对象 一 VB内置的数据库管理对象 或者 DIMconnASADODB Connection 定义一个数据库连接变量Setconn newADODB Connection 创建一个数据库连接对象Conn open DSN lswgl uid yyinfodl pwd 12345 带参数打开这个数据库连接对象 一 VB内置的数据库管理对象 2 RecordSet类RecordSet类是一个记录集类 可以看作是一个处于内存中的二位表格 对于游标类型 常用的方式是0和3 当游标方式为3时 可以设置游标的工作位置是在 客户端 还是在 服务器端 对于游标类型 锁定方式常用1和3 当锁定方式为3时 表示可以通过记录集更新记录 一 VB内置的数据库管理对象 1 记录集的状态记录集对象在创建时可以预设其状态 一 VB内置的数据库管理对象 2 记录集的主要属性和方法 一 VB内置的数据库管理对象 3 记录集的应用示例 二 数据表格DataGrid DataGrid是VB为了快速进行数据表处理而专门设计的一个类 是一个显示在窗体中的二维表格 这个表格中的数据可以由带有客户端游标的记录集填充 也可以在创建DataGrid时直接通过属性DataSource设定 二 数据表格DataGrid 表5 9数据表格的属性和主要方法 三 基于代码的数据库操作 1 案例要求假设要使用VB访问SQLServer2000的数据库ycxxgl 已知此数据库的用户名是yyinfodl 密码是12345 定义的ODBC数据源名称是lswgl 在此数据库中有一张数据表 员工表 结构为 职工号 姓名 性别 生日 权限 密码等 编写一个工程sjcl 运行此工程实现如图5 19所示的功能 如果单击 查询 按钮 则只在表格中列出名字为文字框内容的记录 如图5 20 单击 删除 按钮 则删除当前光标所在位置处的记录 三 基于代码的数据库操作 系统的运行效果图 三 基于代码的数据库操作 实际演示系统设计过程DimconnAsADODB ConnectionDimsqlsAsStringDimRsAsADODB RecordsetPrivateSubForm Load Setconn NewADODB Connectionconn Open DSN lswgl uid yyinfodl pwd 12345 SetRs NewADODB Recordsetsqls select from员工表 Rs CursorLocation adUseClientRs Opensqls conn 3 3SetDgYgb DataSource RsEndSubPrivateSubchazhao Click Rs Filter 姓名like Trim ygxm Text EndSub 三 基于代码的数据库操作 PrivateSubDeleRec Click DimygbhAsStringygbh DgYgb Columns 0 sqls deletefrom员工表where职工号 ygbh conn Execute sqls SetRs NewADODB Recordsetsqls select from员工表 Rs CursorLocation adUseClientRs Opensqls conn 3 3SetDgYgb DataSource RsEndSubPrivateSubquit Click conn CloseUnloadMeEndSub 四 基于界面的数据库管理 实际演示 操作过程注意 自动生成数据库连接和记录集对象 四 基于界面的数据库管理 代码演示DimdaoAsDE1PrivateSubchazhao Click dao rsygglxx Filter 姓名like Trim ygxm Text EndSubPrivateSubDeleRec Click dao rsygglxx DeleteadAffectCurrentEndSubPrivateSubForm Load Setdao NewDE1Calldao ygglxxSetDgYgb DataSource dao rsygglxxEndSubPrivateSubquit Click UnloadMeEndSub 五 MDI窗体 运行在Window下的C S结构的MIS具有Windows应用系统的通用特点 整个应用中只有一个主窗口 这个窗口有标题 菜单 工具栏等标记 另外还有若干个子窗口 子窗口处于主窗口之中 子窗口通常没有菜单栏 在这种模式下 子窗口的显示 关闭由主窗口的菜单项决定 这种模式被称为多文档界面 其中的主窗口被称为MDI窗体 而子窗口被称为子窗体 用户可以通过位于MDI上的菜单操作MIS 五 MDI窗体 对MDI窗体的操作主要包括两个方面 其一是创建MDI窗体 其二是设置MDI窗体的子窗体 1 创建MDI窗体在工程的设计状态下 选择菜单 工程 添加MDI窗体 选择按钮 打开 后就自动向工程中添加了一个MDI窗体 MDIForm1 此时 可根据需要 在属性窗口中对MDIForm1的 名称 Caption 标题 Width 宽度 Height 高度 StartUpPosition 开始位置 WindowState 窗口状态 等属性进行设置 五 MDI窗体 2 设置MDI窗体的子窗体一个普通窗体 只需把其属性 MDIChild 值修改为 True 这个普通窗体就变成了MDI的子窗体 对于子窗体 有时为了固定大小 或为了一些特定的要求 可以把其 BorderStyle 属性的值修正为 3 FixedDialog 即 固定对话框 模式 六 菜单设计 用户可以通过这个菜单打开所需的子窗体 完成各种不同的功能 可以说 菜单设计是MIS开发的灵魂 因为它体现了整个MIS的结构和功能组成 六 菜单设计 1 创建菜单在MDI窗体的编辑状态下 选择系统菜单 工具 菜单编辑器 就打开了 菜单编辑器 对话框 利用菜单编辑器就可以为当前窗口添加菜单了 六 菜单设计 1 添加菜单项在 标题 中输入菜单项的标题 数据查询 L 接着输入这个菜单项的名字 sjcx 索引项的值1 单击按钮 下一个 进入新的一行 即一个新的菜单项 输入标题 根据姓名查找 名称为 xmcz 索引项为2 同样的方法 输入菜单中的所有菜单项 六 菜单设计 2 调整菜单项以鼠标单击选中 根据姓名查找 项 然后单击按钮 降低这个菜单项的级别 使之成为 数据查询 菜单项的子菜单项 此时菜单项显示为 根据姓名查找 单击 快捷键 的组合框 可以为 根据姓名查找 菜单项设置快捷键 六 菜单设计 2 菜单设计中的技巧 1 调整菜单项的层次在菜单设计过程中可通过和调整菜单项的层次 2 调整菜单项的位置在菜单设计过程中可通过和调整当前菜单项在整个菜单中的位置 3 设置菜单项的快捷键利用 菜单编辑器 右侧中部的组合框 快捷键 可以为当前菜单项设置快捷键 六 菜单设计 4 指定菜单项的访问键在Windows菜单中 很多菜单项后面都有一个带下划线的大写字母 利用 可以快速的启动这个菜单项 例如Windows的菜单项 文件 F 中的字母F 这个字母被称为菜单项的访问键 在VB中 通过在菜单项标题中增加 字母 设置访问键 例如 数据查询 L 的运行效果是 数据查询 L 5 设置菜单项的默认状态在菜单设计过程中 可通过复选框 可见 有效 等设置菜单项的默认状态 可见性和可用性状态 七 变量与变量的作用域 1 变量的定义和命名规范 1 变量命名规范在VB中 变量的命名必须遵循以下规范 变量名必须以字母或下划线开头 但通常以英文字母开头 变量名的中间可以带有数字 但不要带有可能引发歧义的加号 减号 以及常用的标点符号 VB的变量名不区分大小写 CONN和conn Conn等相同 但在程序设计时 为了增加程序的可读性 通常使用包含大小写字母的变量名称 例如DataGrid2 表示第2个数据表格 为增加程序的通用性 尽量使用带有一定含义的字符串命名变量 例如用Conn代表Connection 来表示数据库连接对象 用Rs代表记录集对象 七 变量与变量的作用域 2 变量的定义VB常用的变量定义有以下四种方法 用Dim定义变量 以Public或Private定义变量 以类型说明符定义变量 默认使用变量 例如 定义字符串变量sqls 可以使用以下方法 DimsqlsasStringPublicsqlsasStringDimsqls Sqls 定义整型量num 可以使用以下方法 DimnumasIntegerPublicnumasIntegerDimnum Num 0 七 变量与变量的作用域 3 对变量定义的补充说明VB不是强制语言类型 默认方式下允许开发人员可以在不预先定义变量的情况下直接使用变量 但在实际的程序开发中 为了更好地发挥VB编辑器的提示作用 增加程序的条理性 可读性 减少程序出错的概率 最好能够显式地定义所有变量 为此 可以设置VB编辑器强制用户对变量进行显示定义 即执行系统菜单 工具 选项 在弹出的对话框中选择 编辑器 选项卡 然后设置 要求变量声明 复选框为有效 此时 VB将把一条强制变量定义的语句OptionExplicit添加到Code的声明部分 此后 本工程的所有代码中都遵循 先定义再