zhtc.pas

一个文件管理的程序

        adodataset1.CommandText:='select * from total where zhutc like '+''''+'%'+edit4.text+'%'+'''';
        adodataset1.Active:=true;
        adodataset1.First;
       for t:=0 to adodataset1.RecordCount-1 do
        begin
         deletefile(adodataset1.Fields[4].AsString); //按指定的文件路径删除文件
                                //删除总数据库
         adodataset1.Edit;
         adodataset1.Delete;
         adodataset1.Next;
        end;
       removedir(getcurrentdir+'\'+edit5.Text);   //删除空目录
       adodataset5.Active:=false;        //删除当前数据库
       adodataset5.Active:=true;
       adodataset5.Filter:='name1='''+edit4.Text+'''';
       adodataset5.Filtered:=true;
       adodataset5.First;
       for q:=0 to adodataset5.RecordCount-1 do
        begin
         adodataset5.Edit;
         adodataset5.Delete;
         adodataset5.Next;
        end;
     end;
     //删除树状
      treeview1.Selected.Delete;
      edit1.Text:='';
      edit2.Text:='';
     showmessage('删除成功');
   end
   else
    application.MessageBox('记录未删除！请继续使用','提示框',mb_ok);
    edit1.Text:='';
    edit2.Text:='';
end;//(1-1)
procedure TForm3.Image6Click(Sender: TObject);
begin
  close;
end;

procedure TForm3.Image4Click(Sender: TObject);
var catnode1,catnode2,catnode3,catnode4:ttreenode;
i,j:integer;
begin //(1-1)
 adodataset5.Active:=false;
 adodataset5.Active:=true;
 if (trim(edit2.Text)='') and (trim(edit1.Text)='') then
  begin
   showmessage('请选择要添加的主题词！');
   exit;
  end;
 if trim(edit1.Text)<>'' then
  begin//(1-2)
  edit2.Text:='';
  if edit1.Text='' then    //添加主题词
  begin
    application.MessageBox('请添加主题名称！','警告',mb_ok); //错误添加操作警告
    exit;
  end;
  if treeview1.Selected.Text=edit3.Text then
   begin
    catnode1:=treeview1.Selected;
    treeview1.Items.AddChildObjectFirst(catnode1,edit1.Text,pointer(0));
    adodataset1.Edit;
    adodataset1.Append;
    adodataset1.FieldByName('name1').AsString:=edit1.Text;
    adodataset1.Post;
    showmessage('添加成功！');
    adodataset1.First;
    edit1.Text:='';
    exit;
   end;
    //判断主题第一层
   if treeview1.Selected.Text=edit4.Text then
    begin
    adodataset2.Active:=false;
    adodataset2.Active:=true;
    adodataset2.Filter:='name1='''+treeview1.Selected.Text+'''';
    adodataset2.Filtered:=true;
    //添加主题第一层
     if (adodataset2.RecordCount=1)and(adodataset2.FieldValues['name2']=NULL) then//点击主题之后再进行对主题下一层进行添加操作
     begin
      if edit1.Text='' then
       begin
        application.MessageBox('第一层名称不许为空！','警告',mb_ok); //错误点击修改操作警告
        exit;
       end;
       catnode1:=treeview1.Selected;
       treeview1.Items.AddChildObjectFirst(catnode1,edit1.Text,pointer(0));
       adodataset2.Edit;
       adodataset2.FieldByName('name2').AsString:=edit1.Text;
       adodataset2.Post;
       showmessage('添加成功！');
       adodataset2.First;
       edit1.Text:='';
       EXIT;
      end;
     if adodataset2.FieldValues['name2']<>NULL then
       begin
        catnode1:=treeview1.Selected;
        treeview1.Items.AddChildObjectFirst(catnode1,edit1.Text,pointer(0));
        adodataset2.Filtered:=false;
        adodataset2.Active:=false;
        adodataset2.Active:=true;
        adodataset2.Edit;
        adodataset2.Append;
        adodataset2.FieldByName('name1').AsString:=edit4.Text;
        adodataset2.FieldByName('name2').AsString:=edit1.Text;
        adodataset2.Post;
        showmessage('添加成功！');
        edit1.Text:='';
       end;
    end;
     //判断主题第二层
   if treeview1.Selected.Text=edit5.Text then
    begin
     adodataset3.Active:=false;
     adodataset3.Active:=true;
     adodataset3.Filter:='name2='''+treeview1.Selected.Text+'''';
     adodataset3.Filtered:=true;
     //添加主题第三层
   if (adodataset3.RecordCount=1)and(adodataset3.FieldValues['name3']=NULL) then//点击主题之后再进行对主题下一层进行添加操作
    begin
     catnode2:=treeview1.Selected;
     treeview1.Items.AddChildObjectFirst(catnode2,edit1.Text,pointer(0));
     adodataset3.Edit;
     adodataset3.FieldByName('name3').AsString:=edit1.Text;
     adodataset3.Post;
     showmessage('添加成功！');
     adodataset3.First;
     edit1.Text:='';
     edit5.Text:='';
     exit;
    end;
   if adodataset3.FieldValues['name3']<>NULL then  //出现同个结点的情况处理
    begin
     catnode2:=treeview1.Selected;
     treeview1.Items.AddChildObjectFirst(catnode2,edit1.Text,pointer(0));
     adodataset3.Filtered:=false;
     adodataset3.Active:=false;
     adodataset3.Active:=true;
     adodataset3.Edit;
     adodataset3.Append;
     adodataset3.FieldByName('name1').AsString:=treeview1.Selected.Parent.Text;
     adodataset3.FieldByName('name2').AsString:=edit5.Text;
     adodataset3.FieldByName('name3').AsString:=edit1.Text;
     adodataset3.Post;
     showmessage('添加成功！');
     edit1.Text:='';
     edit5.Text:='';
    end;
   end;
    //判断主题第三层
   if treeview1.Selected.Text=edit6.Text then
   begin
    adodataset4.Active:=false;
    adodataset4.Active:=true;
    adodataset4.Filter:='name3='''+treeview1.Selected.Text+'''';
    adodataset4.Filtered:=true;
    //添加主题第四层
    if (adodataset4.RecordCount=1)and(adodataset4.FieldValues['name4']=NULL) then//点击主题之后再进行对主题下一层进行添加操作
       begin
        catnode3:=treeview1.Selected;
        treeview1.Items.AddChildObjectFirst(catnode3,edit1.Text,pointer(0));
        adodataset4.Edit;
        adodataset4.FieldByName('name4').AsString:=edit1.Text;
        adodataset4.Post;
        showmessage('添加成功！');
        adodataset4.First;
        edit1.Text:='';
        edit6.Text:='';
        exit;
      end;
     if adodataset4.FieldValues['name4']<>NULL then
       begin
         catnode3:=treeview1.Selected;
         treeview1.Items.AddChildObjectFirst(catnode3,edit1.Text,pointer(0));
         adodataset4.Filtered:=false;
         adodataset4.Active:=false;
         adodataset4.Active:=true;
         adodataset4.Edit;
         adodataset4.Append;
         adodataset4.FieldByName('name1').AsString:=treeview1.Selected.Parent.Parent.Text;
         adodataset4.FieldByName('name2').AsString:=treeview1.Selected.Parent.Text;
         adodataset4.FieldByName('name3').AsString:=treeview1.Selected.Text;
         adodataset4.FieldByName('name4').AsString:=edit1.Text;
         adodataset4.Post;
         showmessage('添加成功！');
         edit1.Text:='';
         edit6.Text:='';
       end;
   end;//(4-2)
   //判断主题第四层
  if treeview1.Selected.Text=edit7.Text then
   begin
    adodataset5.Active:=false;
    adodataset5.Active:=true;
    adodataset5.Filter:='name4='''+treeview1.Selected.Text+'''';
    adodataset5.Filtered:=true;
        //添加主题第五层
    if (adodataset5.RecordCount=1)and(adodataset5.FieldValues['name5']=NULL) then//点击主题之后再进行对主题下一层进行添加操作
     begin
      catnode4:=treeview1.Selected;
      treeview1.Items.AddChildObjectFirst(catnode4,edit1.Text,pointer(0));
      adodataset5.Edit;
      adodataset5.FieldByName('name5').AsString:=edit1.Text;
      adodataset5.Post;
      showmessage('添加成功！');
      adodataset5.First;
      edit1.Text:='';
      edit7.Text:='';
      exit;
     end;
    if adodataset5.FieldValues['name5']<>NULL then
     begin
      catnode4:=treeview1.Selected;
      treeview1.Items.AddChildObjectFirst(catnode4,edit1.Text,pointer(0));
      adodataset5.Filtered:=false;
      adodataset5.Active:=false;
      adodataset5.Active:=true;
      adodataset5.Edit;
      adodataset5.Append;
      adodataset5.FieldByName('name1').AsString:=treeview1.Selected.Parent.Parent.Parent.Text;
      adodataset5.FieldByName('name2').AsString:=treeview1.Selected.Parent.Parent.Text;
      adodataset5.FieldByName('name3').AsString:=treeview1.Selected.Parent.Text;
      adodataset5.FieldByName('name4').AsString:=treeview1.Selected.Text;
      adodataset5.FieldByName('name5').AsString:=edit1.Text;
      adodataset5.Post;
      showmessage('添加成功！');
      edit1.Text:='';
      edit7.Text:='';
     end;
   end;//(5-2)
  end  //(1-2)
 //修改部门
 else if trim(edit2.Text)<>'' then
  begin//(e1－1)
                //1层
   if trim(edit4.Text)<>'' then
    begin
     adodataset5.Active:=false;
     adodataset5.CommandText:='select * from zhutc';
     Adodataset5.Active:=true;
     adodataset5.First;
     adodataset5.Filter:='name1='''+treeview1.Selected.Text+'''';
     adodataset5.Filtered:=true;
     j:=adodataset5.RecordCount;
     for i:=0 to j-1 do
      begin
       adodataset5.Edit;
       adodataset5.FieldByName('name1').AsString:=edit2.Text;
       adodataset5.Post;
       End;
    end;
                        //2层
   if trim(edit5.Text)<>'' then
    begin
     adodataset5.First;
     adodataset5.Active:=false;
     adodataset5.CommandText:='select * from zhutc';
     adodataset5.Active:=true;
     adodataset5.Filter:='name1='''+treeview1.Selected.Parent.Text+'''and name2='''+edit+'''';
     adodataset5.Filtered:=true;
     j:=adodataset5.RecordCount;
     for i:=0 to j-1 do
       begin
        adodataset5.Edit;
        adodataset5.FieldByName('name2').AsString:=edit2.Text;
        adodataset5.Post;
       End;
    end;
     // 3 层
  if trim(edit6.Text)<>'' then
   begin
    adodataset5.Active:=false;
    adodataset5.CommandText:='select * from zhutc';
    adodataset5.Active:=true;
    adodataset5.First;
    adodataset5.Filter:='name1='''+treeview1.Selected.Parent.Parent.Text+'''and name2='''+treeview1.Selected.Parent.Text+'''and name3='''+edit+'''';
    adodataset5.Filtered:=true;
    for i:=0 to adodataset5.RecordCount-1 do
     begin
      adodataset5.Edit;
      adodataset5.FieldByName('name3').AsString:=edit2.Text;
      adodataset5.Post;
     end;
  end;
          //第四层
  if trim(edit7.Text)<>'' then
     begin
     adodataset5.Active:=false;
     adodataset5.CommandText:='select * from zhutc';
     adodataset5.Active:=true;
     adodataset5.First;
     adodataset5.Filter:='name1='''+treeview1.Selected.Parent.Parent.Parent.Text+'''and name2='''+treeview1.Selected.Parent.Parent.text+'''and name3='''+treeview1.Selected.Parent.text+'''and name4='''+edit+'''';
     adodataset5.Filtered:=true;
     for i:=0 to adodataset5.RecordCount-1 do
       begin
          adodataset5.Edit;
          adodataset5.FieldByName('name4').AsString:=edit2.Text;
          adodataset5.Post;
       end;
    end;
  if (trim(edit3.Text)='')and(trim(edit4.Text)='') and(trim(edit5.Text)='')and(trim(edit6.Text)='')and(trim(edit7.Text)='')  then
   begin
    adodataset5.Active:=false;
    adodataset5.Active:=true;
    adodataset5.First;
    adodataset5.Filter:='name1='''+treeview1.Selected.Parent.parent.Parent.Parent.Text+
    '''and name2='''+treeview1.Selected.Parent.Parent.Parent.text+
    '''and name3='''+treeview1.Selected.Parent.Parent.Text+'''and name4='''
    +treeview1.Selected.Parent.Text+'''and name5='''
    +edit+'''';
    adodataset5.Filtered:=true;
  for i:=0 to adodataset5.RecordCount-1 do
   begin
    adodataset5.Edit;
    adodataset5.FieldByName('name5').AsString:=edit2.Text;
    adodataset5.Post;
   end;
   end;
  treeview1.Selected.Text:=edit2.Text;
  edit2.Text;
  showmessage('修改成功！');
 end; //(e1－1)
end; //(1-1)
procedure TForm3.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image3.Visible:=false;
  image2.Visible:=true;
end;

procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   image2.Visible:=false;
   image3.Visible:=true;
   image4.Visible:=false;
   image5.Visible:=true;
   image6.Visible:=false;
   image7.Visible:=true;
end;

procedure TForm3.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 image2.Visible:=false;
 image3.Visible:=true;
 image6.Visible:=false;
 image7.Visible:=true;
end;

procedure TForm3.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 image5.Visible:=false;
 image4.Visible:=true;
end;

procedure TForm3.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image4.Visible:=false;
  image5.Visible:=true;
end;

procedure TForm3.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image7.Visible:=false;
  image6.Visible:=true;
end;

end.