main.~pas

学员管理的软件

unit Main;

interface

uses
  SysUtils, Classes, DB, ADODB,inifiles;

type
  TDataModule2 = class(TDataModule)
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    AQ1: TADOQuery;
    aq2: TADOQuery;
    aq3: TADOQuery;
    report_aq: TADOQuery;
    aq4: TADOQuery;
    procedure ADOConnection1BeforeConnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.ADOConnection1BeforeConnect(Sender: TObject);
var
myfile:Tinifile;
ipstr,namestr:string;
name,pass:string;
begin
myfile:=Tinifile.Create('myfile.ini');
ipstr:=myfile.ReadString('db_set','ipaddress','127.0.0.1');
namestr:=myfile.ReadString('db_set','db_name','exam');
name:=myfile.ReadString('db_set','name','sa');
pass:=myfile.ReadString('db_set','pass','');
adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;';
adoconnection1.ConnectionString:=adoconnection1.ConnectionString+'User ID='+name+';password='+pass+';Initial Catalog='+namestr+';Data Source='+ipstr;
end;

end.