vb sql数据库应用系统巴萨球员信息管理.docx
《vb sql数据库应用系统巴萨球员信息管理.docx》由会员分享，可在线阅读，更多相关《vb sql数据库应用系统巴萨球员信息管理.docx（26页珍藏版）》请在冰豆网上搜索。
vbsql数据库应用系统巴萨球员信息管理
数据库论文
西班牙巴塞罗那足球俱乐部球员信息管理系统
课程名称：
数据库技术与应用----sqlsever
任课老师：
班级：
姓名：
学号：
西班牙巴塞罗那足球俱乐部球员信息管理系统
摘要
西班牙巴塞罗那球员信息管理系统是典型的信息管理系统,其开发主要包括后台数据库（sql）的建立，并使用优秀、易学的开发工具vb6.0。
该球员信息管理系统的功能主要包括：
通过计算机管理球员基本信息，球员工资信息，包括添加、修改、查询功能，从而提高办事效率。
该系统使用microsoftoffice中的sqlserver2000来设计数据库，vb6.0作为开发工具，ado控件连接数据库。
关键字：
控件、窗体、数据库、vb、球员信息
系统需求分析：
1．系统设计目的：
作为世界第一大球运动，足球运动风靡全球。
各个国家开展的联赛也如火如荼，一些俱乐部的管理都实现了系统化、规范化、自动化。
而作为人事管理系统的球员信息管理也相应实现了计算机化。
为提高管理效率，减轻劳动强度，提高信息处理速度和准确性；为操作员提供更方便、科学的服务项目，提供一种更先进、科学的服务系统，让计算机对其球员信息进行自动管理，操作员可以直接在计算机上实现信息管理，并能在一定程度上实现自动化。
作为球员管理系统，主要实现的功能包括系统管理、球员基本信息管理、球员工资信息管理。
2.功能描述：
一、用户信息管理：
（一） 添加用户信息，包括用户名和用户密码。
（设置了权限，只有一定权限的用户才允许此操作）
（二） 修改用户密码。
二、球员信息管理：
（一） 添加球员信息，包括号码、姓名、位置、身高、体重、国籍、健康状况、出生日期、入队时间、备注信息、年薪、奖金、年工资。
（二） 修改已经添加的球员各项相关信息。
（三） 查询浏览球员各项相关信息。
三、球员工资信息管理：
（一） 添加信息（在球员信息已添加）。
（二） 修改球员工资的各项信息。
（三） 查询浏览球员的各项工资信息。
设置了权限，达到一定权限才可查询全部信息。
巴塞罗那球员信息管理信系统的逻辑设计：
服务器端以vb6.0为前台开发工具，它全面支持面向对象的程序设计，sqlserver2000来设计数据库，用vb6.0通过ADO控件连接数据库SQL2000。
客户端设计有登陆窗体，当登陆者输入相应用户名和密码时，在数据库“巴塞罗那”的users表找出登陆者的相应用户信息及权限。
登陆后进入MDIFmain（西班牙巴塞罗那球员信息管理）主窗体，根据用户权限可以进行相应的操作。
客户获取的数据通过vb6.0连接到本地数据库sql2000获得，当客户申请数据时在数据库“巴塞罗那”相应的表中提供，除了可以添加球员信息，修改，查询球员信息外，权限高的客户还可以向数据库中查询浏览进一步信息。
系统实现方法：
公共模块：
PublicUSERAsString
PublicAAsInteger
PublicFunctionconnectstring（）AsString
connectstring="provider=SQLOLEDB.1;Password=lwtno16545;userID=sa;Initialcatalog=巴塞罗那;datasource=127.0.0.1"
EndFunction
PublicFunctionExecuteSQL（ByValsqlAsString,msgAsString）AsADODB.Recordset
OnErrorGoToError
DimcnnAsADODB.Connection
DimsTokens（）AsString
DimrstAsADODB.Recordset
sTokens=Split（sql）
Setcnn=NewADODB.Connection
cnn.Openconnectstring
IfInStr（"insert,delete,updata,execute",UCase$（sTokens（0）））Then
cnn.Execute（sql）
msg=sTokens（0）&"querysuccessful"
SetExecuteSQL=rst
Else
Setrst=NewADODB.Recordset
Setrst=NewADODB.Recordset
rst.OpenTrim$（sql）,cnn,adOpenKeyset,adLockOptimistic
SetExecuteSQL=rst
msg="查询到"&rst.RecordCount&"条记录"
EndIf
ExecuteSQL_Exit:
Setrst=Nothing
Setcnn=Nothing
ExitFunction
Error:
MsgBox"错误号：
"&Err.Description
ResumeExecuteSQL_Exit
EndFunction
PublicSubMain（）
巴萨.Show
EndSub
登陆窗体：
登陆窗体界面显示登陆者输入用户名和密码在连接数据库“巴塞罗那”的users表找出相应的信息若没有登陆者相关信息则提示没有这个用户，若相应密码不正确，则提示密码输入错误。
若登陆者的信息完全正确，就进入MDIFmain（西班牙巴塞罗那球员信息管理）主窗体；进入主窗体后，登陆者可根据相应需要进行相关的信息管理。
功能实现代码：
PrivateSubCommand1_Click（）
DimsqlAsString
DimmrcAsADODB.Recordset
DimmsgAsString
IfText1.Text=""Then
MsgBox"请输入用户名！
",vbOKOnly,"提示"
Else
sql="select*fromuserswhere用户名='"&Text1.Text&"'"
Setmrc=ExecuteSQL（sql,msg）
Ifmrc.EOFThen
MsgBox"没有这个用户",48,"提示"
Text1.SetFocus
ExitSub
Else
IfTrim（mrc.Fields（"密码"））=Trim（Text2.Text）Then
USER=Trim（Text1.Text）
A=mrc!
权限
MDIForm1.Show
UnloadMe
Else
MsgBox"输入密码不正确！
请重新输入",vbOKOnly,"提示"
Text2.SetFocus
ExitSub
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
MDIFmain（西班牙巴塞罗那球员信息管理）主窗体：
设计四个菜单栏，其中包括系统（添加用户，修改密码）、球员基本信息（添加球员信息，修改球员信息，查询球员信息），球员工资信息（修改工资信息，查询工资信息），退出。
功能实现代码：
PrivateSubaa_Click（）
IfA<7Then
MsgBox"你没有权限",vbOKOnly,"警告"
ExitSub
Else
Form2.Show
UnloadMe
EndIf
EndSub
PrivateSubdd_Click（）
Form6.Show
UnloadMe
EndSub
PrivateSubee_Click（）
Form1.Show
UnloadMe
EndSub
PrivateSubff_Click（）
Form7.Show
UnloadMe
EndSub
PrivateSuboo_Click（）
巴萨.Show
UnloadMe
EndSub
PrivateSubrr_Click（）
Form5.Show
UnloadMe
EndSub
PrivateSubtt_Click（）
Form4.Show
UnloadMe
EndSub
PrivateSubww_Click（）
Form3.Show
UnloadMe
EndSub
添加用户窗体：
通过ADODBaddnew添加“users”表中的用户信息从而实现用户的添加
功能实现代码：
PrivateSubCommand1_Click（）
DimsqlAsString
DimrsAsADODB.Recordset
DimmAsString
IfA<8Then
MsgBox"你没有权限",vbOKOnly,"警告"
ExitSub
Else
IfTrim（Text1.Text）=""Then
MsgBox"请输入用户名称!
",vbOKOnly,"警告"
ExitSub
EndIf
IfTrim（Text2.Text）=""Then
MsgBox"请输入密码!
",vbOKOnly,"警告"
ExitSub
EndIf
IfTrim（Text4.Text）=""Then
MsgBox"请确认密码!
",vbOKOnly,"警告"
ExitSub
EndIf
IfTrim（Text3.Text）=""Then
MsgBox"请输入权限!
",vbOKOnly,"警告"
ExitSub
EndIf
IfTrim（Text2.Text）<>Trim（Text4.Text）Then
MsgBox"密码不一致!
",vbOKOnly,"警告"
ExitSub
EndIf
sql="select*fromuserswhere用户名='"&Text1.Text&"'"
Setrs=ExecuteSQL（sql,m）
Ifrs.EOF=FalseThen
MsgBox"用户名重复",48,"警告"
Else
rs.AddNew
rs.Fields（"用户名"）=Trim（Text1.Text）
rs.Fields（"密码"）=Trim（Text2.Text）
rs.Fields（"权限"）=Trim（Text3.Text）
rs.Update
MsgBox"添加成功",vbOKOnly,"提示"
rs.Close
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
MDIForm1.Show
UnloadMe
EndSub
修改用户密码窗体：
通过公共模块定义的函数找出登陆者的信息再通过ADODBupdate修改表中的信息从而修改实现修改密码
功能实现代码：
PrivateSubCommand1_Click（）
DimsqlAsString
DimmAsString
DimmrcAsADODB.Recordset
IfUSER="普通"Then
MsgBox"普通用户不可修改密码!
",vbOKOnly,"警告"
ExitSub
EndIf
IfTrim（Text1.Text）=""Then
MsgBox"请输入密码!
",vbOKOnly,"警告"
Text1.SetFocus
ExitSub
EndIf
IfTrim（Text2.Text）=""Then
MsgBox"请输入确认密码!
",vbOKOnly,"警告"
Text2.SetFocus
ExitSub
EndIf
IfTrim（Text1.Text）<>Trim（Text2.Text）Then
MsgBox"密码输入不一致！
",vbOKOnly,"警告"
Else
sql="select*fromuserswhere用户名='"&USER&"'"
Setmrc=ExecuteSQL（sql,m）
mrc.Fields（"密码"）=Trim（Text1.Text）
mrc.Update
mrc.Close
MsgBox"修改密码成功",48,"修改密码"
EndIf
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubCommand2_Click（）
MDIForm1.Show
UnloadMe
EndSub
添加球员信息窗体：
通过ADODBaddnew在表“球员_info”和表“工资_info”中插入要添加球员的信息、球员工资信息
功能实现代码：
PrivateSubCommand1_Click（）
DimrsAsADODB.Recordset
DimqqAsADODB.Recordset
DimsqlAsString
DimsAsString
IfText1.Text=""Then
MsgBox"请输入号码",vbOKOnly,"警告"
Text1.SetFocus
ExitSub
EndIf
IfText2.Text=""Then
MsgBox"请输入球员名字",vbOKOnly,"警告"
Text2.SetFocus
ExitSub
EndIf
IfText3.Text=""Then
MsgBox"请输入球员位置",vbOKOnly,"警告"
Text3.SetFocus
ExitSub
EndIf
IfText10.Text=""Then
MsgBox"请输入球员国籍",vbOKOnly,"警告"
Text10.SetFocus
ExitSub
EndIf
IfNotIsDate（Text8.Text）Then
MsgBox"正确的输入日期格式是:
（YYYY-MM-DD）",vbOKOnly,"警告"
Text8.SetFocus
ExitSub
EndIf
IfNotIsDate（Text7.Text）Then
MsgBox"正确的输入日期格式是:
（YYYY-MM-DD）",vbOKOnly,"警告"
Text7.SetFocus
ExitSub
EndIf
IfText11.Text=""Then
MsgBox"请输入年薪",vbOKOnly,"警告"
Text11.SetFocus
ExitSub
EndIf
IfText12.Text=""Then
MsgBox"请输入奖金",vbOKOnly,"警告"
Text12.SetFocus
ExitSub
EndIf
IfText13.Text=""Then
MsgBox"请输入年工资",vbOKOnly,"警告"
Text13.SetFocus
ExitSub
EndIf
sql="select*from球员_info"
Setrs=ExecuteSQL（sql,s）
rs.AddNew
rs.Fields（"球员_id"）=Trim（Text1.Text）
rs.Fields（"球员_name"）=Trim（Text2.Text）
rs.Fields（"位置"）=Trim（Text3.Text）
rs.Fields（"身高"）=Trim（Text4.Text）
rs.Fields（"体重"）=Trim（Text5.Text）
rs.Fields（"国籍"）=Trim（Text10.Text）
rs.Fields（"健康状况"）=Trim（Text9.Text）
rs.Fields（"出生日期"）=Trim（Text8.Text）
rs.Fields（"入队时间"）=Trim（Text7.Text）
rs.Fields（"注释"）=Trim（Text6.Text）
rs.Update
rs.Close
MsgBox"球员信息添加成功",vbOKOnly,"提示"
sql="select*from工资_info"
Setqq=ExecuteSQL（sql,s）
qq.AddNew
qq.Fields（"球员_id"）=Trim（Text1.Text）
qq.Fields（"球员_name"）=Trim（Text2.Text）
qq.Fields（"年薪"）=Val（Text11.Text）
qq.Fields（"奖金"）=Val（Text12.Text）
qq.Fields（"年工资"）=Val（Text13.Text）
qq.Update
qq.Close
MsgBox"工资信息添加成功",vbOKOnly,"提示"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text10.Text=""
Text11.Text=""
Text12.Text=""
Text13.Text=""
EndSub
PrivateSubCommand2_Click（）
MDIForm1.Show
UnloadMe
EndSub
PrivateSubImage1_Click（）
EndSub
修改球员基本信息窗体：
通过公共函数Executesql函数找到要修改球员的信息，再通过ADODBupdate更新“球员_info”表中的信息
PrivateSubCommand1_Click（）
DimsqlAsString
DimkAsString
DimbcAsADODB.Recordset
IfText1.Text=""Then
MsgBox"名字不能为空",48,"提醒"
Text1.SetFocus
ExitSub
EndIf
IfText2.Text=""Then
MsgBox"号码不能为空",48,"提醒"
Text2.SetFocus
ExitSub
EndIf
IfText3.Text=""Then
MsgBox"位置",48,"提醒"
Text3.SetFocus
ExitSub
EndIf
IfText4.Text=""Then
MsgBox"身高",48,"提醒"
Text4.SetFocus
ExitSub
EndIf
IfText5.Text=""Then
MsgBox"体重",48,"提醒"
Text5.SetFocus
ExitSub
EndIf
IfText6.Text=""Then
MsgBox"国籍",48,"提醒"
Text6.SetFocus
ExitSub
EndIf
IfText7.Text=""Then
MsgBox"健康状况",48,"提醒"
Text7.SetFocus
ExitSub
EndIf
IfText8.Text=""Then
MsgBox"出生日期",48,"提醒"
Text8.SetFocus
ExitSub
Else
IfNotIsDate（Text8.Text）Then
MsgBox"正确的输入日期格式是:
（YYYY-MM-DD）",vbOKOnly,"警告"
Text8.SetFocus
ExitSub
EndIf
EndIf
IfText9.Text=""Then
MsgBox"入队时间",48,"提醒"
Text9.SetFocus
ExitSub
Else
IfNotIsDate（Text9.Text）Then
MsgBox"正确的输入日期格式是:
（YYYY-MM-DD）",vbOKOnly,"警告"
Text9.SetFocus
ExitSub
EndIf
EndIf
sql="select*from球员_infowhere球员_name='"&Text1.Text&"'"
Setbc=ExecuteSQL（sql,k）
bc.Fields（"球员_id"）=Text2.Text
bc.Fields（"位置"）=Text3.Text
bc.Fields（"身高"）=Text4.Text
bc.Fields（"体重"）=Text5.Text
bc.Fields（"国籍"）=Text6.Text
bc.Fields（"健康状况"）=Text7.Text
bc.Fields（"出生日期"）=Text8.Text
bc.Fields（"入队时间"）=Text9.Text
bc.Fields（"注释"）=Text10.Text
bc.Update
bc.Close
MsgBox"球员个人信息已更新",48,"提示"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text6.Text=""
EndSub
PrivateSubCommand2_Click（）
MDIForm1.Show
UnloadMe
EndSub
球员基本信息查询窗体：
通过adodc控件连接数据库“巴塞罗那”的“球员_info”表通过datagrid控件显示查询到的信息，可按姓名查询，也可全部查询。
功能实现代码：
PrivateSubCommand1_Click（）
DimsqlAsString
IfO1.ValueThen
IfText1.Text=""Then
MsgBox"请输入名字",vbOKOnly,"警告"
Text1.SetFocus
ExitSub
EndIf
sql="select*from球员_infowhere球员_name='"&Text1.Text&"'"
Ad1.RecordSource=sql
Ad1.Refresh
Dg1.Refresh
Dg1.Visible=True
EndIf
IfO2.ValueThen
sql="select*from球员_info"
Ad1.RecordSource=sql
Ad1.Refresh
Dg1.Refresh
Dg1.Visible=True
EndIf
EndSub
P
升级会员 