unit3.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit Unit3;

interface

uses
  SysUtils, Classes, DB, ADODB,Windows, Messages,
     Variants,  Graphics, Controls, Forms,
  Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, ComCtrls, Menus,IniFiles;
type
  TDModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    Qry_Brow: TADOQuery;
    Qry_BrowTwo: TADOQuery;
    Tab_All: TADOTable;
    Tab_Insert: TADOTable;
    DS_Brow: TDataSource;
    Qry_Other: TADOQuery;
    Qry_New: TADOQuery;
    Qry_Map: TADOQuery;
    Qry_user: TADOQuery;
    Us_Brow: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DModule1: TDModule1;

implementation
uses unit1;
{$R *.dfm}

procedure TDModule1.DataModuleCreate(Sender: TObject);
var
  MyIniFile: TIniFile;
  Host1,username,password,DBname : string;
begin
  try
    if not FileExists(Form1.LocalPath + 'Train.ini')  then
    begin
      showmessage('数据库连接配置文件Train.ini 不存在，系统关闭');
      Application.Terminate;
    end;
    MyIniFile := TIniFile.Create(Form1.LocalPath + 'Train.ini');
    Host1 := MyIniFile.ReadString('Host','HostName','Local') ;
    Username := MyIniFile.ReadString('Host','Username','sa') ;
    password := MyIniFile.ReadString('Host','password','') ;
    DBname := MyIniFile.ReadString('Host','DBname','TestC');
    ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=True;User ID='+Username+';Initial Catalog='+DBname+';Data Source='+Host1+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False';
    MyIniFile.Free;
    ADOConnection1.Connected := true;
  except
    showmessage('数据库连接失败');
    Application.Terminate;
  end;
end;

end.