【導(dǎo)讀】隨著電子計(jì)算機(jī)和通信技術(shù)的發(fā)展，人類已經(jīng)逐漸地進(jìn)入信息化社會(huì)。源一樣成為一種社會(huì)的基本生產(chǎn)資料，在人類的社會(huì)生產(chǎn)活動(dòng)中發(fā)揮著重要的作用。所面臨的問(wèn)題，對(duì)內(nèi)來(lái)看，可以提高工作效率；對(duì)外來(lái)看，獲得競(jìng)爭(zhēng)優(yōu)勢(shì)。管理信息系統(tǒng)的開(kāi)發(fā)方法有生命周期法、原型法和面向?qū)ο蟮拈_(kāi)發(fā)方法等。對(duì)系統(tǒng)的修改和重建的開(kāi)始；原型法是20世紀(jì)80年代發(fā)展起來(lái)的，旨在改變生命周期法的缺點(diǎn)的一種系統(tǒng)開(kāi)發(fā)方法，該法的開(kāi)發(fā)思路是首先根據(jù)用戶的要求，型法和面對(duì)對(duì)象的方法。省時(shí)間、降低成本。立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。對(duì)會(huì)員管理、會(huì)員查詢、社團(tuán)查詢、會(huì)費(fèi)查詢四個(gè)方面。由于系統(tǒng)數(shù)據(jù)的組成對(duì)存儲(chǔ)安全性要求較高，因此系統(tǒng)的。MicrosoftVisual，MicrosoftAccess強(qiáng)大的數(shù)據(jù)處理功能，再通過(guò)對(duì)用戶的需求分析，開(kāi)發(fā)出適用于資料管理系統(tǒng)。

　　

【正文】 = End Sub 社團(tuán)和會(huì)費(fèi)查詢 Private Sub Command1_Click() = True If = Then MsgBox 沒(méi)有輸入查詢條件！ , 16, 提示！ = End If Do While True If (社團(tuán)部 ).Value = Then = (社團(tuán)部 ).Value Exit Do End If Loop = End Sub Private Sub Command1_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub Private Sub Command2_Click() = True = 查詢另一個(gè) = 4200 = 4081 If = Then MsgBox 沒(méi)有輸入查詢條件 ！ , 16, 提示！ = 輸入社團(tuán)名進(jìn)行查詢 End If Do While True If (社團(tuán)部 ).Value = Then = (社團(tuán)部 ).Value Exit Do End If Loop = End Sub Private Sub Timer1_Timer() = Time End Sub 超級(jí)用戶登錄代碼 Private Sub Command1_Click() If Trim() = Trim() And Trim() = Trim() Then Unload Me Else For X = 1 To 1 If = True Then MsgBox 您輸入的用戶名和密碼有誤，請(qǐng)重新輸入！ , 16, 出錯(cuò)： = = = 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 社團(tuán)設(shè)置的代碼 Private Sub Command1_Click() = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒(méi)有記錄！ , 16, 出錯(cuò)： Else If = 修改記錄 Then = 設(shè)置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄 ： Else If = Then MsgBox 姓名不能為空 ！ , 16, 出錯(cuò) ： Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長(zhǎng) , 16, 出錯(cuò)： 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 社團(tuán)部名稱和部長(zhǎng)不能為空！ , 16, 出錯(cuò)： 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 社團(tuán)部名稱和部長(zhǎng)不能為空！ , 16, 出錯(cuò)： = Else MsgBox 開(kāi)始新建社團(tuán) ！ , 64, 恭喜 ！ = False = False = False End If End Sub Private Sub Command4_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒(méi)有信息可以刪除！ , 16, 出錯(cuò)！ Else MsgBox 您確定要?jiǎng)h除這條信息？ , 32, 提示！ If = False Then Else MsgBox 您的數(shù)據(jù)庫(kù)中沒(méi)有信息可以刪除！ , 16, 出錯(cuò)！ End If End If End Sub Private Sub Form_Unload(Cancel As Integer) If = True Then Cancel = 0 Else MsgBox 請(qǐng)編輯完這條記錄再退出 ！ , 64, 提示 ： Cancel = 1 End If End Sub 關(guān)于社團(tuá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。關(guān)閉當(dāng)前窗體 End Sub Private Sub a2_Click() Unload Me End Sub Private Sub a3_Click() = 9345 = 12870 End Sub Private Sub b1_Click() = 8355 = 13710 End Sub Private Sub bz_Click() End Sub Private Sub c1_Click() = 9510 = 13875 End Sub Private Sub C2_Click() = 6795 = 10020 = True = 輸入社團(tuán)名進(jìn)行查詢 End Sub Private Sub c3_Click() = 社團(tuán)費(fèi)查詢 = 4200 = 4081 = 495 = 2055 = True = 輸入社團(tuán)部名稱 End Sub Private Sub cz_Click() 2 End Sub Private Sub dc_Click() 0 End Sub Private Sub glysx_Click() End Sub Private Sub gy_Click() End Sub Private Sub pp_Click() 1 End Sub Private Sub stsz_Click() = 6930 = 8400 End Sub Private Sub tc_Click() MsgBox 也讓我和你同樂(lè)啊 , 64, 好用就行呀 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 = 輸入社團(tuán)名進(jìn)行查詢 Case key4 Case key7 = 6930 = 8400 Case key6 MsgBox 做任何事情都要有信心和耐心 , 64, 切記?。? Unload Me End Select End Sub Are you hungry now? No, I am tired and lazy now。 if I pursue you I will not catch you, and if I catch youthrough your own slowness and clumsinessI will not kill you, and if I kill you I will not eat you. Nicholas had begun to back away, and at the last。 words, realizing that they were a signal, he turned and began to run, splashing through the shallow water. Ignacio ran after him, much helped by his longer legs, his hair flying behind his dark young face, his square teetheach white as a bone and as big as Nicholas39。s thumbnailshowing like spectators who lined the railings of his lips. Don39。t run, N icholas, Dr. Island said with the voice of a wave. It only makes him angry that you run. N icholas did not answer, but cut to his left, up the beach and among the trunks of the palms, sprinting all the way because he had no way of knowing Ignacio was not right behind him, about to grab him by the neck. When he stopped it was in the thick jungle, among the boles of the hardwoods, where he leaned,.。 out of breath, the thumping of his own heart the only39。 . sound in an atmosphere silent and unwa ked as Earth39。s long, prehuman day. For a time he listened for any sound Ignacio might make searching for him。 there was none. He drew a deep breath then and said, Well, that39。s over, expecting Dr. Island to answe