udm.~pas

在公司做的一个小的系统源代码

unit Udm;

interface

uses
  SysUtils, Classes, DB, ADODB,inifiles;

type
  Tdm = class(TDataModule)
    ADOConnection1: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;
  Gstrname:string;//用户名
  Gpwd:string;//密码
  Gserverid:string;
  gserveruser:string;
  gserverpwd:string;
  Gsyspath:string;
  Gsyserror:boolean=false;//无ini文件
  Gdberror:boolean=false; //连数据库出错
  Gjgmc:string;
  Gjgbm:string;
  gpower:string;
  gxiugaibz,gquerybz:boolean;

const
 Gsysname = '全省招标采购价格管理系统'; //messagebox的系统名称
 Gcntinfo = '网络无法连接,请检查网络情况！！'; //数据库的连接提示

implementation

{$R *.dfm}

procedure readini();
var
  config:Tinifile;
begin
  renamefile(Gsyspath+'\zbcg.sys',Gsyspath+'\zbcg.ini');
  config:=Tinifile.Create(Gsyspath+'\zbcg.ini');
  Gserverid:=config.ReadString('database','serverid','');
  gserveruser:=config.ReadString('database','username','');
  gserverpwd:=config.ReadString('database','pwd','');

 gjgbm:=config.ReadString('database','jgbm','');
 gjgmc:=config.ReadString('database','jgmc','');
  config.Free;
  renamefile(Gsyspath+'\zbcg.ini',Gsyspath+'\zbcg.sys') ;
end;
procedure Tdm.DataModuleCreate(Sender: TObject);
begin
 Gsyspath:=ExtractFileDir(paramstr(0));
  if not fileexists(Gsyspath+'\zbcg.sys') then
  begin
    Gsyserror:=true;
    abort;
  end;
  readini();
  ADOConnection1.Connected:=false;
  adoconnection1.ConnectionString:='';
  adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+gserverpwd
  +';Persist Security Info=True;User ID='+gserveruser
  +';Initial Catalog=pricedata;Data Source='+Gserverid;
  try
    adoconnection1.Connected:=true;
  except
    Gdberror:=true;

end;
  gxiugaibz:=false;
  gquerybz:=false;
end;

end.