vb double显示最大精度_个人信息与对应照片同步显示系统开发

大家好，今天我们来讲一下如何在VB中与数据库连接来实现个人信息与照片的同步。

数据库知识回顾

1. VB与数据库开发三步走

2. 数据库登录功能如何实现？

3. VB与数据库编程常用的SQL语句总结

本程序的实现之前我们首先需要用到VB6.0软件和Access数据库。

要实现个人信息与本人照片的一一对应，我们必须要先提取出每个人的信息以及照片。那么如何实现呢？

我们用VB中提供的Adodc控件连接数据库，获取数据源后，在VB主界面窗体上添加 控件 实现与数据库表中的字段一一对应。

如下图所示，这样每个人的基本信息就提取出来了 。

接下来我们来分析如何获取磁盘中的对应图片来实现与个人信息的同步。

下面的图片是数据库表的基本信息，其后还有一个个人图片字段，里面对应每位同学的照片信息。

然后我们将照片字段的信息提取出来，与每个人的信息想对应，这样即可实现 下面的效果。

显示的信息还可以直接打印。

程序功能：

1、该程序与数据库相连接，同步实现了每条信息与照片的对应，解决了以前只能显示文字的弊端。

2、该程序可方便用于单位员工、学生信息等各种人员的管理，物品的管理等。

3、本程序中的图片为测试图片，具体人员照片信息在打印时可以直接换为1寸或者2寸照片的尺寸。

程序实现代码：

'本程序最大的难度是如何从数据库中获取到每位同学对应的图片信息，以及如何让其转化为图片地址显示出来

Dim A$

Private Sub Command1_Click()

Cd1.ShowPrinter

End Sub

Private Sub Command2_Click()

    End

End Sub

Private Sub Form_Click()

    Command1.SetFocus

    A = Adodc1.Recordset.Fields(6)

    Picture1.Picture = LoadPicture(App.Path & A)

End Sub

Private Sub Form_Load()

    Timer1.Enabled = True

    Text1.Locked = True

    Text2.Locked = True

    Text3.Locked = True

    Text4.Locked = True

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\打印数据库系统.mdb;Persist Security Info=False"

    Adodc1.CommandType = adCmdText

    Adodc1.RecordSource = "select * from 个人信息"

    Adodc1.Refresh

End Sub

大家在学习的过程中有学习问题，可以添加小编微信号：vbyjk521 ，小编提供在线解答。

---

---

长按上图，关注跟我学VB公众平台

提供VB学习答疑与考试的答疑

总结

以上是生活随笔为你收集整理的vb double显示最大精度_个人信息与对应照片同步显示系统开发的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。