login.pas

DELPHI光盘实例.用户登录管理,数据库的创新,如何制作报表等等.

unit login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, ExtCtrls, Buttons, Db, DBTables, StdCtrls,inifiles;


type
  TLogin_Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Name_Edit: TEdit;
    PassWord_Edit: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;


var
  Login_Form: TLogin_Form;

implementation

uses main;

{$R *.dfm}

procedure TLogin_Form.Button1Click(Sender: TObject);
var
    aname,apassword,sqlstr:string;
    a,b:integer;
begin
        if (length(trim(name_edit.Text)) > 0) or (length(trim(password_edit.Text)) > 0) then
    begin
        aname:=trim(name_edit.Text);
        apassword:=trim(password_edit.Text);
        sqlstr:='select * from t_user a,t_qxb b where (a.name='''+aname+''') and(a.passwd='''+apassword+''')and(a.name=b.name) order by b.cdx';
        with TQuery.Create(nil) do
        try
        Close;
        SessionName:=main_form.Database1.SessionName;
        DatabaseName:=main_form.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        if RecordCount > 0 then
        begin
            First;
            while not Eof do
            begin
                a:=strtoint(copy(FieldByName('cdx').AsString,1,1));
                b:=strtoint(copy(FieldByName('cdx').AsString,2,2));
                main_form.MainMenu1.Items.Items[a].Visible:=true;
                main_form.MainMenu1.Items.Items[a].Items[b].Visible:=true;
                Next;
            end;
            login_form.Close;
            main_form.StatusBar1.SimpleText:=aname;
            main_form.dlname:=aname;
        end
        else
        begin
            showmessage('请确认登录的用户名和密码是否正确！');
            name_edit.SetFocus;
            name_edit.SelectAll;
        end;
        finally
        Free;
        end;
    end
    else
    begin
        showmessage('请输入登录用户名和密码！');
        name_edit.SelectAll;
    end;
end;

procedure TLogin_Form.Button2Click(Sender: TObject);
begin
   Close;
    main_Form.N11.Enabled:=true;
end;

end.