vb+sql图书管理系统Word文档格式.docx
《vb+sql图书管理系统Word文档格式.docx》由会员分享,可在线阅读,更多相关《vb+sql图书管理系统Word文档格式.docx(27页珍藏版)》请在冰豆网上搜索。
DATABASE=library"
cn.Opencn_str
sql_str="
selectusername,userpfromuser_info"
rs.Opensql_str,cn
WhileNotrs.EOF
Iftxtusername.Text=Trim(rs(0))Andtxtpassword.Text=Trim(rs
(1))Then
Me.Hide
form8.Show
flag=True
ExitSub
Else
rs.MoveNext
flag=False
EndIf
Wend
Ifflag=FalseThen
MsgBox"
输入的用户名或密码有误,请重新输入!
"
vbCritical+vbOKOnly,"
错误"
rs.Close
EndSub
PrivateSubCommand1_Click()
IfMsgBox("
你确定要退出?
vbYesNo)=vbNoThen
frmlogin.Show
UnloadMe
PrivateSubtxtpassword_GotFocus()
txtpassword="
txtpassword.PasswordChar="
*"
PrivateSubtxtusername_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
StaticToogleAsBoolean
IfToogle=FalseThen
txtusername="
Toogle=True
2图书管理主界面
所有功能都在菜单中打开来实现。
设计代码:
PrivateSubadu_Click(IndexAsInteger)
form3.Show
PrivateSubb_Click()
DataReport1.Show
PrivateSubBEI_Click()
form4.Show
frmaduinfo.Show
PrivateSubCommand2_Click()
frmseekxs.Show
PrivateSubCommand3_Click()
frmaduclass_info.Show
PrivateSubCommand4_Click()
PrivateSubCommand5_Click()
frmadu_course.Show
PrivateSubCommand6_Click()
frminquire_course.Show
PrivateSubCommand7_Click()
frmmodify_result.Show
PrivateSubCommand8_Click()
frminquire_result.Show
PrivateSubMDIForm_Load()
Me.Left=GetSetting(App.Title,"
setting"
"
mainleft"
1000)
Me.Top=GetSetting(App.Title,"
maintop"
Me.Width=GetSetting(App.Title,"
mainwidth"
Me.Height=GetSetting(App.Title,"
mainheight"
PrivateSubMDIForm_Unload(CancelAsInteger)
IfMe.WindowState<
>
vbMinimizedThen
SaveSettingApp.Title,"
settings"
Me.Left
Me.Top
Me.Width
Me.Height
PrivateSubcxbj_Click(IndexAsInteger)
frminquire_bj_info.Show
PrivateSubCommand9_Click()
PrivateSubcxcj_Click(IndexAsInteger)
PrivateSubc_Click()
Form10.Show
PrivateSubcxkc_Click(IndexAsInteger)
form6.Show
PrivateSubcxxs_Click(IndexAsInteger)
form9.Show
PrivateSubForm_Load()
StatusBar1.Panels(3).Text=Format(Now,"
yyyy年mm月dd日"
)
StatusBar1.Panels(4).Text=Format(Now,"
hh点mm分ss秒"
PrivateSubhai_Click()
form5.Show
PrivateSubLabel1_Click()
Label1.ForeColor=RGB(Int(Rnd*255),Int(Rnd*255),Int(Rnd*255))
PrivateSubs_Click()
Form11.Show
PrivateSubtc_Click()
End
PrivateSubTimer1_Timer()
PrivateSubtjbj_Click(IndexAsInteger)
form2.Show
PrivateSubtjcj_Click(IndexAsInteger)
PrivateSubtjkc_Click(IndexAsInteger)
form1.Show
PrivateSubtjxs_Click()
frmadd_s_info.Show
PrivateSubxgcj_Click(IndexAsInteger)
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.key
Case"
tt"
Case"
ct"
tj"
xj"
td"
form1.Show
cd"
exit"
End
EndSelect
3.2.1图书信息管理
3.2.1.1添加修改删除图书信息
添加修改删除图书信息
选择添加修改删除图书信息,在相应的栏目填入或选择相应的内容,点击相应的按钮可以实现添加修改删除图书信息。
rs.Delete
rs.AddNew
rs("
图书号"
)=Trim(Text1.Text)
书籍名称"
)=Trim(Text2.Text)
作者"
)=Trim(Text3.Text)
出版社"
)=Trim(Text4.Text)
订购价格"
)=Trim(Text5.Text)
附件"
)=Trim(Text6.Text)
条码号"
)=Trim(Text7.Text)
规定天数"
)=Trim(Text8.Text)
书的状态"
)=Trim(Text9.Text)
rs.Update
修改信息成功!
vbExclamation+vbOKOnly,"
提示"
删除成功!
PrivateSubCommand3_Click(IndexAsInteger)
SelectCaseIndex
Case0
rs.MoveFirst
Frame2.Caption="
当前位置"
&
rs.AbsolutePosition&
"
/"
rs.RecordCount
Case1
rs.MovePrevious
Ifrs.BOF