dbconnection.~pas

本系统是一个基于delphi7环境开发的人事管理系统

unit DBConnection;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,WelcomePicture, StdCtrls, Grids, DBGrids, jpeg, ExtCtrls;

type
  TForm9 = class(TForm)
    server: TEdit;
    database: TEdit;
    connection: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    procedure connectionClick(Sender: TObject);
//    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
  AllDatalist:TStringList;
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation
uses LoginDailog;
{$R *.dfm}

procedure TForm9.connectionClick(Sender: TObject);
var
servername,databasename:string;
begin
  servername:=trim(server.Text);
  databasename:=trim(database.Text);
   with form1.ADOConnection1 do
   begin
    connectionstring:='Provider=SQLOLEDB.1; Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+databasename+';Data Source='+serverName;
     Try
        Try
           form1.ADOConnection1.Connected:=True;
           //Messagebox(Handle,'连接成功，请重启程序！','提示',MB_OK or MB_ICONINFORMATION);
           //application.Terminate;
            form9.Hide;
           LoginDailog.Form2.Show;
        except
              Messagebox(Handle,Pchar('连接['+ServerName+']失败！'),'警告',MB_OK or MB_ICONWARNING);
        end;
     Finally
            form1.ADOConnection1.Connected:=False;
     end;
    end;
    alldatalist:=Tstringlist.Create;
    alldatalist.Add(server.Text);
    alldatalist.Add(database.Text);
    alldatalist.SaveToFile('.\Connection_data.dat');
    FileSetAttr('.\Connection_data.dat',2);


end;



procedure TForm9.Button2Click(Sender: TObject);
begin
//showmessage('请重启程序');
//application.Terminate;
end;

end.