vb+sql图书管理完整系统.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(