如何实现在一个Dbgrid中显示多数据库

2016-02-19 20:55 10 1 收藏

下面是个超简单的如何实现在一个Dbgrid中显示多数据库教程,图老师小编精心挑选推荐,大家行行好,多给几个赞吧,小编吐血跪求~

【 tulaoshi.com - 编程语言 】


  在数据库编程中,不必要也不可能将应用程序操作的所有数据库字段放入一个数据库文件中。正确的数据库结构应是:将数据库字段放入多个数据库文件,相关的数据库都包含一个唯一的要害字段,在多数据库结构里可以建立联系。
     例如:要编制一个人事治理程序,为简化演示程序,只建立两个数据库,每个数据库都只建立两个字段。
  
     个人简介 jianjie.dbf,由人事处维护;工资情况 gongzi.dbf,由财务处维护。
  
     一、数据库的建立
     进入DataBase Desktop,建立数据库结构如下:
     jianjie.dbf
     编号 字段名:bianhao size:4 type:number
     姓名 字段名:xingming size:10 type:character
  
     gongzi.dbf
     编号 字段名:bianhao size:4 type:number
     工资 字段名:gongzi size:4 Dec 2 type:number
  
     注重:两个数据库的bianhao字段的size、type必须一致。实际上,两数据库文件可以分布在网络的不同计算机上,为便于演示,分别存为″c:estjianjie.dbf″和″c:estgongzi.dbf″。
  
     二、应用程序的编制
     启动Delphi,新建一个工程,在窗体中加入Query控件Query1,databasename属性设为c:est;
     加入DataSource控件datasource1,DataSet属性设为Query1;加入DbGrid控件dbgrid1,DataSource属性设为DataSource1,将Query1.sql属性设为
     SELECT DISTINCT A.bianhao,a.xingming, b.gongzi
     FROM ″jianjie.dbf″ A, ″gongzi.DBF″ b
     WHERE A.bianhao=b.bianhao
  
     再将Query1.enabled属性设为True,不用编译,DbGrid1就会显示:bianhao,xingming,gongzi三个字段。假如jianjie.dbf和gongzi.dbf中有记录,则记录会显示出来。因篇幅所限,此文只介绍了Dbgrid中显示多个数据库内容的一般方法,读者可在此基础上进行完善,使该方法更好地适应您的需要。

来源:http://www.tulaoshi.com/n/20160219/1624844.html

延伸阅读
一直以来,ACCESS数据库中的申报数据在分公司与总公司之间传递,用EXCEL或DBASE、TXT甚至ACCESS等格式,我总觉得不太理想。最近看了一本书,不经意间发现了一个方法,使用ACCESS数据库生成申报数据与读入数据似乎简单了不少,特拿出来与大家分享。同时,也希望能得到更多的指点。 附上示例: Sub Mwrite() On Error GoTo thiserr Dim rs ...
用数据库可以建立访问数据库的应用程序,这样的程序可以显示、编辑和更新各类已有的数据库中的信 息,包括MicrosoftAccess、Btrieve、dBASE,Microsoft,FoxPro及Paradox等。同时,用数据控件可以像访问数据库一样访问MicrosoftExcel、Lotusl—2—3和标准ASCⅡ文本文件。此外,用数据控件还可以访问和操作远程的开放数据库互连(ODBC)数据库,...
标签: Web开发
import java.sql.*; import java.io.*; public class WriteDB {         public static void main(String[] args)  {         Connection conn=null;         String driver="com.mysql.jdbc.Driver...
Function CreatePassWordDB(strPathName As String, strPsd As String) As Boolean On Error GoTo Exit_ERR Dim wrkDefault As Workspace Dim NewDB As Database CreatePassWordDB = False Set wrkDefault = DBEngine.Workspaces(0) If Dir(strPathName) "" Then Kill strPathName Set NewDB = wrkDefault.CreateDatabase(strPathName...
Function CreatePassWordDB(strPathName As String, strPsd As String) As Boolean On Error GoTo Exit_ERR Dim wrkDefault As Workspace Dim NewDB As Database CreatePassWordDB = False Set wrkDefault = DBEngine.Workspaces(0) If Dir(strPathName) "" Then Kill strPathName Set NewDB = wrkDefault.CreateDatabase(strPathName...

经验教程

719

收藏

96
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部