VB代码程序和界面Word文档格式.docx
《VB代码程序和界面Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB代码程序和界面Word文档格式.docx(10页珍藏版)》请在冰豆网上搜索。
![VB代码程序和界面Word文档格式.docx](https://file1.bdocx.com/fileroot1/2022-12/16/d1ddf5fc-eda4-43d4-b187-5537c73a3017/d1ddf5fc-eda4-43d4-b187-5537c73a30171.gif)
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
请杂文本框中填写你要修改的项后单击提交"
PrivateSub提交_Click()
DimdbAsNewADODB.Connection&
与数据库建立连接
DimrsAsNewADODB.Recordset&
声明可用记录集
DimzAsString
连接数据库的路径
db.Open&
打开库
查询会员表里面的所有记录
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&
打开记录集与数据库的连接
你已经提交成功!
Adodc1.Refresh&
Adodc控件更新
1.Refresh&
DataGrid控件更新
DataGrid1.Visible=True&
DataGrid设置为可见
Frame1.Visible=False&
Frame设置为不可见
PrivateSub删除_Click()
Dimj,xAsString
x=InputBox("
j=MsgBox("
你确定要删除这条记录吗?
DimdbAsNewADODB.Connection&
delete*from会员表where卡号='
x&
删除卡号等于InputBox值的记录
打开记录集
你已经成功删除记录"
DataGrid1.Refresh&
DataGrid设置为显示
PrivateSub返回系统主界面_Click()
会员删修界面.Hide
会员信息查询的实现过程,就是当用户在系统主菜单上,用菜单会员信息查询的时候,就会弹出一个inputbox叫用户输入要查询相关会员的卡号。
这时系统就会根据卡号从数据库中,查询出相关信息。
这些信息就会被显示在会员删修界面上的文本框里。
当用户想对查询出来的信息进行修改时,可以单击菜单修改,然后根据提示进行操作。
如果用户还想对某个会员的信息进行删除的话,可以用菜单删除,只须要输入会员的卡号即可。
4.3建立管理员信息查询界面:
(1)加载窗体和控件,并设置起属性如下图4-6所示:
图4-6管理员信息查询界面
将form窗体的caption的值设为管理员删修界面,其WINDOWSSTATE属性设为“2-Maximized”;
在framle控件里放置8个标签和8个文本框,8个标签的caption属性分别设置为“卡号,密码,姓名,性别,年龄,电话号码,备注,编号”;
添加一个command控件,设置其caption属性值为”提交“。
PrivateSubglyxxcx_Click()
请输入管理员使用的用户名"
管理员删修界面.Text1.Text="
管理员删修界面.Text2.Text="
管理员删修界面.Text3.Text="
管理员删修界面.Text4.Text="
管理员删修界面.Text5.Text="
管理员删修界面.Text6.Text="
管理员删修界面.Text7.Text="
管理员删修界面.Text8.Text="
将管理员删修界面的8个文本框进行清空
建立可用记录集
DimxAsString
DimkkAsNewADODB.Recordset&
建立连接数据库的路径
打开数据库
select*from管理员表"
查询管理员表里面的所有记录
打开所有查询所得的记录返回到记录集rs中
Whilers.EOF=True&
给定循环语句里的条件
rs.MoveNext
Wend
Ifz="
Then
x="
select*from管理员表where用户名='
查询关于用户名为变量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
PrivateSubForm_Load()
Command1.Visible=False
建立返回的可用记录集
DimaAsString
建立与数据库建立连接的路径
请在确认一下用户名"
update管理员表set用户名='
年龄='
电话号码='
备注='
where用户名='
修改用户名为变量z的记录,其修改的值在管理员删修界面里面的文本框里取
rs.Opena,db,adOpenStatic,adLockReadOnly
DataGrid控件更新
DataGrid设置为可见
Frame设置为不可用
请在确认一下姓名"
建立可用的记录集
建立与数据库进行连接的路径
delete*from管理员表where用户名='
删除用户名为变量z的记录
你已经成功删除记录"
管理员信息查询的实现过程,与会员信息查询的实现过程大同小异。
当用户在想对管理员的信息进行查询的时候,就可以通过系统主界面上的管理员信息查询菜单来实现。
当用户单击管理员信息查询菜单的时候,就会出现一个inputbox,这时候用户只需要输入用户就可对管理员的信息进行查询。
系统会将查询到的信息,显示到管理员删修界面的文本框里面。
如果用户想对查询到信息进行修改,则可以通过单击修改菜单然后根据提示进行修改。
如用户想对某个管理员的信息进行删除的话,则可以通过删除菜单来实现。
当用户进行一系列的操作之后。
可以单击返回系统主界面安钮返回系统主界面。
4.4建立硬件维护界面:
(1)加载窗体和控件,并设置起属性如下图4-7所示:
图4-7硬件维护界面
将form的caption属性设置为“维护界面“,其WINDOWSSTATE属性设为“2-Maximized”;
在添加6个标签控件和6个文本框,6个标签控件的caption属性分别设置为“计算机编号,cpu型号,显卡型号,内存条型号,硬盘型号,备注“;
添加一个command控件设置其caption属性为”关闭“。
PrivateSubwh_Click()
a=InputBox("
请输入你要进行维护的计算机的编号,以便于了解其所安装的硬件情况。
建立返回可用记录集
DimbAsString
Ifa="
系统主界面.Show
select*from硬件表"
查询硬件表里面的所有记录
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"
没有此条记录!
维护界面.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
PrivateSubCommand1_Click()
维护界面.Hide
维护界面主要,要实现的就是查询各个计算机,.配备的硬件设备的情况。
其实现过程就是用户在用鼠标单击系统主界面的维护的时候,就会提示用户输入计算机的编号。
然后系统就会根据计算机的编号查询信息。
将查询到的信息显示在维护界面的文本框内。
当用户浏览了信息以后,可以单击关闭然后返回到系统主界面。