管理信息系统开发

一、VB内置的数据库管理对象为了能够方便地操作数据库，VB提供了一系列的内置的数据库管理类。其中最重要的类是ADODB.Connection类和ADODB.RecordSet类。1、ADODB.Connection类ADODB.Connection是数据库连接类，所有对数据库的连接操作都是在这个类的基础上派生出来的。这个类有两个非常重要的属性：第1页，共31页。一、VB内置的数据库管理对象(1)ConnectionString属性ConnectionString属性的值是一个字符串，用于描述数据库连接信息。例如：“DSN=数据源名称；uid=用户名；pwd＝密码”就是用的较多的方式。表示以指定的用户名和密码访问数据源对应的数据库。(2)Open方法Open的含义是打开数据库连接。当数据库连接被打开后，就可以通过这个数据库连接访问数据库中的内容了。第2页，共31页。一、VB内置的数据库管理对象(3)示例假设要使用VB访问SQLServer2000的数据库ycxxgl，已知此数据库的用户名是yyinfodl,密码是12345。在此数据库中有一张数据表“员工表”，结构为：职工号，姓名，性别，生日，权限，密码等。第3页，共31页。一、VB内置的数据库管理对象连接此数据库的常用方法是：①利用“控制面板/管理工具”中的“ODBC数据源”，设置ycxxgl为系统数据源，数据源名称为“lswgl”。②使用以下代码连接数据库DIMconnASADODB.Connection

‘定义一个数据库连接变量Setconn=newADODB.Connection

'创建一个数据库连接对象Conn.ConnectionString=”DSN=lswgl;uid=yyinfodl;pwd=12345”

Conn.open

'打开这个对象第4页，共31页。一、VB内置的数据库管理对象或者：DIMconnASADODB.Connection

'定义一个数据库连接变量Setconn=newADODB.Connection

'创建一个数据库连接对象Conn.open”DSN=lswgl;uid=yyinfodl;pwd=12345”

'带参数打开这个数据库连接对象第5页，共31页。一、VB内置的数据库管理对象2、RecordSet类RecordSet类是一个记录集类，可以看作是一个处于内存中的二位表格。对于游标类型，常用的方式是0和3，当游标方式为3时，可以设置游标的工作位置是在“客户端”还是在“服务器端”。对于游标类型，锁定方式常用1和3。当锁定方式为3时，表示可以通过记录集更新记录。第6页，共31页。一、VB内置的数据库管理对象游标类型含义0只读向前1键集方式2动态方式3静态方式锁定方式含义1只读2保守式3开放式4开放式批处理(1)记录集的状态记录集对象在创建时可以预设其状态。第7页，共31页。一、VB内置的数据库管理对象(2)记录集的主要属性和方法命令名格式含义前提条件OpenOpensql语句,连接名[游标类型],[锁定方式]带参数打开，在指定连接上执行SQL语句，结果存入记录集对象无FilterFilter=”条件式”按照条件式对记录集过滤，去除不符合条件记录无addNewAddnew在记录集中添加一行记录集可更新updateUpdate把对记录集的更新保存到数据库记录集可更新DeleteDeleteDeleteadAffectCurrent删除当前记录记录集可更新第8页，共31页。一、VB内置的数据库管理对象(3)记录集的应用示例DimsqlsasStringDimrsasADODB.RecordSetSetrs=newADODB.RecordSetSqls=”select*from员工表”Rs.opensqls,connDimsqlsasStringDimrsasADODB.RecordSetSetrs=newADODB.RecordSetSqls=”select*from员工表”Rs.opensqls,conn,3,3第9页，共31页。二、数据表格DataGridDataGrid是VB为了快速进行数据表处理而专门设计的一个类，是一个显示在窗体中的二维表格。这个表格中的数据可以由带有客户端游标的记录集填充，也可以在创建DataGrid时直接通过属性DataSource设定。第10页，共31页。二、数据表格DataGrid表5-9

