vb+sql图书管理系统.docx
《vb+sql图书管理系统.docx》由会员分享，可在线阅读，更多相关《vb+sql图书管理系统.docx（27页珍藏版）》请在冰豆网上搜索。
vb+sql图书管理系统
Vb+sql2000图书管理代码及控件
主要控件：
Commandbutton,textbox,frame,label,Toolbar,ProgressBar,CommonDialog,Timer,StatusBar,ImageList,Adodc,DataGrid
主界面模型图：
1.登录界面
设计过程：
用于输入用户名和密码登录，若是用户输入用户名和密码错误则不能进入系统。
界面是一个GIF图片。
来自于第三方控件。
代码：
PrivateSubcmdok_Click（）
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimflagAsBoolean
Dimcn_strAsString,sql_strAsString
cn_str="DRIVER={SQLSERVER};SERVER=QA2ONHYK7VWHRY2;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
EndIf
EndSub
PrivateSubCommand1_Click（）
IfMsgBox（"你确定要退出？
",vbYesNo）=vbNoThen
frmlogin.Show
Else
UnloadMe
EndIf
EndSub
PrivateSubtxtpassword_GotFocus（）
txtpassword=""
txtpassword.PasswordChar="*"
EndSub
PrivateSubtxtusername_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
StaticToogleAsBoolean
IfToogle=FalseThen
txtusername=""
Toogle=True
EndIf
2图书管理主界面
设计过程：
所有功能都在菜单中打开来实现。
设计代码：
PrivateSubadu_Click（IndexAsInteger）
form3.Show
EndSub
PrivateSubb_Click（）
DataReport1.Show
EndSub
PrivateSubBEI_Click（）
form4.Show
EndSub
PrivateSubCommand1_Click（）
frmaduinfo.Show
EndSub
PrivateSubCommand2_Click（）
frmseekxs.Show
EndSub
PrivateSubCommand3_Click（）
frmaduclass_info.Show
EndSub
PrivateSubCommand4_Click（）
frmaduclass_info.Show
EndSub
PrivateSubCommand5_Click（）
frmadu_course.Show
EndSub
PrivateSubCommand6_Click（）
frminquire_course.Show
EndSub
PrivateSubCommand7_Click（）
frmmodify_result.Show
EndSub
PrivateSubCommand8_Click（）
frminquire_result.Show
EndSub
PrivateSubMDIForm_Load（）
Me.Left=GetSetting（App.Title,"setting","mainleft",1000）
Me.Top=GetSetting（App.Title,"setting","maintop",1000）
Me.Width=GetSetting（App.Title,"setting","mainwidth",1000）
Me.Height=GetSetting（App.Title,"setting","mainheight",1000）
EndSub
PrivateSubMDIForm_Unload（CancelAsInteger）
IfMe.WindowState<>vbMinimizedThen
SaveSettingApp.Title,"settings","mainleft",Me.Left
SaveSettingApp.Title,"settings","maintop",Me.Top
SaveSettingApp.Title,"settings","mainwidth",Me.Width
SaveSettingApp.Title,"settings","mainheight",Me.Height
EndIf
EndSub
PrivateSubcxbj_Click（IndexAsInteger）
frminquire_bj_info.Show
EndSub
PrivateSubCommand9_Click（）
DataReport1.Show
EndSub
PrivateSubcxcj_Click（IndexAsInteger）
frminquire_result.Show
EndSub
PrivateSubc_Click（）
Form10.Show
EndSub
PrivateSubcxkc_Click（IndexAsInteger）
form6.Show
EndSub
PrivateSubcxxs_Click（IndexAsInteger）
form9.Show
EndSub
PrivateSubForm_Load（）
StatusBar1.Panels（3）.Text=Format（Now,"yyyy年mm月dd日"）
StatusBar1.Panels（4）.Text=Format（Now,"hh点mm分ss秒"）
EndSub
PrivateSubhai_Click（）
form5.Show
EndSub
PrivateSubLabel1_Click（）
Label1.ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））
EndSub
PrivateSubs_Click（）
Form11.Show
EndSub
PrivateSubtc_Click（）
UnloadMe
End
EndSub
PrivateSubTimer1_Timer（）
StatusBar1.Panels（3）.Text=Format（Now,"yyyy年mm月dd日"）
StatusBar1.Panels（4）.Text=Format（Now,"hh点mm分ss秒"）
Label1.ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））
EndSub
PrivateSubtjbj_Click（IndexAsInteger）
form2.Show
EndSub
PrivateSubtjcj_Click（IndexAsInteger）
frmmodify_result.Show
EndSub
PrivateSubtjkc_Click（IndexAsInteger）
form1.Show
EndSub
PrivateSubtjxs_Click（）
frmadd_s_info.Show
EndSub
PrivateSubxgcj_Click（IndexAsInteger）
frmmodify_result.Show
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.key
Case"tt"
form3.Show
Case"ct"
form9.Show
Case"tj"
form2.Show
Case"xj"
form2.Show
Case"td"
form1.Show
Case"cd"
form6.Show
Case"exit"
End
EndSelect
EndSub
3.2.1图书信息管理
3.2.1.1添加修改删除图书信息
添加修改删除图书信息
设计过程：
选择添加修改删除图书信息，在相应的栏目填入或选择相应的内容，点击相应的按钮可以实现添加修改删除图书信息。
设计代码：
DimrsAsNewADODB.Recordset
PrivateSubCommand1_Click（）
rs.Delete
rs.AddNew
rs（"图书号"）=Trim（Text1.Text）
rs（"书籍名称"）=Trim（Text2.Text）
rs（"作者"）=Trim（Text3.Text）
rs（"出版社"）=Trim（Text4.Text）
rs（"订购价格"）=Trim（Text5.Text）
rs（"附件"）=Trim（Text6.Text）
rs（"条码号"）=Trim（Text7.Text）
rs（"规定天数"）=Trim（Text8.Text）
rs（"书的状态"）=Trim（Text9.Text）
rs.Update
MsgBox"修改信息成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand2_Click（）
rs.Delete
MsgBox"删除成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand3_Click（IndexAsInteger）
SelectCaseIndex
Case0
rs.MoveFirst
Frame2.Caption="当前位置"&rs.AbsolutePosition&"/"&rs.RecordCount
Case1
rs.MovePrevious
Ifrs.BOF
升级会员 