如何在 delphi7 中將 DBGrid 中的資料一一儲存到 excel 檔案中

您可以直接製作匯出功能，實現過程如下：

1.新增“匯出”按鈕;

3.新增**實現匯出，如下所示：

tryif = 'twwdbgrid'然後開始將游標變成漏斗。

crhourglass;

if not db_ then exit;

if db_ <1 then exit;

false;

excelcount := ;

sheet1 := 'sheet1'];

except

exit;end;

將游標更改為預設值。

crdefault;

endelse

finally

end;

vari, j: integer;

開始為 Excel 建立 OLE 物件。

嘗試開啟乙個 Excel 檔案。

if not then exit;

嘗試設定工作區。

i := 0;

while not query. eof dobegin

j] := "列欄位").asstring;

end;finally

關閉工作區。

end;finally

釋放 OLE 物件。

你加我q，我告訴你。

匯入和匯出到 Excel

合併單元格，多個標題。

樹形表與樹形網格相結合

dbgrid 虛擬列計算字段。

自動分頁列印功能。

在列印預覽過程中，您可以拖動滑鼠來調整頁邊距、行高和列寬，自定義紙張大小，並支援連續列印。

等眾多優質功能，使ejungrid躋身高階控制之列，ejungrid是純德爾福控制，同時提供ActiveX版本，我們的設計目標是讓廣大軟體開發人員輕鬆快捷地開發專業、高水平的軟體產品，讓您的軟體擁有方便快捷的輸入介面，清晰美觀的資料顯示介面， 完美而強大的列印預覽功能，讓您的使用者在列印預覽時輕鬆實時調整頁面布局，所見即所得，操作模式完全相容Excel，輸出報表精緻優雅 0 2 0 2 0 2 0 2 0 2

看看excel中的資料，如果是特定的值，那麼就需要用orange函式把它轉換成特定的日期值，如果已經是特定的日期，那麼只要把excel的顯示範圍擴大，就沒有吳派可以羨慕的了。

方法：過程 dbgridinfotoexcel（filename， titlecaption： string;

makedatasource: tdatasource; makedbgrid: tdbgrid);

arow, iloop: word;

tryxlsheet := createoleobject('');

xlsheet := ;

**標題。 for iloop := 0 to - 1 do

iloop + 1] := ;

資料。 arow := 2;

with do

begindisablecontrols;

first;

while not eof do

beginfor iloop := 0 to - 1 do

beginszvalue := fields[iloop].value;

iloop + 1] := szvalue;

end;inc(arow);

next;end;

first;

enablecontrols;

end;try

出口！ ', '技巧', mb_iconexclamation);

finally

end;except

計算機上未安裝 Excel', '錯', mb_ok);

end;end;

呼叫： 引數 1：Excel 匯出到的檔案的名稱。

引數 2：excel 的第一行標題（本示例中去掉了這個函式，所以它是空的）。

引數 3：連線到 dbgrid 的 DataSOUCE

引數 4：要匯出的 dbgrid

dbgridinfotoexcel(afilename, '', adatasource, dbgrid1);

這麼長的**，希望能用

我不會談論新增的按鈕。 **如下：（順便說一句，下面的DM是資料模組的名稱，如果你不使用資料模組可以刪除它，不知道可以再問一遍）巨集猜測。

procedure : tobject);搭。

新增資料。 end;procedure : tobject);辯論大隊修改。

修改資料。 end;procedure : tobject);取消。

beginif '您確定要取消嗎？ '技巧',mb_yesno)=id_yes then

begintry

取消操作。 except

系統出現錯誤','技巧',64);

end;end;

end;procedure : tobject);刪除。

beginif '是否確實要刪除當前資料？ '遮蔽型，'技巧',mb_yesno)=id_yes then

begintry

刪除資料。 刪除成功','技巧',64);

except

系統出現錯誤','技巧',64);

end;end;

end;procedure : tobject);救。

beginif '你真的可以儲存資料嗎？ '技巧',mb_yesno)=id_yes then

begintry

將提交儲存到資料庫。

儲存成功','技巧',64);

except

系統出現錯誤','技巧',64);

end;end;

end;

看來猜測無法實現。 這一切都是為了實時挽救隋昌的無聊。 你可以說嘗試dbgrid的edithide事件或其他什麼，看看值控制項是否顯示資料庫沒有被寫入。