Delphi中數據的自動錄入

在Delphi數據庫應用系統(tǒng)的數據錄入過程中，有些數據是保存在Excel中的；有些是保存在紙張上的；還有一些是需要新增加的，由于各條記錄之間有大量的重復數據，如果每條記錄都讓錄入人員全部手工錄入，其間的重復勞動是相當大的，還降低了工作效率。下面就這個問題進行論述。
    1、利用Delphi調用Excel
    Delphi中已經帶了Word與PowERPoint的例子，因為Excel的調用與這兩個應用服務器的調用略有不同，所以也可以利用Delphi調用Excel。
    步驟如下:
    (1) 創(chuàng)建一個普通Application．
    (2) 在Form中分別放入ExcelApplication， ExcelWorkbook和ExcelWorksheet．
    (3) 連接Excel．
    打開Excel．
    Try
    ExcelApplication1.Connect;
    Except
    End; ExcelApplication1.Visible[0]:=True;
    增加一個Workbook．
    ExcelWorkbook1.ConnectTo(ExcelApplication1 Workbooks.Add(EmptyParam，0));
    添加一個Worksheet．
    Var Temp_Worksheet: _WorkSheet;
    Begin
    Try
    Temp_Worksheet:=ExcelWorkbook1.
    WorkSheets.Add(EmptyParam，
    EmptyParam，EmptyParam，EmptyParam，0)
    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的一些操作:
    選擇某一工作簿中的一個工作表，然后對某一單元格進行賦值及取值。最后選擇某一區(qū)域作以下操作：
    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;