数据库记录中间插值

Question

数据库中每口井有一个字段名成是深度，为了画图需要，深度之间的间隔若是超过0.3就要在两个深度值之间每隔0.3插入一个值，例如上一个深度值为 1005.6 下一个深度值为1006.9  那么在两个记录之间要插入1005.9，1006.2，1006.5，1006.8四个值相当于插入四行新的纪录  除了井号和深度之外其余全为空  access数据库  请问程序如何实现   

Answer 1

在中间插入，你最好先对深度这个字段排序
简单给你写了下生成的中间数据
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure aa(v1,v2:double);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.aa(v1, v2: double);
begin
while v1+0.3<v2 do
  begin
  v1:=v1+0.3;
  //这儿你可以改成你自己的插入数据库代码
  memo1.Lines.Add(floattostr(v1));
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
aa(strtofloat(edit1.Text),strtofloat(edit2.Text));
end;end.