user_lost.pas

来自「该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板」· PAS 代码 · 共 100 行

unit user_lost;

interface

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

type
  Tuserlost = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userlost: Tuserlost;

implementation

{$R *.dfm}

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

procedure Tuserlost.Button1Click(Sender: TObject);
begin
 if (Edit1.Text='')and(Edit2.Text='')then
 begin
 showmessage('请输入用户名和密码！');
 end
 else
 begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text:='select UserID from login_User where UserID='''+Edit1.Text+''' and Password='''+Edit2.Text+'''and User_right=3';
 ADOQuery1.Open;
 if ADOQuery1.FieldByName('UserID').AsString='' then
 begin
 showmessage('请输入正确的密码！');
 end
 else
 begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Text:='select Symbol from [user] where StuID='''+Edit1.Text+'''';
   ADOQuery1.Open;
   if ADOQuery1.FieldByName('Symbol').AsInteger=0 then
   begin
   showmessage('已挂失！');
   end
   else
   begin
   adocommand1.CommandText:='update [user] set Symbol=0 where StuID='''+Edit1.Text+'''';
   adocommand1.Execute;
   showmessage('挂失成功！');
   end;
   end;
   end;
// else
 //begin
 //showmessage('请输入用户名和密码！');
 //end;
   //else
   //begin
   //showmessage('已挂失！');
   //end
   {else
   begin
   showmessage('请输入正确的用户密码！');
   end
   else
   begin
   showmessage('请输入用户名和密码！');
   end;}
   //end;
end;

procedure Tuserlost.FormShow(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;

end.