?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -