vb sql2000图书管理系统.docVIP

Vb+sql2000图书管理代码及控件 主要控件：Commandbutton,textbox,frame,label, Toolbar, ProgressBar, CommonDialog, Timer, StatusBar, ImageList, Adodc, DataGrid 主界面模型图： 1.登录界面 设计过程： 用于输入用户名和密码登录，若是用户输入用户名和密码错误则不能进入系统。界面是一个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;DATABASE=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 + vbOKOnly, 错误 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 Private Sub txtusername_MouseMove(Button As Integer, Shift As Integer, X 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 Private Sub Command8_Click() frminquire_result.Show End Sub Private Sub MDIForm_Load() Me.Left = GetSetting(App.Title, setting, mainleft, 1000) Me.Top = GetSetting(App.Title, setting, maintop, 1000) Me.Width = GetSetting(App.Title, setting,