checkpassdlg.pas

三層源碼,DELPHI寫的三層源碼,三層源碼,

unit checkpassdlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, xpButton;

  const cm_restore=wm_user+$1100;
type
  Tloginpassdlgs = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TComboBox;
    xpButton1: TxpButton;
    xpButton2: TxpButton;
    xpButton3: TxpButton;
    procedure FormPaint(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure xpButton3Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    function checkconnect:boolean;
    procedure setdatetime(dates:tdatetime);
    { Private declarations }
  public
    procedure createparams(var params:tcreateparams);override;
    procedure restorerequest(var message:tmessage);message cm_restore;
    { Public declarations }
  end;

var
  loginpassdlgs: Tloginpassdlgs;

implementation

uses sldata,shareunit;

{$R *.DFM}

procedure tloginpassdlgs.setdatetime(dates:tdatetime);
var SystemTime:TSystemTime;
    h,m,s,sc:word;
begin
DateTimeToSystemTime(date,systemtime);
decodetime(time,h,m,s,sc);
systemtime.wHour:=h;
systemtime.wMinute:=m;
systemtime.wSecond:=s;
systemtime.wMilliseconds:=sc;
SetLocalTime(SystemTime);
end;



procedure tloginpassdlgs.createparams(var params:tcreateparams);
begin
inherited ;
Params.winclassname:='yhcolors';
end;

procedure tloginpassdlgs.restorerequest(var message:tmessage);
begin
if isiconic(application.handle)=true then application.restore else application.bringtofront;
end;

function tloginpassdlgs.checkconnect:boolean;
var n:integer;
begin
edit1.Clear;
try
sl_data.sldcom.close;
sl_data.sldcom.host:=remotecomputer;
sl_data.sldcom.ServerGUID:='{74034362-8AC1-4EBA-842A-9AFB2A39A149}';
sl_data.sldcom.ServerName:='slserver.slsvr';
application.ProcessMessages;
sl_data.sldcom.Open;
sl_data.getuserlist(edit1.items);
n:=edit1.Items.IndexOf(lastusername);
if n>-1 then edit1.ItemIndex:=n else edit1.ItemIndex:=0;
except
end;
result:=sl_data.sldcom.Connected;
end;

procedure Tloginpassdlgs.FormPaint(Sender: TObject);
begin
sl_data.formonpaint(self);
end;

procedure Tloginpassdlgs.ComboBox1Click(Sender: TObject);
begin
edit2.setfocus;
end;

procedure Tloginpassdlgs.FormDblClick(Sender: TObject);
begin
sl_data.changecolors;
refresh;
end;

procedure Tloginpassdlgs.FormShow(Sender: TObject);
begin
if remotecomputer<>'' then
  if not checkconnect then remotecomputer:='127.0.0.1';
end;

procedure Tloginpassdlgs.xpButton1Click(Sender: TObject);
begin
if (edit2.text<>'')and(edit1.text<>'') then
if sl_data.checkpassword(edit1.text,edit2.text) then
   begin
   lastusername:=edit1.text;
   loginok:=true;
   loginuser:=lastusername;
   setdatetime(sl_data.getserverdates);
   sl_data.getcompanyinfo;
   close;
   end else begin
   showmessage('密码错误,请查对後重新输入.');
   edit2.text:='';
   end;
end;

procedure Tloginpassdlgs.xpButton2Click(Sender: TObject);
begin
sl_data.sldcom.Close;
close;
end;

procedure Tloginpassdlgs.xpButton3Click(Sender: TObject);
begin
remotecomputer:=inputbox('指定远程服务器','请输入远程服务器的名称或IP:',remotecomputer);
if remotecomputer<>'' then
if not checkconnect then remotecomputer:='127.0.0.1';
end;

procedure Tloginpassdlgs.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then xpbutton1.onClick(nil);
end;

end.