Category

Development Platform
Home > E-Books > Visual C++ Books > View Code
Unit1.cpp
Package: C++Builder.rar　[view]
Upload User: lhxd_sz
Upload Date: 2014-10-02
Package Size: 38814k
Code Size: 2k
Category:

Visual C++ Books

Development Platform:

C++ Builder

Unit1.cpp：Code Content
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <registry.hpp>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::Button1Click(TObject *Sender)
  19. {
  20.   AnsiString DataSourceName,FileName,WinSysDir;
  21.   TRegistry *rg;
  22.   char buff[MAX_PATH];
  23. //Get WinSysDir
  24.   GetSystemDirectory(buff,MAX_PATH);
  25.   WinSysDir=buff;
  26.   rg=new TRegistry();
  27. //ODBC Config
  28.   DataSourceName=Edit1->Text.Trim();
  29.   FileName=Edit2->Text.Trim();
  30. //
  31.   rg->RootKey=HKEY_CURRENT_USER;
  32.   rg->OpenKey("\Software\ODBC\ODBC.INI\"+DataSourceName,True);
  33.   rg->WriteString("Driver",WinSysDir+"\odbcjt32.dll");
  34.   rg->WriteString("DBQ",FileName);
  35.   rg->WriteString("Description","Access Data Demo");
  36.   rg->WriteInteger("DriverId",0x00000019);
  37.   rg->WriteString("FIL","MS Access;");
  38.   rg->WriteInteger("SafeTransactions",0);
  39.   rg->WriteString("UID","");
  41.   rg->OpenKey("\Software\ODBC\ODBC.INI\"+DataSourceName+"\Engines\Jet",True);
  42.   rg->WriteString("ImplicitCommitSync","");
  43.   rg->WriteInteger("MaxBufferSize",0x00000800);
  44.   rg->WriteInteger("PageTimeout",0x00000005);
  45.   rg->WriteInteger("Threads",0x00000003);
  46.   rg->WriteString("UserCommitSync","Yes");
  48.   rg->OpenKey("\Software\ODBC\ODBC.INI\ODBC Data Sources",True);
  49.   rg->WriteString(DataSourceName,"Microsoft Access Driver (*.mdb)");
  50. //
  51.   rg->CloseKey();
  52.   rg->Free();
  53. }
  54. //---------------------------------------------------------------------------
  56. void __fastcall TForm1::Button2Click(TObject *Sender)
  57. {
  58.   if(OpenDialog1->Execute())
  59.   {
  60.     Edit2->Text=OpenDialog1->FileName;
  61.   }
  62. }
  63. //---------------------------------------------------------------------------