日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
如何在Delphi中自動(dòng)錄入數(shù)據(jù)

如何在Delphi中自動(dòng)錄入數(shù)據(jù)，下面就這個(gè)問(wèn)題進(jìn)行論述。

十載的云陽(yáng)網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營(yíng)銷型網(wǎng)站的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整云陽(yáng)建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“云陽(yáng)網(wǎng)站設(shè)計(jì)”,“云陽(yáng)網(wǎng)站推廣”以來(lái)，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

1、利用Delphi調(diào)用Excel

Delphi中已經(jīng)帶了Word與PowerPoint的例子，因?yàn)镋xcel的調(diào)用與這兩個(gè)應(yīng)用服務(wù)器的調(diào)用略有不同，所以也可以利用Delphi調(diào)用Excel。

步驟如下:

(1) 創(chuàng)建一個(gè)普通Application.

(2) 在Form中分別放入ExcelApplication，ExcelWorkbook和ExcelWorksheet.

(3) 連接Excel.

打開Excel.

 
 
 
      
  
  
  1. Try  
    2.   
  
  
  2. ExcelApplication1.Connect;  
    3.   
  
  
  3. Except  
    4.   
  
  
  4. End; ExcelApplication1.Visible[0]:=True;   
    5.

增加一個(gè)Workbook.

 
 
 
      
  
  
  1. ExcelWorkbook1.ConnectTo(ExcelApplication1 Workbooks.Add(EmptyParam，0));  
    2.

添加一個(gè)Worksheet.

 
 
 
      
  
  
  1. Var Temp_Worksheet: _WorkSheet;  
    2.   
  
  
  2. Begin  
    3.   
  
  
  3. Try  
    4.   
  
  
  4. Temp_Worksheet:=ExcelWorkbook1.  
    5.   
  
  
  5. WorkSheets.Add(EmptyParam，  
    6.   
  
  
  6. EmptyParam，EmptyParam，EmptyParam，0)   
    7.   
  
  
  7. as _WorkSheet;  
    8.   
  
  
  8. ExcelWorkSheet1.ConnectTo(Temp_WorkShee);  
    9.   
  
  
  9. Except  
    10.   
  
  
  10. ShowMessage(′Failure′); End;   
    11.

關(guān)閉Excel.

 
 
 
      
  
  
  1. Try  
    2.   
  
  
  2. ExcelApplication1.Quit;  
    3.   
  
  
  3. ExcelWorksheet1.Disconnect;  
    4.   
  
  
  4. ExcelWorkbook1.Disconnect;  
    5.   
  
  
  5. ExcelApplication1.Disconnect;  
    6.   
  
  
  6. Except  
    7.   
  
  
  7. End;  
    8.   
  
  
  8. End;   
    9.

(4) 對(duì)Excel的一些操作:

選擇某一工作簿中的一個(gè)工作表，然后對(duì)某一單元格進(jìn)行賦值及取值。最后選擇某一區(qū)域作以下操作：

 
 
 
      
  
  
  1. ExcelWorkSheet1.Range[′A1′,′C1′].Select; 
    2.

打開一個(gè)Excel文件.

 
 
 
      
  
  
  1. if OpenDialog1.Execute then  
    2.   
  
  
  2. Begin  
    3.   
  
  
  3. Try  
    4.   
  
  
  4. ExcelWorkBook1.ConnectTo(Excel  
    5.   
  
  
  5. Application1.Workbooks.Open(OpenDialog1FileName,EmptyParam,EmptyParam,Empty Param, EmptyParam, EmptyParam,  
    6.   
  
  
  6. EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,  
    7.   
  
  
  7. EmptyParam,EmptyParam,0));  
    8.   
  
  
  8. ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);  
    9.   
  
  
  9. Except;  
    10.   
  
  
  10. End;   
    11.

2、利用OCR識(shí)別掃描

