【正文】 se Then Else MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ End If End If End Sub Private Sub Command7_Click() If = Or = Then MsgBox 編號或姓名不能為空！ , 16, 出錯： = Else MsgBox 信息保存完畢！ , 16, 恭喜！ = True = True = True End If 會員查詢系統(tǒng)代碼 Private Sub Command1_Click() If = True Then MsgBox 這已經(jīng)是第一條信息了！ , 16, 出錯： Else End If End Sub Private Sub Command10_Click() If = Then MsgBox 沒有輸入 查詢條件！ , 16, 提示！ = End If Do While True If (班級 ).Value = Then = (班級 ).Value Exit Do End If Loop = End Sub Private Sub Command2_Click() If = True Then MsgBox 已經(jīng)到最后一條記錄了！ , 16, 提示！ Else End If End Sub Private Sub Command3_Click() If = True Then MsgBox 這已經(jīng)是第一條信息了！ , 16, 出錯： Else End If End Sub Private Sub Command4_Click() If = True Then MsgBox 已經(jīng)到最后一條記錄了！ , 16, 提示 ！ Else End If End Sub Private Sub Command5_Click() If = Then MsgBox 沒有輸入查詢條件！ , 16, 提示！ = End If Do While True If (姓名 ).Value = Then = (姓名 ).Value Exit Do End If Loop = End Sub Private Sub Command6_Click() If = Then MsgBox 沒有輸入查詢條件！ , 16, 提示！ = End If Do While True If (編號 ).Value = Then = (編號 ).Value Exit Do End If Loop = End Sub 社團和會費查詢 Private Sub Command1_Click() = True If = Then MsgBox 沒有輸入查詢條件！ , 16, 提示！ = End If Do While True If (社團部 ).Value = Then = (社團部 ).Value Exit Do End If Loop = End Sub Private Sub Command1_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub Private Sub Command2_Click() = True = 查詢另一個 = 4200 = 4081 If = Then MsgBox 沒有輸入查詢條件 ！ , 16, 提示！ = 輸入社團名進行查詢 End If Do While True If (社團部 ).Value = Then = (社團部 ).Value Exit Do End If Loop = End Sub Private Sub Timer1_Timer() = Time End Sub 超級用戶登錄代碼 Private Sub Command1_Click() If Trim() = Trim() And Trim() = Trim() Then Unload Me Else For X = 1 To 1 If = True Then MsgBox 您輸入的用戶名和密碼有誤，請重新輸入！ , 16, 出錯： = = = 1 Else If Trim() = Trim() And Trim() = Trim() Then = Unload Me Else X = X 1 End If End If Next X End If End Sub Private Sub Command2_Click() Unload Me End Sub 歡迎 使用的代碼 Private Sub Label4_Click() Unload Me End Sub Private Sub Picture1_Click() Unload Me End Sub Private Sub Timer1_Timer() If + 0 Then 20 Else = End If End Sub 社團設(shè)置的代碼 Private Sub Command1_Click() = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： Else If = 修改記錄 Then = 設(shè)置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄 ： Else If = Then MsgBox 姓名不能為空 ！ , 16, 出錯 ： Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長 , 16, 出錯： Exit Sub End If Next X = 修改記錄 = True = True = True = True = 5728 = 600 = 1500 = False = 數(shù)據(jù)輸入 ： End If End If End If End If End Sub Private Sub Command2_Click() If = Or = Then MsgBox 社團部名稱和部長不能為空！ , 16, 出錯： Else MsgBox 成功保存 ！ , 64, 恭喜 ！ = True = True = True End If End Sub Private Sub Command3_Click() = True = True = True = True = True = True = True If = Or = Then MsgBox 社團部名稱和部長不能為空！ , 16, 出錯： = Else MsgBox 開始新建社團 ！ , 64, 恭喜 ！ = False = False = False End If End Sub Private Sub Command4_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ Else MsgBox 您確定要刪除這條信息？ , 32, 提示！ If = False Then Else MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ End If End If End Sub Private Sub Form_Unload(Cancel As Integer) If = True Then Cancel = 0 Else MsgBox 請編輯完這條記錄再退出 ！ , 64, 提示 ： Cancel = 1 End If End Sub 關(guān)于社團管理系統(tǒng)的代碼 Private Sub cmdOK_Click() Unload Me End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2(1).ForeColor = vbBlack End Sub Private Sub Label2_Click(Index As Integer) Dim p As String p = mailto: End Sub Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label2(1).ForeColor = vbBlue End Sub 主界面的代碼 Private Sub A1_Click() Unload Me 39。Unload Me End End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case key1 = 8355 = 13710 Case key2 = 9510 = 13875 Case key3 = 6795 = 10020 = True = 輸入社團名進行查詢 Case key4 Case key7 = 6930 = 8400 Case key6 MsgBox 做任何事情都要有信心和耐心 , 64, 切記?。? Unload Me End Select End Sub 小方框無邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正 親近的朋友，管他叫強巴。強巴生長在一個叫達瓦奴措的小村，那是深入藏原腹地、最接近無人區(qū)的地方，他的名字，原意是能戰(zhàn)勝大海的人。 美國，賓夕法尼亞州。那是我們藏區(qū)特產(chǎn)，它們已經(jīng)存在幾千萬年了，約在兩千年前流傳到希臘，后 到羅馬帝國，又由東歐的斯拉夫族人傳到歐洲各國，至今世界名犬的體內(nèi)還保留著藏獒的研究理論“隔代大遺傳”是否有關(guān)。你說，你不去德國了 ?” 方新教授肯定地點頭，瑪瑞重復道：“教授，方教授 !你真的不去參加那個論壇了嗎 ?那可是你一直想?yún)⒓拥陌?!” 方新長長吐了口氣，和藹地對瑪瑞笑笑，拍拍她的肩膀，說道：“去吧，瑪瑞，電話號碼簿在書桌左邊臺燈的座下。默默研究了一輩子，誰會放棄可以證明價值的最高獎勵 ?到底是為什么 ?”她轉(zhuǎn)念心想，“那個高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉(zhuǎn)過身來，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過國境線。方新一握拳，也忍不住激動道：“太好了 !” 只見電腦那頭的專家，打字回復調(diào)侃道：“老方，又要進藏逮狗嗎 ?聽說上次你進藏時，是把那話兒凍僵了才回來的?！? 方新教授笑著回復：“是腳指頭截去了，你老哥??”這時，機場已經(jīng)遙遙在望了。對了，飛機先飛成都嗎 ?” 卓木強微笑道：“不，我們直飛拉薩?！? 進了機場，方新不由看了卓木強一眼，吸氣道：“軍用包機 !” 第 03 部分 第二個瘋子 第七回 第二個瘋子 上 卓木強看見方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來的，沒花多少錢?！? “什么 ?”這番輪到卓木強吃驚了，他道，“我??我不知道啊，以前沒包過?！边@是他為了討好導師，特意吩咐下人安排的，沒想到竟然不在拉薩降落，而屬下居然沒告知他，急得他直