L
lily_ch
Unregistered / Unconfirmed
GUEST, unregistred user!
unit MainFrame;
interface
uses
Windows, Messages,JPeg, RXGIF,SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, HTTPApp, DBWeb, Grids, ComCtrls, DBGrids,Shellapi,unDB;
type
TForm1 = class(TForm)
Notebook1: TNotebook;
Label1: TLabel;
Function StringGridShow(MyRs:TADOQuery;StrGrid:TStringGrid;OldNum:string;ColNum:Integer):string;
问题是:
Function StringGridShow中的第一个参数类型MyRs:TADOQuery,编译器报错:Undeclared identifier: 'TADOQuery'
这里我是想定义为另一个unit(UnDB) 中的TDataModule的TADOQuery类型,但不知在MainFrame里如何定义TADOQuery这个类。
interface
uses
Windows, Messages,JPeg, RXGIF,SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, HTTPApp, DBWeb, Grids, ComCtrls, DBGrids,Shellapi,unDB;
type
TForm1 = class(TForm)
Notebook1: TNotebook;
Label1: TLabel;
Function StringGridShow(MyRs:TADOQuery;StrGrid:TStringGrid;OldNum:string;ColNum:Integer):string;
问题是:
Function StringGridShow中的第一个参数类型MyRs:TADOQuery,编译器报错:Undeclared identifier: 'TADOQuery'
这里我是想定义为另一个unit(UnDB) 中的TDataModule的TADOQuery类型,但不知在MainFrame里如何定义TADOQuery这个类。