我的程序是用DELPHI5+XP环境下开发的，BDE接口，ORACLE数据库，10年来运行得好好的，现在给一个WIN7搞到无所适从啊！
请各位大大帮帮忙！
1>>我在WIN7（朋友机,不知32还是64位）安装BDE时，别名修改后等好久也不系统也不提示OK，强关闭，再进入，但已OK了，再改ORACLE 的接口文件，始终不能修改成功，但在另一部WIN7机器上安装正常（各位如需BDE程式请联系我LIANGYAN5811@163.COM)
无办法，最后在注册表中改了。

2>>还有两部WIN7机器上以下代码都不能通过，就是打开时无反应，文件操作正常!

procedure TfrmQuotationList.printexcel07(mdataset:Tquery;mfilename:string='');
var eclapp, workbook: variant;
currrow,i:integer;
begin
try
eclapp := createoleobject('excel.application');
workbook :=eclapp.workbooks.open(ExtractFilePath(Application.ExeName) mfilename);
with mdataset do
begin
First;currrow:=10; i:=1;
eclapp.cells[7,6].value:='''' Formatdatetime('yyyy-mm-dd',fieldbyname('Q_date').Asdatetime);
while not eof do
begin
eclapp.activesheet.rows[currrow].insert;
eclapp.cells[currrow,1].value:='''' inttostr(i);
eclapp.cells[currrow,2].value:='''' Fieldbyname('CUSETER_PART_NUMBER').asstring;
eclapp.cells[currrow,4].value:='''' Fieldbyname('INV_DESC').asstring;
eclapp.cells[currrow,8].value:=Fieldbyname('Q_UNIT_PRICE').asstring;
eclapp.cells[currrow,10].value:='''' '10K';
Next;
currrow:=currrow 1;
i:=i 1;
end;
currrow:=currrow 1;
eclapp.cells[currrow,3].value:=Fieldbyname('PAYMENT_NAME').asstring;
currrow:=currrow 1;
eclapp.cells[currrow,7].value:=Fieldbyname('L_ITEM_name').asstring;
end; //WITH MDATA
eclapp.visible:=True;----这里不能正常SHOW出来
except
raise;
end;
end;

----------------但以下代码能在另一部WIN7上SHOW出,乱码是值不用理它，我是大陆简体的
procedure TfrmQuotationList.NewExportToQution(mdataset,mdetialdata:Tquery);
var eclapp, workbook: variant;
Currrow:integer;
begin
try
spexport.Enabled:=False;
eclapp := createoleobject('excel.application');
workbook := createoleobject('excel.sheet');
workbook := eclapp.workbooks.add;
eclapp.range['A1:X1'].Merge;
eclapp.range['A1:A1'].Value:=CompanyName;
eclapp.range['A1:A1'].font.NAME:='Arial';
eclapp.range['A1:A1'].font.size:=14;
eclapp.range['A1:A1'].HorizontalAlignment:=3;//
eclapp.Range['A1:A1'].Borders.linestyle := 1;
eclapp.range['A2:X2'].Merge;
eclapp.range['A2:A2'].Value:=self.caption;
eclapp.range['A2:A2'].font.NAME:='Arial';
eclapp.range['A2:A2'].font.size:=10;
eclapp.range['A2:A2'].HorizontalAlignment:=3;//
eclapp.Range['A2:X2'].Borders.linestyle := 1;
///////////////////////////////±êÌâ
eclapp.range['A3:X3'].Merge;
eclapp.range['A3:A3'].font.NAME:='Arial';
eclapp.range['A3:A3'].HorizontalAlignment:=3;//
eclapp.Range['A3:X3'].Borders.linestyle := 1;
eclapp.Range['A4:A4'].Borders.linestyle := 1;
eclapp.range['A4:A4'].Value:='±¨¼Ûµ¥±àÂë';
eclapp.range['A4:A4'].font.NAME:='Arial';
eclapp.range['A4:A4'].font.size:=10;
eclapp.range['A4:A4'].HorizontalAlignment:=3;//
eclapp.Range['B4:B4'].Borders.linestyle := 1;
eclapp.range['B4:B4'].Value:=mdataset.fieldbyname('QUOTIONG_NUMBER').asstring;
eclapp.range['B4:B4'].font.NAME:='Arial';
eclapp.range['B4:B4'].font.size:=10;
eclapp.range['B4:B4'].HorizontalAlignment:=3;//
eclapp.Range['C4:C4'].Borders.linestyle := 1;
eclapp.range['C4:C4'].Value:='ÓÐЧÌìÊý';
eclapp.range['C4:C4'].font.NAME:='Arial';
eclapp.range['C4:C4'].font.size:=10;
eclapp.range['C4:C4'].HorizontalAlignment:=3;//
eclapp.Range['D4:D4'].Borders.linestyle := 1;
eclapp.range['D4:D4'].Value:=mdataset.fieldbyname('NET_DAY').asstring;
eclapp.range['D4:D4'].font.NAME:='Arial';
eclapp.range['D4:D4'].font.size:=10;
eclapp.range['D4:D4'].HorizontalAlignment:=3;//
eclapp.Range['E4:E4'].Borders.linestyle := 1;
eclapp.range['E4:E4'].Value:='×îµÍ¶©Á¿';
eclapp.range['E4:E4'].font.NAME:='Arial';
eclapp.range['E4:E4'].font.size:=10;
eclapp.range['E4:E4'].HorizontalAlignment:=3;//
eclapp.Range['F4:F4'].Borders.linestyle := 1;
eclapp.range['F4:F4'].Value:=mdataset.fieldbyname('MOQ').asstring;
eclapp.range['F4:F4'].font.NAME:='Arial';
eclapp.range['F4:F4'].font.size:=10;
eclapp.range['F4:F4'].HorizontalAlignment:=3;//
eclapp.Range['G4:G4'].Borders.linestyle := 1;
eclapp.range['G4:G4'].Value:='µ¥Î»';
eclapp.range['G4:G4'].font.NAME:='Arial';
eclapp.range['G4:G4'].font.size:=10;
eclapp.range['G4:G4'].HorizontalAlignment:=3;//
eclapp.Range['H4:H4'].Borders.linestyle := 1;
eclapp.range['H4:H4'].Value:='Ôª/ÍòÁ£';
eclapp.range['H4:H4'].font.NAME:='Arial';
eclapp.range['H4:H4'].font.size:=10;
eclapp.range['H4:H4'].HorizontalAlignment:=3;//
eclapp.Range['I4:I4'].Borders.linestyle := 1;
eclapp.range['I4:I4'].Value:='±¨¼ÛÈÕÆÚ';
eclapp.range['I4:I4'].font.NAME:='Arial';
eclapp.range['I4:I4'].font.size:=10;
eclapp.range['I4:I4'].HorizontalAlignment:=3;//
eclapp.range['J4:L4'].Merge;
eclapp.Range['J4:L4'].Borders.linestyle := 1;
eclapp.range['J4:J4'].Value:=Formatdatetime('yyyy-mm-dd',mdataset.fieldbyname('Q_DATE').asdatetime);
eclapp.range['J4:L4'].font.NAME:='Arial';
eclapp.range['J4:L4'].font.size:=10;
eclapp.range['J4:L4'].HorizontalAlignment:=3;//
eclapp.Range['A5:A5'].Borders.linestyle := 1;
eclapp.range['A5:A5'].Value:='¿Í»§Ãû³Æ';
eclapp.range['A5:A5'].font.NAME:='Arial';
eclapp.range['A5:A5'].font.size:=10;
eclapp.range['A5:A5'].HorizontalAlignment:=3;//
eclapp.range['B5:D5'].Merge;
eclapp.Range['B5:D5'].Borders.linestyle := 1;
eclapp.range['B5:D5'].Value:=mdataset.fieldbyname('T_CUSTOMER_NAME').asstring;
eclapp.range['B5:D5'].font.NAME:='Arial';
eclapp.range['B5:D5'].font.size:=10;
eclapp.range['B5:D5'].HorizontalAlignment:=3;//
eclapp.Range['E5:E5'].Borders.linestyle := 1;
eclapp.range['E5:E5'].Value:='¸¶¿î·½Ê½';
eclapp.range['E5:E5'].font.NAME:='Arial';
eclapp.range['E5:E5'].font.size:=10;
eclapp.range['E5:E5'].HorizontalAlignment:=3;//
eclapp.Range['F5:F5'].Borders.linestyle := 1;
eclapp.range['F5:F5'].Value:=mdataset.fieldbyname('PAYMENT_NAME').asstring;;;
eclapp.range['F5:F5'].font.NAME:='Arial';
eclapp.range['F5:F5'].font.size:=10;
eclapp.range['F5:F5'].HorizontalAlignment:=3;//

eclapp.Range['G5:G5'].Borders.linestyle := 1;
eclapp.range['G5:G5'].Value:='ËÍ»õ·½Ê½';
eclapp.range['G5:G5'].font.NAME:='Arial';
eclapp.range['G5:G5'].font.size:=10;
eclapp.range['G5:G5'].HorizontalAlignment:=3;//
eclapp.range['H5:L5'].Merge;
eclapp.Range['H5:L5'].Borders.linestyle := 1;
eclapp.range['H5:H5'].Value:=mdataset.fieldbyname('SHIPP_METHOND').asstring;;;
eclapp.range['H5:L5'].font.NAME:='Arial';
eclapp.range['H5:L5'].font.size:=10;
eclapp.range['H5:L5'].HorizontalAlignment:=3;//
eclapp.range['I5:K5'].Merge;
eclapp.Range['I5:K5'].Borders.linestyle := 1;
eclapp.range['I5:K5'].font.NAME:='Arial';
eclapp.range['I5:K5'].font.size:=10;
eclapp.range['I5:K5'].HorizontalAlignment:=3;//
eclapp.Range['A6:A6'].Borders.linestyle := 1;
eclapp.range['A6:A6'].Value:='ÁªÏµÈË';
eclapp.range['A6:A6'].font.NAME:='Arial';
eclapp.range['A6:A6'].font.size:=10;
eclapp.range['A6:A6'].HorizontalAlignment:=3;//
eclapp.range['B6:D6'].Merge;
eclapp.Range['B6:D6'].Borders.linestyle := 1;
eclapp.range['B6:D6'].Value:=mdataset.fieldbyname('T_CONTACT_NAME_1').asstring;
eclapp.range['B6:D6'].font.NAME:='Arial';
eclapp.range['B6:D6'].font.size:=10;
eclapp.range['B6:D6'].HorizontalAlignment:=3;//
eclapp.Range['E6:E6'].Borders.linestyle := 1;
eclapp.range['E6:E6'].Value:='µç»°';
eclapp.range['E6:E6'].font.NAME:='Arial';
eclapp.range['E6:E6'].font.size:=10;
eclapp.range['E6:E6'].HorizontalAlignment:=3;//
eclapp.Range['F6:F6'].Borders.linestyle := 1;
eclapp.range['F6:F6'].Value:=mdataset.fieldbyname('T_CONT_PHONE_1').asstring;;;
eclapp.range['F6:F6'].font.NAME:='Arial';
eclapp.range['F6:F6'].font.size:=10;
eclapp.range['F6:F6'].HorizontalAlignment:=3;//
eclapp.Range['G6:G6'].Borders.linestyle := 1;
eclapp.range['G6:G6'].Value:='´«Õæ';
eclapp.range['G6:G6'].font.NAME:='Arial';
eclapp.range['G6:G6'].font.size:=10;
eclapp.range['G6:G6'].HorizontalAlignment:=3;//
eclapp.Range['H6:H6'].Borders.linestyle := 1;
eclapp.range['H6:H6'].Value:=mdataset.fieldbyname('T_FAX').asstring;;;
eclapp.range['H6:H6'].font.NAME:='Arial';
eclapp.range['H6:H6'].font.size:=10;
eclapp.range['H6:H6'].HorizontalAlignment:=3;//
eclapp.Range['I6:I6'].Borders.linestyle := 1;
eclapp.Range['I6:I6'].Value:='»õ±Ò';
eclapp.Range['I6:I6'].font.NAME:='Arial';
eclapp.Range['I6:I6'].font.size:=10;
eclapp.range['I6:I6'].HorizontalAlignment:=3;//
eclapp.Range['J6:J6'].Borders.linestyle := 1;
eclapp.range['J6:J6'].Value:=mdataset.fieldbyname('CURR_NAME').asstring;;;
eclapp.range['J6:J6'].font.NAME:='Arial';
eclapp.range['J6:J6'].font.size:=10;
eclapp.range['J6:J6'].HorizontalAlignment:=3;//
eclapp.Range['K6:K6'].Borders.linestyle := 1;
eclapp.Range['K6:K6'].Value:='»ãÂÊ';
eclapp.Range['K6:K6'].font.NAME:='ArKal';
eclapp.Range['K6:K6'].font.sIze:=10;
eclapp.range['K6:K6'].HorizontalAlignment:=3;//
eclapp.Range['L6:L6'].Borders.linestyle := 1;
eclapp.range['L6:L6'].Value:=mdataset.fieldbyname('EXCH_RATE').asstring;
eclapp.range['L6:L6'].font.NAME:='Arial';
eclapp.range['L6:L6'].font.size:=10;
eclapp.range['L6:L6'].HorizontalAlignment:=3;//

eclapp.range['A7:A9'].Merge;
eclapp.Range['A7:A9'].Borders.linestyle := 1;
eclapp.range['A7:A9'].Value:='±¸×¢';
eclapp.range['A7:A9'].font.NAME:='Arial';
eclapp.range['A7:A9'].font.size:=10;
eclapp.range['A7:A9'].HorizontalAlignment:=3;//
eclapp.range['B7:L9'].Merge;
eclapp.Range['B7:L9'].Borders.linestyle := 1;
eclapp.range['B7:B7'].Value:=mdataset.fieldbyname('CONTACT_NAME_1').asstring mdataset.fieldbyname('CONT_PHONE_1').asstring;
eclapp.range['B7:L9'].font.NAME:='Arial';
eclapp.range['B7:L9'].font.size:=10;
eclapp.range['B7:L9'].HorizontalAlignment:=3;//
///////////////////////////////////////////////´¦ÀíÁпí
eclapp.activesheet.Columns[1].ColumnWidth :=9.57;eclapp.activesheet.Columns[2].ColumnWidth :=9.57;
eclapp.Range['A10:X10'].Borders.linestyle := 1;
eclapp.range['A10:X10'].font.NAME:='Arial';
eclapp.range['A10:X10'].font.size:=10;
eclapp.range['A10:X10'].HorizontalAlignment:=3;
eclapp.range['A10:A10'].Value:='²úÆ·ÀàÐÍ';eclapp.range['B10:B10'].Value:='°ü×°·½Ê½';
eclapp.range['C10:C10'].Value:='²úÆ·¹æ¸ñ';eclapp.range['D10:D10'].Value:='¿Í»§²úÆ·±àÂë';
eclapp.range['E10:E10'].Value:='²ÄÖÊ';eclapp.range['F10:F10'].Value:='±íÃæ´¦Àí';
eclapp.range['G10:G10'].Value:='±ÈÖØ(kg)';eclapp.range['H10:H10'].Value:='±ê×¼Í⾶';
eclapp.range['I10:I10'].Value:='µ¥¼Û';eclapp.range['J10:J10'].Value:='ëÀû';
eclapp.range['K10:K10'].Value:='»Ø¸´µ¥¼Û';eclapp.range['L10:L10'].Value:='ÀûÂÊ(%)';
eclapp.range['M10:M10'].Value:='ëÀûÂÊ(%)';eclapp.range['N10:N10'].Value:='²ÄÁϵ¥¼Û';
eclapp.range['O10:O10'].Value:='µç¶Æµ¥¼Û';eclapp.range['P10:P10'].Value:='¼ÓÓ²µ¥¼Û';
eclapp.range['Q10:Q10'].Value:='ÔËÊäµ¥¼Û';eclapp.range['R10:R10'].Value:='¹ÜÀí·ÑÓÃ';
eclapp.range['S10:S10'].Value:='Ë®µç·Ñ';eclapp.range['T10:T10'].Value:='ÆäËü·ÑÓÃ';
eclapp.range['U10:U10'].Value:='Íâ·¢·ÑÓÃ';eclapp.range['V10:V10'].Value:='±¸×¢';
eclapp.range['W10:W10'].Value:='Ìáʾ';eclapp.range['X10:X10'].Value:='״̬';

//////////////////////Ã÷ϸÊý¾Ý
Currrow:=11;
mdetialdata.first;
while not mdetialdata.eof do
begin
eclapp.Range['A' inttostr(Currrow) ':x' inttostr(Currrow)].Borders.linestyle := 1;
eclapp.activesheet.Rows[Currrow].RowHeight :=24;
eclapp.Range['A' inttostr(Currrow) ':x' inttostr(Currrow)].font.name:='Arial';
eclapp.Range['A' inttostr(Currrow) ':x' inttostr(Currrow)].font.size:=10;
eclapp.range['A' inttostr(Currrow) ':x' inttostr(Currrow)].HorizontalAlignment:=3;//
///////////////////////////////////////////////////////////////////////////////
eclapp.cells[Currrow,1].value:='''' mdetialdata.Fieldbyname('L_ITEM_name').asstring;
eclapp.cells[Currrow,2].value:=mdetialdata.Fieldbyname('PK_NAME').asstring;
eclapp.cells[Currrow,3].value:=mdetialdata.Fieldbyname('INV_DESC').asstring;
eclapp.cells[Currrow,4].value:=mdetialdata.Fieldbyname('CUSETER_PART_NUMBER').asstring;
eclapp.cells[Currrow,5].value:=mdetialdata.Fieldbyname('COST_METHOD').asstring;
eclapp.cells[Currrow,6].value:=mdetialdata.Fieldbyname('BATCH_SERIAL_CONTROL').asstring;
eclapp.cells[Currrow,7].value:=mdetialdata.Fieldbyname('QTY_PER_K').asstring;
eclapp.cells[Currrow,8].value:=mdetialdata.Fieldbyname('JIGONG_PRICE').asstring;
eclapp.cells[Currrow,9].value:=mdetialdata.Fieldbyname('Q_UNIT_PRICE').asstring;
eclapp.cells[Currrow,10].value:=mdetialdata.Fieldbyname('UNIT_PRICE').asstring;
eclapp.cells[Currrow,11].value:=mdetialdata.Fieldbyname('CONFIG_PRICE').asstring;
eclapp.cells[Currrow,12].value:=mdetialdata.Fieldbyname('TAX_RATE').asstring;
eclapp.cells[Currrow,13].value:=mdetialdata.Fieldbyname('MAO_RATE').asstring;
eclapp.cells[Currrow,14].value:=mdetialdata.Fieldbyname('T1').asstring;
eclapp.cells[Currrow,15].value:=mdetialdata.Fieldbyname('T2').asstring;
eclapp.cells[Currrow,16].value:=mdetialdata.Fieldbyname('T3').asstring;
eclapp.cells[Currrow,17].value:=mdetialdata.Fieldbyname('T4').asstring;
eclapp.cells[Currrow,18].value:=mdetialdata.Fieldbyname('T5').asstring;
eclapp.cells[Currrow,19].value:=mdetialdata.Fieldbyname('T6').asstring;
eclapp.cells[Currrow,20].value:=mdetialdata.Fieldbyname('T7').asstring;
eclapp.cells[Currrow,21].value:=mdetialdata.Fieldbyname('T8').asstring;
eclapp.cells[Currrow,22].value:=mdetialdata.Fieldbyname('MEM_NAME').asstring;
eclapp.cells[Currrow,23].value:=mdetialdata.Fieldbyname('MSG_NAME').asstring;
eclapp.cells[Currrow,24].value:=mdetialdata.Fieldbyname('STATUS_NAME').asstring;
//////////////////////////////////////////////////////////////////////////////
mdetialdata.next;
Currrow:=Currrow 1;
end;
//////////////////////
eclapp.visible:=True;
except
Erpmsgbox('²»ÄÜ´ò¿ªExcel, Çë¼ì²éExcelÊÇ·ñÒѾ­°²×°');
exit;
end;
spexport.Enabled:=true;
end;