OCR可以識(shí)別一頁(yè)A4大小的印刷體中英文混排的純文本文件只用幾秒鐘，所以我們可以把掃描的圖像進(jìn)行識(shí)別處理、保存。然后通過(guò)添加記錄或批復(fù)制的操作將得到的數(shù)據(jù)轉(zhuǎn)入數(shù)據(jù)庫(kù)的相應(yīng)的表中。具體實(shí)現(xiàn)如下:

 
 
 
      
  
  
  1. Procedure TForm1.buttonclick(sender:tobject);  
    2.   
  
  
  2. Begin  
    3.   
  
  
  3. Shellexecute(handle,’open’,’  
    4.   
  
  
  4. c:\sh60\sh60.exe’,’,’,sw-shownormal);  
    5.   
  
  
  5. Button3.enabled:=false;  
    6.   
  
  
  6. End;  
    7.   
  
  
  7. Procedure TForm1.formcreat(sender:tobject);  
    8.   
  
  
  8. Var i:integer:  
    9.   
  
  
  9. Begin  
    10.   
  
  
  10. Chdir(‘c:\sh60’);  
    11.   
  
  
  11. Form1.edit1.clear;  
    12.   
  
  
  12. Form1.memo1.clear;  
    13.   
  
  
  13. Assignfile(textid,form1.opendialog1.filename);  
    14.   
  
  
  14. For i:=1 to form1.adoquery1.sql.count do 
    15.   
  
  
  15. Begin  
    16.   
  
  
  16. Form1.adoquery1.close;  
    17.   
  
  
  17. Form1.adoquery1.clear;  
    18.   
  
  
  18. Form1.adoquery1.sq1.add(‘select 表名  
    19.   
  
  
  19. from Formname’)close;  
    20.   
  
  
  20. Form1.adoquery1.open;  
    21.   
  
  
  21. Form1.dbcombox1.datafield:=’表名’;  
    22.   
  
  
  22. End;   
    23.

3、利用原記錄更改

Delphi數(shù)據(jù)錄入時(shí)自動(dòng)復(fù)制原記錄，然后做很少的修改，就完成了一條新記錄的編輯，最后直接保存。

使用 ADO 方法存取 Access數(shù)據(jù)庫(kù)中的表 test，表的第一個(gè)字段是“自動(dòng)編碼”字段，在記錄復(fù)制時(shí)要跳過(guò)。首先在 Form1 上添加 ADOConnection1、ADODataSet1、DataSource1、DBGrid1 等數(shù)據(jù)庫(kù)相關(guān)組件，使用連接向?qū)О?ADOConnection1 與 Access 數(shù)據(jù)庫(kù)連接起來(lái)，把 ADOConnection1 的 LoginPrompt 屬性設(shè)置為 False，其它組件的對(duì)應(yīng)屬性設(shè)置如下:

 
 
 
      
  
  
  1. ADODataSet1.Connection :=ADOConnection1;  
    2.   
  
  
  2. ADODataSet1.CommandText :=select * from test;  
    3.   
  
  
  3. ADODataSet1.Active :=True;  
    4.   
  
  
  4. DataSource1.DataSet :=ADODataSet1;  
    5.   
  
  
  5. DBGrid1.DataSource :=DataSource1;   
    6.

在 DBGrid 中看到數(shù)據(jù)庫(kù)表 test 中的數(shù)據(jù)，后在窗體上添加一些數(shù)據(jù)敏感的數(shù)據(jù)輸入控件(如 DBEdit 等)，將其 DataSource 屬性設(shè)為 DataSource1，再分別與各字段綁定起來(lái)。

在窗體上添加 2 個(gè)按鈕 Button1 和Button2，設(shè)計(jì)相應(yīng)的觸發(fā)事件。

程序編譯運(yùn)行后，按 Button1 按鈕，就會(huì)添加一條新的記錄，記錄的內(nèi)容為添加前記錄指針指向的記錄的內(nèi)容.然后對(duì)現(xiàn)有數(shù)據(jù)做些改動(dòng)，按 Button2 按鈕保存新記錄。

4、結(jié)論

通過(guò)對(duì)上面部分代碼的修改，可以實(shí)現(xiàn)數(shù)據(jù)的自動(dòng)錄入，極大的提高了數(shù)據(jù)的錄入速度。

【編輯推薦】

  1. Delphi基礎(chǔ)開發(fā)技巧
  2. 在Delphi程序中操作注冊(cè)表
  3. 基于Delphi的屏幕抓圖技術(shù)的實(shí)現(xiàn)
  4. Delphi內(nèi)存管理的編程技巧
  5. Delphi開發(fā)技術(shù)手冊(cè)

當(dāng)前題目：如何在Delphi中自動(dòng)錄入數(shù)據(jù)
URL標(biāo)題：http://m.5511xx.com/article/cdjphpp.html