📄 bm_zhiyuanu.pas
字号:
begin
str:=str+' and a.公司名称 like "%'+dw.text+'%"' ;
end ;
if zw.Text <>'' then
begin
str:=str+' and c.职务 like "%'+zw.text+'%"' ;
end ;
if zc.Text <>'' then
begin
str:=str+' and c.职称 like "%'+zc.text+'%"' ;
end ;
if sf.Text <>'' then
begin
str:=str+' and c.身份 like "%'+sf.text+'%"' ;
end ;
sql.Add(str);
open;
label32.Caption :='共查询 '+inttostr(recordcount) +' 条记录！';
sd:=fieldbyname('xingming').AsString ;
DBGrid1.Columns[0].Title.Caption:='公司名称';
DBGrid1.Columns[0].Width :=60;
DBGrid1.Columns[1].Title.Caption:='部门';
DBGrid1.Columns[1].Width :=60;
DBGrid1.Columns[2].Title.Caption:='姓名';
DBGrid1.Columns[2].Width :=60;
DBGrid1.Columns[3].Title.Caption:='性别';
DBGrid1.Columns[3].Width :=30;
DBGrid1.Columns[4].Title.Caption:='出生年月';
DBGrid1.Columns[4].Width :=60;
DBGrid1.Columns[5].Title.Caption:='籍贯';
DBGrid1.Columns[5].Width :=60;
DBGrid1.Columns[6].Title.Caption:='学历';
DBGrid1.Columns[6].Width :=60;
DBGrid1.Columns[7].Title.Caption:='职称';
DBGrid1.Columns[7].Width :=60;
DBGrid1.Columns[8].Title.Caption:='职务';
DBGrid1.Columns[8].Width :=60;
DBGrid1.Columns[9].Title.Caption:='身份';
DBGrid1.Columns[9].Width :=60;
DBGrid1.Columns[10].Title.Caption:='调入公司时间';
DBGrid1.Columns[10].Width :=60;
DBGrid1.Columns[11].Title.Caption:='办公电话';
DBGrid1.Columns[11].Width :=60;
DBGrid1.Columns[12].Title.Caption:='住宅电话';
DBGrid1.Columns[12].Width :=60;
DBGrid1.Columns[13].Title.Caption:='手机号码';
DBGrid1.Columns[13].Width :=60;
DBGrid1.Columns[14].Title.Caption:='email';
DBGrid1.Columns[14].Width :=90;
end;
end;
procedure TBM_ZHIYUANF.readdata;
var sname,bianma:string;
begin
fid:=strtoint(DM.zhiyuan2.FieldByName('id').Text);
xingming.Text :=DM.zhiyuan2.FieldByName('公司名称').Text ;
if DM.zhiyuan2.FieldByName('性别').Text='男' then cb1.ItemIndex :=0;
if DM.zhiyuan2.FieldByName('性别').Text='女' then cb1.ItemIndex :=1;
if DM.zhiyuan2.FieldByName('性别').Text='' then cb1.ItemIndex :=-1;
shengri.Text :=DM.zhiyuan2.FieldByName('出生时间').Text ;
jiguan.Text := DM.zhiyuan2.FieldByName('籍贯').Text ;
with dm.ADOQuery1 do
begin
close;
SQL.Clear ;
sname:='select 公司名称,部门编码 from zhiyuan where id=';
sname:=sname+DM.zhiyuan2.FieldByName('部门编码').Text ;
sql.Add(sname);
open;
bumen.Text :=fields[0].Text ;
bianma:=fields[1].Text ;
end;
with dm.ADOQuery1 do
begin
close;
SQL.Clear ;
sname:='select 公司名称 from zhiyuan where id='+bianma;
sql.Add(sname);
open;
//gongsi.Text :=fields[0].Text ;
gongsi.Text :=Fieldbyname('公司名称').AsString ;
end;
xueli.Text := DM.zhiyuan2.FieldByName('学历').Text ;
zhicheng.Text :=DM.zhiyuan2.FieldByName('职称').Text ;
shenfen.Text := DM.zhiyuan2.FieldByName('身份').Text ;
zhiwu.Text := DM.zhiyuan2.FieldByName('职务').Text ;
memo.Text := DM.zhiyuan2.FieldByName('备注').Text ;
diaoru.Text :=DM.zhiyuan2.FieldByName('调入公司时间').Text ;
email.Text :=DM.zhiyuan2.FieldByName('email').Text ;
bangong.Text :=DM.zhiyuan2.FieldByName('办公电话').Text ;
zhuzhai.Text :=DM.zhiyuan2.FieldByName('住宅电话').Text ;
shouji.Text :=DM.zhiyuan2.FieldByName('手机号码').Text ;
heji.Text :=DM.zhiyuan2.FieldByName('工资合计').Text ;
//inttostr(strtoint(jichu.Text)+ strtoint(gangwei.Text)+strtoint(jiaban.Text)+strtoint(zhufang.Text));
/////////////////
readgongzi;
readdiaodong;
////////////
loadimage;
end;
procedure TBM_ZHIYUANF.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
With DbGrid1 do
begin
if ((State = [gdSelected]) or (State = [gdSelected,gdFocused])) then
begin
Canvas.Font.Color := clYellow;
Canvas.Brush.Color := clNavy;
end
else
begin
if DataCol mod 2 <> 0 then Canvas.Brush.Color := clWhite
else Canvas.Brush.Color := $00EAEAEA;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
procedure TBM_ZHIYUANF.DBGrid1DblClick(Sender: TObject);
var i,j,k:integer;
mynode: Ttreenode;
mytree:Ttreeview;
mynode2:Ttreenode;
begin
DM.zhiyuan2.Close;
DM.zhiyuan2.Open ;
if sd='' then exit;
DM.zhiyuan2.Locate('公司名称',sd ,[]);
readdata;
TabbedNotebook1.PageIndex :=0;
SpeedButton1.Enabled :=true;
SpeedButton11.Enabled :=true;
SpeedButton2.Enabled :=true;
SpeedButton3.Enabled :=true;
SpeedButton18.Enabled :=true;
SpeedButton16.Enabled :=true;
SpeedButton8.Enabled :=true;
SpeedButton20.Enabled :=true;
SpeedButton19.Enabled :=true;
SpeedButton17.Enabled :=true;
TreeView1.FullCollapse ;
for i:=0 to TreeView1.Items.Count - 1 do
begin
if treeview1.Items.Item[i].Text =trim(dbgrid1.Fields[0].AsString) then
begin
TreeView1.Items.Item[i].Expanded := true;
TreeView1.Items.Item[i].Selected :=true;
mynode:=TreeView1.Items.Item[i];
TreeView1.Items.Item[i].Focused:=true;
if TreeView1.Items.Item[i].HasChildren then
begin
for j:=0 to mynode.Count -1 do
begin
if mynode.Item[j].Text =trim(dbgrid1.Fields[1].AsString) then
begin
mynode2:=TreeView1.Items.Item[i].Item[j];
mynode2.Expanded:=true;
for k:=0 to mynode2.Count-1 do
begin
if mynode2.Item[k].Text =trim(dbgrid1.Fields[2].AsString) then
begin
TreeView1.Items.Item[i].Item[j].Item[k].Selected:=true;
TreeView1.SetFocus;
TreeView1.Selected.Selected := True;
exit;
end;
end;
end;
end;
end;
end;
end;
label55.Caption :='职员:【'+dbgrid1.Fields[2].AsString+'】';
label28.Caption :='职员:【'+dbgrid1.Fields[2].AsString+'】';
end;
procedure TBM_ZHIYUANF.jichuKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [chr(8),chr(13),'0','1','2','3','4','5','6','7','8','9','.']) then key:=#0;
IF KEY=#13 THEN
begin
if jichu.Text ='' then jichu.Text :='0';
gangwei.SetFocus ;
end;
end;
procedure TBM_ZHIYUANF.gangweiKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [chr(8),chr(13),'0','1','2','3','4','5','6','7','8','9']) then key:=#0;
IF KEY=#13 THEN
begin
if gangwei.Text='' then gangwei.Text :='0';
jiaban.SetFocus ;
end;
end;
procedure TBM_ZHIYUANF.jiabanKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [chr(8),chr(13),'0','1','2','3','4','5','6','7','8','9']) then key:=#0;
IF KEY=#13 THEN
begin
if jiaban.Text ='' then jiaban.Text :='0';
zhufang.SetFocus ;
end;
end;
procedure TBM_ZHIYUANF.zhufangKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [chr(8),chr(13),'0','1','2','3','4','5','6','7','8','9']) then key:=#0;
IF KEY=#13 THEN
begin
if zhufang.Text ='' then zhufang.Text :='0';
xiaoyi.SetFocus ;
//count;
end;
end;
procedure TBM_ZHIYUANF.xiaoyiKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [chr(8),chr(13),'0','1','2','3','4','5','6','7','8','9']) then key:=#0;
IF KEY=#13 THEN
begin
if xiaoyi.Text ='' then xiaoyi.Text :='0';
diqu.SetFocus ;
end;
end;
procedure TBM_ZHIYUANF.diquKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [chr(8),chr(13),'0','1','2','3','4','5','6','7','8','9']) then key:=#0;
IF KEY=#13 THEN
begin
if diqu.Text ='' then diqu.Text :='0';
gongling.SetFocus ;
end;
end;
procedure TBM_ZHIYUANF.count;
var cu:integer;
begin
if jichu.Text='' then jichu.Text:='0';
if gangwei.Text='' then gangwei.Text:='0';
if jiaban.Text='' then jiaban.Text:='0';
if zhufang.Text='' then zhufang.Text:='0';
if xiaoyi.Text='' then xiaoyi.Text:='0';
if diqu.Text='' then diqu.Text:='0';
if gongling.Text='' then gongling.Text:='0';
if qita.Text='' then qita.Text:='0';
if shijian.Text='' then shijian.Text:=datetostr(date);
cu:=strtoint(jichu.Text)+strtoint(gangwei.Text)+strtoint(jiaban.Text)+ strtoint(zhufang.Text);
jichuheji.Text :=inttostr(cu);
cu:=cu+strtoint(xiaoyi.Text)+strtoint(diqu.Text);
cu:=cu+ strtoint(gongling.Text)+ strtoint(qita.Text);
heji.Text :=inttostr(cu);
end;
procedure TBM_ZHIYUANF.gonglingKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [chr(8),chr(13),'0','1','2','3','4','5','6','7','8','9']) then key:=#0;
IF KEY=#13 THEN
begin
if gongling.Text ='' then gongling.Text :='0';
qita.SetFocus ;
end;
end;
procedure TBM_ZHIYUANF.xingmingKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN cb1.SetFocus ;
end;
procedure TBM_ZHIYUANF.jiguanKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN xueli.SetFocus ;
end;
procedure TBM_ZHIYUANF.bangongKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN zhuzhai.SetFocus ;
end;
procedure TBM_ZHIYUANF.zhuzhaiKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN shouji.SetFocus ;
end;
procedure TBM_ZHIYUANF.shoujiKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN memo.SetFocus ;
end;
procedure TBM_ZHIYUANF.MemoKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
begin
//TabbedNotebook1.PageIndex :=1;
//jichu.SetFocus ;
end;
end;
procedure TBM_ZHIYUANF.hejiKeyPress(Sender: TObject; var Key: Char);
begin
//TabbedNotebook1.PageIndex :=2;
// ds.SetFocus ;
end;
procedure TBM_ZHIYUANF.dsKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
begin
//dg.Text :=datetostr(date);
dg.SetFocus ;
end;
end;
procedure TBM_ZHIYUANF.SpeedButton18Click(Sender: TObject);
begin
AORE:=true;
//if vv=0 then
//begin
//showmessage('dd');
//exit ;
// end
//else
//begin
//TreeView1.GetSelections()
jichu.Enabled :=true;
gangwei.Enabled :=true;
jiaban.Enabled :=true;
zhufang.Enabled :=true;
xiaoyi.Enabled :=true;
diqu.Enabled :=true;
gongling.Enabled :=true;;
qita.Enabled :=true;
shijian.Enabled :=true;
////
jichu.Text :='';
gangwei.Text :='';
jiaban.Text :='';
zhufang.Text :='';
xiaoyi.Text :='';
diqu.Text :='';
gongling.Text :='';
qita.Text :='';
heji.Text :='';
shijian.Text :=datetostr(date);
jichu.SetFocus ;
///
SpeedButton22.Enabled :=true;
SpeedButton21.Enabled :=true;
SpeedButton18.Enabled :=false;
SpeedButton16.Enabled :=false;
SpeedButton8.Enabled :=false;
///
//end;
end;
procedure TBM_ZHIYUANF.SpeedButton16Click(Sender: TObject);
begin
AORE:=false;
jichu.Enabled :=true;
gangwei.Enabled :=true;
jiaban.Enabled :=true;
zhufang.Enabled :=true;
xiaoyi.Enabled :=true;
diqu.Enabled :=true;
gongling.Enabled :=true;
qita.Enabled :=true;
shijian.Enabled :=true;
SpeedButton16.Enabled :=false;
SpeedButton18.Enabled :=false;
SpeedButton8.Enabled :=false;
SpeedButton21.Enabled :=true;
SpeedButton22.Enabled :=true;
end;
procedure TBM_ZHIYUANF.SpeedButton21Click(Sender: TObject);
var SqlTmp:string;
begin
count;
if AORE=false then
begin
with dm.qryRun do
begin
Close;
SQL.Text := ' update 工资 set 基本工资 = "' + jichu.Text + '",'
+ '岗位工资="' +gangwei.Text +'",'
+ '加班工资="' +jiaban.Text +'",'
+ '住房补贴="' +zhufang.Text +'",'
+ '效益工资="' +xiaoyi.Text +'",'
+ '地区补贴="' +xiaoyi.Text +'",'
+ '变更日期="' +shijian.Text +'",'
+ '其他="' +qita.Text +'",'
+ '工资合计="' +heji.Text +'",'
+ '工龄补贴="' +gongling.Text +'"'
+ ' where id='+s2 +' and id2='+inttostr(fid) ;
Prepared := True;
ExecSQL;
end;
end
else
begin
WITH DM.qryRun do
begin
SqlTmp:='INSERT INTO 工资(id2,基本工资,岗位工资,加班工资,住房补贴,效益工资,地区补贴,工龄补贴,其他,变更日期,工资合计)';
SqlTmp:=SqlTmp+' VALUES (' + inttostr(fid)+',"';
SqlTmp:=SqlTmp+jichu.Text+'","';
SqlTmp:=SqlTmp+gangwei.Text+'","';
SqlTmp:=SqlTmp+jiaban.Text+'","';
SqlTmp:=SqlTmp+zhufang.Text+'","';
SqlTmp:=SqlTmp+xiaoyi.Text+'","';
SqlTmp:=SqlTmp+diqu.Text+'","';
SqlTmp:=SqlTmp+gongling.Text+'","';
SqlTmp:=SqlTmp+qita.Text+'","';
SqlTmp:=SqlTmp+shijian.Text+'","';
SqlTmp:=SqlTmp+heji.Text+'")';
close;
sql.Clear ;
sql.Add(SqlTmp);
ExecSQL ;
end;
end;
with aq1 do
begin
close;
SQL.Clear ;
SqlTmp:='select id,id2,变更日期,基本工资,岗位工资,加班工资,住房补贴,效益工资,地区补贴,工龄补贴,其他 from 工资 where id2=';
SqlTmp:=SqlTmp+inttostr(fid)+' order by 变更日期 desc';
sql.Add(SqlTmp);
open;
end;
readgongzi;
SpeedButton16.Enabled :=true;
SpeedButton18.Enabled :=true;
SpeedButton8.Enabled :=true;
SpeedButton21.Enabled :=false;
SpeedButton22.Enabled :=false;
//////
jichu.Enabled :=false;
gangwei.Enabled :=false;
jiaban.Enabled :=false;
zhufang.Enabled :=false;
xiaoyi.Enabled :=false;
diqu.Enabled :=false;
gongling.Enabled :=false;
qita.Enabled :=false;
shijian.Enabled :=false;
end;
procedure TBM_ZHIYUANF.SpeedButton22Click(Sender: TObject);
begin
jichu.Enabled :=false;
gangwei.Enabled :=false;
jiaban.Enabled :=false;
zhufang.Enabled :=false;
xiaoyi.Enabled :=false;
diqu.Enabled :=false;
gongling.Enabled :=false;
qita.Enabled :=false;
shijian.Enabled :=false;
SpeedButton16.Enabled :=true;
SpeedButton18.Enabled :=true;
SpeedButton8.Enabled :=true;
SpeedButton21.Enabled :=false;
SpeedButton22.Enabled :=false;
readgongzi;
end;
procedure TBM_ZHIYUANF.SpeedButton17Click(Sender: TObject);
begin
s2:=aq2.FieldByName('id').AsString ;
if MessageBox(0, '你确定删除该条记录吗?', '提示', MB_YESNO + MB_ICONQUESTION) =IDYES then
begin
with dm.qryRun do
begin
Close;
SQL.Text := ' delete from 调动 where ID ='+ s2;
ExecSQL;
end;
readdiaodong;
end;
end;
procedure TBM_ZHIYUANF.SpeedButton8Click(Sender: TObject);
begin
if MessageBox(0, '你确定删除该条记录吗?', '提示', MB_YESNO + MB_ICONQUESTION) =IDYES then
begin
with dm.qryRun do
begin
Close;
SQL.Text := ' delete from 工资 where ID ='+ s2;
ExecSQL;
end;
readgongzi;
end;
end;
procedure TBM_ZHIYUANF.DBGrid2DblClick(Sender: TObject);
var sname:string;
begin
//s2:=inttostr(DBGrid2.Fields[0].asinteger);
s2:=aq1.FieldByName('id').AsString ;
with cha do
begin
close;
SQL.Clear ;
sname:='select id,id2,变更日期,基本工资,岗位工资,加班工资,住房补贴,效益工资,地区补贴,工龄补贴,其他 from 工资 ';
sname:=sname +'where id='+s2 ;
sname:=sname +' order by 变更日期 desc' ;
sql.Add(sname);
open;
jichu.Text :=FieldByName('基本工资').AsString ;
gangwei.Text :=FieldByName('岗位工资').AsString ;
jiaban.Text :=FieldByName('加班工资').AsString ;
zhufang.Text :=FieldByName('住房补贴').AsString ;
xiaoyi.Text :=FieldByName('效益工资').AsString ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -