ufrm_login.pas

DELPHI写的全套软件工程流程安排下的人事管理系统。数据库为自带数据库。急需下载J3D源码。希望帮帮忙。谢谢~

unit Ufrm_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls,Ufrm_changepwd,Ufrm_main,Ufrm_regist,
  DB, DBTables;

type
  Tfrm_login = class(TForm)
    Image1: TImage;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label3: TLabel;
    Label4: TLabel;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;

implementation

{$R *.dfm}

procedure Tfrm_login.Button1Click(Sender: TObject);
begin
frm_regist.ShowModal;
end;

procedure Tfrm_login.Button2Click(Sender: TObject);
begin
frm_changepwd.ShowModal;
end;

procedure Tfrm_login.Button5Click(Sender: TObject);
begin
table1.Close;
close;
end;

procedure Tfrm_login.Button4Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
end;

procedure Tfrm_login.Button3Click(Sender: TObject);
 var
 password : string;
begin

  if not Table1.Active then
  begin
    ShowMessage('数据集未打开，请先设置数据集信息。');
    Exit;
  end;
  if edit1.text='' then
  begin
  ShowMessage('请填写用户名。');
  exit;
  end;
  if not Table1.FindKey([edit1.Text]) then
    begin
    ShowMessage('该用户不存在。');
    edit1.Clear;
    exit;
    end;
  if edit2.text=''  then
  begin
  ShowMessage('请填写密码。');
  exit
  end;
  password :=Table1.FieldByName('密码').AsString;
  if not (password=edit2.Text) then
    begin
    ShowMessage('密码错误。');
    edit2.Clear;
    exit;
    end;
  user:= Table1.FieldByName('姓名').AsString;;
  frm_main.Show ;
  frm_login.Hide;

end;

procedure Tfrm_login.FormCreate(Sender: TObject);
begin
  table1.Open ;
end;

procedure Tfrm_login.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if length(edit2.Text)>9 then
begin
showmessage('密码不得长于9位。');
edit2.clear;
exit;
end;
end;

procedure Tfrm_login.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if length(edit1.Text)>12 then
begin
showmessage('用户名不得长于12位。');
edit1.clear;
exit;
end;

end;

end.