connectdlg.~pas

湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的

unit connectdlg;

interface

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

type
  Tconnect = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    Timer1: TTimer;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit3Enter(Sender: TObject);
    procedure Edit4Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  connect: Tconnect;

implementation

uses frmmain;

{$R *.dfm}

procedure Tconnect.Button2Click(Sender: TObject);
begin

  Timer1.Enabled:=False;
  if messagedlg('确认退出小区管理系统吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
      application.Terminate;
  Close;

end;

procedure Tconnect.Button1Click(Sender: TObject);
 var
    scon:string;
begin
    scon:='provider=sqloledb.1;password='+edit4.Text
    +';persist security info=true;user id='+edit3.Text+';'
    +'initial catalog='+edit2.Text+';data source='+edit1.Text;
    adoconnection1.Connected:=false;
    adoconnection1.ConnectionString:=scon;
    adoconnection1.Connected:=true;
    close;


end;

procedure Tconnect.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
edit2.SetFocus;
end;

procedure Tconnect.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
edit4.SetFocus;
end;

procedure Tconnect.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
edit3.SetFocus;
end;

procedure Tconnect.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
button1.SetFocus;
end;

procedure Tconnect.Timer1Timer(Sender: TObject);
begin
   //FlashWindow(Application.Handle,True);  //闪烁项目一次
  FlashWindow(Handle,True);  //闪烁窗体一次
end;

procedure Tconnect.Edit1Enter(Sender: TObject);
begin
 Edit1.Color:=ClAqua;
end;

procedure Tconnect.Edit2Enter(Sender: TObject);
begin
  Edit2.Color:=ClAqua;
end;

procedure Tconnect.Edit3Enter(Sender: TObject);
begin
  Edit3.Color:=ClAqua;
end;

procedure Tconnect.Edit4Enter(Sender: TObject);
begin
   Edit4.Color:=ClAqua;
end;

procedure Tconnect.Edit1Exit(Sender: TObject);
begin
   Edit1.Color:=ClWindow;
end;

procedure Tconnect.Edit2Exit(Sender: TObject);
begin
    Edit2.Color:=ClWindow;
end;

procedure Tconnect.Edit3Exit(Sender: TObject);
begin
   Edit3.Color:=ClWindow;
end;

procedure Tconnect.Edit4Exit(Sender: TObject);
begin
 Edit4.Color:=ClWindow;
end;

end.