📄 gzxxsd.~pas
字号:
adoquery1.Parameters[0].Direction:=pdinput;
adoquery1.Parameters[0].Value:=combobox1.Text;
adoquery1.Active:=true;
edit1.Text:=adoquery1.FieldByName('职工姓名').AsString;
edit3.Text:=adoquery1.FieldByName('性别').AsString;
edit4.Text:=adoquery1.FieldByName('身份证号').AsString;
maskedit1.Text:=datetostr(adoquery1.FieldByName('出生年月').AsDateTime);
maskedit2.Text:=datetostr(adoquery1.FieldByName('参加工作时间').asdatetime);
edit5.Text:=adoquery1.FieldByName('职务').AsString;
edit6.Text:=currtostr(adoquery1.FieldByName('基本工资').AsCurrency);
edit11.Text:=adoquery1.FieldByName('工作部门').AsString;
edit12.Text:=adoquery1.FieldByName('备注').AsString;
adoquery1.Close;
//------------------------------------------------------------------------
// 查询职工工资信息表
//------------------------------------------------------------------------
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 职工工资信息表 where 职工编号=:ZgNo');
adoquery1.Parameters.Clear;
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[0].Name:='ZgNo';
adoquery1.Parameters[0].DataType:=ftstring;
adoquery1.Parameters[0].Direction:=pdinput;
adoquery1.Parameters[0].Value:=combobox1.Text;
adoquery1.Active:=true;
adotable2.Recordset:=adoquery1.Recordset;
adoquery1.Close;
edit7.Text:=currtostr(adotable2.FieldByName('浮动工资').AsCurrency);
edit8.Text:=currtostr(adotable2.FieldByName('津贴').AsCurrency);
edit9.Text:=currtostr(adotable2.FieldByName('工龄工资').AsCurrency);
edit2.Text:=currtostr(adotable2.FieldByName('奖金').AsCurrency);
edit19.Text:=currtostr(adotable2.FieldByName('补贴').AsCurrency);
edit10.Text:=currtostr(adotable2.FieldByName('其他').AsCurrency);
edit13.Text:=currtostr(adotable2.FieldByName('保险费').AsCurrency);
edit14.Text:=currtostr(adotable2.FieldByName('房租费').AsCurrency);
edit15.Text:=currtostr(adotable2.FieldByName('补扣').AsCurrency);
edit16.Text:=currtostr(adotable2.FieldByName('所得税').AsCurrency);
edit17.Text:=currtostr(adotable2.FieldByName('工资总额').AsCurrency);
edit18.Text:=currtostr(adotable2.FieldByName('实发工资').AsCurrency);
edit20.Text:=floattostr(adotable2.FieldByName('税率').AsFloat);
checkbox1.Checked:=adotable2.FieldByName('冻结标志').AsBoolean;
adotable2.Close;
end;
end;
procedure TGzxxsd_Form.Edit1Exit(Sender: TObject);
begin
if edit1.Text<>'' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 职工信息表 where 职工姓名=:ZgName order by 职工编号 ');
adoquery1.Parameters.Clear;
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[0].Name:='ZgName';
adoquery1.Parameters[0].DataType:=ftstring;
adoquery1.Parameters[0].Direction:=pdinput;
adoquery1.Parameters[0].Value:=edit1.Text;
adoquery1.Active:=true;
if adoquery1.Recordset.RecordCount>=1 then
begin
combobox1.Text:=adoquery1.FieldByName('职工编号').AsString;
edit3.Text:=adoquery1.FieldByName('性别').AsString;
edit4.Text:=adoquery1.FieldByName('身份证号').AsString;
maskedit1.Text:=datetostr(adoquery1.FieldByName('出生年月').AsDateTime);
maskedit2.Text:=datetostr(adoquery1.FieldByName('参加工作时间').asdatetime);
edit5.Text:=adoquery1.FieldByName('职务').AsString;
edit6.Text:=currtostr(adoquery1.FieldByName('基本工资').AsCurrency);
edit11.Text:=adoquery1.FieldByName('工作部门').AsString;
edit12.Text:=adoquery1.FieldByName('备注').AsString;
adoquery1.Close;
//------------------------------------------------------------------------
// 查询职工工资信息表
//------------------------------------------------------------------------
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 职工工资信息表 where 职工姓名=:ZgName');
adoquery1.Parameters.Clear;
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[0].Name:='ZgName';
adoquery1.Parameters[0].DataType:=ftstring;
adoquery1.Parameters[0].Direction:=pdinput;
adoquery1.Parameters[0].Value:=edit1.Text;
adoquery1.Active:=true;
adotable2.Recordset:=adoquery1.Recordset;
adoquery1.Close;
edit7.Text:=currtostr(adotable2.FieldByName('浮动工资').AsCurrency);
edit8.Text:=currtostr(adotable2.FieldByName('津贴').AsCurrency);
edit9.Text:=currtostr(adotable2.FieldByName('工龄工资').AsCurrency);
edit2.Text:=currtostr(adotable2.FieldByName('奖金').AsCurrency);
edit19.Text:=currtostr(adotable2.FieldByName('补贴').AsCurrency);
edit10.Text:=currtostr(adotable2.FieldByName('其他').AsCurrency);
edit13.Text:=currtostr(adotable2.FieldByName('保险费').AsCurrency);
edit14.Text:=currtostr(adotable2.FieldByName('房租费').AsCurrency);
edit15.Text:=currtostr(adotable2.FieldByName('补扣').AsCurrency);
edit16.Text:=currtostr(adotable2.FieldByName('所得税').AsCurrency);
edit17.Text:=currtostr(adotable2.FieldByName('工资总额').AsCurrency);
edit18.Text:=currtostr(adotable2.FieldByName('实发工资').AsCurrency);
edit20.Text:=floattostr(adotable2.FieldByName('税率').AsFloat);
checkbox1.Checked:=adotable2.FieldByName('冻结标志').AsBoolean;
adotable2.Close;
end
else
begin
combobox1.Text:='';
edit3.Text:='';
edit4.Text:='';
maskedit1.Text:='';
maskedit2.Text:='';
edit5.Text:='';
edit6.Text:='';
edit11.Text:='';
edit12.Text:='';
adoquery1.Close;
application.MessageBox('该职工的资料不存在！','提示',48);
edit1.SetFocus;
end;
end;
end;
procedure TGzxxsd_Form.BitBtn1Click(Sender: TObject);
begin
carcl();
if combobox1.Text<> '' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 职工工资信息表 where 职工编号=:ZgNo');
adoquery1.Parameters.Clear;
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[0].Name:='ZgNo';
adoquery1.Parameters[0].DataType:=ftstring;
adoquery1.Parameters[0].Direction:=pdinput;
adoquery1.Parameters[0].Value:=combobox1.Text;
adoquery1.Active:=true;
adotable2.Recordset:=adoquery1.Recordset;
adoquery1.Close;
adotable2.Edit;
adotable2.FieldByName('浮动工资').AsCurrency:=strtocurr(edit7.Text);
adotable2.FieldByName('津贴').AsCurrency:=strtocurr(edit8.Text);
adotable2.FieldByName('工龄工资').AsCurrency:=strtocurr(edit9.Text);
adotable2.FieldByName('奖金').AsCurrency:=strtocurr(edit2.Text);
adotable2.FieldByName('补贴').AsCurrency:=strtocurr(edit19.Text);
adotable2.FieldByName('其他').AsCurrency:=strtocurr(edit10.Text);
adotable2.FieldByName('保险费').AsCurrency:=strtocurr(edit13.Text);
adotable2.FieldByName('房租费').AsCurrency:=strtocurr(edit14.Text);
adotable2.FieldByName('补扣').AsCurrency:=strtocurr(edit15.Text);
adotable2.FieldByName('所得税').AsCurrency:=strtocurr(edit16.Text);
adotable2.FieldByName('工资总额').AsCurrency:=strtocurr(edit17.Text);
adotable2.FieldByName('实发工资').AsCurrency:=strtocurr(edit18.Text);
adotable2.FieldByName('税率').AsFloat:=strtofloat(edit20.Text);
adotable2.FieldByName('冻结标志').AsBoolean:=checkbox1.Checked;
adotable2.Post;
adotable2.Close;
end
else
application.MessageBox('信息不完整！','提示',48);
end;
procedure TGzxxsd_Form.Edit7Exit(Sender: TObject);
begin
curbuff[0]:=strtocurr(edit6.Text);
curbuff[1]:=strtocurr(edit7.Text);
end;
procedure TGzxxsd_Form.Edit8Exit(Sender: TObject);
begin
curbuff[0]:=strtocurr(edit6.Text);
curbuff[2]:=strtocurr(edit8.Text);
end;
procedure TGzxxsd_Form.Edit9Exit(Sender: TObject);
begin
curbuff[0]:=strtocurr(edit6.Text);
curbuff[3]:=strtocurr(edit9.Text);
end;
procedure TGzxxsd_Form.Edit2Exit(Sender: TObject);
begin
curbuff[0]:=strtocurr(edit6.Text);
curbuff[4]:=strtocurr(edit2.Text);
end;
procedure TGzxxsd_Form.Edit19Exit(Sender: TObject);
begin
curbuff[0]:=strtocurr(edit6.Text);
curbuff[5]:=strtocurr(edit19.Text);
end;
procedure TGzxxsd_Form.Edit10Exit(Sender: TObject);
begin
curbuff[0]:=strtocurr(edit6.Text);
curbuff[6]:=strtocurr(edit10.Text);
end;
procedure TGzxxsd_Form.Edit13Exit(Sender: TObject);
begin
curbuff[0]:=strtocurr(edit6.Text);
curbuff[7]:=strtocurr(edit13.Text);
end;
procedure TGzxxsd_Form.Edit14Exit(Sender: TObject);
begin
curbuff[0]:=strtocurr(edit6.Text);
curbuff[8]:=strtocurr(edit14.Text);
end;
procedure TGzxxsd_Form.Edit15Exit(Sender: TObject);
begin
carcl();
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -