mrxgmm.pas

客户管理系统主要是以客户为基础

unit MRXGMM;

interface

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

type
  TFRM_XGMM = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_XGMM: TFRM_XGMM;

implementation
  USES DATA, MRYHGL;
{$R *.dfm}

procedure TFRM_XGMM.FormShow(Sender: TObject);
begin
  with database.ADO_user do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
end;

procedure TFRM_XGMM.BitBtn1Click(Sender: TObject);
begin
  if application.MessageBox('真的要修改密码吗？','提示',mb_yesno) = idyes then
  begin
    if (edit1.Text = '')or(edit2.Text = '')or(edit3.Text = '') then
    begin
      showmessage('请把操作员名称及新旧密码填全。');
    end
    else
    begin
      with database.ADO_user do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_user where user_name='+''''+edit1.Text+''''+' and user_mm='+''''+edit2.Text+'''');
        open;
      end;
      if database.ADO_user.RecordCount<1 then
      begin
        showmessage('操作员名称及旧密码错误，请重新填写。');
        edit1.Clear;
        edit2.Clear;
        edit3.Clear;
      end
      else
      begin
        database.ADO_user.Edit;
        database.ADO_user.FieldByName('user_mm').AsString := edit3.Text;
        database.ADO_user.Post;
        showmessage('修改成功。');
      end;
    end;
  end;
end;

procedure TFRM_XGMM.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.