数据表格的属性和主要方法属性/方法名格式含义DataSourceDataSource=记录集对象名设置DataGrid的数据源是指定记录集DataSource=数据环境名设置其数据源是一个数据环境，需要继续指定其DataMember属性值DataMemberDataMember=命令名在DataSource中设定数据环境后，需要指定DataMember为数据环境下的某个命令名。实质上是一个运行命令后获得的记录集对象。Columns(列号)Xx=数据表格.Columns(列)返回指定列中当前行的值第11页，共31页。三、基于代码的数据库操作1、案例要求假设要使用VB访问SQLServer2000的数据库ycxxgl，已知此数据库的用户名是yyinfodl，密码是12345，定义的ODBC数据源名称是lswgl。在此数据库中有一张数据表“员工表”，结构为：职工号，姓名，性别，生日，权限，密码等。编写一个工程sjcl，运行此工程实现如图5-19所示的功能。如果单击“查询”按钮，则只在表格中列出名字为文字框内容的记录；如图5-20。单击“删除”按钮，则删除当前光标所在位置处的记录。第12页，共31页。三、基于代码的数据库操作系统的运行效果图第13页，共31页。三、基于代码的数据库操作实际演示系统设计过程DimconnAsADODB.ConnectionDimsqlsAsStringDimRsAsADODB.RecordsetPrivateSubForm_Load()

Setconn=NewADODB.Connection

conn.Open"DSN=lswgl;uid=yyinfodl;pwd=12345"

SetRs=NewADODB.Recordset

sqls="select*from员工表"

Rs.CursorLocation=adUseClient

Rs.Opensqls,conn,3,3

SetDgYgb.DataSource=RsEndSubPrivateSubchazhao_Click()

Rs.Filter="姓名like'"+Trim(ygxm.Text)+"%'"EndSub第14页，共31页。三、基于代码的数据库操作PrivateSubDeleRec_Click()

DimygbhAsString

ygbh=DgYgb.Columns(0)

sqls="deletefrom员工表where职工号='"+ygbh+"'"

conn.Execute(sqls)

SetRs=NewADODB.Recordset

sqls="select*from员工表"

Rs.CursorLocation=adUseClient

Rs.Opensqls,conn,3,3

SetDgYgb.DataSource=RsEndSubPrivateSubquit_Click()

conn.Close

UnloadMeEndSub第15页，共31页。四、基于界面的数据库管理实际演示——操作过程注意：自动生成数据库连接和记录集对象第16页，共31页。四、基于界面的数据库管理代码演示DimdaoAsDE1

PrivateSubchazhao_Click()

dao.rsygglxx.Filter="姓名like'"+Trim(ygxm.Text)+"%'"EndSub

PrivateSubDeleRec_Click()

dao.rsygglxx.DeleteadAffectCurrentEndSub

PrivateSubForm_Load()

Setdao=NewDE1

Calldao.ygglxx

SetDgYgb.DataSource=dao.rsygglxxEndSub

PrivateSubquit_Click()

