沒有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應用程序開發上的投資.
(全文完)
