mainunit.pas

来自「教学管理系统 功能: 选课,查询成绩,学生信息,修改信息, 录入成绩,修改」· PAS 代码 · 共 83 行

unit mainunit;

interface

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

type
  TmainForm = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  mainForm: TmainForm;

implementation

uses masterUnit, studentUnit;

{$R *.dfm}

procedure TmainForm.SpeedButton1Click(Sender: TObject);
var
  user,pass:string;
begin
      user:=edit1.Text;
      pass:=edit2.Text;
      if user<>'' then
      begin
         with adoquery1 do
          begin
            close;
            sql.Clear;
            sql.Add('select * from pass where 学号='''+user+'''and 密码='''+pass+'''');
            open;
            if recordcount=1 then
                 begin
                      //登录成功
                   adoquery1.Close;
                   mainform.hide;
                   if user='110' then
                      begin

                      masterform.show;
                      end
                   else
                     begin

                    student.show;
                      end
                  end
          else
            begin

           // 登录失败
           adoquery1.Close;
           showmessage('密码错误!');
            end
          end
    end;
  end;
procedure TmainForm.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

end.