salary.pas

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

unit salary;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TSalary = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Salary: TSalary;

implementation

uses qr_salary;

{$R *.DFM}

var
  Form: TForm;

procedure TSalary.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('up to 20000');
  ComboBox1.Items.Add('20000 .. 40000');
  ComboBox1.Items.Add('40000 and over');
  ComboBox1.ItemIndex := 0;
end;

procedure SetParams(Index:integer);
begin
   // Form.Query1.ParamByName('DatBeg').Value := StrToDate('01.01.98');
   // Form.Query1.ParamByName('DatEnd').Value := StrToDate('01.01.99');
  if Index = 0 then
  begin
  	Form.Query1.SQL.Text :=
  		'select * from employee '+
  		'where salary <= 20000';
    Form.lblTitle.Caption := 'Salary up to 20000';
  end
  else
  if Index = 1 then
  begin
  	Form.Query1.SQL.Text :=
  		'select * from employee '+
  		'where 20000 < salary and salary <= 40000';
    Form.lblTitle.Caption := 'Salary 20000 .. 40000';
  end
  else
  if Index = 2 then
  begin
  	Form.Query1.SQL.Text :=
  		'select * from employee '+
  		'where salary > 40000';
    Form.lblTitle.Caption := 'Salary over 40000';
  end;
end;

procedure TSalary.Button1Click(Sender: TObject);
begin
 { Form := JvInterpreterMakeForm(ExtractFilePath(Application.ExeName) +
    'Reports\qr_salary'); }
  Form := TrSalary.Create(Application);
  try
   // Self.Hide;
    SetParams(ComboBox1.ItemIndex);
    Form.Query1.Open;
    Form.QuickRep1.Preview;
    Close;
  finally { wrap up }
    Form.Free;
  end;    { try/finally }
end;



{
/*
select Name, Descript, Kod from template
where :DatBeg <= Dat and Dat <= :DatEnd
*/
}
end.