Quản lý phần mềm bán vé xe VB

8.448 lượt xem;

Form_Xe_25_Cho.vb
Form /
PhanMemBanVeXe_Full /
project /

1 Imports DevComponents.DotNetBar
2 Imports System.Data.SqlClient
3 Public Class Form_Xe_25_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 Form_Xe_25_Cho_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
11         Duyet_danh_sach_cho_ngoi()
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 btn_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Thoat.Click
19         Ban_ve.Update_Ve_xe()
20         Me.Close()
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_25.Controls.Count - 1
40                     If dr.GetValue(2).ToString = grb_25.Controls(i).Text Then
41                         CType(grb_25.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             Dim com As New SqlCommand(lenh, connect)
61             Dim com1 As New SqlCommand(lenh1, connect)
62             Try
63                 connect.Open()
64                 com.ExecuteNonQuery()
65                 com1.ExecuteNonQuery()
66                 connect.Close()
67                 MessageBox.Show("Đặt chỗ thành công", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
68                 Duyet_danh_sach_cho_ngoi()
69             Catch ex As Exception
70                 MessageBox.Show("Chỗ này đã có người đặt rồi bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
71                 connect.Close()
72             End Try
73         Else
74             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)
75         End If
76     End Sub
77
78     Private Sub btn_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_8.Click
79         Duyet(btn_8)
80     End Sub
81     Private Sub btn_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_7.Click
82         Duyet(btn_7)
83     End Sub
84     Private Sub btn_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_6.Click
85         Duyet(btn_6)
86     End Sub
87     Private Sub btn_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_5.Click
88         Duyet(btn_5)
89     End Sub
90     Private Sub btn_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_4.Click
91         Duyet(btn_4)
92     End Sub
93     Private Sub btn_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_3.Click
94         Duyet(btn_3)
95     End Sub
96     Private Sub btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_2.Click
97         Duyet(btn_2)
98     End Sub
99     Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_1.Click
100         Duyet(btn_1)
101     End Sub
102
103     Private Sub btn_16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_16.Click
104         Duyet(btn_16)
105     End Sub
106
107     Private Sub btn_15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_15.Click
108         Duyet(btn_15)
109     End Sub
110
111     Private Sub btn_14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_14.Click
112         Duyet(btn_14)
113     End Sub
114
115     Private Sub btn_13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_13.Click
116         Duyet(btn_13)
117     End Sub
118
119     Private Sub btn_12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_12.Click
120         Duyet(btn_12)
121     End Sub
122
123     Private Sub btn_11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_11.Click
124         Duyet(btn_11)
125     End Sub
126
127     Private Sub btn_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_10.Click
128         Duyet(btn_10)
129     End Sub
130
131     Private Sub btn_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_9.Click
132         Duyet(btn_9)
133     End Sub
134
135     Private Sub btn_24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_24.Click
136         Duyet(btn_24)
137     End Sub
138
139     Private Sub btn_23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_23.Click
140         Duyet(btn_23)
141     End Sub
142
143     Private Sub btn_21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_21.Click
144         Duyet(btn_21)
145     End Sub
146
147     Private Sub btn_22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_22.Click
148         Duyet(btn_22)
149     End Sub
150
151     Private Sub btn_20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_20.Click
152         Duyet(btn_23)
153     End Sub
154
155     Private Sub btn_19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_19.Click
156         Duyet(btn_19)
157     End Sub
158
159     Private Sub btn_18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_18.Click
160         Duyet(btn_18)
161     End Sub
162
163     Private Sub btn_17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_17.Click
164         Duyet(btn_17)
165     End Sub
166 End Class

Quản lý phần mềm bán vé xe VB

Quản lý phần mềm bán vé xe VB 8.448 lượt xem

Dự án liên quan!

Source Code Quản Lý Thiết Bị, Full Code + CSDL + File Báo Cáo + Slide + Hướng Dẫn

Phân tích thiết kế CSDL phần mềm quản lý bán hàng online

Full code quản lý phòng tập gym, phòng thập thể hình Quang Sáng

Quản lý nhân sự công ty bằng c# _ full source code

Full Source Code Phần mềm quản lý bán hàng online chuyên nghiệp bằng PHP

Full code phần mềm bán hàng siêu thị shop mini (c# +sql)