unit testdbg;
uses 【程序编程相关:多层数据库开发二:单层和两层的应用程序 】
interface 【推荐阅读:多层数据库开发六:什么是数据集 】
windows, messages, sysutils, variants, classes, graphics, controls, forms, 【扩展信息:FAQ:如何从URL取得其在Intern】 dialogs, grids, dbgrids, db, adodb, stdctrls,types;type
tform1 = class(tform) dbg: tdbgrid; adoconnection1: tadoconnection; adotable1: tadotable; datasource1: tdatasource; procedure dbgdrawcolumncell(sender: tobject; const rect: trect; datacol: integer; column: tcolumn; state: tgriddrawstate); procedure dbgkeypress(sender: tobject; var key: char); procedure formcreate(sender: tobject); private { private declarations } public { public declarations } end;var
form1: tform1; implementation{$r *.dfm}
type ... 下一页