userset_unit.pas

网上搜索来的进销存源码

unit UserSet_Unit;

interface

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

type
  TUserSet_Form = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    UserName_Edit: TEdit;
    Label2: TLabel;
    Password_Edit: TEdit;
    ListBox1: TListBox;
    Label3: TLabel;
    Label4: TLabel;
    Cpass_Edit: TEdit;
    Cuser_Combox: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure UserName_EditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure Password_EditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Cuser_ComboxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Cpass_EditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    reg: TRegistry;
    procedure addUser(Username: string; password: string);
    procedure delUser(UserName: string);
    procedure ChangePass(UserName, password: string);
  public
    class procedure showme;
  end;

var
  UserSet_Form: TUserSet_Form;

implementation

{$R *.dfm}

procedure TUserSet_Form.addUser(Username, password: string);
begin
  if reg.ValueExists(username) = false then
  begin
    reg.WriteString(username, password);
    messagebox(self.Handle, '添加成功', '', MB_OK);
  end
  else
    messagebox(self.Handle, '该用户已经存在', '', mb_OK);
end;

procedure TUserSet_Form.ChangePass(UserName, password: string);
begin
  reg.WriteString(username, password);
  messagebox(self.handle, '修改成功', '', MB_OK);
end;

procedure TUserSet_Form.delUser(UserName: string);
begin
  reg.DeleteValue(username);
end;

procedure TUserSet_Form.FormCreate(Sender: TObject);
begin
//self.Top :=20;
//self.Left :=253;
  reg := Tregistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('Software\FLy\login', false);
  reg.GetValueNames(listbox1.Items);
  reg.GetValueNames(Cuser_combox.Items);
  Cuser_Combox.ItemIndex := 0;
  listbox1.ItemIndex := 0;
  pagecontrol1.ActivePageIndex := 0;
end;

procedure TUserSet_Form.BitBtn1Click(Sender: TObject);
begin
  if (UserName_Edit.Text <> '') or (Password_Edit.Text <> '') then
    addUser(UserName_Edit.text, password_Edit.text)
  else
    messagebox(self.handle, '请输入完整', '', MB_OK);
end;

procedure TUserSet_Form.BitBtn2Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to listbox1.Items.Count - 1 do
  begin
    if listbox1.Selected[i] then
    begin
      reg.DeleteValue(listbox1.Items.Strings[i]);
      listbox1.DeleteSelected;
      messagebox(self.Handle, '删除成功', '', MB_OK);
      break;
    end;
  end;
end;

procedure TUserSet_Form.Button1Click(Sender: TObject);
begin
  changepass(Cuser_combox.Text, cpass_edit.Text);
end;

class procedure TUserSet_Form.showme;
begin
  try
    UserSet_Form := TUserSet_Form.Create(application);
    userset_form.ShowModal;
  finally
    userset_form.Free;
    userset_form := nil;
  end;
end;

procedure TUserSet_Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action := cafree;
  userset_form := nil;
end;

procedure TUserSet_Form.SpeedButton1Click(Sender: TObject);
begin
  if (UserName_Edit.Text <> '') or (Password_Edit.Text <> '') then
    addUser(UserName_Edit.text, password_Edit.text)
  else
    messagebox(self.handle, '请输入完整', '', MB_OK);

end;

procedure TUserSet_Form.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure TUserSet_Form.SpeedButton4Click(Sender: TObject);
begin
  close;
end;

procedure TUserSet_Form.SpeedButton3Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to listbox1.Items.Count - 1 do
  begin
    if listbox1.Selected[i] then
    begin
      reg.DeleteValue(listbox1.Items.Strings[i]);
      listbox1.DeleteSelected;
      messagebox(self.Handle, '删除成功', '', MB_OK);
      break;
    end;
  end;

end;

procedure TUserSet_Form.SpeedButton5Click(Sender: TObject);
begin
  changepass(Cuser_combox.Text, cpass_edit.Text);
end;

procedure TUserSet_Form.SpeedButton6Click(Sender: TObject);
begin
  close;
end;

procedure TUserSet_Form.UserName_EditKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key = vk_return then
    password_edit.SetFocus;
end;

procedure TUserSet_Form.FormActivate(Sender: TObject);
begin
  username_edit.SetFocus;
end;

procedure TUserSet_Form.Password_EditKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key = vk_return then
    speedbutton1click(nil);
end;

procedure TUserSet_Form.Cuser_ComboxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    Cpass_edit.SetFocus;
end;

procedure TUserSet_Form.Cpass_EditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    speedbutton5click(nil);
end;

end.