第一次机房收费系统,最先进行的是登录窗体的设计和编码。万事开头难,只要勇敢的踏出第一步,就是自己最大的胜利!
下面,咱们一起来看看这个登录窗体:
界面:
登录窗体很简单,界面上有三个label、两个text、两个command控件,还有一个picture控件。窗体的设计:控件要大小美观、位置适当。一个美的界面可以给用户带来一个好的心情!
思路:
窗体设计完成,我们要进行代码的编写了,首先要有一个总体的思路。思想才是灵魂。下面是我在进行登录窗体的思路:
![](https://i-blog.csdnimg.cn/blog_migrate/8c650d28ff52c712e8de19e4455a07ff.png)
在这个登录窗体中,语句一般不是很难,我主要说一些值得注意的细节:
1.登录窗体的移动问题(移动无标题框的窗体):
'声明,引用函数 ReleaseCapture Lib "user32"()为 长整型
Private Declare Function Release CaptureLib"user32"()AsLong
'声明 引用 函数 SendMessage Lib "user32"Alias "SendMessageA"(传值 句柄 为 Long, 传值 wMsg 为 Long, 传值 wParam 为 Long, lParam 为 Any)为 长整型
Private Declare Function SendMessageLib"user32"Alias"SendMessageA"(ByVal hwnd AsLong,ByVal wMsgAsLong,ByVal wParamAsLong, lParam AsAny)AsLong
'声明 定义常量
Private Const WM_SYSCOMMAND=&H112
'声明 定义常量
PrivateConst SC_MOVE =&HF010&
'声明 定义常量
Private Const WM_NCLBUTTONDOWN =&HA1
'声明 定义常量
Private Const HTCAPTION =2
'鼠标按下事件,拖拽窗体事件触发
Private Sub Form_MouseDown(ButtonAsInteger,ShiftAsInteger, X AsSingle, Y AsSingle)
ReleaseCapture
Send Message hwnd, WM_NCLBUTTONDOWN, HTCAPTION,ByVal0&
EndSub '结束过程
2、设置权限
'调用数据库
txtsql = "select * from user_Info where userID = '" & Trim(TxtUserName.Text) & "'"
Set mrc = ExecuteSQL(txtsql, msgtext) '执行数据库
Select Case Trim(mrc.Fields(2))
Case Is = "管理员"'如果是管理员,设置权限
frmMain.generaluserMenu.Enabled = True
frmMain.operrateMenu.Enabled = True
frmMain.administratorMenu.Enabled = True
Case Is = "操作员" '如果是操作员,设置权限
frmMain.generaluserMenu.Enabled = True
frmMain.operrateMenu.Enabled = True
frmMain.administratorMenu.Enabled = False
Case Is= "一般用户"'如果是一般用户,设置权限
frmMain.generaluserMenu.Enabled = True
frmMain.operrateMenu.Enabled = False
frmMain.administratorMenu.Enabled = False
End Select
3、设置卡号限制:
1)、卡号为数字
2)、文本框不允许输入特殊字符
3)、限制文本框长度
4)、密码设为*