admindlg.pas

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

unit admindlg;

interface

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

type
  Tadmin = class(TForm)
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Image2: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  admin: Tadmin;

implementation

{$R *.dfm}
uses
   connectdlg,frmmain;

procedure Tadmin.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('密码或用户名错误');
    Application.Terminate;
  end
  else
  begin
   Modalresult:=mrok;
   quanxian:=adoquery1.FieldValues['adminpass'];
   if quanxian='admin' then
   begin
   {};
   end
   else 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;
      form2.N5.Enabled:=true;
      form2.N23.Enabled:=true;
   end;
  end;
end;

procedure Tadmin.BitBtn1Click(Sender: TObject);
begin
  close;
  Application.Terminate;
end;




procedure Tadmin.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
edit2.SetFocus;
end;

procedure Tadmin.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
  bitbtn1.SetFocus;
end;

procedure Tadmin.FormShow(Sender: TObject);
begin
   edit1.Text:='';
   edit2.Text:='';
end;

procedure Tadmin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;


end;

end.