VB代码程序和界面.docx
《VB代码程序和界面.docx》由会员分享，可在线阅读，更多相关《VB代码程序和界面.docx（10页珍藏版）》请在冰豆网上搜索。
VB代码程序和界面
图4-3系统主界面
4.2建立会员信息查询界面：
（1）加载窗体和控件，并设置起属性如下图4-5所示：
图4-5会员信息查询界面
属性设置：
将form窗体的caption的值设为会员删修界面,其WINDOWSSTATE属性设为“2-Maximized”；；用菜单编辑器编辑两个一级菜单分别是“删除”和“修改”；在界面上添加一个datagride控件，在进行字段检索；添加一个ADODC控件；添加一个framle控件设置其caption属性为“要修改的信息”；在framle控件里放置8个标签和8个文本框，8个标签的caption属性分别设置为“卡号，密码，姓名，性别，证件号，类型，剩余，状态”；添加一个command1控件，设置其caption属性值为”提交“。
添加一个command2控件，设置其caption属性值为”返回系统主界面“。
（2）编写代码如下：
PrivateSubhyxxcx_Click（）
系统主界面.Hide
c=InputBox（"请输入卡号！
"）
DimdbAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimjjAsNewADODB.Recordset
DimsqlAsString
db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=I:
\机放上机管理信息系统\会员表.mdb;PersistSecurityInfo=False"
db.Open
sql="select*from会员表"
rs.Opensql,db,adOpenStatic,adLockReadOnly
Ifc=""Then&假设变量c的值为空则执行下列语句
系统主界面.Show
Else
d="select*from会员表where卡号='"&c&"'"&变量的值不为空则执行下列语句
jj.Opend,db,adOpenStatic,adLockReadOnly
会员删修界面.Text1.Text=jj.Fields
（1）.Value
会员删修界面.Text2.Text=jj.Fields
（2）.Value
会员删修界面.Text3.Text=jj.Fields（3）.Value
会员删修界面.Text4.Text=jj.Fields（4）.Value
会员删修界面.Text5.Text=jj.Fields（5）.Value
会员删修界面.Text6.Text=jj.Fields（6）.Value
会员删修界面.Text7.Text=jj.Fields（7）.Value
会员删修界面.Text8.Text=jj.Fields（8）.Value&将查询所得记录的字段值显示在会员删修界面对应的文本框中
会员删修界面.Show
EndIf
EndSub
PrivateSubxg_Click（）
MsgBox"你是否确定要进行修改？
"
Frame1.Visible=True
Command1.Visible=True
MsgBox"请杂文本框中填写你要修改的项后单击提交"
EndSub
PrivateSub提交_Click（）
DimdbAsNewADODB.Connection&与数据库建立连接
DimrsAsNewADODB.Recordset&声明可用记录集
DimsqlAsString
DimzAsString
db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=I:
\机放上机管理信息系统\会员表.mdb;PersistSecurityInfo=False"&连接数据库的路径
db.Open&打开库
sql="select*from会员表"&查询会员表里面的所有记录
rs.Opensql,db,adOpenStatic,adLockReadOnly&打开记录
rs.Close
z=InputBox（"请在确认一下卡号"）&在修该信息填写好以后在次输入卡号进行确认
a="update会员表set卡号='"&Text1.Text&"',密码='"&Text2.Text&"',姓名='"&Text3.Text&"',性别='"&Text4.Text&"',证件号='"&Text5.Text&"',类型='"&Text6.Text&"',剩余='"&Text7.Text&"',状态='"&Text8.Text&"'where卡号='"&z&"'"&修改卡号等于InputBox里面的值的记录，其对应字段的值在文本框里面取
rs.Opena,db,adOpenStatic,adLockReadOnly&打开记录集与数据库的连接
MsgBox"你已经提交成功！
"
Adodc1.Refresh&Adodc控件更新
1.Refresh&DataGrid控件更新
DataGrid1.Visible=True&DataGrid设置为可见
Frame1.Visible=False&Frame设置为不可见
EndSub
PrivateSub删除_Click（）
Dimj,xAsString
x=InputBox（"请在确认一下卡号"）
j=MsgBox（"你确定要删除这条记录吗？
"）
DimdbAsNewADODB.Connection&与数据库建立连接
DimrsAsNewADODB.Recordset&声明可用记录集
DimsqlAsString
db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=I:
\机放上机管理信息系统\会员表.mdb;PersistSecurityInfo=False"&连接数据库的路径
db.Open&打开库
sql="delete*from会员表where卡号='"&x&"'"删除卡号等于InputBox值的记录
rs.Opensql,db,adOpenStatic,adLockReadOnly&打开记录集
MsgBox"你已经成功删除记录"
Adodc1.Refresh&Adodc控件更新
DataGrid1.Refresh&DataGrid控件更新
DataGrid1.Visible=True&DataGrid设置为显示
EndSub
PrivateSub返回系统主界面_Click（）
会员删修界面.Hide
系统主界面.Show
EndSub
会员信息查询的实现过程，就是当用户在系统主菜单上，用菜单会员信息查询的时候，就会弹出一个inputbox叫用户输入要查询相关会员的卡号。
这时系统就会根据卡号从数据库中，查询出相关信息。
这些信息就会被显示在会员删修界面上的文本框里。
当用户想对查询出来的信息进行修改时，可以单击菜单修改，然后根据提示进行操作。
如果用户还想对某个会员的信息进行删除的话，可以用菜单删除，只须要输入会员的卡号即可。
4.3建立管理员信息查询界面：
（1）加载窗体和控件，并设置起属性如下图4-6所示：
图4-6管理员信息查询界面
属性设置：
将form窗体的caption的值设为管理员删修界面,其WINDOWSSTATE属性设为“2-Maximized”；；用菜单编辑器编辑两个一级菜单分别是“删除”和“修改”；在界面上添加一个datagride控件，在进行字段检索；添加一个ADODC控件；添加一个framle控件设置其caption属性为“要修改的信息”；在framle控件里放置8个标签和8个文本框，8个标签的caption属性分别设置为“卡号，密码，姓名，性别，年龄，电话号码，备注，编号”；添加一个command控件，设置其caption属性值为”提交“。
添加一个command2控件，设置其caption属性值为”返回系统主界面“。
（2）编写代码如下：
PrivateSubglyxxcx_Click（）
系统主界面.Hide
z=InputBox（"请输入管理员使用的用户名"）
管理员删修界面.Text1.Text=""
管理员删修界面.Text2.Text=""
管理员删修界面.Text3.Text=""
管理员删修界面.Text4.Text=""
管理员删修界面.Text5.Text=""
管理员删修界面.Text6.Text=""
管理员删修界面.Text7.Text=""
管理员删修界面.Text8.Text=""&将管理员删修界面的8个文本框进行清空
DimdbAsNewADODB.Connection&与数据库建立连接
DimrsAsNewADODB.Recordset&建立可用记录集
DimsqlAsString
DimxAsString
DimkkAsNewADODB.Recordset&建立可用记录集
db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=I:
\机放上机管理信息系统\会员表.mdb;PersistSecurityInfo=False"&建立连接数据库的路径
db.Open&打开数据库
sql="select*from管理员表"&查询管理员表里面的所有记录
rs.Opensql,db,adOpenStatic,adLockReadOnly&打开所有查询所得的记录返回到记录集rs中
Whilers.EOF=True&给定循环语句里的条件
rs.MoveNext
Wend
Ifz=""Then
系统主界面.Show
Else
x="select*from管理员表where用户名='"&z&"'"&查询关于用户名为变量z的记录
kk.Openx,db,adOpenStatic,adLockReadOnly
管理员删修界面.Text1.Text=kk.Fields
（1）.Value
管理员删修界面.Text2.Text=kk.Fields
（2）.Value
管理员删修界面.Text3.Text=kk.Fields（3）.Value
管理员删修界面.Text4.Text=kk.Fields（4）.Value
管理员删修界面.Text5.Text=kk.Fields（5）.Value
管理员删修界面.Text6.Text=kk.Fields（6）.Value
管理员删修界面.Text7.Text=kk.Fields（7）.Value
管理员删修界面.Text8.Text=kk.Fields（0）.Value&将查询所获得的记录的字段值输入到管理员删修界面相应的文本框里
管理员删修界面.Show
EndIf
EndSub
PrivateSubForm_Load（）
Command1.Visible=False
EndSub
PrivateSub提交_Click（）
DimdbAsNewADODB.Connection&与数据库建立连接
DimrsAsNewADODB.Recordset&建立返回的可用记录集
DimsqlAsString
DimaAsString
DimzAsString
db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=I:
\机放上机管理信息系统\会员表.mdb;PersistSecurityInfo=False"&建立与数据库建立连接的路径
db.Open&打开库
sql="select*from管理员表"&查询管理员表里面的所有记录
rs.Opensql,db,adOpenStatic,adLockReadOnly
rs.Close
z=InputBox（"请在确认一下用户名"）
a="update管理员表set用户名='"&Text1.Text&"',密码='"&Text2.Text&"',姓名='"&Text3.Text&"',性别='"&Text4.Text&"',年龄='"&Text5.Text&"',电话号码='"&Text6.Text&"',备注='"&Text7.Text&"'where用户名='"&z&"'"&修改用户名为变量z的记录，其修改的值在管理员删修界面里面的文本框里取
rs.Opena,db,adOpenStatic,adLockReadOnly
MsgBox"你已经提交成功！
"
Adodc1.Refresh&Adodc控件更新
DataGrid1.Refresh&DataGrid控件更新
DataGrid1.Visible=True&DataGrid设置为可见
Frame1.Visible=False&Frame设置为不可用
EndSub
PrivateSub删除_Click（）
Dimj,xAsString
x=InputBox（"请在确认一下姓名"）
j=MsgBox（"你确定要删除这条记录吗？
"）
DimdbAsNewADODB.Connection&与数据库建立连接
DimrsAsNewADODB.Recordset&建立可用的记录集
DimsqlAsString
db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=I:
\机放上机管理信息系统\会员表.mdb;PersistSecurityInfo=False"&建立与数据库进行连接的路径
db.Open&打开库
sql="delete*from管理员表where用户名='"&x&"'"&删除用户名为变量z的记录
rs.Opensql,db,adOpenStatic,adLockReadOnly
MsgBox"你已经成功删除记录"
Adodc1.Refresh&Adodc控件更新
DataGrid1.Refresh&DataGrid控件更新
DataGrid1.Visible=True&DataGrid设置为可见
EndSub
PrivateSub返回系统主界面_Click（）
系统主界面.Show
EndSub
管理员信息查询的实现过程，与会员信息查询的实现过程大同小异。
当用户在想对管理员的信息进行查询的时候，就可以通过系统主界面上的管理员信息查询菜单来实现。
当用户单击管理员信息查询菜单的时候，就会出现一个inputbox，这时候用户只需要输入用户就可对管理员的信息进行查询。
系统会将查询到的信息，显示到管理员删修界面的文本框里面。
如果用户想对查询到信息进行修改，则可以通过单击修改菜单然后根据提示进行修改。
如用户想对某个管理员的信息进行删除的话，则可以通过删除菜单来实现。
当用户进行一系列的操作之后。
可以单击返回系统主界面安钮返回系统主界面。
4.4建立硬件维护界面：
（1）加载窗体和控件，并设置起属性如下图4-7所示：
图4-7硬件维护界面
属性设置：
将form的caption属性设置为“维护界面“，其WINDOWSSTATE属性设为“2-Maximized”；在添加6个标签控件和6个文本框，6个标签控件的caption属性分别设置为“计算机编号，cpu型号，显卡型号，内存条型号，硬盘型号，备注“；添加一个command控件设置其caption属性为”关闭“。
（2）编写代码如下：
PrivateSubwh_Click（）
DimaAsString
a=InputBox（"请输入你要进行维护的计算机的编号，以便于了解其所安装的硬件情况。
"）
DimdbAsNewADODB.Connection&与数据库建立连接
DimrsAsNewADODB.Recordset&建立返回可用记录集
DimsqlAsString
DimkkAsNewADODB.Recordset&建立返回可用记录集
DimbAsString
db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=I:
\机放上机管理信息系统\会员表.mdb;PersistSecurityInfo=False"&建立与数据库进行连接的路径
db.Open&打开库
Ifa=""Then
系统主界面.Show
Else
sql="select*from硬件表"&查询硬件表里面的所有记录
rs.Opensql,db,adOpenStatic,adLockReadOnly
b="select*from硬件表where计算机编号='"&a&"'"&查询计算机编号为变量z的记录
kk.Openb,db,adOpenStatic,adLockReadOnly
If维护界面.Text2.Text="text2"And维护界面.Text3.Text="text3"And维护界面.Text4.Text="text4"And维护界面.Text5.Text="text5"And维护界面.Text6.Text="text6"Then
MsgBox"没有此条记录！
"
Else
维护界面.Text1.Text=kk.Fields（0）.Value
维护界面.Text2.Text=kk.Fields
（1）.Value
维护界面.Text3.Text=kk.Fields
（2）.Value
维护界面.Text4.Text=kk.Fields（3）.Value
维护界面.Text5.Text=kk.Fields（4）.Value
维护界面.Text6.Text=kk.Fields（5）.Value&将查询的值显示在维护界面的文本框里面
维护界面.Show
EndIf
EndIf
EndSub
PrivateSubCommand1_Click（）
维护界面.Hide
系统主界面.Show
EndSub
维护界面主要，要实现的就是查询各个计算机，.配备的硬件设备的情况。
其实现过程就是用户在用鼠标单击系统主界面的维护的时候，就会提示用户输入计算机的编号。
然后系统就会根据计算机的编号查询信息。
将查询到的信息显示在维护界面的文本框内。
当用户浏览了信息以后，可以单击关闭然后返回到系统主界面。
升级会员 