【控件功能】我来做练习-第5课- FastReport报表+数据库表格结合功能

FastReport报表+数据库表格结合功能

提示：具体连接我们做个简单动画，大家可以细看

相信通过前面几节演示，连接部分已经很熟悉了

具体代码

procedure TForm1.Button2Click(Sender: TObject);
begin
if ADOTable1.RecordCount > 0 then // If there are records
Form3.ShowModal // Open edit form
else
ShowMessage(‘No records’); // Else show warning
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if ADOTable1.RecordCount > 0 then // If there are records
Form4.ShowModal // Open delete form
else
ShowMessage(‘No records’); // Else show warning
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Close; // Close main application
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
frxReport1.LoadFromFile(ExtractFilePath(ParamStr(0)) + ‘Report1.fr3’);