loginunit.~pas

信号机测试信号管理软件 其中含有文件上传及修改数据库数据的功能

unit loginUnit;

interface

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

type

  Tform2 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
    procedure Form2Close(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tform2;
  i: integer = 0;
  m: Boolean = false;//防止用户关闭登录窗口进入系统
  czymc:string;
implementation

uses unit1,unitsr,unitmodule;

{$R *.dfm}

procedure Tform2.Edit1Change(Sender: TObject);
begin
  if (Trim(Edit1.Text)<>'')and( Trim(edit2.Text)<>'') then
    Button1.Enabled := True
  else
    Button1.Enabled := False;

end;

procedure Tform2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = vk_Return) or(Key = vk_Down) then
    Edit2.SetFocus;

end;

procedure Tform2.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key = vk_Return) or(Key = vk_Down))and (Button1.Enabled = True) then
    Button1.SetFocus
  else
    Edit2.SetFocus;
  if Key = vk_Up then
    Edit1.SetFocus;

end;

procedure Tform2.Button1Click(Sender: TObject);
begin
  with DataModule2.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 登录表 where (姓名= :a)and(密码= :b)');
    Parameters.ParamByName('a').Value := Trim(Edit1.Text);
    Parameters.ParamByName('b').Value := Trim(Edit2.Text);
    Open;
  end;
  if DataModule2.ADOQuery2.RecordCount >0 then
  begin
    czymc := DataModule2.ADOQuery2.FieldByName('姓名').AsString;
    m:= True;
    Edit1.Clear;
    Edit2.Clear;
    Close;
  end
  else
  begin
    if i <3 then
    begin
      Application.MessageBox('用户名称或密码不正确，请重新输入。','提示',0+64);
      Edit1.Clear;
      Edit2.Clear;
      Edit1.SetFocus;
      Inc(i);
    end
    else
    begin
      Application.MessageBox('对不起，您无权使用本系统。','提示',0+64);
      Application.Terminate ;
    end;
  end;
end;

procedure Tform2.Form2Close(Sender: TObject; var Action: TCloseAction);
begin
  if m = False then
  begin
    datamodule2.Free;
    Application.Terminate ;
  end;
end;

procedure Tform2.Button2Click(Sender: TObject);
begin
  datamodule2.Free;
  Application.Terminate;
end;





end.