datamodule.cpp

来自「供销存软件」· C++ 代码 · 共 39 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM *DM;
//---------------------------------------------------------------------------
__fastcall TDM::TDM(TComponent* Owner)
        : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDM::DataModuleCreate(TObject *Sender)
{
        ADOC->Connected=false;
        AnsiString   dbFileName="\\saledb.mdb";
        AnsiString   dbPath=ExtractFileDir(Application->ExeName);
        AnsiString   ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;";
        ConnStr+="Password="";";
        ConnStr+="User ID=Admin;";
        ConnStr+="Data Source="+dbPath+dbFileName+";";
        ConnStr=ConnStr+"Extended Properties="";Persist Security Info=False;";
        ConnStr=ConnStr+"Jet OLEDB:System database="";Jet OLEDB:Registry Path="";";
        ConnStr=ConnStr+"Jet OLEDB:Database Password=123456;Jet OLEDB:Engine Type=5;";
        ConnStr=ConnStr+"Jet OLEDB:Database Locking Mode=1;";
        ConnStr=ConnStr+"Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;";
        ConnStr=ConnStr+"Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;";
        ConnStr=ConnStr+"Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;";
        ConnStr=ConnStr+"Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
        ADOC->ConnectionString=ConnStr;
        ADOC->Connected=true;
}
//---------------------------------------------------------------------------