VB企业人事管理系统数据库课程设计 第3页
用E-R图表示该实体如下：
完整的E-R图如下所示：
系统主要功能模块设计
各模块的主要算法对应的原代码
1、 数据库的连接：
⑴ 利用控件Adodc连接：
在Adodc控件中，设置ConnectStringProvider=”SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ManageSystem”，然后再设置CommandType为8 – adCmdUnknown，数据源定为SQL查询语句，语句内容根据不同需要而更改。
设定ConnectString属性
P．S：当然，可以手工输入，也可以利用“生成”让VB自动给出语句。
设定RecordSource属性
连接数据库核心语句：
Adodc1.ConnectStringProvider=”SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ManageSystem”
Adodc1.RecordSource = SQL查询语句
Adodc1.Recordset.Open
Adodc1.Refresh
断开数据库核心语句：
Adodc1.Recordset.Close
⑵ 利用ADODB对象作为SQL连接接口：
由于在程序中使用瞬间连接数据库比长期连接数据库高效，而且在本程序中大量使用，因而新增了模块Module1，自定义了SqlConnect函数作为连接，SqlDisConnect函数来断开连接，方便编写程序，提高代码使用率，提高开发效率和运行效率。
连接数据库核心语句：
Set Ado_Conn = New ADODB.Connection
Set Ado_RS = New ADODB.Recordset
str_CS = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ManageSystem"
str_RS = SQL查询语句
SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS
其中模块中定义了SqlConnect函数：
Public Sub SqlConnect(ByVal Ado_Connection As ADODB.Connection, _
ByVal Ado_Recordset As ADODB.Recordset, _
Ado_ConnectionString As String, _
Ado_RecordSource As String)
Ado_Connection.ConnectionString = Ado_ConnectionString
Ado_Connection.ConnectionTimeout = 30
Ado_Connection.Open
Ado_Recordset.Open Ado_RecordSource, Ado_Connection
End Sub
断开数据库核心语句：
SqlDisConnect Ado_RS
其中模块中定义了SqlDisConnect函数：
Public Sub SqlDisConnect(ByVal AdoRecordset As ADODB.Recordset)
If AdoRecordset.State Then AdoRecordset.Close
End Sub
2、 数据的查询：
⑴ 利用表格方式对SQL数据进行查询：
利用连接数据库的方法，返回一个RecordSet集合。
通过MSHFlexGrid控件、DataGrid控件等控件对集合作表格方式的输出。使用Adodc控件时，可以通过属性的设定，把MSHFlexGrid控件、DataGrid1控件捆绑在Adodc控件上。
对用Adodc控件捆绑
当使用ADODB对象时，可以通过Set语句对MSHFlexGrid.DataSourse 进行赋ADODB对象的Recordset值。但是DataGrid1则不能。
⑵ 利用字符窜方式对SQL数据进行查询
利用连接数据库的方法，返回一个RecordSet集合。
通过对RecordSet集合的提取，把元组中的属性值赋给TextBox等控件控件，让其输出。
核心代码： Adodc1.Recordset.MoveFirst
上一页 [1] [2] [3] [4] [5] [6] 下一页
VB企业人事管理系统数据库课程设计 第3页下载如图片无法显示或论文不完整，请联系qq752018766
