gzkqsrunit.pas

龙矿集团工资管理系统2004源码

unit GzKqSrUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, RXClock, Grids, DBGrids, Animate, GIFCtrl;

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

var
  GzSr: TGzSr;

implementation

uses gzdata, Dateunit, QueryJjUnit;

{$R *.DFM}


procedure TGzSr.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
            beep;
            edit1.SetFocus;
            edit1.SelectAll;
            application.MessageBox('没有输入有效的字段值,请重输!!!','提示',mb_ok+mb_iconinformation);
            messagebeep(0);
          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
         begin
         edit1.text:='0'+edit1.text;
         end;

          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;
       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('jt_yb_d1').asstring;
          if  length(edit3.text)=0 then edit3.text:='0';
          edit6.text:=Data.query1.fieldbyname('jb_yb_d2').asstring;
          if  length(edit6.text)=0 then edit6.text:='0';
          edit7.text:=Data.query1.fieldbyname('qt_jb_d').asstring;
          if  length(edit7.text)=0 then edit7.text:='0';
          edit8.text:=Data.query1.fieldbyname('jb_bj_d').asstring;
          if  length(edit8.text)=0 then edit8.text:='0';
          edit9.text:=Data.query1.fieldbyname('jb_nt_d').asstring;
          if  length(edit9.text)=0 then edit9.text:='0';
          edit10.text:=Data.query1.fieldbyname('jb_hc_d').asstring;
          if  length(edit10.text)=0 then edit10.text:='0';
          edit3.setfocus;
         end
          else
   begin
   ddd:='';
   ddd:=inttostr(strtoint(dater.maskedit1.Text))+'-'+inttostr(strtoint(dater.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('jt_yb_d1').asstring;
          if  length(edit3.text)=0 then edit3.text:='0';
          edit6.text:=Data.query2.fieldbyname('jb_yb_d2').asstring;
          if  length(edit6.text)=0 then edit6.text:='0';
          edit7.text:=Data.query2.fieldbyname('qt_jb_d').asstring;
          if  length(edit7.text)=0 then edit7.text:='0';
          edit8.text:=Data.query2.fieldbyname('jb_bj_d').asstring;
          if  length(edit8.text)=0 then edit8.text:='0';
          edit9.text:=Data.query2.fieldbyname('jb_nt_d').asstring;
          if  length(edit9.text)=0 then edit9.text:='0';
          edit10.text:=Data.query2.fieldbyname('jb_hc_d').asstring;
          if  length(edit10.text)=0 then edit10.text:='0';
          edit3.setfocus;
     end;
    end;
   end;
 end;
procedure TGzSr.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key in[vk_RETURN] then
sendmessage(handle,wm_nextdlgctl,0,0);
end;

procedure TGzSr.Edit10KeyDown(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('jt_yb_d1').asinteger:=strtoint(edit3.text);
   Data.query1.FieldByName('jb_yb_d2').asinteger:=strtoint(edit6.text);
   Data.query1.FieldByName('qt_jb_d').asfloat:=strtofloat(edit7.text);
   Data.query1.FieldByName('jb_bj_d').asinteger:=strtoint(edit8.text);
   Data.query1.FieldByName('jb_nt_d').asinteger:=strtoint(edit9.text);
   Data.query1.FieldByName('jb_hc_d').asinteger:=strtoint(edit10.text);
   Data.query1.FieldByName('xmdm').asstring:=edit5.text;


   Data.query1.post;
   Data.query1.Refresh;
   end
   else
   begin
    Data.query2.edit;
   Data.query2.FieldByName('jt_yb_d1').asinteger:=strtoint(edit3.text);
   Data.query2.FieldByName('jb_yb_d2').asinteger:=strtoint(edit6.text);
   Data.query2.FieldByName('qt_jb_d').asfloat:=strtofloat(edit7.text);
   Data.query2.FieldByName('jb_bj_d').asinteger:=strtoint(edit8.text);
   Data.query2.FieldByName('jb_nt_d').asinteger:=strtoint(edit9.text);
   Data.query2.FieldByName('jb_hc_d').asinteger:=strtoint(edit10.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:='';
      edit1.setfocus;
      end;
end;
end;
procedure TGzSr.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;



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


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

end.