chaxun.~pas

一个文件管理的程序

unit chaxun;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB,StrUtils,Buttons, ComCtrls, StdCtrls, ExtCtrls, jpeg,
  Mask, Grids, DBGrids;
type
  TForm6 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    TreeView1: TTreeView;
    Edit3: TEdit;
    TreeView2: TTreeView;
    Edit5: TEdit;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet2: TADODataSet;
    ADODataSet3: TADODataSet;
    ADODataSet4: TADODataSet;
    ADODataSet5: TADODataSet;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    ComboBox1: TComboBox;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure TreeView2Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses jieguo;

{$R *.dfm}

procedure TForm6.FormShow(Sender: TObject);
var
catnode1,catnode2,catnode3,catnode4,catnode5:ttreenode;
i,j,k,h,g:integer;
begin//(1-1)
 begin
  combobox1.Items.Clear;
  adodataset1.Filtered:=false;
  adodataset1.Active:=false;
  adodataset1.CommandText:='select distinct name1 from zhutc order by name1 desc';
  adodataset1.Active:=true;
  catnode1:=treeview1.Items.GetFirstNode;
  treeview1.Selected:=catnode1;
  treeview1.Selected.Delete;
  treeview1.Items.AddFirst(nil,'根');
  adodataset1.First;
  for i:=0 to adodataset1.RecordCount-1 do    //在treeview 中显示主题结构
  begin     //(1-1)
   if (trim(adodataset1.FieldValues['name1'])<>NULL)and (trim(adodataset1.FieldValues['name1'])<>'') then
    begin   //(1-2)
     catnode1:=treeview1.Items.GetFirstNode;      //  添加第一个字段
     treeview1.Items.AddChildFirst(catnode1,adodataset1.FieldValues['name1']);
     adodataset2.Filtered:=false;
     adodataset2.Active:=false;
     adodataset2.CommandText:='select distinct name1,name2 from zhutc order by name2 desc';
     adodataset2.Active:=true;
     adodataset2.Filter:='name1='''+adodataset1.FieldValues['name1']+'''';
     adodataset2.Filtered:=true;
     adodataset2.First;
     if  adodataset2.RecordCount<>0 then
     begin
      for j:=0 to adodataset2.RecordCount-1 do
      begin//(2-2)
       if (adodataset2.FieldValues['name2']<>NULL) and (trim(adodataset2.FieldValues['name2'])<>'') then
        begin//(2-3)
         catnode2:=catnode1.GetNext;
         treeview1.Items.AddChildFirst(catnode2,adodataset2.FieldValues['name2']);
         adodataset3.Filtered:=false;
         adodataset3.Active:=false;
         adodataset3.CommandText:='select distinct name1,name2,name3 from zhutc order by name3 desc';
         adodataset3.Active:=true;
         adodataset3.Filter:='name1='''+adodataset2.FieldValues['name1']+'''and name2='''+adodataset2.FieldValues['name2']+'''';
         adodataset3.Filtered:=true;
         adodataset3.First;
         if adodataset3.RecordCount<>0 then
         begin
          for k:=0 to adodataset3.RecordCount-1 do
          begin
            if (adodataset3.FieldValues['name3']<>NULL) and (trim(adodataset3.FieldValues['name3'])<>'') then
             begin//(3-3)
              catnode3:=catnode2.GetNext;
              treeview1.Items.AddChildFirst(catnode3,adodataset3.FieldValues['name3']);
              adodataset4.Filtered:=false;
              adodataset4.Active:=false;
              adodataset4.CommandText:='select distinct name1,name2,name3,name4 from zhutc order by name4 desc';
              adodataset4.Active:=true;
              adodataset4.Filter:='name1='''+adodataset3.FieldValues['name1']+'''and name2='''+adodataset3.FieldValues['name2']+'''and name3='''+adodataset3.FieldValues['name3']+'''';
              adodataset4.Filtered:=true;
              adodataset4.First;
              if adodataset4.RecordCount<>0 then
              begin
               for g:=0 to adodataset4.RecordCount-1 do
               begin
               if (adodataset4.FieldValues['name4']<>NULL) and (trim(adodataset4.FieldValues['name4'])<>'') then
                 begin//(4-3)
                  catnode4:=catnode3.GetNext;
                  treeview1.Items.AddChildFirst(catnode4,adodataset4.FieldValues['name4']);
                  adodataset5.Filtered:=false;
                  adodataset5.Active:=false;
                  adodataset5.CommandText:='select* from zhutc';
                  adodataset5.Active:=true;
                  adodataset5.Filter:='name1='''+adodataset4.FieldValues['name1']+'''and name2='''+adodataset4.FieldValues['name2']+'''and name3='''+adodataset4.FieldValues['name3']+'''and name4='''+adodataset4.FieldValues['name4']+'''';
                  adodataset5.Filtered:=true;
                  adodataset5.First;
                  if adodataset5.RecordCount<>0 then
                   begin//(5-1)
                   for h:=0 to adodataset5.RecordCount-1 do
                   begin//(5-2)
                   if (adodataset5.FieldValues['name5']<>NULL) and (trim(adodataset5.FieldValues['name5'])<>'') then
                    begin//(5-3)
                    catnode5:=catnode4.GetNext;
                    treeview1.Items.AddChildFirst(catnode5,adodataset5.FieldValues['name5']);
                    end;//(5-3)
                 adodataset5.Next;
                end;//(5-2)
               end;//(5-1)
               end;
               adodataset4.Next;
              end;
             end;
             end;
            adodataset3.Next;
          end;
         end;
        end;
       adodataset2.Next;
      end;
     end;
    end;
   adodataset1.Next;
  end;
 end;
 begin
   //显示部门
 adodataset1.Filtered:=false;
 adodataset1.Active:=false;
 adodataset1.CommandText:='select distinct department1 from department order by department1 desc';
 adodataset1.Active:=true;
 catnode1:=treeview2.Items.GetFirstNode;
 treeview2.Selected:=catnode1;
 treeview2.Selected.Delete;
 treeview2.Items.AddFirst(nil,'根');
 adodataset1.First;
 for i:=0 to adodataset1.RecordCount-1 do    //在treeview 中显示主题结构
  begin     //(1-1)
   if (trim(adodataset1.FieldValues['department1'])<>NULL)and (trim(adodataset1.FieldValues['department1'])<>'') then
    begin   //(1-2)
     catnode1:=treeview2.Items.GetFirstNode;      //  添加第一个字段
     treeview2.Items.AddChildFirst(catnode1,adodataset1.FieldValues['department1']);
      //过滤第一字段
      adodataset2.Filtered:=false;
      adodataset2.Active:=false;
      adodataset2.CommandText:='select distinct department1, department2 from department order by department2 desc';
      adodataset2.Active:=true;
      adodataset2.Filter:='department1='''+adodataset1.FieldValues['department1']+'''';
      adodataset2.Filtered:=true;
      adodataset2.First;
    if adodataset2.RecordCount<>0 then
      begin
       for j:=0 to adodataset2.RecordCount-1 do
        begin
         if (adodataset2.FieldValues['department2']<>NULL) and (trim(adodataset2.FieldValues['department2'])<>'') then
          begin//(2-3)
           catnode2:=catnode1.GetNext;
           treeview2.Items.AddChildFirst(catnode2,adodataset2.FieldValues['department2']);
           adodataset3.Filtered:=false;
           adodataset3.Active:=false;
           adodataset3.CommandText:='select distinct department1, department2, department3 from department order by department3 desc';
           adodataset3.Active:=true;
           adodataset3.Filter:='department1='''+adodataset2.FieldValues['department1']+'''and department2='''+adodataset2.FieldValues['department2']+'''';
           adodataset3.Filtered:=true;
           adodataset3.First;
           if adodataset3.RecordCount<>0 then
            begin
             for g:=0 to adodataset3.RecordCount-1 do
             begin
              if (adodataset3.FieldValues['department3']<>NULL) and (trim(adodataset3.FieldValues['department3'])<>'') then
              begin//(2-3)
               catnode3:=catnode2.GetNext;
               treeview2.Items.AddChildFirst(catnode3,adodataset3.FieldValues['department3']);
               adodataset4.Filtered:=false;
               adodataset4.Active:=false;
               adodataset4.CommandText:='select distinct department1,department2, department3,department4 from department order by department4 desc';
               adodataset4.Active:=true;
               adodataset4.Filter:='department1='''+adodataset3.FieldValues['department1']+'''and department2='''+adodataset3.FieldValues['department2']+'''and department3='''+adodataset3.FieldValues['department3']+'''';
               adodataset4.Filtered:=true;
               adodataset4.First;
               if adodataset4.RecordCount<>0 then
               begin
                for k:=0 to adodataset4.RecordCount-1 do
                 begin
                  if(adodataset4.FieldValues['department4']<>NULL) and (trim(adodataset4.FieldValues['department4'])<>'') then
                   begin
                    catnode4:=catnode3.GetNext;
                    treeview2.Items.AddChildFirst(catnode4,adodataset4.FieldValues['department4']);
                    adodataset5.Filtered:=false;
                    adodataset5.Active:=false;
                    adodataset5.CommandText:='select distinct department1,department2, department3,department4,department5 from department order by department5 desc';
                    adodataset5.Active:=true;
                    adodataset5.Filter:='department1='''+adodataset4.FieldValues['department1']+'''and department2='''+adodataset4.FieldValues['department2']+'''and department3='''+adodataset4.FieldValues['department3']+'''and department4='''+adodataset4.FieldValues['department4']+'''';
                    adodataset5.Filtered:=true;
                    adodataset5.First;
                    if adodataset5.RecordCount<>0 then
                    begin
                    for h:=0 to adodataset5.RecordCount-1 do
                     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 TForm6.TreeView1Click(Sender: TObject);
var
s1,s2,s3,s4,s5,s6:string;
begin
edit2.Text:=treeview1.Selected.Text;
try     //1
   s1:=treeview1.Selected.Parent.Text;
 except
    edit6.Text:='';
    edit10.Text:='';
    edit9.Text:='';
    edit8.Text:='';
    edit7.Text:='';
    edit2.Text:=treeview1.Selected.Text;
    exit;
 end;
  try     //2
   s2:=treeview1.Selected.Parent.Parent.Text;
 except
   edit10.Text:='';
   edit9.Text:='';
   edit8.Text:='';
   edit7.Text:='';
   edit6.Text:=treeview1.Selected.Text;
   exit;
 end;
  try     //3
   s3:=treeview1.Selected.Parent.Parent.Parent.Text;
 except
    edit10.Text:='';
    edit9.Text:='';
    edit8.Text:='';
    edit6.Text:='';
    edit7.Text:=treeview1.Selected.Text;
    exit;
 end;
  try     //4
   s4:=treeview1.Selected.Parent.Parent.Parent.Parent.Text;
 except
    edit10.Text:='';
    edit9.Text:='';
    edit7.Text:='';
    edit6.Text:='';
    edit8.Text:=treeview1.Selected.Text;
    exit;
 end;
  try     //5
   s5:=treeview1.Selected.Parent.Parent.Parent.Parent.Parent.Text;
  except
    edit10.Text:='';
    edit8.Text:='';
    edit7.Text:='';
    edit6.Text:='';