登录窗体
在机房收费系统中一开始要先敲登录窗体,首先理清楚逻辑关系
逻辑关系
1.从模块中打开登录窗体
2.登录窗体上的用户名和密码需要判断是否为空,是否正确,根据数据表中用户名的数据类型来设置限制条件
3.默认键的设置,输完密码后直接Enter键进入
4.登录用户的信息要添加到到Onwork表中和worklog 中
代码知识
- End sub是一个过程的结束代码(每个SUB中必须对应一个END SUB)
- Exit sub是在过程内代码执行时,可选择性的退出过程执行(即不执行Exit sub之后的代码,相当于中途退出)这不是必须的
'把信息写入Onwork表
txtsql1 = "select * from onwork_info where userID='" & txtuserName.Text & "'"
Set mrc1 = ExecuteSQL(txtsql, msgtext)
mrc1.AddNew
mrc1!userID = Trim(txtuserName.Text)
mrc1!Level = Trim(mrc!Level)
mrc1!logindate = Date
mrc1!logintime = Time
mrc1!computer = Trim(Environ("computername"))
mrc1.Update
mrc1.Close
1.将控件放在主窗体上:
'改变某个子窗体的父窗体
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long,ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long</SPAN>
在打开窗体之前指定子窗体和父窗体:setpart frmhowtomenu.hwind, Picture1.hWnd
frmhowtomenu.Show
2.也可以将控件放在Form窗体上,打开菜单窗体时同时打开该窗体,设置它的位置不让它遮挡住菜单窗体
其余知识点我会随后补上...
其余知识点我会随后补上...