unit13.~pas

图书管理系统设计程序

unit Unit13;

interface

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

type
  Txitongdenglu = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADODataSet1: TADODataSet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    flag:boolean;
    id:string;
    { Public declarations }
  end;

var
  xitongdenglu: Txitongdenglu;
  i:integer;

implementation
uses unit3,unit14,unit1;
{$R *.dfm}

procedure Txitongdenglu.Button1Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.text='') then
showmessage('请完整输入数据')
else
begin
adodataset1.Active:=false;
if radiobutton2.Checked=true then
begin
flag:=true;
adodataset1.CommandText:='select * from manager';
adodataset1.Active:=true;
adodataset1.First;
for i:=0 to adodataset1.RecordCount-1 do
begin
if (adodataset1.FieldByName('manager_no').AsString=edit1.Text )and (adodataset1.FieldByName('password').AsString=edit2.Text) then
begin
id:=edit1.Text;
xiugai.Label5.Caption:='欢迎用户'+id+'登陆成功！欢迎使用本软件！';
showmessage('登陆成功！欢迎使用本软件！');
jiemian.N1.Enabled:=false;
    jiemian.n2.Enabled:=true;
    jiemian.n3.Enabled:=true;
    jiemian.n5.Enabled:=true;
    jiemian.n14.Enabled:=true;
close;
exit;
end
else
adodataset1.Next;
end;
showmessage('用户不存在或密码错误！');
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
exit;
end
else
flag:=false;
adodataset1.CommandText:='select * from reader';
adodataset1.Active:=true;
adodataset1.First;
for i:=0 to adodataset1.RecordCount-1 do
begin
if (adodataset1.FieldByName('reader_no').AsString=edit1.Text )and (adodataset1.FieldByName('password').AsString=edit2.Text) then
begin
id:=edit1.Text;
showmessage('登陆成功！欢迎使用本软件！');
edit1.Text:='';
edit2.Text:='';
jiemian.N1.Enabled:=false;
    jiemian.n2.Enabled:=true;
    jiemian.n3.Enabled:=true;
    jiemian.n9.Enabled:=true;
close;
exit;
end
else
adodataset1.Next;
end;
showmessage('用户不存在或密码错误！');
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
exit;
end;
end;

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

end.