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

2016-02-19 20:55 7 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中显示多个数据库内容的一般方法,读者可在此基础上进行完善,使该方法更好地适应您的需要。

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

延伸阅读
数据库中的数据要最终显示给用户,就要使用数据约束控件,比如前面所使用的文本框以及VB所提供的其他普通约束数据控件,VB中还提供了多种高级约束数据控件,其中包括:高级约束数据网格控件(DBGrid)、高级约束列表控件(DBList)和高级约束组合框控件(DBCombo)。在默认的工具箱中,尚未加入这些控件,要使用它们,首先要先引用它们:右键点击工...
用数据库可以建立访问数据库的应用程序,这样的程序可以显示、编辑和更新各类已有的数据库中的信 息,包括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...

经验教程

372

收藏

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