stumessadisply.pas

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

unit stumessadisply;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, Buttons, Mask, DBCtrls;

type
  Tstumessadisplyfrm = class(TForm)
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label10: TLabel;
    xuehaoed: TEdit;
    mimaed: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stumessadisplyfrm: Tstumessadisplyfrm;

implementation
uses datamodal,studmessage;

{$R *.dfm}

procedure Tstumessadisplyfrm.Button1Click(Sender: TObject);
begin
close;
end;

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

procedure Tstumessadisplyfrm.FormShow(Sender: TObject);
begin
xuehaoed.SetFocus;
end;

procedure Tstumessadisplyfrm.BitBtn1Click(Sender: TObject);
begin
   DataModule1.xszhmmTable.Open;
     if  (xuehaoed.text<>stumessage.Edit1.Text) or  (DataModule1.xszhmmTable.FindKey([Trim(xuehaoed.text)])=false) then
       begin
         showmessage('请核对你自己的用户信息，请重新输入');
         xuehaoed.text:='';
         xuehaoed.SetFocus;
         exit;
        end;
     if DataModule1.xszhmmTable.FieldValues['key']<>Trim(mimaed.text)then
       begin
         showmessage('你输入的密码不正确，请重新输入');
         mimaed.text:='';
         mimaed.SetFocus;
         exit;
       end;
      DBEdit1.Visible:=true;
      DBEdit2.Visible:=true;
      DBEdit3.Visible:=true;
      DBEdit4.Visible:=true;
      DBEdit5.Visible:=true;
      DBEdit6.Visible:=true;
      DBEdit7.Visible:=true;
      DBEdit8.Visible:=true;


 end;

end.