ogin1
UnloadfrmTip
UnloadfrmMain
frmBack.Show
EndSub
PrivateSubmnunote_Click()
frmTip.Show
EndSub
PrivateSubmnusigle_Click()
SSTab1.Tab=0
EndSub
PrivateSubmnusup_Click()
SSTab1.Tab=1
EndSub
PrivateSubmnuwf_Click()
frmwf.Show
EndSub
主要是通过Show方法调用相应的窗体及sstab的tab属性调用相应的页框。
Sstab的创建方法如下:
第一步将所需的控件放到窗体的相应位置;方法:首先在"工具箱"中选中所需的控件图标,然后在表单的恰当位置上单击鼠标并拖动鼠标,即可把由所选取的控件生成的对象添加到窗体上。如下图:
第二步,选择窗体或控件进行属性设置,如图为"SSTAB"的属性设置界面:
5.3单人资料模块
1、流程图:
2、运行界面:
1.实现过程:
界面的构造方法同5.2,主要代码如下:
的代码如下:
PrivateSubcmdAdd_Click()
Data1.Recordset.AddNew
EndSub
主要通过addnew方法实现记录的增加。
的代码如下:
PrivateSubcmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
DimMsgAsString
Msg="是否确定要删除记录"&Chr$(10)
Msg=Msg
IfMsgBox(Msg,17,"删除记录?")<>1ThenExitSub
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Data2.Refresh
Data1.Refresh
EndSub
主要通过delete方法实现记录的删除。
的主要代码如下:
PrivateSubcmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
Data2.Refresh
Data1.recordset.update
Data2.recordset.update
MsgBox"保存成功!",,"提示"
EndSub
的代码如下:
PrivateSubcmdPrevious_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
MsgBox"已到第一条!",,"提示"
Data1.Recordset.MoveFirst
EndIf
EndSub
主要通过MovePrevious方法实现记录的移动,并通过IfData1.Recordset.BOFThen语句判断有没有到文件头,如正确,则通过Data1.Recordset.MoveFirst语句将指针指向第一条记录。"下一条记录"的实现方法与此相同。
另外数据库的连接主要通过data控件实现,连接方法如下:
窗体上各文本框的属性如下(以姓名为例,其他同):
5.4模糊查询模块
1.流程图:
2.运行界面:
3.实现过程:
涉及的控件有:单选按钮、标签、命令按钮、文本框。
界面的设计过程与5.3模块类似,这边不再重复。
下面把此界面的主要代码作一介绍:
按钮的代码如下:
PrivateSubCommand1_Click()
DimiAsInteger
IfCombo1.Text<>""Then
SelectCaseopt
Case1
sql="select*fromtable3where编号like'"&Combo1.Text&"'"
Case2
sql="select*fromtable3where姓名like'*"&Combo1.Text&"*'"
Case3
sql="select*fromtable3where电话like'"&Combo1.Text&"'"
Case4
sql="select*fromtable3where手机like'"&Combo1.Text&"'"
Case5
sql="select*fromtable3whereQQlike'"&Combo1.Text&"'"
Case6
sql="select*fromtable3where电子邮件like'*"&Combo1.Text&"*'"
Case7
sql="select*fromtable3where联系地址like'*"&Combo1.Text&"*'"
EndSelect
EndIf
Ifsql<>""Then
Data2.RecordSource=sql
Else
Data2.RecordSource="select*fromtable3orderby编号"
EndIf
Data2.Refresh
IfData2.Recordset.RecordCount=0Then
i=MsgBox("没有符合条件的记录哦",vbOKOnly+vbInformation,"出错啦!")
EndIf
EndSub
主要实现思想:先通过变量OPT判断用户选择了哪一种查询方式,然后根据OPT的值执行不同的语句。
查询的方法主要是借助于SQL(结构化查询语言)语句来进行查询,并通过Option按钮组判断用户选择的查询方式。然后通过Data2.Refresh来进行数据源更新。如果找不到要找数据,则提示"没有符合条件的记录哦"。
5.5全体资料模块
1.流程图:
2.运行界面:
3.实现过程:
界面的设计方法同上,在这不再重复。
此界面主要有一个精确查询的应用,如"按姓名"精确查询的代码如下:
PrivateSubcmdSearch0_Click()
DimstrFindAsString
strFind=InputBox("请输入要查询的姓名")
Data1.Recordset.FindFirst"姓名='"&strFind&"'"
IfData1.Recordset.NoMatchThen
MsgBox"没有这个名字啊!"
Else
DBGrid1.SelBookmarks.AddDBGrid1.Bookmark
EndIf
EndSub
主要通过inputbox让用户输入要查询的姓名。如果通过findfirst查询,如果找不到则提示,如果找到则选中找到的记录。
5.6用户注册模块
界面如下图:
数据库的连接方法同上5.1。
"确定"主要代码如下:
PrivateSubcmdOK_Click()
ResumeNext
'检查正确的密码
IftxtUserName.Text=""Then
MsgBox"请输入初始用户名",vbInformation+vbOKOnly,"提示"
txtUserName.SetFocus
ExitSub
EndIf
IftxtPassword<>Text1Then
MsgBox"密码不正确,请重新输入",vbInformation+vbOKOnly,"提示"
txtPassword.SetFocus
ExitSub
EndIf
ret.MoveLast
DimlastAsInteger
last=Val(ret("id"))
Dimpa,pt,pa1,pt1AsString
ret.MoveFirst
pa=txtPassword
ret.AddNew
ret("id")=last+1
ret("name")=txtUserName
ret("password")=pa
ret.Update
MsgBox"用户建立成功",vbInformation+vbOKOnly,"操作成功"
EndSub
此界面还提供一个重新登录的功能。
5.7用户维护模块
1.流程图:
2.运行界面:
3.实现过程:
界面的设计方法同上,在这不再重复。
主要代码说明如下:
PrivateSubCommand1_Click()
IfMsgBox("确认删除吗?",vbYesNo,"提示")=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
IfCommand2.Caption="修改"Then
Data1.Recordset.Edit
Command2.Caption="确认"
Else
Command2.Caption="修改"
Data1.Recordset.Update
EndIf
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\userdatabase\tsl.mdb"
EndSub
5.8备忘提醒模块
1.流程图:
2.运行界面:
3.实现过程:
界面的设计方法同上,在这不再重复。
主要代码说明如下:
PrivateSubForm_Load()
'DimShowAtStartupAsLong
'固定窗体在屏幕中央
left=(Screen.Width-Width)\2
top=(Screen.Height-Height)\2
'随机寻找
Randomize
'读取提示文件并且随机显示一条提示。
IfLoadTips(App.Path&"\"&TIP_FILE)=FalseThen
lblTipText.Caption="文件"&TIP_FILE&"没有被找到吗?"&vbCrLf&vbCrLf&_
"创建文本文件名为"&TIP_FILE&"使用记事本每行写一条提示。"&_
"然后将它存放在应用程序所在的目录"
EndIf
EndSub
提示信息的获得通过如下程序读取:
FunctionLoadTips(sFileAsString)AsBoolean
DimNextTipAsString'从文件中读出的每条提示。
DimInFileAsInteger'文件的描述符。
'包含下一个自由文件描述符。
InFile=FreeFile
'确定为指定文件。
IfsFile=""Then
LoadTips=False
上一篇:
VB小型超市管理系统全套设计+毕业论文2(论文和程序)
下一篇:
爱情只不过就是,爱与不爱