unit3.pas

教学管理系统源码

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    //procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit5, Unit2, Unit1;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text='' then   //若用户框中未输入任何内容
begin
Application.MessageBox('请输入用户名','错误！',MB_OK);
Edit1.SetFocus          //则焦点仍设在该框中
end
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT 人员代号,密码 from pass');
ADOQuery1.SQL.Add('WHERE 人员代号='''+Edit1.Text+'''');
ADOQuery1.SQL.Add('And 密码='''+MaskEdit1.Text+'''');
ADOQuery1.Open;
if (ADOQuery1.RecordCount = 0)//or
//(MaskEdit1.Text<>ADOQuery1.FieldValues['密码'])
then
begin
Application.MessageBox('密码错误，请查询！','错误！',MB_OK);
MaskEdit1.SetFocus;  //将焦点设置在当前位置
end
else begin
Form2.Hide;
Form3.Hide;
Form5.Show;
end;
end;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if (Application.MessageBox( '           你确定退出吗？','警告',MB_YESNO))=ID_YES
    then
    begin
form3.Hide;
form2.Show;
    end
else
form3.Show;
end;

end.