vb課程設(shè)計(jì)電子文檔

1、目 錄一、程序設(shè)計(jì)的需求分析與設(shè)計(jì)目標(biāo)21.1課程設(shè)計(jì)的目的2二、界面設(shè)計(jì)22.1程序首頁22.2 登陸界面32.3索引目錄42.4 XX宿舍簡介42.5個人信息52.6宿舍成員簡介62.7文藝展覽72.8信息記錄與預(yù)覽82.9結(jié)束界面9三、觸發(fā)順序流程圖10四，源程序代碼114.1 程序首頁114.2 登陸界面124.3索引目錄144.4 XX宿舍簡介164.5 個人信息174.6 宿舍成員簡介184.7文藝展覽204.8信息記錄與預(yù)覽214.9 結(jié)束界面22五、總結(jié)：23 一、程序設(shè)計(jì)的需求分析和設(shè)計(jì)目標(biāo)1，課程設(shè)計(jì)的目的:課程設(shè)計(jì)為學(xué)生提供一個及動手又動腦，獨(dú)立實(shí)踐的機(jī)會，將課本上的VB

2、理論知識和實(shí)踐有機(jī)的結(jié)合起來。鍛煉學(xué)生的分析解決實(shí)際問題的能力。提高用VB編程實(shí)現(xiàn)具體問題的能力。2,該程序具有建立數(shù)據(jù)庫，建立數(shù)據(jù)表，添加數(shù)據(jù)，刪除數(shù)據(jù)，查詢宿舍成員的相關(guān)信息，宿舍成員的文藝展覽，以及宿舍記錄與預(yù)覽的相關(guān)數(shù)據(jù)。3，程序界面設(shè)計(jì)與控件屬性的設(shè)置二、界面設(shè)計(jì)本程序有10個界面（其中由于管理員登陸和普通登陸界面一樣，以其管理員界面為例）程序首頁登錄界面：兩個控件，分別進(jìn)入不同登陸界面名稱CaptionTextBackstylepicturestyleForm1宿舍信息管理系統(tǒng)無無選擇一張照片0-standarLabel1宿舍信息管理系統(tǒng)無0-transparentLabel2歡迎

3、光臨無0-transparentCommand1管理員登陸無無選擇一張圖片1-graphicalCommand2普通登陸無無選擇一張圖片1-graphicalCommand3退出無無選擇一張圖片1-graphical登陸界面（分為管理員登陸界面和普通用戶登陸界面）用戶名錯誤，會彈出“請重新輸入”的提示，賬號中有非數(shù)字符號，也會彈出提示（普通登陸界面類似）名稱CaptionTextpicture其他屬性Form1,8*登陸選擇一張照片Label1賬號Backstyle:0-transparent，index=2Label2密碼Backstyle:0-transparent,index=3Text

4、1空白Passwordchar=”*”楷體，三號Text2空白楷體，三號Command1登陸無選擇一張照片楷體，三號,style:1-graphicalCommand2返回?zé)o選擇一張照片楷體，三號style:1-graphical索引目錄名稱Captionpicture字體enable其他屬性Form索引目錄選擇一張照片Label1索引目錄楷體1Backstyle:0-transparent，index=1List1楷體Command1返回登錄界面選擇一張照片楷體style:1-graphicalCommand2Next選擇一張照片楷體style:1-graphicalTimer1trueXX

5、宿舍簡介名稱captionpicturestretch其他屬性form宿舍簡介插入一張照片Style:0-standarLabel1XX宿舍簡介：Backstyle:0-transparentText1Multiline:true,datasource:data1Text2Multiline:true,datasourcw:data1Label3字體Backstyle:0-transparentLabel4字號Backstyle:0-transparentImage1插入一張照片truecbofontsizeVisible:truecbofontnameVisible:truecmdcance

6、l取消楷體Command1返回插入一張照片style:1-graphical，楷體Command2縮小插入一張照片style:1-graphical，楷體Command3放大插入一張照片style:1-graphical，楷體Command4Next插入一張照片style:1-graphical，楷體Command8上一個Command9下一個Data1Data1Recordsource:成員名單，recordsettype:1個人信息名稱captiontextDataSourceDataField其他屬性Text1清空Data1姓名楷體Text2清空Data1學(xué)號楷體Text3清空Data1

7、電話楷體Text4清空Data1地址楷體Text5清空Data1愛好楷體Command1next楷體Command2返回目錄楷體Command3返回楷體Command4添加數(shù)據(jù)楷體Command5刪除數(shù)據(jù)楷體Command6確認(rèn)楷體Command7取消楷體Command8末個楷體Command9下一個楷體Command10上一個楷體Command11首個楷體Data1Data1Recordsource:成員名單，recordsettype:1宿舍成員簡介名稱captiontext其他屬性Text1清空Decorated035 BTText2清空楷體Frme1增添自己喜歡科目Command1返回

