我的代码有错误吗？

y281872441 2007-10-24 03:47:20

procedure TFrmReport.Button6Click(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
if (CFName='CaseID') OR (CFName='LawerID') or (CFName='SuitValue') then
begin
Data.ADOQCaseBegin.Close;
Data.ADOQCaseBegin.SQL.Clear;
Data.ADOQCaseBegin.SQL.Add('select * from CaseBegin where '
+CFName+ComboBox2.Text+Edit1.Text);
Data.ADOQCaseBegin.Open;

end;
if
(CFName='Indicter') OR (CFName='Indictee') then
begin
Data.ADOQCaseBegin.Close;
Data.ADOQCaseBegin.SQL.Clear;
Data.ADOQCaseBegin.SQL.Add('select * from CaseBegin where '
+CFName+ComboBox2.Text+''''+Edit1.Text+'''');
Data.ADOQCaseBegin.Open;

end;
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('RepotrB',False);
RvProject1.Execute;

end
else MessageDlg('查询条件不完整',mtError,[mbOK],0);
end;

procedure TFrmReport.Button7Click(Sender: TObject);
begin
if Edit2.Text<>'' then
begin

if ( CLFName='ClientID') or(CLFName='LawerID') then
begin
Data.ADOQClient.Close;
Data.ADOQClient.SQL.Clear;
Data.ADOQClient.SQL.Add('select * from Client where '
+CLFName+ComboBox4.Text+Edit2.Text);
Data.ADOQClient.Open;
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('RepotrClient',False);
RvProject1.Execute;

end

else if ( CLFName='Name') or(CLFName='Address') or (CLFName='CManName')
or(CLFName='CManTitle') or(CLFName='Zip') or(CLFName='Country')
or (CLFName='City') or (CLFName='Fax') or (CLFName='Tel') then
begin
Data.ADOQClient.Close;
Data.ADOQClient.SQL.Clear;
Data.ADOQClient.SQL.Add('select * from Client where '
+CLFName+ComboBox4.Text+''''+Edit2.Text+'''');
Data.ADOQClient.Open;
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('RepotrClient',False);
RvProject1.Execute;

end

end
else MessageDlg('查询条件不完整',mtError,[mbOK],0);
end;

procedure TFrmReport.Button10Click(Sender: TObject);
begin
if Edit3.Text<>'' then
begin
if ( LFName='EmployeeID') or(LFName='ContractTime') then
begin
Data.ADOQEmployee.Close;
Data.ADOQEmployee.SQL.Clear;
Data.ADOQEmployee.SQL.Add('select * from Employee where '
+LFName+ComboBox6.Text+edit3.Text);
Data.ADOQEmployee.Open;
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportLawer',False);
RvProject1.Execute;
end
else if ( LFName='Name') or(LFName='Sex') or (LFName='Nation')
or(LFName='Education') or(LFName='Graduate') or(LFName='TypeWork')
or (LFName='CardID') then
begin
Data.ADOQEmployee.Close;
Data.ADOQEmployee.SQL.Clear;
Data.ADOQEmployee.SQL.Add('select * from Employee where '
+LFName+ComboBox6.Text+''''+edit3.Text+'''');
Data.ADOQEmployee.Open;
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportLawer',False);
RvProject1.Execute;
end

end
else MessageDlg('查询条件不完整',mtError,[mbOK],0);

end;

procedure TFrmReport.Button2Click(Sender: TObject);
begin
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportCaseProcessing',False);
RvProject1.Execute;
end;

procedure TFrmReport.Button3Click(Sender: TObject);
begin
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportCaseEnd',False);
RvProject1.Execute;
end;

procedure TFrmReport.Button4Click(Sender: TObject);
begin
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportFee',False);
RvProject1.Execute;
end;

procedure TFrmReport.Button5Click(Sender: TObject);
begin
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportFileLend',False);
RvProject1.Execute;
end;

procedure TFrmReport.Button9Click(Sender: TObject);
begin
Data.ADOQClient.Close;
Data.ADOQClient.SQL.Clear;
Data.ADOQClient.SQL.Add('select * from Client');
Data.ADOQClient.Open;
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportClient',False);
RvProject1.Execute;
end;

procedure TFrmReport.Button11Click(Sender: TObject);
begin
Data.ADOQEmployee.Close;
Data.ADOQEmployee.SQL.Clear;
Data.ADOQEmployee.SQL.Add('select * from Employee');
Data.ADOQEmployee.Open;
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportLawer',False);
RvProject1.Execute;
end;

procedure TFrmReport.Button1Click(Sender: TObject);
begin
RvSystem1.DefaultDest:=rdPrinter;
RvProject1.SelectReport('ReportCaseBegin',False);
RvProject1.Execute;
end;

...全文