unt_database.pas

来自「煤矿行业采掘接替计划自动生成系统」· PAS 代码 · 共 47 行

unit Unt_DataBase;

interface

uses
  SysUtils, Classes, DB, ADODB, Forms, Dialogs;

type
  TFrm_dataBase = class(TDataModule)
    ADOC_Mining: TADOConnection;
    procedure connectdb;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_dataBase: TFrm_dataBase;

implementation

{$R *.dfm}

{ TFrm_dataBase }

procedure  TFrm_dataBase.connectdb;
var i:integer;
begin
  //图纸信息库
  ADOC_Mining.connected:=false;
  try
    ADOC_Mining.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;'
                                   +'Persist Security Info=False;Initial Catalog=MD';
    ADOC_Mining.connected:=true;
    for i:=0 to ADOC_Mining.DataSetCount-1 do
     if ADOC_Mining.DataSets[i].Tag=1
     then ADOC_Mining.DataSets[i].Open;
  except
   showmessage('动态演示数据库连接错误！');
   Application.Terminate;
  end;
end;

end.