数据库录入记录完整性检查的实现技术.docx

数据库录入记录完整性检查的实现技术 引言 数据库的完整性是指数据的正确性和相容性。 完整性检查和 控制的防范对象是不合语义的、 不正确的数据， 防止它们进入数 据库。在数据库设计过程中，涉及到实体完整性、参照完整性和 用户自定义完整性。文章结合VB ACCES以及SQL语言在VB宿 主语言中的运用， 对数据库录入记录完整性检查的实现技术进行 探讨。以两个关系为例说明问题，关系 1：学生(学号，姓名， 性别，系部名称，班级)关系 2：系部(系部编号，系部名称， 系主任)；分别对应为 : student(sno,sname,ssex,sdep,sclass)dep(depno,depname,de pmanager) 屏蔽非法输入 对于记录中的学号，只允许数字输入 ，违约处理：自动过 滤非数字的非法输入。以本程序为例，设计时应添加模块，在模 块中添加函数 In_Int() ，添加控件 textbox, 命名为 Txtsno 。 程序段如下： Public Function In_Int(KeyAscii As Integer) As Boolean Dim Ch_Accept_Int(10) As String 可以接受的字符数组 Dim i As Integer Ch_Accept_Int(0) = 0 Ch_Accept_Int(1) = 1 Ch_Accept_Int(2) = 2 Ch_Accept_Int(3) = 3 Ch_Accept_Int(4) = 4 Ch_Accept_Int(5) = 5 Ch_Accept_Int(6) = 6 Ch_Accept_Int(7) = 7 Ch_Accept_Int(8) = 8 Ch_Accept_Int(9) = 9 Ch_Accept_Int(10) = chr(8) In_Int = False 检查输入字符是否在数组中 For i = 0 To 10 If Chr(KeyAscii) = Ch_Accept_Int(i) Then In_Int = True End If Next End Function Private Sub Txtsno_KeyPress(KeyAscii As Integer) If In_Int(KeyAscii) = FalseThenKeyAscii = 0 End Sub 检查库中有无重复数据 被使用。违约处理：给出提示信息，并清除重复学号，光标重新 定位于接受录入的文本框。以本程序为例，设计时应添加控件 textbox,commandbutton, 命名为： Txtsno,Cmdinsert 。程序段如 下： Public rs As New ADODB.Recordset Public conn As New ADODB.Connection Private Sub Cmdinsert_Click( ) Connstring=provider=Microsoft.Jet.OLEDB.4.0;Data source = App.Path \XXX.mdb; 假设后台数据库为 XXX.mdb conn.ConnectionString =Connstring conn.Open 打开到数据库的连接 Set rs.ActiveConnection = conn 指定与其关联的数据库连接 rs.Open select * from student wheresno= Trim$(Txtsno.Text) , conn, adOpenStatic, adLockReadOnly If rs.RecordCount 0 Then MsgBox 学号重复 , 请重新输入 !, vbExclamation Txtsno.Text = Txtsno.SetFocus Exit Sub End If End Sub 提供给用户合法录入的数据源， 避免违反参照完整性的操 作 将后台数据库中的数据自动读取出来并添加到相应的控件 中，以便用户选择。避免用户盲目录入不相关的数据，造成多表 同步更新错误。 违约处理： 提供合法数据源， 强制用户只能选择， 不可更改供体。以本程序为例，设计时应添加控件 combobox， 命名为：Cmodep,程序段作用是读取全部的系名作为供体，以 便用户录入记录时选择学生所在系。锁定 Cmodept控件的style 属性为 2-dropdown list 。程序段如下： Private Sub Frmaddstud_Load( ) Dim i As Integer Connstring=provider=Microsoft.Jet.OLEDB.4.0;Data source = App.Path \XX