------
天道忌满，人忌道全。

位的WIN 7

各位大大：
本人花了一个通宵，搞定了！方法大家分享！

1》本人朋友的机器时WIN7 32位，64位没有测试过
2》安装BDE程序是5.1版本，必须关掉UCA
3>>DBGRIDEH导出的EXCEL文件在WIN7 2010EXCEL的环境下必须在《文件阻止设定》中将限制去掉！

以上是我的测试结果

------
天道忌满，人忌道全。

BDE 已經是超過十年以上的產品, 不能運作在64位元系統上
建議早謀出路 (例如使用 DBExpress)

------
Mephise Chen
前興德工程師

这个已完美解决，如有需要请联系本人：13924929681（大陆）

------
天道忌满，人忌道全。

誠然，BDE 自被 Borland 放棄後，已無法適應新時代的需求，但 CodeGear 與 Embarcadero 也一直
未能在資料庫這一塊，拿出像樣的解決方案，所以才會使資料庫開發人員要麼固守 BDE，要麼轉向
MS VC 等其他開發工具，直到 XE5 FireDAC 才似乎看到一點曙光。

但若不考慮 Unicode 的問題，BDE 5.2 搭配 Delphi 5 或 BCB5，安裝在 Windows 7 x86/x64，仍然都是可以
很穩定的連接 Windows Server 2005 上的 Oracle XE 10g, XE 11g 資料庫，連續運作2年以上了。

現在正在測試 XE5 FireDAC，希望它不再像 DBExpress 那麼讓人沮喪。

BDE 的安裝，請參考：

http://delphi.ktop.com.tw/board.php?cid=168&fid=918&tid=104991

===================引 用 mephise 文 章===================
BDE 已經是超過十年以上的產品, 不能運作在64位元系統上
建議早謀出路 (例如使用 DBExpress)

編輯記錄

不知道 Herbert2 大在使用 dbExpress 上遇到了哪些令人沮喪的事情？

能否稍微說說給後進參考下？

===================引 用 herbert2 文 章===================
誠然，BDE 自被 Borland 放棄後，已無法適應新時代的需求，但 CodeGear 與 Embarcadero 也一直
未能在資料庫這一塊，拿出像樣的解決方案，所以才會使資料庫開發人員要麼固守 BDE，要麼轉向
MS VC 等其他開發工具，直到 XE5 FireDAC 才似乎看到一點曙光。

但若不考慮 Unicode 的問題，BDE 5.2 搭配 Delphi 5 或 BCB5，安裝在 Windows 7 x86/x64，仍然都是可以
很穩定的連接 Windows Server 2005 上的 Oracle XE 10g, XE 11g 資料庫，連續運作2年以上了。

現在正在測試 XE5 FireDAC，希望它不再像 DBExpress 那麼讓人沮喪。

BDE 的安裝，請參考：

http://delphi.ktop.com.tw/board.php?cid=168&fid=918&tid=104991

===================引 用 mephise 文 章===================
BDE 已經是超過十年以上的產品, 不能運作在64位元系統上
建議早謀出路 (例如使用 DBExpress)