uses DBGridEhImpExp
//導出到文本文件
TDBGridEhExportAsText
//導出到Unicode文本
TDBGridEhExportAsUnicodeText
//導出到CSV
TDBGridEhExportAsCSV
//導出到HTML
TDBGridEhExportAsHTML
//導出到RTF
TDBGridEhExportAsRTF
//導出到XLS
TDBGridEhExportAsXLS
//導出到XLSX
TDBGridEhExportAsXlsx
//示例
procedure TForm1.Button1Click(Sender: TObject);
var Path:string; begin GetDir(0,Path); ExportDBGridEhToXlsx(DBGridEh,Path+'\File1.xlsx',[]); ShowMessage('Export is finished'); end;
需要打開多表頭支持TitleParams->MultiTitle選擇TRUE
給表頭賦值時輸入格式為:
DBGridEh.Columns[0].FieldName:='Name|FirstName';
DBGridEh.Columns[0].FieldName:='Name|LastName';
相同合並的表頭需要用豎線'|'分割
FooterRowCount需要輸入頁腳匯總的行數,比如1
單擊要匯總列的Footers屬性,在結構視圖點擊右鍵選擇Add Item出現此列頁腳的屬性,在ValueType選擇需要進行的計算,常用的有計數,合計,最大值,最小值,
其中fvtFieldValue是根據數據集中字段進行計算,在FieldName屬性中,可以選擇要匯總合計的字段
,在DisplayFormat中可以輸入要顯示值得格式比如0.00,
ValueType是fvtStaticText中是顯示靜態文本
需要將dbgrideh的屬性中的sumlist中的Active 設置為 True才能根據字段進行計算
選中要顯示復選框的列,設置CheckBoxes為True
在FieldName中選中數據集中要顯示的列,數據集中這個字段必須設置為Bit類型
主表連接方式:DBGridEh1->DataSource1->MemTableEh1->DataSetDriverEh1->ADOQuery1->ADOConnection1
ADOQuery1.sql.text:='select * from WareOut'
DBGridEH1.RowDetailPanel.Active:=True;打開顯示子表的Panel
把DBGridEH2放入DBGridEH1打開的Panel中,並設置DBGridEH2的Algin為alClient
子表連接方式:DBGridEh2->DataSource2->MemTableEh2->DataSetDriverEh2->ADOQuery2->ADOConnection1
ADOQuery2.sql.text:='select * from WareOutDetail'
設置MemTableEh2的MasterFields和DetailFields
//獲取當前點擊單元格值
procedure TForm1.DBGridEh1CellClick(Column: TColumnEh);
begin
ShowMessage(Column.DisplayText);
end;
//獲取當前選擇行某列單元格值
procedure TForm1.DBGridEh1CellClick(Column: TColumnEh);
begin
ShowMessage(DBGridEh1.Columns[1].DisplayText);
end;
DBGridEh1.IndicatorOptions := [gioShowRowIndicatorEh, gioShowRecNoEh];
DBGridEh1.IndicatorParams.RecNoShowStep := 10; //定義多少行顯示行號,默認為●鼠標點擊后顯示當前行號
EvenRowColor 偶數行顏色
OddRowColor 奇數行顏色
FrozenCols 凍結列,賦值2即凍結左邊兩列
- 縱向相同單元格值不重復顯示
