有关添加记录

mei324 2003-09-15 02:29:57
procedure TForm1.Button1Click(Sender: TObject);
var
jf,balance : real;
sql : string;
begin
jf := 0.6;
balance := 0.4;
sql := 'insert into TaskJF(ID,JYear,Outlay,Balance) values('+chr(39)+'2'+chr(39)+','+chr(39)+'2001'+chr(39)+','+FloatToStr(JF)+','+FloatToStr(Balance)+')';
showmessage(sql);
qry.Close;
qry.SQL.Clear;
qry.SQL.Add(sql);
qry.ExecSQL;

end;
为什么记录并没有添加到表中
...全文
37 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
hongqi162 2003-09-15
  • 打赏
  • 举报
回复
代码没有问题!

gz



chwdong 2003-09-15
  • 打赏
  • 举报
回复

qry.Close;
qry.SQL.Clear;
qry.SQL.text:=sql;
qry.ExecSQL;
angle097113 2003-09-15
  • 打赏
  • 举报
回复
post一下呢
charmess 2003-09-15
  • 打赏
  • 举报
回复
如果是三层结构的话,那就是没有更新了。
试着调用一下ApplyUpdates(0);函数试一下。
mei324 2003-09-15
  • 打赏
  • 举报
回复
重写过没用,而且我把字符串sql输出来是对的,在sql explor里也能执行,不知道为什么在程序里就不行了,快急死了
angle097113 2003-09-15
  • 打赏
  • 举报
回复
不应该呀
你看看是不是你的ADOQUERY属性是利用的缓存机制呀
没有理由插不进去的呀!奇怪 ,你重新写一遍试试要不然是你的QUERY没有连到数据库 也不可能呀
唉 帮你顶一下吧 建议重写试试
修正了已发现的所有错误.欢迎大家下载试用.. 一、项目名称:学校学生信息管理系统。 二、项目目标:实现对学校学生的信息管理——信息的建立和维护、信息的检索。 三、主要功能: 1.信息的输入:建立学生档案文件。 2.信息维护: 添加:增加新学生; 修改:学生信息的改变; 删除:学生减少。 3.信息处理 按要求检索学生信息; 按要求统计信息。 四、界面系统 1.系统管理员进入 (请输入密码) 2.一级菜单 (1 信息维护 2 信息检索 3 信息统计 4 退出) 3. 二级菜单 信息维护 (1 建立学生成绩文件 2 添加学生记录 3 删除学生记录 4 修改学生记录 5 返回上级菜单) 信息检索 (1 按班级查找 2 返回上级菜单) 信息统计 (1 成绩统计 2 返回上级菜单) 五、主要功能说明: 1.用口令(密码)形式验证管理员身份(可输入三次),合法者可进入,否则程序结束。 2.有关功能说明 1)建立学生成绩表(模块a) 建立新的学生成绩文件; 建立若干学生记录,包括姓名、学号、班级、课程编号、成绩。 2)添加学生记录(模块b) 在已存在的学生成绩文件中添加记录。 3)删除学生记录(模块c) 在学生成绩文件中删除有三门课程不及格的学生记录; 删除前,逐条显示符合删除条件的学生姓名、成绩,确认后再删除。 4)修改学生信息(模块d) 输入学生学号,在学生成绩文件中找出该学生记录; 在屏幕上逐条显示该学生的各条记录; 每显示一条,询问是否修改,如果“Y”,输入修改后数据, 将文件原记录删除,保存新的记录; 5)按姓名和班级查找(模块e) 输入姓名显示相应信息。 6)信息统计(模块f) 同时按照班级和课程统计每门课程、每个班级的平均成绩,最高分、最低分; 在屏幕上先依次显示各门课程,对应的各个班级的统计数据。 7)退出信息管理系统,返回操作系统。

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