Original Oracle Database Import and Export Tool

Because I have poor memory, I often cannot remember the commands. Note that it is not very bad, it is too bad, and it is also relatively lazy, so I want to write a little thing and release the labor force. so I had an idea to write a small tool for importing and exporting the database, so that it would be difficult to modify the file path, especially the file path, in cmd.

11. There was nothing to do at home. The time came. At first, I wanted to write it in script language. For example, I called vbs in batch processing, and vbs used ie for GUI. Later I found that the monotonous vbs script was acceptable, however, if you use batch processing to call vbs, ie will not be able to get started, and the effect is not very good. Simply write a small program (Java will not be too troublesome ), fortunately, I know more about Delphi, but since Delphi is relatively simple, although I have been in contact with C ++ for three years in college ), but I still don't think it's as simple as Delphi I have never learned. this is the gap. You can only use easy-to-use languages. if you still forget VB, there is no development environment on the machine. A few days ago, I just got a lite version of Delphi. In this year, even the development tools have played a simple green, so I have to feel cold...

It is estimated that my blog is engaged in Java and I am not interested in the source code, but I am still preparing to post it out to prevent the occasional need. Using ShellExecute can start java. If you are interested, you can check it out. if you are not interested in reading the source code, try this tool. If you come to Delphi, you should pass...

This is my first complete Delphi Program. Its Debut is commemorative.

(My csdn resources): 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. Ext;lineedit: 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 chgw.line ();
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 ext1_lineeditchange (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 ('"' + response lineedit. Text + '"'), nil, sw_show );
69. End;
71. Procedure tform1.button3click (Sender: tobject );
72. Begin
73. Opendialog1.filter: = 'backup file | *. dmp | all files | *.*';
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.csdn.net/sunyujia/', '','', sw_shownormal );
93. End;
95. Procedure tform1.databaseeditchange (Sender: tobject );
96. Begin
97. Chgw.line ();
98. Ext;lineedit. Text: = 'Log = '+ databaseedit. Text +'. log ';
99. Fileedit. Text: = databaseedit. Text + '. dmp ';
100. End;
101. Procedure tform1.chgw.line ();
102. Begin
103. Export lineedit. Text: = usernameedit. Text + '/' + passwordedit. Text + '@' + databaseedit. text;
104. If impradio. Checked = true then
105. Begin
106. Export lineedit. Text: = 'Imp '+ export lineedit. Text + 'fromuser =' + fromuseredit. Text + ''+ 'touser = '+ touseredit. Text + '';
107. End else
108. Begin
109. Export lineedit. Text: = 'exp' + export lineedit. Text + 'owner = '+ fromuseredit. Text + '';
110. End;
111. Export lineedit. Text: = export lineedit. Text + 'file = "'+ fileedit. Text +'" '+ ext1_lineedit. text;
112. End;
114. Procedure tform1.usernameeditchange (Sender: tobject );
115. Begin
116. Chgw.line ();
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. Chgw.line ();
129. End;
131. Procedure tform1.impradioclick (Sender: tobject );
132. Begin
133. Chgw.line ();
134. End;
136. Procedure tform1.expradioclick (Sender: tobject );
137. Begin
138. Chgw.line ();
139. End;
141. Procedure tform1.passwordeditchange (Sender: tobject );
142. Begin
143. Chgw.line ();
144. End;
146. Procedure tform1.fromusereditchange (Sender: tobject );
147. Begin
148. Chgw.line ();
149. End;
151. Procedure tform1.tousereditchange (Sender: tobject );
152. Begin
153. Chgw.line ();
154. End;
156. Procedure tform1.ext1_lineeditchange (Sender: tobject );
157. Begin
158. Chgw.line ();
159. End;
161. Procedure tform1.fileeditchange (Sender: tobject );
162. Begin
163. Chgw.line ();
164. End;
165. End.