password.pas

房产售楼CRM系统是以房地产销售业务为主线

unit Password;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Mylabel, StdCtrls, ExtCtrls, Db,
  Buttons, Mask, DBCtrls, jpeg;

type
  TPasswordForm = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    ProjectName: TmyLabel3d;
    Label2: TLabel;
    Label3: TLabel;
    NameEdit: TEdit;
    PasswordMEdit: TMaskEdit;
    OKBitBtn: TBitBtn;
    CancelBitBtn: TBitBtn;
    NameDBEdit: TDBEdit;
    PasswordDBEdit: TDBEdit;
    RegDBEdit: TDBEdit;
    HaveRunNumDBEdit: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure OKBitBtnClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure CancelBitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordForm: TPasswordForm;
  PasswordRight:Integer=0;

implementation

uses udm,main;

{$R *.DFM}

procedure TPasswordForm.FormCreate(Sender: TObject);
begin
  Success:=False;
  ProjectName.Caption:=ExecProjectName;
  {DM.sys_operatorsDAO.Databasename := ExtractFilePath(Application.ExeName) + 'Data\'+ExecProjectName+'.jsh';
  DM.sys_operatorsDAO.Connected:=True;
  DM.sys_operators.Open;}
  Datafilename:=ExtractFilePath(Application.ExeName) + 'Data\'+ExecProjectName+'.jsh';;
  if not fileExists(Datafilename) then
  begin
    MessageBox(Application.Handle,PChar('在当前目录下没有'+'Data\'+ExecProjectName+'.jsh'+'文件！'),Pchar('错误提示'),mb_OK or MB_ICONERROR);
    exit;
  end;
  try
    mainform.Refresh;
    DM.ADOC.Connected:=False;
    DM.ADOC.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
    Datafilename+'; Persist Security Info=False';
    DM.ADOC.LoginPrompt :=false;
    DM.ADOC.Connected:=true;
    except
       MessageBox(Application.Handle,PChar('不能正常连接数据文件。请重新选择打开文件！'),Pchar('错误提示'),mb_OK or MB_ICONERROR);
       exit;
    end;
  MainForm.OpenSys_operators;
  DM.Sys_operators.Edit;
  NameEdit.Text:=NameDBEdit.EditText;
end;

procedure TPasswordForm.OKBitBtnClick(Sender: TObject);
var
  sp,sn:string;
begin
  Success:=False;
  sn:=NameDBEdit.EditText;
  sp:=PasswordDBEdit.EditText;
  if NameEdit.Text<>sn then
  begin
    ShowMessage('没有此登录名！');
    PasswordRight:=0;
    PasswordMEdit.Text:='';
    NameEdit.Setfocus;
    PasswordRight:=0;
  end
  else
  if PasswordMEdit.Text<>sp then
  begin
    ShowMessage('密码不对！');
    PasswordMEdit.text:='';
    PasswordMEdit.SetFocus;
    PasswordRight:=0;
  end
  else
  begin
    PasswordRight:=1;
    if RegDBEdit.EditText<>'1' then
    begin
      HaveRunNumDBEdit.EditText:=IntToStr(StrToInt(HaveRunNumDBEdit.EditText)-1);
      HaveRunNum:=StrToInt(HaveRunNumDBEdit.EditText);
      DM.Sys_operators.Post;
      if HaveRunNum<1 then
      begin
        ShowMessage('试用期限到！请向作者注册！');
        halt;
      end;
    end;
  end;
end;

procedure TPasswordForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if PasswordRight<>1 then  CanClose:=False;
  if ModalResult = mrOK then  Success:=True
  else  Success:=False;
//  DM.sys_operatorsDAO.Connected:=False;
  DM.sys_operators.Active:=False;
end;

procedure TPasswordForm.CancelBitBtnClick(Sender: TObject);
begin
  PasswordRight:=1;
  close;
end;

end.