SQL_server基础教程(第二版) 教学课件 ppt 作者 董翔英 习题解答代码与附录new_book_2008(1106)系统代码.docVIP

PAGE 52 PAGE 1 交通运输管理系统程序代码（见资源网站） unit data1 interface uses SysUtils, Classes, DB, ADODB; type TDataModule1 = class(TDataModule) ADOConnection1: TADOConnection; ADOlogin: TADOQuery; Datauserlist: TDataSource; ADOuserlist: TADOQuery; ADOpassword: TADOQuery; ADOjsy: TADOQuery; Datajsy: TDataSource; ADOcl: TADOQuery; cl: TDataSource; ADOxc1: TADOQuery; Dataxc1: TDataSource; private { Private declarations } public { Public declarations } end; var DataModule1: TDataModule1; implementation {$R *.dfm} end. —————————————————— unit Main