unit3.pas

来自「湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的」· PAS 代码 · 共 79 行

unit Unit3;

interface

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

type
  Tuser3 = class(Tadmin)
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  user3: Tuser3;

implementation

uses frmmain;

{$R *.dfm}

procedure Tuser3.BitBtn1Click(Sender: TObject);

begin
     close;
end;

procedure Tuser3.BitBtn2Click(Sender: TObject);
var
   name,pwd,quanxian:string;
begin
     name:=edit1.text;
     pwd:=edit2.Text;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select adminname adminpass from chzy where adminname='''+name+'''and adminpass='''+pwd+'''');

     adoquery1.Open;


     if adoquery1.Recordset.RecordCount=0 then
     begin
       showmessage('密码或用户名错误');
       end
       else
       begin

   Modalresult:=mrok;
   quanxian:=adoquery1.FieldValues['adminpass'];
   end;
    if
       quanxian='admin'then

       {};



        if quanxian<>'admin'then
        begin
        form2.N6.Enabled:=true;
        form2.N8.Enabled:=true;
        form2.N9.Enabled:=true;
        form2.N10.Enabled:=true;
        form2.N12.Enabled:=true;

       end;

end;



end.