unit1.pas

来自「这是一个小区物业管理系统」· PAS 代码 · 共 113 行

unit Unit1;

interface

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

type
  Tlogin = class(TForm)
    Bevel1: TBevel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormHide(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;

implementation

uses Mainfrm, Aboutzf;



{$R *.dfm}

procedure Tlogin.FormCreate(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from denglu');
adoquery1.Open;
end;

procedure Tlogin.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tlogin.Button1Click(Sender: TObject);

begin
if adoquery1.Locate('user_name',labelededit1.Text,[locaseinsensitive]) then
  begin
    if labelededit2.Text<>adoquery1.FieldByName('pass_word').AsString then
      showmessage('密码错误，重新输入')
    else
      begin
        
        hide;
        frmmain.ShowModal;

      end;

  end
else
  begin
    showmessage('用户名不正确，请重新输入');
    labelededit1.SetFocus;
  end;
end;






procedure Tlogin.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
        button1.Click;
end;

procedure Tlogin.FormHide(Sender: TObject);
begin
if adoquery1.FieldByName('info').AsString='2' then
    begin
          frmmain.N2.Enabled:=false;
          frmmain.N3.Enabled:=false;
          frmmain.N10.Enabled:=false;
          frmmain.tbjmcx.Enabled:=false;
           frmmain.tbsfcx.Enabled:=false;
            frmmain.tbdfdj.Enabled:=false;
            frmmain.tbdfdj.Enabled:=false;
            frmmain.tbsfdj.Enabled:=false;
    end
else if adoquery1.FieldByName('info').AsString='3' then
    begin
          frmmain.N1.Enabled:=false;
           frmmain.N3.Enabled:=false;
           frmmain.N10.Enabled:=false;
           frmmain.tbbaoan.Enabled:=false;
            frmmain.tbdfdj.Enabled:=false;
            frmmain.tbsfdj.Enabled:=false;
    end;
end;

end.