8、插入一張照片，style:1-graphical，楷體Command2NEXT插入一張照片，style:1-graphical，楷體Command3添加宋體Command4修改宋體Command5刪除宋體Command6修改確定宋體Data1Data1Recordsource:成員簡介，recordsettype:1List1宋體Text3清空宋體Command8上一個Command9下一個文藝展覽名稱captiontext其他屬性Label1(0)文藝Backstyle:0-transparent，index:0Label1(1)展覽Backstyle:0-transparent,index

9、:1Label1(2)Backstyle:0-transparent,index:2Text1清空Frme1字體Frme2字號Option18號Option212號Option3宋體Option4黑體Command1返回插入一張照片，style:1-graphicalCommand2next插入一張照片，style:1-graphicalCommand3目錄插入一張照片style:1-graphicalTimer1Enable:true信息記錄與文件預(yù)覽名稱captiontext其他屬性formfrmNoteEditMacbutton=false,minbutton=false,borders

10、tyle:3-fixed dialogText1“”Multiline:true,scrollbars:2-verticalcmdopen打開楷體cmdsaveas另存為楷體cmdcolor顏色楷體cmdfont字體楷體cmdhelp幫助楷體Cmdquit上一頁楷體Command3取消楷體Command1下一頁楷體Command2目錄楷體Cd1Filer:text files(*.txt)|*.txt|all files(*.*)|*.*,Flags:1Filterindex:1結(jié)束界面名稱Captionfont其他屬性form結(jié)束界面插入一張照片，Style:0-standarCommand

11、1結(jié)束楷體插入一張照片style:1-graphicalCommand2返回登錄界面楷體插入一張照片style:1-graphicalCommand3目錄楷體插入一張照片style:1-graphicalLabel1The end Thank you !Highlight LET PlainBackstyle:0-transparent3、 觸發(fā)順序流程圖登陸信息是否正確登錄界面索引目錄登陸錯誤，重新輸入 否 是 XX宿舍簡介 個人信息 宿舍成員簡介 文藝展覽 信息記錄與預(yù)覽 結(jié)束四、源程序代碼登錄界面Private Sub Command1_Click()登陸界面.Hide管理員登陸.Sho

12、w管理員登陸.Text1 = 進(jìn)入登錄界面，對賬號，密碼進(jìn)行清空管理員登陸.Text2 = End SubPrivate Sub Command2_Click()普通登陸.Show登陸界面.Hide普通登陸.Text1 = 普通登陸.Text2 = End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load() 以下為對閃光字的設(shè)置 Dim i As Integer For i = 0 To 4 Label1(i).Visible = False Next i Timer1.Enabled = True Timer1.I

13、nterval = 200 Dim j As Integer For j = 0 To 3 Label1(j).Visible = False Next j Timer2.Enabled = True Timer2.Interval = 100End SubPrivate Sub Timer1_Timer()Static Index As IntegerDim i As IntegerSelect Case IndexCase Is = 5For i = 0 To 4Label1(i).Visible = Not Label1(i).VisibleNext iEnd SelectIndex =

14、 Index + 1End SubPrivate Sub Timer2_Timer()Static Index As IntegerDim j As IntegerSelect Case IndexCase Is = 4For j = 0 To 3Label2(j).Visible = Not Label2(j).VisibleNext jEnd SelectIndex = Index + 1End Sub管理員登錄界面Private Sub Command2_Click()管理員登陸.Hide登陸界面.ShowEnd SubPrivate Sub Command1_Click()Static

15、 i As IntegerIf i 2 ThenMsgBox 您已登錄三次了。程序?qū)⒔Y(jié)束！ ，對連續(xù)登陸錯誤的操作進(jìn)行處理EndElseIf Text1.Text = zj Then If Text2.Text = zj Then MsgBox 登陸成功，管理員，歡迎您！ 管理員登陸.Hide 索引目錄.Show Else MsgBox 密碼錯誤，請重新輸入！ Text2.Text = End IfElse MsgBox 用戶名錯誤，請重新輸入！ Text1.Text = Text2.Text = End If i = i + 1End IfEnd SubPrivate Sub Text1_L

16、ostFocus()If IsNumeric(Text1) ThenMsgBox 賬號有數(shù)字字符, vbExclamation, 賬號錯誤 “對賬號存在數(shù)字符進(jìn)行處理Text1.Text = Text1.SetFocusEnd IfEnd Sub普通登陸Dim db As Database, ws As WorkspacePrivate Sub Command3_Click()普通登陸.Hide登陸界面.ShowEnd SubPrivate Sub Command2_Click()Static i As IntegerIf i 2 ThenMsgBox 您已登錄三次了。程序?qū)⒔Y(jié)束！ ，對多次錯

