Quản lý phần mềm bán vé xe VB
8.418 lượt xem;
- Form_Xe_16_Cho.vb
- Form /
- PhanMemBanVeXe_Full /
- project /
1 Imports DevComponents.DotNetBar
2 Imports System.Data.SqlClient
3 Public Class Form_Xe_16_Cho
4 Private lenh As String
5 Private lenh1 As String
6 Private Ban_ve As New Ban_ve
7 Private IdChuyen As String
8 Private bang_dat_ve As DataTable
9
10 Private Sub btn_TaiXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_TaiXe.Click
11 MessageBox.Show("Chỗ này của tài xế bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Stop)
12 End Sub
13
14 Private Sub btn_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Thoat.Click
15 Ban_ve.Update_Ve_xe()
16 Me.Close()
17 End Sub
18
19 Private Sub Form_Xe_16_Cho_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
20 Duyet_danh_sach_cho_ngoi()
21 End Sub
22
23 Private Sub Duyet_danh_sach_cho_ngoi()
24 With Form_Main
25 lenh = "Select IdChuyen from ChuyenXe where IdTuyen = '" + .cbo_TenTuyenVe.SelectedValue.ToString + "'"
26 lenh &= " and NgayDi = '" + FormatDateTime(CDate(.cbo_NgayVe.SelectedValue.ToString), DateFormat.ShortDate) + "' and Gio = '" + .cbo_GioVe.SelectedValue.ToString + "'"
27 lenh &= " and So_Xe = '" + .cbo_XeVe.SelectedValue.ToString + "'"
28 'Lay Idchuyen cua chuyen do ra
29 bang_dat_ve = Doc_bang(lenh)
30 IdChuyen = bang_dat_ve.Rows(0)("IdChuyen").ToString
31 End With
32
33 lenh = "Select * from ChoNgoi where IdChuyen = '" + IdChuyen + "' and So_Xe = '" + Form_Main.cbo_XeVe.SelectedValue.ToString + "'"
34 Dim com As New SqlCommand(lenh, connect)
35 Try
36 connect.Open()
37 Dim dr As SqlDataReader = com.ExecuteReader
38 While dr.Read = True
39 For i As Integer = 0 To grb_16.Controls.Count - 1
40 If dr.GetValue(2).ToString = grb_16.Controls(i).Text Then
41 CType(grb_16.Controls(i), DevComponents.DotNetBar.ButtonX).Image = My.Resources.hanh_khach
42 End If
43 Next
44 End While
45 connect.Close()
46 Catch ex As Exception
47 MessageBox.Show("Không đọc được danh sách chỗ ngồi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
48 End Try
49
50 End Sub
51
52 Private Sub Duyet(ByVal but As DevComponents.DotNetBar.ButtonX)
53 Dim dg As DialogResult = MessageBox.Show("Ban có chắn chắc muốn đặt:" & vbNewLine & _
54 "- Xe: " & Form_Main.cbo_XeVe.SelectedValue.ToString & vbNewLine & _
55 "- Vị trí chỗ ngồi: " & but.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
56 If dg = Windows.Forms.DialogResult.Yes Then
57 lenh = "Insert into ChoNgoi Values('" + IdChuyen + "', '" + Form_Main.cbo_XeVe.Text + "', '" + but.Text + "')"
58 lenh1 = "Insert into BanVe(IdChuyen, TenHanhKhach, SDTHanhKhach) "
59 lenh1 &= "Values('" + IdChuyen + "', N'" + Form_Main.txt_TenHanhKhach.Text + "', '" + Form_Main.txt_SoDTHanhKhach.Text + "')"
60 'MessageBox.Show(lenh)
61 'MessageBox.Show(lenh1)
62 Dim com As New SqlCommand(lenh, connect)
63 Dim com1 As New SqlCommand(lenh1, connect)
64 Try
65 connect.Open()
66 com.ExecuteNonQuery()
67 com1.ExecuteNonQuery()
68 connect.Close()
69 MessageBox.Show("Đặt chỗ thành công", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
70 Duyet_danh_sach_cho_ngoi()
71 Catch ex As Exception
72 MessageBox.Show("Chỗ này đã có người đặt rồi bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
73 connect.Close()
74 End Try
75 Else
76 MessageBox.Show("Đã hủy thao tác chọn chỗ ngồi, bạn có thể chọn chỗ khác nếu muốn!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
77 End If
78 End Sub
79
80 Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_1.Click
81 Duyet(btn_1)
82 End Sub
83
84 Private Sub btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_2.Click
85 Duyet(btn_2)
86 End Sub
87
88 Private Sub btn_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_3.Click
89 Duyet(btn_3)
90 End Sub
91
92 Private Sub btn_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_4.Click
93 Duyet(btn_4)
94 End Sub
95
96 Private Sub btn_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_5.Click
97 Duyet(btn_5)
98 End Sub
99
100
101 Private Sub btn_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_6.Click
102 Duyet(btn_6)
103 End Sub
104
105 Private Sub btn_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_7.Click
106 Duyet(btn_7)
107 End Sub
108
109 Private Sub btn_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_8.Click
110 Duyet(btn_8)
111 End Sub
112
113 Private Sub btn_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_9.Click
114 Duyet(btn_9)
115 End Sub
116
117 Private Sub btn_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_10.Click
118 Duyet(btn_10)
119 End Sub
120
121 Private Sub btn_11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_11.Click
122 Duyet(btn_11)
123 End Sub
124
125 Private Sub btn_12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_12.Click
126 Duyet(btn_12)
127 End Sub
128
129 Private Sub btn_13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_13.Click
130 Duyet(btn_13)
131 End Sub
132
133 Private Sub btn_14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_14.Click
134 Duyet(btn_14)
135 End Sub
136
137 Private Sub btn_15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_15.Click
138 Duyet(btn_15)
139 End Sub
140
141 End Class
2 Imports System.Data.SqlClient
3 Public Class Form_Xe_16_Cho
4 Private lenh As String
5 Private lenh1 As String
6 Private Ban_ve As New Ban_ve
7 Private IdChuyen As String
8 Private bang_dat_ve As DataTable
9
10 Private Sub btn_TaiXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_TaiXe.Click
11 MessageBox.Show("Chỗ này của tài xế bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Stop)
12 End Sub
13
14 Private Sub btn_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Thoat.Click
15 Ban_ve.Update_Ve_xe()
16 Me.Close()
17 End Sub
18
19 Private Sub Form_Xe_16_Cho_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
20 Duyet_danh_sach_cho_ngoi()
21 End Sub
22
23 Private Sub Duyet_danh_sach_cho_ngoi()
24 With Form_Main
25 lenh = "Select IdChuyen from ChuyenXe where IdTuyen = '" + .cbo_TenTuyenVe.SelectedValue.ToString + "'"
26 lenh &= " and NgayDi = '" + FormatDateTime(CDate(.cbo_NgayVe.SelectedValue.ToString), DateFormat.ShortDate) + "' and Gio = '" + .cbo_GioVe.SelectedValue.ToString + "'"
27 lenh &= " and So_Xe = '" + .cbo_XeVe.SelectedValue.ToString + "'"
28 'Lay Idchuyen cua chuyen do ra
29 bang_dat_ve = Doc_bang(lenh)
30 IdChuyen = bang_dat_ve.Rows(0)("IdChuyen").ToString
31 End With
32
33 lenh = "Select * from ChoNgoi where IdChuyen = '" + IdChuyen + "' and So_Xe = '" + Form_Main.cbo_XeVe.SelectedValue.ToString + "'"
34 Dim com As New SqlCommand(lenh, connect)
35 Try
36 connect.Open()
37 Dim dr As SqlDataReader = com.ExecuteReader
38 While dr.Read = True
39 For i As Integer = 0 To grb_16.Controls.Count - 1
40 If dr.GetValue(2).ToString = grb_16.Controls(i).Text Then
41 CType(grb_16.Controls(i), DevComponents.DotNetBar.ButtonX).Image = My.Resources.hanh_khach
42 End If
43 Next
44 End While
45 connect.Close()
46 Catch ex As Exception
47 MessageBox.Show("Không đọc được danh sách chỗ ngồi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
48 End Try
49
50 End Sub
51
52 Private Sub Duyet(ByVal but As DevComponents.DotNetBar.ButtonX)
53 Dim dg As DialogResult = MessageBox.Show("Ban có chắn chắc muốn đặt:" & vbNewLine & _
54 "- Xe: " & Form_Main.cbo_XeVe.SelectedValue.ToString & vbNewLine & _
55 "- Vị trí chỗ ngồi: " & but.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
56 If dg = Windows.Forms.DialogResult.Yes Then
57 lenh = "Insert into ChoNgoi Values('" + IdChuyen + "', '" + Form_Main.cbo_XeVe.Text + "', '" + but.Text + "')"
58 lenh1 = "Insert into BanVe(IdChuyen, TenHanhKhach, SDTHanhKhach) "
59 lenh1 &= "Values('" + IdChuyen + "', N'" + Form_Main.txt_TenHanhKhach.Text + "', '" + Form_Main.txt_SoDTHanhKhach.Text + "')"
60 'MessageBox.Show(lenh)
61 'MessageBox.Show(lenh1)
62 Dim com As New SqlCommand(lenh, connect)
63 Dim com1 As New SqlCommand(lenh1, connect)
64 Try
65 connect.Open()
66 com.ExecuteNonQuery()
67 com1.ExecuteNonQuery()
68 connect.Close()
69 MessageBox.Show("Đặt chỗ thành công", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
70 Duyet_danh_sach_cho_ngoi()
71 Catch ex As Exception
72 MessageBox.Show("Chỗ này đã có người đặt rồi bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
73 connect.Close()
74 End Try
75 Else
76 MessageBox.Show("Đã hủy thao tác chọn chỗ ngồi, bạn có thể chọn chỗ khác nếu muốn!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
77 End If
78 End Sub
79
80 Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_1.Click
81 Duyet(btn_1)
82 End Sub
83
84 Private Sub btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_2.Click
85 Duyet(btn_2)
86 End Sub
87
88 Private Sub btn_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_3.Click
89 Duyet(btn_3)
90 End Sub
91
92 Private Sub btn_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_4.Click
93 Duyet(btn_4)
94 End Sub
95
96 Private Sub btn_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_5.Click
97 Duyet(btn_5)
98 End Sub
99
100
101 Private Sub btn_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_6.Click
102 Duyet(btn_6)
103 End Sub
104
105 Private Sub btn_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_7.Click
106 Duyet(btn_7)
107 End Sub
108
109 Private Sub btn_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_8.Click
110 Duyet(btn_8)
111 End Sub
112
113 Private Sub btn_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_9.Click
114 Duyet(btn_9)
115 End Sub
116
117 Private Sub btn_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_10.Click
118 Duyet(btn_10)
119 End Sub
120
121 Private Sub btn_11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_11.Click
122 Duyet(btn_11)
123 End Sub
124
125 Private Sub btn_12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_12.Click
126 Duyet(btn_12)
127 End Sub
128
129 Private Sub btn_13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_13.Click
130 Duyet(btn_13)
131 End Sub
132
133 Private Sub btn_14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_14.Click
134 Duyet(btn_14)
135 End Sub
136
137 Private Sub btn_15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_15.Click
138 Duyet(btn_15)
139 End Sub
140
141 End Class