vb sql数据库应用系统巴萨球员信息管理.docx

1、vb sql数据库应用系统巴萨球员信息管理数据库论文西班牙巴塞罗那足球俱乐部球员信息管理系统课程名称：数据库技术与应用- sql sever任课老师：班级：姓名：学号： 西班牙巴塞罗那足球俱乐部球员信息管理系统摘要西班牙巴塞罗那球员信息管理系统是典型的信息管理系统,其开发主要包括后台数据库（sql）的建立，并使用优秀、易学的开发工具vb6.0。该球员信息管理系统的功能主要包括：通过计算机管理球员基本信息，球员工资信息，包括添加、修改、查询功能，从而提高办事效率。该系统使用microsoft office中的sql server2000来设计数据库，vb6.0作为开发工具，ado控件连接数据库。

2、关键字：控件、窗体、数据库、vb、球员信息系统需求分析：1系统设计目的：作为世界第一大球运动，足球运动风靡全球。各个国家开展的联赛也如火如荼，一些俱乐部的管理都实现了系统化、规范化、自动化。而作为人事管理系统的球员信息管理也相应实现了计算机化。为提高管理效率，减轻劳动强度，提高信息处理速度和准确性；为操作员提供更方便、科学的服务项目，提供一种更先进、科学的服务系统，让计算机对其球员信息进行自动管理，操作员可以直接在计算机上实现信息管理，并能在一定程度上实现自动化。 作为球员管理系统，主要实现的功能包括系统管理、球员基本信息管理、球员工资信息管理。2.功能描述：一、用户信息管理：(一)添加用户信

3、息，包括用户名和用户密码。（设置了权限，只有一定权限的用户才允许此操作）(二)修改用户密码。二、球员信息管理：(一)添加球员信息，包括号码、姓名、位置、身高、体重、国籍、健康状况、出生日期、入队时间、备注信息、年薪、奖金、年工资。(二)修改已经添加的球员各项相关信息。(三)查询浏览球员各项相关信息。三、球员工资信息管理：(一)添加信息（在球员信息已添加）。(二)修改球员工资的各项信息。(三)查询浏览球员的各项工资信息。设置了权限，达到一定权限才可查询全部信息。巴塞罗那球员信息管理信系统的逻辑设计：服务器端以vb6.0为前台开发工具，它全面支持面向对象的程序设计，sql server2000来设

4、计数据库， 用vb6.0通过ADO控件连接数据库SQL2000。 客户端设计有登陆窗体，当登陆者输入相应用户名和密码时 ，在数据库“巴塞罗那”的users表找出登陆者的相应用户信息及权限。登陆后进入MDIFmain（西班牙巴塞罗那球员信息管理）主窗体，根据用户权限可以进行相应的操作。客户获取的数据通过vb6.0连接到本地数据库sql2000 获得，当客户申请数据时在数据库“巴塞罗那” 相应的表中提供，除了可以添加球员信息，修改，查询球员信息外，权限高的客户还可以向数据库中查询浏览进一步信息。系统实现方法：公共模块：Public USER As StringPublic A As Integer

5、Public Function connectstring() As Stringconnectstring = provider=SQLOLEDB.1; Password=lwtno16545;user ID=sa ;Initial catalog=巴塞罗那;data source=127.0.0.1 End Function Public Function ExecuteSQL(ByVal sql As String, msg As String) As ADODB.Recordset On Error GoTo Error Dim cnn As ADODB.ConnectionDim s

