翻譯Borland® Delphi® 2005使用 VCL for .NET移植到 .NET(3)

沒有QuickReports

這個問題的原因是CustRpt.pas 單元引用的Quickrpt.dcuil單元無法找到: QuickReport for .NET沒有包含在Delphi 2005中, 推荐陞級這個功能的辦法是在這個範例中使用Rave報表來代替. 或者尋找QuickReports相應的.NET版本, 或者使用其它的報表框架來代替.

報表部分就留給有興趣的讀者再去進一步修改, 但在這裹, 我們還是要使項目能夠被編繹—就算沒有報表功能.

操作菜單Project | View Source來打開項目文件mastapp.dpr, 并且在uses子句中查找QuickReports單元(應該有几行會引用到TQuickRep類型), 將這些行註釋掉, 如下所示:

uses
Forms,
Main in 'MAIN.PAS' {MainForm},
Brparts in 'BRPARTS.PAS' {BrPartsForm},
QryCust in 'QryCust.pas' {QueryCustDlg},
Edparts in 'EDPARTS.PAS' {EdPartsForm},
BrCstOrd in 'BrCstOrd.pas' {BrCustOrdForm},
Edcust in 'EDCUST.PAS' {EdCustForm},
Edorders in 'EDORDERS.PAS' {EdOrderForm},
SrchDlg in 'SrchDlg.pas' {SearchDlg},
Splash in 'SPLASH.PAS' {SplashForm},
Pickdate in 'PICKDATE.PAS' {BrDateForm},
About in 'ABOUT.PAS' {AboutBox},
Pickrep in 'PICKREP.PAS' {PickRpt},
//CustRpt in 'CustRpt.pas' {CustomerByInvoiceReport: TQuickRep},
//OrderRpt in 'OrderRpt.pas' {OrdersByDateReport: TQuickRep},
//InvcRpt in 'InvcRpt.pas' {InvoiceByOrderNoReport: TQuickRep},
PickInvc in 'PickInvc.pas' {PickOrderNoDlg},
DataMod in 'DataMod.pas' {MastData: TDataModule};

一個快速將源代碼標記為註釋的方法是按Ctrl+/ 鍵. 這個快捷鍵的作用是將一行正常的代碼標記為註釋, 然後將光標移動到下一行. 用這個方法, 你能快速的將上面三行標記為註釋行.

*注意, 你也能同時選擇几行構成的一個代碼塊, 然後再按Ctrl+/ 來將整個區塊標記為註釋.

移到項目文件的代碼的最下面, 并定位到創建QuickReports窗體的那三個CreateForm聲明, 同時選擇這三行, 按Ctrl+/ 將它們標記為註釋行, 結果如下所示:

begin
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.Title := 'Marine Adventures Order Entry';
Application.HelpFile := 'MASTAPP.HLP';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TBrPartsForm, BrPartsForm);
Application.CreateForm(TQueryCustDlg, QueryCustDlg);
Application.CreateForm(TEdPartsForm, EdPartsForm);
Application.CreateForm(TBrCustOrdForm, BrCustOrdForm);
Application.CreateForm(TEdCustForm, EdCustForm);
Application.CreateForm(TEdOrderForm, EdOrderForm);
Application.CreateForm(TSearchDlg, SearchDlg);
Application.CreateForm(TBrDateForm, BrDateForm);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TPickRpt, PickRpt);
// Application.CreateForm(TCustomerByInvoiceReport, CustomerByInvoiceReport);
// Application.CreateForm(TOrdersByDateReport, OrdersByDateReport);
// Application.CreateForm(TInvoiceByOrderNoReport, InvoiceByOrderNoReport);
Application.CreateForm(TPickOrderNoDlg, PickOrderNoDlg);
Application.CreateForm(TMastData, MastData);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.

這個做還沒完成工作, 因為在程序的其它地方還有使用到QuickReports. 我們需要將所有相關行找出來并將其註釋掉.

執行菜單Search | Find in Files, 查找CustRpt(在其它的几個單元的uses了句都會使用到, 必須將它們移除掉)



Delphi 2005 查找文件對話框

*注意, 我們能夠將查找文件的結果分組, 查找到的文件將會顯示在另外一個新的treeview中. 最後, 打開Main.pas單元.

打開文件Main.pas, 在implementation部分檢查uses子句, 這裹也包含了CustRpt單元.

*注意, 在錯誤即時窗口(Error Insight)會自動標示出這些有問題的單元, 就如OrderRpt 和 InvcRpt單元不可用一樣會標識出來(編繹器無法解釋相應的單元名字)


無法解釋unit名字—顯示其它無法編繹的代碼

使用Ctrl+/ 將引用到CustRpt, OrderRpt, 和InvcRpt單元的代碼註釋

按Shift+F2保存項目的所有文件, 然後按Shift+F9來重新編繹項目

下一個錯誤會出現在PrintCustomerReport方法中.

選擇PrintCustomerReport方法中的代碼, 并將其全部標記為注釋. 如下面所示(可以選擇多几行或少几行注釋, 沒有影響的)

procedure TMainForm.PrintCustomerReport(Preview: Boolean);
begin

with MastData.CustByLastInvQuery do
begin
Open;
// if Preview then
// CustomerByInvoiceReport.Preview
// else
// CustomerByInvoiceReport.Print;
Close;
end;
end;

