Quản lý phần mềm bán vé xe VB
8.421 lượt xem;
- Form_Xe_7_Cho.vb
- Form /
- PhanMemBanVeXe_Full /
- project /
1 Imports DevComponents.DotNetBar
2 Imports System.Data.SqlClient
3 Public Class Form_Xe_7_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 Private Sub btn_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Thoat.Click
10 Ban_ve.Update_Ve_xe()
11 Me.Close()
12 End Sub
13
14 Private Sub btn_TaiXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_TaiXe.Click
15 MessageBox.Show("Chỗ này của tài xế bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Stop)
16 End Sub
17
18 Private Sub Duyet_danh_sach_cho_ngoi()
19 With Form_Main
20 lenh = "Select IdChuyen from ChuyenXe where IdTuyen = '" + .cbo_TenTuyenVe.SelectedValue.ToString + "'"
21 lenh &= " and NgayDi = '" + FormatDateTime(CDate(.cbo_NgayVe.SelectedValue.ToString), DateFormat.ShortDate) + "' and Gio = '" + .cbo_GioVe.SelectedValue.ToString + "'"
22 lenh &= " and So_Xe = '" + .cbo_XeVe.SelectedValue.ToString + "'"
23 'Lay Idchuyen cua chuyen do ra
24 bang_dat_ve = Doc_bang(lenh)
25 IdChuyen = bang_dat_ve.Rows(0)("IdChuyen").ToString
26 End With
27
28 lenh = "Select * from ChoNgoi where IdChuyen = '" + IdChuyen + "' and So_Xe = '" + Form_Main.cbo_XeVe.SelectedValue.ToString + "'"
29 Dim com As New SqlCommand(lenh, connect)
30 Try
31 connect.Open()
32 Dim dr As SqlDataReader = com.ExecuteReader
33 While dr.Read = True
34 For i As Integer = 0 To grb_7.Controls.Count - 1
35 If dr.GetValue(2).ToString = grb_7.Controls(i).Text Then
36 CType(grb_7.Controls(i), DevComponents.DotNetBar.ButtonX).Image = My.Resources.hanh_khach
37 End If
38 Next
39 End While
40 connect.Close()
41 Catch ex As Exception
42 MessageBox.Show("Không đọc được danh sách chỗ ngồi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
43 End Try
44
45 End Sub
46
47 Private Sub Form_Xe_7_Cho_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
48 Duyet_danh_sach_cho_ngoi()
49 End Sub
50
51 Private Sub Duyet(ByVal but As DevComponents.DotNetBar.ButtonX)
52 Dim dg As DialogResult = MessageBox.Show("Ban có chắn chắc muốn đặt:" & vbNewLine & _
53 "- Xe: " & Form_Main.cbo_XeVe.SelectedValue.ToString & vbNewLine & _
54 "- Vị trí chỗ ngồi: " & but.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
55 If dg = Windows.Forms.DialogResult.Yes Then
56 lenh = "Insert into ChoNgoi Values('" + IdChuyen + "', '" + Form_Main.cbo_XeVe.Text + "', '" + but.Text + "')"
57 lenh1 = "Insert into BanVe(IdChuyen, TenHanhKhach, SDTHanhKhach) "
58 lenh1 &= "Values('" + IdChuyen + "', N'" + Form_Main.txt_TenHanhKhach.Text + "', '" + Form_Main.txt_SoDTHanhKhach.Text + "')"
59 Dim com As New SqlCommand(lenh, connect)
60 Dim com1 As New SqlCommand(lenh1, connect)
61 Try
62 connect.Open()
63 com.ExecuteNonQuery()
64 com1.ExecuteNonQuery()
65 connect.Close()
66 MessageBox.Show("Đặt chỗ thành công", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
67 Duyet_danh_sach_cho_ngoi()
68 Catch ex As Exception
69 MessageBox.Show("Chỗ này đã có người đặt rồi bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
70 connect.Close()
71 End Try
72 Else
73 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)
74 End If
75 End Sub
76
77
78 Private Sub btn_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_6.Click
79 Duyet(btn_6)
80 End Sub
81 Private Sub btn_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_5.Click
82 Duyet(btn_5)
83 End Sub
84 Private Sub btn_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_4.Click
85 Duyet(btn_4)
86 End Sub
87 Private Sub btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_2.Click
88 Duyet(btn_2)
89 End Sub
90 Private Sub btn_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_3.Click
91 Duyet(btn_3)
92 End Sub
93 Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_1.Click
94 Duyet(btn_1)
95 End Sub
96 End Class
2 Imports System.Data.SqlClient
3 Public Class Form_Xe_7_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 Private Sub btn_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Thoat.Click
10 Ban_ve.Update_Ve_xe()
11 Me.Close()
12 End Sub
13
14 Private Sub btn_TaiXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_TaiXe.Click
15 MessageBox.Show("Chỗ này của tài xế bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Stop)
16 End Sub
17
18 Private Sub Duyet_danh_sach_cho_ngoi()
19 With Form_Main
20 lenh = "Select IdChuyen from ChuyenXe where IdTuyen = '" + .cbo_TenTuyenVe.SelectedValue.ToString + "'"
21 lenh &= " and NgayDi = '" + FormatDateTime(CDate(.cbo_NgayVe.SelectedValue.ToString), DateFormat.ShortDate) + "' and Gio = '" + .cbo_GioVe.SelectedValue.ToString + "'"
22 lenh &= " and So_Xe = '" + .cbo_XeVe.SelectedValue.ToString + "'"
23 'Lay Idchuyen cua chuyen do ra
24 bang_dat_ve = Doc_bang(lenh)
25 IdChuyen = bang_dat_ve.Rows(0)("IdChuyen").ToString
26 End With
27
28 lenh = "Select * from ChoNgoi where IdChuyen = '" + IdChuyen + "' and So_Xe = '" + Form_Main.cbo_XeVe.SelectedValue.ToString + "'"
29 Dim com As New SqlCommand(lenh, connect)
30 Try
31 connect.Open()
32 Dim dr As SqlDataReader = com.ExecuteReader
33 While dr.Read = True
34 For i As Integer = 0 To grb_7.Controls.Count - 1
35 If dr.GetValue(2).ToString = grb_7.Controls(i).Text Then
36 CType(grb_7.Controls(i), DevComponents.DotNetBar.ButtonX).Image = My.Resources.hanh_khach
37 End If
38 Next
39 End While
40 connect.Close()
41 Catch ex As Exception
42 MessageBox.Show("Không đọc được danh sách chỗ ngồi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
43 End Try
44
45 End Sub
46
47 Private Sub Form_Xe_7_Cho_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
48 Duyet_danh_sach_cho_ngoi()
49 End Sub
50
51 Private Sub Duyet(ByVal but As DevComponents.DotNetBar.ButtonX)
52 Dim dg As DialogResult = MessageBox.Show("Ban có chắn chắc muốn đặt:" & vbNewLine & _
53 "- Xe: " & Form_Main.cbo_XeVe.SelectedValue.ToString & vbNewLine & _
54 "- Vị trí chỗ ngồi: " & but.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
55 If dg = Windows.Forms.DialogResult.Yes Then
56 lenh = "Insert into ChoNgoi Values('" + IdChuyen + "', '" + Form_Main.cbo_XeVe.Text + "', '" + but.Text + "')"
57 lenh1 = "Insert into BanVe(IdChuyen, TenHanhKhach, SDTHanhKhach) "
58 lenh1 &= "Values('" + IdChuyen + "', N'" + Form_Main.txt_TenHanhKhach.Text + "', '" + Form_Main.txt_SoDTHanhKhach.Text + "')"
59 Dim com As New SqlCommand(lenh, connect)
60 Dim com1 As New SqlCommand(lenh1, connect)
61 Try
62 connect.Open()
63 com.ExecuteNonQuery()
64 com1.ExecuteNonQuery()
65 connect.Close()
66 MessageBox.Show("Đặt chỗ thành công", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
67 Duyet_danh_sach_cho_ngoi()
68 Catch ex As Exception
69 MessageBox.Show("Chỗ này đã có người đặt rồi bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
70 connect.Close()
71 End Try
72 Else
73 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)
74 End If
75 End Sub
76
77
78 Private Sub btn_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_6.Click
79 Duyet(btn_6)
80 End Sub
81 Private Sub btn_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_5.Click
82 Duyet(btn_5)
83 End Sub
84 Private Sub btn_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_4.Click
85 Duyet(btn_4)
86 End Sub
87 Private Sub btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_2.Click
88 Duyet(btn_2)
89 End Sub
90 Private Sub btn_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_3.Click
91 Duyet(btn_3)
92 End Sub
93 Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_1.Click
94 Duyet(btn_1)
95 End Sub
96 End Class