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.FieldValues['密码'] := edit3.text;
adoquery1.post;
application.MessageBox('修改成功！','提示:',mb_ok);
form9.Close;
end
这些语句每句什么意思请高手指点
追问：这我也知道 我要在后面加上注释答案：begin
with adoquery1 do 省去了，前面的adoquery1 在with语句中就可以直接向方法了和adoquery1.xxxx一样begin
close;相当于adoquery1.close，先关闭数据库连接
sql.clear;相当于adoquery1.sql.clear，先清空adoquery1 VCL中一前的SQL语句
sql.add('select * from 登录表 where 用户名 = '''+ edit1.text +''' and 密码 = '''+ edit2.text +'''');
在adoquery1 中添加sql语句
open;打开数据库连接end;
if not adoquery1.eof then 不如没有到最后继续
begin
if edit3.text = edit4.text then
begin
adoquery1.edit; 准备编辑当前所用户名密码
adoquery1.FieldValues['密码'] := edit3.text; 是密码段等于edit3.text
adoquery1.post;提交当前数据
application.MessageBox('修改成功！','提示:',mb_ok); 显示对话框
form9.Close; 窗体关闭
end这是一个修改密码的界面，先是判断当前输入的用户名、密码是否正确，如果正确，再判断两次输入的新密码是否一致，如果一致则修改成功！
上一个：delphi 一个程序问题
下一个：DELPHI的tstrings问题
