连接FastReport

连接FastReport

var
l:string;
begin
Form16.ADOConnection1.LoginPrompt := False;
Form16.ADOConnection1.Close; // 对象打开时，不允许操作
Form16.ADOConnection1.ConnectionString:=‘Provider=SQLOLEDB.1;Password=’+SQLpassword+’;Persist Security Info=True;’

• SQLs;
  Form16.ADOQuery1.Connection:=Form16.ADOConnection1;
  Form16.ADOQuery1.SQL.clear;
  Form16.ADOQuery1.SQL.Text:=‘select * from [WHSW] where ztbb<3 order by ltrim(rtrim(cast(pxnj as varchar)))+pxkm’;
  Form28.frxReport1.DataSet:= Form16.frxDBDataset1;
  try
  l:=ExtractFileDir(Application.Exename);
  Form28.frxReport1.Clear;
  Form28.frxReport1.LoadFromFile(l+’\print\年级-科目点.fr3’);
  Form28.frxReport1.Preview:=form28.frxPreview1;
  Form28.frxReport1.ShowReport(True);
  Form28.Show; Form28.Label1.Caption:=‘全部门点名册’;
  except
  ShowMessage(‘年级-科目点’);