unit2.pas

来自「学校学籍管理系统」· PAS 代码 · 共 91 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, StdCtrls, ExtCtrls, WinSkinData;

type
  Tlognuser = class(TForm)
    Label2: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Image1: TImage;
    Label3: TLabel;
    Button2: TButton;
    Button1: TButton;
    ComboBox1: TComboBox;
    i_user: TEdit;
    i_passwd: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure i_passwdKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lognuser: Tlognuser;

implementation

uses Unit4, Unit3;

{$R *.dfm}

procedure Tlognuser.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tlognuser.Button1Click(Sender: TObject);
begin
try
    dm.Database1.Connected:=True;
    dm.user.Filter:='id='''+i_user.Text+'''';
    dm.user.Filtered:=True;
    dm.user.Open;
  except
    Application.MessageBox('请与系统管理员联系。', '数据库连接错误！', MB_OK);
    Application.Terminate;
  end;
  if dm.user.RecordCount=1 then
  begin
    if dm.user['PASS']=i_passwd.Text then
      begin
      if dm.user['puss']=ComboBox1.text then
          begin
            lognuser.hide;
            if main.showmodal=1 then
            else
            close
    end
    else
       Application.MessageBox('请选择正确的工作部门！', '用户权限错误',MB_OK);
   end
    else
      Application.MessageBox('请确认密码，注意大小写！', '密码不匹配', MB_OK);
  end
  else
    Application.MessageBox('请确认用户名是否正确！', '无此用户', MB_OK);
end;

procedure Tlognuser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.terminate;
end;

procedure Tlognuser.i_passwdKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN	then
Button1.Click;
end;

end.