【正文】 e Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubOption ExplicitPublic blnNeedUpdate As BooleanPublic blnAdding As BooleanPublic strcon As StringPrivate Sub Command1_Click()Dim struser As StringIf Len() 0 Then struser = Else If Len() 0 Then struser = Else MsgBox 信息不能為空, vbExclamation, 警告 End IfEnd IfDim strsql As StringDim strsql1 As Stringstrsql = select [學號] as [sushe] from 學生 Dim conn As New Dim rst As New Dim cmd As New = strcon 39。 amp。 39。 amp。 39。引用公共變量 = adUseClient strsql, conn, adOpenDynamic, adLockBatchOptimistic Set = Call gridWidth End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click() If Trim() = Then MsgBox 沒有選中任何行或則[學號]為空!, vbInformation, 提示 Exit Sub End If On Error GoTo myError: Dim strsql As String strsql = update 學生 set 學號=39。 amp。,違紀處理情況=39。 amp。 where 學號=39。 amp。 Call sqlcmd(strsql) blnAdding = False strsql = select 學號,違紀處理情況 from 學生 where 學號=39。 amp。 Call bindGrid(strsql) MsgBox 執(zhí)行成功!, vbInformation, 提示 = = Exit SubmyError: MsgBox 更新失?。?amp。 更新的數(shù)據(jù)中存在非法字符[空格、單引號、雙引號、空], vbExclamation, 提示End SubPrivate Sub Command4_Click() = False = = End SubPrivate Sub DataGrid1_Click()blnAdding = False = True Dim n As Integer Dim DgCount As Integer DgCount = For n = 0 To DgCount 1 = n Select Case n Case 0 = Case 1 = End Select Next nEnd SubPrivate Sub Form_Load()strcon = Provider=。Persist Security Info=False。server=(local)End SubSub gridWidth() Dim n As Integer Dim DgCount As Integer DgCount = For n = 0 To DgCount 1 (n).Width = Len((n).Caption) * 350 = n = False = False = False = False Next nEnd SubPrivate Sub DridStudent_RowColChange(LastRow As Variant, ByVal LastCol As Integer) End SubSub sqlcmd(strsql As String) 39。引用公共變量 = conn = strsql End Sub 創(chuàng)建一個來訪查詢窗體,里面包括查詢、添加和修改功能，利用Label、Textbox、Button和 DatGird等畫出如下窗體，如下圖所示。 amp。 39。 amp。 39。引用公共變量 = conn = strsql Set rst = Do Until Dim strsno As String Dim strsno1 As String Dim strsno2 As String strsno = UCase(rst(宿舍號)) strsno1 = UCase(rst(姓名)) strsno2 = UCase(rst(xuehao)) Loop If strsno2 = 0 Then MsgBox 該學生不存在！, vbInformation, 提示 Exit Sub Else strsql1 = insert into 訪客 values(39。 amp。,39。 amp。,39。) Call sqlcmd(strsql1) strsql1 = insert into 訪客信息 values(39。 amp。,39。 strsno2 amp。,39。 amp。) Call sqlcmd(strsql1) End If MsgBox 執(zhí)行成功!, vbInformation, 提示 = = = = Exit SubmyError: MsgBox 更新失??！ amp。 更新的數(shù)據(jù)中存在非法字符[空格、單引號、雙引號、空], vbExclamation, 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubSub sqlcmd(strsql As String) 39。引用公共變量 = conn = strsql End SubPrivate Sub Form_Load()strcon = Provider=。Persist Security Info=False。server=(local)End SubPrivate Sub Label4_Click()End SubPublic strcon As StringPrivate Sub Command1_Click() If Trim() = Then MsgBox 來訪人姓名為空!, vbInformation, 提示 Exit Sub End If On Error GoTo myError: Dim strsql As String strsql = select 姓名 from 訪客 Dim conn As New Dim rst As New Dim cmd As New = strcon 39。 amp。 39。 amp。 39。 Chr(10) + Chr(13) amp。更新、刪除、插入數(shù)據(jù) Dim conn As New Dim cmd As New = strcon 39。Integrated Security=SSPI。Initial Catalog=學生宿舍管理系統(tǒng)。引用公共變量 = conn = strsqlSet rst = Do Until If UCase(struser) = UCase(rst(sushe)) Then strsql1 = select as 訪客姓名, as 學生姓名, ,離開時間 from 訪客,學生,訪客信息 where = and = and = and =39。 amp。 Call bindGrid(strsql1) Exit Sub Else strsql1 = select as 訪客姓名, as 學生姓名, ,離開時間 from 訪客,學生,訪客信息 where = and = and = and =39。 amp。 Call bindGrid(strsql1)End If LoopEnd SubSub bindGrid(strsql As String)Rem 綁定datagrid Dim conn As New Dim rst As New = strcon 39。Integrated Security=SSPI。Initial Catalog=學生宿舍管理系統(tǒng)。引用公共變量 = conn = strsqlSet rst = Do Until strsql1 = select as 訪客姓名, as 學生姓名, ,離開時間 from 訪客,學生,訪客信息 where = and = and = Call bindGrid(strsql1) LoopEnd SubSub gridWidth() Dim n As Integer Dim DgCount As Integer DgCount = For n = 0 To DgCount 1 (n).Width = Len((n).Caption) * 350 = n = False = False = False = False Next nEnd SubPrivate Sub DridStudent_RowColChange(LastR