17、誤操作進(jìn)行處理EndElseIf Text1.Text = 劉仁 Then If Text2.Text = Then MsgBox 登陸成功，歡迎你，劉仁同學(xué)！ 普通登陸.Hide 索引目錄.Show Else MsgBox 密碼錯誤，請重新輸入！ ，對密碼錯誤進(jìn)行處理 Text2.Text = End IfElse MsgBox 用戶名錯誤，請重新輸入！ ，對用戶名錯誤進(jìn)行處理 Text1.Text = Text2.Text = End If i = i + 1End IfEnd SubPrivate Sub Form_Load() 以下為閃光字代碼 Dim i As Integer For

18、 i = 0 To 4 Label1(i).Visible = False Next i Timer1.Enabled = True Timer1.Interval = 300End SubPrivate Sub Timer1_Timer()Static Index As IntegerDim i As IntegerSelect Case IndexCase Is = 5For i = 0 To 4Label1(i).Visible = Not Label1(i).VisibleNext iEnd SelectIndex = Index + 1End Sub索引目錄Private Sub C

19、ommand1_Click()索引目錄.Hide登陸界面.ShowEnd SubPrivate Sub Command2_Click()宿舍簡介.Show索引目錄.HideEnd SubPrivate Sub Form_Load() ,對list控件進(jìn)行設(shè)置List1.AddItem xx宿舍簡介List1.AddItem 個人信息List1.AddItem 人物簡介List1.AddItem 文藝天堂List1.AddItem 信息記錄與預(yù)覽Dim i As Integer For i = 0 To 3 Label1(i).Visible = False Next i Timer1.Enab

20、led = True Timer1.Interval = 100End SubPrivate Sub List1_DblClick() ，Case選擇語序索引目錄.HideSelect Case List1.ListIndexCase 0宿舍簡介.ShowCase 1個人信息.ShowCase 2宿舍成員簡介.ShowCase 3文藝展覽.ShowCase 4frmnoteedit.ShowCase Else索引目錄.ShowEnd SelectEnd SuPrivate Sub Timer1_Timer()Static Index As IntegerDim i As IntegerSele

21、ct Case IndexCase Is = 4For i = 0 To 3Label1(i).Visible = Not Label1(i).VisibleNext iEnd SelectIndex = Index + 1End Sub宿舍簡介Private Sub cbofontname_Click()Label1.FontName = cbofontname.TextEnd SubPrivate Sub cbofontsize_Change()Text2.FontSize = Val(cbofontsize.Text)End SubPrivate Sub cbofontsize_clic

22、k()Text2.FontSize = Val(cbofontsize.Text)End SubPrivate Sub cmdcancel_Click()Text2.FontName = 宋體Text2.FontSize = 20cbofontname.Text = 宋體cbofontsize.Text = Str(20)End SubPrivate Sub Command1_Click()宿舍簡介.Hide索引目錄.ShowEnd SubPrivate Sub Command2_Click()Image1.Width = Image1.Width - 100Image1.Height = I

23、mage1.Height - 100End SubPrivate Sub Command3_Click()Image1.Width = Image1.Width + 100Image1.Height = Image1.Height + 100End SubPrivate Sub Command4_Click()宿舍簡介.Hide個人信息.ShowEnd SubPrivate Sub Command8_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenMsgBox 已經(jīng)是第一條記錄Data1.Recordset.MoveF

24、irstEnd IfEnd SubPrivate Sub Command9_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenMsgBox 已經(jīng)是最后一條記錄Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To Screen.FontCount - 1cbofontname.AddItem Screen.Fonts(i)Next iFor i = 8 To 30 Step 2cbofontsize.AddI

25、tem Str(i)Next iText2.FontName = 宋體Text2.FontSize = 20cbofontname.Text = 宋體cbofontsize.Text = Str(20)End Sub個人信息Private Sub Command1_Click()個人信息.Hide宿舍成員簡介.ShowEnd SubPrivate Sub Command10_Click()Data1.Recordset.MoveLastEnd SubPrivate Sub Command11_Click()Data1.Recordset.MoveFirstEnd SubPrivate Sub

26、Command2_Click()個人信息.Hide索引目錄.ShowEnd SubPrivate Sub Command3_Click()個人信息.Hide宿舍簡介.ShowEnd SubPrivate Sub Command4_Click()Command4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueData1.Recordset.AddNewEnd SubPrivate Sub Command5_Click()Data1.Recordset.DeleteData1

