【正文】 End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles (DataSet11, Workers).Position = RecordCount 1 ShowPosition() End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles Dim j As Integer Dim flag As Boolean = True For j = 0 To i If = CStr(idnum(j)) Then flag = False (ID地址有沖突！, 提示) End If Next If 1 And 2 And 3 Then flag = False (服務(wù)系統(tǒng)號(hào)只能為1，2，3！, 提示) End If If flag = True Then Dim MyNewData As DataRow MyNewData = Try With MyNewData .BeginEdit() If Then .Item(workerid) = Else (編號(hào)不能為空) Return End If .Item(password) = .Item(leibie) = .EndEdit() End With Catch ex As Exception () Return End Try (MyNewData) Try Dim k As Integer = (DataSet11, Workers) () (k amp。 條記錄添加成功！) Catch ex As Exception () End Try idnum(i) = i = i + 1 End If End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles Dim j As Integer For j = 0 To i If = CStr(idnum(j)) Then (ID地址有沖突！, 提示) End If Next If 1 And 2 And 3 Then (服務(wù)系統(tǒng)號(hào)只能為1，2，3！, 提示) End If CurrentPosition = (DataSet11, Workers).Position movieRow = (CurrentPosition) Try With movieRow .BeginEdit() .Item(workerid) = .Item(password) = .Item(leibie) = .EndEdit() End With Catch ex As Exception () Return End Try Try Dim k As Integer = (DataSet11, Workers) () (k amp。 條記錄修改成功！) Catch ex As Exception () End Try End Sub Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles CurrentPosition = (DataSet11, Workers).Position movieRow = (CurrentPosition) Dim n As Integer = (workerid) Dim j As Integer = 0 For j = 0 To i If n = idnum(j) Then idnum(j) = 1 End If Next () Try Dim k As Integer = (DataSet11, Workers) () (k amp。 條記錄刪除成功！) Catch ex As Exception () End Try End Sub Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles Dim exitform As New Form7 If = Then () () () End If () End Sub Private Sub Button9_Click(ByVal sender As , ByVal e As ) Handles () () End SubEnd Class3．創(chuàng)建票務(wù)界面（1）創(chuàng)建模塊的功能 對(duì)所售出的電影票進(jìn)行管理，把沒(méi)用的數(shù)據(jù)進(jìn)行清除（2）創(chuàng)建模塊的設(shè)計(jì) 在工程中添加一個(gè)窗體，命名為“影庫(kù)系統(tǒng)”，用來(lái)作為影庫(kù)系統(tǒng)窗體。界面 的設(shè)計(jì)如下圖所示。（3）代碼編寫 Imports Public Class Form9 Inherits Dim ds1 As New DataSet Dim sqlda1 As New SqlDataAdapter Dim RecordCount As IntegerPrivate Sub Form9_Load(ByVal sender As , ByVal e As ) Handles Dim sqlcmd1 As New SqlCommand Dim str1 As String = SELECT , , , , , FROM Movies INNER JOIN Tickets ON = = sql1 = str1 = sqlcmd1 Try () () Catch ex As SqlException MsgBox() Finally () End Try Try (ds1) Catch ex As SqlException MsgBox() End Try RecordCount = (0). End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer Dim flag As Boolean = False If = Then (請(qǐng)認(rèn)真填寫電影名！, 提示信息) () Else For i = 0 To RecordCount 1 If CStr((0).Rows(i).Item(movie_name)).Trim = CStr() Then Try = CStr((0).Rows(i).Item(movie_id)) = CStr((0).Rows(i).Item(movie_name)) = CStr((0).Rows(i).Item(actor)) = CStr((0).Rows(i).Item(actress)) = CStr((0).Rows(i).Item(producer)) = CStr((0).Rows(i).Item(palydate)) Catch ex As Exception MsgBox() End Try flag = True Exit Sub End If Next End If If flag = False Then (輸入電影名有誤！, 提示) End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () (DataSet11) Dim i As Integer Dim k As Integer k = Dim flag As Boolean = False If = Then (請(qǐng)認(rèn)真填寫電影名！, 提示信息) () Exit Sub Else For i = 0 To k 1 If CStr((i).Item(movie_name)).Trim = CStr() Then (i).Delete() flag = True End If Next Try Dim j As Integer = (DataSet11, Tickets) () (j amp。 條記錄刪除成功！) Catch ex As Exception () End Try End If If fl