dbmrainbowmis.pas

来自「仓库管理系统 仓库管理系统」· PAS 代码 · 共 57 行

unit dbmRainbowMis;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ADODB;

type
  TdmRainbowMIS = class(TDataModule)
    dstmenu: TDataSource;
    adopos: TADOConnection;
    tbltmenu: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmRainbowMIS: TdmRainbowMIS;

implementation

{$R *.DFM}

procedure TdmRainbowMIS.DataModuleCreate(Sender: TObject);
var
  fst:string;
begin
  fst := ExtractFilePath(Application.ExeName);
  adopos.Connected:=false;
  adopos.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+
                           fst+'adata\suppos.mdb;Mode=Share Deny None;Extended Properties="";Jet'+
                           ' OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database'+
                           ' Password="sql";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet'+
                           ' OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet'+
                           ' OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet'+
                           ' OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet'+
                           ' OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
{  adopos.ConnectionString :='FILE NAME='+fst+'Adata\SUPPOS.UDL';}
  If Not adopos.Connected Then
    adopos.Connected:=True;
//  atbldefault.Open;
end;

procedure TdmRainbowMIS.DataModuleDestroy(Sender: TObject);
begin
  If adopos.Connected Then
    adopos.Connected:=False;
end;

end.