add.~pas

一个文件管理的程序

 end;
 try
  w2:=treeview1.Selected.Parent.Parent.Text;
 except
  edit6.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  edit9.Text:='';
  edit5.Text:=treeview1.Selected.Text;
  exit;
 end;
 try
  w3:=treeview1.Selected.Parent.Parent.Parent.Text;
 except
  edit5.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  edit9.Text:='';
  edit6.Text:=treeview1.Selected.Text;
  exit;
 end;
 try
  w4:=treeview1.Selected.Parent.Parent.Parent.Parent.Text;
 except
  edit5.Text:='';
  edit6.Text:='';
  edit8.Text:='';
  edit9.Text:='';
  edit7.Text:=treeview1.Selected.Text;
  exit;
 end;
 try
  w5:=treeview1.Selected.Parent.Parent.Parent.Parent.Parent.Text;
 except
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  edit9.Text:='';
  edit8.Text:=treeview1.Selected.Text;
  exit;
 end;
 try
  w6:=treeview1.Selected.Parent.Parent.Parent.Parent.Parent.Parent.Text;
 except
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  edit9.Text:=treeview1.Selected.Text;
  exit;
 end;
end;

procedure TForm7.TreeView2Click(Sender: TObject);
var
q1,q2,q3,q4,q5,q6:string;
begin
 edit3.Text:=treeview2.Selected.Text;
 try
  q1:=treeview2.Selected.Parent.Text;
 except
  edit10.Text:='';
  edit11.Text:='';
  edit12.Text:='';
  edit13.Text:='';
  edit14.Text:='';
  edit3.Text:=treeview2.Selected.Text;
  exit;
 end;
 try
  q2:=treeview2.Selected.Parent.Parent.Text;
 except
  edit11.Text:='';
  edit12.Text:='';
  edit13.Text:='';
  edit14.Text:='';
  edit10.Text:=treeview2.Selected.Text;
  exit;
 end;
 try
  q3:=treeview2.Selected.Parent.Parent.Parent.Text;
 except
  edit10.Text:='';
  edit12.Text:='';
  edit13.Text:='';
  edit14.Text:='';
  edit11.Text:=treeview2.Selected.Text;
  exit;
 end;
 try
  q4:=treeview2.Selected.Parent.Parent.Parent.Parent.Text;
 except
  edit10.Text:='';
  edit11.Text:='';
  edit13.Text:='';
  edit14.Text:='';
  edit12.Text:=treeview2.Selected.Text;
  exit;
 end;
 try
  q5:=treeview2.Selected.Parent.Parent.Parent.Parent.Parent.Text;
 except
  edit10.Text:='';
  edit11.Text:='';
  edit12.Text:='';
  edit14.Text:='';
  edit13.Text:=treeview2.Selected.Text;
  exit;
 end;
 try
  q6:=treeview2.Selected.Parent.Parent.Parent.Parent.Parent.Parent.Text;
 except
  edit10.Text:='';
  edit12.Text:='';
  edit13.Text:='';
  edit11.Text:='';
  edit14.Text:=treeview2.Selected.Text;
  exit;
 end;
end;
procedure TForm7.Timer1Timer(Sender: TObject);
begin
 edit15.Text:=datetostr(date());
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
  //adodataset1.Filtered:=false;
  adodataset1.Active:=false;
  adodataset1.CommandText:='select distinct name1 from zhutc order by name1 desc';
  adodataset1.Active:=true;
  currentdir:=getcurrentdir;
end;

procedure TForm7.Edit1Change(Sender: TObject);
begin
  edit4.Text:=extractfilename(edit1.Text);
  combobox1.Text:=extractfileext(edit1.Text);

end;

procedure TForm7.Image2Click(Sender: TObject);
begin
  opendialog1.Execute;
 edit1.Text:=opendialog1.FileName;
end;

procedure TForm7.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 image2.Visible:=true;
 image3.Visible:=false;
end;

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

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

