📄 u_recordstruct.pas
字号:
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;
//记录总条数
RecordConut:String;
Implementation
End.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -