login.pas

帮朋友编写的幼儿教育的管理平台

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, MMSYSTEM;

type
  TLoginForm = class(TForm)
    Panel1: TPanel;
    username: TComboBox;
    password: TEdit;
    Ok: TBitBtn;
    Cancel: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure OkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CancelClick(Sender: TObject);
    procedure usernameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm;

implementation

uses DataM, MainUnit;

{$R *.dfm}

procedure TLoginForm.OkClick(Sender: TObject);
Var SQLString:string ;
begin
//登录检查
{SQLString:='select * from userTbl where 用户编号="'+username.Text+'"' ;
DM.UserQuery.SQL.Clear ;
DM.UserQuery.SQL.Add(SQLString) ;
DM.UserQuery.Open ;
if DM.UserQuery.RecordCount >0 then
begin
//成功
  DM.UserQuery.First ;
  if password.Text=DM.UserQuery.FieldByName('用户口令').AsString then
  begin
    DM.UserQuery.Edit ;
    DM.UserQuery.FieldByName('上班时间').AsDateTime :=Now() ;
    DM.UserQuery.FieldByName('状态').AsString :='上班' ;
    DM.UserQuery.Post ;
    MainForm.Show ;
    Close ;
//    MessageDlg('口令正确！',mtwarning,[mbOK],1) ;
  end
  else
  begin
    MessageDlg('口令错误！',mtwarning,[mbok],1) ;
    password.SetFocus
  end ;
end
else
begin
  //登录次数检查
  messagedlg('没有此用户!',mtwarning,[mbok],1) ;
  username.SetFocus
end ;
DM.UserQuery.Close ;//}
end;

procedure TLoginForm.FormShow(Sender: TObject);
Var SQLString:String ;
begin
Caption :='用户登录' ;
{SQLString:='select * from userTbl' ;
DM.UserQuery.Close ;
DM.UserQuery.SQL.Clear ;
DM.UserQuery.SQL.Add(SQLString) ;
DM.UserQuery.Open ;
username.Items.Clear ;
DM.UserQuery.First ;
while (not DM.UserQuery.Eof) do
begin
  username.Items.Add(DM.UserQuery.FieldByName('用户编号').AsString) ;
  DM.UserQuery.Next ;
end ;
DM.UserQuery.Close ;
username.ItemIndex :=0 ;//}
end;

procedure TLoginForm.CancelClick(Sender: TObject);
begin
Application.Terminate ;
end;

procedure TLoginForm.usernameChange(Sender: TObject);
begin
Password.SetFocus ;
end;

end.