login_unit.~pas

delphi进销存管理系统 很不错得进销存管理系统 有很多skin得

unit Login_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Registry, DB, ADODB;
type
  TInfor = class(Tobject)
    UserName: string;
    Password: string;
  end;
type
  TLogin_Form = class(TForm)
    Label1: TLabel;
    UserName_Combox: TComboBox;
    Label2: TLabel;
    Password_Edit: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Password_EditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure UserName_ComboxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    LogCount: Integer;
    procedure GetUsers;


  public
    TmpList: TStringlist;
    class function ShowMe: boolean;
    function GetSN: TstringList; //得到序列号
  end;

var
  G_IsOverTime: Boolean; //全局变量 是否超过试用期
  G_UserName: string; //全局变量 登录用户名
  Login_Form: TLogin_Form;

implementation
uses Data_unit, main_Unit, Reg_Unit, Share_Unit;

{$R *.dfm}

{ TLogin_Form }

procedure TLogin_Form.GetUsers; //取用户名到组合框
var reg: TRegistry;
  VNames: TStrings;
  Infor: TInfor;
  i: integer;
begin
  reg := TRegistry.Create;
  VNames := TStringList.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\FLy\Login', True);
  Reg.GetValueNames(VNames);
  if VNames.Count <= 0 then
  begin
    Infor := TInfor.Create;
    Reg.WriteString('管理员', '');
    Infor.UserName := '管理员';
    Infor.Password := '';
    UserName_Combox.Items.AddObject(infor.username, infor);
  end
  else
  begin
    for i := 0 to VNames.Count - 1 do
    begin
      Infor := TInfor.Create;
      infor.UserName := Vnames.Strings[i];
      infor.password := Reg.ReadString(VNames.Strings[i]);
      UserName_Combox.Items.AddObject(Vnames.Strings[i], infor);
    end;
  end;
  reg.CloseKey;
  reg.Free;
end;

procedure TLogin_Form.FormDestroy(Sender: TObject);
var i: integer;
begin
  TmpList.Free;
  for i := 0 to UserName_Combox.Items.Count - 1 do
    TInfor(UserName_Combox.Items.Objects[i]).Free;
end;

class function TLogin_Form.ShowMe: boolean;
begin
  try
    Login_Form := TLogin_Form.Create(Application);
    Login_Form.ShowModal;
    if Login_FOrm.ModalResult = mrOk then
      Result := True
    else
      Result := false;
  finally
    Login_Form.Free;
    login_form := nil;
  end;
end;


procedure TLogin_Form.FormCreate(Sender: TObject);
begin
  Getusers;
  TmpList := TStringList.Create;
  UserName_Combox.ItemIndex := 0;
end;

procedure TLogin_Form.Password_EditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    SpeedButton1.Click;
end;

procedure TLogin_Form.UserName_ComboxKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key = vk_return then
  begin
    Password_edit.SetFocus;
  end;
end;


procedure TLogin_Form.FormActivate(Sender: TObject);
begin
  password_edit.SetFocus;
end;

procedure TLogin_Form.SpeedButton1Click(Sender: TObject);
var
  LoginTimes: string;
  TmpStr: string;
begin
  if Password_Edit.Text = TInfor(UserName_Combox.Items.Objects[UserName_Combox.ItemIndex]).Password then
  begin
    G_UserName := UserName_ComBox.Text;
    Main_Form.ShowMenu;
    //以下为判断是否注册过
    TmpStr := Trim(GetSN.Strings[1]); //看注册表中是否有注册信息  
    if (TmpStr = Share_unit.GetZCH(Trim(TmpList.Strings[0]))) and (TmpStr <> '') then //是正确的注册号
    begin   
      if Main_Form.Caption <> '一通进销存修改版（正式注册版）' then
      begin
        Main_Form.Caption := '一通进销存修改版（正式注册版）';
      end;
    end
    else //没有注册
    begin
      if Main_Form.Caption <> '一通进销存修改版（试用版）' then
      begin
        Main_Form.Caption := '一通进销存修改版（试用版）';
      end;
      LoginTimes := Share_Unit.GetLoginTimes; //得到剩余的登录次数
      if (StrtoIntDef(LoginTimes, 0) >= 2) and (StrtoIntDef(LoginTimes, 0) <= 100) then
      begin
        LoginTimes := IntToStr(StrToInt(LoginTimes) - 1);
        Application.MessageBox(Pchar('您还未注册，还可以使用本软件' + LoginTimes + '次！'), '提示', Mb_ok or Mb_IconInformation);
        Share_Unit.WriteLoginTimes(LoginTimes); //把剩余次数写回注册表
      end
      else //试用次数到期了
      begin
        if StrToIntDef(LoginTimes, 0) = 1 then
        begin
          Application.MessageBox('软件已过试用期限,请注册！', '提示');
          G_IsOverTime := True;
          if Application.MessageBox('现在注册吗？', '提示', Mb_YesNo or Mb_IconQuestion) = IdYes then
          begin
            if not Assigned(Reg_Form) then
            begin
              Reg_Form := TReg_Form.Create(Self);
            end;
            Reg_Form.ShowModal; //显示注册窗口
          end
          else
          begin
            Application.Terminate; //程序终止
          end;
        end;
      end;
    end;
    self.ModalResult := mrok;
    Main_Form.StatusBar1.Panels[2].Text := '操作员：'+G_UserName;
  end
  else
  begin
    Messagebox(Self.handle, '密码错误', '', MB_ICONSTOP + MB_OK);
    Password_Edit.SelectAll;
    inc(LogCount);
    if LogCount >= 3 then self.ModalResult := mrCancel;
  end;
end;

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

function TLogin_Form.GetSN: TstringList; //获取到注册表中的注册信息
var
  MyReg: TRegistry;
  sn, reg: string;
begin
  try
    Myreg := TRegistry.Create;
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyReg.OpenKey('Software\FLy\Reg', True);
    try
      sn := MyReg.ReadString('sn');
      reg := MyReg.ReadString('reg');
    except
      MyReg.WriteString('sn', '');
      MyReg.WriteString('reg', '');
    end;
    TmpList.Add(sn);
    TmpList.Add(reg);
    Result := TmpList;
  finally
    MyReg.CloseKey;
    MyReg.Free;
  end;
end;

end.