xiugai.pas

一个文件管理的程序

                     begin
                      if (adodataset5.FieldValues['department5']<>NULL) and (trim(adodataset5.FieldValues['department5'])<>'') then
                      begin
                       catnode5:=catnode4.GetNext;
                       treeview2.Items.AddChildFirst(catnode5,adodataset5.FieldValues['department5']);
                      end;
                     adodataset5.Next;
                    end;
                   end;
                   end;
                  adodataset4.Next;
                 end;
                end;
              end;
              adodataset3.Next;
            end;
           end;
        end;
       adodataset2.Next;
      end;
     end;
    end;
   adodataset1.Next;
 end;
 end;
 //显示文件格式
 adodataset5.Filtered:=false;
 adodataset5.Active:=false;
 adodataset5.CommandText:='select name from filetype';
 adodataset5.Active:=true;
 adodataset5.First;
 if adodataset5.RecordCount<>0 then
  begin
  for h:=0 to adodataset5.RecordCount-1 do
   begin
    combobox1.Items.Add(adodataset5.FieldValues['name']);
    adodataset5.Next;
   end;
  end;
end;//(1-1)
procedure TForm11.TreeView1Click(Sender: TObject);
var
w1,w2,w3,w4,w5,w6:string;
begin
   edit2.Text:=treeview1.Selected.Text;
 try     //1
  w1:=treeview1.Selected.Parent.Text;
 except
    edit5.Text:='';
    edit6.Text:='';
    edit9.Text:='';
    edit8.Text:='';
    edit7.Text:='';
    edit2.Text:=treeview1.Selected.Text;
    exit;
 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 TForm11.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 TForm11.Edit1Change(Sender: TObject);
begin
  edit4.Text:=extractfilename(edit1.Text);
  combobox1.Text:=extractfileext(edit1.Text);
end;

procedure TForm11.FormCreate(Sender: TObject);
begin
  currentdir:=getcurrentdir;
end;
procedure TForm11.Timer1Timer(Sender: TObject);
begin
  edit15.Text:=datetostr(date());
end;

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

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

procedure TForm11.Image4Click(Sender: TObject);
var
i:integer;
begin
 //数据库刷新
 adodataset5.Filtered:=false;
 adodataset5.Active:=false;
 adodataset5.CommandText:='select * from total order by zhutc desc';
 adodataset5.Active:=true;
 //删除文件
 deletefile(form10.dbgrid1.DataSource.DataSet.FieldValues['fileload']);
 //复制文件
 copyfileto(edit1.Text,edit16.Text+edit4.Text);
 //修改数据库
 adodataset5.Filter:='fileload='''+edit17.Text+'''';
 adodataset5.Filtered:=true;
 adodataset5.Open;
 adodataset5.First;
 for i:=0 to adodataset5.RecordCount-1 do
   begin
    adodataset5.Edit;
    adodataset5.FieldByName('time').AsDateTime:=strtodate(edit15.Text);
    adodataset5.FieldByName('filetype').AsString:=combobox1.Text;
    adodataset5.FieldByName('fileload').AsString:=edit16.Text+edit4.Text;
    adodataset5.FieldByName('filename').AsString:=edit4.Text;
    adodataset5.Next;
    showmessage('修改成功！');
   end;
 //正确性检查
  edit1.Text:='';
  combobox1.Text:='';
  edit4.Text:='';
  edit1.SetFocus;
 end;
procedure TForm11.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image2.Visible:=false;
 image4.Visible:=false;
 image5.Visible:=true;
 image3.Visible:=true;
end;

end.