data_sim.~pas

来自「短信猫收发短信的程序,通过串行口收发短信.其结构是趋向短信查询自动回传短信的系统」· ~PAS 代码 · 共 77 行

unit data_sim;

interface

uses
  w_main,SysUtils, Classes, DB, ADODB;

type
  Tsim_data = class(TDataModule)
    ADOConnection1: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
    procedure ADOConnection1BeforeConnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sim_data: Tsim_data;

implementation

{$R *.dfm}

procedure Tsim_data.DataModuleCreate(Sender: TObject);
var
   connect_str:string;
   data_set_str:array[0..50] of Char;
begin
   if not FileExists(programpath+'sim.ini') then exit;

   connect_str:='Provider=SQLOLEDB.1;Password=';
   data_set_str:='' ;

   GetPrivateProfileString('data_set','pass','',data_set_str,100,pchar(programpath+'sim.ini'));
   connect_str:=connect_str+ data_set_str +';Persist Security Info=True;User ID=' ;

   GetPrivateProfileString('data_set','username','',data_set_str,100,pchar(programpath+'sim.ini'));
   connect_str:=connect_str+ data_set_str +';Initial Catalog=';

   GetPrivateProfileString('data_set','data_name','',data_set_str,100,pchar(programpath+'sim.ini'));
   connect_str:=connect_str+ data_set_str +';Data Source=';

   GetPrivateProfileString('data_set','data_host_ip','',data_set_str,100,pchar(programpath+'sim.ini'));
   connect_str:=connect_str+ data_set_str    ;

   ADOConnection1.ConnectionString:=connect_str ;
end;

procedure Tsim_data.ADOConnection1BeforeConnect(Sender: TObject);
var
   connect_str:string;
   data_set_str:array[0..50] of Char;
begin
  if not FileExists(programpath+'sim.ini') then exit;

   connect_str:='Provider=SQLOLEDB.1;Password=';
   data_set_str:='' ;

   GetPrivateProfileString('data_set','pass','',data_set_str,100,pchar(programpath+'sim.ini'));
   connect_str:=connect_str+ data_set_str +';Persist Security Info=True;User ID=' ;

   GetPrivateProfileString('data_set','username','',data_set_str,100,pchar(programpath+'sim.ini'));
   connect_str:=connect_str+ data_set_str +';Initial Catalog=';

   GetPrivateProfileString('data_set','data_name','',data_set_str,100,pchar(programpath+'sim.ini'));
   connect_str:=connect_str+ data_set_str +';Data Source=';

   GetPrivateProfileString('data_set','data_host_ip','',data_set_str,100,pchar(programpath+'sim.ini'));
   connect_str:=connect_str+ data_set_str    ;

   ADOConnection1.ConnectionString:=  connect_str ;
end;

end.