zoukankan      html  css  js  c++  java
  • dac oracle

    unit Unit1;
    
    interface
    
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
      FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
      FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Stan.Param,
      FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Vcl.StdCtrls, Vcl.Grids,
      Vcl.DBGrids, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
      FireDAC.Phys.OracleDef, FireDAC.VCLUI.Wait, FireDAC.Comp.UI,
      FireDAC.Phys.Oracle;
    
    type
      TForm1 = class(TForm)
        con1: TFDConnection;
        FDQuery1: TFDQuery;
        ds1: TDataSource;
        dbgrd1: TDBGrid;
        btn1: TButton;
        FDPhysOracleDriverLink1: TFDPhysOracleDriverLink;
        FDGUIxWaitCursor1: TFDGUIxWaitCursor;
        btn2: TButton;
        procedure btn1Click(Sender: TObject);
        procedure btn2Click(Sender: TObject);
    
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    
    procedure TForm1.btn1Click(Sender: TObject);
    begin
    
       con1.Params.Add('DriverID=Ora');
      con1.Params.Add(
      'Database=(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP) '
      +'(HOST = my-THINK)(PORT = 1521)))(CONNECT_DATA = (SERVER = DEDICATED)'
      +'(SERVICE_NAME = dcsxxuat)))');
      con1.Params.Add('User_Name=sales_xxdcs');
      con1.Params.Add('Password=sales_xxdcs');
      con1.Params.Add('CharacterSet=UTF8');  //否则中文乱码
      con1.Connected := True;
      FDQuery1.Open('select * from tm_user');
    
    end;
    
    
    {
    
    DCSUAT =
      (DESCRIPTION =
        (ADDRESS = (PROTOCOL = TCP)(HOST = my-THINK)(PORT = 1521))
        (CONNECT_DATA =
          (SERVER = DEDICATED)
          (SERVICE_NAME = dcsxxuat)
        )
      )
    
    }
    
    procedure TForm1.btn2Click(Sender: TObject);
    begin
      with con1.Params do
      begin
        Add('DriverID=Ora');
        Add('Database=127.0.1:1521/dcsxxuat');
        Add('User_Name=sales_xxdcs');
        Add('Password=sales_xxdcs');
        Add('CharacterSet=UTF8'); // 否则中文乱码
      end;
      con1.Connected := True;
      FDQuery1.Open('select * from tm_fix_code');
    end;
    
    end.
    书搞进脑袋 创新 创造; 积极
  • 相关阅读:
    cube.js 上下文实践的一些说明
    sitespeed.io 开源web 性能监控&&优化工具集
    sideway/joi js 强大的data schma 校验框架
    cube.js 最新版本的一些特性
    cube.js 支持的类型以及格式化
    cube.js 多租户模式使用一个说明
    airbyte 基于singer 扩展的EL 平台
    cube.js dimensions 的一些说明
    cube.js measures 的一些说明
    cube.js 上下文变量
  • 原文地址:https://www.cnblogs.com/tobetterlife/p/12171207.html
Copyright © 2011-2022 走看看