我是一个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求源代码!送大奖。

解决方案 »

  1.   

    adoquery1.insertrecord([labelxinghao,ceshisj,kzhi,fzhi,fzuobiao,kzuobiao])
    中括号内容为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
      

  2.   

    先将query连接到spring.mdb
    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.
      

  3.   

    不好意思
    特此声明!!!!!!!!!
    上面Demo应该是Memo
      

  4.   

    希望大家写清楚些,我一点都不懂Delphi
      

  5.   

    怎样从Memo中取出信息呀,必须先取出才能存入库中呀
      

  6.   

    首先遍历memo控件的每一行,找出开头是(“型号”、“测试时间”等)的文本
    然后用copy函数取得需要存入数据库的信息。memo1.Lines.Strings[0]——可以取得指定行的文本
      

  7.   

    仿照这个
    memo2.Lines.add(copy(memo1.Lines.Strings[0],3,2));
      

  8.   

    我的疑问太多了!
    1。里面可能有好多行,我怎么知道什么时候搜索完毕呀!
    2。还有例如 "第一片:K值2.113g/mm;F值5.320gf;F3K5  "
      我要只取出2.113这个值,可用memo1.Lines.Strings[0]是把一行全取出来了
    3。delphi语法我也不懂一点都不懂,甚至怎么运行都不知道呀!§§§§§谁能把完整的代码给我写出来,我给高分!§§§§§
    §§§§§问题我都写很明白了§§§§§
    又不懂的在给我联系!
      

  9.   

    连接数据库可以通过adoquery,datasource,adoconnection.
    多少行可以通过memo1.Lines.Count得到
      

  10.   

    adoquery,datasource,adoconnection里面属性都要设置些什么?
    我只需向库中添加数据就行了
      

  11.   

    adoconnection连接数据库
    datasource地dataset设置为adoquery
    adoquery执行sql 语句
    比如:
    adoquery1.close;
    adoquery1.sql.clear;
    adoquery1.sql.add('select * from table');
    adoquery1.open
      

  12.   

    我要插入语句,sql语句怎么写?
    我是想先从Memo中查出某个值然后再插入的
      

  13.   

    换个控件,把memo换成几个edit就好做了。
      

  14.   

    唉,我不是说了吗,用copy啊,查查帮助就ok了,实在是简单的东西啊
      

  15.   

    demo?什么东西,我是VC没有用过
      

  16.   

    1.建立一個表单 form1 
    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;      
      中间取数部分可以参照楼上几位的高见很详细.
      

  17.   

    楼上太客气了,真感谢你了!
    我连delphi界面都不熟,却无奈要维护一个delphi程序。
    能在告诉我一个问题吗?如果要按下按钮就把Memo中的某些信息添加到数据库中,怎么做,详细些!题目在楼主问题中已说明了
      

  18.   

    回答按钮的问题:  在按钮(Button)的单击事件(Events)OnClick写如下代码:  取出Memo中的内容,然后把第一个信息都赋值给Query(备注:TQuery和TADOQuery差不多)的参数,如下:
      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!
      

  19.   

    1。按照zxw111111(秋风)的做法,现连接好数据库
    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;
      

  20.   

    数据库的连接可以使用ado控件.例如用adodataset,只要设置connect string属性就可以了,再用commandtext属性选择字段名,最后将active属性设置为true 就行了.