源程序清单1、文件名 ｌ o ｇ i ｎ(log ｉ n、f ｒ m)功能说明:整个系统得登陆界面,需要输入用户名与登陆密码才能进入到系统中，进行借阅等操作。源代码:Option Ex ｐ l ｉ citDim cn ｔ As IntegerＰ rivate Sub man ｄ 1_Cl ｉ ck(）Dim ｓ ql A ｓ Ｓｔ ringＤｉｍ ｒ s＿l ｏ g ｉｎ As N ｅｗ ADO Ｄ B、Re ｃｏ r ｄ s ｅ tIf Ｔｒ i ｍ（ｂ o １、Text) ＝ "" Then Ｍ s ｇＢ ox ＂没有这个用户"， vbO Ｋ Only + vb Ｅ x ｃ la ｍ ation, ＂" ｂ o1、Set Ｆ oc ｕ sElse ｓｑ l = "se ｌ ec ｔ * ｆｒ om 系统管理 w ｈｅ r ｅ 用户名='" & ｂo1、Text ＆ "'＂ rs＿login、Op ｅ n s ｑ l， ｃｏ nn， adOpenKeyset, a ｄ Lock Ｐ essimｉ s ｔ ic I ｆ r ｓ_ｌｏ g ｉｎ、EO Ｆ = True T ｈ en Msg Ｂ o ｘ "没有这个用户＂， ｖｂ OKOnly + ｖ bExclam ａｔion, "" b ｏ１、Ｓ etFocus El ｓ e Ｉｆ Tri ｍ(rs_l ｏ gin、Fiel ｄ s(1)) = Trim(t ｘ tp ｗ d、Ｔ exｔ) Then userID = bo １、Tex ｔ rs_login、C ｌｏ se Ｕｎｌ oad M ｅ form1、Show Else M ｓ gBox "密码不正确＂, vbOKOn ｌ y + vbExcl ａ mation, "" txt ｐｗ d、SetFoc ｕ s End If Ｅ nd IfＥ nd Ifｃ n ｔ = cn ｔ + 1Ｉ f cnt = ３ Then Ｕ n ｌ oad MeE ｎｄ Ｉ fExit S ｕｂＥ nd S ｕ bＰ riv ａ t ｅ Sub mand2_Click()Un ｌ oa ｄ MeEn ｄ SubPri ｖ ate Ｓ ub Form_L ｏ ad（)D ｉ m conne ｃ t ｉ onst ｒ ing Ａ s St ｒ in ｇｃ o ｎ nectionstring = ＂ provid ｅ r ＝ Ｍ icr ｏ s ｏ ft 、 Ｊet、oledb、4、0;" & _ ＂d ａ ta ｓｏ u ｒ ce＝book、md ｂ"conn、Open ｃｏ nnection ｓ t ｒ ingc ｎ t = 0E ｎｄ Ｓｕ bP ｒ ivate Ｓ ub tx ｔ user_C ｈａ nge()En ｄ Sub2、文件名 form １(ｆ orm1、fr ｍ)功能说明：整个系统得主界面，其中包括图书管理、读者管理、图书借阅管理、系统管理、关于,以及在这下面得子菜单。源代码:Pr ｉ v ａ t ｅ S ｕ b add_ａ d ｍ in＿Cli ｃ k()ｆ rm ａ d ...
