【正文】 Private Sub Form_Load() = End Sub 4． 2 系統(tǒng)主界面： 在系統(tǒng)登錄成功之后，就會看到系統(tǒng)的主界面如下所示 ： 在本系統(tǒng)主界面中，我們可以看到一個 MDI 窗體，用戶在使用時只需要點擊鼠標左鍵就可以進入相應(yīng)的功能選項，快捷而方便，從這個窗體上可以清楚地看到本系統(tǒng)所具備的三個主要主要功能，即客戶數(shù)據(jù)錄入，客戶數(shù)據(jù)查詢及設(shè)置三大功能模塊。關(guān)閉當前窗體 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 = 輸入群組名進行查詢 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 = 輸入群組名進行查詢 Case key4 Case key7 = 6930 = 8400 Case key6 Unload Me End Select End Sub 客戶信息管理： 本應(yīng)用模塊的主要功能是實現(xiàn)對客戶個人信息的錄入系統(tǒng)操作，如編號，姓名，性別，性別等基本操作。 代碼如下： 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ù)庫中沒有記錄！ , 16, 出錯： 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 編號或姓名不能為空！ , 16, 出錯： = = 男 Else MsgBox 開始添加信息！ , 64, 恭喜！ = False = False = False End If End Sub Private Sub Command6_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ Else MsgBox 您確定要刪除這條信息？ , 32, 出錯！ If = False Then Else 39。 代碼如下： Private Sub Command1_Click() If = True Then MsgBox 這已經(jīng)是第一條信息了！ , 16, 出錯： 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, 出錯： 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 群組設(shè)置： 進行對群組消費客戶管理，以實現(xiàn)大客戶的維護管理以及完善售后服務(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, 出錯： Else MsgBox 成功保存！ , 64, 恭喜 ！ = True = True 39。在這里，有幾個實用的功能，一是系統(tǒng)密碼修改功能，以防止系統(tǒng)的密碼泄露之后，管理員能夠及時地進行密碼更新，以防系統(tǒng)的資料被別人竊取和修改。楊老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。 另外，在系統(tǒng)開發(fā)過程中助手同學也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給與我不少幫助，這里一并表示感謝。 the e ffort to be even formally polite nearly strangled him. Even then the inspector was not brisk. He dis mounted in a leisurely fashion, and strolled into the house, chatting about the weather. Father, red in the face, handed him over to Mary who took him along to mother39。d for an unconscionable time while he examined the baby in minutest detail. At last, however, he emerged, with an expressionless face. In the littleused sittingroom he sat down at the table and fussed for a while about getting a good point on his quill. At last he took a form from his pouch, and in a slow, deliberate hand wrote that he officially found the child to be a true female human being, free from any detectable form of deviation. He regarded that thoughtfully for some moments, as though not perfectly satisfied. He let his hand hesitate before he actually dated and signed it, then he sanded it carefully, and handed it to my enraged father, still with a faint air of uncertainty. He had, of course, no real doubt in his mind, or he would have called for another opinion。s existence could be admitted. I was formally told that I had a new sister, and presently I was taken to see he r where she lay in a crib beside my mother39。 she did appear to be as normal as a newborn baby ever looks. ... While we were taking turns to look at her somebody started to ring the stable bell in the customary way. Everyone on the farm stopped work, and very soon we were all assembled in the kitchen for prayers of thanksgiving. Two, or it may have been three, days after Petra was born I happened upon a piece of my family39。 bedroom where my mother still lay in bed. It was a matter of chance, and strategy, too. It was the latest place that I had found to stay hidden awhile after the midday meal until the coast was clear and I coul