【delphi开源代码栏目提醒】:本文主要为网学会员提供DataModu.pas,希望对需要DataModu.pas网友有所帮助,学习一下!
unit DataModu;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule1 = class(TDataModule)
ADOConnection1: TADOConnection;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
ADOConnection1.Connected := False;
ADOConnection1.Connected := True;
end;
end.
上一篇:
datamodal4.pas
下一篇:
计算机网络毕业论文