module2.bas

针对于订房中心的酒店合同管理。管理权限有管理员和业务员等。

Attribute VB_Name = "Module2"
'******************************************
'登录窗体设置(denglu.frm)
Sub frmloginSet(ThisForm)
If GetKeyValue(HKEY_LOCAL_MACHINE, "software\Company", "CompanySN") = RegSN Then
  ThisForm.Caption = "登录--已注册"
Else
  ThisForm.Caption = "登录--未注册"
End If

ThisForm.BackColor = BackColorSet

ThisForm.TxtUserName.Caption = "帐号："
ThisForm.TxtUserName.BackStyle = 0
ThisForm.TxtPasswd.Caption = "密码："
ThisForm.TxtPasswd.BackStyle = 0
ThisForm.CmdOK.Caption = "登录"
ThisForm.cmdcancel.Caption = "退出"
ThisForm.CmdHelp.Caption = "帮助"
ThisForm.TxtPasswd.Text = ""
ThisForm.TxtPasswd.TxtPasswdChar = "*"
End Sub