下一個問題是發生在PrintOrderReport方法中, 同樣必須將其代碼註釋掉.

選擇PrintOrderReport方法裹面的代碼, 按Ctrl+/來將所有選擇的代碼標記為註釋, 如下:




註釋了的PrintOrderReport方法

現在還有留下一個地方: PrintInvoiceReport

選擇PrintInvoiceReport方法中的代碼, 將其標識為註釋, 如下所示(可以自由選擇多一行或少一行註釋)
procedure TMainForm.PrintInvoiceReport(Preview: Boolean);
begin
if PickOrderNoDlg.ShowModal = mrOk then
// if Preview then
// InvoiceByOrderNoReport.Preview
// else
// InvoiceByOrderNoReport.Print;
end;

按Shift+F2保存項目的所有文件, 然後按Shift+F9來重新編繹項目

這次, 項目可以沒有問題通過編繹和鏈接了.

數據庫路徑

這裹還有一些地方需要注意. 如果你現在試運行下程序, 程序可能可以運行, 但也有可能你會得到一個無法定位數據庫所在的提示信息.

這個錯誤其實是程序本身的代碼造成的. 在數據模塊中, 有一個函數DataDirectory, 如下定義:

function TMastData.DataDirectory: string;
begin
  { Assume data is in ../../../../../Common Files/Borland Shared/DATA/data relative to where we are }
  Result := ExtractFilePath(ParamStr(0));
  //Result := ExpandFileName(Result + '../../DATA/');
  Result := ExpandFileName(Result + '../../../../../Common Files/Borland Shared/DATA/');
end;

就如註釋中注明的, 它假定了數據所在路徑是在相對它自己所在路徑的../../../../../Common Files/Borland Shared/DATA/data目錄下. 在原來的Demo目錄這個路徑可能是對的, 但在現在這個我們將要分發的程序中是不重要的.

實際上, 在我們開始移植這個項目時, 我們确認了在設計時數據控件能聯接到數據庫. 所以, Database.DatabaseName已經指到正确的位置上了.

DataDirectory只在一個地方用到: MastDataCreate方法. 我們必須撤消在這裹做的東西.

編繹datamod.pas單元, 并定位到MastDataCreate方法, 确認正确的給DataFile賦予Database.DatabaseName的值, 覆蓋點DataDirectory的值, 如下:

procedure TMastData.MastDataCreate(Sender: TObject);
var
DataFile: string;
begin
DataFile := DataDirectory + 'MASTSQL.GDB';
DataFile := Database.DatabaseName; // already working at design-time!
if not FileExists(DataFile) then
if MessageDlg('Could not locate MASTSQL.GDB. Would you like to locate the file?',
mtError, [mbYes, mbNo], 0) = mrYes then
if OpenDialog.Execute then
begin
if UpperCase(ExtractFileName(OpenDialog.FileName)) = 'MASTSQL.GDB' then
DataFile := OpenDialog.FileName
else
raise Exception.Create('Invalid File: ' + OpenDialog.FileName);
end
else
raise Exception.Create('Cannot locate Interbase data file: MASTSQL.GDB');
Database.DatabaseName := DataFile;
Database.Open;
Transaction.StartTransaction;
end;

*注意, 你也可以將呼叫DataDirectory方法的代碼移除掉, 但還是需要給賦個新值給DataFile.

按Shift+F2來保存項目中的所有文件

運行航海冒險活動定購登錄程序

按Shift+F9來重編繹重個項目.

項目仍舊可以通過編繹和運行, 航海冒險活動定購登錄程序運行時如下圖所示:




航海冒險活動定購登錄程序的主界面

點擊按鈕New Order來進入到訂購窗體Order Form:



訂購窗體(Order Form)

關閉訂購窗體(Order Form)并點擊按鈕Browse來進入到顧客訂購窗體(Orders by Customer Form):


顧客訂購窗體(Orders by Customer Form)

關閉顧客訂購窗體(Orders by Customer Form), 點擊按鈕Parts來打開瀏覽部門窗體(Browse Parts Form):



瀏覽部門窗體(Browse Parts Form)

關閉瀏覽部門窗體(Browse Parts Form), 并且, 如果你不是運行在陞級過的Delphi 2005, 點擊按鈕Reports來打開報表選擇窗體(Report Selection Form):




報表選擇窗體(Report Selection Form)

*注意, 三個報表都不可用—相關的按鈕并不能工作—因為我們將所有使用到QuickReports的代碼, 還有報表窗體都註釋掉了. 你可以自己增加報表部分.

總結

在這個教程, 我們演示了如何使用Delphi 2005將一個存在的Win32 VCL程序移植到.NET下的VCL for .NET. 我們開始先用了一個範例threading, 先將其陞級為不安全的.NET程序, 然後進一步將其轉化為100%安全的.NET本地程序. 接著, 我們使用了一個更復雜的, 并使用了數據庫的範例.

想要將Win32下的VCL程序移植到.NET下, 需要的工作遠遠不止只是重新編繹程序代碼那麼簡單. Delphi 2005 提供了很多移植到.NET的幫助, 可以保護我們已經在Win32應用程序開發上的投資.

(全文完)