当前位置:编程学习 > Delphi >>

delphi连接SQL修改密码的空间有哪些?

追问:

修改密码源代码怎么写?在哪个事件里?为什么我写的这个unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Edit4: TEdit;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
 with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from 用户 where 用户名 = '''+ edit1.text +''' and 密码= '''+ edit2.text +'''');
open;
end;
if not adoquery1.eof then
 begin
   if edit3.text = edit4.text then
  begin
  adoquery1.edit;
  adoquery1.FieldByName('密码').AsString:= edit3.text;
  adoquery1.SQl.Add('update 用户 set (密码AsString)='''+edit3.Text+'''');
  adoquery1.post;
  showmessage('修改成功');
 end
  else if edit3.text <> edit4.text then
showmessage('两次新密码不一致');
end
else
showmessage('用户名或原密码错误');

end;

end.

为什么只执行showmessage('用户名或原密码错误');这一句?

答案:
连SQL数据库的话可以用ADOConnection、ADOQuery、ADODataSet和ADOTable这几个组件。
ADOConnection双击组件就可以选择数据源;
ADOQuery组件和Query组件的使用方法类似,通过SQL属性获取某些数据,满足SQL语句的语法格式,使用方法和ADOTable组件类似,但ADOTable通过TableName属性来定制数据表;
ADODataSet可以直接与一个表进行连接,也可以执行SQL语句,还可以执行存储过程。

1:先建一个数据库

2。建一个数据源ODBC

3。在sqlserver 2000 详细请进 http://apps.hi.zzzyk.com/share/detail/15681231

东莞哪有设计学院
 sqlserver企业管理器-->sqlserver组-->展开来 下来有一个 安全性-》继续展开 可以看到 登录
选中它 在右边可以看到两个默认的 用户 一个是builtin\administrators
另一个是 sa 双击 sa 进入界面 重新修改一个密码
有很多。。。有系统

上一个:C ++ java Delphi
下一个:delphi 写一个DLL,里面有一个窗口

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,