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