机房收费系统-登录窗体

                           登录窗体

在机房收费系统中一开始要先敲登录窗体，首先理清楚逻辑关系

逻辑关系

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窗体上，打开菜单窗体时同时打开该窗体，设置它的位置不让它遮挡住菜单窗体
其余知识点我会随后补上...