unlogin.pas

自己写的学生成绩管理系统

unit unlogin;

interface

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

type
  Tfmlogin = class(TForm)
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ProgramIcon: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmlogin: Tfmlogin;

implementation
     uses unmain;
{$R *.dfm}

procedure Tfmlogin.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tfmlogin.Button1Click(Sender: TObject);
begin
username:=edit1.Text;
password:=edit2.Text;
  if combobox1.Text='学生' then
    begin
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from student where 学号=:var0 and 密码=:var1');
      adoquery1.Parameters[0].Value:=username;
      adoquery1.Parameters[1].Value:=password;
      adoquery1.Open;
      cringt:=1;
    end
    else
      if combobox1.Text='教师' then
        begin
         adoquery1.SQL.Clear;
         adoquery1.SQL.Add('select * from Teacher where 教师号=:var0 and 密码=:var1');
         adoquery1.Parameters[0].Value:=username;
         adoquery1.Parameters[1].Value:=password;
         adoquery1.Open;
         cringt:=2;
        end
      else
        begin
           adoquery1.SQL.Clear;
           adoquery1.SQL.Add('select * from admin where 用户名=:var0 and 密码=:var1');
           adoquery1.Parameters[0].Value:=username;
           adoquery1.Parameters[1].Value:=password;
           adoquery1.Open;
           cringt:=3;
        end;
  if adoquery1.RecordCount>0 then
     begin
       fmmain.Show;
       fmlogin.Hide;
       //SHOWmessage(inttostr(cringt));
     end
  else
    showmessage('用户名或密码错误！');   
end;

procedure Tfmlogin.FormShow(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
end;

procedure Tfmlogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    button1.Click;
end;

end.