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

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

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

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

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

下载地址(我的csdn资源):http://download.youkuaiyun.com/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);
36.     procedure blogLabelClick(Sender: TObject);
37.     procedure databaseEditChange(Sender: TObject);
38.     procedure chgCmdLine();
39.     procedure FormCreate(Sender: TObject);
40.     procedure impRadioClick(Sender: TObject);
41.     procedure expRadioClick(Sender: TObject);
42.     procedure userNameEditChange(Sender: TObject);
43.     procedure passwordEditChange(Sender: TObject);
44.     procedure fromUserEditChange(Sender: TObject);
45.     procedure toUserEditChange(Sender: TObject);
46.     procedure extCmdLineEditChange(Sender: TObject);
47.     procedure fileEditChange(Sender: TObject);
48.     procedure FormDestroy(Sender: TObject);
49.   private
50.     { Private declarations }
51.   public
52.     { Public declarations }
53.   end;
55. var
56.   Form1: TForm1;
57.   batFile:textfile; 
58. implementation
60. {$R *.dfm}
62. procedure TForm1.execButtonClick(Sender: TObject);
63. begin
64.       assignfile(batFile,'temp.bat');
65.       rewrite(batFile);
66.       writeln(batFile,'%~1'+#10+'pause');
67.       closefile(batFile);
68.       ShellExecute(Application.Handle, 'open', 'temp.bat', pchar('"'+cmdLineEdit.text+'"'), nil, SW_SHOW);
69. end;
71. procedure TForm1.Button3Click(Sender: TObject);
72. begin
73. OpenDialog1.Filter:= '备份文件|*.dmp|所有文件|*.*';
74. if OpenDialog1.Execute then
75. begin
76. fileEdit.text:=OpenDialog1.FileName;
77. end;
78. end;
80. procedure TForm1.blogLabelMouseEnter(Sender: TObject);
81. begin
82.   blogLabel.Font.style:=[fsUnderline];
83. end;
85. procedure TForm1.blogLabelMouseLeave(Sender: TObject);
86. begin
87.   blogLabel.Font.Style:=[];
88. end;
90. procedure TForm1.blogLabelClick(Sender: TObject);
91. begin
92. ShellExecute(Handle, 'Open', 'http://blog.youkuaiyun.com/sunyujia/', '', '', SW_SHOWNORMAL);
93. end;
95. procedure TForm1.databaseEditChange(Sender: TObject);
96. begin
97.   chgCmdLine();
98.   extCmdLineEdit.Text:='log='+databaseEdit.Text+'.log';
99.   fileEdit.Text:=databaseEdit.Text+'.dmp';
100. end;
101. procedure TForm1.chgCmdLine();
102. begin
103.  cmdLineEdit.text:=userNameEdit.text+'/'+passwordEdit.text+'@'+databaseEdit.text;
104.  if impRadio.Checked=true then
105.  begin
106.     cmdLineEdit.text:='imp '+cmdLineEdit.text+' fromuser='+fromuserEdit.text+' '+'touser='+touserEdit.text+' ';
107.  end else
108.  begin
109.     cmdLineEdit.text:='exp '+cmdLineEdit.text+' owner='+fromuserEdit.text+' ';
110.  end;
111.   cmdLineEdit.text:=cmdLineEdit.text+' file="'+fileEdit.text+'" '+extCmdLineEdit.text;
112. end;
114. procedure TForm1.userNameEditChange(Sender: TObject);
115. begin
116. chgCmdLine();
117. fromuserEdit.text:=usernameEdit.text;
118. touserEdit.text:=usernameEdit.text;
119. end;
121. procedure TForm1.FormDestroy(Sender: TObject);
122. begin
123. DeleteFile('temp.bat');
124. end;
126. procedure TForm1.FormCreate(Sender: TObject);
127. begin
128. chgCmdLine();
129. end;
131. procedure TForm1.impRadioClick(Sender: TObject);
132. begin
133. chgCmdLine();
134. end;
136. procedure TForm1.expRadioClick(Sender: TObject);
137. begin
138. chgCmdLine();
139. end;
141. procedure TForm1.passwordEditChange(Sender: TObject);
142. begin
143. chgCmdLine();
144. end;
146. procedure TForm1.fromUserEditChange(Sender: TObject);
147. begin
148. chgCmdLine();
149. end;
151. procedure TForm1.toUserEditChange(Sender: TObject);
152. begin
153. chgCmdLine();
154. end;
156. procedure TForm1.extCmdLineEditChange(Sender: TObject);
157. begin
158. chgCmdLine();
159. end;
161. procedure TForm1.fileEditChange(Sender: TObject);
162. begin
163. chgCmdLine();
164. end;
165. end.