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
uses global;
{$R *.dfm}

procedure TDataModule2.ADOConnection1BeforeConnect(Sender: TObject);
var
ipstr,namestr:string;
name,pass:string;
begin
ipstr:=global.ip;
namestr:=global.db_initcat;
name:=global.db_name;
pass:=global.db_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.