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

8.423 lượt xem;

Form_Xe_45_Cho.vb
Form /
PhanMemBanVeXe_Full /
project /

1 Imports DevComponents.DotNetBar
2 Imports System.Data.SqlClient
3 Public Class Form_Xe_45_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_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Thoat.Click
11         Ban_ve.Update_Ve_xe()
12         Me.Close()
13     End Sub
14
15     Private Sub btn_TaiXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_TaiXe.Click
16         MessageBox.Show("Chỗ này của tài xế bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Stop)
17     End Sub
18
19     Private Sub Duyet_danh_sach_cho_ngoi()
20         With Form_Main
21             lenh = "Select IdChuyen from ChuyenXe where IdTuyen = '" + .cbo_TenTuyenVe.SelectedValue.ToString + "'"
22             lenh &= " and NgayDi = '" + FormatDateTime(CDate(.cbo_NgayVe.SelectedValue.ToString), DateFormat.ShortDate) + "' and Gio = '" + .cbo_GioVe.SelectedValue.ToString + "'"
23             lenh &= " and So_Xe = '" + .cbo_XeVe.SelectedValue.ToString + "'"
24             'Lay Idchuyen cua chuyen do ra
25             bang_dat_ve = Doc_bang(lenh)
26             IdChuyen = bang_dat_ve.Rows(0)("IdChuyen").ToString
27         End With
28
29         lenh = "Select * from ChoNgoi where IdChuyen = '" + IdChuyen + "' and So_Xe = '" + Form_Main.cbo_XeVe.SelectedValue.ToString + "'"
30         Dim com As New SqlCommand(lenh, connect)
31         Try
32             connect.Open()
33             Dim dr As SqlDataReader = com.ExecuteReader
34             While dr.Read = True
35                 For i As Integer = 0 To grb_45.Controls.Count - 1
36                     If dr.GetValue(2).ToString = grb_45.Controls(i).Text Then
37                         CType(grb_45.Controls(i), DevComponents.DotNetBar.ButtonX).Image = My.Resources.hanh_khach
38                     End If
39                 Next
40             End While
41             connect.Close()
42         Catch ex As Exception
43             MessageBox.Show("Không đọc được danh sách chỗ ngồi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
44         End Try
45     End Sub
46
47     Private Sub Form_Xe_45_Cho_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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_12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_12.Click
79         Duyet(btn_12)
80     End Sub
81     Private Sub btn_11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_11.Click
82         Duyet(btn_11)
83     End Sub
84     Private Sub btn_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_10.Click
85         Duyet(btn_10)
86     End Sub
87     Private Sub btn_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_9.Click
88         Duyet(btn_9)
89     End Sub
90     Private Sub btn_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_8.Click
91         Duyet(btn_8)
92     End Sub
93     Private Sub btn_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_7.Click
94         Duyet(btn_7)
95     End Sub
96     Private Sub btn_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_6.Click
97         Duyet(btn_6)
98     End Sub
99     Private Sub btn_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_5.Click
100         Duyet(btn_5)
101     End Sub
102     Private Sub btn_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_4.Click
103         Duyet(btn_4)
104     End Sub
105     Private Sub btn_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_3.Click
106         Duyet(btn_3)
107     End Sub
108     Private Sub btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_2.Click
109         Duyet(btn_2)
110     End Sub
111     Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_1.Click
112         Duyet(btn_1)
113     End Sub
114
115     Private Sub btn_28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_28.Click
116         Duyet(btn_28)
117     End Sub
118
119     Private Sub btn_27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_27.Click
120         Duyet(btn_27)
121     End Sub
122
123     Private Sub btn_26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_26.Click
124         Duyet(btn_26)
125     End Sub
126
127     Private Sub btn_25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_25.Click
128         Duyet(btn_25)
129     End Sub
130
131     Private Sub btn_24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_24.Click
132         Duyet(btn_24)
133     End Sub
134
135     Private Sub btn_23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_23.Click
136         Duyet(btn_23)
137     End Sub
138
139     Private Sub btn_22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_22.Click
140         Duyet(btn_22)
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_20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_20.Click
148         Duyet(btn_20)
149     End Sub
150
151     Private Sub btn_19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_19.Click
152         Duyet(btn_19)
153     End Sub
154
155     Private Sub btn_18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_18.Click
156         Duyet(btn_18)
157     End Sub
158
159     Private Sub btn_17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_17.Click
160         Duyet(btn_17)
161     End Sub
162
163     Private Sub btn_16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_16.Click
164         Duyet(btn_16)
165     End Sub
166
167     Private Sub btn_15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_15.Click
168         Duyet(btn_15)
169     End Sub
170
171     Private Sub btn_14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_14.Click
172         Duyet(btn_14)
173     End Sub
174
175     Private Sub btn_13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_13.Click
176         Duyet(btn_13)
177     End Sub
178
179     Private Sub btn_45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_45.Click
180         Duyet(btn_45)
181     End Sub
182
183     Private Sub btn_44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_44.Click
184         Duyet(btn_44)
185     End Sub
186
187     Private Sub btn_43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_43.Click
188         Duyet(btn_43)
189     End Sub
190
191     Private Sub btn_42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_42.Click
192         Duyet(btn_42)
193     End Sub
194
195     Private Sub btn_41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_41.Click
196         Duyet(btn_41)
197     End Sub
198
199     Private Sub btn_40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_40.Click
200         Duyet(btn_40)
201     End Sub
202
203     Private Sub btn_39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_39.Click
204         Duyet(btn_39)
205     End Sub
206
207     Private Sub btn_38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_38.Click
208         Duyet(btn_38)
209     End Sub
210
211     Private Sub btn_37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_37.Click
212         Duyet(btn_37)
213     End Sub
214
215     Private Sub btn_36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36.Click
216         Duyet(btn_36)
217     End Sub
218
219     Private Sub btn_35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_35.Click
220         Duyet(btn_35)
221     End Sub
222
223     Private Sub btn_34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_34.Click
224         Duyet(btn_34)
225     End Sub
226
227     Private Sub btn_33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_33.Click
228         Duyet(btn_33)
229     End Sub
230
231     Private Sub btn_32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_32.Click
232         Duyet(btn_32)
233     End Sub
234
235     Private Sub btn_31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_31.Click
236         Duyet(btn_31)
237     End Sub
238
239     Private Sub btn_30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_30.Click
240         Duyet(btn_30)
241     End Sub
242
243     Private Sub btn_29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_29.Click
244         Duyet(btn_29)
245     End Sub
246 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.423 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)