procedure TChangefrm.Button1Click(Sender: TObject);
var q:Tquery;
begin
if trim(edit1.Text)<>trim(edit2.Text) then
begin
showmessage('密碼兩次輸入不一致,請重新確認!');
edit2.Text:='';
edit2.SetFocus;
end
else
try
q:=Tquery.Create(self);
q.DatabaseName:='ORClxx';
q.Close;
q.SQL.Clear;
q.SQL.Add('update login_user set login_psw='+trim(edit1.Text)+' where emplyid='+uname);
q.execSQL;
q.Close;
q.Free;
showmessage('密碼修改成功!');
edit1.Text:='';
edit2.Text:='';
close;
except
showmessage('連接數據庫出錯!');
exit;
end;
end;爲什麽我將密碼修改成05248,提示成功后,我打開表一看,確是5248,爲什麽開頭的0寫不進去?
麻煩大家指點一下,在此,謝謝大家了!
表中的密碼字段,我定義的是字符型呀,長度為6,怎麽會出現這種情況呢?
var q:Tquery;
begin
if trim(edit1.Text)<>trim(edit2.Text) then
begin
showmessage('密碼兩次輸入不一致,請重新確認!');
edit2.Text:='';
edit2.SetFocus;
end
else
try
q:=Tquery.Create(self);
q.DatabaseName:='ORClxx';
q.Close;
q.SQL.Clear;
q.SQL.Add('update login_user set login_psw='+trim(edit1.Text)+' where emplyid='+uname);
q.execSQL;
q.Close;
q.Free;
showmessage('密碼修改成功!');
edit1.Text:='';
edit2.Text:='';
close;
except
showmessage('連接數據庫出錯!');
exit;
end;
end;爲什麽我將密碼修改成05248,提示成功后,我打開表一看,確是5248,爲什麽開頭的0寫不進去?
麻煩大家指點一下,在此,謝謝大家了!
表中的密碼字段,我定義的是字符型呀,長度為6,怎麽會出現這種情況呢?
解决方案 »
- 【求救】写的控件 怎么设置属性默认值?
- delphi 调用SQL 存储过程总结
- 小弟刚开始学delphi,问个弱弱的问题,delphi2009如何新建windows forms application?....
- 两个adoquery连接一个表的数据刷新显示问题
- 如何得到用户的词库?!求一个非常简单的程序!
- 可口可乐公司的程序员能够有多少钱?
- 请高人指点::如何将WAV数据与程序代码一起编译:. .
- 在数据模块中创建 ADO控件错误~~~在线等待... 马上结贴~~~~
- 超级解霸动态播放菜单的如何实现,100分!
- 用ado中能不能使用数据库决策系统
- 请教,在做完一个工程编译,运行后,按停止运行按钮,软件会提示一对话框,然后死机,必段强行结束后重启!
- 请问在VC中定义的char类型在Delphi中怎么定义
q.execSQL;
改成
q.SQL.Add('update login_user set login_psw='''+trim(edit1.Text)+''' where emplyid='+uname);
q.execSQL;
update login_user set login_psw='''+trim(edit1.Text)+'''