procedure TForm7.Image4Click(Sender: TObject);
var usenode,usenode1:ttreenode;
begin//(1-1)
 //刷新数据库
  adodataset5.Filtered:=false;
  adodataset5.Active:=false;
  adodataset5.CommandText:='select * from total order by zhutc desc';
  adodataset5.Active:=true;
                  //正确性检查
 if trim(edit1.Text)='' then
  begin
   showmessage('请浏览要添加的文件！');
   exit;
  end;
 if (trim(edit5.text)='') and (trim(edit6.text)='')and (trim(edit7.text)='')
  and (trim(edit8.text)='')and(trim(edit9.text)='')  then
  begin
   showmessage('请选择主题词');
   exit;
  end;
 if (trim(edit11.text)='') and (trim(edit12.text)='')and (trim(edit13.text)='')
  and (trim(edit14.text)='')and(trim(edit10.text)='')  then
  begin
   showmessage('请选择部门主题');
   exit;
  end;
 if trim(combobox1.Text)='' then
  begin
   showmessage('请选择格式！');
   exit;
  end;
 if trim(edit4.Text)='' then
  begin
   showmessage('请输入文件名称！');
   exit;
  end;
             //建立多级文件目录
 if trim(edit5.Text)<>'' then //1
  begin
   forcedirectories(currentdir+'\'+edit5.Text);
   adodataset5.Filter:='zhutc='''+edit5.Text+'''and filename='''+edit4.Text+'''';
   adodataset5.Filtered:=true;
  if adodataset5.RecordCount>=1 then
   begin
    if messagedlg('此文件夹已经包含此名称的文件！是否确定替换？',mtwarning,[mbyes,mbno],1)=mryes then
     begin
      copyfileto(edit1.Text,currentdir+'\'+edit5.Text+'\'+edit4.Text);
     //添加数据库
      adodataset5.Edit;
      adodataset5.FieldByName('zhutc').AsString:=edit5.Text;
      if trim(edit10.Text)<>'' then  //1
       begin
         adodataset5.FieldByName('department').AsString:=edit10.Text;
       end;
    if trim(edit11.Text)<>'' then  //2
       begin
         adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Text+edit11.Text;
       end;
    if trim(edit12.Text)<>'' then  //3
       begin
         adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Parent.Text+treeview2.Selected.Parent.Text+edit12.Text;
       end;
     if trim(edit13.Text)<>'' then  //4
       begin
         adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Parent.Parent.Text+treeview2.Selected.Parent.Parent.Text+treeview2.Selected.Parent.Text+edit13.Text;
       end;
     if trim(edit14.Text)<>'' then  //5
       begin
         adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Parent.Parent.Parent.Text+treeview2.Selected.Parent.Parent.Parent.Text+treeview2.Selected.Parent.Parent.Text+treeview2.Selected.Parent.Text+edit14.Text;
       end;
     adodataset5.FieldByName('time').AsDateTime:=strtodate(edit15.Text);
     adodataset5.FieldByName('filetype').AsString:=combobox1.Text;
     adodataset5.FieldByName('fileload').AsString:=edit5.Text+'\'+edit4.Text;
     adodataset5.FieldByName('filename').AsString:=edit4.Text;
     adodataset5.Post;
     showmessage('添加成功！');
    end
     else
      begin
       exit;
      end;
   end;
   if adodataset5.RecordCount=0 then
     begin
     copyfileto(edit1.Text,currentdir+'\'+edit5.Text+'\'+edit4.Text);
     //添加数据库
     adodataset5.Edit;
     adodataset5.Append;
     adodataset5.FieldByName('zhutc').AsString:=edit5.Text;
    if trim(edit10.Text)<>'' then  //部门1
       begin
         adodataset5.FieldByName('department').AsString:=edit10.Text;
       end;
    if trim(edit11.Text)<>'' then  //部门2
       begin
         adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Text+edit11.Text;
       end;
    if trim(edit12.Text)<>'' then  //部门3
       begin
         adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Parent.Text+treeview2.Selected.Parent.Text+edit12.Text;
       end;
     if trim(edit13.Text)<>'' then  //部门4
       begin
         adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Parent.Parent.Text+treeview2.Selected.Parent.Parent.Text+treeview2.Selected.Parent.Text+edit13.Text;
       end;
     if trim(edit14.Text)<>'' then  //部门5
       begin
         adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Parent.Parent.Parent.Text+treeview2.Selected.Parent.Parent.Parent.Text+treeview2.Selected.Parent.Parent.Text+treeview2.Selected.Parent.Text+edit14.Text;
       end;
     adodataset5.FieldByName('time').AsDateTime:=strtodate(edit15.Text);
     adodataset5.FieldByName('filetype').AsString:=combobox1.Text;
     adodataset5.FieldByName('fileload').AsString:=edit5.Text+'\'+edit4.Text;
     adodataset5.FieldByName('filename').AsString:=edit4.Text;
     adodataset5.Post;
     showmessage('添加成功！');
    end;
  end;
  if trim(edit6.Text)<>'' then    //2
   begin
     forcedirectories(currentdir+'\'+treeview1.Selected.Parent.Text+'\'+edit6.Text);
     adodataset5.Filter:='zhutc='''+treeview1.Selected.Parent.Text+edit6.Text+'''and filename='''+edit4.Text+'''';
     adodataset5.Filtered:=true;
  if adodataset5.RecordCount>=1 then
   begin
    if messagedlg('此文件夹已经包含此名称的文件！是否确定替换？',mtwarning,[mbyes,mbno],1)=mryes then
     begin
      copyfileto(edit1.Text,currentdir+'\'+treeview1.Selected.Parent.Text+'\'+edit6.Text+'\'+edit4.Text);
      //添加数据库
      adodataset5.Edit;
      adodataset5.FieldByName('zhutc').AsString:=treeview1.Selected.Parent.Text+edit6.Text;
      if trim(edit10.Text)<>'' then  //部门1
       begin
        adodataset5.FieldByName('department').AsString:=edit10.Text;
       end;
      if trim(edit11.Text)<>'' then  //部门2
       begin
        adodataset5.FieldByName('department').AsString:=treeview2.Selected.Parent.Text+edit11.Text;
       end;
      if trim(edit12.Text)<>'' then  //部门3