jjtjunit.pas

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

unit JjTjUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Grids, DBGrids, Buttons, ComCtrls;

type
  TJjTjForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet9: TTabSheet;
    SpeedButton2: TSpeedButton;
    DBGrid10: TDBGrid;
    Panel5: TPanel;
    DBGrid9: TDBGrid;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JjTjForm: TJjTjForm;

implementation

uses Dateunit, DATAUNIT;

{$R *.DFM}


procedure TJjTjForm.SpeedButton2Click(Sender: TObject);
var hj:real;
 a,b,c,d,e:string;
begin
if dater.ShowModal=mrok then
begin
  e:='';
  e:='jj'+dater.MaskEdit1.Text;
  datam.table1.Open;
   if datam.table1.FindField(e)=nil then
   begin
       raise Exception.Create('本月奖金数据字段不存在,请重新选择日期')
      // abort;
   end;
   a:='jj';
   b:='),';
  d:=dater.MaskEdit1.Text;
  with datam.Query10.SQL do
      begin
       clear;
       c:='sum(jjj.';
       c:=c+a+d+b+'count(ggg.lb1)';
       add('select ggg.lb1,');
       add(c);
       add('from "jjk.dbf" as jjj,"gzk.dbf" as ggg');
       add('where jjj."code"=ggg."code"');
       add('group by ggg.lb1;');
       datam.query10.SQL.SaveToFile('c:\k.Txt');
      end;
    end;
  //  datam.Query10.Close;
//    datam.Query10.Prepare;
    datam.Query10.Open;

     with datam.Query10 do
     begin
        First;
        while not eof do
        begin
           hj:=datam.Query10.Fields[1].asfloat+hj;
           Next;
        end;
        label2.caption:=dater.MaskEdit1.Text+'奖金分类合计:='+floattostr(round(hj*100)/100);
        label2.Update;

     end;
end;

end.