管理系統(tǒng)系統(tǒng)登錄

管理系統(tǒng)系統(tǒng)登錄 　 管理系統(tǒng)的系統(tǒng)登錄 　一、課程設計題目 　 管理系統(tǒng)的系統(tǒng)登錄 　二、課程設計時間地點 　 時間：第18周 星期一、星期四、星期五5至6節(jié)及星期二9至12節(jié) 　三、課程設計目的 1 、掌握VB 進行應用程序設計的初步知識. 　2 、掌握Visual Basic的常用內(nèi)部控件的使用. 　3 、了解Visual Basic語言中的數(shù)據(jù)類型,常量,變量,運算符,表達試和常用內(nèi)部函數(shù)以及他們的使用. 　4 、學會使用If……Else 和Select Case語句執(zhí)行分支選擇,掌握循環(huán)語句的用法 　5 、掌握控件的常用屬性和事件 　6 、了解過程,變量的作用域及它們的使用,變量的生存期,過程的強調(diào)等等 　7、掌握如何在應用程序窗體上創(chuàng)建菜單,對話框以及多xx界面等. 　8 、掌握如何利用可視化數(shù)據(jù)管理器創(chuàng)建數(shù)據(jù)庫,查詢以及如何在應用程序中實現(xiàn)Access數(shù)據(jù)庫的連接和訪問等等. 　四、課程設計內(nèi)容及要求 　要求能設計一個用戶名和密碼的簡單的數(shù)據(jù)庫，通過VB的數(shù)據(jù)控件或是ADO技術(shù)實現(xiàn)對數(shù)據(jù)的各種簡單操作包括數(shù)據(jù)的插入、刪除、修改和簡單查詢等操作。 　五、數(shù)據(jù)庫的創(chuàng)建、存儲內(nèi)容設計及連接 　1.打開VB 6.0,選擇EXE標準工程。 　 通過“工程”-“添加窗口”，形成“Form1”、 “Form2”、“Form 　2.(1)創(chuàng)建數(shù)據(jù)庫 　點擊“外接程序”選項中的“可視化數(shù)據(jù)管理器”，出現(xiàn)VisData界面，點擊“文件”、“新建”、“Microsof tAccess” 、“Version 7.0 MDB (7)”,選擇保存數(shù)據(jù)庫的地址，數(shù)據(jù)庫名為wjpp.mdb. 　 （2）數(shù)據(jù)庫的存儲內(nèi)容設計 　 在數(shù)據(jù)庫窗口，右擊“Properties”,選擇“新建表”，在跳出的“表結(jié)構(gòu)”窗口的“表名稱”中填寫wjpp，再點擊“添加字段”，填寫“名稱”為 “用戶名”，點擊“確定”，依此步驟依次在“添加字段”中輸入“密碼”、“性別”、“年齡”、“愛好”，然后“生成表”， 　最后打開wjpp,添加要存儲的內(nèi)容，關閉wjpp.mdb. 　 (3)數(shù)據(jù)庫的連接 　 在Form1屬性窗口中點擊“DatabassName ”屬性中的“…”，在跳出的窗口中點擊“wjpp”，然后打開，把“RecordSource”屬性改為“wjpp”,依次操作Form2、Form3，并且把Form2、Form3中創(chuàng)建的5個Command控件：“用戶名”、“密碼”、“性別”、“年齡”、“愛好”的“RecordSource”屬性改為“data1”,依次選折“DataField”屬性為“用戶名”、“密碼”、“性別”、“年齡”、“愛好” 　六、課程設計步驟及頁面設計 　 1.打開vb 6.0，使用工具箱中的Label、Text、Command控件畫出如下頁面： 　本頁面實現(xiàn)代碼功能代碼如下： 　Public user As String 　Public password As String 　Public try_time As Integer 　Private Sub Command1_Click 　If Text1.Text = Then 　MsgBox 請輸入用戶名！ 　Text1.SetFocus 　Exit Sub 　End If 　If Text2.Text = Then 　MsgBox 請輸入密碼！ 　Text2.SetFocus 　Exit Sub 　End If 　 Data1.DatabaseName = E:\VB課程設計\管理系統(tǒng).mdb 　 Data1.RecordSource = select * from 管理系統(tǒng) 　 user = Text1.Text 　 password = Text2.Text 　 Data1.Refresh 　 User = Data1.Recordset.Fields(登陸用戶) 　 Password = Data1.Recordset.Fields(登陸密碼) 　 Data1.Recordset.FindFirst 用戶名= user 　 If Data1.Recordset.NoMatch Then 　 MsgBox 用戶名錯誤, vbOKOnly + vbCritical, 錯誤 　 Text1.SetFocus 　 Else 　 Data1.Recordset.FindFirst 密碼= password 　 If Data1.Recordset.NoMatch Then 　 MsgBox 密碼錯誤, vbOKOnly + vbCritical, 錯誤 　 Text2.SetFocus 　 Else 　 Form1.Hide 　 Form2.Show 　 End If 　 End If 　End Sub 　Private Sub Command2_Click 　End 　End Sub 　Private Sub Command3_Click 　Form3.Show 　End Sub 　Private Sub Form_Load 　End Sub 　2.點擊“工程”，選擇“添加窗體”，生成Form2,添加各功能控件，設計形成如下頁面： 　本頁面實現(xiàn)代碼功能代碼如下： 　Private Sub Command1_Click 　Data1.Recordset.MoveFirst 　Command2.Enabled = False 　If Command3.Enabled = False Then 　Command3.Enabled = True 　End If 　End Sub 　Private Sub Command2_Click 　Data1.Recordset.MovePrevious 　If Data1.Recordset.BOF Then 　Data1.Recordset.MoveFirst 　Command2.Enabled = False 　End If 　End Sub 　Private Sub Command3_Click 　Data1.Recordset.MoveNext 　If Data1.Recordset.EOF Then 　Data1.Recordset.MoveLast 　Command3.Enabled = False 　End If 　If Command2.Enabled = False Then 　Command2.Enabled = True 　End If 　End Sub 　Private Sub Command4_Click 　Data1.Recordset.MoveLast 　Command3.Enabled = False 　If Command2.Enabled = False Then 　Command2.Enabled = True 　End If 　End Sub 　Private Sub Command5_Click 　On Error Resume Next 　If Command5.Caption = 添加 Then 　 Command5.Caption = 確認: Data1.Recordset.AddNew: Text1.SetFocus 　Else 　Command5.Caption = 添加: Data1.Recordset.MoveLast 　End If 　End Sub 　Private Sub Command6_Click 　On Error Resume Next 　YS = MsgBox(真的要刪除嗎?, vbYesNo, 刪除該記錄) 　If YS = vbYes Then 　 Data1.Recordset.Delete 　 Data1.Recordset.MoveNext 　 If Data1.Recordset.EOF Then 　 Data1.Recordset.MoveLast 　 End If 　End If 　End Sub 　Private Sub Command7_Click 　On Error Resume Next 　If Command7.Caption = 修改 Then 　 Command7.Caption = 確認 　 Data1.Recordset.Edit 　 Text1.SetFocus 　Else 　Command7.Caption = 修改 　Data1.Recordset.Update 　End If 　End Sub 　Private Sub Command8_Click 　Dim sname As String 　On Error Resume Next 　sname = InputBox(請輸入要查找的用戶名, 按用戶名查找) 　Data1.Recordset.FindFirst 用戶名= sname 　If Data1.Recordset.NoMatch Then 　MsgBox 沒有這個用戶名! 　End If 　End Sub 　Private Sub Form_Load 　End Sub 　3. 點擊“工程”，選擇“添加窗體”，生成Form3,添加各功能控件，設計形成如下頁面： 　本頁面實現(xiàn)代碼功能代碼如下： 　Private Sub Command1_Click 　If Text1.Text = Then 　 MsgBox 請輸入用戶名 　 Text1.SetFocus 　 Exit Sub 　End If 　 If Text2.Text = Text3.Text Then 　 Form1.Data1.Recordset.FindFirst 用戶名= Text1.Text 　 If Form1.Data1.Recordset.NoMatch Then 　 Form1.Data1.Recordset.AddNew 　 Form1.Data1.Recordset.Fields(用戶名) = Text1.Text 　 Form1.Data1.Recordset.Fields(密碼) = Text2.Text 　 Form1.Data1.Recordset.Update 　 MsgBox 用戶密碼已添加成功 　 Unload Me 　 Else 　 Form1.Data1.Recordset.Edit 　 Form1.Data1.Recordset.Fields(用戶名) = Text1.Text 　 Form1.Data1.Recordset.Fields(密碼) = Text2.Text 　 Form1.Data1.Recordset.Update 　 MsgBox 用戶密碼已修改成功 　 Unload Me 　 End If 　Else 　 MsgBox 兩次輸入不同,請重新輸入 　 Text3.SetFocus 　 End If 　If Text3.Text = Then 　 Exit Sub 　End If 　If Combo1.Text = Then 　 MsgBox 請選擇年齡 　 Combo1.SetFocus 　 Exit Sub 　If Text4.Text = Then 　 MsgBox 請輸入愛好 　 Text4.SetFocus 　 Exit Sub 　End If 　End If 　End Sub 　Private Sub Command2_Click 　Text1.Text = 　Text2.Text = 　Text3.Text = 　Combo1.Text = 　Text4.Text = 　Text5.Text = 　End Sub 　Private Sub Command3_Click 　Form1.Show 　Form3.Hide 　End Sub 　Private Sub Form_Load 　End Sub 　4.運行本系統(tǒng)，各功能實現(xiàn)，沒有出現(xiàn)錯誤。 　5.點擊窗口中的“文件”選項，選擇“保存工程?！? 　七、課程設計心得 　 這次的課程設計可以說是我做的最認真的一次設計，因為時間比較寬裕，參閱了好幾本參考書，但是在實踐中出現(xiàn)好多錯誤，后來經(jīng)過同學的幫忙，才做出一個能實現(xiàn)很少功能的系統(tǒng)，頁面做的也不夠漂亮。 　 而后來的改善，我做出很多努力，用自己并不全面的知識，花費了很多時間，遇到挺多錯誤，讓我一度很困擾和挫敗，但看著系統(tǒng)功能一步步完善，頁面越來越來越漂亮，覺得特別有成就感。 　 通過自己能力完成一次課程設計，也讓我在我的專業(yè)學習方面增加了自信，當然也可以肯定下我這學期學習vb 的態(tài)度，我還是很認真的，在此也謝謝老師平時的教導，我以后會多加努力的，謝謝！ 　 紀萍萍 　 08 12 25