login_unit.pas

客户关系管理系统,可以进行一些简单的客户关系管理

unit Login_Unit;

interface

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

type
  TLogin_Form = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    BitBtn_Cancel: TBitBtn;
    BitBtn_Ok: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn_CancelClick(Sender: TObject);
    procedure BitBtn_OkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  III: integer;
  G_UserName : string;
  Login_Form: TLogin_Form;

implementation
uses dataModule_UNit,main_form;

{$R *.dfm}



procedure TLogin_Form.FormCreate(Sender: TObject);
begin
  III := 0 ;
  with dataModule_UNit.DM.Aq_user do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Select * from 用户信息表 order by User_Id');
    try
      Open;
    except
    end;
    First;
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('User_Name').AsString);
      Next;
    end;
    ComboBox1.ItemIndex := 0;
  end;
end;


procedure TLogin_Form.FormShow(Sender: TObject);
begin
  Edit1.SetFocus;
end;

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


procedure TLogin_Form.BitBtn_CancelClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TLogin_Form.BitBtn_OkClick(Sender: TObject);
begin
  with Datamodule_Unit.DM do
  begin
    III := III + 1;
    if III >= 4 then
    begin
      Application.MessageBox('非法用户,系统将退出!', '提示', Mb_Ok or Mb_IconStop);
      Application.Terminate;
    end;
    if Aq_user.Locate('User_name', Trim(ComboBox1.Text), []) then
    begin
      if Edit1.Text = Aq_User.FieldByName('PWD').AsString then
      begin
        Close;
        G_UserName := ComboBox1.Text;
        Main.StatusBar1.Panels.Items[2].Text := G_UserName;
      end
      else
      begin
        Application.MessageBox('密码错误!', '提示', Mb_Ok or Mb_IconStop);
        Edit1.SetFocus;
        Edit1.SelectAll;
      end;
    end;
  end;
end;

end.