6、Tokens() As StringDim rst As ADODB.RecordsetsTokens = Split(sql) Set cnn = New ADODB.Connectioncnn.Open connectstring If InStr(insert,delete ,updata,execute, UCase$(sTokens(0) Then cnn.Execute (sql) msg = sTokens(0) & query successful Set ExecuteSQL = rstElse Set rst = New ADODB.RecordsetSet rst = N

7、ew ADODB.Recordset rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst msg = 查询到 & rst.RecordCount & 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionError: MsgBox 错误号： & Err.Description Resume ExecuteSQL_Exit End FunctionPublic Sub Main()巴萨.ShowE

8、nd Sub登陆窗体：登陆窗体界面显示登陆者输入用户名和密码 在连接数据库“巴塞罗那” 的users表找出相应的信息 若没有登陆者相关信息则提示没有这个用户，若相应密码不正确，则提示密码输入错误。若登陆者的信息完全正确，就进入MDIFmain（西班牙巴塞罗那球员信息管理）主窗体； 进入主窗体后，登陆者可根据相应需要进行相关的信息管理。功能实现代码：Private Sub Command1_Click()Dim sql As StringDim mrc As ADODB.RecordsetDim msg As StringIf Text1.Text = ThenMsgBox 请输入用户名！, v

9、bOKOnly, 提示Elsesql = select * from users where 用户名= & Text1.Text & Set mrc = ExecuteSQL(sql, msg)If mrc.EOF ThenMsgBox 没有这个用户, 48, 提示Text1.SetFocusExit SubElseIf Trim(mrc.Fields(密码) = Trim(Text2.Text) ThenUSER = Trim(Text1.Text)A = mrc!权限MDIForm1.ShowUnload MeElseMsgBox 输入密码不正确！请重新输入, vbOKOnly, 提示Te

10、xt2.SetFocusExit SubEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubMDIFmain（西班牙巴塞罗那球员信息管理）主窗体：设计四个菜单栏，其中包括系统（添加用户，修改密码）、球员基本信息（添加球员信息，修改球员信息，查询球员信息），球员工资信息（修改工资信息，查询工资信息），退出。功能实现代码：Private Sub aa_Click()If A 7 ThenMsgBox 你没有权限, vbOKOnly, 警告Exit SubElseForm2.ShowUnload MeEnd IfEnd Sub

11、Private Sub dd_Click()Form6.ShowUnload MeEnd SubPrivate Sub ee_Click()Form1.ShowUnload MeEnd SubPrivate Sub ff_Click()Form7.ShowUnload MeEnd SubPrivate Sub oo_Click()巴萨.ShowUnload MeEnd SubPrivate Sub rr_Click()Form5.ShowUnload MeEnd SubPrivate Sub tt_Click()Form4.ShowUnload MeEnd SubPrivate Sub ww_

12、Click()Form3.ShowUnload MeEnd Sub添加用户窗体：通过ADODB addnew添加“users”表中的用户信息从而实现用户的添加功能实现代码：Private Sub Command1_Click()Dim sql As StringDim rs As ADODB.RecordsetDim m As StringIf A 8 ThenMsgBox 你没有权限, vbOKOnly, 警告Exit SubElseIf Trim(Text1.Text) = ThenMsgBox 请输入用户名称!, vbOKOnly, 警告Exit SubEnd IfIf Trim(Tex

13、t2.Text) = ThenMsgBox 请输入密码!, vbOKOnly, 警告Exit SubEnd IfIf Trim(Text4.Text) = ThenMsgBox 请确认密码!, vbOKOnly, 警告Exit SubEnd IfIf Trim(Text3.Text) = ThenMsgBox 请输入权限!, vbOKOnly, 警告Exit SubEnd IfIf Trim(Text2.Text) Trim(Text4.Text) ThenMsgBox 密码不一致!, vbOKOnly, 警告Exit SubEnd Ifsql = select * from users wh

14、ere 用户名= & Text1.Text & Set rs = ExecuteSQL(sql, m)If rs.EOF = False ThenMsgBox 用户名重复, 48, 警告Elsers.AddNewrs.Fields(用户名) = Trim(Text1.Text)rs.Fields(密码) = Trim(Text2.Text)rs.Fields(权限) = Trim(Text3.Text)rs.UpdateMsgBox 添加成功, vbOKOnly, 提示rs.CloseEnd IfEnd IfEnd SubPrivate Sub Command2_Click()MDIForm1

15、.ShowUnload MeEnd Sub修改用户密码窗体：通过公共模块定义的函数找出登陆者的信息 再通过ADODB update修改表中的信息从而修改实现修改密码功能实现代码：Private Sub Command1_Click()Dim sql As StringDim m As StringDim mrc As ADODB.RecordsetIf USER = 普通 ThenMsgBox 普通用户不可修改密码!, vbOKOnly, 警告Exit SubEnd IfIf Trim(Text1.Text) = ThenMsgBox 请输入密码!, vbOKOnly, 警告Text1.Set

16、FocusExit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 请输入确认密码!, vbOKOnly, 警告Text2.SetFocusExit SubEnd IfIf Trim(Text1.Text) Trim(Text2.Text) ThenMsgBox 密码输入不一致！, vbOKOnly, 警告Elsesql = select * from users where 用户名= & USER & Set mrc = ExecuteSQL(sql, m)mrc.Fields(密码) = Trim(Text1.Text)mrc.Updatemrc.Clo

17、seMsgBox 修改密码成功, 48, 修改密码End IfText1.Text = Text2.Text = End SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd Sub添加球员信息窗体：通过ADODB addnew在表“球员_info” 和表“工资_info” 中插入要添加球员的信息、球员工资信息功能实现代码：Private Sub Command1_Click()Dim rs As ADODB.RecordsetDim qq As ADODB.RecordsetDim sql As StringDim s As Str

18、ingIf Text1.Text = ThenMsgBox 请输入号码, vbOKOnly, 警告Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 请输入球员名字, vbOKOnly, 警告Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入球员位置, vbOKOnly, 警告Text3.SetFocusExit SubEnd IfIf Text10.Text = ThenMsgBox 请输入球员国籍, vbOKOnly, 警告Text10.SetFocusExit Su

19、bEnd IfIf Not IsDate(Text8.Text) ThenMsgBox 正确的输入日期格式是:(YYYY-MM-DD), vbOKOnly, 警告Text8.SetFocusExit SubEnd IfIf Not IsDate(Text7.Text) ThenMsgBox 正确的输入日期格式是:(YYYY-MM-DD), vbOKOnly, 警告Text7.SetFocusExit SubEnd IfIf Text11.Text = ThenMsgBox 请输入年薪, vbOKOnly, 警告Text11.SetFocusExit SubEnd IfIf Text12.Tex

20、t = ThenMsgBox 请输入奖金, vbOKOnly, 警告Text12.SetFocusExit SubEnd IfIf Text13.Text = ThenMsgBox 请输入年工资, vbOKOnly, 警告Text13.SetFocusExit SubEnd Ifsql = select * from 球员_info Set rs = ExecuteSQL(sql, s)rs.AddNewrs.Fields(球员_id) = Trim(Text1.Text)rs.Fields(球员_name) = Trim(Text2.Text)rs.Fields(位置) = Trim(Tex

21、t3.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.Updaters.CloseMsgBox 球员信息添加成功, vbOKOnly, 提示sql = select *

22、from 工资_info Set qq = ExecuteSQL(sql, s)qq.AddNewqq.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.Updateqq.CloseMsgBox 工资信息添加成功, vbOKOnly, 提示Text1.Text = Text2.Text = Text3.Text

23、 = Text10.Text = Text11.Text = Text12.Text = Text13.Text = End SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Image1_Click()End Sub修改球员基本信息窗体：通过公共函数Executesql函数找到要修改球员的信息，再通过ADODB update 更新“球员_info”表中的信息Private Sub Command1_Click()Dim sql As StringDim k As StringDim bc As AD

24、ODB.RecordsetIf Text1.Text = ThenMsgBox 名字不能为空, 48, 提醒Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 号码不能为空, 48, 提醒Text2.SetFocusExit SubEnd If If Text3.Text = ThenMsgBox 位置, 48, 提醒Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox 身高, 48, 提醒Text4.SetFocusExit SubEnd IfIf Text5.Text = Th

25、enMsgBox 体重, 48, 提醒Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox 国籍, 48, 提醒Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox 健康状况, 48, 提醒Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox 出生日期, 48, 提醒Text8.SetFocusExit SubElseIf Not IsDate(Text8.Text) ThenMsgBox 正确的输入日期格式是:(YYYY-MM

26、-DD), vbOKOnly, 警告Text8.SetFocusExit SubEnd IfEnd IfIf Text9.Text = ThenMsgBox 入队时间, 48, 提醒Text9.SetFocusExit SubElseIf Not IsDate(Text9.Text) ThenMsgBox 正确的输入日期格式是:(YYYY-MM-DD), vbOKOnly, 警告Text9.SetFocusExit SubEnd IfEnd Ifsql = select * from 球员_info where 球员_name= & Text1.Text & Set bc = ExecuteS

27、QL(sql, k)bc.Fields(球员_id) = Text2.Textbc.Fields(位置) = Text3.Textbc.Fields(身高) = Text4.Textbc.Fields(体重) = Text5.Textbc.Fields(国籍) = Text6.Textbc.Fields(健康状况) = Text7.Textbc.Fields(出生日期) = Text8.Textbc.Fields(入队时间) = Text9.Textbc.Fields(注释) = Text10.Textbc.Updatebc.CloseMsgBox 球员个人信息已更新, 48, 提示Text1

28、.Text = Text2.Text = Text3.Text = Text6.Text = End SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd Sub球员基本信息查询窗体：通过adodc控件连接数据库“巴塞罗那”的“球员_info”表通过datagrid控件显示查询到的信息，可按姓名查询，也可全部查询。功能实现代码：Private Sub Command1_Click()Dim sql As StringIf O1.Value ThenIf Text1.Text = ThenMsgBox 请输入名字, vbOKOnly, 警告Text1.SetFocusExit SubEnd Ifsql = select * from 球员_info where 球员_name= & Text1.Text & Ad1.RecordSource = sqlAd1.RefreshDg1.RefreshDg1.Visible = TrueEnd IfIf O2.Value Thensql = select * from 球员_infoAd1.RecordSource = sqlAd1.RefreshDg1.RefreshDg1.Visible = TrueEnd IfEnd SubP