【正文】 個方面進(jìn)行了具體的了解之后，現(xiàn)對該單位開發(fā)客戶管理系統(tǒng)的可行性進(jìn)行分析。目前在我國市場上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級開發(fā)工具的產(chǎn)品有：Microsoft公司的Visual . Powersoft公司的PowerBulider在目前市場上這些眾多的程序開發(fā)工具中，有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。有時候，這種編程編譯修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。結(jié)構(gòu)化程序設(shè)計(jì)語言Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看做是一個對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。一個更高級的連接形式稱為自連接。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一個dynasettype（動態(tài)集合）類型的記錄集合。數(shù)據(jù)流“客戶信息”條目如下：數(shù)據(jù)流名稱：借戶信息 說明：客戶的個人信息數(shù)據(jù)流來源：客戶數(shù)據(jù)流去向：客戶管理人員數(shù)據(jù)流組成：｛客戶號｝數(shù)據(jù)流的流通量：大約10位/天（３）數(shù)據(jù)存儲：數(shù)據(jù)存儲“客戶情況”條目如下：數(shù)據(jù)存儲名稱：客戶情況簡述：存放的是每個客戶的個人情況輸入數(shù)據(jù)：客戶情況數(shù)據(jù)存儲組成：｛客戶編號，姓名，客戶類型｝存儲方式：按客戶的客戶編號順序排列（４）數(shù)據(jù)處理。由于VFP具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用它作為后臺數(shù)據(jù)庫。用戶名和密碼 Unload MeElse For X = 1 To 1 39。 = 修改完畢39。 = True39。 = 數(shù)據(jù)輸入：End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If = True ThenMsgBox 刷新成功！, 16, 恭喜：ElseEnd If39。代碼如下：Private Sub Command1_Click()If = True And = True ThenMsgBox 您輸入的第一個管理員是系統(tǒng)管理員，是用來設(shè)置用戶的，請不要刪除！, 64, 提示： = 1 = False = FalseEnd IfIf = 添加 Then = 0 = 0 = True = 添加完畢 = False = False = False = FalseElse If = And = Then MsgBox 您沒有輸入用戶名或密碼！, 16, 出錯： = 123 = False = 添加 = 當(dāng)前記錄： = True = True = True = True Else If = 1 Then = False = 添加 = True = True = True = True = True = True = 2 Else If = 1 Or = 1 Then = False = 添加 = True = True = True = True Else MsgBox 您沒有輸入權(quán)限！, 16, 出錯： End If End If End IfEnd IfEnd SubPrivate Sub Command2_Click()If = True Or = True ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Command4_Click()If = True And ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseIf = 查詢 Then = True = False = False = False = False = 查詢完畢 = Else = False = True = True = True = True = 查詢 = End IfEnd IfEnd SubPrivate Sub Command5_Click()If = True Or = True ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseIf = 修改 Then = 修改完畢 = 修改記錄： = True = False = False = False = FalseElseIf = Or = ThenX = MsgBox(您沒有輸入用戶名或密碼，要刪除嗎？, 17, 出錯：) If X = 1 Then = 123 = 123 Else Exit Sub End IfElse If = 1 Or = 1 Then = False = 修改 = True = True = True = True Else MsgBox 您沒有輸入權(quán)限！, 16, 出錯： End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command6_Click() = 1For X = 1 To 1If = True ThenMsgBox 沒有找到記錄！, 64, 提示：Else If Trim() = Trim() Then Exit Sub Else X = X 1 End IfEnd IfNext XEnd SubPrivate Sub Command7_Click()For X = 1 To 1If = True ThenMsgBox 沒有找到記錄！, 64, 提示： = 1Else If Trim() = Trim() Then Exit Sub Else X = X 1 End IfEnd IfNext XEnd SubPrivate Sub Form_Unload(Cancel As Integer)If = True ThenCancel = 0ElseMsgBox 請編輯完這條記錄再退出！, 64, 提示： Cancel = 1End IfEnd Sub 摸塊保稱功能說明1錄入對客戶關(guān)系信息進(jìn)行錄入2查詢對客戶關(guān)系信息進(jìn)行查詢3用戶管理對系統(tǒng)用戶名和密碼進(jìn)行修改和刪除等操作4系統(tǒng)退出系統(tǒng)第五章．結(jié)束語經(jīng)過一個多月的設(shè)計(jì)和開發(fā)，圖書管理系統(tǒng)基本開發(fā)完畢。另外，在系統(tǒng)開發(fā)過程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。這些都有待進(jìn)一步改善。代碼如下：Private Sub Command1_Click() = True = True = True = True = True = True = TrueIf = True ThenIf = True And = True ThenMsgBox 您的數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseIf = 修改記錄 Then = 設(shè)置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄：ElseIf = ThenMsgBox 姓名不能為空！, 16, 出錯：Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長, 16, 出錯： Exit Sub End If Next X =