unit3.pas

宿舍管理系统

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox7: TGroupBox;
    Label13: TLabel;
    BitBtn3: TBitBtn;
    AALabel1: TAALabel;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit_N_username: TEdit;
    Edit_N_userpassword: TEdit;
    CBox_N_type: TComboBox;
    Edit_N_userpassword_A: TEdit;
    BitBtn1: TBitBtn;
    GroupBox6: TGroupBox;
    Label9: TLabel;
    Edit_M_username: TEdit;
    GroupBox5: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label5: TLabel;
    Edit_M_userpassword_New: TEdit;
    CBox_M_type: TComboBox;
    Edit_M_userpassword_New_A: TEdit;
    Edit_M_userpassword_Old: TEdit;
    BitBtn2: TBitBtn;
    Image2: TImage;
    Image3: TImage;
    Edit_D_username: TEdit;
    Image1: TImage;
    Image4: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses Unit4, Unit2;



{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
if Edit_N_username.Text ='' then   //核查用户名是否为空
  begin
    MessageBox(handle,'用户名不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit_N_username.SetFocus ;
    exit;
  end;

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

if Edit_N_userpassword_A.Text ='' then       //核查确认密码是否为空
  begin
    MessageBox(handle,'确认密码不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit_N_userpassword_A.SetFocus ;
    exit;
  end;

if CBox_N_type.Text ='' then               //核查级别是否为空
  begin
    MessageBox(handle,'用户级别不能为空!','警告',MB_OK+MB_ICONWARNING);
    CBox_N_type.SetFocus ;
    exit;
  end;
                                           //核查密码与确认密码是否相同
if not (trim(Edit_N_userpassword.Text)=trim(Edit_N_userpassword_A.Text)) then
  begin
    MessageBox(handle,'两次密码不同!','警告',MB_OK+MB_ICONWARNING);
    Edit_N_userpassword.SetFocus ;
    exit;
  end;
                                            //核查系统中是否已存该用户名
if  dataModule2.CheckUserName(Edit_N_username.Text) then
  begin
    MessageBox(handle,'该用户名已存在,请重新输入!','警告',MB_OK+MB_ICONWARNING);
    Edit_N_username.SetFocus ;
    Edit_N_username.SelectAll ;
    exit;
  end;
                                         //添加用户
if not DataModule2.AddUser(Trim(Edit_N_username.Text),Trim(Edit_N_userpassword_A.Text),Trim(CBox_N_type.Text)) then
  begin
     MessageBox(handle,'添加失败!','警告',MB_OK+MB_ICONWARNING);
     exit;
  end;

MessageBox(handle,'添加成功!','提示',MB_OK+MB_ICONWARNING);
end;


procedure TForm3.BitBtn3Click(Sender: TObject);
begin

if not ('超级管理员'=MainFrm.StatusBar1.Panels[3].Text)  then
    begin
      MessageBox(handle,'您不是超级用户,不能使用删除功能!','警告',MB_OK+MB_ICONWARNING);
      exit;
    end;

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

if not DataModule2.CheckUserName(trim(Edit_D_username.Text)) then
  begin
    MessageBox(handle,'没有这个用户名!','警告',MB_OK+MB_ICONWARNING);
    Edit_D_username.SetFocus ;
    Edit_D_username.SelectAll ;
    exit;
  end;

 if DataModule2.DeleteUser(trim(Edit_D_username.Text))=true then
  MessageBox(handle,'删除成功','提示',MB_OK+MB_ICONINFORMATION)
 else
   MessageBox(handle,'删除失败','提示',MB_OK+MB_ICONSTOP);

end;


procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if Edit_M_username.Text ='' then         //核查用户名是否为空
  begin
    MessageBox(handle,'用户名不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit_M_username.SetFocus ;
    exit;
  end;

if Edit_M_userpassword_Old.Text ='' then     //核查旧密码是否为空
  begin
    MessageBox(handle,'旧密码不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit_M_userpassword_Old.SetFocus ;
    exit;
  end;

if Edit_M_userpassword_New.Text ='' then       //核查新密码是否为空
  begin
    MessageBox(handle,'新密码不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit_M_userpassword_New.SetFocus ;
    exit;
  end;

if Edit_M_userpassword_New_A.Text ='' then     //核查确认密码是否为空
  begin
    MessageBox(handle,'确认新密码不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit_M_userpassword_New_A.SetFocus ;
    exit;
  end;

if CBox_M_type.Text ='' then               //核查级别是否为空
  begin
    MessageBox(handle,'用户级别不能为空!','警告',MB_OK+MB_ICONWARNING);
    CBox_M_type.SetFocus ;
    exit;
  end;
                                          //核查新密码与确认密码是否相同
if not (trim(Edit_M_userpassword_New.Text)=trim(Edit_M_userpassword_New_A.Text)) then
  begin
    MessageBox(handle,'两次密码不同!','警告',MB_OK+MB_ICONWARNING);
    Edit_M_userpassword_New.SetFocus ;
    exit;
  end;
                                       //核查旧的用户密码是否正确
if  not DataModule2.CheckUserPassword(trim(Edit_M_username.Text),trim(Edit_M_userpassword_Old.Text )) then
  begin
    MessageBox(handle,'用户名或密码错误,请重新输入!','警告',MB_OK+MB_ICONWARNING);
    Edit_M_username.SetFocus ;
    Edit_M_username.SelectAll ;
    exit;
  end;
                                         //修改密码
if DataModule2.EditUserPassword(trim(Edit_M_username.Text ),trim(Edit_M_userpassword_Old.Text ),trim(Edit_M_userpassword_New.Text )) then
    MessageBox(handle,'密码修改成功','提示',MB_OK+MB_ICONINFORMATION)
else
    MessageBox(handle,'密码修改失败','提示',MB_OK+MB_ICONWARNING);

end;
                                         //取得当前的用户级别
procedure TForm3.FormActivate(Sender: TObject);
begin
  Edit_M_username.Text :=MainFrm.StatusBar1.Panels[1].Text ;
end;

end.