jjsrunit.pas

工资管理系统

unit JJSRUNIT;

interface

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

type
  TJjsr = 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;
    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 Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure RxGIFAnimator1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Jjsr: TJjsr;

implementation

uses Dateunit, gzdata, jjDateunit, QueryJjUnit;

{$R *.DFM}

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

procedure TJjsr.Edit1KeyPress(Sender: TObject; var Key: Char);
var
    i:integer;
    ts,sy,ddd: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);
         messagebeep(0);
         edit1.SetFocus;
         edit1.SelectAll;
    end
    else
begin
         data.query1.first;
         sy:=edit1.text;
if pchar(sy)<char('A') then
   begin
        for i:=1 to (5-length(edit1.text)) do
        edit1.text:='0'+edit1.text;
if pchar(sy)<char('A') then
    begin
          if not(data.query1.Locate('code',edit1.text,[])) then
          begin
              application.MessageBox('不存在这条纪录CODE','提示',mb_ok+mb_iconinformation);
              messagebeep(0);
              edit1.setfocus;
              edit1.SelectAll;
              data.query1.first;
              abort;
          end;
     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('jl_jj').asstring;
          if  length(edit3.text)=0 then edit3.text:='0';
          edit6.text:=Data.query1.fieldbyname('jl_ce').asstring;
          if  length(edit6.text)=0 then edit6.text:='0';
          edit7.text:=Data.query1.fieldbyname('jl_qt').asstring;
          if  length(edit7.text)=0 then edit7.text:='0';
          edit3.setfocus;
end
          else
begin
//
   ddd:='';
   ddd:=inttostr(strtoint(jjdate.maskedit1.Text))+'-'+inttostr(strtoint(jjdate.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);
   messagebeep(0);
   edit1.SetFocus;
   edit1.SelectAll;
   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('jl_jj').asstring;
          if  length(edit3.text)=0 then edit3.text:='0';
          edit6.text:=Data.query2.fieldbyname('jl_ce').asstring;
          if  length(edit6.text)=0 then edit6.text:='0';
          edit7.text:=Data.query2.fieldbyname('jl_qt').asstring;
          if  length(edit7.text)=0 then edit7.text:='0';
          edit3.setfocus;
       end;
 end;
end;
end;
procedure TJjsr.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #27 then Close;
end;



procedure TJjsr.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var sy:string;
begin
if key in[vk_RETURN] then
begin
  try
   sy:='';
   sy:=edit1.Text;
 if pchar(sy)<char('A') then
 begin
   data.query1.edit;
   data.query1.FieldByName('jl_jj').asfloat:=strtofloat(edit3.text);
   data.query1.FieldByName('jl_ce').asfloat:=strtofloat(edit6.text);
   data.query1.FieldByName('jl_qt').asfloat:=strtofloat(edit7.text);

   data.query1.FieldByName('xmdm').asstring:=edit5.text;
   data.query1.post;
   data.query1.Refresh;
end
else
begin
   data.query2.edit;
   data.query2.FieldByName('jl_jj').asfloat:=strtofloat(edit3.text);
   data.query2.FieldByName('jl_ce').asfloat:=strtofloat(edit6.text);
   data.query2.FieldByName('jl_qt').asfloat:=strtofloat(edit7.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:='';
      edit1.setfocus;
      end;

     end;
end;

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

procedure TJjsr.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
     begin
     selectnext(sender as twincontrol,true,true);
     key:=#0;
     end;
end;

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

end.