vb實(shí)訓(xùn)報(bào)告word版-免費(fèi)閱讀
【正文】 愿同學(xué)們學(xué)習(xí)進(jìn)步，學(xué)業(yè)有成。還有一次決策性的失誤，我對(duì)于這個(gè)設(shè)計(jì)的理念是用管理系統(tǒng)管理數(shù)據(jù)庫(kù)中的數(shù)據(jù)，用點(diǎn)歌系統(tǒng)調(diào)用數(shù)據(jù)庫(kù)中的數(shù)據(jù)。= tb Else Beep() End If End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles GpxTest(C) End Sub Private Sub Button21_Click(ByVal sender As , ByVal e As ) Handles GpxTest(J) End Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button17_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 點(diǎn)歌系統(tǒng)() () () End Sub Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 明星點(diǎn)歌() () () End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 酒水頁(yè)面() () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles GpxTest(A) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles GpxTest(B) End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles GpxTest(D) End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles GpxTest(E) End Sub Private Sub Button9_Click(ByVal sender As , ByVal e As ) Handles GpxTest(F) End Sub Private Sub Button18_Click(ByVal sender As , ByVal e As ) Handles GpxTest(G) End Sub Private Sub Button19_Click(ByVal sender As , ByVal e As ) Handles GpxTest(H) End Sub Private Sub Button20_Click(ByVal sender As , ByVal e As ) Handles GpxTest(I) End Sub Private Sub Button22_Click(ByVal sender As , ByVal e As ) Handles GpxTest(K) End Sub Private Sub Button23_Click(ByVal sender As , ByVal e As ) Handles GpxTest(L) End Sub Private Sub Button24_Click(ByVal sender As , ByVal e As ) Handles GpxTest(M) End Sub Private Sub Button25_Click(ByVal sender As , ByVal e As ) Handles GpxTest(N) End Sub Private Sub Button26_Click(ByVal sender As , ByVal e As ) Handles GpxTest(O) End Sub Private Sub Button27_Click(ByVal sender As , ByVal e As ) Handles GpxTest(P) End Sub Private Sub Button28_Click(ByVal sender As , ByVal e As ) Handles GpxTest(Q) End Sub Private Sub Button29_Click(ByVal sender As , ByVal e As ) Handles GpxTest(R) End Sub Private Sub Button30_Click(ByVal sender As , ByVal e As ) Handles GpxTest(S) End Sub Private Sub Button31_Click(ByVal sender As , ByVal e As ) Handles GpxTest(T) End Sub Private Sub Button32_Click(ByVal sender As , ByVal e As ) Handles GpxTest(U) End Sub Private Sub Button33_Click(ByVal sender As , ByVal e As ) Handles GpxTest(V) End Sub Private Sub Button34_Click(ByVal sender As , ByVal e As ) Handles GpxTest(W) End Sub Private Sub Button35_Click(ByVal sender As , ByVal e As ) Handles GpxTest(X) End Sub Private Sub Button36_Click(ByVal sender As , ByVal e As ) Handles GpxTest(Y) End Sub Private Sub Button37_Click(ByVal sender As , ByVal e As ) Handles GpxTest(Z) End Sub Private Sub Button38_Click(ByVal sender As , ByVal e As ) Handles = End Sub Private Sub Button40_Click(ByVal sender As , ByVal e As ) Handles If = 1 Then = Mid(, 1, 1) End If End Sub Private Sub Button11_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 吧臺(tái)呼叫() () () End Sub Private Sub 拼音點(diǎn)歌_Load(ByVal sender As , ByVal e As ) Handles End SubEnd Class◆此為用戶(hù)管理Imports Imports Public Class 用戶(hù)管理 Inherits Private Sub TjBut_Click(ByVal sender As , ByVal e As ) Handles = False = False = False Try (DataSet31, 用戶(hù)表).AddNew() = True = True = False Catch ex As Exception MsgBox() End Try End Sub Private Sub 系部數(shù)據(jù)錄入_Load(ByVal sender As , ByVal e As ) Handles () (DataSet31) = False = False = True = True End Sub Private Sub BcBut_Click(ByVal sender As , ByVal e As ) Handles Try (DataSet31, 用戶(hù)表).EndCurrentEdit() () MsgBox(添加成功 OK) = 繼續(xù)(amp。DataBase=chuanshuohuiyuan。, ) Dim dr As New SqlDataAdapter(cmd) Dim ds As New DataSet (ds, kkk) 39。Integrated Security=SSPI Dim As SqlConnection Dim cmd As SqlCommand Dim cmd1 As SqlCommand Private Sub Button18_Click(ByVal sender As , ByVal e As ) Handles Try = New SqlConnection(Constr) () cmd = New SqlCommand(select * from 用戶(hù)表 where 用戶(hù)名=39。
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1