Report Machine
锛?/p>
RM
锛夋姤琛ㄦ帶浠剁畝鍗曠敤娉?/p>
RM(Report Machine)
鏄竴涓姛鑳藉己澶х殑
Delphi
鎶ヨ〃鎺т欢鍖呫�備娇鐢ㄥ畠鍙互鍒朵綔鍑洪潪甯稿鏉傜殑鎶ヨ〃銆備笅闈㈣杩版渶
绠�鍗曠殑鐢ㄦ硶锛?/p>
鍦?/p>
Form
涓婃斁涓婁袱涓暟鎹簱鎺т欢锛?/p>
ADOConnection
鍜?/p>
ADOQuery
璁剧疆濂?/p>
ADOConnection
鐨?/p>
ConnectionString
銆?/p>
LoginPrompt=False
銆?/p>
ADOQuery
鐨?/p>
Connection
鎸囧悜
ADOConnection
銆?/p>
ADOQuery
鐨?/p>
SQL
璁剧疆濂芥暟鎹煡璇㈣鍙ャ�?/p>
鍦?/p>
Form
涓婃斁涓婁袱涓?/p>
RM
鎶ヨ〃鎺т欢锛?/p>
RMDBDataSet
鍜?/p>
RMReport
銆?/p>
RMDBDataSet
鐨?/p>
DataSet
鎸囧悜
ADOQuery
銆?/p>
RMReport
鐨?/p>
DataSet
鎸囧悜
RMDBDataSet
銆?/p>
(
濡傛灉鎯充娇鏈�缁堢敓鎴愮殑搴旂敤绋嬪簭鍏峰鎶ヨ〃璁捐鑳藉姏锛岃繕闇�瑕佹斁涓?/p>
RMDesigner
鎺т欢锛屼笉闇�瑕佽缃换浣曞睘鎬?/p>
)
鍙屽嚮
RMReport
鎺т欢锛屽紑濮嬭璁℃姤琛ㄦā鏉裤�?/p>
瀵逛簬涓�鑸瘮杈冭鍒欑殑鎶ヨ〃锛屽彧闇�鍚戞ā鏉夸腑鍔犲叆鍥涗釜
Band
瀵硅薄锛屽垎鍒槸锛?/p>
1)
銆侀〉鏍囧ご锛氶�氬父鐢ㄦ潵鏄剧ず鎶ヨ〃鍚嶇О锛屾椂闂寸瓑
2)
銆佷富椤规爣澶达細閫氬父鐢ㄦ潵鏄剧ず鏍忕洰鍚嶇О銆?/p>
3)
銆佷富椤规暟鎹細鐢ㄦ潵鏄剧ず鏁版嵁銆?/p>
4)
銆侀〉娉ㄨ剼锛氱敤鏉ユ樉绀洪〉鍙凤紝鏃ユ湡绛夈�?/p>
璁捐濂界殑妯℃澘鍙互淇濆瓨鍦?/p>
DFM
涓紝涔熷彲浠ヤ繚瀛樺埌鐙珛鐨勬ā鏉挎枃浠朵腑锛屾墿灞曞悕涓?/p>
RMF
锛岃繍琛屾椂璋冨叆銆備笅闈㈢粰
鍑哄嚑涓唬鐮佺墖鏂細
procedure TBrowseForm.Button5Click(Sender: TObject);
var
RMReport:TRMReport;
begin
if ADOQuery1.IsEmpty then
Exit;
try
RMReport := TRMReport.Create(Self);
RMReport.LoadFromFile('Match.rmf');
RMReport.PrepareReport;
RMReport.ShowReport;
finally
RMReport.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RMReport1.ShowReport;
end;