UnloadMeEndSub第17页，共31页。五、MDI窗体运行在Window下的C/S结构的MIS具有Windows应用系统的通用特点：整个应用中只有一个主窗口，这个窗口有标题、菜单、工具栏等标记，另外还有若干个子窗口，子窗口处于主窗口之中，子窗口通常没有菜单栏。在这种模式下，子窗口的显示/关闭由主窗口的菜单项决定。这种模式被称为多文档界面，其中的主窗口被称为MDI窗体，而子窗口被称为子窗体，用户可以通过位于MDI上的菜单操作MIS。第18页，共31页。五、MDI窗体对MDI窗体的操作主要包括两个方面：其一是创建MDI窗体，其二是设置MDI窗体的子窗体。1、创建MDI窗体在工程的设计状态下，选择菜单“工程”→“添加MDI窗体”，选择按钮“打开”后就自动向工程中添加了一个MDI窗体（MDIForm1）。此时，可根据需要，在属性窗口中对MDIForm1的“名称”，“Caption”(标题)，“Width”(宽度)，“Height”(高度)，“StartUpPosition”(开始位置)，“WindowState”(窗口状态)等属性进行设置。第19页，共31页。五、MDI窗体2、设置MDI窗体的子窗体一个普通窗体，只需把其属性“MDIChild”值修改为“True”，这个普通窗体就变成了MDI的子窗体。对于子窗体，有时为了固定大小，或为了一些特定的要求，可以把其“BorderStyle”属性的值修正为“3－FixedDialog”，即“固定对话框”模式。第20页，共31页。六、菜单设计用户可以通过这个菜单打开所需的子窗体，完成各种不同的功能。可以说，菜单设计是MIS开发的灵魂，因为它体现了整个MIS的结构和功能组成。第21页，共31页。六、菜单设计1、创建菜单在MDI窗体的编辑状态下，选择系统菜单“工具”→“菜单编辑器”，就打开了“菜单编辑器”对话框，利用菜单编辑器就可以为当前窗口添加菜单了。第22页，共31页。六、菜单设计(1)添加菜单项在“标题”中输入菜单项的标题“数据查询(&L)”，接着输入这个菜单项的名字“sjcx”,索引项的值1；单击按钮“下一个”，进入新的一行（即一个新的菜单项），输入标题“根据姓名查找”，名称为“xmcz”，索引项为2；同样的方法，输入菜单中的所有菜单项。第23页，共31页。六、菜单设计(2)调整菜单项以鼠标单击选中“根据姓名查找”项，然后单击按钮“”降低这个菜单项的级别，使之成为“数据查询”菜单项的子菜单项，此时菜单项显示为“……根据姓名查找”。单击“快捷键”的组合框，可以为“根据姓名查找”菜单项设置快捷键。第24页，共31页。六、菜单设计2、菜单设计中的技巧(1)调整菜单项的层次在菜单设计过程中可通过和调整菜单项的层次；(2)调整菜单项的位置在菜单设计过程中可通过和调整当前菜单项在整个菜单中的位置；(3)设置菜单项的快捷键利用“菜单编辑器”右侧中部的组合框“快捷键”可以为当前菜单项设置快捷键；第25页，共31页。六、菜单设计(4)指定菜单项的访问键在Windows菜单中，很多菜单项后面都有一个带下划线的大写字母，利用<Alt>+<字母>可以快速的启动这个菜单项。例如Windows的菜单项“文件(F)”中的字母F。这个字母被称为菜单项的访问键。在VB中，通过在菜单项标题中增加“&字母”设置访问键。例如“数据查询（&L）”的运行效果是“数据查询(L)”。(5)设置菜单项的默认状态在菜单设计过程中，可通过复选框“可见”、“有效”等设置菜单项的默认状态（可见性和可用性状态）。第26页，共31页。七、变量与变量的作用域1、变量的定义和命名规范(1)变量命名规范在VB中，变量的命名必须遵循以下规范：①变量名必须以字母或下划线开头，但通常以英文字母开头；②变量名的中间可以带有数字，但不要带有可能引发歧义的加号、减号、以及常用的标点符号；③VB的变量名不区分大小写，CONN和conn、Conn等相同。但在程序设计时，为了增加程序的可读性，通常使用包含大小写字母的变量名称。例如DataGrid2，表示第2个数据表格。④为增加程序的通用性，尽量使用带有一定含义的字符串命名变量，例如用Conn代表Connection，来表示数据库连接对象，用Rs代表记录集对象。第27页，共31页。七、变量与变量的作用域(2)变量的定义VB常用的变量定义有以下四种方法：①用Dim定义变量；②以Public或Private定义变量；③以类型说明符定义变量；④默认使用变量；例如：定义字符串变量sqls，可以使用以下方法：DimsqlsasStringPublicsqlsasStringDim