,只有用户正确的输入了用户名和密码之后,我们才可以进入主程序进行一系列的操作,如果用户输入错误则会提示:系统中无此用户
登陆界面的代码如下:
OptionExplicit
PrivateSubCommcancel_Click()
End
EndSub
PrivateSubCommok_Click()
'声明变量
DimusernameAsString
DimpasswordAsString
Dimlocal_dbAsString
DimcnnAsNewADODB.Connection
DimrstAsNewADODB.Recordset
IfText1.Text=""Then
MsgBox"请输入用户名",,"警告"
Text1.SetFocus
Else
IfText2.Text=""Then
MsgBox"请输入密码",,"警告"
Text2.SetFocus
EndIf
EndIf
IfText1.Text<>""AndText2.Text<>""Then
Setcnn=NewADODB.Connection
Setrst=NewADODB.Recordset
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path&"\data\db.mdb"+";PersistSecurityInfo=False;"'连接数据库
username=Trim(Text1.Text)
password=Text2.Text
'检查用户名是否正确
local_db="select用户名from用户表"+_
"where用户表.用户名="+"'"+_
username+"'"
rst.Openlocal_db,cnn
IfNot(rst.BOFAndrst.EOF)Then
rst.Close
'检查密码是否正确
local_db="select密码from用户表"+_
"where用户表.用户名="+"'"+_
username+"'and"+_
"用户表.密码="+"'"+password+"'"
rst.Openlocal_db,cnn
IfNot(rst.BOFAndrst.EOF)Then
userid=Text1.Text
Unloadfrmdl
'判断登陆用户是否为admin
Ifusername="admin"Then
mainfrm.xitong.Enabled=True'激活主窗口系统菜单
mainfrm.bdb.Enabled=True
mainfrm.Command4.Enabled=True
Else
mainfrm.xitong.Enabled=False
mainfrm.bdb.Enabled=False
mainfrm.Command4.Enabled=False
EndIf
frmver.Show'显示版本窗口
Else
MsgBox"您输入的密码不正确,请重新输入!",,"警告"
Text2.Text=""
Text2.SetFocus
EndIf
Else
MsgBox"系统中无此用户",,"警告"
Text1.Text=""
Text1.SetFocus
EndIf
EndIf
EndSub
5.2主界面的设计
用户成功输入正确的用户名和密码之后,我们就可以进入家庭理财管理系统的主界面里了,主界面里有户籍管理,查询修改,报表统计,系统管理,数据库管理等功能
主界面最上面部分是使用菜单控件实现的,菜单是windows应用程序的重要组成部分,如果给窗体加上菜单,那么不但用户使用起来更方便,而且我们的应用程序也看上去更专业化。通常将菜单分为两种,一是下拉式菜单,另一中是弹出式菜单,菜单不控件不在工具箱中出现,而需要通过"工具"菜单项打开菜单编辑器完成菜单设计工作,其基本步骤如下:
(1)创建一个窗体,利用菜单编辑器设计各菜单项
(2)利用代码编辑器窗口编写每个菜单项的CLICK事件过程
我们这里主界面菜单属于弹出式菜单,创建方法是:
(1)首先利用菜单编辑器建立菜单
(2)利用窗体的popupMenu方法显示弹出式菜单
实现主界面的部分代码如下:
PrivateSubadduser_Click()'增加用户
frmzj.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"添加用户"
EndSub
PrivateSuballh_Click()
frmhlist.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"户口列表"
EndSub
PrivateSuballp_Click()
frmplist.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"人口列表"
EndSub
PrivateSubbackupdb_Click()
frmbackup.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"备份数据库"
EndSub
PrivateSubbdb_Click()
GetStatus"数据库管理"
EndSub
PrivateSubcard_Click()
frmprint.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"打印户口卡"
EndSub
PrivateSubchaxun_Click()
GetStatus"查询修改信息"
EndSub
PrivateSubchuhao_Click()
frmchuhao.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"查询户号"
EndSub
PrivateSubchuhome_Click()
frmqch.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"迁出户口"
EndSub
PrivateSubchupeople_Click()
frmqcr.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"迁出人口"
EndSub
PrivateSubCommand1_Click()
frmhome.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
frmhome.Frame3.Enabled=False
frmhome.Label12.Enabled=False
frmhome.Label13.Enabled=False
frmhome.Label14.Enabled=False
frmhome.Text4.Enabled=False
frmhome.Command4.Enabled=False
frmhome.Text4.Text=""
GetStatus"添加、迁入户口"
EndSub
PrivateSubCommand2_Click()
frmxz1.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"添加、迁入人口"
EndSub
PrivateSubCommand3_Click()
frmczhuzhi.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"查询住址"
EndSub
PrivateSubCommand4_Click()
frmbackup.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
上一篇:
VB社会福利保障系统(论文和程序)
下一篇:
电咖汽车入选2018独角兽企业榜百强 发布“天际”品牌将推高估值