unit5.~pas

用delphi编写的公寓管理系统

unit Unit5;

interface

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

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

var
  Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.SpeedButton1Click(Sender: TObject);
var cmdstr:string;
     usrtype:integer;
begin

cmdstr:='1';
usrtype:=0;
//adoqryuser.SQL.Clear;
//cmdstr:='select * from users where 用户名='+quotedstr(edit1.Text )+'and 口令='+quotedstr(edit2.Text );
//adoqryuser.SQL.add(cmdstr);
//adoqryuser.Open;
if cmdstr='1' then
begin
//usrtype:=adoqryuser.FieldList[2].AsInteger;
  if usrtype=0 then
  begin
    form1.N15.Enabled:=true;
    form1.N16.Enabled:=true;
    form1.N17.Enabled:=true;
    form1.N21.Enabled:=true;
    form1.n22.Enabled:=true;
  end
  else
  begin
    form1.n26.Enabled:=true;
    form1.n27.Enabled:=true ;
    form1.N29.Enabled :=true;
    form1.N28.Enabled:=true;
  end

  close;
end
else
if (messagedlg('输入的用户名与口令不对！是否要重新输入？',mtinformation,[mbyes,mbno],0)<>mryes) then
  close;



end;

end.