ĐỒ ÁN TỐT NGHIỆP QUẢN LÍ VẬT TƯ, THIẾT BỊ, ỨNG DỤNG PHÁT TRIỂN CHO TRUNG TÂM CNTTĐHQG TPHCM_CHƯƠNG 5_2 docx

ĐỒ ÁN TỐT NGHIỆP QUẢN LÍ VẬT TƯ, THIẾT BỊ, ỨNG DỤNG PHÁT TRIỂN CHO TRUNG TÂM CNTT- ĐHQG TPHCM Chương 5 Thiết kế giao diện người máy 5.4 Các mã lệnh được sử dụng trong chương trình Private Sub Form_Load() DoCmd.Restore Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("user") If rs.EOF Then DoCmd.Close DoCmd.OpenForm "main" End If End Sub Private Sub login_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Me.dem = Me.dem + 1 Set db = CurrentDb() Set rs = db.OpenRecordset("user") rs.MoveFirst Do While Not rs.EOF If rs![username] = ten And rs![password] = ma Then kt = 1 Exit Do End If rs.MoveNext Loop If kt = 1 Then DoCmd.Close DoCmd.OpenForm "main" Else If Me.dem = 3 Then DoCmd.Quit Exit Sub End If MsgBox "ban nhap username hoac password sai", 0 + 48, "thong bao" End If End Sub Private Sub Form_Timer() Dim x As String, y As String Randomize r = Rnd(1) * 250 + 1 g = Rnd(1) * 250 + 1 b = Rnd(1) * 250 + 1 r1 = Rnd(1) * 250 + 1 g1 = Rnd(1) * 250 + 1 b1 = Rnd(1) * 250 + 1 Me.Label6.ForeColor = RGB(r, g, b) End Sub Option Compare Database Private Sub Form_Load() DoCmd.Restore End Sub Private Sub ok_Click() Dim db As DAO.Database, rec As DAO.Recordset Set db = CurrentDb() Set rec = db.OpenRecordset("admin") rec.MoveFirst If passcu = rec![pass] Then If IsNull(passmoi) And IsNull(xlpassmoi) Then MsgBox "Ban chua nhap ma so he thong moi!" & Chr(10) & "De nghi nhap day du", 0 + vbCritical, "Thong bao" Exit Sub End If If passmoi = xlpassmoi Then rec.Edit rec![pass] = passmoi rec.Update rec.Close db.Close passcu = "" passmoi = "" xlpassmoi = "" MsgBox "Ma so he thong da duoc thay doi", 0 + 64, "Thong bao" DoCmd.Close Else MsgBox "Xac lap ma so moi sai !" & Chr(10) & "De nghi nhap lai ", 0 + vbCritical, "Thong bao" passmoi = "" xlpassmoi = "" End If Else MsgBox "Ma he thong khong dung" & Chr(10) & "De nghi nhap lai", 0 + 16, "Thong bao" passcu = "" End If End Sub Option Compare Database Private Sub Command4_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("user") If Not rs.EOF Then rs.MoveFirst Do Until rs.EOF If rs![userID] = mauser And rs![username] = ten And rs![password] = ma Then If IsNull(ma1) = False And IsNull(ma2) = False Then If ma1 = ma2 Then rs.Edit rs![password] = ma1 rs.Update MsgBox "Ban da thay doi ma so thanh cong", 0 + 60, "thong bao" Me.mauser = "" Me.ten = "" Me.ma = "" Me.ma1 = "" Me.ma2 = "" GoTo Thoat Else If ma1 <> ma2 Then MsgBox "new password va retype new password cua ban khong dung", 0 + 48, "thong bao" GoTo Thoat End If End If Else MsgBox "ban khong duoc de trong new password va retype new password", 0 + 48, "thong bao" GoTo Thoat End If End If rs.MoveNext Loop MsgBox "ban nhap userID, username hoac password chua dung", 0 + 60, "Thong bao" End If Thoat: End Sub Private Sub Form_Load() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("user") If Not rs.EOF Then Me.ma.Enabled = True Me.ten.Enabled = True Else Me.ma.Enabled = False Me.ten.Enabled = False End If End Sub Private Sub Command13_Click() On Error GoTo Err_Command13_Click DoCmd.Close Exit_Command13_Click: Exit Sub Err_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub Private Sub Form_Load() DoCmd.Restore Me.khungxoa.Visible = False Me.khungthem.Visible = False End Sub Private Sub Ghi_Click() Dim db As DAO.Database Dim rec As DAO.Recordset Set db = CurrentDb() Set rec = db.OpenRecordset("user") If (mamoi <> "") And (ten <> "") And (pass <> "") Then On Error GoTo loi rec.AddNew rec![userID] = mamoi rec![username] = ten rec![password] = pass rec.Update mamoi = "" ten = "" pass = "" MsgBox "Ho so da duoc luu", 0 + 64, "Thong bao" Me.macu.Requery Me.bangma.Requery Else MsgBox "Nhap thieu du lieu", 0 + 64, "Thong bao" End If loi: rec.MoveFirst Do Until rec.EOF If rec![userID] = mamoi Then [...]... rs![userID] = macu Then rs.Delete End If rs.MoveNext Loop Me.macu = "" bangma.Requery macu.Requery End Sub Option Compare Database Dim xMshh, xsl, Xthem, Xsua Private Sub Command13_Click() Select Case luachon Case 1: Me.List12.RowSource = "select * from nhacungcap * from nhacungcap * from nhacungcap from nhacungcap where([nhacungcap]![mancc] like '*" & [txtma] & "*')" Case 2: Me.List12.RowSource = "select . ĐỒ ÁN TỐT NGHIỆP QUẢN LÍ VẬT TƯ, THIẾT BỊ, ỨNG DỤNG PHÁT TRIỂN CHO TRUNG TÂM CNTT- ĐHQG TPHCM Chương 5 Thiết kế giao diện người máy 5. 4 Các mã lệnh được sử dụng trong chương trình. As String Randomize r = Rnd(1) * 25 0 + 1 g = Rnd(1) * 25 0 + 1 b = Rnd(1) * 25 0 + 1 r1 = Rnd(1) * 25 0 + 1 g1 = Rnd(1) * 25 0 + 1 b1 = Rnd(1) * 25 0 + 1 Me.Label6.ForeColor = RGB(r,. Case luachon Case 1: Me.List 12. RowSource = "select * from nhacungcap where([nhacungcap]![mancc] like '*" & [txtma] & "*')" Case 2: Me.List 12. RowSource