adminDelphi中數據的自動錄入
在Delphi數據庫應用系統的數據錄入過程中，有些數據保存在Excel中；有些保存在紙上；其他的需要新增。由於記錄之間存在大量的重複數據，如果所有的記錄都是手工錄入，那麽重複性的工作會相儅大，工作傚率也會降低。討論了以下問題。
1.用Delphi調用Excel
Delphi已經帶來了Word和PowERPoint的例子。因爲Excel的調用和這兩個應用服務器略有不同，所以也可以用Delphi調用Excel。
步驟如下:
(1)創建一個通用應用程序..
(2)放置ExcelApplication、ExcelWorkbook和ExcelWorksheet。在形式上分別。
(3)連接到Excel..
打開Excel..
請嘗試
ExcelApplication1。連接；
除了
End；ExcelApplication1。visible[0]:= True；
添加工作簿..
ExcelWorkbook1。ConnectTo(ExcelApplication1工作簿。Add(EmptyParam，0))；
添加工作表..
var Temp _ Worksheet:_ Worksheet；
Begin
Try
Temp _ Worksheet:= excelworkbook 1。
工作表。Add(EmptyParam，
EmptyParam，EmptyParam，EmptyParam，0)
as _ WorkSheet；
ExcelWorkSheet1。connect to(Temp _ WorkShee)；
Except
show message(′Failure′)；結束；
關閉Excel。
請嘗試
ExcelApplication1。退出；
ExcelWorksheet1。斷開連接；
ExcelWorkbook1。斷開連接；
ExcelApplication1。斷開連接；
除了
End；
End；
(Excel的一些操作:
在工作簿中選擇一個工作表，然後爲一個單元格賦值。最後選擇一個區域進行如下操作:
Excel工作表1.range ['A1 '，' C1']。選擇；
打開一個Excel文件。
if OpenDialog1。執行然後
開始
嘗試
ExcelWorkBook1。連接到(Excel
應用程序1。workbooks . Open(Open dialog 1 filename，EmptyParam，EmptyParam，Empty Param，EmptyParam，EmptyParam，
EmptyParam，EmptyParam，EmptyParam，EmptyParam，
EmptyParam，EmptyParam，0))；
ExcelWorkSheet1。ConnectTo(ExcelWorkBook1。active sheet as _ Worksheet)；
除外；
End；
0條評論