📄 78533.htm
字号:
<html xmlns="http://www.w3.org/TR/xhtml1/strict"> <head> <title>天极网</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"></meta> <meta http-equiv="Pragma" content="no-cache"></meta> <meta http-equiv="expires" content="Mon,12 May 1998 00:36:05 GMT"></meta> <link rel="stylesheet" href="/xslimages/css/cpcw.css"></link> </head> <style>.nava { font-size: 9pt}.font1{font-size: 10.5pt}</style> <body bgcolor="#FFFFFF" topmargin="2"><table width="760" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td width="20%" rowspan="3" valign="top" align="center"><table width="95%" border="1" cellspacing="0" cellpadding="0" height="60" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF"><tr valign="middle" align="center"><td><div align="center"><span class="nava">天极硬件，新闻及时<br>资料详尽，敬请关注<br><a href="/33554432/35651584/yingjian.htm">www.myhard.com</a></span></div></td></tr></table></td><td width="57%" valign="bottom" rowspan="3" align="center"><div align="center"><script language="JavaScript" src="http://ad.cpcw.com/js/school.js"></script></div></td><td width="20%" valign="top" rowspan="3" align="center"><table width="95%" border="1" cellspacing="0" cellpadding="0" height="60" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF"><tr valign="middle" align="center"><td><div align="center"><span class="nava">好又多电子商务<br>让您一点动心<br><a href="http://www.hoyodo.com">www.hoyodo.com</a></span></div></td></tr></table></td></tr><tr></tr><tr></tr></table><table width="760" border="0" cellspacing="0" cellpadding="0" height="70" align="center"><tr><td width="145" valign="bottom" rowspan="3"><img src="/xslimages/content/logo.gif" width="140" height="60"></img></td><td colspan="3" width="100%" height="33" align="center"><a href="/" target="_blank">首页</a>| <a href="/33554432/36700160/news.htm" target="_blank">新闻中心</a>| <a href="/33554432/50331648/business.htm" target="_blank">企业中心</a>| <a href="/33554432/41943040/caijing.htm" target="_blank">财经中心</a>| <a href="/33554432/39845888/fashion.htm" target="_blank">时尚中心</a>| <a href="/33554432/35651584/yingjian.htm" target="_blank">硬件中心</a>| <a href="/33554432/34603008/school.htm" target="_blank">学习中心</a>| <a href="/33554432/37748736/game.htm" target="_blank">游戏中心</a>| <a href="/33554432/38797312/ziyuan.htm" target="_blank">资源中心</a>| <a href="http://www.hoyodo.com/" target="_blank">社区</a>| <a href="http://training.yesky.com/" target="_blank">网校</a></td></tr><tr><td colspan="3" width="78%" height="20" align="right"><b>中心栏目:<a href="http://www.mydown.com" target="_blank"><font color="#FF0000"><u>红辣椒软件下载</u></font></a></b><a href="http://soft.yesky.com" target="_blank"> 软件之窗 </a><a href="http://desktop.yesky.com" target="_blank">天极桌面网 </a><a href="http://art.yesky.com" target="_blank">美工教室 </a><a href="http://itdreamer.yesky.com" target="_blank">程序方舟 </a><a href="http://homepage.yesky.com" target="_blank">网页陶吧 </a><a href="http://safe.yesky.com" target="_blank">安全之路</a><a href="http://soft.yesky.com" target="_blank"></a></td></tr></table><table align="center" border="0" cellpadding="0" cellspacing="0" width="760"><tbody><tr bgcolor="#333333"><td colspan="2" height="1"></td></tr><tr><td bgcolor="#ff9900" height="16" valign="bottom" width="72%"><font color="#000000"><b><font color="#ffffff">学 习 中 心</font></b></font></td><td bgcolor="#6699cc" height="16" width="28%"><div align="center"><font face="Arial, Helvetica, sans-serif"><b><font color="#ffffff">N E T S C H O O L</font></b></font></div></td></tr><tr bgcolor="#333333"><td colspan="2" height="1"></td></tr></tbody></table><table align="center" border="0" cellpadding="0" cellspacing="0" width="760" bgcolor="#eeeeee"><td colspan="2" height="28"><div align="center"><a href="/33554432/34603008/34635776/34636800/34636832/schoolinverse1.htm" target="_blank"><font color="#000000">HTML</font></a><font color="#000000"> _</font><a href="/33554432/34603008/34635776/34636800/34636864/schoolinverse1.htm" target="_blank"><font color="#000000">JavaScript</font></a><font color="#000000"> _</font><a href="/33554432/34603008/34635776/34636800/34636928/schoolinverse1.htm" target="_blank"><font color="#000000">CSS</font></a><font color="#000000"> _ <a href="/33554432/34603008/34635776/34637824/34637952/schoolinverse1.htm" target="_blank"><font color="#000000"> PHP </font></a><font color="#000000"> _ </font></font><a href="/33554432/34603008/34635776/34637824/34637888/schoolinverse1.htm" target="_blank"><font color="#000000">ASP</font></a><font color="#000000"> _</font><a href="http://www.yesky.com/33554432/34603008/34635776/34637824/34637920/schoolinverse1.htm" target="_blank"><font color="#000000">Perl</font></a><font color="#000000"> _</font><a href="/33554432/34603008/34635776/34638848/34638880/schoolinverse1.htm" target="_blank"><font color="#000000">Dreamweaver</font></a><font color="#000000"> _</font><a href="/33554432/34603008/34635776/34639872/34639904/schoolinverse1.htm" target="_blank"><font color="#000000">XML</font></a><font color="#000000"> _</font><a href="http://www.yesky.com/33554432/34603008/34734080/schoolinverse2.htm" target="_blank"><font color="#000000">病毒</font></a><font color="#000000"> _</font><a href="http://www.yesky.com/67108864/68157440/68419584/inverse2.htm" target="_blank"><font color="#000000">程序开发</font></a><font color="#000000"> _</font><a href="http://www.yesky.com/33554432/34603008/34799616/34800640/schoolinverse1.htm" target="_blank"><font color="#000000">Email</font></a><font color="#000000"> _</font><a href="http://www.yesky.com/33554432/34603008/34897920/34898944/schoolinverse1.htm" target="_blank"><font color="#000000">Windows 9x</font></a><font color="#000000"> _</font><a href="/33554432/34603008/34897920/34900992/schoolinverse1.htm" target="_blank"><font color="#000000">Linux</font></a><font color="#000000"> _</font><a href="/33554432/34603008/34963456/34966528/schoolinverse1.htm" target="_blank"><font color="#000000">WPS</font></a><font color="#000000"> _</font><a href="http://www.yesky.com/33554432/34603008/34963456/34964480/schoolinverse1.htm" target="_blank"><font color="#000000">Word</font></a></div></td></table><table width="760" border="0" cellspacing="0" cellpadding="0" height="30" align="center"><tr><td align="left" valign="bottom"><span class="nava"><span class="nava"><a href="/index.htm">首页</a>→ <a href="/33554432/34603008/school.htm">学习中心</a>→ <a href="/33554432/34603008/34668544/schoolinverse2-pro.htm">程序方舟</a>→ <a href="/33554432/34603008/34668544/34672640/schoolinverse2.htm">技巧经验</a>→ <a href="/33554432/34603008/34668544/34672640/34672672/schoolinverse1.htm">DELPHI技巧</a>→ </span></span></td><td width="2%"></td></tr></table><table width="760" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td colspan="3" valign="top" width="75%"><table width="98%" border="0" cellspacing="1" cellpadding="1" bgcolor="#000000"><tr bgcolor="#FFFFFF"><td width="100%" colspan="4" align="left"><table width="95%" align="center"><tr><td class="font1"><p align="center"><br><font size="3">Delphi数据库开发及统计表格设计</font><br><span class="nava"><font color="#CC9933">2000-06-10· -·中国计算机报社</font></span></p><p> Delphi是Borland公司开发的基于PASCAL语言的Windows平台应用程序开发工具，它将可视化编程(Visual Programming)与面向对象(Object-Oriented)的卓越优点结合在PASCAL语言开发平台上，而且同时可以支持Client/Server模式的SQL数据库访问与ODBC（开发数据库互连），是一个真正面向对象的开发工具。<br> <br> Delphi最吸引人的特点是它的强大的数据库访问能力，它主要通过使用数据库引擎(Borland Database Engine，简称BDE)来访问本地数据库和远程数据库。但对于用户而言，不必直接编程访问BDE，而只需通过采用窗体(FORM)和大量方便且实用的数据库访问元件(Component)来实现，通过ReportSmith报表生成器可以生成多种随心所欲的报表。<br> <br> 但是，用ReportSmith制作的各类报表，只便于输出至打印机上打印出来，若想把报表在屏幕上显示，则还需调用ReportView。而ReportView窗口界面对不太懂Delphi和Windows操作的普通用户来说，不直观，也不易操作。如何制作并在屏幕上显示出直观的二维统计报表，这是本文所要阐述的主要问题。<br> <br> 以表格形式显示数据库内容一般地采用下面两种方式：<br> ●纵向列表（如图1）<br> ●交叉统计列表（如图2）<br> <br> <strong><br> 一、纵向列表<br> </strong> Delphi可以用TDBGRID控件，以表格形式非常方便地显示单一或多数据库纵向列表。一般采用两种方法实现：<br> （一）采用TTable与Tdatasource、TDbgrid控件<br> 在窗体中引入上述三个控件，并在Ttable中控件指出要访问的数据库存放路径及数据库名，在Tdatasource控件中指出数据源与Ttable相连，在TDbgrid控件中指出显示Tdatasource数据源内容，程序运行后，则显示出如图1所示的数据库纵向列表。<br> 该种方法一般用来显示单数据库表格或一对多两个数据库表格。<br> <br> （二）采用TQuery与Tdatasource、TDbgrid控件</p> <p><br> 同样，在窗体中引入上述三个控件，并在TQuery控件中用SQL语句给出对有关数据库的查询，在Tdatasource控件中指出数据源与TQuery相连，在TDbgrid控件中指出显示查询的结果。程序运行后，则显示出如图1所示的数据库纵向列表。<br> 该种方法一般用于两个以上的多数据库查询。 <br> 在TQuery控件中建立SQL查询有两种方法，一种是在程序设计阶段使用SQL查询，即为静态查询，第二种是在程序运行阶段使用SQL查询，即为动态查询。<br> 1. 静态查询 在编写程序时，在窗体中放置Tquery元件，并设置对象名称，如Query1。使用Delphi对象检测器Object，双击Query 1对象的SQL属性，则激活SQL语句输入框，根据要求输入SELECT语句。当程序运行后，则显示出数据库纵向列表。静态查询比较简单，但实用性差。对于较复杂的查询，一般采用动态查询。 <br> 2. 动态查询同样，在编写程序时，在窗体中放置TQUERY元件，并设置对象名称，如Query 1。在相关的事件函数中输入SQL语句，例如：</p> <p> WITH QUERY 1 DO<br> BEGIN<br> SQL.CLEAR;<br> SQL.ADD('SELECTDW,COUNT(DW)FROM B_BASETJ F,B_INFO E');<br> SQL.ADD('WHERE F.”SHBZCODE”=E.”SHBZCODE”GROUP BY DW');<br> OPEN;<br> END;<br> <br> 当程序运行后，由某一事件激发，则显示出查询结果纵向列表。<br> <br> <strong><br> 二、交叉统计列表<br> </strong> 在Delphi环境下，无论用上述哪种方法制作数据库纵向列表，都是相对容易的。但要生成如图2所示二维统计报表，则并非易事。<br> 下面以笔者开发的《社会养老保险管理系统－－统计管理》中的一段程序为例，详细说明图2所示交叉统计列表的制作。<br> <br> （一）调用数据库B_BASETJ.DB和B_INFO.DB<br> 上述两数据库的结构分别为：<br> B_BASETJ.DB B_INFO.DB</p> <table width="587" border="0" cellspacing="1" cellpadding="0" bgcolor="6699cc"> <tr> <td>字段名</td> <td>字段类型</td> <td>字段长度 </td> <td>字段名</td> <td>字段类型</td> <td>字段长度</td> </tr> <tr bgcolor="#FFFFFF"> <td>dw</td> <td>a</td> <td>4（单位代码）</td> <td>shbzcode</td> <td>a</td> <td>21（社会保障号码）</td> </tr> <tr bgcolor="#FFFFFF"> <td>shbzcode</td> <td>a</td> <td>21（社会保障号码）</td> <td>attribution</td> <td>a</td> <td>10（工作属性）</td> </tr> <tr bgcolor="#FFFFFF"> <td>cadre_zw</td> <td>a</td> <td>4（干部职务）</td> <td>sex</td> <td>a</td> <td>2（性别）</td> </tr> </table> <p> 在B_INFO.DB数据库中存放着各人的基本情况，其中ATTRIBUTION字段包含固定工、农民合同工等工作属性；CADRE_ZW字段包含干部职务，若该字段内容为空，则表示为工人。<br> <br> （二）窗口界面设计及各组件属性说明<br> 用到的重要组件及其属性如下：<br> QYERYTB1:TQUERY;{指明SQL的存取元件名为QUERYTB1}<br> DataSourceTB1:Tdatasource;{指明与TQUERY相连的数据源为DatasourceTB1}<br> Datasourcename=DataSourceTB1<br> Dataset=QYERYTB1<br> SG11:TstringGrid;{字符型二维数据表格}<br> BTNEXIT:Tbutton;{取消按钮}<br> <br> （三）程序代码及其分析<br> 程序中主要通过使用TStringGrid和TQUERY控件来生成交叉统计列表。其中TStringGrid控件以二维网格形式显示字符型数据表格，CELL[I,K]为表格中的一个数据单元，K为行号，I为列号，K、I的起始值为0；TQUERY控件的作用是利用SQL语句统计出表格中某一列数据，如图2表格中共有6列，则需6次调用TQUERY。<br> <br> 本程序还设置了公共程序段procedure COL(var I,k:INTEGER)，这一子程序将被多次调用，用于填写表格中某一列数据。<br> 主要程序代码如下： <br> unit T1; <br> interface <br> uses</p> <blockquote> <p> SysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls,Forms,Dialogs,<br> StdCtrls,ExtCtrls,Grids,DB,DBTables, DBGrids,Report;</p> </blockquote> <p> type<br> TT1FORM=class(TForm)<br> BTNEXIT:TButton;<br> SG11:TStringGrid;<br> Labell:TLabel;<br> QueryTB1:TQuery;<br> DataSourceTB1:TDataSource;<br> procedure FormCreate(Sender:TObject);<br> procedure BTNEXIT Click(Sender:TObject);<br> private<br> PROCEDURE COL(VAR I,K:INTEGER);<br> PROCEDURE CC(VAR I,K:INTEGER);<br> {Private declarations}<br> public<br> {Public declarations}<br> end;<br> <br> var<br> T1FORM:TT1FORM;<br>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -