yggb.pas

2004090611144625767.rar 资源名称:通用工资管理

  treeview1.Selected.getNextSibling.Selected :=true;
  datamodule1.rsbmss.last;
  while not datamodule1.rsbmss.bof do
  begin
  if datamodule1.rsbmss.FieldByName('a_bz').asstring<>'' then
  treeview1.items.addchild(treeview1.selected,datamodule1.rsbmss.fieldbyname('a_bz').asstring+'('+datamodule1.rsbmss.fieldbyname('a_number').asstring+')');
  datamodule1.rsbmss.prior;
  end;//while not
  end;
  end;//else不是第一条节点
datamodule1.rsbms.prior;
end;//while not rsbms  //到这边结束
///////////////////////////////////////////////////////////////////////////////

treeview2.items.clear;
grouprsbm:='select a_bm from rsbm group by a_bm';
with datamodule1.rsbms do
begin
close;
sql.clear;
sql.add(grouprsbm);
prepare;
open;
end;
datamodule1.rsbms.Last;
while not datamodule1.rsbms.bof do
begin
 rsbmstr:='select *from rsbm where a_bm='+''''+datamodule1.rsbms.fieldbyname('a_bm').asstring+'''';
 with datamodule1.rsbmss do
 begin
 close;
 sql.clear;
 sql.add(rsbmstr);
 prepare;
 open;
 end;//with
 // treeview1.Items.Clear;
 if datamodule1.rsbms.eof  then
 begin
 if (datamodule1.rsbms.eof) and (datamodule1.rsbmss.RecordCount<=1) then
 begin
 treeview2.Items.Add(treeview2.TopItem ,datamodule1.rsbmss.fieldbyname('a_bm').asstring+'('+datamodule1.rsbmss.fieldbyname('a_number').asstring+')');
 treeview2.TopItem.selected:=true;
 end//if
 else
 begin
 treeview2.Items.Add(treeview2.TopItem ,datamodule1.rsbms.fieldbyname('a_bm').asstring);
 datamodule1.rsbmss.last;
 while not datamodule1.rsbmss.bof do
 begin
  if datamodule1.rsbmss.FieldByName('a_bz').asstring<>'' then
 treeview2.Items.addchild(treeview2.topitem,datamodule1.rsbmss.fieldbyname('a_bz').asstring+'('+datamodule1.rsbmss.fieldbyname('a_number').asstring+')');
 datamodule1.rsbmss.prior;
 end;//while
 treeview1.TopItem.selected:=true;
 end;//else  第一条头节点
  end//datamodule1.rsbms.bof
  else
  begin
  if datamodule1.rsbmss.RecordCount<=1 then
  begin
  treeview2.Items.Add(treeview2.selected,datamodule1.rsbmss.fieldbyname('a_bm').asstring+'('+datamodule1.rsbmss.fieldbyname('a_number').asstring+')');
  treeview2.Selected.getNextSibling.Selected :=true;
  end
  else
  begin
  treeview2.items.add(treeview2.Selected.getNextSibling,datamodule1.rsbms.fieldbyname('a_bm').asstring);
  treeview2.Selected.getNextSibling.Selected :=true;
  datamodule1.rsbmss.last;
  while not datamodule1.rsbmss.bof do
  begin
  if datamodule1.rsbmss.FieldByName('a_bz').asstring<>'' then
  treeview2.items.addchild(treeview2.selected,datamodule1.rsbmss.fieldbyname('a_bz').asstring+'('+datamodule1.rsbmss.fieldbyname('a_number').asstring+')');
  datamodule1.rsbmss.prior;
  end;//while not
  end;
  end;//else不是第一条节点
datamodule1.rsbms.prior;
end;//while not rsbms  //到这边结束

////////////////////////////////////////////////
//i_edit:=true;
dbedit1.SetFocus;
treeview1.visible:=false;
treeview2.visible:=false;
dbedit2.setfocus;

end;

procedure Tyggbb.Panel2Enter(Sender: TObject);
begin
//datamodule1.yggbb.Edit;
end;

procedure Tyggbb.Panel2Click(Sender: TObject);
begin
//datamodule1.yggbb.edit;
end;

procedure Tyggbb.DBListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='107' then
  toolbutton3.click;
  if inttostr(key)='109' then
  toolbutton5.click;
  if inttostr(key)='13' then
  toolbutton4.click;
  if inttostr(key)='69' then
   toolbutton2.Click;
end;

procedure Tyggbb.ToolButton5Click(Sender: TObject);
begin
if application.messagebox('你确定要删除此记录吗?','程序执行确认',mb_yesno+mb_defbutton2+mb_iconstop+mb_applmodal)=idyes then
datamodule1.yggbb.delete
else
showmessage('此记录并未删除');
end;


procedure Tyggbb.ToolButton6Click(Sender: TObject);
begin
self.close;
end;


procedure Tyggbb.Edit1Exit(Sender: TObject);
begin
edit1.color:=cllime;
edit2.color:=cllime;
end;

procedure Tyggbb.Edit1Enter(Sender: TObject);
begin
treeview1.visible:=true;
treeview1.SetFocus;
treeview1.topitem.Selected:=true;

end;

procedure Tyggbb.TreeView1Exit(Sender: TObject);
var
yggbstr:string;
begin
edit1.color:=clwhite;
edit2.color:=clwhite;
{dblistbox1.Items.clear;
yggbstr:='select *from yggb where a_bm='+''''+edit1.text+'''';
yggbstr:=yggbstr+' and a_bz='+''''+edit2.text+'''';
with datamodule1.yggb do
begin
close;
sql.Clear;
sql.add(yggbstr);
prepare;
open;
end;
if not datamodule1.yggb.eof then
begin
while not datamodule1.yggb.eof do
begin
dblistbox1.Items.add(datamodule1.yggb.fieldbyname('a_name').asstring);
datamodule1.yggb.next;
end;//while
end;}
end;

procedure Tyggbb.DBEdit12Enter(Sender: TObject);
begin
treeview2.visible:=true;
treeview2.SetFocus;
treeview2.topitem.Selected:=true;
dbedit12.color:=cllime;
dbedit3.color:=cllime;
if not (datamodule1.yggb.state in [dsinsert,dsedit]) then
datamodule1.yggb.edit;

end;

procedure Tyggbb.TreeView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key in [37..40] then
begin
if treeview1.Selected.haschildren=true then
begin
     if treeview1.Selected.level<>0 then
     begin
     if pos('(',treeview1.Selected.parent.Text)=0 then
     edit1.text:=treeview1.selected.parent.text
     else
     edit1.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     if pos('(',treeview1.selected.text)=0 then
     edit2.text:=treeview1.Selected.Text
     else
     edit2.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
     end;
end;//if treeview1
if treeview1.selected.level<>0 then
begin
if pos('(',treeview1.Selected.parent.Text)=0 then
     edit1.text:=treeview1.selected.parent.text
     else
     edit1.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     if pos('(',treeview1.selected.text)=0 then
     edit2.text:=treeview1.Selected.Text
     else
     edit2.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
     end;
end;//if inttostr
if key=13 then
begin
if (treeview1.Selected.HasChildren=true) and (treeview1.Selected.Level=0) then
begin

 i_key13:=true;
showmessage('请先选择好班组，谢谢!');
 treeview1.Selected.getFirstChild.Selected:=true;
end//if (
else
begin

if i_key13=false then
treeview1.visible:=false;

if treeview1.Selected.haschildren=true then
begin
     if treeview1.Selected.level<>0 then
     begin
  if pos('(',treeview1.Selected.parent.Text)=0 then
     edit1.text:=treeview1.selected.parent.text
     else
     edit1.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     if pos('(',treeview1.selected.text)=0 then
     edit2.text:=treeview1.Selected.Text
     else
     edit2.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
   end;
   // if i_key13<>true then
    //treeview1.visible:=false;
     end//if treeview1
else
begin
    if pos('(',treeview1.Selected.Text)=0 then
    edit1.text:=treeview1.selected.text
    else
    edit1.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
    edit2.text:='';
   // if i_key13<>true then
    //treeview1.visible:=false;
end;//else
if treeview1.selected.level<>0 then
begin
   if pos('(',treeview1.Selected.parent.Text)=0 then
     edit1.text:=treeview1.selected.parent.text
     else
     edit1.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     if pos('(',treeview1.selected.text)=0 then
     edit2.text:=treeview1.Selected.Text
     else
     edit2.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
     //if i_key13<>true then
     //treeview1.visible:=false;
end; //begin
 i_key13:=false;
end;


end;//if key  13结束
 
if key=27 then
treeview1.visible:=false;
end; //begin


procedure Tyggbb.TreeView2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key in [37..40] then
begin
if treeview2.Selected.haschildren=true then
begin
     if treeview2.Selected.level<>0 then
     begin
     if pos('(',treeview2.Selected.parent.Text)=0 then
     dbedit12.text:=treeview2.selected.parent.text
     else
dbedit12.text:=copy(treeview2.selected.parent.text,1,pos('(',treeview2.selected.parent.text)-1);
     if pos('(',treeview2.selected.text)=0 then
     dbedit3.text:=treeview2.Selected.Text
     else
     dbedit3.text:=copy(treeview2.selected.text,1,pos('(',treeview2.selected.text)-1);
   end;
   button4.click;
   end;//if treeview1
if treeview2.selected.level<>0 then
begin
if pos('(',treeview2.Selected.parent.Text)=0 then
     dbedit12.text:=treeview2.selected.parent.text
     else
dbedit12.text:=copy(treeview2.selected.parent.text,1,pos('(',treeview2.selected.parent.text)-1);
     if pos('(',treeview2.selected.text)=0 then
     dbedit3.text:=treeview2.Selected.Text
     else
     dbedit3.text:=copy(treeview2.selected.text,1,pos('(',treeview2.selected.text)-1);
end;
button4.click;
end;//if inttostr
if key=13 then
begin
if (treeview2.Selected.HasChildren=true) and (treeview2.Selected.Level=0) then
begin
i_key13:=true;
showmessage('请先选择好班组，谢谢!');
treeview2.Selected.getFirstChild.Selected:=true;
end//if (
else
begin
  if i_key13=false then
  begin
  treeview2.visible:=false;
   button4.click;
   end;
  //
if treeview2.Selected.haschildren=true then
begin
     if treeview2.Selected.level<>0 then
     begin
  if pos('(',treeview2.Selected.parent.Text)=0 then
     dbedit12.text:=treeview2.selected.parent.text
     else
dbedit12.text:=copy(treeview2.selected.parent.text,1,pos('(',treeview2.selected.parent.text)-1);
     if pos('(',treeview2.selected.text)=0 then
     dbedit3.text:=treeview2.Selected.Text
     else
     dbedit3.text:=copy(treeview2.selected.text,1,pos('(',treeview2.selected.text)-1);
   end;
   button4.click;
   end//if treeview1
else
begin
    if pos('(',treeview2.Selected.Text)=0 then
    dbedit12.text:=treeview2.selected.text
    else
    dbedit12.text:=copy(treeview2.selected.text,1,pos('(',treeview2.selected.text)-1);
    dbedit3.text:='';
    button4.click;
    end;//else
if treeview2.selected.level<>0 then
begin
   if pos('(',treeview2.Selected.parent.Text)=0 then
     dbedit12.text:=treeview2.selected.parent.text
     else
dbedit12.text:=copy(treeview2.selected.parent.text,1,pos('(',treeview2.selected.parent.text)-1);
     if pos('(',treeview2.selected.text)=0 then
     dbedit3.text:=treeview2.Selected.Text
     else
     dbedit3.text:=copy(treeview2.selected.text,1,pos('(',treeview2.selected.text)-1);
     button4.click;
     end;
i_key13:=false;
end;

end;//if key  13结束
if key=27 then
treeview2.visible:=false;

  end; //begin

procedure Tyggbb.DBEdit12Exit(Sender: TObject);
begin
dbedit12.color:=clwhite;
dbedit3.color:=clwhite;
end;

procedure Tyggbb.DBEdit3Exit(Sender: TObject);
begin
dbedit12.color:=clwhite;
dbedit3.color:=clwhite;
end;

procedure Tyggbb.TreeView2Exit(Sender: TObject);
begin
 dbedit12.color:=clwhite;
dbedit3.color:=clwhite;
end;

procedure Tyggbb.DBEdit12KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
 dbedit2.setfocus;

end;

procedure Tyggbb.DBEdit3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
 dbedit2.setfocus;
end;

procedure Tyggbb.DBEdit2Enter(Sender: TObject);
begin
dbedit2.color:=cllime;
{showmessage(dbedit12.text);
rrsbmstr:='select *from rsbm where a_bm='+''''+dbedit12.text+'''';
rrsbmstr:=rrsbmstr+' and a_bz='+''''+dbedit3.text+'''';
with datamodule1.rsbms do
begin
close;
sql.clear;
sql.add(rrsbmstr);
prepare;
open;
end;
dbedit2.text:=datamodule1.rsbms.fieldbyname('a_number').asstring;
}
end;

procedure Tyggbb.DBEdit2Exit(Sender: TObject);
var
yggbstr:string;
begin
dbedit2.color:=clwhite;
yggbstr:='select *from yggb where a_number='+''''+dbedit2.text+'''';
with datamodule1.yggb do
begin
close;
sql.clear;
sql.add(yggbstr);
prepare;
open;
end;
{if datamodule1.yggb.eof then
 if messagedlg('没有此人档案，你要添加吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
  toolbutton3.click;


 end;//if messagedlg  }
end;

procedure Tyggbb.Edit1Change(Sender: TObject);
var
yggbstr:string;
begin

listbox1.Items.clear;
yggbstr:='select *from yggb where a_bm='+''''+edit1.text+'''';
yggbstr:=yggbstr+' and a_bz='+''''+edit2.text+'''';
with datamodule1.yggb do
begin
close;
sql.Clear;
sql.add(yggbstr);
prepare;
open;
end;
if not datamodule1.yggb.eof then
begin
while not datamodule1.yggb.eof do
begin
listbox1.Items.add(datamodule1.yggb.fieldbyname('a_name').asstring);
datamodule1.yggb.next;
end;//while
end;
end;

procedure Tyggbb.DBEdit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var