VB+ACCESS小区物业管理系统 第7页
4.3系统窗体设计
(因本设计涉及的窗体比较多,故我们只选取有代表性的窗体加以重点描述)
4.3.1 系统登陆界面设计 
 
如图所示,新建一个窗体,在窗体中添加二个Lable控件，二个TextBox控件,二个commandButton控件,设置其属性。然后添加程序代码。
其中登录按钮的源码如下:
Private Sub cmdLogin_Click()
    '首先检查用户是否输入了用户名和密码
    If txtUser.Text = "" Then
       MsgBox "请输入用户名！", vbOKOnly + vbInformation, "注意"
       txtUser.SetFocus
       Exit Sub
    ElseIf txtPwd.Text = "" Then
       MsgBox "请输入密码！", vbOKOnly + vbInformation, "注意"
       txtPwd.SetFocus
       Exit Sub
    End If
    Dim sqluser As String
    '构造查询该用户名和密码的sql语句
    sqluser = "select * from UserTable where Username = '" & txtUser.Text _
    & "' and Password = '" & txtPwd.Text & "'"
    rs_user.CursorLocation = adUseClient
    '打开数据游标
    rs_user.Open sqluser, conn, adOpenKeyset, adLockPessimistic
    If rs_user.EOF = True Then
       MsgBox "用户名或密码不正确！", vbOKOnly + vbInformation, "注意"
       rs_user.Close
       '清空txtUser和txtPwd文本框
       txtUser.Text = ""
       txtPwd.Text = ""
       Exit Sub
    Else
       '还需使其他菜单可用
       MDIfrmMain.mnAddUser.Enabled = True
       MDIfrmMain.mnBasicData.Enabled = True
       MDIfrmMain.mnWuYe.Enabled = True
       MDIfrmMain.mnDataTg.Enabled = True
       '提示用户登录成功并关闭游标和登录窗口
       MsgBox "登录成功！", vbOKOnly + vbInformation, "注意"
       rs_user.Close
       Unload Me
        End If
    End Sub
4.3.2基本资料模块的设计
 
同理窗体中的控件的添加比较直接,参照登录窗体的设计,并添加相关代码.其中重点分析按钮源码如下:。
添加按钮的代码：
Private Sub cmdAdd_Click()
  
   '设置除保存和取消按钮外的其他按钮不可用
   cmdAdd.Enabled = False
   cmdEdit.Enabled = False
   cmdDel.Enabled = False
   cmdSave.Enabled = True
   cmdCancel.Enabled = True
   cmdFirst.Enabled = False
   cmdPrev.Enabled = False
   cmdNext.Enabled = False
   cmdLast.Enabled = False
   cmdQuery.Enabled = False
   '需要清空所有text框，并且设置它们可写
   For i = 0 To 14
      Text1(i).Text = ""
      Text1(i).Enabled = True
   Next i
   Combo1.Enabled = True
   'add变量用于保存时判断是从添加还是修改后保存
   add = 1
   Text1(0).SetFocus
   Text1(13).Text = Date
End Sub
修改按钮的源码:
Private Sub cmdEdit_Click()
  
   '设置除保存和取消按钮外的其他按钮不可用
   cmdAdd.Enabled = False
   cmdEdit.Enabled = False
   cmdDel.Enabled = False
   cmdSave.Enabled = True
   cmdCancel.Enabled = True
   cmdFirst.Enabled = False
   cmdPrev.Enabled = False
   cmdNext.Enabled = False
   cmdLast.Enabled = False
   cmdQuery.Enabled = False
   '需要设置除主键之外的text框可写
   For i = 1 To 14
      Text1(i).Enabled = True
   Next i
   Combo1.Enabled = True
   add = 0
End Sub
删除按钮的源码如下:
Private Sub cmdDel_Click()
   '当单击删除记录时，需要弹出一个提示框，警告用户
   Dim answer As String
   answer = MsgBox("确定要删除吗？", vbYesNo, "")
   '确实删除
   If answer = vbYes Then
      rs_client.Delete  '删除当前记录
      rs_client.Update  '更新删除
      MsgBox "成功删除！", vbOKOnly + vbExclamation, ""

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页