图书管理系统2003-8-7.pptxVIP

制作图书管理系统;“用户”数据库(userdb);企业管理器----新建数据库 新建表，设置主键 打开表，填写具体用户名和密码;登录;直接在窗体上添加label，text，commandbtn ，通过更改caption，显示相应文字 双击添加的控件，生成代码，在相应的位置添加相应的代码 登录窗体设置为启动窗体，在工程上右击-- ----设置为启动;工程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();“图书管理”数据库(bookdb);数据库保存;主窗体;工程—添加MDI窗体-----菜单编辑器 Caption是图书管理;添加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 制作菜单;图书信息 图书信息输入图书信息修改图书信息删除图书信息查询 图书管理 购书借书还书 查询藏书 报表打印 图书信息报表藏书情况报表 用户设置 修改密码 修改用户名 系统 帮助版权退出; 子菜单就是菜单编辑器向右方向箭头，点击1次是2级，;图书信息输入form2;工程-----添加窗体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;主窗体 Private Sub 图书信息修改_Click() Form3.Show End Sub 图书信息修改form3 Private Sub Command1_Click() Adodc1.Recordset.Update End Sub Private Sub Command2_Click() Adodc1.Recordset.CancelUpdate Adodc1.Refresh Unload Me End Sub;图书信息删除form4;图书信息删除form4 设置MDIChild —— True BorderStyle FixedSingle 添加Adodc控件 设置Adodc1连接右击|ADODC属性 使用ODBC数据源名称—— bookdb 记录源——命令类型：2 – adCmdTable表或存储过程名称：图书信息 设置Adodc1属性 Adodc1.Caption=图书信息 文本框： DataSource属性—— Adodc1 DataField属性—— 书号、书名、作者、出版社、价格;主窗体 Pr