datamodule.~pas

来自「一个简单的图书管理信息系统」· ~PAS 代码 · 共 42 行

unit DataModule;

interface

uses
  Windows,SysUtils, Classes, DB, ADODB;

type
  TDataModuleADO = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModuleADO : TDataModuleADO;

  MyPath,MyPass : string;

implementation

uses Main;

{$R *.dfm}

procedure TDataModuleADO.DataModuleCreate(Sender: TObject);

begin

  ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=BookManage';

  ADOQuery1.Connection:=ADOConnection1;
  ADOTable1.Connection:=ADOConnection1;
end;

end.