在網上看到這樣一個vb程式，界面如圖。
源代碼如下：
Private Sub Command1_Click()
Randomize '保證每次運行時產生不同序列的亂數
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveInt(Rnd*Adodc1.Recordset.RecordCount + 0)
If Adodc1.Recordset.EOF Then End
Text1.Text = Adodc1.Recordset("學號")
Text2.Text = Adodc1.Recordset("姓名")
Text3.Text = Adodc1.Recordset("點名次數") + 1
Adodc1.Recordset("點名次數") = Adodc1.Recordset("點名次數") + 1 '在表中點名次數后累加
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
If Text1.Text <> "" Then
Adodc1.Recordset("學號") = Text1.Text
Else
Adodc1.Recordset("學號") = "未命名"
End If
If Text2.Text <> "" Then
Adodc1.Recordset("姓名") = Text2.Text
Else
Adodc1.Recordset("姓名") = "未命名"
End If
Adodc1.Recordset("點名次數") = 0
Adodc1.Recordset.Update
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub exit_Click()
ask = MsgBox("確認退出" & " ？", vbYesNo)
If ask = 6 Then End
End Sub
Private Sub new_Click()
Text1.SetFocus
End Sub
Private Sub search_Click()
Text1.Text = Adodc1.Recordset("學號")
Text2.Text = Adodc1.Recordset("姓名")
Text3.Text = Adodc1.Recordset("點名次數")
End Sub
Private Sub select_Click()
ask = MsgBox("確認洗掉學號為"&Adodc1.Recordset（“學號")&"姓名"& Adodc1.Recordset("姓名") & " ？", vbYesNo)
If ask = 6 Then '選擇了是按鈕
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext '移動記錄指標重繪顯示屏
End If
If Adodc1.Recordset. EOF Then
Adodc1.Recordset.MoveLast
End sub
請問界面應該設定哪些控制元件及需要設定控制元件的哪些屬性，才能允許成功。還有原始碼是不是還有缺少的部分啊？
圖是怎么也傳不上啊
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
最關鍵的是資料源啊。就是ADO1控制元件所設定連接的資料庫。uj5u.com熱心網友回復：
這么簡單的問題
我不是高手，幫你頂貼算了……
uj5u.com熱心網友回復：
資料庫應用.我不是高手, 幫你頂帖算了.
uj5u.com熱心網友回復：
你可以不會寫程式，但是請不要搞出這么弱智的界面。uj5u.com熱心網友回復：
一個連你自己都懶得收拾的爛程式還有誰愿意幫助你。如果你哪怕表現出那么一點點對自己程式的珍重和愛惜，也不會故意把它搞得和腦殘做的一樣。這個世界上恐怕除了傻瓜，沒有人愿意幫助傻瓜。uj5u.com熱心網友回復：
Adodc1.Recordset.MoveInt(Rnd*Adodc1.Recordset.RecordCount + 0)有這樣的函式嗎? .net?
uj5u.com熱心網友回復：
Adodc1.Recordset.Move Int(Rnd*Adodc1.Recordset.RecordCount + 0)uj5u.com熱心網友回復：
需要在 ADODC1 控制元件的物件界面上設定連接資料庫和查詢引數。當然了，要有配套的 Access 資料庫。uj5u.com熱心網友回復：
感覺樓主像是大學里開了VB的課，要交課程設計的那種哦轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/136371.html
標籤：控件
上一篇：VB怎么修改QQ簽名