【正文】 CStr(i) amp。 CStr(Mon) End IfEnd IfExit FunctionErr:DateChange = End FunctionFunction GetNumFile(str1 As String) As IntegerDim i As IntegerIf str1 = ThenExit FunctionEnd Ifi = 1GetNumFile = 1Do If Not ( + \report\ + str1 amp。 CStr(Mon) Else DateChange = DateChange amp。判斷權(quán)限Global mFso As New FileSystemObjectPublic Declare Function ShellExecute Lib Alias ShellExecuteA _(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongEnd IfIf Len(strDate) 7 Then Mon = Day(strDate) If Mon 10 Then DateChange = DateChange amp。數(shù)據(jù)表名Public Ok As BooleanPublic IsUserMode As Integer 39。當(dāng)前的indexPublic strTableName As String 39。用戶名稱Public CurrentIndex As Integer 39。39。用戶密碼 1End SubPrivate Sub ZiDianmanage_Click() 39。 Call FindXS_ClickEnd SelectEnd SubPrivate Sub Userpasword_Click() 39。 Call FindKh_ClickCase 10 39。 Call FindYg_ClickCase 9 39。 Call InfoKHm_ClickCase 8 39。 Call InfoXS_ClickCase 6 39。 Call InfoFwm_ClickCase 5 39。用戶密碼 Call Userpasword_ClickCase 4 39。系統(tǒng)管理 Call sysManager_ClickCase 2 39。 End If End If If Then strSql, CN, adOpenStatic, adLockOptimistic Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 1 39。 Trim() amp。 %39。 % amp。 39。 amp。 where amp。 End If Else strSql = select * from amp。 Mid(Trim(), 10, 3) amp。 %39。 % amp。 39。 and 戶號(hào) amp。 Mid(Trim(), 1, 9) amp。 where 組編號(hào)=39。查詢代碼If Trim() And Trim() And Trim() And Trim() Then Dim strSql As String If = 戶口簿編號(hào) Then If Len(Trim()) 12 Then MsgBox 戶口簿編號(hào)為12位, , 提示 Exit Sub End If strSql = select * from amp。釋放xlApp對(duì)象End SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdLook_Click() 39。關(guān)閉工作簿 39。打開已經(jīng)存在的EXCEL工件簿文件Set xlSheet = (1) 39。39。39。 strSss(0)If Then strSql, CN, adOpenStatic, adLockOptimisticWhile Not If Not IsNull((0)) Then Trim((0))Wend = TrueExit SubErr:MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示End SubDim rs2 As New 39。 strSss(1) amp。 39。 amp。 39。 amp。39。39。39。 管理： = strTableName amp。39。 39。 amp。39。用于記錄字段數(shù)(列)If Not Then For i = 0 To Val(Txt(0).Text) 1 If Not IsNull((i)) Then Txt(i + 1) = Trim((i)) Else Txt(i + 1) = End If Next iEnd IfExit SubErr:MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示End SubPrivate Sub Combo2_Click() 39。 Trim()If Then strSql, CN, adOpenStatic, adLockOptimisticDim i As IntegerDim k As Integerk = For i = 1 To 20 If k = 1 Then Load Txt(i) Load Lbl(i) End If Txt(i).Visible = False Lbl(i).Visible = FalseNext iFor i = 1 To Txt(i).Visible = True Lbl(i).Visible = True Lbl(i).Caption = Trim((i 1).Name) Txt(i).Text = If i Mod 2 = 1 Then Lbl(i).Left = 50 Txt(i).Left = 1250 Else Lbl(i).Left = 4420 Txt(i).Left = 5620 End If Lbl(i).Top = 120 + Int((i 1) / 2) * 500 + 120 Txt(i).Top = Lbl(i).Top 120Next iTxt(0).Text = 39。39。39。Dim i As IntegerOn Error GoTo ErrIf Then If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End IfElse If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End IfEnd IfExit SubErr:End SubPrivate Sub cmdRegSave_Click() 39。39。39。strLook = Trim()If strLook Then 1End IfEnd SubPrivate Sub cmdRegNext_Click() 39。Dim i As IntegerOn Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End IfExit SubErr:End SubPrivate Sub cmdRegLook_Click() 39。39。39。刪除On Error GoTo ErrDim ss As Integerss = MsgBox(真的刪除該記錄嗎？, vbCritical + vbOKCancel, 系統(tǒng)提示)If ss = 1 Then If And Then For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i Else = adFilterNone If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i Else For i = 1 To Val(Txt(0).Text) Txt(i) = Next i End If End IfEnd IfExit SubErr:MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示End SubPrivate Sub cmdRegFirst_Click() 39。39。39。39。參考文獻(xiàn) , 《Database system implementation》,機(jī)械工業(yè)出版社, 2000 GarcialMolina , Jeffrey , Jennifer Widom,《An introduction to Database Systems(Seventh Edition), 機(jī)械工業(yè)出版社,2001, 郭安源, 葛曉東, 《教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 , 人民郵電出版社,2003,《數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》,人民郵電出版社,2004, 王虹 等 《Visual basic 中文版高級(jí)應(yīng)用與開發(fā)指南》, 人民郵電出版社, 2002 主編 等 《VB課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》清華大學(xué)出版社, 2002，《Visual Basic數(shù)據(jù)庫開發(fā)及工程實(shí)例》，人民郵電出版社，《Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》，人民郵電出版社，2004，汪遠(yuǎn)征，《Visual Basic程序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社，2001，周學(xué)明，郭安源，《Visual Basic企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航》，人民郵電出版社，2003，王珊，《數(shù)據(jù)庫系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社，2000附錄：源代碼Dim nModeSys As IntegerPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdRegAdd_Click() 39。再則,感謝我的室友,由于整個(gè)設(shè)計(jì)都是在寢室的電腦前完成的,有時(shí)會(huì)影響你們休息,你們卻能夠理解,毫無怨言。本文的研究一直是在他的關(guān)心和幫助下完成的，給了我莫大的幫助。將這種精神帶到以后的工作和學(xué)習(xí)，使得自己的工作更上一層樓。這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，衷心地感謝他耐心的輔導(dǎo)！其次我要感謝的是以前的同班同學(xué)，在一開始的調(diào)研和結(jié)