u_usermanage.pas

来自「销售业绩核算系统」· PAS 代码 · 共 156 行

unit U_UserManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Buttons, DB, StdCtrls;

type
  TForm_UManage = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBGrid1: TDBGrid;
    DataSource: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_UManage: TForm_UManage;

implementation

uses F_DM;

{$R *.dfm}

procedure TForm_UManage.SpeedButton4Click(Sender: TObject);
begin
dm.ADOT_UManage.Close;
close;
end;

procedure TForm_UManage.SpeedButton1Click(Sender: TObject);
begin
with dm do
 begin
  if (edit1.text='') or (edit2.text='') or (edit3.text='') then
    begin
      showmessage('对不起！ 请填写用户名和密码！');
      exit;
    end;
  if strtoint(trim(edit2.text))<>strtoint(trim(edit3.text))then
     begin
      showmessage('对不起！ 两次的密码不一样！');
      edit2.text:='';
      edit3.Text:='';
      exit;
    end;

  try
    ADOT_UManage.Close;
    ADOT_UManage.Filter:='username='''+trim(edit1.text)+'''';
    ADOT_UManage.Filtered:=true;
    ADOT_UManage.Open;
    if ADOT_UManage.RecordCount=1 then
     begin
       showmessage('已经存在此用户！');
       ADOT_UManage.Close;
       ADOT_UManage.Open;
       ADOT_UManage.Filtered:=false;
       exit;
     end;
  
  ADOT_UManage.Append;
  ADOT_UManage.FieldByName('username').Value:=trim(edit1.text);
  ADOT_UManage.FieldByName('password').Value:=trim(edit2.text);
  ADOT_UManage.Post;
  showmessage('添加成功！');
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  ADOT_UManage.Close;
  ADOT_UManage.Filtered:=false;
  ADOT_UManage.Open;
  except
    showmessage('添加失败！！');
  end;

  
end;

end;

procedure TForm_UManage.FormActivate(Sender: TObject);
begin
  dm.ADOT_UManage.Close;
  dm.ADOT_UManage.Open;
end;

procedure TForm_UManage.SpeedButton3Click(Sender: TObject);
begin
dm.ADOT_UManage.Delete;
end;

procedure TForm_UManage.SpeedButton2Click(Sender: TObject);
begin

if (edit1.text='') or (edit2.text='') or (edit3.text='')  then
  begin
  showmessage('请填写用户名和密码！');
  exit;
  end;
  if strtoint(trim(edit2.text))<>strtoint(trim(edit3.text))then
     begin
      showmessage('对不起！ 两次的密码不一样！');
      edit2.text:='';
      edit3.Text:='';
      exit;
    end;

  with dm do
   begin
     try
       ADOT_UManage.edit;
       ADOT_UManage.FieldByName('username').Value:=trim(edit1.text);
       ADOT_UManage.FieldByName('password').Value:=trim(edit2.text);
       ADOT_UManage.Post;
       showmessage('修改成功！');
       edit1.Text:='';
       edit2.Text:='';
       edit3.Text:='';
     except
       showmessage('修改失败！！');
     end;
   end;
  
end;

procedure TForm_UManage.DBGrid1CellClick(Column: TColumn);
begin
 if (DBGrid1.SelectedRows=nil) or (dm.ADOT_UManage.RecordCount=0) then
         exit;
         edit1.text:=dm.ADOT_UManage.FieldValues['username'];
         edit2.text:=dm.ADOT_UManage.FieldValues['password'];
         edit3.text:=dm.ADOT_UManage.FieldValues['password'];
end;

end.