date1.pas

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

unit date1;

interface

uses
  SysUtils, Classes, DB, ADODB, DBTables,inifiles,qforms,dialogs, ImgList,
  Controls;

type
  Tdata = class(TDataModule)
    ADOC1: TADOConnection;
    Aq1: TADOQuery;
    DataSource1: TDataSource;
    Query1: TQuery;
    DataSource2: TDataSource;
    pass: TQuery;
    passsource: TDataSource;
    aq2: TADOQuery;
    ADO3: TADOQuery;
    ImageList2: TImageList;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
  servername:string;
    { Public declarations }
  end;

var
  data: Tdata;

implementation

uses dataconfig;

{$R *.dfm}




procedure Tdata.DataModuleCreate(Sender: TObject);
var ini,iniw:tinifile;
     csstring,str,str1:ansistring;
     state:boolean;
begin
ini:=tinifile.Create(changefileext(application.ExeName,'.ini'));
state:=ini.ReadBool('database','connection',false);
if not state then
try
frm_config:=tfrm_config.Create(application);
frm_config.ShowModal;
except
on e:exception do
application.ShowException(e);
end;
csstring:='provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=';
str:=ini.ReadString('database','initial catalog','耗材管理');
csstring:=csstring+str;
str1:=ini.ReadString('database','data source','xgmpos2');
csstring:=csstring+';data source=';
csstring:=csstring+str1;
data.ADOc1.Connected:=false;
data.ADOc1.ConnectionString:=csstring;
try
data.ADOc1.Connected:=true;
//if  data.ADOc1.Connected=false then
  //  application.Terminate;
except
on e:exception do
application.ShowException(e);
//messagedlg('数据库连接错误',mterror,[mbyes],1);
//application.Terminate;
end;
iniw:=tinifile.Create(changefileext(application.ExeName,'.ini'));
state:=data.ADOc1.Connected;
ini.WriteBool('database','connection',state);

end;

end.