rpd.pas

简单的delphi udp聊天系统,简单的delphi udp聊天系统

unit rpd;

interface

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

type
  TRevampPassword = class(TForm)
    Label1: TLabel;
    User3: TEdit;
    Password4: TEdit;
    Password5: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RevampPassword: TRevampPassword;

implementation

uses chat, DataM, ADODB;

{$R *.dfm}

procedure TRevampPassword.FormActivate(Sender: TObject);
begin
User3.Text:=MainForm.nickname.Text;
Password4.SetFocus;
end;

procedure TRevampPassword.BitBtn1Click(Sender: TObject);
begin
if Password4.Text='' then
begin
Application.MessageBox('密码不能为空，请输入！','温馨提示！',MB_Ok+MB_ICONWARNING);
Password5.Text:='';
Password4.SetFocus;
end
//sqlstr2:='update YongHu set Password =:Passwords where User_Name =:User_Names';
//sqlstr2:='update YongHu set Password=:'+'''+Password4.Text+'''+ 'where User_Name=:'+'''+User3.Text+''';
else if Password4.Text<>Password5.Text then
begin
Application.MessageBox('输入密码前后不一致！','温馨提示！',MB_OK+MB_ICONWARNING);
Password4.Text:='';
Password5.Text:='';
Password4.SetFocus;
end
else
begin
with dm.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('update YongHu set Pass_word =:Pass_word where User_Name =:User_Name');
Parameters.ParamByName('Pass_word').Value := Password4.Text;
Parameters.ParamByName('User_Name').Value := User3.Text;
ExecSQL;
end;
Application.MessageBox('修改密码成功！','温馨提示！',MB_OK+MB_ICONASTERISK);
ModalResult:=mrYes;
end;
end;
procedure TRevampPassword.BitBtn2Click(Sender: TObject);
begin
Password4.Text:='';
Password5.Text:='';
Password4.SetFocus;
end;

end.