解决方案 »
- 制作系统安装程序怎样设置odbc数据源的问题
- 在单元中用$DEFINE定义的Symbol在引用他的单元中可见吗?
- sql insert的时候,使用了QuotedStr函数,下面这个字符串insert的时候为什么出错呢?
- dbgrideh怎么指定指定的列不排序?
- Dhtml的应用问题!aiirii请进!
- 关于报表的问题,大家帮帮忙
- 请有从access库导入sqlserver的源代吗
- 如何使memo控件中文本不同行用不同颜色显示?
- 关于等待窗口中GIF不跳动问题.
- 怎样求出ListBox中某项的Index(该项的名称知道)
- 散分,不记得多久没来过了,发布一个自己写的软件,H264/AAC录制视音频,保存FLV,支持RTMP直播,delphi写的主程序,这么多年了还是喜欢delphi
- delphi 用 dbexpress 连接到数据库,如何增加记录呢?
程序代码是这样的 请高手帮我看看问题出在什么地方
procedure TForm1.Button1Click(Sender: TObject);
begin
try
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from 管理 where 用户名=:a and 密码=:b ');
parameters.ParamByName('a').Value:=trim(combobox1.Text);
parameters.ParamByName('b').Value:=trim(edit1.Text);
if combobox1.Text ='' then
begin
application.MessageBox('请输入用户名','提示信息',64);
combobox1.SetFocus;
exit;
end;
if edit1.Text ='' then
begin
application.MessageBox('请输入密码','提示信息',64);
edit1.SetFocus;
exit;
end;
open; //以上用户输入都正常,打开数据库
end;
if adoquery1.RecordCount<>0 then
begin
application.MessageBox('登陆成功','提示信息',64);
Form2.show; //需要再建立一个form窗口用来作为登录正确后显示的窗体
self.Hide;
end
else
application.MessageBox('输入的用户名或密码错误','提示信息',64);
except
application.MessageBox('登陆失败','提示信息',64);
end; end;