📄 cssjdateunit.pas
字号:
unit CssjDateunit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, Buttons, ComCtrls, ExtCtrls, Animate, GIFCtrl;
type
TCssjDate = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
MaskEdit1: TMaskEdit;
UpDown1: TUpDown;
Label2: TLabel;
Edit4: TEdit;
UpDown2: TUpDown;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
UpDown3: TUpDown;
Label5: TLabel;
Edit2: TEdit;
UpDown4: TUpDown;
Label6: TLabel;
Edit3: TEdit;
UpDown5: TUpDown;
Label7: TLabel;
Edit5: TEdit;
UpDown6: TUpDown;
Label8: TLabel;
Edit6: TEdit;
UpDown7: TUpDown;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Edit7: TEdit;
UpDown8: TUpDown;
Label15: TLabel;
Label16: TLabel;
Edit8: TEdit;
UpDown9: TUpDown;
Label17: TLabel;
RxGIFAnimator1: TRxGIFAnimator;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CssjDate: TCssjDate;
implementation
uses PassWordUnit, DataTUnit, gzdata;
{$R *.DFM}
procedure TCssjDate.FormShow(Sender: TObject);
begin
maskedit1.Text:=password.MaskEdit1.Text;
edit4.Text:=inttostr(strtoint(password.Edit4.text));
maskedit1.SetFocus;
label1.Caption:='请选择产生工资月份';
label1.Update;
end;
procedure TCssjDate.BitBtn1Click(Sender: TObject);
var ddd,ts,zh:string;
begin
datat.Table1.Open;
datat.Table4.Open;
data.Query1.DisableControls;
datat.table1.DisableControls;
datat.Table4.DisableControls;
try
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;
if data.Query1.IsEmpty then
// if (data.Query1.fields[0].asfloat=0) and (data.Query1.fields[0].asfloat=0) then
begin
ts:='';
ts:='不存在'+ddd+'数据,进行吗?';
IF (application.messagebox(PChar(ts),'提示框',mb_okcancel+mb_defbutton1+mb_iconquestion)
=idok) then
begin
screen.cursor:=crhourglass;
datat.table4.Open;
datat.table4.First;
datat.table1.Open;
datat.table1.DisableControls;
datat.Table4.DisableControls;
while not(datat.table4.eof) do
begin
zh:=datat.table4.FieldByName('rysx').AsString;
if (zh='在职') or (zh='停薪') then
begin
datat.table1.Append;
datat.table1.Edit;
datat.Table1.FieldByName('code').AsString:=datat.Table4.FieldByName('code').AsString;
datat.Table1.FieldByName('name').AsString:=datat.Table4.FieldByName('name').AsString;
datat.Table1.FieldByName('xmdm').AsString:=datat.Table4.FieldByName('xmdm').AsString;
datat.Table1.FieldByName('gjm').AsString:=datat.Table4.FieldByName('gjm').AsString;
datat.Table1.FieldByName('rysx').AsString:=datat.Table4.FieldByName('rysx').AsString;
datat.Table1.FieldByName('zhichenglb').AsString:=datat.Table4.FieldByName('zhichenglb').AsString;
datat.Table1.FieldByName('bmno').AsString:=datat.Table4.FieldByName('bmno').AsString;
datat.Table1.FieldByName('jgks').AsString:=datat.Table4.FieldByName('jgks').AsString;
datat.Table1.FieldByName('sex').AsString:=datat.Table4.FieldByName('sex').AsString;
datat.Table1.FieldByName('tj').AsString:=datat.Table4.FieldByName('tj').AsString;
datat.Table1.FieldByName('jb_jc').AsString:=datat.Table4.FieldByName('jb_jc').AsString;
datat.Table1.FieldByName('jb_qt').AsString:=datat.Table4.FieldByName('jb_qt').AsString;
datat.Table1.FieldByName('bz_gw').AsString:=datat.Table4.FieldByName('bz_gw').AsString;
datat.Table1.FieldByName('bz_jn').AsString:=datat.Table4.FieldByName('bz_jn').AsString;
datat.Table1.FieldByName('jt_gt').AsString:=datat.Table4.FieldByName('jt_gt').AsString;
datat.Table1.FieldByName('jt_zr').AsString:=datat.Table4.FieldByName('jt_zr').AsString;
datat.Table1.FieldByName('jt_jg').AsString:=datat.Table4.FieldByName('jt_jg').AsString;
datat.Table1.FieldByName('jt_st').AsString:=datat.Table4.FieldByName('jt_st').AsString;
datat.Table1.FieldByName('jt_kl').AsString:=datat.Table4.FieldByName('jt_kl').AsString;
datat.Table1.FieldByName('jt_jh').AsString:=datat.Table4.FieldByName('jt_jh').AsString;
datat.Table1.FieldByName('jt_gat').AsString:=datat.Table4.FieldByName('jt_gat').AsString;
datat.Table1.FieldByName('jt_7x').AsString:=datat.Table4.FieldByName('jt_7x').AsString;
datat.Table1.FieldByName('jt_ly').AsString:=datat.Table4.FieldByName('jt_ly').AsString;
datat.Table1.FieldByName('jt_lc').AsString:=datat.Table4.FieldByName('jt_lc').AsString;
datat.Table1.FieldByName('jt_lj').AsString:=datat.Table4.FieldByName('jt_lj').AsString;
//9%
// datat.Table1.FieldByName('jt_b9').AsString:=datat.Table4.FieldByName('jt_b9').AsString;
datat.Table1.FieldByName('jt_hz').AsString:=datat.Table4.FieldByName('jt_hz').AsString;
datat.Table1.FieldByName('jt_ft').AsString:=datat.Table4.FieldByName('jt_ft').AsString;
datat.Table1.FieldByName('jt_qt').AsString:=datat.Table4.FieldByName('jt_qt').AsString;
//保健
datat.Table1.FieldByName('fg_bj').AsString:=datat.Table4.FieldByName('fg_bj').AsString;
//2001-10-13增加选项
datat.Table1.FieldByName('jl_jj').Asfloat:=round((datat.Table4.FieldByName('jl_jj').Asfloat)*strtoint(edit7.text)*100)/100;
datat.Table1.FieldByName('jt_b9').Asfloat:=round((datat.Table4.FieldByName('jt_b9').Asfloat)*strtoint(edit8.text)*100)/100;
datat.Table1.FieldByName('kk_yl').Asfloat:=round((datat.Table4.FieldByName('kk_yl').Asfloat)*strtoint(edit1.text)*100)/100;
datat.Table1.FieldByName('kk_gj').Asfloat:=round((datat.Table4.FieldByName('kk_gj').Asfloat)*strtoint(edit2.text)*100)/100;
datat.Table1.FieldByName('kk_qt1').Asfloat:=round((datat.Table4.FieldByName('kk_qt1').Asfloat)*strtoint(edit3.text)*100)/100;
datat.Table1.FieldByName('kk_qt2').Asfloat:=round((datat.Table4.FieldByName('kk_qt2').Asfloat)*strtoint(edit5.text)*100)/100;
datat.Table1.FieldByName('zjqt4').Asfloat:=round((datat.Table4.FieldByName('zjqt4').Asfloat)*strtoint(edit6.text)*100)/100;
//2001-10-22增加税金是否扣除 zjqt5
datat.Table1.FieldByName('zjqt5').Asfloat:=round((datat.Table4.FieldByName('zjqt5').Asfloat)*100)/100;
//排序
datat.Table1.FieldByName('zjqt6').Asfloat:=round((datat.Table4.FieldByName('zjqt6').Asfloat)*100)/100;
//年功，标准其他
datat.Table1.FieldByName('zjng').Asfloat:=round((datat.Table4.FieldByName('zjng').Asfloat)*100)/100;
datat.Table1.FieldByName('zjbzqt').Asfloat:=round((datat.Table4.FieldByName('zjbzqt').Asfloat)*100)/100;
{ datat.Table1.FieldByName('kk_yl').AsString:=datat.Table4.FieldByName('kk_yl').AsString;
datat.Table1.FieldByName('kk_gj').AsString:=datat.Table4.FieldByName('kk_gj').AsString;
datat.Table1.FieldByName('kk_qt1').AsString:=datat.Table4.FieldByName('kk_qt1').AsString;
datat.Table1.FieldByName('kk_qt2').AsString:=datat.Table4.FieldByName('kk_qt2').AsString;}
datat.table1.FieldByName('riqi').AsString:=ddd;
{ for k:=0 to datat.table4.FieldCount-1 do
begin
datat.table1.Fields[k].assign(datat.table4.Fields[k]);
datat.table1.FieldByName('riqi').AsString:=ddd;
end;}
datat.table1.Post;
end;//pandan end
label1.Caption:=datat.Table4.FieldByName('Name').AsString+'正在转换.....';
label1.Update;
datat.table4.Next;
end;//while end
end;//if ok end;
end;
if not(data.Query1.IsEmpty) then
begin
ts:='';
ts:=ddd+'月 已有 <纪录>'+floattostr(data.Query1.RecordCount)+'个'+',请不要进行!';
application.messagebox(pchar(ts),'消息框',mb_ok+mb_iconstop);
abort;
end;
finally
// label1.Caption:='转换完毕,请退出!!!';
data.Query1.EnableControls;
datat.Table1.EnableControls;
datat.Table4.EnableControls;
screen.cursor:=crdefault;
label1.Caption:='请选择产生工资月份';
end;
data.Query1.EnableControls;
datat.Table1.EnableControls;
datat.Table4.EnableControls;
application.MessageBox('数据已产生完毕，请退出！！！','提示',+mb_ok+mb_iconinformation);
end;
procedure TCssjDate.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TCssjDate.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
datat.Table1.Close;
datat.Table4.Close;
end;
procedure TCssjDate.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -