monthmoneyfindformunit.pas

来自「人事管理系统帮助人们管理复杂的关系」· PAS 代码 · 共 59 行

unit MonthMoneyFindFormUnit;

interface

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

type
  TMonthMoneyFindForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    CBMonth: TComboBox;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MonthMoneyFindForm: TMonthMoneyFindForm;

implementation

uses DataMUnit, MoneyReportUnit;

{$R *.dfm}

procedure TMonthMoneyFindForm.Button1Click(Sender: TObject);
begin

  if DataM.ADOGZ.Active = true then
    DataM.ADOGZ.Close;
  DataM.ADOGZ.SQL.Clear;

  if CBMonth.Text = '全年' then
    DataM.ADOGZ.SQL.Text:='select * from FGZ'
  else
    DataM.ADOGZ.SQL.Text:='select * from FGZ where 工资月份 = ''' + CBmonth.Text + '''';

  DataM.ADOGZ.Prepared;
  DataM.ADOGZ.Open;

  MoneyReportForm.QuickRep1.Preview;

end;

procedure TMonthMoneyFindForm.Button2Click(Sender: TObject);
begin
  MonthMoneyFindForm.Close;
end;

end.