【正文】 戶）表： {編號(hào)，姓名，單位，性別，職務(wù)，電話，手機(jī)，消費(fèi)意向，個(gè)人愛好等 } (2)本系統(tǒng)的實(shí)體 聯(lián)系（ ER）圖 為了使 ER圖表示得更加清晰，現(xiàn)將 ER圖分成實(shí)體及其屬性圖和實(shí)體及其聯(lián)系圖。需要通過系統(tǒng)管理驗(yàn)證，即輸入正確的密碼進(jìn)行系統(tǒng)登陸，本系統(tǒng)默認(rèn)的密碼為 0。 代碼如下： Private Sub Command1_Click() If Trim() = Trim() And Trim() = Trim() Then 39。錯(cuò)誤出現(xiàn) 3 次， If = True Then MsgBox 密碼錯(cuò)誤請(qǐng)重新登錄 , 16, 錯(cuò)誤： = = = 1 39。End End Sub Private Sub Form_Load() = End Sub 4． 2 系統(tǒng)主界面： 在系統(tǒng)登錄成功之后，就會(huì)看到系統(tǒng)的主界面如下所示 ： 在本系統(tǒng)主界面中，我們可以看到一個(gè) MDI 窗體，用戶在使用時(shí)只需要點(diǎn)擊鼠標(biāo)左鍵就可以進(jìn)入相應(yīng)的功能選項(xiàng)，快捷而方便，從這個(gè)窗體上可以清楚地看到本系統(tǒng)所具備的三個(gè)主要主要功能，即客戶數(shù)據(jù)錄入，客戶數(shù)據(jù)查詢及設(shè)置三大功能模塊。關(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 = 輸入群組名進(jìn)行查詢 End Sub Private Sub c3_Click() = 收入查詢 = 4200 = 4081 = 495 = 2055 = 輸入名稱 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 MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim YesNo As Integer Dim M As Single YesNo = MsgBox(真的要退出系統(tǒng)嗎？ , vbYesNo + vbQuestion, 提示 ) If YesNo = vbYes Then EndTxt = True Unload Me Else Cancel = 1 End If End Sub Private Sub pp_Click() 1 End Sub Private Sub stsz_Click() = 6930 = 8400 End Sub Private Sub tc_Click() Unload Me End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case key1 = 8355 = 13710 Case key2 = 9510 = 13875 Case key3 = 6795 = 10020 = True = 輸入群組名進(jìn)行查詢 Case key4 Case key7 = 6930 = 8400 Case key6 Unload Me End Select End Sub 客戶信息管理： 本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)客戶個(gè)人信息的錄入系統(tǒng)操作，如編號(hào)，姓名，性別，性別等基本操作。 代碼如下： Private Sub Command1_Click() = True = True = True = True = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒有記錄！ , 16, 出錯(cuò)： Else If = 修改記錄 Then 39。 = False 39。 = False 39。 = True 39。 = 修改記錄 39。 = True 39。 = True 39。 = 600 39。 = False 39。MsgBox 刷新成功！ , 16, 恭喜： End Sub Private Sub Command5_Click() = True = True = True = True = True = True = True = True = True = True = True If = Or = Then MsgBox 編號(hào)或姓名不能為空！ , 16, 出錯(cuò)： = = 男 Else MsgBox 開始添加信息！ , 64, 恭喜！ = False = False = False End If End Sub Private Sub Command6_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒有信息可以刪除！ , 16, 出錯(cuò)！ Else MsgBox 您確定要?jiǎng)h除這條信息？ , 32, 出錯(cuò)！ If = False Then Else 39。 代碼如下： Private Sub Command1_Click() If = True Then MsgBox 這已經(jīng)是第一條信息了！ , 16, 出錯(cuò)： Else End If 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, 出錯(cuò)： 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 (客戶編號(hào) ).Value = Then = (客戶編號(hào) ).Value Exit Do End If Loop = End Sub 群組設(shè)置： 進(jìn)行對(duì)群組消費(fèi)客戶管理，以實(shí)現(xiàn)大客戶的維護(hù)管理以及完善售后服務(wù)工作。 = 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, 出錯(cuò)： Else MsgBox 成功保存！ , 64, 恭喜 ！ = True = True 39。在這里，有幾個(gè)實(shí)用的功能，一是系統(tǒng)密碼修改功能，以防止系統(tǒng)的密碼泄露之后，管理員能夠及時(shí)地進(jìn)行密碼更新，以防系統(tǒng)的資料被別人竊取和修改。楊老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。 另外，在系統(tǒng)開發(fā)過程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 there were many orchards of fruit trees and beyond the plain the mountains were brown and bare . There was fighting in the mountains and at night we could see the flashes from the artillery. In the dark it was like summer lightning, but the nights were cool and there was not the feeling of a storm ing. Sometimes in the dar k we heard the troops marching under the window and guns going past pulled by motor tractors. There was much traffic at night and many mules on the roads with boxes of ammunition on each side of their pac ksaddles and gray motor trucks that carried men, and other trucks w ith loads covered with canvas that moved slower in the traf fic. There were big guns too that passed in the day drawn by tractors, the lon g barrels of the guns covered with green branches and green leafy branches and vines laid over the tractors. To the north we could look across a valley and see a forest of chestnut trees and behind it another mountain on this side of the river. There was fighting for that mountain too, but it was not successful, and in the fall when the rains came the leaves all fell from the chestnut trees and the branches were bare and the trunks black w ith rain. The vineyards were thin and bare branched too and all the country wet and brown and dead with the autumn. There were mists over the river and clouds on the mountain and the truc ks splashed mud on the road and the troops were muddy and wet in their capes