login.~pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ahmtbackground, StdCtrls, Buttons, ahmtlabel, ExtCtrls,
  ahmtpanel, Mask;

type
  TF_Login = class(TForm)
    AHMPanel1: TAHMPanel;
    AHMLabel1: TAHMLabel;
    AHMLabel2: TAHMLabel;
    AHMLabel3: TAHMLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    AHMBackground1: TAHMBackground;
    MaskEdit1: TMaskEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Login: TF_Login;

implementation

uses dm, main;

{$R *.dfm}

procedure TF_Login.SpeedButton2Click(Sender: TObject);
begin
   F_Login.Close;
   application.Terminate;
end;

procedure TF_Login.SpeedButton1Click(Sender: TObject);
var pswd:string;
begin
   if (Edit1.Text='')or(MaskEdit1.Text='') then
   begin
      ShowMessage('请输入用户名和密码！');
      Edit1.SetFocus;  //焦点在用户名输入框
      exit;
   end;

   With MyDM.UserQuery do
   begin
      Close;
      With SQL do
      begin
         Clear;
         Add('select * from Users');
         Add('where User_ID = :p');
      end;
      Parameters[0].Value := trim(Edit1.Text);
      ExecSQL;
      Open;
   end;

   if MyDM.UserQuery.RowsAffected = 0 then
   begin
      ShowMessage('用户名不存在，请重新输入!');
      Edit1.Clear;
      Maskedit1.Clear;
      Edit1.SetFocus;
      exit;
   end;

   MyDM.UserQuery.First;
   if MaskEdit1.Text <> MyDM.UserQuery.Fields[2].Text then
   begin
      ShowMessage('密码不正确，请重新输入！');
      MaskEdit1.Clear;
      MaskEdit1.SetFocus;
      exit;
   end;

   if MyDM.UserQuery.Fields[3].Text = '3' then
   begin
      F_Main.SpeedButton8.Enabled := False;
      F_Main.SpeedButton10.Enabled := False;
      F_Main.ShowModal;
      F_Login.Close;
   end;

   if MyDM.UserQuery.Fields[3].Text = '2' then
   begin
      //F_Main.SpeedButton8.Enabled := False;
      F_Main.SpeedButton10.Enabled := False;
      F_Main.ShowModal;
      F_Login.Close;
   end;

   if MyDM.UserQuery.Fields[3].Text = '1' then
   begin
      F_Main.ShowModal;
      close;
   end;

end;

end.