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

上傳人:青 文檔編號(hào):16558938 上傳時(shí)間:2020-10-11 格式:DOC 頁數(shù):13 大?。?5.50KB
收藏 版權(quán)申訴 舉報(bào) 下載
管理系統(tǒng)系統(tǒng)登錄_第1頁
第1頁 / 共13頁
管理系統(tǒng)系統(tǒng)登錄_第2頁
第2頁 / 共13頁
管理系統(tǒng)系統(tǒng)登錄_第3頁
第3頁 / 共13頁

下載文檔到電腦,查找使用更方便

5 積分

下載資源

還剩頁未讀,繼續(xù)閱讀

資源描述:

《管理系統(tǒng)系統(tǒng)登錄》由會(huì)員分享,可在線閱讀,更多相關(guān)《管理系統(tǒng)系統(tǒng)登錄(13頁珍藏版)》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、管理系統(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語言中的數(shù)據(jù)類型,常量,變量,運(yùn)算符,表達(dá)試和常用內(nèi)部函數(shù)以及他們的使用.  4 、學(xué)會(huì)使用If……Else 和Sele

2、ct Case語句執(zhí)行分支選擇,掌握循環(huán)語句的用法  5 、掌握控件的常用屬性和事件  6 、了解過程,變量的作用域及它們的使用,變量的生存期,過程的強(qiáng)調(diào)等等  7、掌握如何在應(yīng)用程序窗體上創(chuàng)建菜單,對(duì)話框以及多xx界面等.  8 、掌握如何利用可視化數(shù)據(jù)管理器創(chuàng)建數(shù)據(jù)庫,查詢以及如何在應(yīng)用程序中實(shí)現(xiàn)Access數(shù)據(jù)庫的連接和訪問等等.  四、課程設(shè)計(jì)內(nèi)容及要求  要求能設(shè)計(jì)一個(gè)用戶名和密碼的簡單的數(shù)據(jù)庫,通過VB的數(shù)據(jù)控件或是ADO技術(shù)實(shí)現(xiàn)對(duì)數(shù)據(jù)的各種簡單操作包括數(shù)據(jù)的插入、刪除、修改和簡單查詢等操作。  五、數(shù)據(jù)庫的創(chuàng)建、存儲(chǔ)內(nèi)容設(shè)計(jì)及連接  1.打開VB 6.0,選擇EX

3、E標(biāo)準(zhǔn)工程。   通過“工程”-“添加窗口”,形成“Form1”、 “Form2”、“Form  2.(1)創(chuàng)建數(shù)據(jù)庫  點(diǎn)擊“外接程序”選項(xiàng)中的“可視化數(shù)據(jù)管理器”,出現(xiàn)VisData界面,點(diǎn)擊“文件”、“新建”、“Microsof tAccess” 、“Version 7.0 MDB (7)”,選擇保存數(shù)據(jù)庫的地址,數(shù)據(jù)庫名為wjpp.mdb.   (2)數(shù)據(jù)庫的存儲(chǔ)內(nèi)容設(shè)計(jì)   在數(shù)據(jù)庫窗口,右擊“Properties”,選擇“新建表”,在跳出的“表結(jié)構(gòu)”窗口的“表名稱”中填寫wjpp,再點(diǎn)擊“添加字段”,填寫“名稱”為 “用戶名”,點(diǎn)擊“確定”,

4、依此步驟依次在“添加字段”中輸入“密碼”、“性別”、“年齡”、“愛好”,然后“生成表”,  最后打開wjpp,添加要存儲(chǔ)的內(nèi)容,關(guān)閉wjpp.mdb.   (3)數(shù)據(jù)庫的連接   在Form1屬性窗口中點(diǎn)擊“DatabassName ”屬性中的“…”,在跳出的窗口中點(diǎn)擊“wjpp”,然后打開,把“RecordSource”屬性改為“wjpp”,依次操作Form2、Form3,并且把Form2、Form3中創(chuàng)建的5個(gè)Command控件:“用戶名”、“密碼”、“性別”、“年齡”、“愛好”的“RecordSource”屬性改為“data1”,依次選折“DataFie

5、ld”屬性為“用戶名”、“密碼”、“性別”、“年齡”、“愛好”  六、課程設(shè)計(jì)步驟及頁面設(shè)計(jì)   1.打開vb 6.0,使用工具箱中的Label、Text、Command控件畫出如下頁面:  本頁面實(shí)現(xiàn)代碼功能代碼如下:  Public user As String  Public password As String  Public try_time As Integer  Private Sub Command1_Click  If Text1.Text = Then  MsgBox 請(qǐng)輸入用戶名!  Text1.SetFocus  Exit Sub  

6、End If  If Text2.Text = Then  MsgBox 請(qǐng)輸入密碼!  Text2.SetFocus  Exit Sub  End 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(登陸用戶)   Pas

7、sword = 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  

8、 MsgBox 密碼錯(cuò)誤, vbOKOnly + vbCritical, 錯(cuò)誤   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.點(diǎn)擊“

9、工程”,選擇“添加窗體”,生成Form2,添加各功能控件,設(shè)計(jì)形成如下頁面:  本頁面實(shí)現(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

10、.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

11、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 = 確認(rèn): Data1.Reco

12、rdset.AddNew: Text1.SetFocus  Else  Command5.Caption = 添加: Data1.Recordset.MoveLast  End If  End Sub  Private Sub Command6_Click  On Error Resume Next  YS = MsgBox(真的要?jiǎng)h除嗎?, vbYesNo, 刪除該記錄)  If YS = vbYes Then   Data1.Recordset.Delete   Data1.Recordset.MoveNext   If Data1.Recordse

13、t.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 = 確認(rèn)   Data1.Recordset.Edit   Text1.SetFocus  Else  Command7.Caption = 修改  Data1.Recordset.Update  E

14、nd If  End Sub  Private Sub Command8_Click  Dim sname As String  On Error Resume Next  sname = InputBox(請(qǐng)輸入要查找的用戶名, 按用戶名查找)  Data1.Recordset.FindFirst 用戶名= sname  If Data1.Recordset.NoMatch Then  MsgBox 沒有這個(gè)用戶名!  End If  End Sub  Private Sub Form_Load  End Sub  3. 點(diǎn)擊“工程”,選擇“添加窗體”,

15、生成Form3,添加各功能控件,設(shè)計(jì)形成如下頁面:  本頁面實(shí)現(xiàn)代碼功能代碼如下:  Private Sub Command1_Click  If Text1.Text = Then   MsgBox 請(qǐng)輸入用戶名   Text1.SetFocus   Exit Sub  End If   If Text2.Text = Text3.Text Then   Form1.Data1.Recordset.FindFirst 用戶名= Text1.Text   If Form1.Data1.Recordset.NoMatch Then  

16、 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(用戶名) = Text

17、1.Text   Form1.Data1.Recordset.Fields(密碼) = Text2.Text   Form1.Data1.Recordset.Update   MsgBox 用戶密碼已修改成功   Unload Me   End If  Else   MsgBox 兩次輸入不同,請(qǐng)重新輸入   Text3.SetFocus   End If  If Text3.Text = Then   Exit Sub  End If  If Combo1.Text = Then   MsgBox 請(qǐng)選

18、擇年齡   Combo1.SetFocus   Exit Sub  If Text4.Text = Then   MsgBox 請(qǐng)輸入愛好   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 Co

19、mmand3_Click  Form1.Show  Form3.Hide  End Sub  Private Sub Form_Load  End Sub  4.運(yùn)行本系統(tǒng),各功能實(shí)現(xiàn),沒有出現(xiàn)錯(cuò)誤。  5.點(diǎn)擊窗口中的“文件”選項(xiàng),選擇“保存工程?!?  七、課程設(shè)計(jì)心得   這次的課程設(shè)計(jì)可以說是我做的最認(rèn)真的一次設(shè)計(jì),因?yàn)闀r(shí)間比較寬裕,參閱了好幾本參考書,但是在實(shí)踐中出現(xiàn)好多錯(cuò)誤,后來經(jīng)過同學(xué)的幫忙,才做出一個(gè)能實(shí)現(xiàn)很少功能的系統(tǒng),頁面做的也不夠漂亮。   而后來的改善,我做出很多努力,用自己并不全面的知識(shí),花費(fèi)了很多時(shí)間,遇到挺多錯(cuò)誤,讓我一度很困擾和挫敗,但看著系統(tǒng)功能一步步完善,頁面越來越來越漂亮,覺得特別有成就感。   通過自己能力完成一次課程設(shè)計(jì),也讓我在我的專業(yè)學(xué)習(xí)方面增加了自信,當(dāng)然也可以肯定下我這學(xué)期學(xué)習(xí)vb 的態(tài)度,我還是很認(rèn)真的,在此也謝謝老師平時(shí)的教導(dǎo),我以后會(huì)多加努力的,謝謝!   紀(jì)萍萍   08 12 25

展開閱讀全文
溫馨提示:
1: 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

相關(guān)資源

更多
正為您匹配相似的精品文檔

相關(guān)搜索

關(guān)于我們 - 網(wǎng)站聲明 - 網(wǎng)站地圖 - 資源地圖 - 友情鏈接 - 網(wǎng)站客服 - 聯(lián)系我們

copyright@ 2023-2025  zhuangpeitu.com 裝配圖網(wǎng)版權(quán)所有   聯(lián)系電話:18123376007

備案號(hào):ICP2024067431號(hào)-1 川公網(wǎng)安備51140202000466號(hào)


本站為文檔C2C交易模式,即用戶上傳的文檔直接被用戶下載,本站只是中間服務(wù)平臺(tái),本站所有文檔下載所得的收益歸上傳人(含作者)所有。裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權(quán)或隱私,請(qǐng)立即通知裝配圖網(wǎng),我們立即給予刪除!