您现在的位置：毕业论文 >> 课程设计 >> 正文

VB企业人事管理系统数据库课程设计第4页

更新时间：2010-3-7: 来源：毕业论文

VB企业人事管理系统数据库课程设计第4页
Adodc1.Recordset.Find "工号='1234"
Text1.Text = Adodc1.Recordset.Fields("工号").Value
    Text2.Text = Adodc1.Recordset.Fields("姓名").Value
⑶ 对查询所得到的集合作出判空：
方法有多种：（设Ado_RS为Recordset）
A、利用EOF和BOF两个属性进行判断：
       If Ado_RS.BOF = False And Ado_RS.EOF = False Then
           集合不为空
       Else
           集合为空
       End If

        B、利用Recordset 的RecordCount属性判断：
           If Ado_RS.RecordCount > 0 Then
                集合不为空
       Else
           集合为空
       End If

        C、利用DataGrid 的ApproxCount属性来判断：
            判断条件会因表格的自定义显示而有所不同
           If DataGrid1.ApproxCount > 0 Then
                集合不为空
       Else
           集合为空
       End If

        D、利用MSHFlexGrid的Rows属性判断：
            判断条件会因表格的自定义显示而有所不同
           If MSHFlexGrid1. Rows> 1 Then
                集合不为空
       Else
           集合为空
       End If
⑷ 查询特定元组
对于特定元组，由于主码的唯一性，所以当对主码作准确查询时，所得的表只有两种情况：只有一条元组或者什么都没有。
通过⑶的方法，可以对集合判空。如果为空，则认为特定元组不存在，，查询失败；如果返回一条元组，则指针肯定是指向该元组，可以马上对数据进行读取。
核心代码：
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 = "select * from BaseTable where BID='" & Trim(Text1.Text) & "'"
    SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS
    Ado_RS.RecordCount
    '检测帐号是否存在
    If Ado_RS.EOF = False Then    '如果帐号存在
        If Trim(Ado_RS.Fields("BID")) = Trim(Text1.Text) And Trim(Ado_RS.Fields("BPassword")) = Trim(Text2.Text) Then
还有一种方法，利用Find方法进行查找，如果找到则指针指向该元组。如找不到则返回错误。因此利用捕获错误的方法也可以得到效果。
第三种，利用MSHFlexGrid控件、DataGrid控件等，均可以利用控件内部的属性和方法进行查询。
3、数据的修改：
⑴ 利用嵌入SQL语句。
   首先使用ADODB对象连接的方法，利用ADODB.Connection.
Execute直接嵌套运行SQL语句对数据进行修改。
       核心语句：
       Ado_Conn.Execute “updata 表名 set 某属性=XX”
⑵ 此外还可以利用ADO接口提供的Fields属性对数据进行修改。
       核心语句：
Adodc1.Recordset.Find "工号='" & Text3.Text & "'"
    Adodc1.Recordset.Fields("姓名") = Text4.Text
    Adodc1.Recordset.Fields("所属部门") = Combo2.Text
    Adodc1.Recordset.Fields("职位") = Combo3.Text
    Adodc1.Recordset.Update
    Adodc1.Refresh
⑶ 利用DataGrid控件对数据库进行强行修改。
只需要连接好数据库，然后对DataGrid进行捆绑，而且DataGrid的AllowUpdate等属性设为True就可以通过界面直接修改。
4、数据的删除
基本方法跟3一样。
⑴ 使用SQL嵌套语句删除数据。
Ado_Conn.Execute “delete from表名 where某属性=XX”
⑵ 此外还可以利用ADO接口提供的Fields属性对数据进行修改。
       核心语句：
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.Find "工号='" & Text3.Text & "'"
    Adodc1.Recordset.Delete
Adodc1.Recordset.Update
5、数据的添加：
基本方法跟3一样。
⑴ 使用SQL嵌套语句增加数据。
Ado_Conn.Execute “insert into 表名 values(某属性=XX)”
⑵ 此外还可以利用ADO接口提供的Fields属性对数据进行修改。
       核心语句：
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.AddItem
    Adodc1.Recordset.Fields("姓名") = Text4.Text
    Adodc1.Recordset.Fields("所属部门") = Combo2.Text
    Adodc1.Recordset.Fields("职位") = Combo3.Text
    Adodc1.Recordset.Update
    Adodc1.Refresh
7、权限的分配
读取BaseTable（员工基本表）里面的BPosition（职位）。通过对其的判断，来选择其他更多的步骤。
核心语句：