password.pas

教务管理子系统的基本功能实现

unit password;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, jpeg, ExtCtrls, DB, DBTables;

type
  TPasswordDlg = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordDlg: TPasswordDlg;
  xingming:string;

implementation

uses mainfrm, Dialogs, studmessage, teachermessage,  gzrymessage,
  datamodal, constdef;



{$R *.dfm}

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
 if form1.SpeedButton1.Tag=0 then
   stumessage.Show
   else
    if form1.SpeedButton2.Tag=0 then
      teamessage.Show;
end;


procedure TPasswordDlg.BitBtn1Click(Sender: TObject);
begin
 zhanghu:=edit1.Text;
 if form1.SpeedButton1.Tag=0 then
   begin
     DataModule1.xsxxtable.Open;
     if DataModule1.xsxxtable.FindKey([Trim(Edit1.text)]) =false then
       begin
         showmessage('你输入的用户不存在，请重新输入');
         Edit1.text:='';
         Edit1.SetFocus;
         exit;
        end;
     if DataModule1.xsxxtable.FieldValues['studentno']<>Trim(Edit2.text)then
       begin
         showmessage('你输入的密码不正确，请重新输入');
         Edit2.text:='';
         Edit2.SetFocus;
         exit;
       end;
         DataModule1.xsxxtable.Close;
         stumessage.Show;
         stumessage.Edit1.Text:=zhanghu;
         with  DataModule1.xsxxTable do
           begin
            open;
            setkey;
            fieldbyname('Studentno').AsString:=Edit1.Text;
             if  gotokey then
                 stumessage.DBEdit1.Visible:=true;
           end;
         close;
     end

   else
    if form1.SpeedButton2.Tag=0 then
       begin
     DataModule1.jsxxTable.Open;
     if DataModule1.jsxxTable.FindKey([Trim(Edit1.text)]) =false then
       begin
         showmessage('你输入的用户不存在，请重新输入');
         Edit1.text:='';
         Edit1.SetFocus;
         exit;
        end;
     if DataModule1.jsxxTable.FieldValues['TeacherNo']<>Trim(Edit2.text)then
       begin
         showmessage('你输入的密码不正确，请重新输入');
         Edit2.text:='';
         Edit2.SetFocus;
         exit;
       end;
         DataModule1.jsxxTable.Close;
         teamessage.Show;
         teamessage.Edit1.Text:=zhanghu;
          with  DataModule1.jsxxTable do
           begin
            open;
            setkey;
            fieldbyname('TeacherNo').AsString:=Edit1.Text;
             if  gotokey then
                 teamessage.jsxingming.Visible:=true;
           end;
         close;
     end

     else
      if form1.SpeedButton3.Tag=0 then
        begin
          DataModule1.gzryxxTable.Open;
         if DataModule1.gzryxxTable.FindKey([Trim(Edit1.text)]) =false then
          begin
           showmessage('你输入的用户不存在，请重新输入');
           Edit1.text:='';
           Edit1.SetFocus;
           exit;
          end;
       if DataModule1.gzryxxTable.FieldValues['No']<>Trim(Edit2.text)then
       begin
         showmessage('你输入的密码不正确，请重新输入');
         Edit2.text:='';
         Edit2.SetFocus;
         exit;
       end;
         DataModule1.gzryxxTable.Close;
         gongzrymessage.Show;
  close;

end;
end;



procedure TPasswordDlg.BitBtn2Click(Sender: TObject);
begin
 close;
end;

end.