中南大学数据库课程设计源代码.docx

1、中南大学数据库课程设计源代码Form1Public intjobid As IntegerPublic intuserjd As IntegerPrivate Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetDim strusername As StringDim intuserkey As IntegerOn Error GoTo errhandler:If Trim(txtusername.Text = ) ThenMsgBox 请输入用户名称！, vbExclamationtxtusername.SetFocusEls

2、esql = select * from member_21001 where 登录名= & txtusername.Text & Set rs = ExeSQL(sql)If rs.EOF = True ThenMsgBox 没有此用户，请重新输入用户名！, vbExclamationtxtusername.SetFocusElseIf Trim(rs!密码) = Trim(txtuserkey.Text) ThenMsgBox 登陆成功！, vbExclamationrs.CloseMe.HidefrmTip.ShowUnload MeElseMsgBox 密码不正确，请重新输入, vbE

3、xclamationtxtuserkey.SetFocustxtuserkey.Text = End IfEnd IfEnd IfExit Suberrhandler:MsgBox 错误号 & Err.Number & 错误描述 & Err.DescriptionEnd SubPrivate Sub cmdCancel_Click()Dim cnn As New ADODB.ConnectionDim adors As New ADODB.Recordsetcnn.ConnectionString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Ini

4、tial Catalog=白志恒_21001;Data Source=WIN-20120304XBOcnn.OpenIf cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Set adors = cnn.Execute(delete from lingshi_21001) cnn.Close 关闭与数据库的连接End IfUnload MeEnd SubPrivate Sub Command1_Click()Form2.ShowUnload Me

5、End SubPrivate Sub guanli_Click()Dim sql As StringDim rs As ADODB.RecordsetDim strusername As StringDim intuserkey As IntegerOn Error GoTo errhandler:If Trim(txtusername.Text = ) ThenMsgBox 请输入管理员账户！, vbExclamationtxtusername.SetFocusElsesql = select * from admin_21001 where name= & txtusername.Text

6、 & Set rs = ExeSQL(sql)If rs.EOF = True ThenMsgBox 对不起，该账户不是管理员账户！, vbExclamationtxtusername.SetFocusElseIf Trim(rs!Password) = Trim(txtuserkey.Text) ThenMsgBox 登陆成功！, vbExclamationrs.CloseMe.HideForm7.ShowUnload MeElseMsgBox 密码不正确，请重新输入, vbExclamationtxtuserkey.SetFocustxtuserkey.Text = End IfEnd I

7、fEnd IfExit Suberrhandler:MsgBox 错误号 & Err.Number & 错误描述 & Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim cnn As New ADODB.ConnectionDim adors As New ADODB.Recordsetcnn.ConnectionString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=白志恒_21001;Data Source=WIN-201203

8、04XBOcnn.OpenIf cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Adodc1.RecordSource = select * from member_21001 Set adors = cnn.Execute(insert into lingshi_21001 select 昵称, 等级, 积分 from member_21001 where 登录名 = + txtusername + ) cnn.Close 关闭与数据库的连接

9、End IfDim str As StringEnd SubForm2Private Sub Command1_Click()Dim cnn As New ADODB.ConnectionDim adors As New ADODB.Recordsetcnn.ConnectionString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=白志恒_21001;Data Source=WIN-20120304XBOcnn.OpenIf cnn.State = adStateOpen Then Set adors.Activ

10、eConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then MsgBox 输入的用户注册信息不完全!, , 提示信息 Else Adodc1.RecordSource = select * from member_21001 where 登录名= + Text1 + 判断注册的用户名是否存在 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgB

