Chương 5 Thiết kế giao diện người máy Các mã lệnh được sử dụng trong chương trình Private Sub Form_Load() Dim db As | ĐỒ Á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 Các mã lệnh được sử dụng trong chương trình Private Sub Form_Load Dim db As Dim rs As Set db CurrentDb Set rs user If Then main End If End Sub Private Sub login_Click Dim db As Dim rs As 1 Set db CurrentDb Set rs user Do While Not If rs username ten And rs password ma Then kt 1 Exit Do End If Loop If kt 1 Then main Else If 3 Then 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 RGB r g b End .
