1、DATABASE=librarycn.Open cn_strsql_str = select username ,userp from user_infors.Open sql_str, cnWhile Not rs.EOFIf txtusername.Text = Trim(rs(0) And txtpassword.Text = Trim(rs(1) ThenMe.Hide form8.Showflag = TrueExit SubElsers.MoveNextflag = FalseEnd IfWendIf flag = False ThenMsgBox 输入的用户名或密码有误,请重新输
2、入!, vbCritical + vbOKOnly, 错误rs.CloseEnd SubPrivate Sub Command1_Click()If MsgBox(你确定要退出?, vbYesNo) = vbNo Thenfrmlogin.ShowUnload MePrivate Sub txtpassword_GotFocus()txtpassword = txtpassword.PasswordChar = *Private Sub txtusername_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Si
3、ngle)Static Toogle As BooleanIf Toogle = False Thentxtusername = Toogle = True2图书管理主界面所有功能都在菜单中打开来实现。设计代码:Private Sub adu_Click(Index As Integer) form3.ShowPrivate Sub b_Click()DataReport1.ShowPrivate Sub BEI_Click() form4.Showfrmaduinfo.ShowPrivate Sub Command2_Click()frmseekxs.ShowPrivate Sub Comm
4、and3_Click()frmaduclass_info.ShowPrivate Sub Command4_Click()Private Sub Command5_Click()frmadu_course.ShowPrivate Sub Command6_Click()frminquire_course.ShowPrivate Sub Command7_Click()frmmodify_result.ShowPrivate Sub Command8_Click()frminquire_result.ShowPrivate Sub MDIForm_Load()Me.Left = GetSetti
5、ng(App.Title, setting, mainleft, 1000)Me.Top = GetSetting(App.Title, maintopMe.Width = GetSetting(App.Title, mainwidthMe.Height = GetSetting(App.Title, mainheightPrivate Sub MDIForm_Unload(Cancel As Integer)If Me.WindowState vbMinimized ThenSaveSetting App.Title, settings, Me.Left, Me.Top, Me.Width,
6、 Me.HeightPrivate Sub cxbj_Click(Index As Integer)frminquire_bj_info.ShowPrivate Sub Command9_Click()Private Sub cxcj_Click(Index As Integer)Private Sub c_Click()Form10.ShowPrivate Sub cxkc_Click(Index As Integer) form6.ShowPrivate Sub cxxs_Click(Index As Integer) form9.ShowPrivate Sub Form_Load()St
7、atusBar1.Panels(3).Text = Format(Now, yyyy年mm月dd日 )StatusBar1.Panels(4).Text = Format(Now, hh点mm分ss秒Private Sub hai_Click() form5.ShowPrivate Sub Label1_Click()Label1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)Private Sub s_Click()Form11.ShowPrivate Sub tc_Click()EndPrivate Sub Ti
8、mer1_Timer()Private Sub tjbj_Click(Index As Integer) form2.ShowPrivate Sub tjcj_Click(Index As Integer)Private Sub tjkc_Click(Index As Integer)form1.ShowPrivate Sub tjxs_Click()frmadd_s_info.ShowPrivate Sub xgcj_Click(Index As Integer)Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Butt
9、on) Select Case Button.key Case ttCase cttjxjtd form1.Showcdexit End End Select3.2.1图书信息管理 3.2.1.1添加修改删除图书信息添加修改删除图书信息选择添加修改删除图书信息,在相应的栏目填入或选择相应的内容,点击相应的按钮可以实现添加修改删除图书信息。rs.Deleters.AddNewrs(图书号) = Trim(Text1.Text)书籍名称) = Trim(Text2.Text)作者) = Trim(Text3.Text)出版社) = Trim(Text4.Text)订购价格) = Trim(Text
10、5.Text)附件) = Trim(Text6.Text)条码号) = Trim(Text7.Text)规定天数) = Trim(Text8.Text)书的状态) = Trim(Text9.Text)rs.Update修改信息成功!, vbExclamation + vbOKOnly, 提示删除成功!Private Sub Command3_Click(Index As Integer)Select Case IndexCase 0rs.MoveFirstFrame2.Caption = 当前位置 & rs.AbsolutePosition & / rs.RecordCountCase 1rs.MovePreviousIf rs.BOF
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1