可視化編程課程設(shè)計(jì)vb影碟出租管理系統(tǒng)設(shè)計(jì)畢業(yè)論文-資料下載頁(yè)
2025-06-26 05:09本頁(yè)面
【正文】 rmation + vbOKOnly, 信息 = = False = False = False Else = True = True = True End IfElseIf keyascii = 13 And = Then MsgBox 請(qǐng)輸入需要查找的關(guān)鍵字！, vbInformation + vbOKOnly, 信息 End IfEnd Sub使用的控件有Frame、TextBox、Label、CommandButton。（）：Private Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text1_Change(Index As Integer)For Index = 1 To 3 If Index 2 Then Text1(Index).Text = Format(Text1(Index).Text, ) End IfNextEnd Sub 數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)利用ADO(ActiveX Data Objects)進(jìn)行編程：建立連接：dim conn as new dim rs as new dim strstr = If Right(str, 1) Thenstr = str + End Ifstr = Provider=。Persist Security Info=False。Data Source= amp。 str amp。 str=aduseclient 數(shù)據(jù)表名,conn,用完之后關(guān)閉數(shù)據(jù)庫(kù)：set conn=nothing 系統(tǒng)運(yùn)行與測(cè)試運(yùn)行系統(tǒng)，輸入了錯(cuò)誤的登陸密碼，系統(tǒng)彈出警告！（）輸入正確的密碼，進(jìn)入影碟出租管理系統(tǒng)！()第3章 課程設(shè)計(jì)總結(jié)一周的課設(shè)很快就過(guò)去了，隨著時(shí)間的流逝我也一點(diǎn)點(diǎn)的完成了我的課設(shè)作業(yè)，看似簡(jiǎn)單的東西卻也費(fèi)了我很大的力氣。不過(guò)在查找了不少資料之后我也是把它搞定了，并且在這個(gè)過(guò)程中我的知識(shí)又增加了很多，有些以前不太熟的操作和技術(shù)現(xiàn)在也能很好的掌握了。我課設(shè)設(shè)計(jì)的內(nèi)容是影碟出租管理系統(tǒng)，該系統(tǒng)主要用于輔助音像店完成影碟出租管理方面的相關(guān)功能。主要完成會(huì)員管理、類別管理、影碟管理和租借管理。在設(shè)計(jì)過(guò)程中基本將全部的控件都運(yùn)用上了，從開(kāi)始的不熟練，到后來(lái)的游刃有余。我很慶幸有這次課設(shè)的機(jī)會(huì)，讓我將知識(shí)的學(xué)習(xí)和運(yùn)用上全面結(jié)合在了一起。同時(shí)我也要感謝老師和同學(xué)在這個(gè)設(shè)計(jì)過(guò)程中對(duì)我的知道和幫助，沒(méi)有他們的幫助我也很難順利的完成本次課設(shè)。 參考文獻(xiàn)[1][2]黃淼云.《》. 北京：國(guó)防工業(yè)出版社， [3]康博.《Visual Basic 》. 北京：人民郵電出版社，[4] ：希望電子出版社，[5]林立軍.《Visual Basic 》.西安:西安電子科技大學(xué)出版社, [6]徐安東 李飛 刑曉怡，《Visual Basic數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)教程》，清華大學(xué)出版社[7]：西南師范大學(xué)出版社，[8]：山東科學(xué)技術(shù)出版社,[9] 中國(guó)電力出版社[10] BASIC ：人民郵電出版社
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1