vb實(shí)訓(xùn)報(bào)告word版(編輯修改稿)
2025-02-13 11:59 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 nd Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button11_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 吧臺(tái)呼叫() () () End Sub Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 明星點(diǎn)歌() () () End Sub Private Sub Button9_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 Button15_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button14_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button13_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button12_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) End SubEnd Class◆ 此為歌曲管理Public Class 歌曲管理 Private Sub DataGrid1_Navigate(ByVal sender As , ByVal ne As ) Handles End Sub Private Sub Inherits Private Sub AddCmd_Click(ByVal sender As , ByVal e As ) Handles = False = False = False Try (DataSet21, DepartmentTable).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 = Space(13) amp。 系部信息錄入表 () (DataSet21) = False = False = True = True End Sub Private Sub UpdataCmd_Click(ByVal sender As , ByVal e As ) Handles Try (DataSet21, stuinftable).EndCurrentEdit() () MsgBox(添加成功 OK) = 繼續(xù)(amp。G) = True () Catch ex As Exception MsgBox(Write Error！, ) End Try End Sub Private Sub CancelCmd_Click(ByVal sender As , ByVal e As ) Handles (DataSet21, DepartmentTable).CancelCurrentEdit() = False = False = True End Sub Private Sub DeleteCmd_Click(ByVal sender As , ByVal e As ) Handles Try If MsgBox(確要?jiǎng)h除嗎？, ) = Then ((DataSet21, DepartmentTable).Position).Delete() (DataSet21) End If Catch ex As Exception MsgBox() End Try End Sub Private Sub ExitCmd_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub 歌曲管理_Load(ByVal sender As , ByVal e As ) Handles End SubEnd Class◆此為酒水管理Imports Imports Public Class 酒水管理 Inherits Private Sub TjBut_Click(ByVal sender As , ByVal e As ) Handles () = False = False = False Try (DataSet41, 酒水表).AddNew() = True = True = False Catch ex As Exception MsgBox() End Try End Sub Private Sub BcBut_Click(ByVal sender As , ByVal e As ) Handles Try (DataSet41, 酒水表).EndCurrentEdit() () MsgBox(添加成功 OK) = 繼續(xù)(amp。G) = True () Catch ex As Exception MsgBox(Write Error！, ) End Try End Sub Private Sub FqBut_Click(ByVal sender As , ByVal e As ) Handles (DataSet41, 酒水表).CancelCurrentEdit() = False = False = True End Sub Private Sub ScBut_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 管理員系統(tǒng)() () () End Sub Private Sub 酒水管理_Load(ByVal sender As , ByVal e As ) Handles 39。 (DataSet41) End Sub Private Sub DataGrid1_Navigate(ByVal sender As , ByVal ne As ) Handles End SubEnd Class◆此為酒水頁(yè)面Imports Imports Public Class 酒水頁(yè)面 Inherits Dim Constr As String = Server=Localhost。DataBase=chuanshuohuiyuan。Integrated Security=SSPI Dim As SqlConnection Dim cmd1 As SqlCommand Dim cmd As SqlCommand Private Sub Button17_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 點(diǎn)歌系統(tǒng)() () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 吧臺(tái)呼叫() () () End Sub Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As ) Handles Select Case Case 洋酒 ()
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1