unit1.~pas

学生选课系统 DELPHI+ ACCE

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls,Unit2,Unit3;

type
  TFormlogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formlogin: TFormlogin;

implementation

{$R *.dfm}

procedure TFormlogin.Button1Click(Sender: TObject);
var
    user,pass:string;
begin
    user:=Edit1.text;
    pass:=Edit2.text;
    Query1.sql.text:='select * from password where 学号="'+user+'"';
    Query1.Open;
    if pass=Query1.FieldByName('密码').Asstring then
    begin
        //登录成功
        Query1.Close;
        Formlogin.Hide;
        if user='2002152001' then
        begin
            Table1.Open;
            {Formmaster.Init;
            Formmaster.Show; }
            showmessage('success!') ;
        end
        else
        begin
            Formstu.User:=user;
            Formstu.Init;
            Formstu.Show;
        end;
    end
    else
    begin
    //登录失败
    Query1.Close;
    ShowMessage('密码错误！');
    end;
    end;

procedure TFormlogin.Button2Click(Sender: TObject);
begin
 Edit1.Clear;
 Edit2.Clear;
end;

end.