【正文】 End Sub Private Sub Delete_Click() = ”“ 39。輸出文本 Close FileNum 39。有輸入文件名FileNum = FreeFile()39。設置剪切、復制按鈕 If 0 Then = True = (“Cut”).Picture = True = (“Copy”).Picture Else = False = (“Cut”).Picture = False = (“Copy”).Picture End If End Sub Private Sub BackColor_Click() = End Sub Private Sub Box_Click()39。課程數(shù)據(jù)庫利存儲了課程的信息：課程名、作者、出版社等 列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點位數(shù)是否為空課程IDCourseDate8No課程名NameDate15No出版社PublisherDate20No作者ScoreDate18No備注RecordDate15No課程模塊：該模塊主要完成存儲課程的所有信息及錄入、刪除、更新等功能與VB的連接Visual Basic提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。如果用戶修改某一紀錄中的某一項，可單添加按鈕進行學生記錄的編輯，此窗口使用數(shù)據(jù)窗口的FREEDOM風格（典型的錄入界面）。在表中使用的關鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關系。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。新建一個數(shù)據(jù)庫創(chuàng)建任何一個數(shù)據(jù)庫的 6． 標識指定字段的信息； 7． 創(chuàng)建物理表。使用Access2000 實現(xiàn)關系型數(shù)據(jù)庫數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。為了是程序顯得更具有專業(yè)風格，首先可以在其中加入通常的應用程序信息。專業(yè)水平的軟件通常都帶有聯(lián)機幫助功能。4． ImageList屬性定義與數(shù)據(jù)條對應的ImageList控件名，該控件定義工具條按鈕顯示的圖像。運行上可行性：本系統(tǒng)為一個小型的編輯系統(tǒng)，所耗費的資源非常的小，具體的系統(tǒng)需求如下：CPU:至少200MHz Intel Pentinm 處理器操作系統(tǒng)：Windows 98 拉按鈕和平滑按鈕等。需求分析計算機已經(jīng)成為我們學習和工作的得力助手：今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向對象的開發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內建立系統(tǒng)應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。 ygList(i).suidianfei amp。 ygList(i).jingtie amp。 ygList(i).ygnamg amp。 “所得稅” amp。 “工資” amp。 errorCount amp。 group by入學時間“ End Sub Private Sub Command5_Click() = ”select 籍貫,count(*)as人數(shù) from學生檔案184。190。211。207。207。211?！?+ DataCombo6 + “39?！?+ DataCombo4 + “39?！?+ DataCombo2 + “39。代碼設計如下：Private Sub Command6_Click() End Sub Private Sub Command7_Click()If Then End Sub Private Sub Command8_Click()If Then End Sub Private Sub Command9_Click() End Sub Private Sub Form_Load() = True = End Sub Private Sub Command10_Click() End Sub Private Sub Command3_Click()ans = MsgBox(”確認修改196?！?amp?！?amp。登陸界面效果圖如圖11：圖11 登陸界面設計的代碼如下：Private Sub Command1_Click()str1 = str2 = STRSQL = “SELECT * FROM 密碼表 WHERE 用戶名=39?！?+ “ AND 密碼=39。” = STRSQL If ThenMsgBox “用戶名或密碼錯！”, 16, 提示“ Else End If End SubPrivate Sub Command2_Click()End End SubPrivate Sub Command3_Click() End SubPrivate Sub Timer1_Timer() = Time End Sub二、歡迎界面當用戶名和密碼驗證成功后即可進入歡迎界面如圖21圖21 在歡迎界面的設計時用了一個時鐘控件，讓歡迎界面出現(xiàn)3秒后自動消失進入系統(tǒng)主界面，歡迎界面的代碼設計如下：Private Sub Timer1_Timer()If = True Then = FalseEnd If End Sub三、系統(tǒng)主界面系統(tǒng)主界面可以進行簡單的信息瀏覽（如圖31），在主界面設置了一些命令按扭，其中 “修改”、“刪除”、“打印”可以在主界面直接進行，而“查詢”和“添加”需要打開另一個窗體操作?！?= an = 1 End If If = Checked ThenIf n = 1 Thena = a + “ and ”End Ifa = a + “ 學號 =39?！?= an = 1 End IfIf = Checked ThenIf n = 1 Thena = a + “ and ”End Ifa = a + “ 專業(yè)=39?！?= an = 1 End If If = Checked ThenIf n = 1 Thena = a + “ and ”End Ifa = a + “ 入學時間=39。188。200。200。188。202。 group by 專業(yè)“ End Sub Private Sub Command4_Click() = ”select 入學時間,count(*)as人數(shù) from學生檔案184。 group by 政治面貌“ End Sub Private Sub Command8_Click()Unload Form9 End Sub八、帳戶管理（一）帳號注冊由于本系統(tǒng)登陸需要用戶名和密碼驗證，所以本系統(tǒng)設置了一個帳號注冊的功能，其效果圖如圖8圖82圖81圖82 帳號注冊代碼設計如下：Private Sub Command1_Click()If = ”“ ThenMsgBox ”你沒有輸入用戶名！“, 16, ”提示“Exit Sub End If If = ”“ ThenMsgBox ”你沒有輸入密碼！“, 16, ”提示“Exit Sub End If If = ”“ ThenMsgBox ”你沒有再次輸入密碼！“, 16, ”提示“Exit Sub End IfIf ThenMsgBox ”兩次輸入的密碼不一致！“, 16, ”提示“Exit Sub End If If = ThenIf = ”注冊“ Then = ”確認“mbookmark = Else = ”注冊“End If = ”“MsgBox ”恭喜你注冊成功！“, 48, ”歡迎使用“ End If End Sub（二）密碼修改密碼修改的效果圖如圖8圖84圖83圖84 密碼修改代碼設計如下：Private Sub Command1_Click()If = ”“ ThenMsgBox ”你沒有輸入用戶名！“, 16, ”提示“Exit Sub End If If = ”“ ThenMsgBox ”你沒有輸入舊密碼！“, 16, ”提示“Exit Sub End If If ThenMsgBox ”舊密碼錯誤！“, 16, ”提示“Exit Sub End If If = ”“ ThenMsgBox ”你沒有輸入新密碼！“, 16, ”提示“Exit Sub End If If = ”“ ThenMsgBox ”你沒有再次輸入新密碼！“, 16, ”提示“Exit Sub End If If ThenMsgBox ”兩次輸入的密碼不一致！“, 16, ”提示“Exit Sub End If If = Thenprompt = ”確認修改?“answer = MsgBox(prompt, 32 + 0, ”確認修改“)If answer = vbYes Then(0)= Trim()(1)= Trim()MsgBox ”密碼修改成功！“, vbOKOnly, ”密碼修改“End If End If End Sub（三）帳號注銷效果圖如圖85圖85 代碼設計如下：Private Sub Command1_Click()If = ”“ ThenMsgBox ”你沒有輸入用戶名！“, 16, ”提示“Exit Sub End If If = ”“ ThenMsgBox ”你沒有輸入舊密碼！“, 16, ”提示“Exit Sub End If If ThenMsgBox ”舊密碼錯誤！“, 16, ”提示“Exit Sub End If If = ThenOn Error Resume NextIf Then MsgBox ”確認注銷該用戶?“, 32 + 1, ”提示 End If End Sub第二篇：vb課程設計 職工工資管理系統(tǒng)代碼Form1: Dim errorCount As Integer Private Sub Command1_Click()If = “system” And = “1234” ThenLoad Form2MsgBox “登陸成功，歡迎您進入職工工資管理系統(tǒng)”, vbInformation, “登陸成功”ElseerrorCount = errorCount + 1If errorCount 3 ThenMsgBox “用戶名或密碼錯誤(第” amp。 vbTab amp。 vbTab amp。 vbCrLfFor i = 1 To jlNum =