mc_login.pas

这是用Delphi编写的小区物业管理系统

unit MC_Login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ExtCtrls, DBTables, ImgList, StdCtrls, Buttons, jpeg, ComCtrls,
  DBCtrls;

type
  TUserLogiA = class(TForm)
    Label5: TLabel;
    Label4: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    ListView1: TListView;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    ImageList1: TImageList;
    Timer1: TTimer;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    DBText1: TDBText;
    DBText2: TDBText;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    QXKey: Integer;
    { Public declarations }
  end;

var
  UserLogiA: TUserLogiA;

implementation

uses MC_MainForm;

{$R *.DFM}
procedure TUserLogiA.FormShow(Sender: TObject);
var List_A:TListItem;
begin
  Timer1.Enabled:=true;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 权限信息表');  // 选择所有操作人员
  Query1.Open;
  ListView1.Items.Clear;  //清空列表
  While not Query1.Eof do   //将所有操作员加入到列表
  begin
   if Query1.FieldByName('姓名').AsString='系统管理员' then    //如果是系统管理员
    begin
     List_A:=ListView1.Items.Add;    //添加系统管理员到列表
     List_A.Caption:=Query1.FieldByName('姓名').AsString;
     List_A.ImageIndex:=0;   //显示系统管理员图标
    End
   else      //如果不是系统管理员
    begin
      List_A:=ListView1.Items.Add;   //增加操作员到列表
      List_A.Caption:=Query1.FieldByName('姓名').AsString;
      List_A.ImageIndex:=1;    //显示操作员图标
    end;
   Query1.Next;   //继续添加
  end;
  Edit1.SetFocus;  //焦点移到密码输入框
end;

procedure TUserLogiA.BitBtn2Click(Sender: TObject);  //退出系统
begin
 MainForm.Close;
end;

procedure TUserLogiA.ListView1Click(Sender: TObject); //选择操作员
begin
 if ListView1.Selected<>Nil then  //如果选择不为空
 Query1.Locate('姓名',ListView1.Selected.Caption,[loPartialKey]);  //查找选择的操作员信息
end;

procedure TUserLogiA.BitBtn1Click(Sender: TObject);
begin
 if Edit1.Text<>Query1.FieldByName('密码').AsString then  //如果密码不正确
 begin
  ShowMessage('密码不正确请重新输入!!');
  QXKey:=0;
  Edit1.SetFocus;
 End
 else      //如果密码正确
 begin
   MainForm.Query1.Close;
   MainForm.Query1.SQL.Clear;
   MainForm.Query1.SQL.Add('Select * From 权限检查表 Where 姓名=:A');  // 查看操作员权限
   MainForm.Query1.ParamByName('A').AsString:=Query1.FieldByName('姓名').AsString;
   MainForm.Query1.Open;
   if Query1.FieldByName('用户类别').AsString<>'系统管理员' then  //如果不是系统管理员
   MainForm.ToolButton9.Enabled:=False; //“系统管理“工具按钮不可用
 QXKey:=1;
 MainForm.ToolButton1.Click;    //显示经营部功能列表
 Close;
 end;
end;

procedure TUserLogiA.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then bitBtn1.Click;   //执行“登录”操作
end;
end.