【正文】 ......................................................17 ...................................................................................................................................17 ...........................................................................................................................18 ...................................................................................................................................28九、用戶界面設(shè)計報告保存讀者單位 Public rs As Private Sub Comm1_Click()rno = Trim(Text1(0).Text)If rno = “ ThenMsgBox ”借書證號不能為空,請輸入“, vbOKOnly, ”信息提示“ = FalseElsesqltxt = ”select * from reader where 借書證號=39。 = End SubPrivate Sub Form_Activate()Call enm End SubPrivate Sub Comm1_Click()flag = 1 vbModal End SubPrivate Sub Comm2_Click()flag = 2 vbModal End SubPrivate Sub Comm3_Click()If MsgBox(”真的要刪除[“ + Trim((”書名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Thenrecs = recs1Call enmEnd If End SubPrivate Sub Comm4_Click()Unload Me End SubPrivate Sub enm()If recs = 0 Then = False = FalseElse = True = TrueEnd If End SubEdlev1：Dim cond As StringPrivate Sub Form_Load()If flag = 2 ThenText1(0).Text = (”級別“)Text1(1).Text = (”過期罰款“)Text1(2).Text = (”借書總數(shù)“)Text1(3).Text = (”借書天數(shù)“)End If End SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Text1(2).Text)= ”“ Or _Trim(Text1(3).Text)= ”“ ThenMsgBox ”數(shù)據(jù)項不全,請重新設(shè)置“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfIf flag = 1 Then 39?！?39。修改操作n = cond = ”fn=39?！?amp。n保存登錄的次數(shù) End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubQubook：Private Sub Comm1_Click()Dim sqltxt As StringIf (”借否“)= ”借“ Thenno = Trim((”圖書編號“))sqltxt = ”select * from borrow where 圖書編號=39?！癊nd IfEnd IfIf Trim(Text1(1).Text) ”“ ThenIf str = ”“ Thenstr = ”書名=39?！癊nd IfEnd IfIf Trim(Text1(3).Text) ”“ ThenIf str = ”“ Thenstr = ”出版社=39。“End IfEnd IfIf Trim(Text1(5).Text) ”“ ThenIf str = ”“ Thenstr = ”定價=“ + Trim(Text1(5).Text)Elsestr = str + ” and 定價=“ + Trim(Text1(5).Text)End IfEnd IfIf str ”“ Then = ”select * from book where “ + strElse = ”select * from book“End IfIf = 0 ThenMsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“End IfCall enm End SubPrivate Sub selcmd2_Click()39。 ”)“ + Chr(10)+ Chr(13)LoopMsgBox strn, vbOKOnly, ”列所借圖書清單“End If End SubPrivate Sub Comm2_Click()Unload Me End SubPrivate Sub Form_Activate()Call enm End SubPrivate Sub selcmd1_Click()39?！癊lsestr = str + ” and 姓名=39?！癊lsestr = str + ” and 級別=39。自定義子過程:判斷Adodc1中是否存在記錄If = 0 Then = FalseElse = TrueEnd If End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubRetbook：Public rno As String Public bno As StringPrivate Sub Comm1_Click()bno = Trim()If bno ”“ ThenDim sqltxt As Stringsqltxt = ”select * from borrow where 圖書編號=39。“ + bno + ”39。“ + Trim(Text1(0).Text)+ ”39。保存用戶級別Public flag As Integer39。 Trim$(tn)Set conn = New = ”DSN=Library。系統(tǒng)管理員39。不論是初學(xué)者還是專業(yè)開發(fā)人員，VB都為他們提供了一整套的工具，可以輕松方便的開發(fā)應(yīng)用程序。學(xué)習(xí)版使編程人員很容易地開發(fā)Windows和Windows NT的應(yīng)用程序。當(dāng)?shù)谝淮螁覸B并打開一個新工程時，可以看到如圖所示的集成開發(fā)環(huán)境界面。早期的Basic語言都是屬于解譯式的，因此可以一行一行地執(zhí)行，所以它可以立刻看到執(zhí)行的結(jié)果，對初學(xué)者來說這是很方便的設(shè)計。VB應(yīng)用程序代碼一般在“代碼編輯器”窗口編寫。在打開一個工程（文件）時，該工程有關(guān)的所有文件同時被裝載。因此，算法設(shè)計與分析是計算機(jī)科學(xué)與技術(shù)的一個核心問題。算法設(shè)計工作是不可能完全自動化的，應(yīng)學(xué)習(xí)了解已經(jīng)被實踐證明是有用的一些基本的算法設(shè)計方法，這些基本的設(shè)計方法不僅適用于計算機(jī)科學(xué)，而且適用于電氣工程、運籌學(xué)等領(lǐng)域。分析算法可以預(yù)測這一算法適合在什么樣的環(huán)境中有效地運行，對解決同一問題的不同算法的有效性作出比較。一個算法有0個或多個輸入，在算法運算開始之前給出算法所需數(shù)據(jù)的初值，這些輸入取自特定的對象集合。計算機(jī)的資源，最重要的是運算所需的時間和存儲程序和數(shù)據(jù)所需的空間資源，算法的復(fù)雜性有時間復(fù)雜性和空間復(fù)雜性之分。因此，算法的復(fù)雜性分析對算法的設(shè)計或選用有著重要的指導(dǎo)意義和實用價值。算法的復(fù)雜性是算法效率的度量，在評價算法性能時，復(fù)雜性是一個重要的依據(jù)。要求算法中有待實現(xiàn)的運算都是基本的，每種運算至少在原理上能由人用紙和筆在有限的時間內(nèi)完成。④ 分析算法。制定一個算法，一般要經(jīng)過設(shè)計、確認(rèn)、分析、編碼、測試、調(diào)試、計時等階段。用什么方法來設(shè)計算法，所設(shè)計算法需要什么樣的資源，需要多少運行時間、多少存儲空間，如何判定一個算法的好壞，在實現(xiàn)一個軟件時，都是必須予以解決的。大多數(shù)屬性取值既可以在設(shè)計時通過屬性窗口來設(shè)置，也可以在程序代碼中通過編程在程序運行時設(shè)置修改。所有語句的集合就是VB語言，用VB語句進(jìn)行有機(jī)組合完成某個特定功能就是程序。它的全名是 Beginner’s Allpurpose Sumbolic Instruction Code，簡稱為 BASIC。覆蓋了開發(fā)應(yīng)用程序的設(shè)計、編輯、編譯和調(diào)試等所有功能。，可以自由發(fā)布。學(xué)習(xí)版適用于普通學(xué)習(xí)者及大多數(shù)使用Visual Basic開發(fā)一般Windows應(yīng)用程序的人員，但是；專業(yè)版適用于計算機(jī)專業(yè)開發(fā)人員，包括了學(xué)習(xí)版的全部內(nèi)容功能以及Internet控件開發(fā)工具之類的高級特性；企業(yè)版除包含專業(yè)版全部的內(nèi)容外，還有自動化構(gòu)件管理器等工具，使得專業(yè)編程人員能夠開發(fā)功能強(qiáng)大的組骨子里分布式應(yīng)用程序。123439。PWD=。每次從頭開始查找(cond)If Not ()And n ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“39。添加操作If 0 Then 39。 str(Text2(4).Text)amp?！癊nd IfEnd IfIf str ”“ Then = ”select * from reader where “ + strElse = ”select * from reader“End IfIf = 0 ThenMsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“End IfCall enm End SubPrivate Sub selcmd2_Click()39?！癊nd IfEnd IfIf Trim(Text1(3).Text) ”“ ThenIf str = ”“ Thenstr = ”級別=39?！癊nd IfEnd IfIf Trim(Text1(1).Text) ”“ ThenIf str = ”“ Thenstr = ”姓名=39。 ”(“ amp。“Elsestr = str + ” and 借否=39。“Elsestr = str + ” and 作者=39。“Elsestr = str + ” and 圖書編號=39。找到合法用戶記錄userlevel = Trim((”級別“))Unload Me 39。 _Trim$(Text1(0).Text)amp。“39。修改操作n = cond = ”級別=39。若在Form_Activate()，39。保存讀者圖書編號 Public xm As String39。5 ..................................................................................................................................................5 ......................................................................................................................................5 ...................................................................................................................................5 ...................................................................................................................................6五、軟件界面設(shè)計標(biāo)準(zhǔn)與規(guī)范 保存讀者借書證號 Public bno As String39。仍未增1,這樣調(diào)用enm過程時出錯。每次從頭開始查找(cond)If Not ()ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfEnd If(”級別“)= Trim(Text1(0).Text)(”過期罰款