27、.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd SubPrivate Sub Command6_Click()Data1.Recordset.UpdateData1.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = False 對控件是否顯示進(jìn)行設(shè)置Command7.Enabled = FalseEnd SubPrivate Sub Command7_Click()Data1.R

28、efreshCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Command8_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenMsgBox 已經(jīng)是第一條記錄Data1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command9_Click()Data1.Recordset.MoveNextIf Da

29、ta1.Recordset.EOF ThenMsgBox 已經(jīng)是最后一條記錄Data1.Recordset.MoveLastEnd IfEnd Sub宿舍成員簡介Private Sub Command1_Click()個人信息.Show宿舍成員簡介.HideEnd SubPrivate Sub Command2_Click()宿舍成員簡介.Hide文藝展覽.ShowEnd SubPrivate Sub Command3_Click()List1.AddItem Text3Text3 = End SubPrivate Sub Command5_Click()If List1.Text = The

30、nMsgBox 請先選擇項(xiàng), vbOKOnly, 錯誤ElseList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command4_Click()Text3 = List1.TextText3.SetFocusCommand3.Enabled = FalseCommand5.Enabled = FalseCommand4.Enabled = FalseCommand6.Enabled = TrueEnd SubPrivate Sub Command6_Click()List1.List(List1.ListIndex) = txti

31、temCommand6.Enabled = FalseCommand3.Enabled = TrueCommand5.Enabled = TrueCommand4.Enabled = TrueText3 = End SubPrivate Sub Command8_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenMsgBox 已經(jīng)是第一條記錄Data1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command9_Click()Data1.Recordset.MoveNextI

32、f Data1.Recordset.EOF ThenMsgBox 已經(jīng)是最后一條記錄Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Form_Load()List1.AddItem 高數(shù)List1.AddItem 大學(xué)物理List1.AddItem 材料力學(xué)End SubPrivate Sub List1_DblClick()Command4_ClickEnd SubPrivate Sub Text3_Change()If Text3 = ThenCommand3.Enabled = FalseElseCommand3.Enabled = Tr

33、ueEnd IfEnd Sub文藝展覽Private Sub Option3_Click() 對字體設(shè)置Text1.FontName = 宋體End SubPrivate Sub Option4_Click()Text1.FontName = 黑體End SubPrivate Sub Command1_Click()文藝展覽.Hide宿舍成員簡介.ShowEnd SubPrivate Sub Command2_Click()文藝展覽.Hidefrmnoteedit.ShowEnd SubPrivate Sub Command3_Click()文藝展覽.Hide索引目錄.ShowEnd SubP

34、rivate Sub Form_Load() Text1.FontName = 楷體 ,對字體字號進(jìn)行設(shè)置Text1.FontSize = 12msg$ = 喧囂的城市. 添加內(nèi)容msg$ = msg$ + 曼琳.msg$ = msg$ + 曼琳.msg$ = msg$ + 破鏡能重.msg$ = msg$ + 生活中.msg$ = msg$ + 曼琳.msg$ = msg$ + 曼琳.Text1.Text = msg$Dim i As Integer For i = 0 To 2 Label1(i).Visible = False Next i Timer1.Enabled = True T

35、imer1.Interval = 200End SubPrivate Sub Option1_Click()Text1.FontSize = 8End SubPrivate Sub Option2_Click()Text1.FontSize = 12End SubPrivate Sub Timer1_Timer()Static Index As IntegerDim i As IntegerSelect Case IndexCase Is = 3For i = 0 To 2Label1(i).Visible = Not Label1(i).VisibleNext iEnd SelectInde

36、x = Index + 1End SubFrmnoteeditPrivate Sub Cmdcolor_Click()cd1.Action = 3Txtnoteedit.ForeColor = cd1.ColorEnd SubPrivate Sub Cmdfont_Click()cd1.Flags = cdlCFBoth Or cdlcfeeffectscd1.Action = 4If cd1.FontName ThenTxtnoteedit.FontName = cd1.FontNameEnd IfTxtnoteedit.FontSize = cd1.FontSizeTxtnoteedit.

37、FontBold = cd1.FontBoldTxtnoteedit.FontItalic = cd1.FontItalicTxtnoteedit.FontStrikethru = cd1.FontStrikethruTxtnoteedit.FontUnderline = cd1.FontUnderlineTxtnoteedit.ForeColor = cd1.ColorEnd SubPrivate Sub Cmdhelp_Click()cd1.HelpCommand = cd1helpforcefilecd1.HelpFile = c:windowssystempintlgntcd1.Action = 6End SubPrivate Sub Cmdopen_Click()cd1.Action = 1Txtnoteedit.Text = Open cd1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataTxtnoteedit.Text = Txtnoteedit.Text + inputdata