《图书管理系统2003.8.7.pptVIP

Vb连接到数据库userdb 添加好相应代码，先按照上述步骤引入ado，通过ado属性实现连接 在左侧控件中选择ado，放到窗体中，右击ado选择属性-----选择使用连接字符串----生成----选择microsoft OLEDB Provider FOR SQL Server----下一步------连接或输入服务器名称（输入.）----输入登录服务器信息（选择windows NT 集成安全设置）-----选择相应数据库----测试连接----成功 数据库保存 数据库文件进行保存，然后可以通过附加数据库日志文件MDF进行导入 运行成功 输入相应的一条记录，进行添加，然后到数据库中查询，用SELECT，或者返回所有行，就可以查到 显示信息表部件添加 添加部件---datagrid,即显示信息的表格 此窗体就是在6窗体上操作的，为6窗体添加按钮产生的子窗体。 模仿人事工资管理系统 1.模仿界面 2.模仿名称，所有控件的名称 3.模仿代码 4.模仿连接，从界面连接到数据库 5.模仿模块以及模块代码 6.复制数据库 窗体具体说明 修改口令界面具体属性不用更改就可以了 修改密码 form10 设置MDIChild —— True BorderStyle FixedSingle text2.passwordChar * 添加Adodc控件 设置Adodc1连接 右击|ADODC属性 使用ODBC数据源名称 —— userdb 设置Adodc1属性 Visible:false 主窗体 Private Sub 修改密码_Click() Form10.Show End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 修改密码 form10 Private Sub Command1_Click() Adodc1.RecordSource = select 密码 from 表1 where 用户名= Text1.Text Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox 用户名不存在。 Exit Sub End If Adodc1.Recordset.MoveFirst Adodc1.Recordset.Fields(密码).Value = Text2.Text Adodc1.Recordset.Update MsgBox Text1.Text 的密码已修改。 Text1.Text = Text2.Text = End Sub Private Sub Command2_Click() Unload Me End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 工程 | 添加模块 Public un As String Public pw As String 在form1的Command1_Click过程最后添加 un=Adodc1.Recordset.Fields(用户名).Value pw=Adodc1.Recordset.Fields(密码).Value 在MDIform1的 修改密码_Click 过程开头添加 if un管理员 then msgBox 对不起，您不是管理员。 exit sub end if Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 修改用户名form11、用户一览form12 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 修改用户名 form11 设置MDIChild —— True BorderStyle FixedSingle text3.passwordChar * 添加Adodc控件 设置Adodc1连接 右击|ADODC属性 使用ODBC数据源名称 —— userdb 设置Adodc1属性 Visible:false 主窗体 Private Sub