kksrunit.pas

工资管理系统

unit KkSrUnit;

interface

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

type
  TKKSr = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Label11: TLabel;
    Edit11: TEdit;
    Label12: TLabel;
    Edit12: TEdit;
    RxGIFAnimator1: TRxGIFAnimator;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure RxGIFAnimator1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KKSr: TKKSr;

implementation

uses Dateunit, gzdata, QueryJjUnit, KkDateunit;

{$R *.DFM}

procedure TKKSr.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key in[vk_RETURN] then
sendmessage(handle,wm_nextdlgctl,0,0);
end;

procedure TKKSr.Edit1KeyPress(Sender: TObject; var Key: Char);
var
    i:integer;
    ddd,ts,sy:string;
begin
if key=#13 then
    begin
      IF (LENGTH(EDIT1.TEXT)=0) or (length(edit1.text)>5) THEN
         begin
            application.MessageBox('没有输入有效的字段值,请重输!!!','提示',mb_ok+mb_iconinformation);
            edit1.SetFocus;
            abort;
          end;
     data.query1.first;
     sy:=edit1.text;
 if pchar(sy)<char('A') then
 begin
         for i:=1 to (5-length(edit1.text)) do
         begin
             edit1.text:='0'+edit1.text;
         end;
      data.query1.first;
      sy:=edit1.Text;
 if not(data.query1.Locate('code',edit1.text,[])) then
    begin
         application.MessageBox('不存在这条纪录CODE','提示',mb_ok+mb_iconinformation);
         edit1.setfocus;
         data.query1.first;
         abort;
    end;
    edit2.text:=Data.query1.fieldbyname('name').asstring;
          edit4.text:=Data.query1.fieldbyname('bmno').asstring;
          edit5.text:=Data.query1.fieldbyname('xmdm').asstring;
          edit3.text:=Data.query1.fieldbyname('kk_yl').asstring;
          if  length(edit3.text)=0 then edit3.text:='0';
          edit6.text:=Data.query1.fieldbyname('kk_gj').asstring;
          if  length(edit6.text)=0 then edit6.text:='0';
          edit7.text:=Data.query1.fieldbyname('kk_qt1').asstring;
          if  length(edit7.text)=0 then edit7.text:='0';
          edit8.text:=Data.query1.fieldbyname('kk_qt2').asstring;
          if  length(edit8.text)=0 then edit8.text:='0';

          edit9.text:=Data.query1.fieldbyname('zjsj').asstring;
          if  length(edit9.text)=0 then edit9.text:='0';
          if  length(edit12.text)=0 then edit12.text:='0';
          edit10.text:=Data.query1.fieldbyname('zjkg').asstring;
          if  length(edit10.text)=0 then edit10.text:='0';

          edit11.text:=Data.query1.fieldbyname('zjjbkk').asstring;
          if  length(edit11.text)=0 then edit11.text:='0';
          

          edit3.setfocus;
end
   else
 begin
