【正文】 ent, the implement of management information system has bee mature in technology step by step. Managing information system is a new subject. Enterprise needs existence and development, so enterprise activities should be anized efficiently and anically, which means tightening up the enterprise management and strengthening effective management of any resource (staff, finance, property, etc.) internal the enterprise, and also establishing a management information system fitting in with its own characteristics. This article introduces the detailed process of exploring a management information system under the environment of visual foxpro, utilizing “TopBottom” overall plan and a strategy according to “BottomTop” application and exploitation. That is to establish a set of effective scheme for pany customer management by puter, through analyzing disadvantages of pany customer management by human resources. This article emphasizes on three sections. The system analysis section of pany customer management information includes feasible analysis, management function system design section mainly focuses on system function design and data base design and data number design. And the system realization section has provided several major function , together with the main windows and programs. This economical and pragmatic system has explicit interface, with simple operation. [Keywords] MIS、 pany customer management、 visual Basic application 正文 緒言 隨著電子計(jì)算機(jī)和通信技術(shù)的發(fā)展，人類(lèi)已經(jīng)逐漸地進(jìn)入信息化社會(huì)。 第一章 系統(tǒng)需求分 析 現(xiàn)行業(yè)務(wù)描述： 通過(guò)調(diào)查，先畫(huà)出客戶管理系統(tǒng)的組織結(jié)構(gòu)圖如下： 客戶經(jīng)理 國(guó)內(nèi)部 國(guó)際部 A區(qū)域 B區(qū)域 A區(qū)域 B區(qū)域 … … 通過(guò)調(diào)研了解到，該客戶各個(gè)部門(mén)負(fù)責(zé)的主要業(yè)務(wù)如下： 該公司的業(yè)務(wù)分國(guó)內(nèi)業(yè)務(wù)和國(guó)外業(yè)務(wù)兩個(gè)大類(lèi)，然后在此兩個(gè)大類(lèi)中又進(jìn)行細(xì)化，如在國(guó)內(nèi)，又根據(jù)客戶在國(guó)內(nèi)不同的地理位置的分布（如省、市、自治區(qū)等的不同）又進(jìn)行進(jìn)一步的管理，國(guó)外部客戶的區(qū)域劃分主要是根據(jù)該客戶所在洲的不同（如歐洲、亞洲等不同的分布）進(jìn)行劃分和管理。 1． 3 解決方案 基于以上的對(duì)問(wèn)題的分析，利用計(jì)算機(jī)給我們提供信息，及時(shí)地調(diào)整企業(yè)客戶管理系統(tǒng)，并且對(duì)種類(lèi)客戶的管理過(guò)程形成一整套動(dòng)態(tài)的管理就十分必 要了。 1． 4 可行性分析 通過(guò)對(duì)該客戶的各個(gè)方面進(jìn)行了具體的了解之后，現(xiàn)對(duì)該單位開(kāi)發(fā)客戶管理系統(tǒng)的可行性進(jìn)行分析。目前在我國(guó)市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開(kāi)發(fā)工具的產(chǎn)品有： Microsoft公司的 Visual Visual Delphi. Powersoft 公司的 PowerBulider 在目前市場(chǎng)上這些眾多的程序開(kāi)發(fā)工具中，有些強(qiáng)調(diào)程語(yǔ)言的彈性與執(zhí)行效率；有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。有時(shí)候，這種編程 編譯 修改的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。 結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言 Visual Basic 是在 BASIC 語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，接近于自然 語(yǔ)言和人類(lèi)的邏輯思維方式。這些過(guò)程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。 對(duì)象的鏈接與嵌入 (OLE) 對(duì)象的鏈接與嵌入 (OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象 (object)，將不同的對(duì)象鏈接 (link)起來(lái)，再嵌入 (embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。數(shù)據(jù)表示圖提供了一種類(lèi)似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含 有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。一個(gè)更高級(jí)的連接形式稱為自連接。缺省情況下， DATA 控件根據(jù)數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè) dynasettype（動(dòng)態(tài)集合）類(lèi)型的記錄集合。數(shù)據(jù)處理“查詢客戶”條目如下： 數(shù)據(jù)處理名稱：查詢客戶 數(shù)據(jù)處理編號(hào)：１ .１ 簡(jiǎn)要描述：根據(jù)客戶的編號(hào)，姓名，性別，職務(wù)，客戶類(lèi)型 輸入數(shù)據(jù)流：客戶查詢信息 輸出數(shù)據(jù)流：查詢結(jié)果 處理邏輯：根據(jù)客戶的編號(hào)，姓名，性別，職務(wù)，客戶類(lèi)型進(jìn)行查詢。使用它的好處還在于，如果你的系統(tǒng)擴(kuò)展到 Client/Server 模式的時(shí)候，可以使用 Microsoft 的數(shù)據(jù)庫(kù)服務(wù)器軟件 SQL Server，此時(shí)，程序只需要簡(jiǎn)單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。錯(cuò)誤出現(xiàn) 3 次， If = True Then MsgBox 密碼錯(cuò)誤請(qǐng)重新登錄 , 16, 錯(cuò)誤： = = = 1 39。 = False 39。 = True 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 開(kāi)始添加信息！ , 64, 恭喜！ = False = False = False End If End Sub Private Sub Command6_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒(méi)有信息可以刪除！ , 16, 出錯(cuò)！ Else MsgBox 您確定要?jiǎng)h除這條信息？ , 32, 出錯(cuò)！ If = False Then Else 39。楊老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺?！? 方新指著卓木強(qiáng)，微微一笑道：“你小子 —— 原來(lái)你早就預(yù)謀好了啊。在聽(tīng)到唐明的講述后， 我馬上聯(lián)系過(guò)藏邊的朋友，他們已去蒙河探查過(guò)了，那里確實(shí)有一個(gè)衣衫襤褸的中年男子，行事舉止顛三倒四。如果沒(méi)有更充分的準(zhǔn)備，這趟蒙河之行，恐怕要空跑一趟啊?！? 王偉拽著她就走。到了地方，拉拉說(shuō)你別再走了，沒(méi)幾步路了。 ３．原鍋上火放入菜油燒熱，加姜、蒜、紅辣椒末、肉末略煸，鯽魚(yú)下鍋，加入紹酒、醬油、酒釀、鹽、肉湯燒沸，移入小火燒至成熟，將魚(yú)盛入盤(pán)內(nèi)。 拉拉等他說(shuō)話，王偉躊躇了一下說(shuō)：“拉拉，你不喜歡上海嗎？” 拉拉低聲道：“我不知道以后怎么樣，現(xiàn) 在我還不想去上海生活。車(chē)到小區(qū)門(mén)口，拉拉讓王偉不要下車(chē)直接回酒店。我把照片傳過(guò)去，給我在北京氣象站的朋友。”卓木強(qiáng)憨厚地一笑。他站在門(mén)口，兩手不空，還禮貌地做了個(gè)請(qǐng)的手勢(shì)。好了，現(xiàn)在，我們還有很多問(wèn)題沒(méi)有解決，我們?cè)倏纯凑掌伞?= 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。 = 600 39。 = True 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 = 輸入群組名進(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 客戶信息管理：