📄 add.~pas
字号:
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:=treeview1.Selected.Parent.Text+'\'+edit6.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+'\'+treeview1.Selected.Parent.Text+'\'+edit6.Text+'\'+edit4.Text);
//添加数据库
adodataset5.Edit;
adodataset5.Append;
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
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:=treeview1.Selected.Parent.Text+'\'+edit6.Text+'\'+edit4.Text;
adodataset5.FieldByName('filename').AsString:=edit4.Text;
adodataset5.Post;
showmessage('添加成功！');
end;
end;
if trim(edit7.Text)<>'' then //3
begin
forcedirectories(currentdir+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit7.Text);
adodataset5.Active:=false;
adodataset5.Active:=true;
adodataset5.Filter:='zhutc='''+treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit7.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.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit7.Text+'\'+edit4.Text);
adodataset5.Edit;
adodataset5.FieldByName('zhutc').AsString:=treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit7.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:=treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit7.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+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit7.Text+'\'+edit4.Text);
adodataset5.Edit;
adodataset5.Append;
adodataset5.FieldByName('zhutc').AsString:=treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit7.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:=treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit7.Text+'\'+edit4.Text;
adodataset5.FieldByName('filename').AsString:=edit4.Text;
adodataset5.Post;
showmessage('添加成功！');
end;
end;
if trim(edit8.Text)<>'' then //4
begin
forcedirectories(currentdir+'\'+treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit8.Text);
adodataset5.Filter:='zhutc='''+treeview1.Selected.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit8.Text+'''and filename='''+edit2.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.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit8.Text+'\'+edit4.Text);
adodataset5.Edit;
adodataset5.FieldByName('zhutc').AsString:=treeview1.Selected.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit8.Text;
if trim(edit10.Text)<>'' then //1
begin
adodataset5.FieldByName('department').AsString:=edit11.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:=treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit8.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+'\'+treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit8.Text+'\'+edit4.Text);
adodataset5.Edit;
adodataset5.Append;
adodataset5.FieldByName('zhutc').AsString:=treeview1.Selected.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit8.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:=treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit8.Text+'\'+edit4.Text;
adodataset5.FieldByName('filename').AsString:=edit4.Text;
adodataset5.Post;
showmessage('添加成功！');
end;
end;
if trim(edit9.Text)<>'' then //5
begin
forcedirectories(currentdir+'\'+treeview1.Selected.Parent.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit9.Text);
adodataset5.Filter:='zhutc='''+treeview1.Selected.Parent.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit9.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.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit9.Text+'\'+edit4.Text);
adodataset5.Edit;
adodataset5.FieldByName('zhutc').AsString:=treeview1.Selected.Parent.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit9.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:=treeview1.Selected.Parent.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit9.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+'\'+treeview1.Selected.Parent.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit9.Text+'\'+edit4.Text);
adodataset5.Edit;
adodataset5.Append;
adodataset5.FieldByName('zhutc').AsString:=treeview1.Selected.Parent.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Parent.Text+treeview1.Selected.Parent.Parent.Text+treeview1.Selected.Parent.Text+edit9.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:=treeview1.Selected.Parent.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Parent.Text+'\'+treeview1.Selected.Parent.Text+'\'+edit9.Text+'\'+edit4.Text;
adodataset5.FieldByName('filename').AsString:=edit4.Text;
adodataset5.Post;
showmessage('添加成功！');
end;
end;
edit1.Text:='';
usenode:=treeview1.Items.GetFirstNode;
usenode.Collapse(true);
usenode1:=treeview2.Items.GetFirstNode;
usenode1.Collapse(true);
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
combobox1.Text:='';
edit1.SetFocus;
image5.Visible:=true;
image4.Visible:=false;
end;//(1-1)
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -