比如EXCEL表格中
專案名稱 圖號 產品名稱 規格型號 單位 數量
聯合站安全隱患治理工程 CP藝476-2013 游離水脫除器 φ4000*22000 臺 4
試驗站建設工程配注站 制-42892 分離緩沖游離水脫除器 Φ4000 臺 2
……
……
……
實作效果如下
就是通過匯入按鈕，將DBGRIDEH1中匯入第一行資訊四次，匯入第二行資訊兩次，以此類推。
專案名稱 圖號 產品名稱 規格型號 單位 數量
聯合站安全隱患治理工程 CP藝476-2013 游離水脫除器 φ4000*22000 臺 4
聯合站安全隱患治理工程 CP藝476-2013 游離水脫除器 φ4000*22000 臺 4
聯合站安全隱患治理工程 CP藝476-2013 游離水脫除器 φ4000*22000 臺 4
聯合站安全隱患治理工程 CP藝476-2013 游離水脫除器 φ4000*22000 臺 4
試驗站建設工程配注站 制-42892 分離緩沖游離水脫除器 Φ4000 臺 2
試驗站建設工程配注站 制-42892 分離緩沖游離水脫除器 Φ4000 臺 2
以下是我每項資訊只匯入一次的代碼
procedure TForm1.Button28Click(Sender: TObject);
var i:integer;
ColumnNO:string;
msExcel,msExcelWorkBook,msExcelWorkSheet:variant;
begin
Try
OpenDialog1.FileName:='*.xls';
if not OpenDialog1.Execute then
begin
Exit;
end;
if ExtractFileExt(OpenDialog1.FileName) <> '.xls' then
begin
MessageBox(0, '請選擇正確的Excel檔案',PChar('提示'),MB_OK or MB_ICONWARNING);
Exit;
end;
MsExcel:=CreateOleObject('Excel.Application');
MsExcel.visible:=true;
MsExcelWorkBook:=MsExcel.WorkBooks.Open(OpenDialog1.FileName);
Except
Exit;
end;
msExcelWorkSheet:=msExcel.WorkSheets.Item[1];
Table2.Open;
For i:=2 to msExcelWorkSheet.Rows.Count do
Begin
ColumnNO:=msExcelWorkSheet.Range[chr(65)+IntToStr(i)].Value;
If ColumnNO<>''then
Begin
Table2.Append;
Table2.FieldByName('使用單位').AsString:=ColumnNO;
Table2.FieldByName('專案名稱').AsString:=msExcelWorkSheet.Range[chr(66)+IntToStr(i)].Value;
Table2.FieldByName('圖號').AsString:=msExcelWorkSheet.Range[chr(67)+IntToStr(i)].Value;
Table2.FieldByName('產品名稱').AsString:=msExcelWorkSheet.Range[chr(68)+IntToStr(i)].Value;
Table2.FieldByName('規格型號').AsString:=msExcelWorkSheet.Range[chr(69)+IntToStr(i)].Value;
Table2.FieldByName('單位').AsString:=msExcelWorkSheet.Range[chr(70)+IntToStr(i)].Value;
Table2.FieldByName('數量').AsString:=msExcelWorkSheet.Range[chr(71)+IntToStr(i)].Value;
Table2.FieldByName('交貨日期').AsFloat:=msExcelWorkSheet.Range[chr(72)+IntToStr(i)].Value;
Table2.FieldByName('計劃上傳日期').AsString:=msExcelWorkSheet.Range[chr(73)+IntToStr(i)].Value;
Table2.Post;
End else
Break;
End;
Table2.Close;
MsExcel.Quit;
table2.Close;
table2.Open;
table2.Last;
end;
uj5u.com熱心網友回復：
大致方式：1、打開Excel，從第二行開始一行一行讀。
2、讀了一行后，判斷數量是多少，保存到一個變數中（如sl）。
3、加一個for回圈，從1到sl。
4、在for回圈中，將當前行插入到表中。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/87405.html
標籤：數據庫相關
下一篇：如何在資料庫中存盤圖片檔案？