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.