kkdateunit.pas

工资管理系统

unit KkDateunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Buttons, ComCtrls, ExtCtrls, Animate, GIFCtrl;

type
  TKkDate = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    UpDown1: TUpDown;
    Label2: TLabel;
    Edit4: TEdit;
    UpDown2: TUpDown;
    Label3: TLabel;
    RxGIFAnimator1: TRxGIFAnimator;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KkDate: TKkDate;

implementation

uses gzdata, PassWordUnit, JJSRUNIT, KkSrUnit;

{$R *.DFM}

procedure TKkDate.FormShow(Sender: TObject);
begin
   maskedit1.Text:=password.MaskEdit1.Text;
   edit4.Text:=inttostr(strtoint(password.Edit4.text));
   maskedit1.SetFocus;
end;

procedure TKkDate.BitBtn2Click(Sender: TObject);
begin
 close;
end;

procedure TKkDate.BitBtn1Click(Sender: TObject);
   var ddd,ts:string;
begin

  ddd:='';
  ddd:=inttostr(strtoint(maskedit1.Text))+'-'+inttostr(strtoint(edit4.Text));
   data.Query1.Close;
   data.Query1.Close;
   with data.Query1.SQL do
   begin
      clear;
      add('select * from lyk');
      add('where riqi='''+ddd+'''');
   end;
   data.Query1.Open;
   if data.Query1.IsEmpty then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,请重新选择日期';
   application.MessageBox(pchar(ts),'提示',mb_ok+mb_iconinformation);
   abort;
   end;
  data.Query1.Close;
   with data.Query1.SQL do
   begin

      clear;
      add('select sum(kk_qt1),sum(kk_qt2) from lyk');
      add('where riqi='''+ddd+'''');
   end;
    data.Query1.Open;
   if data.Query1.IsEmpty then
// if (data.Query1.fields[0].asfloat=0) and (data.Query1.fields[0].asfloat=0) then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,请重新选择日期.';
   application.MessageBox(pchar(ts),'提示',mb_ok+mb_iconinformation);
   abort;
   end
   else
   begin
   ts:='';
  if (data.Query1.fields[0].asfloat>0) or (data.Query1.fields[0].asfloat>0) then
       begin
       ts:=ddd+'月 已有 <扣款1>'+floattostr(data.Query1.fields[0].asfloat)+'元'+
       '<扣款2>'+floattostr(data.Query1.fields[1].asfloat)+'元 ,继续进行吗?';
       IF  (application.messagebox(pchar(ts),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
        =idok) then
       close
       else
       abort;
       end;

//列出本月数据
  ddd:='';
  ddd:=inttostr(strtoint(maskedit1.Text))+'-'+inttostr(strtoint(edit4.Text));
  data.Query1.Close;
   with data.Query1.SQL do
   begin
      clear;
      add('select * from lyk');
      add('where riqi='''+ddd+'''');
   end;
    data.Query1.Open;
  end;
       Application.CreateForm(Tkksr, kksr);
       kksr.showmodal;
       kksr.Hide;
       kksr.release;
end;

procedure TKkDate.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;


end.