图书管理系统2003.8的.7.pptVIP

制作图书管理系统;“用户”数据库(userdb);;登录;;工程1 登录窗体form1 caption:登录 密码文本框PasswordChar属性 引入ADO 工程菜单|引用……（Microsoft ActiveX Data Objects 2.8 Library） 添加Adodc控件（ActiveX控件） 工程菜单|部件……（Microsoft ADO Data Control 6.0（OLEDB）） 添加Adodc控件 设置Adodc1连接 右击|ADODC属性 使用ODBC数据源名称 —— userdb 设置Adodc1属性 Visible:false;Vb连接到数据库userdb;Private Sub Command1_Click() Adodc1.RecordSource = select * from 表1 where 用户名= Text1.Text Adodc1.Refresh If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then MsgBox 无该用户名 Text1.SetFocus Exit Sub End If If Text2.Text Adodc1.Recordset.Fields(密码).Value Then MsgBox 密码错误 Text2.SetFocus Exit Sub End If Text1.Text = Text2.Text = MsgBox 欢迎光临“ （Form1.Hide MDIForm1.Show）（因为界面是欢迎光临后进入到主窗体） End Sub Private Sub Command2_Click() End End Sub;“图书管理”数据库(bookdb);数据库保存;Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd.;主窗体;;添加MDI窗体 Caption —— 图书管理 WondowState Max Form1添加代码（command1_click） 在欢迎光临后添加 Form1.Hide MDIForm1.Show 运行时先进入到登陆窗体，然后进入到主窗体 MDI窗体 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Unload Form1 End Sub 制作菜单;图书信息 图书信息输入 图书信息修改 图书信息删除 图书信息查询 图书管理 购书 借书 还书 查询藏书 报表打印 图书信息报表 藏书情况报表 用户设置 修改密码 修改用户名 系统 帮助 版权 退出;;图书信息输入 form2;;图书信息输入 form2 设置MDIChild —— True BorderStyle FixedSingle 添加Adodc控件 设置Adodc1连接 右击|ADODC属性 使用ODBC数据源名称 —— bookdb 记录源——命令类型：2 – adCmdTable 表或存储过程名称：图书信息 设置Adodc1属性 Visible:false 文本框：直接点击相应的TEXT框，依次在属性中分别进行设置 DataSource属性 —— Adodc1 DataField属性 —— 书号、书名、作者、出版社、价格;主窗体 双击图书信息输入子菜单 Private Sub 图书信息输入_Click() Form2.Show End Sub 图书信息输入 form2 Private Sub Command1_Click() Adodc1.Recordset.Update End Sub Private Sub Command2_Click() Adodc1.Recordset.CancelUpdate Adodc1.Refresh Unload Me End Sub Private Sub Command3_Click() Adodc1.Recordset.AddNew End Sub Private Sub Form_Load() Adodc1.Recordset.AddNew End Sub;运行成功;图书信息修改 form3;图书信息修改 form3 设置MDIChild —— True BorderStyle FixedSingle 添加Adodc控件 设置A