vb+sql2000图书管理系统.docxVIP

成功是失败之母，一切都是努力的结果 成功是失败之母，一切都是努力的结果 成功是失败之母，一切都是努力的结果 成功是失败之母，一切都是努力的结果 页脚内容 页脚内容 PAGE 1 页脚内容 页脚内容 PAGE 2 Vb+sql2000 图书管理代码及控件 主要控件：Commandbutton,textbox,frame,labTeolo,lbar,ProgressBar,CommonDialog, Timer, StatusBar, ImageList, Adodc, DataGrid 主界面模型图： 添加修改 图书所有 查询图书 添加修改 图书借阅 添加删除 查询读者 删除图书 信息 信息 删除借阅 查询 修改读者 信息 信息 信息 信息 图 书 管理 主 界面 图 书 管 理 主 界面 图书信息 管理 图书借阅 管理 读者信息 管理 设计过程： 一个GIF 图片。来自于第三方控件。 一个GIF 图片。来自于第三方控件 。 代码： Private Sub cmdok_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim flag As Boolean Dim cn_str As String, sql_str As String cn_str = DRIVER={SQL SERVER};SERVER=QA2ONHYK7VWHRY2;DA TABASE=library cn.Open cn_str sql_str = select username ,userp from user_info rs.Open sql_str, cn While Not rs.EOF If txtusername.Text = Trim(rs(0)) And txtpassword.Text = Trim(rs(1)) Then Me.Hide form8.Show flag = True Exit Sub Else rs.MoveNext flag = False End If Wend If flag = False Then MsgBox 输入的用户名或密码有误，请重新输入！, vbCritical + vbOKOnl错y,误 rs.Close End If End Sub Private Sub Command1_Click() If MsgBox(你确定要退出？, vbYesNo) = vbNo Then frmlogin.Show Else Unload Me End If End Sub Private Sub txtpassword_GotFocus() txtpassword = txtpassword.PasswordChar = * End Sub PrivateSub txtusername_MouseMove(ButtonAs IntegerS,hiftAs IntegerX, As Single,Y As Single) Static Toogle As Boolean If Toogle = False Then txtusername = Toogle = True End If 2 图书管理主界面 设计过程： 所有功能都在菜单中打开来实现。设计代码： Private Sub adu_Click(Index As Integer) form3.Show End Sub Private Sub b_Click() DataReport1.Show End Sub Private Sub BEI_Click() form4.Show End Sub Private Sub Command1_Click() frmaduinfo.Show End Sub Private Sub Command2_Click() frmseekxs.Show End Sub Private Sub Command3_Click() frmaduclass_info.Show End Sub Private Sub Command4_Click() frmaduclass_info.Show End Sub Private Sub Command5_Click() frmadu_course.Show End Sub Private Sub Command6_Click() frminquire_course.Show End Sub Private Sub Command7_Click() frmmodify_result.Show End Sub 成功是失败之母，一切都是努力的结果 成功是失败之母，一切都是努力的结果 成功是失败之母，一切都是努