useradminnew.pas

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

unit useradminnew;

interface

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

type
  Tuseradmin_new = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    xpButton1: TxpButton;
    procedure FormPaint(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  useradmin_new: Tuseradmin_new;

implementation
uses sldata,shareunit;
{$R *.DFM}

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

procedure Tuseradmin_new.xpButton1Click(Sender: TObject);
var msg:string;
begin
if (edit1.text<>'') and (edit2.text<>'') then
 begin
 with tstringlist.create do
  try
  add(makeparams('tuid',edit1.text));
  add(makeparams('tpwd',md5encode(edit1.text+edit2.text)));
  msg:=text;
  finally
  free;
  end;
 if sl_data.user_model(public_add,msg) then
    begin
    showmessage('帐号建立成功.');
    close;
    end else showmessage('帐号建立失败.帐号可能已经存在');
 end else showmessage('请填写完整再提交.');
end;

procedure Tuseradmin_new.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
  Begin
  If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
     SelectNext(Sender as TWinControl,False,True)
  else
   SelectNext(Sender as TWinControl,True,True);
   Key := #0
  end;
end;

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

end.