//
   ddd:='';
   ddd:=inttostr(strtoint(kkdate.maskedit1.Text))+'-'+inttostr(strtoint(kkdate.edit4.Text));
   data.query2.Close;
   with data.query2.SQL do
   begin
      clear;
      add('select * from lyk');
      add('where riqi='''+ddd+'''');
      add('and xmdm like '''+sy+'%'+'''');
   end;
  // data.query2.EnableControls;
   data.query2.Open;
   if data.query2.IsEmpty then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,请重新输入姓名代码!!!';
   application.MessageBox(pchar(ts),'提示',mb_ok+mb_iconinformation);
   edit1.SetFocus;
   abort;
   end;
   Application.CreateForm(Tqueryjjform,queryjjform);
      queryjjform.ShowModal;
      queryjjform.Hide;
      queryjjform.release;

          edit2.text:=Data.query2.fieldbyname('name').asstring;
          edit4.text:=Data.query2.fieldbyname('bmno').asstring;
          edit5.text:=Data.query2.fieldbyname('xmdm').asstring;
          edit3.text:=Data.query2.fieldbyname('kk_yl').asstring;
          if  length(edit3.text)=0 then edit3.text:='0';
          edit6.text:=Data.query2.fieldbyname('kk_gj').asstring;
          if  length(edit6.text)=0 then edit6.text:='0';
          edit7.text:=Data.query2.fieldbyname('kk_qt1').asstring;
          if  length(edit7.text)=0 then edit7.text:='0';
          edit8.text:=Data.query2.fieldbyname('kk_qt2').asstring;
          if  length(edit8.text)=0 then edit8.text:='0';

           edit9.text:=Data.query2.fieldbyname('zjsj').asstring;
          if  length(edit9.text)=0 then edit9.text:='0';
          if  length(edit12.text)=0 then edit12.text:='0';
          edit10.text:=Data.query2.fieldbyname('zjkg').asstring;
          if  length(edit10.text)=0 then edit10.text:='0';

          edit11.text:=Data.query2.fieldbyname('zjjbkk').asstring;
          if  length(edit11.text)=0 then edit11.text:='0';
          edit3.setfocus;
        end;
end;
end;
procedure TKKSr.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #27 then Close;
end;

procedure TKKSr.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var sy:string;
begin
if key in[vk_RETURN] then
begin
   if (strtofloat(edit9.text)+strtofloat(edit10.text))>=22 then
       begin
            application.MessageBox('事假+矿工不能超过21天，请重新输入！！！','提示',mb_ok);
            abort;
       end;
  try
   sy:='';
   sy:=edit1.Text;
   if pchar(sy)<char('A') then
 begin
   data.query1.edit;
   data.query1.FieldByName('kk_yl').asfloat:=strtofloat(edit3.text);
   data.query1.FieldByName('kk_gj').asfloat:=strtofloat(edit6.text);
   data.query1.FieldByName('kk_qt1').asfloat:=strtofloat(edit7.text);
   data.query1.FieldByName('kk_qt2').asfloat:=strtofloat(edit8.text);
   data.query1.FieldByName('zjqt4').asfloat:=strtofloat(edit12.text);

   data.query1.FieldByName('zjkg').asfloat:=strtofloat(edit10.text);
   data.query1.FieldByName('zjjbkk').asfloat:=strtofloat(edit11.text);
   data.query1.FieldByName('zjsj').asfloat:=strtofloat(edit9.text);

   data.query1.FieldByName('xmdm').asstring:=edit5.text;
   data.query1.post;
   data.query1.Refresh;
   end
  else
  begin
   data.query2.edit;
   data.query2.FieldByName('kk_yl').asfloat:=strtofloat(edit3.text);
   data.query2.FieldByName('kk_gj').asfloat:=strtofloat(edit6.text);
   data.query2.FieldByName('kk_qt1').asfloat:=strtofloat(edit7.text);
   data.query2.FieldByName('kk_qt2').asfloat:=strtofloat(edit8.text);
   data.query1.FieldByName('zjqt4').asfloat:=strtofloat(edit12.text);

   data.query2.FieldByName('zjkg').asfloat:=strtofloat(edit10.text);
   data.query2.FieldByName('zjjbkk').asfloat:=strtofloat(edit11.text);
   data.query2.FieldByName('zjsj').asfloat:=strtofloat(edit9.text);

   data.query2.FieldByName('xmdm').asstring:=edit5.text;
   data.query2.post;
   data.query2.Refresh;

  end;
   except
     application.MessageBox('发生意外错误,可能是您输入的数据有空值，请修改!!!','警告',mb_ok+mb_iconstop);
     abort;
  end;
IF  (application.messagebox('继续录入吗?','消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
     =idok) then
     begin
      edit1.text:='';
      edit2.text:='';
      edit3.text:='';
      edit4.text:='';
      edit5.text:='';
      edit6.text:='';
      edit7.text:='';
      edit8.Text:='';
      edit9.text:='';
      edit10.text:='';
      edit11.Text:='';
      edit12.text:='';
      edit1.setfocus;
      end;

     end;
end;


procedure TKKSr.FormShow(Sender: TObject);
begin
     edit1.SetFocus;
end;



procedure TKKSr.RxGIFAnimator1Click(Sender: TObject);
begin
     close;
end;

end.