login.pas

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

unit login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, ExtCtrls, Buttons, StdCtrls,inifiles, DB,
  DBTables, System.ComponentModel, FMTBcd;

type
  TLogin_Form = class(TForm)
    Name_Edit: TEdit;
    PassWord_Edit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure PassWord_EditKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Login_Form: TLogin_Form;


implementation

uses  Menus, main;

{$R *.DFM}




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

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 b.* from [user] a,[qxb] b'+#13+'where (a.yhm='''+aname+''') and(a.mm='''+apassword+''')and(a.yhm=b.yhm)'+#13+'order by b.cdx';
        with tQuery.Create(nil) do
        begin
        try
        Close;
        sessionName:=main_Form.Database1.SessionName;
        DatabaseName:=main_Form.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr);
        Active:=True;
        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;
    end
    else
    begin
        showmessage('请输入登录用户名和密码！');
        name_edit.SelectAll;
    end;
end;

procedure TLogin_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action:=caFree;
end;

procedure TLogin_Form.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        key:=#0;
        perform(WM_NEXTDLGCTL,0,0);
    end;
end;

procedure TLogin_Form.PassWord_EditKeyPress(Sender: TObject; var Key: Char);
begin
    if key = #13 then
        Button1.Click;
end;

end.