vb+sql图书管理系统Word文档格式.docx

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