【文章內(nèi)容簡介】 。 圖41 “會員/管理員登錄”窗體 （2）編寫代碼如下：Private Sub Command1_Click()Dim db As New amp。與數(shù)據(jù)庫建立連接Dim rs As New amp。從數(shù)據(jù)庫中返回的可用記錄集Dim sql As String amp。=Provider=。Data Source=C:\Documents and Settings\user01\My Documents\魯玉琳\。Persist Security Info=False amp。連接數(shù)據(jù)庫的路徑 amp。打開數(shù)據(jù)庫表 sql = select * from 會員基本情況表 amp。查詢會員表里所有的記錄 sql, db, adOpenStatic, adLockReadOnlyWhile True And (0).Value Wend If (1).Value = Then amp。數(shù)據(jù)庫里的第一個字段等于文本框text2 MsgBox (歡迎登錄) amp。提示消息框 Else MsgBox (你輸入的會員卡號或密碼不正確,請重新輸入!) amp。提示消息框 amp。 設(shè)置文本框text1為焦點 amp。 form1 顯示 amp。 form5 隱藏 End IfEnd SubPrivate Sub Command3_Click() = False amp。 Frame1 不可見 = True amp。 Frame2 可見End SubPrivate Sub Command4_Click()Dim db As New amp。與數(shù)據(jù)庫建立連接Dim rs As New amp。從數(shù)據(jù)庫中返回的可用記錄集Dim sql As String=Provider=。 DataSource=C:\Documents and Settings\user01\My Documents\魯玉琳\。Persist Security Info=False amp。連接數(shù)據(jù)庫的路徑 amp。打開數(shù)據(jù)庫sql = select * from 管理員情況表 amp。查詢管理員情況表里的所有記錄 sql, db, adOpenStatic, adLockReadOnly amp。打開返回的可用記錄集While = flase And (1).Value Wend amp。根據(jù)庫頂函數(shù)判斷指針是否到達庫底 If (2).Value = Then MsgBox (歡迎進入系統(tǒng)主界面) Else MsgBox (你輸入的密碼不正確,請重新輸入!) = End IfEnd SubPrivate Sub Command5_Click() = True amp。 Frame1顯示為可見 = False amp。 Frame2顯示為不可見End SubPrivate Sub Form_Load() = True = FalseEnd Sub建立系統(tǒng)主界面窗體，如圖42所示。（1） 加載窗體form2開始，設(shè)置屬性如下： caption屬性為“主界面“。（2） 建立主菜單系統(tǒng)。 。 程序主菜單選項設(shè)置一覽表菜單項標題名菜單級別Name屬性系統(tǒng)管理標題xtgl結(jié)帳管理一級yhjz計算機信息維護jsjxxwh無卡通wkt日常管理標題rcgl會員辦理一級Hybljzx集體注銷及個人注銷jtzxjgrzx用戶信息的維護yhxxwh幫助標題bz幫助一級bangzhu關(guān)于gy（3） 菜單編輯器界面如下。圖42系統(tǒng)主界面窗體(3)編寫代碼如下：Private Sub bangzhu_Click()End SubPrivate Sub hybljzx_Click()End SubPrivate Sub jsjxxwh_Click()End SubPrivate Sub jtzxjgrzx_Click()End SubPrivate Sub wkt_Click()End SubPrivate Sub yhjz_Click()End SubPrivate Sub yhxxwh_Click()End Sub建立系統(tǒng)維護界面，如圖43所示。（1）加載窗體和控件，并設(shè)置屬性如下：窗體form3的caption屬性為“維護界面”；frame1的caption屬性為“會員維護”；標簽label1的caption屬性為“會員號”，標簽label2的caption屬性為“姓名”，label3的caption屬性為“密碼”，label4的caption屬性為“班級”，標簽label5的caption屬性為“學(xué)號”，label6的caption屬性為“性別“，label7的caption屬性為“備注“；文本框texttext2一直到text7的屬性值均為“”；命令按鈕mand1的caption屬性為“查詢”；命令按鈕mand2的caption屬性為“刪除”，命令按鈕mand3的caption屬性為“修改”；命令按鈕mand4的caption屬性為“返回”。Frame2的caption屬性為“管理員維護”；標簽label8的caption屬性為“管理員號”，標簽label9的caption屬性為“管理員姓名”，標簽label10的caption屬性為“密碼”，標簽label11的caption屬性為“性別”，標簽label12的caption屬性為“年齡”，標簽label13的caption屬性為“籍貫”，標簽label14的caption屬性為“民族”，標簽label15的caption屬性為“政治面貌”，標簽label16的caption屬性為“學(xué)歷”，標簽label17的caption屬性為“身份證號”，標簽label18的caption屬性為“生日”，標簽label19的caption屬性為“開始工作時間”，標簽label20的caption屬性為“家庭住址”，標簽label21的caption屬性為“聯(lián)系電話”，標簽label22的caption屬性為“職務(wù)”；文本框texttext9一直到text22屬性值為“”；命令按鈕mand5的caption屬性為“加入”，命令按鈕mand6的caption屬性為“刪除”，命令按鈕mand7的caption屬性為“修改”，命令按鈕mand8的caption屬性為“保存”，mand9的caption屬性為“查詢”。（2）編寫代碼如下：Private Sub Command1_Click()Dim db As New amp。聲明與數(shù)據(jù)庫建立連接的變量Dim rs As New amp。聲明返回的可用記錄集變量Dim sql As StringDim j As StringDim a As StringDim z As Stringj = InputBox(請輸入要查詢的會員號) = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\魯玉琳\。Persist Security Info=False amp。建立與數(shù)據(jù)庫連接的路徑 amp。打開數(shù)據(jù)庫表sql = select 會員號,密碼,班級,學(xué)號,姓名,性別,備注 from 會員基本情況表 where 會員號=39。 amp。 j amp。 39。 amp。查詢會員號為變量j的記錄 sql, db, adOpenStatic, adLockReadOnly amp。打開所查詢所得的記錄集 = = = = = = = amp。將文本框的值設(shè)置為空 = (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value amp。將所得的結(jié)果放已經(jīng)置空的文本框If = Thena = MsgBox(數(shù)據(jù)庫里不存在這條記錄!)Elsez = MsgBox(記錄已找到,請查看!)End IfEnd SubPrivate Sub Command2_Click()Dim db As New amp。聲明與數(shù)據(jù)庫建立連接的的變量Dim rs As New amp。聲明返回可用記錄集的變量Dim sql As StringDim j As StringDim z As Stringj = InputBox(請輸入要刪除的會員卡號)z = MsgBox(你確定要刪除這條記錄嗎?) = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\魯玉琳\。Persist Security Info=False amp。建立與數(shù)據(jù)庫進行連接的路徑 amp。打開數(shù)據(jù)庫sql = delete * from 會員基本情況表 where 會員號=39。 amp。 j amp。 39。 amp。刪除會員號為變量j 的值的記錄39。 sql, db, adOpenStatic, adLockReadOnly amp。打開操作的記錄集39。(0).Value = 39。(1).Value = 39。(2).Value = 39。(3).Value = 39。(4).Value = 39。(5).Value = 39。(6).Value = amp。將數(shù)據(jù)庫的值變?yōu)槲谋究蚶锏目罩礛sgBox (記錄已刪除,請查閱!)End SubPrivate Sub Command3_Click()Dim db As New amp。同上Dim rs As New amp。同上Dim sql As StringDim j As Stringj = InputBox(請確認一下修改前的會員號) = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\魯玉琳\。Persist Security Info=False amp。同上 amp。同上sql = update 會員基本情況表 set 會員號=39。 amp。 amp。 39。,姓名=39。 amp。 amp。 39。,密碼=39。 amp。 amp。 39。,班級=39。 amp。 amp。 39。,學(xué)號=39。 amp。 amp。 39。,性別=39。 amp。 amp。 39。,備注=39。 amp。 amp。 39。 where 會員號=39。 amp。 j amp。 39。 amp。更新會員號為變量j的記錄 sql, db, adOpenStatic, adLockReadOnly amp。打開可用記錄集MsgBox (記錄已修改,請查閱)End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click() = = = = = = = = = = = = = = = amp。將文本框置為空值 amp。將文本框8設(shè)置焦點End SubPrivate Sub Command6_Click()Dim db As New Dim rs As New Dim sql As String = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\魯玉琳\。Persist Security Info=Falsesql = delete from 管理員情況表 sql, db, adOpenStatic, adLockReadOnly(0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = (11).Value = (12).Value = (13).Value = (14).Value = MsgBox (你確定要刪除嗎?) amp。記錄集更新End SubPrivate Sub Command7_Click()Dim db As New Dim rs As New Dim sql, z As Stringz = InputBox(請確認一下修改前的管理員號) = Provider=。Data Source=C:\D