report1.~pas

delphi renyuanguanlixinxioxitong

unit Report1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, RpCon, RpConDS, RpDefine,
  RpRave;

type
  TfrmReport1 = class(TForm)
    btnSearch: TButton;
    adoConnection: TADOConnection;
    aqryEmployee: TADOQuery;
    dsEmployee: TDataSource;
    dbgEmployee: TDBGrid;
    aqryEmployeeEMPLOYEENO: TWideStringField;
    aqryEmployeeEMPLOYEENAME: TWideStringField;
    aqryEmployeeDEPARTMENTNAME: TWideStringField;
    aqryEmployeeSEX: TWideStringField;
    aqryEmployeeEMPLOYEEDATE: TDateTimeField;
    btnView: TButton;
    Label1: TLabel;
    edtSearch: TEdit;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSearchClick(Sender: TObject);
    procedure btnViewClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmReport1: TfrmReport1;

implementation

{$R *.dfm}

procedure TfrmReport1.FormShow(Sender: TObject);
begin
   if  adoConnection.Connected then adoConnection.Close;
   try
     adoConnection.Open;
   except
      application.MessageBox('连接数据库出错','错误');
      application.Terminate ;
   end;
   try
     aqryEmployee.Open ;
   except
     application.MessageBox('打开员工表出错','错误');
     application.Terminate ;
   end
end;

procedure TfrmReport1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if  aqryEmployee.Active then aqryEmployee.close;
  if  adoConnection.Connected then adoConnection.Close;
end;

procedure TfrmReport1.btnSearchClick(Sender: TObject);
var
  sSearch :string;
begin
  sSearch := trim(edtSearch.Text);
  if  aqryEmployee.Active then aqryEmployee.close;
  aqryEmployee.SQL.Clear;
  aqryEmployee.SQL.Add('select EmployeeNo,EmployeeName,DepartmentName,sex,EmployeeDate');
  aqryEmployee.SQL.Add('from Employee a,Department b');
  aqryEmployee.SQL.Add('where a.DepartmentNo=b.DepartmentNo');
  aqryEmployee.SQL.Add('and EmployeeNo like :sEmployeeNo');
  aqryEmployee.Parameters.ParamByName('sEmployeeNo').Value := sSearch+'%';
  try
     aqryEmployee.Open ;
   except
     application.MessageBox('打开员工表出错','错误');
   end
end;

procedure TfrmReport1.btnViewClick(Sender: TObject);
begin
   RvProject1.Execute ;
end;

end.