zoukankan      html  css  js  c++  java
  • delphi 连接数据库

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, DB, ADODB, ExtCtrls;

    type
      TForm1 = class(TForm)
        ADOConnection1: TADOConnection;
        Button1: TButton;
        Edit1: TEdit;
        GroupBox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        user: TEdit;
        pass: TEdit;
        database: TEdit;
        port: TEdit;
        rlogin: TButton;
        Button2: TButton;
        Label5: TLabel;
        ip: TEdit;
        top: TPanel;
        procedure dbconn();
        procedure mshow(str:string);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure rloginClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.dbconn;
    begin
    try
    adoconnection1.Connected:=false;
    adoconnection1.Close;
    adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+user.Text+';Initial Catalog='+database.Text+';Data Source='+ip.Text+','+port.Text+';password='+pass.Text;
    adoconnection1.Connected:=true;
    rlogin.Enabled:=true;
    except
    rlogin.Enabled:=false;
    mshow('连接数据库出现错误!!');
    end;
    end;
    procedure TForm1.mshow(str:string);
    begin
    showmessage(str);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    mshow(Edit1.text);
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    DBconn();
    end;
    procedure TForm1.rloginClick(Sender: TObject);
    begin
    try
    adoconnection1.Connected:=false;
    adoconnection1.Close;
    rlogin.Enabled:=false;
    except
    showmessage('断开数据库连接时出现错误!!');
    end;
    end;

    end.

  • 相关阅读:
    有点成熟的短句,最新个性签名
    ACM2039_三角形三边关系
    Android 绘制中国地图
    Opengl-法线贴图(用来细化表面的表现表现的凹凸)
    Go的sync
    Laravel Study(使用 Laravel )
    对于宅男来说,硬盘里的数据就是命
    设计模式之模板方法模式
    游戏掉落道具掉落
    NEWMING
  • 原文地址:https://www.cnblogs.com/smallmuda/p/1398065.html
Copyright © 2011-2022 走看看