Quản lý phần mềm bán vé xe VB
8.424 lượt xem;
- Form_ChiTietTuyen.vb
- Form /
- PhanMemBanVeXe_Full /
- project /
1 Imports System.Data.SqlClient
2 Public Class Form_ChiTietTuyen
3 Private bang_thoi_diem As DataTable
4 Private bang_Tuyen_xe As DataTable
5 Private lenh As String
6 Private vi_tri_hien_hanh As Integer
7 Private flag As Boolean = True
8 Private bang_danh_sach As DataTable
9
10 Private Sub Form_ChiTietTuyen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
11 Update_ChiTietTuyen()
12 End Sub
13
14 Private Sub cbo_MaSoTuyen_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_MaSoTuyen.SelectedIndexChanged
15 If cbo_MaSoTuyen.SelectedIndex < 0 Then Exit Sub
16 Loc_Thoi_diem_theo_IdTuyen(cbo_MaSoTuyen.SelectedValue.ToString)
17 End Sub
18
19 Public Sub Update_ChiTietTuyen()
20 Doc_Thoi_diem()
21 Doc_tuyen_xe()
22 vi_tri_hien_hanh = 0
23 End Sub
24
25 #Region "Doc thoi diem, doc tuyen xe da xong"
26 Private Sub Doc_Thoi_diem()
27 luoi_Thoi_diem.ClearSelection()
28 lenh = "Select IdTuyen, ThoiDiem.IdThoiDiem , Ngay, Gio from ThoiDiem, ChiTietTuyen where ChiTietTuyen.IdThoiDiem = ThoiDiem.IdThoiDiem "
29 bang_thoi_diem = Doc_bang(lenh)
30 luoi_Thoi_diem.DataSource = bang_thoi_diem
31 End Sub
32
33 Private Sub Doc_tuyen_xe()
34 lenh = "Select IdTuyen, TenTuyen from TuyenXe"
35 bang_Tuyen_xe = Doc_bang(lenh)
36
37 With cbo_MaSoTuyen
38 .DataSource = bang_Tuyen_xe
39 .DisplayMember = "IdTuyen"
40 .ValueMember = "IdTuyen"
41 End With
42 cbo_MaSoTuyen1.Text = cbo_MaSoTuyen.Text
43 Xoa_lien_ket()
44 Tao_lien_ket()
45 End Sub
46 #End Region
47
48 #Region "Tao lien ket voi xoa lien ket da xong"
49 Private Sub Tao_lien_ket()
50 cbo_MaSoTuyen1.DataBindings.Add("Text", bang_thoi_diem, "IdTuyen")
51 cbo_TenTuyen.DataBindings.Add("text", bang_Tuyen_xe, "TenTuyen")
52 cbo_MaThoiDiem.DataBindings.Add("text", bang_thoi_diem, "IdThoiDiem")
53 date_Chay.DataBindings.Add("text", bang_thoi_diem, "Ngay")
54 txt_GioChay.DataBindings.Add("text", bang_thoi_diem, "Gio")
55 End Sub
56
57 Private Sub Xoa_lien_ket()
58 cbo_MaSoTuyen1.DataBindings.Clear()
59 cbo_TenTuyen.DataBindings.Clear()
60 cbo_MaThoiDiem.DataBindings.Clear()
61 date_Chay.DataBindings.Clear()
62 txt_GioChay.DataBindings.Clear()
63 End Sub
64 #End Region
65
66 #Region "Loc danh sach thoi diem da xong"
67 Public Sub Loc_Thoi_diem_theo_IdTuyen(ByVal pMa_so_tuyen As String)
68 Dim dieu_kien As String = "IdTuyen = '" + pMa_so_tuyen + "'"
69 bang_thoi_diem.DefaultView.RowFilter = dieu_kien
70 End Sub
71 #End Region
72
73 #Region "Xy ly button hien, loc danh sach da xong"
74 Private Sub btn_HienDanhSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_HienDanhSach.Click
75 If flag Then
76 luoi_Thoi_diem.ClearSelection()
77 lenh = "Select ChiTietTuyen.IdTuyen, TenTuyen , ThoiDiem.IdThoiDiem , Ngay, Gio from ThoiDiem, ChiTietTuyen, TuyenXe "
78 lenh &= " where ChiTietTuyen.IdThoiDiem = ThoiDiem.IdThoiDiem and TuyenXe.IdTuyen = ChiTietTuyen.IdTuyen"
79 bang_danh_sach = Doc_bang(lenh)
80 luoi_Thoi_diem.DataSource = bang_danh_sach
81 With cbo_MaSoTuyen
82 .DataSource = bang_danh_sach
83 .DisplayMember = "IdTuyen"
84 .ValueMember = "IdTuyen"
85 End With
86 cbo_MaSoTuyen1.DataBindings.Clear()
87 cbo_TenTuyen.DataBindings.Clear()
88 cbo_MaThoiDiem.DataBindings.Clear()
89 date_Chay.DataBindings.Clear()
90 txt_GioChay.DataBindings.Clear()
91
92 cbo_MaSoTuyen1.DataBindings.Add("Text", bang_danh_sach, "IdTuyen")
93 cbo_TenTuyen.DataBindings.Add("text", bang_danh_sach, "TenTuyen")
94 cbo_MaThoiDiem.DataBindings.Add("text", bang_danh_sach, "IdThoiDiem")
95 date_Chay.DataBindings.Add("text", bang_danh_sach, "Ngay")
96 txt_GioChay.DataBindings.Add("text", bang_danh_sach, "Gio")
97 btn_HienDanhSach.Text = "Lọc danh sách tuyến"
98 flag = False
99 Else
100 Update_ChiTietTuyen()
101 btn_HienDanhSach.Text = "Hiện tất cả danh sách"
102 flag = True
103 End If
104 End Sub
105 #End Region
106
107 Private Sub btn_thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_thoat.Click
108 Me.Close()
109 End Sub
110
111 Private Sub btn_Xoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Xoa.Click
112 If cbo_MaSoTuyen.Text = "" OrElse cbo_MaThoiDiem.Text = "" Then
113 MessageBox.Show("Bạn chưa chọn Mã số tuyến và thời điểm cần xóa", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Warning)
114 Exit Sub
115 End If
116
117
118 Dim qs = MessageBox.Show("Bạn chắc chắn muốn xóa tất cả thông tin về:" & vbNewLine & _
119 " - Ma số tuyến: " & cbo_MaSoTuyen.Text & vbNewLine & _
120 " - Mã thời điểm: " & cbo_MaThoiDiem.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
121 If qs = DialogResult.Yes Then
122 Dim lenh1 As String = "Select IdTuyen, NgayDi, Gio from ChuyenXe"
123 Dim dr As SqlDataReader
124 Dim com As New SqlCommand(lenh1, connect)
125 connect.Open()
126 dr = com.ExecuteReader
127 While dr.Read = True
128 'MessageBox.Show(dr.GetValue(0).ToString & dr.GetValue(1).ToString & dr.GetValue(2).ToString)
129 If dr.GetValue(0).ToString = cbo_MaSoTuyen.Text And FormatDateTime(CDate(dr.GetValue(1).ToString), DateFormat.ShortDate) = date_Chay.Text And dr.GetValue(2).ToString = txt_GioChay.Text Then
130 MessageBox.Show("Thoi diem nay da duoc gan cho chuyen xe, bạn phai xoa chuyen đó trước!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
131 connect.Close()
132 Exit Sub
133 End If
134 End While
135 connect.Close()
136 lenh = "Delete from ChiTietTuyen where IdThoiDiem = '" + cbo_MaThoiDiem.Text + "'"
137 Dim query1 As New SqlCommand(lenh, connect)
138 Try
139 connect.Open()
140 query1.ExecuteNonQuery()
141 connect.Close()
142 Update_ChiTietTuyen()
143 MsgBox("Dữ liệu đã xóa thành công", vbInformation, "Thông báo")
144 Catch ex As Exception
145 MsgBox("Xóa dữ liệu không thành công!", vbExclamation, "Thông báo")
146 End Try
147 Else
148 MsgBox("Đã hủy thao tác xóa!", vbExclamation, "Thông báo")
149 End If
150 End Sub
151
152 End Class
2 Public Class Form_ChiTietTuyen
3 Private bang_thoi_diem As DataTable
4 Private bang_Tuyen_xe As DataTable
5 Private lenh As String
6 Private vi_tri_hien_hanh As Integer
7 Private flag As Boolean = True
8 Private bang_danh_sach As DataTable
9
10 Private Sub Form_ChiTietTuyen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
11 Update_ChiTietTuyen()
12 End Sub
13
14 Private Sub cbo_MaSoTuyen_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_MaSoTuyen.SelectedIndexChanged
15 If cbo_MaSoTuyen.SelectedIndex < 0 Then Exit Sub
16 Loc_Thoi_diem_theo_IdTuyen(cbo_MaSoTuyen.SelectedValue.ToString)
17 End Sub
18
19 Public Sub Update_ChiTietTuyen()
20 Doc_Thoi_diem()
21 Doc_tuyen_xe()
22 vi_tri_hien_hanh = 0
23 End Sub
24
25 #Region "Doc thoi diem, doc tuyen xe da xong"
26 Private Sub Doc_Thoi_diem()
27 luoi_Thoi_diem.ClearSelection()
28 lenh = "Select IdTuyen, ThoiDiem.IdThoiDiem , Ngay, Gio from ThoiDiem, ChiTietTuyen where ChiTietTuyen.IdThoiDiem = ThoiDiem.IdThoiDiem "
29 bang_thoi_diem = Doc_bang(lenh)
30 luoi_Thoi_diem.DataSource = bang_thoi_diem
31 End Sub
32
33 Private Sub Doc_tuyen_xe()
34 lenh = "Select IdTuyen, TenTuyen from TuyenXe"
35 bang_Tuyen_xe = Doc_bang(lenh)
36
37 With cbo_MaSoTuyen
38 .DataSource = bang_Tuyen_xe
39 .DisplayMember = "IdTuyen"
40 .ValueMember = "IdTuyen"
41 End With
42 cbo_MaSoTuyen1.Text = cbo_MaSoTuyen.Text
43 Xoa_lien_ket()
44 Tao_lien_ket()
45 End Sub
46 #End Region
47
48 #Region "Tao lien ket voi xoa lien ket da xong"
49 Private Sub Tao_lien_ket()
50 cbo_MaSoTuyen1.DataBindings.Add("Text", bang_thoi_diem, "IdTuyen")
51 cbo_TenTuyen.DataBindings.Add("text", bang_Tuyen_xe, "TenTuyen")
52 cbo_MaThoiDiem.DataBindings.Add("text", bang_thoi_diem, "IdThoiDiem")
53 date_Chay.DataBindings.Add("text", bang_thoi_diem, "Ngay")
54 txt_GioChay.DataBindings.Add("text", bang_thoi_diem, "Gio")
55 End Sub
56
57 Private Sub Xoa_lien_ket()
58 cbo_MaSoTuyen1.DataBindings.Clear()
59 cbo_TenTuyen.DataBindings.Clear()
60 cbo_MaThoiDiem.DataBindings.Clear()
61 date_Chay.DataBindings.Clear()
62 txt_GioChay.DataBindings.Clear()
63 End Sub
64 #End Region
65
66 #Region "Loc danh sach thoi diem da xong"
67 Public Sub Loc_Thoi_diem_theo_IdTuyen(ByVal pMa_so_tuyen As String)
68 Dim dieu_kien As String = "IdTuyen = '" + pMa_so_tuyen + "'"
69 bang_thoi_diem.DefaultView.RowFilter = dieu_kien
70 End Sub
71 #End Region
72
73 #Region "Xy ly button hien, loc danh sach da xong"
74 Private Sub btn_HienDanhSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_HienDanhSach.Click
75 If flag Then
76 luoi_Thoi_diem.ClearSelection()
77 lenh = "Select ChiTietTuyen.IdTuyen, TenTuyen , ThoiDiem.IdThoiDiem , Ngay, Gio from ThoiDiem, ChiTietTuyen, TuyenXe "
78 lenh &= " where ChiTietTuyen.IdThoiDiem = ThoiDiem.IdThoiDiem and TuyenXe.IdTuyen = ChiTietTuyen.IdTuyen"
79 bang_danh_sach = Doc_bang(lenh)
80 luoi_Thoi_diem.DataSource = bang_danh_sach
81 With cbo_MaSoTuyen
82 .DataSource = bang_danh_sach
83 .DisplayMember = "IdTuyen"
84 .ValueMember = "IdTuyen"
85 End With
86 cbo_MaSoTuyen1.DataBindings.Clear()
87 cbo_TenTuyen.DataBindings.Clear()
88 cbo_MaThoiDiem.DataBindings.Clear()
89 date_Chay.DataBindings.Clear()
90 txt_GioChay.DataBindings.Clear()
91
92 cbo_MaSoTuyen1.DataBindings.Add("Text", bang_danh_sach, "IdTuyen")
93 cbo_TenTuyen.DataBindings.Add("text", bang_danh_sach, "TenTuyen")
94 cbo_MaThoiDiem.DataBindings.Add("text", bang_danh_sach, "IdThoiDiem")
95 date_Chay.DataBindings.Add("text", bang_danh_sach, "Ngay")
96 txt_GioChay.DataBindings.Add("text", bang_danh_sach, "Gio")
97 btn_HienDanhSach.Text = "Lọc danh sách tuyến"
98 flag = False
99 Else
100 Update_ChiTietTuyen()
101 btn_HienDanhSach.Text = "Hiện tất cả danh sách"
102 flag = True
103 End If
104 End Sub
105 #End Region
106
107 Private Sub btn_thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_thoat.Click
108 Me.Close()
109 End Sub
110
111 Private Sub btn_Xoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Xoa.Click
112 If cbo_MaSoTuyen.Text = "" OrElse cbo_MaThoiDiem.Text = "" Then
113 MessageBox.Show("Bạn chưa chọn Mã số tuyến và thời điểm cần xóa", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Warning)
114 Exit Sub
115 End If
116
117
118 Dim qs = MessageBox.Show("Bạn chắc chắn muốn xóa tất cả thông tin về:" & vbNewLine & _
119 " - Ma số tuyến: " & cbo_MaSoTuyen.Text & vbNewLine & _
120 " - Mã thời điểm: " & cbo_MaThoiDiem.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
121 If qs = DialogResult.Yes Then
122 Dim lenh1 As String = "Select IdTuyen, NgayDi, Gio from ChuyenXe"
123 Dim dr As SqlDataReader
124 Dim com As New SqlCommand(lenh1, connect)
125 connect.Open()
126 dr = com.ExecuteReader
127 While dr.Read = True
128 'MessageBox.Show(dr.GetValue(0).ToString & dr.GetValue(1).ToString & dr.GetValue(2).ToString)
129 If dr.GetValue(0).ToString = cbo_MaSoTuyen.Text And FormatDateTime(CDate(dr.GetValue(1).ToString), DateFormat.ShortDate) = date_Chay.Text And dr.GetValue(2).ToString = txt_GioChay.Text Then
130 MessageBox.Show("Thoi diem nay da duoc gan cho chuyen xe, bạn phai xoa chuyen đó trước!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
131 connect.Close()
132 Exit Sub
133 End If
134 End While
135 connect.Close()
136 lenh = "Delete from ChiTietTuyen where IdThoiDiem = '" + cbo_MaThoiDiem.Text + "'"
137 Dim query1 As New SqlCommand(lenh, connect)
138 Try
139 connect.Open()
140 query1.ExecuteNonQuery()
141 connect.Close()
142 Update_ChiTietTuyen()
143 MsgBox("Dữ liệu đã xóa thành công", vbInformation, "Thông báo")
144 Catch ex As Exception
145 MsgBox("Xóa dữ liệu không thành công!", vbExclamation, "Thông báo")
146 End Try
147 Else
148 MsgBox("Đã hủy thao tác xóa!", vbExclamation, "Thông báo")
149 End If
150 End Sub
151
152 End Class