11、ox 该账号已经存在,请您更换其他账号!, 48, 提示信息 Text1.SetFocus Else If Text2.Text = Text3.Text Then 判断两次输入的密码是否一致 Adodc1.RecordSource = select * from member_21001 Adodc1.Refresh 保存注册信息 Set adors = cnn.Execute(insert into member_21001 values( & Text1.Text & , & Text5.Text & , & Text2.Text & ,0,0, & Text4.Text & ) Msg

12、Box 注册成功!, 48, 用户注册信息提示 cnn.Close 关闭与数据库的连接 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Unload Me Form1.Show Else MsgBox 两次输入的密码不一致,请您确认后重新输入, 48, 用户注册信息提示 Text3.Text = Text4.Text = Text3.SetFocus End If End If End If ElseEnd IfEnd SubPrivate Sub Command2_Click() Unload Me Form1

13、.ShowEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenText2.SetFocusElseEnd IfEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then 如果按下的是回车键，则光标落到文本框当中Text3.SetFocusElseEnd IfEnd SubPrivate Sub Text3_KeyDown(KeyCode As In

14、teger, Shift As Integer) If KeyCode = 13 Then 如果按下的是回车键，则光标落到文本框当中 Text4.SetFocus Else End IfEnd SubPrivate Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Call Command1_Click Else End IfEnd SubForm3Private Sub Command1_Click()Unload MeForm4.ShowEnd SubPrivate Sub Comman

15、d2_Click()Unload MeForm6.ShowEnd SubPrivate Sub Command3_Click()Unload Me Form9.ShowEnd SubPrivate Sub Command4_Click()Dim cnn As New ADODB.ConnectionDim adors As New ADODB.Recordsetcnn.ConnectionString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=白志恒_21001;Data Source=WIN-20120304XB

16、Ocnn.OpenIf cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Set adors = cnn.Execute(delete from lingshi_21001) cnn.Close 关闭与数据库的连接End IfUnload MeEnd SubPrivate Sub Command5_Click()Dim cnn As New ADODB.ConnectionDim adors As New ADODB.Recordsetcnn.C

17、onnectionString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=白志恒_21001;Data Source=WIN-20120304XBOcnn.OpenIf cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Set adors = cnn.Execute(delete from lingshi_21001) cnn.Close 关闭与数据库的连接End I

18、fUnload MeForm1.ShowEnd SubPrivate Sub Form_Load()Dim str As Stringstr = select * from lingshi_21001Adodc4.RecordSource = strAdodc4.RefreshEnd SubForm4Private Sub Command1_Click()Dim str As Stringstr = select * from product_21001 where & Combo1.Text & like % & Text1.Text & %Adodc1.RecordSource = str

19、Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Form3.ShowUnload MeEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = select * from product_21001 where & Combo1.Text & like % & Text1.Text & % order by 价格 ascAdodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Command4_Click()Dim str As

20、Stringstr = select * from product_21001 where & Combo1.Text & like % & Text1.Text & % order by 价格 descAdodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Command5_Click()Dim cnn As New ADODB.ConnectionDim adors As New ADODB.Recordsetcnn.ConnectionString = Provider=SQLOLEDB.1;Password=sa;User I

21、D=sa;Initial Catalog=白志恒_21001;Data Source=WIN-20120304XBOcnn.OpenIf cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Set adors = cnn.Execute(insert into buy_history_21001 select & Label3.Caption & , 编号, 品牌, 型号, 颜色, 类别, 容量, 能耗, 价格, 0, 卖家 from produc

22、t_21001 where 编号 = + Text2 + ) MsgBox 购买成功！, 48, 用户注册信息提示 Set adors = cnn.Execute(update buy_history_21001 set 实际价格 = 价格/10*(10-(select 等级 from lingshi_21001) where 编号 = + Text2 + ) Text2.Text = cnn.Close 关闭与数据库的连接End IfDim str As StringEnd SubPrivate Sub Command6_Click()Dim cnn As New ADODB.Connect

23、ionDim adors As New ADODB.Recordsetcnn.ConnectionString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=白志恒_21001;Data Source=WIN-20120304XBOcnn.OpenIf cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Adodc1.RecordSource = select * from

24、 product_21001 Set adors = cnn.Execute(insert into tuijian_21001 select & Label3.Caption & , 编号, 品牌, 型号, 颜色, 类别, 容量, 能耗, 价格, 卖家 from product_21001 where 编号 = + Text3 + ) MsgBox 谢谢您的推荐！, 48, 用户注册信息提示 Text3.Text = cnn.Close 关闭与数据库的连接End IfDim str As StringEnd SubPrivate Sub Form_Load()Combo1.AddItem 品

25、牌Combo1.AddItem 型号Combo1.AddItem 颜色Combo1.AddItem 类别Combo1.AddItem 价格Combo1.Text = 品牌End SubPrivate Sub Picture1_Click()Form5.ShowUnload MeEnd SubForm5Private Sub Command1_Click()Unload MeForm4.ShowEnd SubForm6Private Sub Command1_Click()Dim cnn As New ADODB.ConnectionDim adors As New ADODB.Recordse

26、tcnn.ConnectionString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=白志恒_21001;Data Source=WIN-20120304XBOcnn.OpenIf cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Adodc1.RecordSource = select * from tuijian2_21001 Adodc1.Refresh Set

27、 adors = cnn.Execute(insert into tuijian2_21001 values( & Text5.Text & , & Text1.Text & , & Text2.Text & , & Text3.Text & , & Text4.Text & ) MsgBox 感谢您的推荐，我们会尽快进货！, 48, 用户注册信息提示 cnn.Close 关闭与数据库的连接 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End If End SubPrivate Sub Command2_Cl

28、ick()Form3.ShowUnload MeEnd SubForm7Private Sub Command1_Click()Unload MeForm8.ShowEnd SubPrivate Sub Command2_Click()Dim cnn As New ADODB.ConnectionDim adors As New ADODB.Recordsetcnn.ConnectionString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=白志恒_21001;Data Source=WIN-20120304XBO

29、cnn.OpenIf cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Adodc1.RecordSource = select * from product_21001 Adodc1.Refresh Set adors = cnn.Execute(delete from product_21001 where 编号 = + Text1 + ) MsgBox 删除完毕！, 48, 用户注册信息提示 cnn.Close 关闭与数据库的连接End IfDim str As Stringstr = select * from product_21001Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Command3_Click()Dim str1 As StringIf Text2.Text = Thenstr1 = select 登录名, 昵称, 等级, 积分, qq from member_21001Elsestr1 =