辅导:Oracle数据库导入导出工具-Oracle认证考试网-优易学

辅导:Oracle数据库导入导出工具

来源：优易学 2011-9-30 12:41:43 【优易学：中国教育考试门户网】资料下载 IT书店

　　记忆力比较差的人,经常记不住命令,注意不是一般的差,是太差了,另外也比较懒惰,考试大有了个想法,写个导入导出数据库的小工具,免得每次敲命令麻烦,尤其是文件路径,在cmd下面修改很费劲.
　　用脚本语言来写,比如批处理调用vbs,vbs利用ie做GUI,后来发现单调vbs脚本可以！
　　interface
　　uses
　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　Dialogs, StdCtrls,shellapi, CustomizeDlg;
　　type
　　TForm1 = class(TForm)
　　　　execButton: TButton;
　　　　userNameEdit: TEdit;
　　　　userNameLabel: TLabel;
　　　　impRadio: TRadioButton;
　　　　expRadio: TRadioButton;
　　　　databaseEdit: TEdit;
　　　　databaseLabel: TLabel;
　　　　fromUserLabel: TLabel;
　　　　passwordLabel: TLabel;
　　　　passwordEdit: TEdit;
　　　　fromUserEdit: TEdit;
　　　　toUserLabel: TLabel;
　　　　toUserEdit: TEdit;
　　　　OpenDialog1: TOpenDialog;
　　　　extCmdLineEdit: TEdit;
　　　　Button3: TButton;
　　　　FileLabel: TLabel;
　　　　extCmdLabel: TLabel;
　　　　fileEdit: TEdit;
　　　　cmdLineEdit: TEdit;
　　　　blogLabel: TLabel;
　　　　procedure execButtonClick(Sender: TObject);
　　　　procedure Button3Click(Sender: TObject);
　　　　procedure blogLabelMouseEnter(Sender: TObject);
　　　　procedure blogLabelMouseLeave(Sender: TObject);
　　　　procedure blogLabelClick(Sender: TObject);
　　　　procedure databaseEditChange(Sender: TObject);
　　　　procedure chgCmdLine();
　　　　procedure FormCreate(Sender: TObject);
　　　　procedure impRadioClick(Sender: TObject);
　　　　procedure expRadioClick(Sender: TObject);
　　　　procedure userNameEditChange(Sender: TObject);
　　　　procedure passwordEditChange(Sender: TObject);
　　　　procedure fromUserEditChange(Sender: TObject);
　　　　procedure toUserEditChange(Sender: TObject);
　　　　procedure extCmdLineEditChange(Sender: TObject);
　　　　procedure fileEditChange(Sender: TObject);
　　　　procedure FormDestroy(Sender: TObject);
　　private
　　　　{ Private declarations }
　　public
　　　　{ Public declarations }
　　end;