WEB开发网
开发学院软件开发Delphi 数据录入时自动复制原记录 阅读

数据录入时自动复制原记录

 2006-02-04 13:43:13 来源:WEB开发网   
核心提示: 在数据库应用系统的数据录入过程中,各条记录之间有大量的重复数据,数据录入时自动复制原记录,如果每条记录都让录入人员全部手工录入,其间的重复劳动是相当大的,我们可以对现有数据做些改动,然后按 Button2 按钮保存新记录,既降低了工作效率,又显得我们的软件不够“专业”
     在数据库应用系统的数据录入过程中,各条记录之间有大量的重复数据,如果每条记录都让录入人员全部手工录入,其间的重复劳动是相当大的,既降低了工作效率,又显得我们的软件不够“专业”。
    其实我们完全可以用代码来实现数据库表记录的自动复制,当客户录入一条新的记录的时候,我们可以把当前记录的数据复制到录入界面的各输入框中,客户只需做很少的修改,就完成了一条新记录的编辑,然后直接保存就可以了。
    本文的示例用 Delphi5.0 制作,使用 ADO 方法存取 access 数据库中的表 test,表的第一个字段是“自动编码”字段,在记录复制时要跳过。首先在 Form1 上添加 ADOConnection1、ADODataSet1、DataSource1、DBGrid1 等数据库相关组件,使用连接向导把 ADOConnection1 与 Access 数据库连接起来,把 ADOConnection1 的 LoginPRompt 属性设置为 False,其它组件的对应属性设置如下:
   ADODataSet1.Connection :=ADOConnection1;
   ADODataSet1.CommandText :='select * from test';
   ADODataSet1.Active :=True;
   DataSource1.DataSet :=ADODataSet1;
   DBGrid1.DataSource :=DataSource1;
     这样以来,就可以在 DBGrid 中看到数据库表 test 中的数据了。
    然后可以在窗体上添加一些数据敏感的数据输入控件(如 DBEdit 等),将其 DataSource 属性设为 DataSource1,再分别与各字段绑定起来。
     再在窗体上添加 2 个按钮 Button1 和 Button2,它们的触发事件如下:
   procedure TForm1.Button1Click(Sender: TObject);
   var
    strList: TStringList;  // 声明字符串列表
    i: integer;
   begin
    strList :=TStringList.Create;
    for i :=0 to ADODataSet1.FieldCount-1 do
     strList.Add(ADODataSet1.Fields[i].AsString);
       // 把各字段的值保存到 TStringList 中。不能应用数组,
       // 因为数组不能保存不同类型的数据。
    ADODataSet1.Insert;  // 插入一条新记录
    for i :=1 to form1.ADODataSet1.FieldCount-1 do
     ADODataSet1.Fields[i].AsString := strList[i];
       // 把 TStringList 中的数据写回到新的记录中。
       // 注意 TStringList 的下标从 1 开始,跳过了表的“自动编码”字段。
    strList.Free;
   end;

   procedure TForm1.Button2Click(Sender: TObject);
   begin
    ADODataSet1.Post;  // 保存新记录
   end;
 
    程序编译运行后,按 Button1 按钮,就会添加一条新的记录,记录的内容为添加前记录指针指向的记录的内容。我们可以对现有数据做些改动,然后按 Button2 按钮保存新记录。程序的有关说明在代码中。

Tags:数据录入 自动 复制

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接