usermodify.~pas

完成酒店管理系统

unit UserModify;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB,MainSail;

type
  TUserModifyFrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserModifyFrm: TUserModifyFrm;

implementation

{$R *.dfm}

procedure TUserModifyFrm.Button2Click(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
ComboBox1.Text:= '';
Edit1.SetFocus;
end;



procedure TUserModifyFrm.Button3Click(Sender: TObject);
var
loc: Boolean;
begin
if Edit1.Text = '' then
begin
ShowMessage('请输入用户名!');
Edit1.SetFocus
end
else
begin
loc:= ADOQuery1.Locate('用户名',Edit1.Text,[locaseInsensitive]);
if loc =True then
begin
Edit2.Text:= ADOQuery1.FieldValues['密码'];
Edit3.Text:= ADOQuery1.FieldValues['密码'];
ComboBox1.Text:= ADOQuery1.FieldValues['权限'];
end
else
begin
ShowMessage('输入的用户名不存在');
Edit1.Text:= '';
Edit1.SetFocus;
end;
end;
Edit1.SetFocus;
end;

procedure TUserModifyFrm.Button1Click(Sender: TObject);
begin
if (Edit1.Text = '') or (Edit2.Text = '')
  or (Edit3.Text = '') or (ComboBox1.Text = '')  then
begin
ShowMessage('修改信息不完整,请输入完整的信息');
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
ComboBox1.Text:= '';
Edit1.SetFocus;
end
else
begin
if Edit2.Text <> Edit3.Text then
begin
ShowMessage('两次输入的密码不一致,请重新输入!');
Edit2.Text:= '';
Edit3.Text:= '';
Edit2.SetFocus;
end
else
begin
ADOQuery1.Edit;
ADOQuery1.FieldValues['用户名']:= Edit1.Text;
ADOQuery1.FieldValues['密码']:= Edit2.Text;
ADOQuery1.FieldValues['权限']:= ComboBox1.Text;
ADOQuery1.Post;
ADOQuery1.Refresh;
MainSailFrm.ADOTable1.Refresh;
MainSailFrm.DBGrid1.Refresh;
ShowMessage('已成功修改信息！');

end;
end;


end;

end.