【導(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)的開發(fā)方法有生命周期法、原型法和面向?qū)ο蟮拈_發(fā)方法等。對(duì)系統(tǒng)的修改和重建的開始；原型法是20世紀(jì)80年代發(fā)展起來(lái)的，旨在改變生命周期法的缺點(diǎn)的一種系統(tǒng)開發(fā)方法，該法的開發(fā)思路是首先根據(jù)用戶的要求，型法和面對(duì)對(duì)象的方法。省時(shí)間、降低成本。立和維護(hù)以及前端應(yīng)用程序的開發(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ì)用戶的需求分析，開發(fā)出適用于資料管理系統(tǒng)。

　　

【正文】 = End Sub 社團(tuán)和會(huì)費(fèi)查詢 Private Sub Command1_Click() = True If = Then MsgBox 沒有輸入查詢條件！ , 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 沒有輸入查詢條件 ！ , 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ù)中沒有記錄！ , 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 開始新建社團(tuán) ！ , 64, 恭喜 ！ = False = False = False End If End Sub Private Sub Command4_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒有信息可以刪除！ , 16, 出錯(cuò)！ Else MsgBox 您確定要?jiǎng)h除這條信息？ , 32, 提示！ If = False Then Else MsgBox 您的數(shù)據(jù)庫(kù)中沒有信息可以刪除！ , 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 observing time of the whole fucking trip, Gaby muttered. In the seat next to Cirocco, Bill laughed. Five minutes, Gaby, he said. And I really think we ought to let them burn as long as we planned. It would work out so much nicer that way. The engines shut down on the tick and they watched for final confirmation that they were where they wanted to be. This is Ringmaster。 C. bones manding. We have arrived in Saturn orbit at hours, U niversal Time. I39。ll send up the prelims for a correcting burn when we e out from behind. Meanwhile, I39。m going off this channel. She slapped the appropriate switch. Anybody who wants to take a look outside, this is going to be your only chance. It was tight, but August and April and Gene and Calvin man aged to squeeze into the cramped room. After checking with Gaby, Cirocco turned the ship niy degrees. Saturn was a dark gray hole, seventeen degrees wide, covering 1000 times the area of the moon as seen from Earth. The rings were an incredible forty degrees from side to side. They looked like solid, brilliant metal. Ringmaster had e in north of the equator, so the upper face was presented to them. Each particle was being lit from the opposite side, presenting a thin crescent, like Saturn. The sun was a brilliant point of light in the ten o39。clock position, approaching Saturn. No one