user.~pas

湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的

unit user;

interface

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

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

var
  user3: Tuser3;

implementation

uses frmmain;

{$R *.dfm}

procedure Tuser3.BitBtn1Click(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.