uadduser.~pas

本文阐述了目前CRM（Customer Relationship Management 客户关系管理）的管理方法

unit Uadduser;

interface

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

type
  Tadduser = class(TForm)
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  adduser: Tadduser;

implementation

uses Ulogin;

{$R *.dfm}

procedure Tadduser.FormShow(Sender: TObject);
begin
  ADOTable1.Active:=true;
  BitBtn3.Enabled := false;
end;

procedure Tadduser.BitBtn1Click(Sender: TObject);
var
temp:integer;
begin
  edit1.Text := '';
  edit2.Text := '';
  BitBtn3.Enabled := true;
end;

procedure Tadduser.BitBtn2Click(Sender: TObject);
begin
  if ADOTable1.FieldByName('user').AsString = publicuser then
  begin
    showmessage('你不能自己删除自己');
    exit;
  end else
  ADOTable1.Delete;
end;

procedure Tadduser.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text := ADOTable1.FieldByName('user').AsString;
  edit2.Text := ADOTable1.FieldByName('pwd').AsString;
  if  ADOTable1.FieldByName('type').AsInteger = 1 then
  ComboBox1.Text := '普通用户' else
  ComboBox1.Text := '系统管理员';
end;

procedure Tadduser.BitBtn3Click(Sender: TObject);
var
temp : integer;
begin
  if edit1.Text = '' then
  begin
  showmessage('输入用户名');
  exit;
  end;
  if edit2.Text = '' then
  begin
  showmessage('输入密码');
  exit;
  end;
  if ComboBox1.Text = '' then
  begin
  showmessage('选择用户级别');
  exit;
  end;
  if ComboBox1.Text = '普通用户' then
  temp:=1 else
  temp:=0;
  ADOTable1.Append;
  ADOTable1.FieldByName('user').AsString:= edit1.Text;
  ADOTable1.FieldByName('pwd').AsString:=  edit2.Text;
  ADOTable1.FieldByName('type').AsInteger:= temp;
  ADOTable1.post;
  BitBtn3.Enabled := false;
end;

end.