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

管理系統(tǒng)系統(tǒng)登錄 管理系統(tǒng)的系統(tǒng)登錄一、課程設(shè)計(jì)題目 管理系統(tǒng)的系統(tǒng)登錄二、課程設(shè)計(jì)時(shí)間地點(diǎn) 時(shí)間：第18周 星期一、星期四、星期五5至6節(jié)及星期二9至12節(jié)三、課程設(shè)計(jì)目的 1 、掌握VB 進(jìn)行應(yīng)用程序設(shè)計(jì)的初步知識(shí).2 、掌握Visual Basic的常用內(nèi)部控件的使用.3 、了解Visual Basic語(yǔ)言中的數(shù)據(jù)類型,常量,變量,運(yùn)算符,表達(dá)試和常用內(nèi)部函數(shù)以及他們的使用.4 、學(xué)會(huì)使用IfElse 和Select Case語(yǔ)句執(zhí)行分支選擇,掌握循環(huán)語(yǔ)句的用法5 、掌握控件的常用屬性和事件6 、了解過(guò)程,變量的作用域及它們的使用,變量的生存期,過(guò)程的強(qiáng)調(diào)等等7、掌握如何在應(yīng)用程序窗體上創(chuàng)建菜單,對(duì)話框以及多xx界面等.8 、掌握如何利用可視化數(shù)據(jù)管理器創(chuàng)建數(shù)據(jù)庫(kù),查詢以及如何在應(yīng)用程序中實(shí)現(xiàn)Access數(shù)據(jù)庫(kù)的連接和訪問(wèn)等等.四、課程設(shè)計(jì)內(nèi)容及要求要求能設(shè)計(jì)一個(gè)用戶名和密碼的簡(jiǎn)單的數(shù)據(jù)庫(kù)，通過(guò)VB的數(shù)據(jù)控件或是ADO技術(shù)實(shí)現(xiàn)對(duì)數(shù)據(jù)的各種簡(jiǎn)單操作包括數(shù)據(jù)的插入、刪除、修改和簡(jiǎn)單查詢等操作。五、數(shù)據(jù)庫(kù)的創(chuàng)建、存儲(chǔ)內(nèi)容設(shè)計(jì)及連接1.打開(kāi)VB 6.0,選擇EXE標(biāo)準(zhǔn)工程。 通過(guò)“工程”-“添加窗口”，形成“Form1”、 “Form2”、“Form2.(1)創(chuàng)建數(shù)據(jù)庫(kù)點(diǎn)擊“外接程序”選項(xiàng)中的“可視化數(shù)據(jù)管理器”，出現(xiàn)VisData界面，點(diǎn)擊“文件”、“新建”、“Microsof tAccess” 、“Version 7.0 MDB (7)”,選擇保存數(shù)據(jù)庫(kù)的地址，數(shù)據(jù)庫(kù)名為wjpp.mdb. （2）數(shù)據(jù)庫(kù)的存儲(chǔ)內(nèi)容設(shè)計(jì) 在數(shù)據(jù)庫(kù)窗口，右擊“Properties”,選擇“新建表”，在跳出的“表結(jié)構(gòu)”窗口的“表名稱”中填寫(xiě)wjpp，再點(diǎn)擊“添加字段”，填寫(xiě)“名稱”為 “用戶名”，點(diǎn)擊“確定”，依此步驟依次在“添加字段”中輸入“密碼”、“性別”、“年齡”、“愛(ài)好”，然后“生成表”，最后打開(kāi)wjpp,添加要存儲(chǔ)的內(nèi)容，關(guān)閉wjpp.mdb. (3)數(shù)據(jù)庫(kù)的連接 在Form1屬性窗口中點(diǎn)擊“DatabassName ”屬性中的“”，在跳出的窗口中點(diǎn)擊“wjpp”，然后打開(kāi)，把“RecordSource”屬性改為“wjpp”,依次操作Form2、Form3，并且把Form2、Form3中創(chuàng)建的5個(gè)Command控件：“用戶名”、“密碼”、“性別”、“年齡”、“愛(ài)好”的“RecordSource”屬性改為“data1”,依次選折“DataField”屬性為“用戶名”、“密碼”、“性別”、“年齡”、“愛(ài)好”六、課程設(shè)計(jì)步驟及頁(yè)面設(shè)計(jì) 1.打開(kāi)vb 6.0，使用工具箱中的Label、Text、Command控件畫(huà)出如下頁(yè)面：本頁(yè)面實(shí)現(xiàn)代碼功能代碼如下：Public user As StringPublic password As StringPublic try_time As IntegerPrivate Sub Command1_ClickIf Text1.Text = ThenMsgBox 請(qǐng)輸入用戶名！Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 請(qǐng)輸入密碼！Text2.SetFocusExit SubEnd If Data1.DatabaseName = E:VB課程設(shè)計(jì)管理系統(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 用戶名錯(cuò)誤, vbOKOnly + vbCritical, 錯(cuò)誤 Text1.SetFocus Else Data1.Recordset.FindFirst 密碼= password If Data1.Recordset.NoMatch Then MsgBox 密碼錯(cuò)誤, vbOKOnly + vbCritical, 錯(cuò)誤 Text2.SetFocus Else Form1.Hide Form2.Show End If End IfEnd SubPrivate Sub Command2_ClickEndEnd SubPrivate Sub Command3_ClickForm3.ShowEnd SubPrivate Sub Form_LoadEnd Sub2.點(diǎn)擊“工程”，選擇“添加窗體”，生成Form2,添加各功能控件，設(shè)計(jì)形成如下頁(yè)面：本頁(yè)面實(shí)現(xiàn)代碼功能代碼如下：Private Sub Command1_ClickData1.Recordset.MoveFirstCommand2.Enabled = FalseIf Command3.Enabled = False ThenCommand3.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_ClickData1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirstCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_ClickData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastCommand3.Enabled = FalseEnd IfIf Command2.Enabled = False ThenCommand2.Enabled = TrueEnd IfEnd SubPrivate Sub Command4_ClickData1.Recordset.MoveLastCommand3.Enabled = FalseIf Command2.Enabled = False ThenCommand2.Enabled = TrueEnd IfEnd SubPrivate Sub Command5_ClickOn Error Resume NextIf Command5.Caption = 添加 Then Command5.Caption = 確認(rèn): Data1.Recordset.AddNew: Text1.SetFocusElseCommand5.Caption = 添加: Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command6_ClickOn Error Resume NextYS = MsgBox(真的要?jiǎng)h除嗎?, vbYesNo, 刪除該記錄)If YS = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd IfEnd SubPrivate Sub Command7_ClickOn Error Resume NextIf Command7.Caption = 修改 Then Command7.Caption = 確認(rèn) Data1.Recordset.Edit Text1.SetFocusElseCommand7.Caption = 修改Data1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command8_ClickDim sname As StringOn Error Resume Nextsname = InputBox(請(qǐng)輸入要查找的用戶名, 按用戶名查找)Data1.Recordset.FindFirst 用戶名= sname If Data1.Recordset.NoMatch ThenMsgBox 沒(méi)有這個(gè)用戶名!End IfEnd SubPrivate Sub Form_LoadEnd Sub3. 點(diǎn)擊“工程”，選擇“添加窗體”，生成Form3,添加各功能控件，設(shè)計(jì)形成如下頁(yè)面：本頁(yè)面實(shí)現(xiàn)代碼功能代碼如下：Private Sub Command1_ClickIf Text1.Text = Then MsgBox 請(qǐng)輸入用戶名 Text1.SetFocus Exit SubEnd 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 IfElse MsgBox 兩次輸入不同,請(qǐng)重新輸入 Text3.SetFocus End IfIf Text3.Text = Then Exit SubEnd IfIf Combo1.Text = Then MsgBox 請(qǐng)選擇年齡 Combo1.SetFocus Exit SubIf Text4.Text = Then MsgBox 請(qǐng)輸入愛(ài)好 Text4.SetFocus Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_ClickText1.Text = Text2.Text = Text3.Text = Combo1.Text = Text4.Text = Text5.Text = End SubPrivate Sub Command3_ClickForm1.ShowForm3.HideEnd SubPrivate Sub Form_LoadEnd Sub4.運(yùn)行本系統(tǒng)，各功能實(shí)現(xiàn)，沒(méi)有出現(xiàn)錯(cuò)誤。5.點(diǎn)擊窗口中的“文件”選項(xiàng)，選擇“保存工程?！逼摺⒄n程設(shè)計(jì)心得 這次的課程設(shè)計(jì)可以說(shuō)是我做的最認(rèn)真的一次設(shè)計(jì)，因?yàn)闀r(shí)間比較寬裕，參閱了好幾本參考書(shū)，但是在實(shí)踐中出現(xiàn)好多錯(cuò)誤，后來(lái)經(jīng)過(guò)同學(xué)的幫忙，才做出一個(gè)能實(shí)現(xiàn)很少功能的系統(tǒng)，頁(yè)面做的也不夠漂亮。 而后來(lái)的改善，我做出很多努力，用自己并不全面的知識(shí)，花費(fèi)了很多時(shí)間，遇到挺多錯(cuò)誤，讓我一度很困擾和挫敗，但看著系統(tǒng)功能一步步完善，頁(yè)面越來(lái)越來(lái)越漂亮，覺(jué)得特別有成就感。 通過(guò)自己能力完成一次課程設(shè)計(jì)，也讓我在我的專業(yè)學(xué)習(xí)方面增加了自信，當(dāng)然也可以肯定下我這學(xué)期學(xué)習(xí)vb 的態(tài)度，我還是很認(rèn)真的，在此也謝謝老師平時(shí)的教導(dǎo)，我以后會(huì)多加努力的，謝謝！ 紀(jì)萍萍 08 12 25