u_recordstruct.~pas

来自「SQL的应用」· ~PAS 代码 · 共 43 行

Unit U_RecordStruct;

Interface
Uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,
  ComCtrls,ToolWin,ExtCtrls,TeeProcs,TeEngine,Chart,DbChart,TeeFunci,Series,ImgList,
  StdCtrls,ADODB,DBGrids,ScktComp,jpeg,IdUDPServer,IdBaseComponent,IdComponent,
  IdUDPBase,IdUDPClient,idSocketHandle,ComObj,DBCtrls,DB,QuickRpt, QRCtrls,DBClient,
  Provider;

Const
  IniFileName='DBConfig.ini';//读配置文件
//  IniTableName='Table.ini';//读表文件
Var
  //数据库连接串
  DBConnectionString:String;
  //做一个全局变量，把所有的表明都传递给一个字符串
  DBTableName:String;
  //DBEdit数组
  DBEdit:array[0..50] of TDBEdit;
  //DBText标签
  DBText:array[0..50] of TDBText;
  //QRlabel数组
  QRLabel:array[0..50] of TQRlabel;
  //QRDBText标签
  QRDBText:array[0..50] of TQRDBText;
  //ADOConnection
  ADOCnt:TADOConnection;
  //ADODataSet
  ADOQry:TADOQuery;
  //ADODataSource
  DS:TDataSource;
  //
  ClientDS:TClientDataSet;
  //
  DataSetProvider:TDataSetProvider;
  //记录总条数
  RecordConut:String;

Implementation

End.