毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

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(职位)。通过对其的判断,来选择其他更多的步骤。
核心语句:

上一页  [1] [2] [3] [4] [5] [6] 下一页

VB企业人事管理系统数据库课程设计 第4页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。