procedure tform1.btnclick(sender: tobject);
begin
opendialog1.title := '請選擇正確的excel檔案';
opendialog1.filter := 'excel(*.xls)|*.xls';
if opendialog1.execute then
edit1.text := opendialog1.filename;
end;
procedure tform1.btninclick(sender: tobject);
const
beginrow = 2; begincol = 1;
varexcel: olevariant;
irow,icol : integer;
xlsfilename: string;
begin
if (trim(edit1.text) = '') then
begin
messagebox(getactivewindow(), 請選擇正確的excel路徑', mb_ok +
mb_iconwarning);
exit;
end;
xlsfilename := trim(edit1.text);
tryexcept
exit;
end;
excel.visible := false;
excel.workbooks.open(xlsfilename);
tryirow := beginrow;
icol := begincol;
while trim(excel.worksheets[1].cells[irow,icol].value) <> '' do begin
with adoquery1 do begin
fields[0].asstring := trim(excel.worksheets[1].cells[irow,icol].value);
fields[1].asstring := trim(excel.worksheets[1].cells[irow,icol+1].value);
fields[2].asstring := trim(excel.worksheets[1].cells[irow,icol+2].value);
irow := irow + 1;
end;
end;
excel.quit;
adoquery1.updatestatus ;
except
excel.quit;
end;
messagebox(getactivewindow(), '資料匯入成功', '提示資訊', mb_ok +
mb_iconwarning);
end;
Delphi Excel匯入 的通用程式
步驟 1 連excel 自己知道其格式,最好是沒個字段在資料一一對應 2 讀excel資料,填入到資料庫 我這裡有個函式,實現把excel 中資料匯入資料庫,在一條資料匯入前判斷資料庫中是否有該資料,如果有,就不再匯入該資料 避免重複 你可以參考下 procedure tform qyxxcx.bi...
通血管的古方，不管多嚴重都能通！
據 報導，一位居住在倫敦的人的親身經歷，他去巴基斯坦開會的時候，突然胸口劇痛，後來被醫院驗出來，他的三條心血管已經被嚴重堵塞，需要做搭橋手術。手術的時間是乙個月以後，在這個期間，他去看一位回教國家古法 師。這位 hakim讓他自己在家中做乙個食療，他吃了乙個月。乙個月後他去同一家醫院做檢查，發現三條...
匯入模組與匯入函式的不同
背景 目前的各種語言為了使 段變得清晰易懂，將 經過拆分成多個模組，每個模組可以包含多個函式 定義非絕對，換言之，模組可以看出函式的集合體，同時模組本身也是一種函式 那麼各個模組如何相關關聯使用呢？下面通過一些例項講述一下函式的匯入功能。import 模組 eg1 定義匯入的模組為imp modul...