图书管理系统 源程序代码.doc

图书管理系统 源程序代码 导读：就爱阅读网友为您分享以下“图书管理系统 源程序代码”的资讯，希望对您有所帮助，感谢您对92的支持! 1：登录窗口代码： Option Explicit Dim X As Integer #39;保存密码输入错误次数 Public tempname As String Private Sub cmdOK_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim strcon As String Dim sql As String Set cn = CreateObject(quot;adodb.connectionquot;) Set rs = CreateObject(quot;adodb.recordsetquot;) strcon = quot;Provider=MSDASQL.1;Persist Security Info=False;Data Source=图书销售系统quot; cn.Open strcon #39;游客登录 If Combo1.Text = quot;游客quot; Then 主窗体.tsgl.Visible = False 主窗体.yhgl.Visible = False 主窗体.gwtd.Visible = False 主窗体.kuc.Visible = False 主窗体.glyzc.Visible = False 主窗体.tshj.Enabled = True