login.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 125 行

unit login;

interface

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

type
  TloginFrm = class(TForm)
    loginOK_Bitn: TBitBtn;
    loginCancel_Bitn: TBitBtn;
    loginPassword_Lab: TLabel;
    loginPassword_Edt: TEdit;
    loginUsername_Lab: TLabel;
    loginUsername_Combo: TComboBox;
    loginTitle: TLabel;
    Panel1: TPanel;
    loginQuery: TQuery;
    Database1: TDatabase;
    loginPanel: TPanel;
    RadioButMan: TRadioButton;
    RadioButUse: TRadioButton;
    procedure loginOK_BitnClick(Sender: TObject);
    procedure loginCancel_BitnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure loginUsername_ComboChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginFrm: TloginFrm;

implementation

uses UserM, ManageM;

{$R *.dfm}

procedure TloginFrm.loginOK_BitnClick(Sender: TObject);
var
  qrystring,password,loginusername:string;
begin
  loginusername:=loginUsername_Combo.Text;
  qrystring:='select password from login where user_id='+''''+loginusername+'''';
  with loginQuery do
    begin
      close;
      SQL.Clear;
      SQL.Add(qrystring);
      open;
      password:=fieldbyname('password').asstring;
    end;
  if password=loginPassword_Edt.Text then
    begin
      if loginusername='客户' then
        begin
          loginFrm.Hide;
          loginPanel.Visible:=false;
          UserMFrm.show;
        end
      else
        begin
          if RadioButMan.Checked then
            begin
              loginFrm.Hide;
              ManageMFrm.show;
            end;
          if RadioButUse.Checked then
            begin
              loginFrm.Hide;
              UserMFrm.Show;
            end;
      end;
    end
  else
    messagebox(LoginFrm.handle,'请输入正确的密码','警告',mb_ok+mb_iconwarning);
end;

procedure TloginFrm.loginCancel_BitnClick(Sender: TObject);
begin
  close;
end;

procedure TloginFrm.FormCreate(Sender: TObject);
var
  i,count:integer;
  qrystring:string;
  temp_username:array[1..50]of string;
begin
  qrystring:='select * from login';
  with loginQuery do
    begin
      close;
      SQL.Clear;
      SQL.Add(qrystring);
      open;
      first;
      count:=recordcount;
      for i:=1 to count do
        begin
          temp_username[i]:=fieldbyname('user_id').asstring;
          next;
        end;
      for i:=1 to count do
        begin
          loginUsername_Combo.Items.Add(temp_username[i]);
        end;
    end;
  loginUsername_Combo.Text:=loginUsername_Combo.Items[0];
end;

procedure TloginFrm.loginUsername_ComboChange(Sender: TObject);
begin
  if loginUsername_Combo.Text='客户' then
    loginPanel.Visible:=false
  else
    loginPanel.Visible:=true;
end;

end.