和控件都可在许多应用中重复使用。本节介绍管理系统各组成部分的实现方法,对于窗体,给出执行功能、设计界面、主要对象的属性和方法。
4.2、系统模块的具体实现
4.2.1、Frmdl窗体:
Frmdl窗体用于接受用户的用户名/密码输入,判断是否合法。如果是合法用户,释放该窗体并调出Frmver窗体;否则信息提示无此用户。Frmdl窗体的设计界面如图所示,窗体中的主要对象及其属性如表所示:
对象
属性
属性取值
Text1
Caption
"用户名"
Text2
passwordchar
"*"
Command1
Caption
"确定"
Command2
Caption
"取消"
在该窗体上设计如下事件过程:
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'激活主窗口系统菜单
Else
mainfrm.xitong.Enabled=False
EndIf
frmver.Show'显示版本窗口
Else
MsgBox"您输入的密码不正确,请重新输入!",,"警告"
Text2.Text=""
Text2.SetFocus
EndIf
Else
MsgBox"系统中无此用户",,"警告"
Text1.Text=""
Text1.SetFocus
EndIf
EndIf
EndSub
PrivateSubTimer1_Timer()
EndSub
PrivateSubForm_Load()
EndSub
4.2.2、mainfrm窗体:
mainfrm窗体是一个多文档窗体,窗体中包含的主要对象及其属性,在该窗体有一个菜单,该菜单的结构如下:
PrivateSubadduser_Click()'增加用户
frmzj.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"添加用户"
EndSub
PrivateSuballh_Click()
frmhlist.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"户口列表"
EndSub
PrivateSuballp_Click()
frmplist.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"人口列表"
EndSub
PrivateSubchaxun_Click()
GetStatus"查询修改信息"
EndSub
PrivateSubchuhao_Click()
frmchuhao.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"查询户号"
EndSub
PrivateSubchuhome_Click()
frmqch.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"迁出户口"
EndSub
PrivateSubchupeople_Click()
frmqcr.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"迁出人口"
EndSub
PrivateSubCommand1_Click()
frmhome.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
frmhome.Frame3.Enabled=False
frmhome.Label12.Enabled=False
frmhome.Label13.Enabled=False
frmhome.Label14.Enabled=False
frmhome.Text4.Enabled=False
frmhome.Text4.Text=""
GetStatus"添加、迁入户口"
EndSub
PrivateSubCommand2_Click()
frmxz1.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"添加、迁入人口"
EndSub
PrivateSubCommand3_Click()
frmczhuzhi.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"查询住址"
EndSub
PrivateSubCommand4_Click()
frmxg.Show
EndSub
PrivateSubCommand5_Click()
exit1.Show
Beep
mainfrm.Enabled=False
GetStatus"·退出系统"
EndSub
PrivateSubczhuzhi_Click()
frmczhuzhi.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"查询住址"
EndSub
PrivateSubdel_Click()'删除用户
frmsc.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"删除用户"
EndSub
PrivateSubexit_Click()'退出
exit1.Show
Beep
mainfrm.Enabled=False
GetStatus"·退出系统"
EndSub
PrivateSubguanli_Click()
GetStatus"对户籍进行管理"
EndSub
PrivateSubhbaobiao_Click()
DataReport1.Show
GetStatus"户口报表"
EndSub
PrivateSubhxinxi_Click()
frmcxh.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"查询修改户信息"
EndSub
PrivateSubmfy_Click()'修改用户
frmxg.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"修改密码"
EndSub
PrivateSub
上一篇:
vb彩票销售管理系统(论文和程序)
下一篇:
致享和威驰哪个好点?冲着安全和空间 推荐致享