zoukankan      html  css  js  c++  java
  • Delphi用ini文件连接数据库

    CS数据库连接-delphi+ini
    chinayaosir

    {delphi connection database with ini file}
    unit DataModule;

    interface

    uses
      SysUtils, Classes, DB, ADODB,INIFiles;
    type
      TDataModule1 = class(TDataModule)
      ADOConnection1: TADOConnection;
      procedure DataModuleCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      DataModule1: TDataModule1;

    implementation
    {$R *.dfm}
    {
    db.ini file
    [connect]
    servername=192.168.1.2
    database=MRCRM
    UserID=sa
    Password=crm202.*-+ok
    ---------------------------------------------------
    ado connection string
    ADOConnection1.Close;
    ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=True;'+
    'User ID=sa;Password=crm202.*-+ok;Initial Catalog=CRM;Data Source=192.168.1.2';
    ADOConnection1.Open;
    }

    procedure TDataModule1.DataModuleCreate(Sender: TObject) ;
    var
    inifile :TINIFile;
    inipath,connstr:String;
    ServerName,DbName,UserName,Pwd:String;
    begin
      inipath:='db.ini';
      {ExtractFilePath(Application.ExeName)+'/db.ini' ;}
      inifile:=TIniFile.Create(inipath);
      try
        ServerName  := inifile.ReadString('connect','servername','');
        DbName      := inifile.ReadString('connect','database','');
        UserName    := inifile.ReadString('connect','UserID','');
        Pwd         := inifile.ReadString('connect','Password','');
      finally
        inifile.Free;
      end;      //end try

      try
        connstr:='Provider=SQLOLEDB.1;'+
        'Persist Security Info=False;'+
        'Auto Translate=True;'+
        'Data Source='+ServerName+';'+
        'Initial Catalog='+DbName+';'+
        'User ID='+UserName+';'+
        'Password='+PWD;
        ADOConnection1.Close;
        ADOConnection1.ConnectionString:=connstr;
        ADOConnection1.Open;
      except
        //ShowMessage('init database fail,pls check!');
      end;     //try end

    end;     //procedure end

    end.  //program end

     
     
    好的代码像粥一样,都是用时间熬出来的
  • 相关阅读:
    USACO 2017 US Open Contest Gold T1: Bovine Genomics
    自己瞎调的一些曲子
    NOIP前要干的一些事
    【[BJOI2018]链上二次求和】
    【MdOI2020】Path
    【[SDOI2018]旧试题】
    [IOI2018]werewolf狼人
    洛谷p5444 [APIO2019]奇怪装置
    洛谷p4211 [LNOI2014] LCA
    洛谷P2805 [NOI2009] 植物大战僵尸
  • 原文地址:https://www.cnblogs.com/jijm123/p/13769627.html
Copyright © 2011-2022 走看看