最新visualbasic程序設(shè)計(jì)作業(yè)題解免費(fèi)下載-資料下載頁(yè)
2025-03-25 03:46本頁(yè)面
【正文】 ue Then = 4 End If If Option2(0).Value = True Then = 0 ElseIf Option2(1).Value = True Then = 2 ElseIf Option2(2).Value = True Then = 1 ElseIf Option2(3).Value = True Then = 3 ElseIf Option2(3).Value = True Then = 4 End If If Option3(0).Value = True Then = 1 ElseIf Option3(1).Value = True Then = 2 ElseIf Option3(2).Value = True Then = 3 ElseIf Option3(3).Value = True Then = 6 End IfEnd Sub5．使用SQL Server或Access建立名稱為“學(xué)生”的數(shù)據(jù)庫(kù)，在其中創(chuàng)建“students”的數(shù)據(jù)表，其結(jié)構(gòu)及初始記錄如表1所示。使用ADO對(duì)象和MSFlexGrid控件設(shè)計(jì)數(shù)據(jù)庫(kù)列表顯示程序。程序的設(shè)計(jì)界面和運(yùn)行結(jié)果如圖1圖15所示。表1學(xué) 號(hào)姓 名專 業(yè)2004001張 紅軟件專業(yè)2004003朱 強(qiáng)會(huì)計(jì)專業(yè)2004002王 麗軟件專業(yè) 圖14 圖15答案：程序代碼標(biāo)準(zhǔn)模塊代碼Public ADO As ConnectionPrivate Sub Main() 39。定義數(shù)據(jù)連接字符串 Dim strAccess As String 39。用于連接Access數(shù)據(jù)庫(kù) strAccess = Provider=。Data Source=D:\VB_N\作業(yè)編程題演示\\。Persist Security Info=False 39。創(chuàng)建連接 Set ADO = New Connection strAccess End Sub窗體form_Click()事件代碼Private Sub form_Click() Dim strSQL, strRecord As String 39。聲明一個(gè)記錄集對(duì)象，并與ADO關(guān)聯(lián) Dim ADOrs As New Recordset = ADO select * from 學(xué)生 39。初始化MSFlexGrid表格 = 0 39。行數(shù) = 3 39。列數(shù) 39。設(shè)置表格標(biāo)題欄 strRecord = 學(xué)號(hào) + vbTab + 姓名 + vbTab + 專業(yè) strRecord 39。從第一條記錄開始循環(huán)，直到表尾 Do While Not 39。拼寫表格內(nèi)容 strRecord = Trim(ADOrs(學(xué)號(hào))) + vbTab + Trim(ADOrs(姓名)) + vbTab + Trim(ADOrs(專業(yè))) 39。向表內(nèi)田加行 strRecord 39。取下一 條記錄 LoopEnd Sub“關(guān)閉“按鈕”Command3_Click()事件代碼Private Sub Command3_Click() EndEnd Sub１３
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1