Quản lý phần mềm bán vé xe VB
8.438 lượt xem;
- Form_Phan_Quyen.vb
- Form /
- PhanMemBanVeXe_Full /
- project /
1 Imports System.Data.SqlClient
2 Public Class Form_Phan_Quyen
3 Private lenh As String
4 Private Sub ButtonThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonThoat.Click
5 Me.Close()
6 End Sub
7
8 Private Sub Form_Phan_Quyen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9 LoadQuyen()
10 End Sub
11
12 Private Sub LoadQuyen()
13 If Form_Login.LoginLoaiND = "Quan_Ly" OrElse Form_Login.LoginLoaiND = "Admin" Then
14 grb_PhanQuyen.Enabled = True
15 Else
16 grb_PhanQuyen.Enabled = False
17 btn_DongY.Enabled = False
18 End If
19 txt_IdNhanVien.Text = Form_Main.cbo_Username.Text
20
21 Dim query As New SqlCommand("select * from PhanQuyen where IdNhanVien ='" + Form_Main.cbo_Username.Text + "'", connect)
22 Dim DR As SqlDataReader
23 connect.Open()
24 DR = query.ExecuteReader
25 While DR.Read() = True
26 If CInt(DR.GetValue(1).ToString) = 1 Then
27 ckb_xe.Checked = True
28 End If
29 If CInt(DR.GetValue(2).ToString) = 1 Then
30 ckb_tuyen.Checked = True
31 End If
32 If CInt(DR.GetValue(3).ToString) = 1 Then
33 ckb_ThoiDiem.Checked = True
34 End If
35 If CInt(DR.GetValue(4).ToString) = 1 Then
36 ckb_chuyenXe.Checked = True
37 End If
38 If CInt(DR.GetValue(5).ToString) = 1 Then
39 ckb_banve.Checked = True
40 End If
41 End While
42 connect.Close()
43 End Sub
44
45 Private Sub btn_DongY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_DongY.Click
46 Dim Xe, TX, TD, CX, BV As String
47 Xe = CStr(0)
48 TX = CStr(0)
49 TD = CStr(0)
50 CX = CStr(0)
51 BV = CStr(0)
52 If ckb_xe.Checked = True Then
53 Xe = CStr(1)
54 End If
55 If ckb_tuyen.Checked = True Then
56 TX = CStr(1)
57 End If
58 If ckb_ThoiDiem.Checked = True Then
59 TD = CStr(1)
60 End If
61 If ckb_chuyenXe.Checked = True Then
62 CX = CStr(1)
63 End If
64 If ckb_banve.Checked = True Then
65 BV = CStr(1)
66 End If
67 Dim dlg As DialogResult = MessageBox.Show("Bạn có chắc chắn muốn cấp quyền cho nhân viên " & txt_IdNhanVien.Text & "!", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
68 If dlg = Windows.Forms.DialogResult.Yes Then
69 'Duyet trong bang phan quyen xem co nhan vien ten do chua, neu chua thi insert vao
70 Dim dr As SqlDataReader
71 Dim lenh1 = "Select IdNhanVien from PhanQuyen"
72 Dim bo_lenh As New SqlCommand(lenh1, connect)
73 Dim flag As Integer = 0
74 connect.Open()
75 dr = bo_lenh.ExecuteReader
76 While dr.Read = True
77 If dr.GetValue(0).ToString = txt_IdNhanVien.Text Then
78 flag = 1
79 Exit While
80 End If
81 End While
82 connect.Close()
83 If flag = 0 Then
84 lenh = "Insert into PhanQuyen values('" + txt_IdNhanVien.Text + "', " + Xe + ", " + TX + ", " + TD + ", " + CX + ", " + BV + ")"
85 Else
86 lenh = "Update PhanQuyen set Xe = '" + Xe + "', TuyenXe = '" + TX + "', ThoiDiem = '" + TD + "', ChuyenXe = '" + CX + "', BanVe = '" + BV + "' where IdNhanVien = '" + txt_IdNhanVien.Text + "'"
87 End If
88 Dim com As New SqlCommand(lenh, connect)
89 'MessageBox.Show(lenh)
90 Try
91 connect.Open()
92 com.ExecuteNonQuery()
93 connect.Close()
94 MessageBox.Show("Nhân viên " & txt_IdNhanVien.Text & " đã được cấp quyền!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
95 Catch ex As Exception
96 MessageBox.Show("Cấp quyền không thành công!", "Thông báo!", MessageBoxButtons.OK, MessageBoxIcon.Hand)
97 End Try
98 Else
99 MessageBox.Show("Đã hủy thao tác cấp quyền, bạn có thể câp quyền lại hoặc thoát ra!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
100 End If
101 connect.Close()
102 UpdateQuyen()
103 End Sub
104
105 Public Sub UpdateQuyen()
106 Dim query As New SqlCommand("select * from PhanQuyen where IdNhanVien ='" + Form_Login.LoginTenND + "'", connect)
107 Dim DR As SqlDataReader
108 connect.Open()
109 DR = query.ExecuteReader
110 While DR.Read() = True
111 If CInt(DR.GetValue(1).ToString) = 0 Then
112 Form_Main.TabItem_2.Visible = False
113 End If
114 If CInt(DR.GetValue(2).ToString) = 0 Then
115 Form_Main.TabItem_3.Visible = False
116 End If
117 If CInt(DR.GetValue(3).ToString) = 0 Then
118 Form_Main.TabItem_4.Visible = False
119 End If
120 If CInt(DR.GetValue(4).ToString) = 0 Then
121 Form_Main.TabItem_5.Visible = False
122 End If
123 If CInt(DR.GetValue(5).ToString) = 0 Then
124 Form_Main.TabItem_6.Visible = False
125 End If
126 End While
127 connect.Close()
128 End Sub
129 End Class
2 Public Class Form_Phan_Quyen
3 Private lenh As String
4 Private Sub ButtonThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonThoat.Click
5 Me.Close()
6 End Sub
7
8 Private Sub Form_Phan_Quyen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9 LoadQuyen()
10 End Sub
11
12 Private Sub LoadQuyen()
13 If Form_Login.LoginLoaiND = "Quan_Ly" OrElse Form_Login.LoginLoaiND = "Admin" Then
14 grb_PhanQuyen.Enabled = True
15 Else
16 grb_PhanQuyen.Enabled = False
17 btn_DongY.Enabled = False
18 End If
19 txt_IdNhanVien.Text = Form_Main.cbo_Username.Text
20
21 Dim query As New SqlCommand("select * from PhanQuyen where IdNhanVien ='" + Form_Main.cbo_Username.Text + "'", connect)
22 Dim DR As SqlDataReader
23 connect.Open()
24 DR = query.ExecuteReader
25 While DR.Read() = True
26 If CInt(DR.GetValue(1).ToString) = 1 Then
27 ckb_xe.Checked = True
28 End If
29 If CInt(DR.GetValue(2).ToString) = 1 Then
30 ckb_tuyen.Checked = True
31 End If
32 If CInt(DR.GetValue(3).ToString) = 1 Then
33 ckb_ThoiDiem.Checked = True
34 End If
35 If CInt(DR.GetValue(4).ToString) = 1 Then
36 ckb_chuyenXe.Checked = True
37 End If
38 If CInt(DR.GetValue(5).ToString) = 1 Then
39 ckb_banve.Checked = True
40 End If
41 End While
42 connect.Close()
43 End Sub
44
45 Private Sub btn_DongY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_DongY.Click
46 Dim Xe, TX, TD, CX, BV As String
47 Xe = CStr(0)
48 TX = CStr(0)
49 TD = CStr(0)
50 CX = CStr(0)
51 BV = CStr(0)
52 If ckb_xe.Checked = True Then
53 Xe = CStr(1)
54 End If
55 If ckb_tuyen.Checked = True Then
56 TX = CStr(1)
57 End If
58 If ckb_ThoiDiem.Checked = True Then
59 TD = CStr(1)
60 End If
61 If ckb_chuyenXe.Checked = True Then
62 CX = CStr(1)
63 End If
64 If ckb_banve.Checked = True Then
65 BV = CStr(1)
66 End If
67 Dim dlg As DialogResult = MessageBox.Show("Bạn có chắc chắn muốn cấp quyền cho nhân viên " & txt_IdNhanVien.Text & "!", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
68 If dlg = Windows.Forms.DialogResult.Yes Then
69 'Duyet trong bang phan quyen xem co nhan vien ten do chua, neu chua thi insert vao
70 Dim dr As SqlDataReader
71 Dim lenh1 = "Select IdNhanVien from PhanQuyen"
72 Dim bo_lenh As New SqlCommand(lenh1, connect)
73 Dim flag As Integer = 0
74 connect.Open()
75 dr = bo_lenh.ExecuteReader
76 While dr.Read = True
77 If dr.GetValue(0).ToString = txt_IdNhanVien.Text Then
78 flag = 1
79 Exit While
80 End If
81 End While
82 connect.Close()
83 If flag = 0 Then
84 lenh = "Insert into PhanQuyen values('" + txt_IdNhanVien.Text + "', " + Xe + ", " + TX + ", " + TD + ", " + CX + ", " + BV + ")"
85 Else
86 lenh = "Update PhanQuyen set Xe = '" + Xe + "', TuyenXe = '" + TX + "', ThoiDiem = '" + TD + "', ChuyenXe = '" + CX + "', BanVe = '" + BV + "' where IdNhanVien = '" + txt_IdNhanVien.Text + "'"
87 End If
88 Dim com As New SqlCommand(lenh, connect)
89 'MessageBox.Show(lenh)
90 Try
91 connect.Open()
92 com.ExecuteNonQuery()
93 connect.Close()
94 MessageBox.Show("Nhân viên " & txt_IdNhanVien.Text & " đã được cấp quyền!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
95 Catch ex As Exception
96 MessageBox.Show("Cấp quyền không thành công!", "Thông báo!", MessageBoxButtons.OK, MessageBoxIcon.Hand)
97 End Try
98 Else
99 MessageBox.Show("Đã hủy thao tác cấp quyền, bạn có thể câp quyền lại hoặc thoát ra!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
100 End If
101 connect.Close()
102 UpdateQuyen()
103 End Sub
104
105 Public Sub UpdateQuyen()
106 Dim query As New SqlCommand("select * from PhanQuyen where IdNhanVien ='" + Form_Login.LoginTenND + "'", connect)
107 Dim DR As SqlDataReader
108 connect.Open()
109 DR = query.ExecuteReader
110 While DR.Read() = True
111 If CInt(DR.GetValue(1).ToString) = 0 Then
112 Form_Main.TabItem_2.Visible = False
113 End If
114 If CInt(DR.GetValue(2).ToString) = 0 Then
115 Form_Main.TabItem_3.Visible = False
116 End If
117 If CInt(DR.GetValue(3).ToString) = 0 Then
118 Form_Main.TabItem_4.Visible = False
119 End If
120 If CInt(DR.GetValue(4).ToString) = 0 Then
121 Form_Main.TabItem_5.Visible = False
122 End If
123 If CInt(DR.GetValue(5).ToString) = 0 Then
124 Form_Main.TabItem_6.Visible = False
125 End If
126 End While
127 connect.Close()
128 End Sub
129 End Class