denglu.~pas

学生管理系统小鸟做了

unit denglu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, DB, ADODB;

type
  Tfmdenglu = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Label3: TLabel;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmdenglu: Tfmdenglu;
  usertype:integer;

implementation

uses dm, main, zc;

{$R *.dfm}

procedure Tfmdenglu.Button1Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') then
begin
 messagedlg('用户名或密码不能为空！',mtinformation,[mbYes],0);
 exit;
end;
 fmdm.qrydenglu.Close;
 fmdm.qrydenglu.SQL.Clear;
 fmdm.qrydenglu.SQL.Add('select * from tab_stu where stu_id=:A and stu_password=:S');
 fmdm.qrydenglu.Parameters.ParamByName('A').Value:=edit1.Text;
 fmdm.qrydenglu.Parameters.ParamByName('S').Value:=edit2.Text;
 fmdm.qrydenglu.Open;
 if fmdm.qrydenglu.RecordCount <= 0 then
  begin
   messagedlg('用户名或密码错误！',mtinformation,[mbYes],0);
   exit;
  end ;
  fmmain:=tfmmain.Create(self);
  
  usertype:=fmdm.qrydenglu.FieldList[8].AsInteger;
 if usertype=0 then
 begin
  fmmain.N2.Enabled:=true;
  fmmain.N3.Enabled:=true;
  fmmain.N5.Enabled:=true;
  fmmain.N6.Enabled:=true;
  fmmain.N11.Enabled:=true;
  fmmain.N12.Enabled:=true;
  fmmain.N13.Enabled:=true;
 end;
 if usertype=1 then
 begin
  fmmain.N2.Enabled:=true;
  fmmain.N3.Enabled:=true;
  fmmain.N5.Enabled:=true;
  fmmain.N6.Enabled:=true;
  fmmain.N11.Enabled:=true;
  fmmain.N8.Enabled:=true;
  fmmain.N9.Enabled:=true;
  fmmain.N12.Enabled:=true;
  fmmain.N13.Enabled:=true;
  fmmain.N14.Enabled:=true;
 end;
  fmmain.Show;
  self.hide;


end;
procedure Tfmdenglu.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;

procedure Tfmdenglu.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tfmdenglu.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key in [#13] then button1.Click;
end;

procedure Tfmdenglu.Button4Click(Sender: TObject);
begin
fmzc:=tfmzc.Create(self);
fmzc.Show;
end;

end.