project1.~dpr

来自「delphi实现oracle数据的导入导出」· ~DPR 代码 · 共 35 行

program Project1;

uses
  Forms,
  ADODB,
  Qdialogs,
  Unit1 in 'Unit1.pas' {Form1},
  MyDec in 'MyDec.pas';

{$R *.res}

begin
  Application.Initialize;
  try
    MyConn:=TAdoConnection.Create(Application);
    MyConn.CommandTimeout:=5;
    MyConn.CursorLocation:=clUseServer;
    MyConn.Provider:='MSDAORA';
    Myconn.LoginPrompt:=False;
    MyConn.ConnectionString:='';
    MyConn.Open('zx_dba','111');
    MyCmd:=TAdoCommand.Create(Application);
    MyTab:=TAdoTable.Create(Application);
    adoquery1:=TAdoquery.Create(Application);
    MyCmd.Connection:=MyConn;
    MyTab.Connection:=MyConn;
    adoquery1.Connection:=MyConn;
  except
    ShowMessage('与数据中心连接失败,请检查网络。');
    Application.Terminate ;
  end ;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.