?? edit.~pas
字號(hào):
unit edit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB,IdGlobal,ADODB,StrUtils, Buttons, StdCtrls, ExtCtrls, jpeg, ComCtrls,
ImgList;
type
TForm9 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
TreeView1: TTreeView;
TreeView2: TTreeView;
Edit4: TEdit;
ComboBox1: TComboBox;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit15: TEdit;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
ADODataSet2: TADODataSet;
ADODataSet3: TADODataSet;
ADODataSet4: TADODataSet;
ADODataSet5: TADODataSet;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
Image1: TImage;
Image2: TImage;
Image3: TImage;
ImageList1: TImageList;
procedure FormShow(Sender: TObject);
procedure TreeView1Click(Sender: TObject);
procedure TreeView2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
currentdir:string;
implementation
uses jieguo1;
{$R *.dfm}
procedure TForm9.FormShow(Sender: TObject);
var
catnode1,catnode2,catnode3,catnode4,catnode5:ttreenode;
q,w,e,r,t: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 q:=0 to adodataset1.RecordCount-1 do //在treeview 中顯示主題結(jié)構(gòu)
begin //(1-1)
if (trim(adodataset1.FieldValues['name1'])<>NULL)and (trim(adodataset1.FieldValues['name1'])<>'') then
catnode1:=treeview1.Items.GetFirstNode; // 添加第一個(gè)字段
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 w:=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 e:=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 r:=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 t:=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 q:=0 to adodataset1.RecordCount-1 do //在treeview 中顯示主題結(jié)構(gòu)
begin //(1-1)
if (trim(adodataset1.FieldValues['department1'])<>NULL)and (trim(adodataset1.FieldValues['department1'])<>'') then
begin //(1-2)
catnode1:=treeview2.Items.GetFirstNode; // 添加第一個(gè)字段
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 e:=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 w:=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 r:=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 t:=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 q:=0 to adodataset5.RecordCount-1 do
begin
combobox1.Items.Add(adodataset5.FieldValues['name']);
adodataset5.Next;
end;
end;
end;//(1-1)
procedure TForm9.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:='';
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -