unit1.pas

学生宿舍管理系统,用于宿舍的信息管理,简单容易用.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,Unit2, AAFont, AACtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit_username: TEdit;
    Edit_password: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    AALabel1: TAALabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses Unit4;


{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Edit_username.Text ='' then
  begin
    MessageBox(handle,'用户名不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit_username.SetFocus ;
    exit;
  end;

if Edit_password.Text ='' then
  begin
    MessageBox(handle,'用户密码不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit_password.SetFocus ;
    exit;
  end;



if not dataModule2.CheckUserName(Edit_username.Text) then
  begin
    MessageBox(handle,'错误的用户名!','警告',MB_OK+MB_ICONWARNING);
    Edit_username.SetFocus ;
    Edit_username.SelectAll ;
    exit;
  end;

if not DataModule2.CheckUserPassword(trim(Edit_username.text),trim(Edit_password.text)) then
  begin
     MessageBox(handle,'密码错误!','警告',MB_OK+MB_ICONWARNING);
     Edit_password.SetFocus;
     Edit_password.SelectAll;
     exit;
  end
else
  begin
  MainFrm.ToolBar1.Enabled:=true;
  MainFrm.N1.Enabled:=true;
  MainFrm.N8.Enabled:=true;
  MainFrm.N12.Enabled:=true;
  MainFrm.N13.Enabled:=true;
  MainFrm.N25.Enabled:=true;
  MainFrm.N5.Enabled:=true;

   MainFrm.StatusBar1.Panels[1].Text :=Edit_username.Text ;
   MainFrm.StatusBar1.Panels[3].Text :=DataModule2.ReturnType(Edit_username.text,Edit_password.text);
   MainFrm.StatusBar1.Panels[5].Text :=DateToStr(date);
   MainFrm.StatusBar1.Panels[7].Text :=TimeToStr(time);
   Form1.Close  ;
  end;


end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;

end.