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

8.441 lượt xem;

Form_Main.vb
Form /
PhanMemBanVeXe_Full /
project /

1 Imports System.Data
2 Imports System.Data.SqlClient
3 Public Class Form_Main
4     Private flag As Boolean = True
5     Private Nguoi_dung As New Nguoi_dung()
6     Private Xe As New Xe()
7     Private Tuyen_xe As New Tuyen_xe()
8     Private Thoi_diem As New Thoi_diem()
9     Private Chuyen_Xe As New Chuyen_xe()
10     Private Ban_ve As New Ban_ve()
11     Private Quyen As New Form_Phan_Quyen
12     Private update_he_thong As New Update_he_thong
13
14
15     Private Sub Form_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
16         update_he_thong.update_()
17         Nguoi_dung.UpdateNguoiDung()
18         Xe.UpdateXe()
19         Tuyen_xe.UpdateTuyenXe()
20         Thoi_diem.Update_thoi_diem()
21         Chuyen_Xe.Update_Chuyen_xe()
22         Ban_ve.Update_Ve_xe()
23         Quyen.UpdateQuyen()
24         Timer1.Interval = 1000
25
26         Splitter1.Height = 500
27         Timer2.Interval = 100
28         Timer2.Start()
29     End Sub
30
31 #Region "Xu ly Timer da xong"
32     Private Sub Timer_ChayChu_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_ChayChu.Tick
33         If lblChayChu.Left < 0 Then
34             lblChayChu.Left = 1400
35             flag = Not flag
36         Else
37             lblChayChu.Left -= 10
38             If flag Then
39                 lblChayChu.ForeColor = Color.Black
40                 flag = Not flag
41             Else
42                 lblChayChu.ForeColor = Color.Teal
43                 flag = Not flag
44             End If
45         End If
46     End Sub
47
48     Private Sub RibbonPanel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RibbonPanel1.Click
49         If flag Then
50             Timer_ChayChu.Stop()
51             flag = Not flag
52         Else
53             Timer_ChayChu.Start()
54             flag = Not flag
55         End If
56     End Sub
57 #End Region
58
59 #Region "Cac su kien Close, Logout cua FormMain da xu ly xong"
60     Private Sub ButtonX_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX_Close.Click
61         On Error Resume Next
62         Me.WindowState = 0
63         Do
64             Me.Top = Me.Top + 10
65             Me.Left = Me.Left + 10
66             Me.Width = Me.Width - 30
67             Me.Height = Me.Height - 30
68         Loop Until Me.Top >= Me.Height
69         End
70         Form_Login.Close()
71     End Sub
72
73     Private Sub ButtonX_Logout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX_Logout.Click
74         Form_Login.Visible = True
75         Form_Login.Opacity = 100
76         Form_Login.txtPassword.Clear()
77         Form_Login.Timer1.Start()
78         Form_Login.Timer2.Start()
79         Me.Close()
80     End Sub
81
82     Private Sub FormMain_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
83         Form_Login.Visible = True
84         Form_Login.Opacity = 100
85         Form_Login.Timer1.Start()
86         Form_Login.Timer2.Start()
87         Form_Login.txtPassword.Clear()
88     End Sub
89 #End Region
90
91 #Region "Xu ly cac su kien click cac button ben trai de di chuyen cac tab dieu khien hoan tat"
92     Private Sub btn_QuanLyND_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_QuanLyND.Click
93         Me.TabControl_Main.SelectedTabIndex = 0
94     End Sub
95
96     Private Sub btn_QuanLyXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_QuanLyXe.Click
97         Me.TabControl_Main.SelectedTabIndex = 1
98     End Sub
99
100     Private Sub btn_QuanLyTuyenXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_QuanLyTuyenXe.Click
101         TabControl_Main.SelectedTabIndex = 2
102     End Sub
103
104     Private Sub btn_ChuyenXe_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_ChuyenXe.Click
105         TabControl_Main.SelectedTabIndex = 4
106     End Sub
107
108     Private Sub btn_BanVe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_BanVe.Click
109         TabControl_Main.SelectedTabIndex = 5
110     End Sub
111 #End Region
112
113     '-----------------------------------------------Xu Ly Nguoi Dung----------------------------------------'
114 #Region "Xu ly cac nut di chuyen ben phai da hoan tat"
115     Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
116         Nguoi_dung.Di_chuyen_ve_truoc()
117     End Sub
118
119     Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
120         Nguoi_dung.Di_chuyen_ve_sau()
121     End Sub
122
123     Private Sub btnHead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHead.Click
124         Nguoi_dung.Di_chuyen_ve_dau()
125     End Sub
126
127     Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
128         Nguoi_dung.Di_chuyen_ve_cuoi()
129     End Sub
130 #End Region
131
132 #Region "Xu ly su kien them, sua, xoa nguoi dung da hoan tat"
133     Private Sub Button_Them_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Them.Click
134         Nguoi_dung.Them_nguoi_dung()
135     End Sub
136
137     Private Sub Button_Luu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Luu.Click
138         Nguoi_dung.Luu_thay_doi()
139     End Sub
140
141     Private Sub Button_Huy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Huy.Click
142         Nguoi_dung.Huy_thao_tac()
143     End Sub
144
145     Private Sub Button_Sua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Sua.Click
146         Nguoi_dung.Sua_thong_tin_ca_nhan()
147     End Sub
148
149     Private Sub Button_Xoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Xoa.Click
150         Nguoi_dung.Xoa_nguoi_dung()
151     End Sub
152 #End Region
153
154 #Region "Xu ly di chuyen radio theo click chuot tren datagrid da xong"
155
156     Private Sub luoi_NguoiDung_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles luoi_NguoiDung.MouseClick
157         If luoi_NguoiDung.CurrentRow.Cells.Item(4).Value.ToString = "Nam" Then
158             radNam.Checked = True
159         Else
160             radNu.Checked = True
161         End If
162     End Sub
163
164     Private Sub luoi_NguoiDung_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles luoi_NguoiDung.RowEnter
165         cbo_Username.Text = luoi_NguoiDung.Item("IdNguoiDung", e.RowIndex).EditedFormattedValue.ToString
166         txt_Password.Text = luoi_NguoiDung.Item("PassND", e.RowIndex).EditedFormattedValue.ToString
167         txt_HoTen.Text = luoi_NguoiDung.Item("HoTen", e.RowIndex).EditedFormattedValue.ToString
168         date_NgaySinh.Text = luoi_NguoiDung.Item("NgaySinh", e.RowIndex).EditedFormattedValue.ToString
169         If luoi_NguoiDung.Item("GioiTinh", e.RowIndex).EditedFormattedValue.ToString = "Nam" Then
170             radNam.Checked = True
171         Else
172             radNu.Checked = True
173         End If
174         txt_SoDienThoai.Text = luoi_NguoiDung.Item("SoDT", e.RowIndex).EditedFormattedValue.ToString
175         txt_DiaChi.Text = luoi_NguoiDung.Item("DiaChi", e.RowIndex).EditedFormattedValue.ToString
176     End Sub
177
178     Private Sub luoi_NguoiDung_RowHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles luoi_NguoiDung.RowHeaderMouseClick
179         If luoi_NguoiDung.CurrentRow.Cells.Item(4).Value.ToString = "Nam" Then
180             radNam.Checked = True
181         Else
182             radNu.Checked = True
183         End If
184     End Sub
185 #End Region
186
187 #Region "Xu ly button cap pass hoan tat "
188     Private Sub Button_CapPass_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_CapPass.Click
189         If cbo_IdLoaiND.Text = "Nhan_Vien" Then
190             Dim frm As New Form_Cap_pass()
191             frm.ShowDialog()
192         ElseIf cbo_IdLoaiND.Text = "Admin" Then
193             MessageBox.Show("Bạn không được cấp pass cho người Admin, vui lòng chọn 1 nhân viên", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
194         Else
195             MessageBox.Show("Bạn không được cấp pass cho người quản lý, vui lòng chọn 1 nhân viên", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
196         End If
197     End Sub
198 #End Region
199
200     '--------------------------------------------Xu Ly Xe--------------------------------------------'
201 #Region "Xu ly cac nut di chuyen xe da hoan tat "
202     Private Sub btn_Top_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Top.Click
203         Xe.Di_chuyen_ve_dau()
204     End Sub
205
206     Private Sub btn_Xe_Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Xe_Back.Click
207         Xe.Di_chuyen_ve_truoc()
208     End Sub
209
210     Private Sub btn_Xe_Next_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Xe_Next.Click
211         Xe.Di_chuyen_ve_sau()
212     End Sub
213
214     Private Sub btn_Xe_End_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Xe_End.Click
215         Xe.Di_chuyen_ve_cuoi()
216     End Sub
217
218
219 #End Region
220
221 #Region "Xu ly them, sua , xoa Xe da hoan tat"
222     Private Sub btn_ThemXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ThemXe.Click
223         Xe.Them_Xe()
224     End Sub
225
226     Private Sub btn_SuaXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SuaXe.Click
227         Xe.Sua_Xe()
228     End Sub
229
230     Private Sub btn_HuyXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_HuyXe.Click
231         Xe.Huy_thao_tac()
232     End Sub
233
234     Private Sub btn_LuuXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_LuuXe.Click
235         Xe.Luu_thay_doi()
236     End Sub
237
238     Private Sub btn_XoaXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_XoaXe.Click
239         Xe.Xoa_Xe()
240     End Sub
241 #End Region
242
243 #Region "Su kien nhan enter tren Luoi_xe"
244     Private Sub Luoi_Xe_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Luoi_Xe.RowEnter
245         cbo_SoXe.Text = Luoi_Xe.Item("So_Xe", e.RowIndex).EditedFormattedValue.ToString
246         cbo_HieuXe.Text = Luoi_Xe.Item("Hieu_Xe", e.RowIndex).EditedFormattedValue.ToString
247         txt_DoiXe.Text = Luoi_Xe.Item("Doi_Xe", e.RowIndex).EditedFormattedValue.ToString
248         cbo_SoChoNgoi.Text = Luoi_Xe.Item("So_Cho_Ngoi", e.RowIndex).EditedFormattedValue.ToString
249     End Sub
250 #End Region
251
252     ''--------------------------------------------------Tuyen Xe----------------------------------------------------
253 #Region "Xu ly cac button di chuyen da xong"
254     Private Sub btn_First_Tuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_First_Tuyen.Click
255         Tuyen_xe.Di_chuyen_ve_dau()
256     End Sub
257
258     Private Sub btn_Previous_Tuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Previous_Tuyen.Click
259         Tuyen_xe.Di_chuyen_ve_truoc()
260     End Sub
261
262     Private Sub btn_Next_Tuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Next_Tuyen.Click
263         Tuyen_xe.Di_chuyen_ve_sau()
264     End Sub
265
266     Private Sub btn_Last_Tuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Last_Tuyen.Click
267         Tuyen_xe.Di_chuyen_ve_cuoi()
268     End Sub
269 #End Region
270
271 #Region "Xu ly su kien them, xoa , sua hoan tat"
272     Private Sub btn_ThemTuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ThemTuyen.Click
273         Tuyen_xe.Them()
274     End Sub
275
276     Private Sub btn_SuaTuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SuaTuyen.Click
277         Tuyen_xe.Sua()
278     End Sub
279
280     Private Sub btn_XoaTuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_XoaTuyen.Click
281         Tuyen_xe.Xoa()
282     End Sub
283
284     Private Sub btn_LuuTuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_LuuTuyen.Click
285         Tuyen_xe.Luu()
286     End Sub
287
288     Private Sub btn_HuyTuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_HuyTuyen.Click
289         Tuyen_xe.Huy_thao_tac()
290     End Sub
291 #End Region
292
293     Private Sub btn_XemChiTietTuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_XemChiTietTuyen.Click
294         Dim frm_ChiTietTuyen As New Form_ChiTietTuyen
295         frm_ChiTietTuyen.ShowDialog()
296     End Sub
297     '----------------------------------------------------Thoi diem-----------------------------------------------
298 #Region "Đã xong"
299     Private Sub btn_ThemThoiDiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ThemThoiDiem.Click
300         Thoi_diem.them()
301     End Sub
302
303     Private Sub btn_SuaThoiDiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SuaThoiDiem.Click
304         Thoi_diem.Sua()
305     End Sub
306
307     Private Sub btn_HuyThoiDiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_HuyThoiDiem.Click
308         Thoi_diem.Huy()
309     End Sub
310
311     Private Sub btn_LuuThoiDiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_LuuThoiDiem.Click
312         Thoi_diem.Luu()
313     End Sub
314
315     Private Sub rad_LapTuan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rad_LapTuan.CheckedChanged
316         lbl_Lap.Show()
317         date_NgayKetThuc.Show()
318     End Sub
319
320     Private Sub btn_XoaThoiDiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_XoaThoiDiem.Click
321         Thoi_diem.Xoa()
322     End Sub
323
324     Private Sub btn_GanTuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_GanTuyen.Click
325         Thoi_diem.Gan_tuyen()
326     End Sub
327 #End Region
328
329     '----------------------------------------------------Chuyen Xe------------------------------------------
330 #Region "Da xong"
331     Private Sub btn_ThemChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ThemChuyen.Click
332         Chuyen_Xe.Them()
333     End Sub
334
335     Private Sub btn_SuaChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SuaChuyen.Click
336         Chuyen_Xe.Sua()
337     End Sub
338
339     Private Sub btn_LuuChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_LuuChuyen.Click
340         Chuyen_Xe.Luu()
341     End Sub
342
343     Private Sub btn_HuyChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_HuyChuyen.Click
344         Chuyen_Xe.Huy()
345     End Sub
346
347     Private Sub cbo_IdTuyenChuyen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_IdTuyenChuyen.SelectedIndexChanged
348         Chuyen_Xe.Chon_tuyen()
349     End Sub
350
351     Private Sub cbo_NgayDiChuyen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_NgayDiChuyen.SelectedIndexChanged
352         Chuyen_Xe.Chon_ngay()
353     End Sub
354
355     Private Sub btn_XoaChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_XoaChuyen.Click
356         Chuyen_Xe.Xoa()
357     End Sub
358
359     Private Sub btn_FirstChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_FirstChuyen.Click
360         Chuyen_Xe.Di_chuyen_ve_dau()
361     End Sub
362
363     Private Sub btn_PreviousChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_PreviousChuyen.Click
364         Chuyen_Xe.Di_chuyen_ve_truoc()
365     End Sub
366
367     Private Sub btn_NextChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_NextChuyen.Click
368         Chuyen_Xe.Di_chuyen_ve_sau()
369     End Sub
370
371     Private Sub btn_LastChuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_LastChuyen.Click
372         Chuyen_Xe.Di_chuyen_ve_cuoi()
373     End Sub
374 #End Region
375
376     '-------------------------------------------------Ban Ve-----------------------------------------------
377 #Region "Da xong"
378     Private Sub cbo_TenTuyenVe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_TenTuyenVe.SelectedIndexChanged
379         Ban_ve.Chon_tuyen()
380     End Sub
381
382     Private Sub cbo_NgayVe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_NgayVe.SelectedIndexChanged
383         Ban_ve.Chon_ngay()
384     End Sub
385
386
387     Private Sub cbo_GioVe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_GioVe.SelectedIndexChanged
388         Ban_ve.Chon_xe()
389     End Sub
390
391     Private Sub cbo_XeVe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_XeVe.SelectedIndexChanged
392         Ban_ve.Chon_thong_tin_xe()
393     End Sub
394
395     Private Sub btn_ChonChoNgoi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ChonChoNgoi.Click
396         Ban_ve.Chon_cho_ngoi()
397     End Sub
398
399     Private Sub Button_PhanQuyen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_PhanQuyen.Click
400         If cbo_IdLoaiND.Text = "Nhan_Vien" Then
401             Dim frm_PhanQuyen As New Form_Phan_Quyen
402             frm_PhanQuyen.Show()
403         Else
404             MessageBox.Show("Bạn chỉ được cấp quyền cho nhân viên thôi, vui lòng chọn 1 nhân viên!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
405         End If
406
407     End Sub
408 #End Region
409
410     Private Sub ButtonItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem14.Click
411         Dim frm_Info As New Infomation()
412         frm_Info.Show()
413     End Sub
414
415     Private Sub LabelItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
416
417     End Sub
418
419     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
420         Time.Text = DateTime.Now.ToString
421     End Sub
422
423     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
424         If Splitter1.Height = 3 Then
425             Timer2.Stop()
426         Else
427             Splitter1.Height = Splitter1.Height - 20
428         End If
429     End Sub
430 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.441 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)