welcomepicture.~pas

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

unit WelcomePicture;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
   AllDatalist1:TStringList;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 uses DBConnection,LoginDailog ;
{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
servername,databasename:string;
begin
    form1.Hide;
    AllDatalist1:=Tstringlist.Create;
   if not fileExists('.\Connection_data.dat') then
   begin
    DBConnection.Form9.Show;
    end
    else
    begin
       AllDatalist1.LoadFromFile('.\Connection_data.dat');
       servername:=alldatalist1.Strings[0];
       databasename:=alldatalist1.Strings[1];
       with form1.ADOConnection1 do
       begin
       connectionstring:='Provider=SQLOLEDB.1; Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+databasename+';Data Source='+serverName;
//       Try
//          Try
             ADOConnection1.Connected:=True;
//             Messagebox(Handle,'连接成功。','提示',MB_OK or MB_ICONINFORMATION);
//          except
//             Messagebox(Handle,Pchar('连接['+ServerName+']失败！'),'警告',MB_OK or MB_ICONWARNING);
//          end;
//       Finally
//           ADOConnection1.Connected:=False;
//       end;
    end;
       form2.Show;
    end;
    WelcomePicture.Form1.Hide;
    timer1.Enabled:=false;
end;

end.