原创Oracle数据库导入导出工具

因为自己记忆力比较差,经常记不住命令,注意不是一般的差,是太差了,另外也比较懒惰,所以想写个小东西,释放下劳动力.于是有了个想法,写个导入导出数据库的小工具,免得每次敲命令麻烦,尤其是文件路径,在cmd下面修改很费劲.

十一在家没事做,时机来了,起初想用脚本语言来写,比如批处理调用vbs,vbs利用ie做GUI,后来发现单调vbs脚本可以,但是用批处理调vbs,ie就起不来了,而且效果也不是很好,干脆写个小程序算了(java就免了不够麻烦的),庆幸我还懂点delphi 就会点皮毛,不过由于delphi比较简单,虽然我大学接触了三年的c++(基本和没学一样),但是我仍然觉得比不上我根本没学过的delphi简单.这就是差距了,自己太菜了,只能使用些比较容易上手的语言了.vb还是算了,机器上没有开发环境.前几天正好下了个精简版的delphi,这年头,连开发工具都玩起了精简绿化,不得不寒啊...

估计来看我博客的都是搞java的,对源码不感兴趣,但是我还是准备贴出来,以防不时之需,利用ShellExecute可以启动java噢,有兴趣的可以看看.没兴趣看源码的,就试用下这个小工具吧,Delphi牛人来了就当路过好了...

这是我的第一个完整的delphi程序,处女作啊,具有纪念价值.

下载地址(我的csdn资源):http://download.csdn.net/source/657522

 

1. unit Unit2;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls,shellapi, CustomizeDlg;
9. type
10.   TForm1 = class(TForm)
11.     execButton: TButton;
12.     userNameEdit: TEdit;
13.     userNameLabel: TLabel;
14.     impRadio: TRadioButton;
15.     expRadio: TRadioButton;
16.     databaseEdit: TEdit;
17.     databaseLabel: TLabel;
18.     fromUserLabel: TLabel;
19.     passwordLabel: TLabel;
20.     passwordEdit: TEdit;
21.     fromUserEdit: TEdit;
22.     toUserLabel: TLabel;
23.     toUserEdit: TEdit;
24.     OpenDialog1: TOpenDialog;
25.     extCmdLineEdit: TEdit;
26.     Button3: TButton;
27.     FileLabel: TLabel;
28.     extCmdLabel: TLabel;
29.     fileEdit: TEdit;
30.     cmdLineEdit: TEdit;
31.     blogLabel: TLabel;
32.     procedure execButtonClick(Sender: TObject);
33.     procedure Button3Click(Sender: TObject);
34.     procedure blogLabelMouseEnter(Sender: TObject);
35.     procedure blogLabelMouseLeave(Sender: TObject);