unit7.pas

来自「是用delphi与sql一块作的」· PAS 代码 · 共 85 行

unit Unit7;

interface

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

type
  Txgb = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Label3: TLabel;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgb: Txgb;

implementation

uses Unit1;

{$R *.dfm}

procedure Txgb.Button1Click(Sender: TObject);
var
s1,s2,s3:string;
i,o:boolean;
begin
s1:=edit1.Text+'       ';
s2:=form1.DBEdit1.Text;
i := ansiSameStr(s1,s2);
s3:=edit2.Text+'       ' ;
o:=ansisamestr(s1,s3);                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
try
begin
if i and o
then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update 用户信息 set 登录口令='''+edit3.Text+''' where 登录口令='''+edit1.Text+'''');
adoquery1.ExecSQL;
showmessage('修改成攻!');
xgb.Close;
form1.DBEdit1.Text:='';
end
else
showmessage('所输入信息有误');
xgb.close;
form1.DBEdit1.Text:='';
end;
except
showmessage('可能是操作者原因停止!');
end;
end;
procedure Txgb.FormShow(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

procedure Txgb.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13
then
button1.SetFocus;
end;

end.