• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Delphi中数据的自动录入

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

 

Delphi数据库应用系统的数据录入过程中,有些数据是保存在Excel中的;有些是保存在纸张上的;还有一些是需要新增加的,由于各条记录之间有大量的重复数据,如果每条记录都让录入人员全部手工录入,其间的重复劳动是相当大的,还降低了工作效率。下面就这个问题进行论述。

  1、利用Delphi调用Excel

  Delphi中已经带了WordPowerPoint的例子,因为Excel的调用与这两个应用服务器的调用略有不同,所以也可以利用Delphi调用Excel

  步骤如下:

  (1) 创建一个普通Application

  (2) Form中分别放入ExcelApplication ExcelWorkbookExcelWorksheet

  (3) 连接Excel

  打开Excel

Try
ExcelApplication1.Connect;
Except
End; ExcelApplication1.Visible[0]:=True;


  增加一个Workbook

ExcelWorkbook1.ConnectTo(ExcelApplication1 Workbooks.Add(EmptyParam0));


  添加一个Worksheet

Var Temp_Worksheet: _WorkSheet;
Begin
Try
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam

EmptyParam
EmptyParamEmptyParam0)
as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkShee);
Except
ShowMessage(′Failure′); End;


  关闭Excel.

Try
ExcelApplication1.Quit;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
Except
End;
End;


  (4) Excel的一些操作:

  选择某一工作簿中的一个工作表,然后对某一单元格进行赋值及取值。最后选择某一区域作以下操作:
ExcelWorkSheet1.Range[′A1′,′C1′].Select;

  打开一个Excel文件.

if OpenDialog1.Execute then
Begin
Try
ExcelWorkBook1.ConnectTo(Excel
Application1.Workbooks.Open(OpenDialog1FileName,EmptyParam,EmptyParam,Empty Param, EmptyParam, EmptyParam,
EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,
EmptyParam,EmptyParam,0));
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
Except;
End;


  2、利用OCR识别扫描

  OCR可以识别一页A4大小的印刷体中英文混排的纯文本文件只用几秒钟,所以我们可以把扫描的图像进行识别处理、保存。然后通过添加记录或批复制的操作将得到的数据转入数据库的相应的表中。具体实现如下:

Procedure TForm1.buttonclick(sender:tobject);
Begin
Shellexecute(handle,'open','
c:\sh60\sh60.exe',',',sw-shownormal);
Button3.enabled:=false;
End;
Procedure TForm1.formcreat(sender:tobject);
Var i:integer:
Begin
Chdir('c:\sh60');
Form1.edit1.clear;
Form1.memo1.clear;
Assignfile(textid,form1.opendialog1.filename);
For i:=1 to form1.adoquery1.sql.count do
Begin
Form1.adoquery1.close;
Form1.adoquery1.clear;
Form1.adoquery1.sq1.add('select
表名
from Formname')close;
Form1.adoquery1.open;
Form1.dbcombox1.datafield:='
表名';
End;


  3、利用原记录更改

  Delphi数据录入时自动复制原记录,然后做很少的修改,就完成了一条新记录的编辑,最后直接保存。
使用 ADO 方法存取 Access数据库中的表 test,表的第一个字段是"自动编码"字段,在记录复制时要跳过。首先在 Form1 上添加 ADOConnection1ADODataSet1DataSource1DBGrid1 等数据库相关组件,使用连接向导把 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,设计相应的触发事件。

  程序编译运行后,按 Button1 按钮,就会添加一条新的记录,记录的内容为添加前记录指针指向的记录的内容.然后对现有数据做些改动,按 Button2 按钮保存新记录。

  4、结论

  通过对上面部分代码的修改,可以实现数据的自动录入,极大的提高了数据的录入速度。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
delphi中第三方控件的安装方法发布时间:2022-07-18
下一篇:
ClipboardwithCustomClipboardFormats-Delphi发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap