dm.pas

商品房合同套打程序

unit dm;

interface

uses
    SysUtils, Classes, DB, ADODB, Forms;

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

var
    DataModule2: TDataModule2;
    Currdir: string;
    sTablename: TStringlist;
    sSQL, sID: string;
implementation

{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
var
    MDBFILE: string;
const
    SQLSERVERNAME: string = 'XVJIE';
    SQLDBNAME: string = 'TD_DATA';
begin
    sTablename := TStringlist.Create;

    CURRDIR := ExtractFilePath(Application.ExeName);
    ADOConnection1.Close;
    MDBFILE := ExtractFilePath(Application.ExeName) + 'DATA.MDB';

    ADOConnection1.ConnectionString :=
        'Provider=Microsoft.Jet.OLEDB.4.0;' +
        'User ID=Admin;' +
        'Data Source=' + MDBFILE + ';' +
        'Mode=ReadWrite;Extended Properties="";' +
        'Persist Security Info=False;Jet OLEDB:System database="";' +
        'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";' +
        'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;' +
        'Jet OLEDB:Database Password="";' +
        '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';

{SQL
    ADOConnection1.ConnectionString :='Provider=SQLOLEDB.1;'+
        'Integrated Security=SSPI;Persist Security Info=False;'+
        'Initial Catalog='+SQLDBNAME +';Data Source='+SQLSERVERNAME ;}
    ADOConnection1.LoginPrompt := false;
    ADOConnection1.open;
    ADOConnection1.GetTableNames(sTablename, False);

end;

procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
    sTablename.free;
end;

end.