Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'顯示出依個訊系視窗"歡迎再次使用本系統，框框裡會有白色的I圖示，框框名稱欄會顯示系統訊 息
MsgBox("歡迎下次再使用本系統！", MsgBoxStyle.Information, "系統訊息") '讓程式結束，整個關掉
End End Sub
'現在設一個子程式叫 消除
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'讓你按下登入後會去執行「登入」這個子程式 登入()
End Sub
TextBox2.Focus() End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'讓 label4.Text 顯示現在時間 Label4.Text = Now
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub End Class
Public Class Form2
Dim 目前的方向 = 1, 目前的方向2 = 1 '寫廣義定域，假設1是向右(方向)跟向下(方向2)
Dim 指標 = 1 '寫廣義定域，假設指標目前是1，搭配下面的程式，指標會 隨時間變動
Private Sub 新增影片ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增影片ToolStripMenuItem.Click
Form4.Show() '程式四（新增影片）顯示出來
Form3.Show() '自己(主畫面)關掉 Me.Close() End Sub
Private Sub 瀏覽修改影片ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 瀏覽修改影片ToolStripMenuItem.Click
Form5.Show() '程式五(瀏覽/修改影片)顯示出來 Me.Close() '自己(主畫面)關掉
End Sub
Private Sub 離開系統ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 離開系統ToolStripMenuItem.Click
Private Sub 統計作業ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 統計作業ToolStripMenuItem.Click
Form6.Show() '程式六顯示出來 Me.Close() '自己(主畫面)關掉 End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'由於程式過多，這邊將開始簡化 註解
掉
Private Sub 查詢影片ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查詢影片ToolStripMenuItem.Click
Form7.Show() '程式7顯示出來 Me.Close() '自己(主畫面)關掉 End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If PictureBox1.Left <= 0 Then
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
'這邊寫的是主畫面 下方區域的程式 ， 可以讓顧客 看到 店內影片 簡短的介紹 跟圖
'在Timer這邊設指標就是為了讓下方的介紹每十秒變動一次，這邊每十秒就從選擇方案中選擇一 個作介紹，隨機的
'每個影片介紹的圖片有時候不只一個，這邊也是用隨機亂數，選出要拿來當作介紹的圖片
隨機的數字 = Int(Rnd() * 9) + 1
g.DrawString("迷糊餐廳-working！！", Label2.Font, Brushes.Black, 0, 0)
j.Clear(GroupBox4.BackColor)
Case 0 To 3
g.DrawString("南家三姊妹", Label2.Font, Brushes.Black, 0, 0)
Public Class Form3
Private Sub 資料表1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 資料表1BindingNavigatorSaveItem.Click
Me.Validate()
Me.資料表1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DvdDataSet)
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 'DvdDataSet.資料表1' 資料表。您可以視需要進行移動或移 除。
Me.資料表1TableAdapter.Fill(Me.DvdDataSet.資料表1)
Public Class Form4
Private Sub 資料表1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.資料表1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DvdDataSet)
End Sub
Private Sub 資料表1BindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 'DvdDataSet.資料表1' 資料表。您可以視需要進行移動或移 除。
Me.資料表1TableAdapter.Fill(Me.DvdDataSet.資料表1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show() '主畫面顯示(回主選單) Me.Close() '自己(新增影片)關起來 End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button3.Click
'這邊是做一個清除的程式，讓之前打的都清除掉 TextBox2.Text = ""
TextBox3.Text = ""
ComboBox2.SelectedItem = "(請選擇)"
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.SelectedItem = "(請選擇)"
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
End Sub End Class
Public Class Form5
Private Sub 資料表1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.資料表1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DvdDataSet)
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 'DvdDataSet.資料表1' 資料表。您可以視需要進行移動或移 除。
Me.資料表1TableAdapter.Fill(Me.DvdDataSet.資料表1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show() '主畫面顯示(回主選單) Me.Close() '自己(瀏覽/修改影片)關掉 End Sub
End Class
Public Class Form7
'TODO: 這行程式碼會將資料載入 'DvdDataSet.資料表1' 資料表。您可以視需要進行移動或移 除。
Me.資料表1TableAdapter.Fill(Me.DvdDataSet.資料表1) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.DvdDataSet.資料表1.Rows(i)(5) <= Val(TextBox6.Text) Then
If TextBox9.Text <> "" And InStr(Me.DvdDataSet.資料表1.Rows(i)(8), TextBox9.Text)
> 0 Then
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Form8.Show() '當要的影片都加入租借名單後，就可以按下這個鈕，進入程式8(租借畫面），開 始進行租借作業
Form8.TextBox3.Text = 租借名單 '在程式八的textbox3上放上你的租借名單 Me.Close() '程式七（查詢影片）關掉
End Sub End Class
Public Class Form6
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
'先定義各 格式 的數量為0，在以 For next 迴圈 從資料庫抓資料
待推薦 = Image.FromFile("驚爆1.jpg")
Private Sub 結束ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 結束ToolStripMenuItem.Click
Form2.Show() '主畫面(回主選單)顯示 Me.Close() '自己(統計資料)關掉 End Sub
Private Sub 依類別ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 依類別ToolStripMenuItem.Click
360)
待推薦 = Image.FromFile("Fate3.jpg")
Case 8 To 10
Private Sub 依級別ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 依級別ToolStripMenuItem.Click
If 級別(p) > 最高數 Then 最高數 = 級別(p) : o = p
g.DrawImage(待推薦, 100, 260)
待推薦 = Image.FromFile("天降3.jpg")
Private Sub 依格式ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 依格式ToolStripMenuItem1.Click
'一樣新片統計也有作推薦系統，推薦影片選圖一樣是以亂數做決定
待推薦 = Image.FromFile("天降3.jpg")
Private Sub 依類別ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 依類別ToolStripMenuItem1.Click
360)
Case 8 To 10
待推薦 = Image.FromFile("驚爆2.jpg")
Private Sub 依級別ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 依級別ToolStripMenuItem1.Click
'這邊是作為以 新片 來做的「級別」統計資料，其餘都跟前面一樣，只是從第11個影片開始抓資 料
Next
待推薦 = Image.FromFile("荒川2.jpg")
Case 4 To 7
待推薦 = Image.FromFile("天降2.jpg") g.DrawImage(待推薦, 100, 260) Case 8 To 10
待推薦 = Image.FromFile("天降3.jpg") g.DrawImage(待推薦, 100, 260) End Select
End Select g.Dispose() End Sub
End Class