我是一个vc用户,从来没接触过delphi语言,可突然领导让改个delphi程序!
谢谢各位帮助,我第一次见到delphi界面,还望个位讲的细一些!
问题:
已经做好的一个程序上,界面上有个Demo控件,运行时里面有一些信息。现在我想把里面的信息的一部分取出保存到一个access数据库中。
例如:运行时Demo中有这些内容:
型号:PS-10B
测试时间:2002-12-11
测试记录:
第一片:K值2.113g/mm;F值5.320gf;F3K5
第二片:K值2.220g/mm;F值5.500gf;F5K4
现在我怎么让运行时按一下“保存”按钮,就可把上面的信息存到数据库Spring.mdb的表INFO中,这个表的字段: 型号 测试时间 K值 F值 F坐标 K坐标
类型: 符串 日期时间 单精度 单精度 整型 整型
存入后例如上面的数据在库中为:PS-!0B 2002-12-11 2.113 5.320 3 5求源代码!送大奖。
谢谢各位帮助,我第一次见到delphi界面,还望个位讲的细一些!
问题:
已经做好的一个程序上,界面上有个Demo控件,运行时里面有一些信息。现在我想把里面的信息的一部分取出保存到一个access数据库中。
例如:运行时Demo中有这些内容:
型号:PS-10B
测试时间:2002-12-11
测试记录:
第一片:K值2.113g/mm;F值5.320gf;F3K5
第二片:K值2.220g/mm;F值5.500gf;F5K4
现在我怎么让运行时按一下“保存”按钮,就可把上面的信息存到数据库Spring.mdb的表INFO中,这个表的字段: 型号 测试时间 K值 F值 F坐标 K坐标
类型: 符串 日期时间 单精度 单精度 整型 整型
存入后例如上面的数据在库中为:PS-!0B 2002-12-11 2.113 5.320 3 5求源代码!送大奖。
中括号内容为label或者edit。
或者adoquery1.sql.add('insert into spring (型号,测试时间,K值,F值,F坐标,K坐标) values (:a,:b,:c,:d,:e,:f....);
parameters.parambyname('a').value:=edit.text or label.caption
query.close();
query.sql.clear();
query.sql.add('insert into info values ("ps-10b","2002-12-11",.....)');
query.execsql;
sorry,i have not used delphi,i donot know what demo is.
特此声明!!!!!!!!!
上面Demo应该是Memo
然后用copy函数取得需要存入数据库的信息。memo1.Lines.Strings[0]——可以取得指定行的文本
memo2.Lines.add(copy(memo1.Lines.Strings[0],3,2));
1。里面可能有好多行,我怎么知道什么时候搜索完毕呀!
2。还有例如 "第一片:K值2.113g/mm;F值5.320gf;F3K5 "
我要只取出2.113这个值,可用memo1.Lines.Strings[0]是把一行全取出来了
3。delphi语法我也不懂一点都不懂,甚至怎么运行都不知道呀!§§§§§谁能把完整的代码给我写出来,我给高分!§§§§§
§§§§§问题我都写很明白了§§§§§
又不懂的在给我联系!
多少行可以通过memo1.Lines.Count得到
我只需向库中添加数据就行了
datasource地dataset设置为adoquery
adoquery执行sql 语句
比如:
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from table');
adoquery1.open
我是想先从Memo中查出某个值然后再插入的
2.在form1上添加一个adoconnect (在面板ado中). (没办法可能你需要这么详细,别嫌我罗嗦.)
3.再在form1上添加一个adoquery(在ado中).
4.再在form1上添加一个datasource(data).5.设定adoconnect的属性.
在此控件上双击.选择有jet的语句.
按要求继续填入需要的一切( step by step)
6.选中adoquery1 按动F11键激活属性面板.
选择connect 的属性单击下拉框选择adoconnect1
7.选中datasource按动F11键激活属性面板.
选择 datasource 的属性单击下拉框选择adoquery1.
ok!如果通过的话,将成功连接数据库了.
在form1.active中写入
if adoquery1.active = false then adoquery1.open;
在本程序(表单)运行时自然打开了你连接的数据库.
最后别忘了在关闭的时候应写上:
if adoquery1.state in [dsinsert,dsedit] then adoquery1.post;
adoquery1.close;
中间取数部分可以参照楼上几位的高见很详细.
我连delphi界面都不熟,却无奈要维护一个delphi程序。
能在告诉我一个问题吗?如果要按下按钮就把Memo中的某些信息添加到数据库中,怎么做,详细些!题目在楼主问题中已说明了
with Query1 do
begin
close;
SQL.clear;
SQL.add('insert into 表 Values(字段=:Pid1,字段=:Pid2...)');
ParamByName('Pid1').as强制类型转换=Memo中的内容1;
ParamByName('Pid2').as强制类型转换=Memo中的内容;
...
Execsql;
end; ^&^ Good Luck!
2。在ADOQuery的属性SQL里写上查询语句目的把表联起来
“select * from 表”3。双击要实现添加的按钮
4。按照上面几位朋友的方法取出Memo中的信息
5。分别添加如下with ADOQuery1 do
begin
Append;
FieldValues['测试时间']:=Now;//具体值可以改为Memo中取出,下同
FieldValues['弹簧片型号']:=‘’;
FieldValues['K值']:=1.27;
FieldValues['F值']:=5.2;
FieldValues['K坐标']:=3;
FieldValues['F坐标']:=2;
FieldValues['操作人']:='';
post;
end;