Windows Form File /FormMain.vb (VB.NET)
1: Option Strict Off
2: Option Explicit On
3: Imports VB = Microsoft.VisualBasic
4: Friend Class FormMain
5: Inherits System.Windows.Forms.Form
6: #Region "Windows Form Designer generated code "
7: Public Sub New()
8: MyBase.New()
9: If m_vb6FormDefInstance Is Nothing Then
10: If m_InitializingDefInstance Then
11: m_vb6FormDefInstance = Me
12: Else
13: Try
14: 'For the start-up form, the first instance created is the default instance.
15: If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
16: m_vb6FormDefInstance = Me
17: End If
18: Catch
19: End Try
20: End If
21: End If
22: 'This call is required by the Windows Form Designer.
23: InitializeComponent()
24: End Sub
25: 'Form overrides dispose to clean up the component list.
26: Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
27: If Disposing Then
28: If Not components Is Nothing Then
29: components.Dispose()
30: End If
31: End If
32: MyBase.Dispose(Disposing)
33: End Sub
34: 'Required by the Windows Form Designer
35: Private components As System.ComponentModel.IContainer
36: Public ToolTip1 As System.Windows.Forms.ToolTip
37: Public WithEvents CommandUpgrade As System.Windows.Forms.Button
38: Public WithEvents CommandQuit As System.Windows.Forms.Button
39: Public WithEvents FrameOptions As System.Windows.Forms.GroupBox
40: Public WithEvents CommandViewOutputHTML As System.Windows.Forms.Button
41: Public WithEvents CommandViewOutputHTMLHelp As System.Windows.Forms.Button
42: Public WithEvents CommandViewOutputFolder As System.Windows.Forms.Button
43: Public WithEvents FrameOutput As System.Windows.Forms.GroupBox
44: Public WithEvents CommandEditProject As System.Windows.Forms.Button
45: Public WithEvents CommandConnections As System.Windows.Forms.Button
46: Public WithEvents FrameOtherSettings As System.Windows.Forms.GroupBox
47: Public WithEvents ListParses As System.Windows.Forms.ListBox
48: Public WithEvents FrameProjectParses As System.Windows.Forms.GroupBox
49: Public WithEvents TextCurrentItem As System.Windows.Forms.TextBox
50: Public WithEvents TextStatus As System.Windows.Forms.TextBox
51: Public WithEvents LabelStatusActivity As System.Windows.Forms.Label
52: Public WithEvents LabelStatusItem As System.Windows.Forms.Label
53: Public WithEvents FrameStatus As System.Windows.Forms.GroupBox
54: Public WithEvents ListProjects As System.Windows.Forms.ListBox
55: Public WithEvents FrameProjects As System.Windows.Forms.GroupBox
56: Public WithEvents CommandViewLogs As System.Windows.Forms.Button
57: Public WithEvents CommandDocumentProject As System.Windows.Forms.Button
58: Public WithEvents CommandExtractProjectData As System.Windows.Forms.Button
59: Public WithEvents FrameJobManager As System.Windows.Forms.GroupBox
60: Public WithEvents Line1 As System.Windows.Forms.Label
61: Public WithEvents Line2 As System.Windows.Forms.Label
62: Public WithEvents AddNewProject As System.Windows.Forms.MenuItem
63: Public WithEvents DeleteProject As System.Windows.Forms.MenuItem
64: Public WithEvents DeleteParse As System.Windows.Forms.MenuItem
65: Public WithEvents Exit_Renamed As System.Windows.Forms.MenuItem
66: Public WithEvents File As System.Windows.Forms.MenuItem
67: Public WithEvents PurgeData As System.Windows.Forms.MenuItem
68: Public WithEvents PurgeAll As System.Windows.Forms.MenuItem
69: Public WithEvents Tools As System.Windows.Forms.MenuItem
70: Public WithEvents Documentation As System.Windows.Forms.MenuItem
71: Public WithEvents About As System.Windows.Forms.MenuItem
72: Public WithEvents Help As System.Windows.Forms.MenuItem
73: Public MainMenu1 As System.Windows.Forms.MainMenu
74: 'NOTE: The following procedure is required by the Windows Form Designer
75: 'It can be modified using the Windows Form Designer.
76: 'Do not modify it using the code editor.
77: <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
78: Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FormMain))
79: Me.components = New System.ComponentModel.Container()
80: Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
81: Me.ToolTip1.Active = True
82: Me.CommandUpgrade = New System.Windows.Forms.Button
83: Me.FrameOptions = New System.Windows.Forms.GroupBox
84: Me.CommandQuit = New System.Windows.Forms.Button
85: Me.FrameOutput = New System.Windows.Forms.GroupBox
86: Me.CommandViewOutputHTML = New System.Windows.Forms.Button
87: Me.CommandViewOutputHTMLHelp = New System.Windows.Forms.Button
88: Me.CommandViewOutputFolder = New System.Windows.Forms.Button
89: Me.FrameOtherSettings = New System.Windows.Forms.GroupBox
90: Me.CommandEditProject = New System.Windows.Forms.Button
91: Me.CommandConnections = New System.Windows.Forms.Button
92: Me.FrameProjectParses = New System.Windows.Forms.GroupBox
93: Me.ListParses = New System.Windows.Forms.ListBox
94: Me.FrameStatus = New System.Windows.Forms.GroupBox
95: Me.TextCurrentItem = New System.Windows.Forms.TextBox
96: Me.TextStatus = New System.Windows.Forms.TextBox
97: Me.LabelStatusActivity = New System.Windows.Forms.Label
98: Me.LabelStatusItem = New System.Windows.Forms.Label
99: Me.FrameProjects = New System.Windows.Forms.GroupBox
100: Me.ListProjects = New System.Windows.Forms.ListBox
101: Me.FrameJobManager = New System.Windows.Forms.GroupBox
102: Me.CommandViewLogs = New System.Windows.Forms.Button
103: Me.CommandDocumentProject = New System.Windows.Forms.Button
104: Me.CommandExtractProjectData = New System.Windows.Forms.Button
105: Me.Line1 = New System.Windows.Forms.Label
106: Me.Line2 = New System.Windows.Forms.Label
107: Me.MainMenu1 = New System.Windows.Forms.MainMenu
108: Me.File = New System.Windows.Forms.MenuItem
109: Me.AddNewProject = New System.Windows.Forms.MenuItem
110: Me.DeleteProject = New System.Windows.Forms.MenuItem
111: Me.DeleteParse = New System.Windows.Forms.MenuItem
112: Me.Exit_Renamed = New System.Windows.Forms.MenuItem
113: Me.Tools = New System.Windows.Forms.MenuItem
114: Me.PurgeData = New System.Windows.Forms.MenuItem
115: Me.PurgeAll = New System.Windows.Forms.MenuItem
116: Me.Help = New System.Windows.Forms.MenuItem
117: Me.Documentation = New System.Windows.Forms.MenuItem
118: Me.About = New System.Windows.Forms.MenuItem
119: Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
120: Me.Text = "SQL Documentation Tool"
121: Me.ClientSize = New System.Drawing.Size(615, 392)
122: Me.Location = New System.Drawing.Point(10, 48)
123: Me.Icon = CType(resources.GetObject("FormMain.Icon"), System.Drawing.Icon)
124: Me.MaximizeBox = False
125: Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultLocation
126: Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
127: Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
128: Me.BackColor = System.Drawing.SystemColors.Control
129: Me.ControlBox = True
130: Me.Enabled = True
131: Me.KeyPreview = False
132: Me.MinimizeBox = True
133: Me.Cursor = System.Windows.Forms.Cursors.Default
134: Me.RightToLeft = System.Windows.Forms.RightToLeft.No
135: Me.ShowInTaskbar = True
136: Me.HelpButton = False
137: Me.WindowState = System.Windows.Forms.FormWindowState.Normal
138: Me.Name = "FormMain"
139: Me.CommandUpgrade.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
140: Me.CommandUpgrade.Text = "Upgrade to full version"
141: Me.CommandUpgrade.Size = New System.Drawing.Size(129, 25)
142: Me.CommandUpgrade.Location = New System.Drawing.Point(472, 224)
143: Me.CommandUpgrade.TabIndex = 18
144: Me.ToolTip1.SetToolTip(Me.CommandUpgrade, "Upgrade to full version of the SQL Documentation Tool")
145: Me.CommandUpgrade.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
146: Me.CommandUpgrade.BackColor = System.Drawing.SystemColors.Control
147: Me.CommandUpgrade.CausesValidation = True
148: Me.CommandUpgrade.Enabled = True
149: Me.CommandUpgrade.ForeColor = System.Drawing.SystemColors.ControlText
150: Me.CommandUpgrade.Cursor = System.Windows.Forms.Cursors.Default
151: Me.CommandUpgrade.RightToLeft = System.Windows.Forms.RightToLeft.No
152: Me.CommandUpgrade.TabStop = True
153: Me.CommandUpgrade.Name = "CommandUpgrade"
154: Me.FrameOptions.Text = "Options"
155: Me.FrameOptions.Size = New System.Drawing.Size(145, 113)
156: Me.FrameOptions.Location = New System.Drawing.Point(464, 176)
157: Me.FrameOptions.TabIndex = 16
158: Me.FrameOptions.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
159: Me.FrameOptions.BackColor = System.Drawing.SystemColors.Control
160: Me.FrameOptions.Enabled = True
161: Me.FrameOptions.ForeColor = System.Drawing.SystemColors.ControlText
162: Me.FrameOptions.RightToLeft = System.Windows.Forms.RightToLeft.No
163: Me.FrameOptions.Visible = True
164: Me.FrameOptions.Name = "FrameOptions"
165: Me.CommandQuit.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
166: Me.CommandQuit.Text = "Exit"
167: Me.CommandQuit.Size = New System.Drawing.Size(129, 25)
168: Me.CommandQuit.Location = New System.Drawing.Point(8, 16)
169: Me.CommandQuit.TabIndex = 17
170: Me.ToolTip1.SetToolTip(Me.CommandQuit, "Leave the SQL Documentation Tool")
171: Me.CommandQuit.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
172: Me.CommandQuit.BackColor = System.Drawing.SystemColors.Control
173: Me.CommandQuit.CausesValidation = True
174: Me.CommandQuit.Enabled = True
175: Me.CommandQuit.ForeColor = System.Drawing.SystemColors.ControlText
176: Me.CommandQuit.Cursor = System.Windows.Forms.Cursors.Default
177: Me.CommandQuit.RightToLeft = System.Windows.Forms.RightToLeft.No
178: Me.CommandQuit.TabStop = True
179: Me.CommandQuit.Name = "CommandQuit"
180: Me.FrameOutput.Text = "View Output"
181: Me.FrameOutput.Size = New System.Drawing.Size(145, 113)
182: Me.FrameOutput.Location = New System.Drawing.Point(312, 176)
183: Me.FrameOutput.TabIndex = 12
184: Me.FrameOutput.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
185: Me.FrameOutput.BackColor = System.Drawing.SystemColors.Control
186: Me.FrameOutput.Enabled = True
187: Me.FrameOutput.ForeColor = System.Drawing.SystemColors.ControlText
188: Me.FrameOutput.RightToLeft = System.Windows.Forms.RightToLeft.No
189: Me.FrameOutput.Visible = True
190: Me.FrameOutput.Name = "FrameOutput"
191: Me.CommandViewOutputHTML.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
192: Me.CommandViewOutputHTML.Text = "HTML Output"
193: Me.CommandViewOutputHTML.Size = New System.Drawing.Size(129, 25)
194: Me.CommandViewOutputHTML.Location = New System.Drawing.Point(8, 48)
195: Me.CommandViewOutputHTML.TabIndex = 15
196: Me.ToolTip1.SetToolTip(Me.CommandViewOutputHTML, "View the documentation for the selected project")
197: Me.CommandViewOutputHTML.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
198: Me.CommandViewOutputHTML.BackColor = System.Drawing.SystemColors.Control
199: Me.CommandViewOutputHTML.CausesValidation = True
200: Me.CommandViewOutputHTML.Enabled = True
201: Me.CommandViewOutputHTML.ForeColor = System.Drawing.SystemColors.ControlText
202: Me.CommandViewOutputHTML.Cursor = System.Windows.Forms.Cursors.Default
203: Me.CommandViewOutputHTML.RightToLeft = System.Windows.Forms.RightToLeft.No
204: Me.CommandViewOutputHTML.TabStop = True
205: Me.CommandViewOutputHTML.Name = "CommandViewOutputHTML"
206: Me.CommandViewOutputHTMLHelp.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
207: Me.CommandViewOutputHTMLHelp.Text = "HTML Help Output"
208: Me.CommandViewOutputHTMLHelp.Size = New System.Drawing.Size(129, 25)
209: Me.CommandViewOutputHTMLHelp.Location = New System.Drawing.Point(8, 80)
210: Me.CommandViewOutputHTMLHelp.TabIndex = 14
211: Me.ToolTip1.SetToolTip(Me.CommandViewOutputHTMLHelp, "View the documentation for the selected project")
212: Me.CommandViewOutputHTMLHelp.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
213: Me.CommandViewOutputHTMLHelp.BackColor = System.Drawing.SystemColors.Control
214: Me.CommandViewOutputHTMLHelp.CausesValidation = True
215: Me.CommandViewOutputHTMLHelp.Enabled = True
216: Me.CommandViewOutputHTMLHelp.ForeColor = System.Drawing.SystemColors.ControlText
217: Me.CommandViewOutputHTMLHelp.Cursor = System.Windows.Forms.Cursors.Default
218: Me.CommandViewOutputHTMLHelp.RightToLeft = System.Windows.Forms.RightToLeft.No
219: Me.CommandViewOutputHTMLHelp.TabStop = True
220: Me.CommandViewOutputHTMLHelp.Name = "CommandViewOutputHTMLHelp"
221: Me.CommandViewOutputFolder.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
222: Me.CommandViewOutputFolder.Text = "Open Output Folder"
223: Me.CommandViewOutputFolder.Size = New System.Drawing.Size(129, 25)
224: Me.CommandViewOutputFolder.Location = New System.Drawing.Point(8, 16)
225: Me.CommandViewOutputFolder.TabIndex = 13
226: Me.ToolTip1.SetToolTip(Me.CommandViewOutputFolder, "View the documentation for the selected project")
227: Me.CommandViewOutputFolder.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
228: Me.CommandViewOutputFolder.BackColor = System.Drawing.SystemColors.Control
229: Me.CommandViewOutputFolder.CausesValidation = True
230: Me.CommandViewOutputFolder.Enabled = True
231: Me.CommandViewOutputFolder.ForeColor = System.Drawing.SystemColors.ControlText
232: Me.CommandViewOutputFolder.Cursor = System.Windows.Forms.Cursors.Default
233: Me.CommandViewOutputFolder.RightToLeft = System.Windows.Forms.RightToLeft.No
234: Me.CommandViewOutputFolder.TabStop = True
235: Me.CommandViewOutputFolder.Name = "CommandViewOutputFolder"
236: Me.FrameOtherSettings.Text = "Settings"
237: Me.FrameOtherSettings.Size = New System.Drawing.Size(145, 113)
238: Me.FrameOtherSettings.Location = New System.Drawing.Point(160, 176)
239: Me.FrameOtherSettings.TabIndex = 9
240: Me.FrameOtherSettings.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
241: Me.FrameOtherSettings.BackColor = System.Drawing.SystemColors.Control
242: Me.FrameOtherSettings.Enabled = True
243: Me.FrameOtherSettings.ForeColor = System.Drawing.SystemColors.ControlText
244: Me.FrameOtherSettings.RightToLeft = System.Windows.Forms.RightToLeft.No
245: Me.FrameOtherSettings.Visible = True
246: Me.FrameOtherSettings.Name = "FrameOtherSettings"
247: Me.CommandEditProject.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
248: Me.CommandEditProject.Text = "Edit Project Settings"
249: Me.CommandEditProject.Size = New System.Drawing.Size(129, 25)
250: Me.CommandEditProject.Location = New System.Drawing.Point(8, 16)
251: Me.CommandEditProject.TabIndex = 11
252: Me.ToolTip1.SetToolTip(Me.CommandEditProject, "Edit the selected project")
253: Me.CommandEditProject.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
254: Me.CommandEditProject.BackColor = System.Drawing.SystemColors.Control
255: Me.CommandEditProject.CausesValidation = True
256: Me.CommandEditProject.Enabled = True
257: Me.CommandEditProject.ForeColor = System.Drawing.SystemColors.ControlText
258: Me.CommandEditProject.Cursor = System.Windows.Forms.Cursors.Default
259: Me.CommandEditProject.RightToLeft = System.Windows.Forms.RightToLeft.No
260: Me.CommandEditProject.TabStop = True
261: Me.CommandEditProject.Name = "CommandEditProject"
262: Me.CommandConnections.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
263: Me.CommandConnections.Text = "Edit Connections"
264: Me.CommandConnections.Size = New System.Drawing.Size(129, 25)
265: Me.CommandConnections.Location = New System.Drawing.Point(8, 48)
266: Me.CommandConnections.TabIndex = 10
267: Me.ToolTip1.SetToolTip(Me.CommandConnections, "Edit Database Connections")
268: Me.CommandConnections.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
269: Me.CommandConnections.BackColor = System.Drawing.SystemColors.Control
270: Me.CommandConnections.CausesValidation = True
271: Me.CommandConnections.Enabled = True
272: Me.CommandConnections.ForeColor = System.Drawing.SystemColors.ControlText
273: Me.CommandConnections.Cursor = System.Windows.Forms.Cursors.Default
274: Me.CommandConnections.RightToLeft = System.Windows.Forms.RightToLeft.No
275: Me.CommandConnections.TabStop = True
276: Me.CommandConnections.Name = "CommandConnections"
277: Me.FrameProjectParses.Text = "Project Parses"
278: Me.FrameProjectParses.Size = New System.Drawing.Size(297, 161)
279: Me.FrameProjectParses.Location = New System.Drawing.Point(312, 8)
280: Me.FrameProjectParses.TabIndex = 7
281: Me.FrameProjectParses.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
282: Me.FrameProjectParses.BackColor = System.Drawing.SystemColors.Control
283: Me.FrameProjectParses.Enabled = True
284: Me.FrameProjectParses.ForeColor = System.Drawing.SystemColors.ControlText
285: Me.FrameProjectParses.RightToLeft = System.Windows.Forms.RightToLeft.No
286: Me.FrameProjectParses.Visible = True
287: Me.FrameProjectParses.Name = "FrameProjectParses"
288: Me.ListParses.Size = New System.Drawing.Size(281, 137)
289: Me.ListParses.Location = New System.Drawing.Point(8, 16)
290: Me.ListParses.TabIndex = 8
291: Me.ListParses.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
292: Me.ListParses.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
293: Me.ListParses.BackColor = System.Drawing.SystemColors.Window
294: Me.ListParses.CausesValidation = True
295: Me.ListParses.Enabled = True
296: Me.ListParses.ForeColor = System.Drawing.SystemColors.WindowText
297: Me.ListParses.IntegralHeight = True
298: Me.ListParses.Cursor = System.Windows.Forms.Cursors.Default
299: Me.ListParses.SelectionMode = System.Windows.Forms.SelectionMode.One
300: Me.ListParses.RightToLeft = System.Windows.Forms.RightToLeft.No
301: Me.ListParses.Sorted = False
302: Me.ListParses.TabStop = True
303: Me.ListParses.Visible = True
304: Me.ListParses.MultiColumn = False
305: Me.ListParses.Name = "ListParses"
306: Me.FrameStatus.Text = "Status"
307: Me.FrameStatus.Size = New System.Drawing.Size(601, 89)
308: Me.FrameStatus.Location = New System.Drawing.Point(8, 296)
309: Me.FrameStatus.TabIndex = 4
310: Me.FrameStatus.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
311: Me.FrameStatus.BackColor = System.Drawing.SystemColors.Control
312: Me.FrameStatus.Enabled = True
313: Me.FrameStatus.ForeColor = System.Drawing.SystemColors.ControlText
314: Me.FrameStatus.RightToLeft = System.Windows.Forms.RightToLeft.No
315: Me.FrameStatus.Visible = True
316: Me.FrameStatus.Name = "FrameStatus"
317: Me.TextCurrentItem.AutoSize = False
318: Me.TextCurrentItem.BackColor = System.Drawing.SystemColors.Control
319: Me.TextCurrentItem.Size = New System.Drawing.Size(545, 25)
320: Me.TextCurrentItem.Location = New System.Drawing.Point(48, 47)
321: Me.TextCurrentItem.TabIndex = 20
322: Me.TextCurrentItem.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
323: Me.TextCurrentItem.AcceptsReturn = True
324: Me.TextCurrentItem.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
325: Me.TextCurrentItem.CausesValidation = True
326: Me.TextCurrentItem.Enabled = True
327: Me.TextCurrentItem.ForeColor = System.Drawing.SystemColors.WindowText
328: Me.TextCurrentItem.HideSelection = True
329: Me.TextCurrentItem.ReadOnly = False
330: Me.TextCurrentItem.Maxlength = 0
331: Me.TextCurrentItem.Cursor = System.Windows.Forms.Cursors.IBeam
332: Me.TextCurrentItem.MultiLine = False
333: Me.TextCurrentItem.RightToLeft = System.Windows.Forms.RightToLeft.No
334: Me.TextCurrentItem.ScrollBars = System.Windows.Forms.ScrollBars.None
335: Me.TextCurrentItem.TabStop = True
336: Me.TextCurrentItem.Visible = True
337: Me.TextCurrentItem.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
338: Me.TextCurrentItem.Name = "TextCurrentItem"
339: Me.TextStatus.AutoSize = False
340: Me.TextStatus.BackColor = System.Drawing.SystemColors.Control
341: Me.TextStatus.Size = New System.Drawing.Size(545, 25)
342: Me.TextStatus.Location = New System.Drawing.Point(48, 16)
343: Me.TextStatus.TabIndex = 5
344: Me.TextStatus.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
345: Me.TextStatus.AcceptsReturn = True
346: Me.TextStatus.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
347: Me.TextStatus.CausesValidation = True
348: Me.TextStatus.Enabled = True
349: Me.TextStatus.ForeColor = System.Drawing.SystemColors.WindowText
350: Me.TextStatus.HideSelection = True
351: Me.TextStatus.ReadOnly = False
352: Me.TextStatus.Maxlength = 0
353: Me.TextStatus.Cursor = System.Windows.Forms.Cursors.IBeam
354: Me.TextStatus.MultiLine = False
355: Me.TextStatus.RightToLeft = System.Windows.Forms.RightToLeft.No
356: Me.TextStatus.ScrollBars = System.Windows.Forms.ScrollBars.None
357: Me.TextStatus.TabStop = True
358: Me.TextStatus.Visible = True
359: Me.TextStatus.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
360: Me.TextStatus.Name = "TextStatus"
361: Me.LabelStatusActivity.Text = "Activity:"
362: Me.LabelStatusActivity.Size = New System.Drawing.Size(49, 17)
363: Me.LabelStatusActivity.Location = New System.Drawing.Point(8, 20)
364: Me.LabelStatusActivity.TabIndex = 22
365: Me.LabelStatusActivity.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
366: Me.LabelStatusActivity.TextAlign = System.Drawing.ContentAlignment.TopLeft
367: Me.LabelStatusActivity.BackColor = System.Drawing.SystemColors.Control
368: Me.LabelStatusActivity.Enabled = True
369: Me.LabelStatusActivity.ForeColor = System.Drawing.SystemColors.ControlText
370: Me.LabelStatusActivity.Cursor = System.Windows.Forms.Cursors.Default
371: Me.LabelStatusActivity.RightToLeft = System.Windows.Forms.RightToLeft.No
372: Me.LabelStatusActivity.UseMnemonic = True
373: Me.LabelStatusActivity.Visible = True
374: Me.LabelStatusActivity.AutoSize = False
375: Me.LabelStatusActivity.BorderStyle = System.Windows.Forms.BorderStyle.None
376: Me.LabelStatusActivity.Name = "LabelStatusActivity"
377: Me.LabelStatusItem.Text = "Item:"
378: Me.LabelStatusItem.Size = New System.Drawing.Size(33, 17)
379: Me.LabelStatusItem.Location = New System.Drawing.Point(22, 51)
380: Me.LabelStatusItem.TabIndex = 21
381: Me.LabelStatusItem.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
382: Me.LabelStatusItem.TextAlign = System.Drawing.ContentAlignment.TopLeft
383: Me.LabelStatusItem.BackColor = System.Drawing.SystemColors.Control
384: Me.LabelStatusItem.Enabled = True
385: Me.LabelStatusItem.ForeColor = System.Drawing.SystemColors.ControlText
386: Me.LabelStatusItem.Cursor = System.Windows.Forms.Cursors.Default
387: Me.LabelStatusItem.RightToLeft = System.Windows.Forms.RightToLeft.No
388: Me.LabelStatusItem.UseMnemonic = True
389: Me.LabelStatusItem.Visible = True
390: Me.LabelStatusItem.AutoSize = False
391: Me.LabelStatusItem.BorderStyle = System.Windows.Forms.BorderStyle.None
392: Me.LabelStatusItem.Name = "LabelStatusItem"
393: Me.FrameProjects.Text = "Projects"
394: Me.FrameProjects.Size = New System.Drawing.Size(297, 161)
395: Me.FrameProjects.Location = New System.Drawing.Point(8, 8)
396: Me.FrameProjects.TabIndex = 1
397: Me.FrameProjects.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
398: Me.FrameProjects.BackColor = System.Drawing.SystemColors.Control
399: Me.FrameProjects.Enabled = True
400: Me.FrameProjects.ForeColor = System.Drawing.SystemColors.ControlText
401: Me.FrameProjects.RightToLeft = System.Windows.Forms.RightToLeft.No
402: Me.FrameProjects.Visible = True
403: Me.FrameProjects.Name = "FrameProjects"
404: Me.ListProjects.Size = New System.Drawing.Size(281, 137)
405: Me.ListProjects.Location = New System.Drawing.Point(8, 16)
406: Me.ListProjects.TabIndex = 2
407: Me.ListProjects.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
408: Me.ListProjects.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
409: Me.ListProjects.BackColor = System.Drawing.SystemColors.Window
410: Me.ListProjects.CausesValidation = True
411: Me.ListProjects.Enabled = True
412: Me.ListProjects.ForeColor = System.Drawing.SystemColors.WindowText
413: Me.ListProjects.IntegralHeight = True
414: Me.ListProjects.Cursor = System.Windows.Forms.Cursors.Default
415: Me.ListProjects.SelectionMode = System.Windows.Forms.SelectionMode.One
416: Me.ListProjects.RightToLeft = System.Windows.Forms.RightToLeft.No
417: Me.ListProjects.Sorted = False
418: Me.ListProjects.TabStop = True
419: Me.ListProjects.Visible = True
420: Me.ListProjects.MultiColumn = False
421: Me.ListProjects.Name = "ListProjects"
422: Me.FrameJobManager.Text = "Job Manager"
423: Me.FrameJobManager.Size = New System.Drawing.Size(145, 113)
424: Me.FrameJobManager.Location = New System.Drawing.Point(8, 176)
425: Me.FrameJobManager.TabIndex = 0
426: Me.FrameJobManager.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
427: Me.FrameJobManager.BackColor = System.Drawing.SystemColors.Control
428: Me.FrameJobManager.Enabled = True
429: Me.FrameJobManager.ForeColor = System.Drawing.SystemColors.ControlText
430: Me.FrameJobManager.RightToLeft = System.Windows.Forms.RightToLeft.No
431: Me.FrameJobManager.Visible = True
432: Me.FrameJobManager.Name = "FrameJobManager"
433: Me.CommandViewLogs.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
434: Me.CommandViewLogs.Text = "View Logs"
435: Me.CommandViewLogs.Size = New System.Drawing.Size(129, 25)
436: Me.CommandViewLogs.Location = New System.Drawing.Point(8, 80)
437: Me.CommandViewLogs.TabIndex = 19
438: Me.ToolTip1.SetToolTip(Me.CommandViewLogs, "Leave the SQL Documentation Tool")
439: Me.CommandViewLogs.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
440: Me.CommandViewLogs.BackColor = System.Drawing.SystemColors.Control
441: Me.CommandViewLogs.CausesValidation = True
442: Me.CommandViewLogs.Enabled = True
443: Me.CommandViewLogs.ForeColor = System.Drawing.SystemColors.ControlText
444: Me.CommandViewLogs.Cursor = System.Windows.Forms.Cursors.Default
445: Me.CommandViewLogs.RightToLeft = System.Windows.Forms.RightToLeft.No
446: Me.CommandViewLogs.TabStop = True
447: Me.CommandViewLogs.Name = "CommandViewLogs"
448: Me.CommandDocumentProject.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
449: Me.CommandDocumentProject.Text = "Create Documentation"
450: Me.CommandDocumentProject.Size = New System.Drawing.Size(129, 25)
451: Me.CommandDocumentProject.Location = New System.Drawing.Point(8, 48)
452: Me.CommandDocumentProject.TabIndex = 6
453: Me.ToolTip1.SetToolTip(Me.CommandDocumentProject, "Creates documentation for the selected parse of the specified project")
454: Me.CommandDocumentProject.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
455: Me.CommandDocumentProject.BackColor = System.Drawing.SystemColors.Control
456: Me.CommandDocumentProject.CausesValidation = True
457: Me.CommandDocumentProject.Enabled = True
458: Me.CommandDocumentProject.ForeColor = System.Drawing.SystemColors.ControlText
459: Me.CommandDocumentProject.Cursor = System.Windows.Forms.Cursors.Default
460: Me.CommandDocumentProject.RightToLeft = System.Windows.Forms.RightToLeft.No
461: Me.CommandDocumentProject.TabStop = True
462: Me.CommandDocumentProject.Name = "CommandDocumentProject"
463: Me.CommandExtractProjectData.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
464: Me.CommandExtractProjectData.Text = "Extract Data"
465: Me.CommandExtractProjectData.Size = New System.Drawing.Size(129, 25)
466: Me.CommandExtractProjectData.Location = New System.Drawing.Point(8, 16)
467: Me.CommandExtractProjectData.TabIndex = 3
468: Me.ToolTip1.SetToolTip(Me.CommandExtractProjectData, "Extract the database data for the selected project")
469: Me.CommandExtractProjectData.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
470: Me.CommandExtractProjectData.BackColor = System.Drawing.SystemColors.Control
471: Me.CommandExtractProjectData.CausesValidation = True
472: Me.CommandExtractProjectData.Enabled = True
473: Me.CommandExtractProjectData.ForeColor = System.Drawing.SystemColors.ControlText
474: Me.CommandExtractProjectData.Cursor = System.Windows.Forms.Cursors.Default
475: Me.CommandExtractProjectData.RightToLeft = System.Windows.Forms.RightToLeft.No
476: Me.CommandExtractProjectData.TabStop = True
477: Me.CommandExtractProjectData.Name = "CommandExtractProjectData"
478: Me.Line1.BackColor = System.Drawing.SystemColors.InactiveCaption
479: Me.Line1.Visible = True
480: Me.Line1.Location = New System.Drawing.Point(0, 0)
481: Me.Line1.Width = 607
482: Me.Line1.Height = 1
483: Me.Line1.Name = "Line1"
484: Me.Line2.BackColor = System.Drawing.SystemColors.Window
485: Me.Line2.Visible = True
486: Me.Line2.Location = New System.Drawing.Point(0, 1)
487: Me.Line2.Width = 607
488: Me.Line2.Height = 1
489: Me.Line2.Name = "Line2"
490: Me.File.Text = "&File"
491: Me.File.Checked = False
492: Me.File.Enabled = True
493: Me.File.Visible = True
494: Me.File.MDIList = False
495: Me.AddNewProject.Text = "Add &New Project"
496: Me.AddNewProject.Checked = False
497: Me.AddNewProject.Enabled = True
498: Me.AddNewProject.Visible = True
499: Me.AddNewProject.MDIList = False
500: Me.DeleteProject.Text = "&Delete Selected Project"
501: Me.DeleteProject.Checked = False
502: Me.DeleteProject.Enabled = True
503: Me.DeleteProject.Visible = True
504: Me.DeleteProject.MDIList = False
505: Me.DeleteParse.Text = "Delete Selected Parse of Project"
506: Me.DeleteParse.Checked = False
507: Me.DeleteParse.Enabled = True
508: Me.DeleteParse.Visible = True
509: Me.DeleteParse.MDIList = False
510: Me.Exit_Renamed.Text = "E&xit"
511: Me.Exit_Renamed.Checked = False
512: Me.Exit_Renamed.Enabled = True
513: Me.Exit_Renamed.Visible = True
514: Me.Exit_Renamed.MDIList = False
515: Me.Tools.Text = "&Tools"
516: Me.Tools.Checked = False
517: Me.Tools.Enabled = True
518: Me.Tools.Visible = True
519: Me.Tools.MDIList = False
520: Me.PurgeData.Text = "Purge &Data From DataStore"
521: Me.PurgeData.Checked = False
522: Me.PurgeData.Enabled = True
523: Me.PurgeData.Visible = True
524: Me.PurgeData.MDIList = False
525: Me.PurgeAll.Text = "Purge &Everything From DataStore"
526: Me.PurgeAll.Checked = False
527: Me.PurgeAll.Enabled = True
528: Me.PurgeAll.Visible = True
529: Me.PurgeAll.MDIList = False
530: Me.Help.Text = "&Help"
531: Me.Help.Checked = False
532: Me.Help.Enabled = True
533: Me.Help.Visible = True
534: Me.Help.MDIList = False
535: Me.Documentation.Text = "&Documentation"
536: Me.Documentation.Checked = False
537: Me.Documentation.Enabled = True
538: Me.Documentation.Visible = True
539: Me.Documentation.MDIList = False
540: Me.About.Text = "&About"
541: Me.About.Checked = False
542: Me.About.Enabled = True
543: Me.About.Visible = True
544: Me.About.MDIList = False
545: Me.Controls.Add(CommandUpgrade)
546: Me.Controls.Add(FrameOptions)
547: Me.Controls.Add(FrameOutput)
548: Me.Controls.Add(FrameOtherSettings)
549: Me.Controls.Add(FrameProjectParses)
550: Me.Controls.Add(FrameStatus)
551: Me.Controls.Add(FrameProjects)
552: Me.Controls.Add(FrameJobManager)
553: Me.Controls.Add(Line1)
554: Me.Controls.Add(Line2)
555: Me.FrameOptions.Controls.Add(CommandQuit)
556: Me.FrameOutput.Controls.Add(CommandViewOutputHTML)
557: Me.FrameOutput.Controls.Add(CommandViewOutputHTMLHelp)
558: Me.FrameOutput.Controls.Add(CommandViewOutputFolder)
559: Me.FrameOtherSettings.Controls.Add(CommandEditProject)
560: Me.FrameOtherSettings.Controls.Add(CommandConnections)
561: Me.FrameProjectParses.Controls.Add(ListParses)
562: Me.FrameStatus.Controls.Add(TextCurrentItem)
563: Me.FrameStatus.Controls.Add(TextStatus)
564: Me.FrameStatus.Controls.Add(LabelStatusActivity)
565: Me.FrameStatus.Controls.Add(LabelStatusItem)
566: Me.FrameProjects.Controls.Add(ListProjects)
567: Me.FrameJobManager.Controls.Add(CommandViewLogs)
568: Me.FrameJobManager.Controls.Add(CommandDocumentProject)
569: Me.FrameJobManager.Controls.Add(CommandExtractProjectData)
570: Me.File.Index = 0
571: Me.Tools.Index = 1
572: Me.Help.Index = 2
573: MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.File, Me.Tools, Me.Help})
574: Me.AddNewProject.Index = 0
575: Me.DeleteProject.Index = 1
576: Me.DeleteParse.Index = 2
577: Me.Exit_Renamed.Index = 3
578: File.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.AddNewProject, Me.DeleteProject, Me.DeleteParse, Me.Exit_Renamed})
579: Me.PurgeData.Index = 0
580: Me.PurgeAll.Index = 1
581: Tools.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.PurgeData, Me.PurgeAll})
582: Me.Documentation.Index = 0
583: Me.About.Index = 1
584: Help.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.Documentation, Me.About})
585: Me.Menu = MainMenu1
586: End Sub
587: #End Region
588: #Region "Upgrade Support "
589: Private Shared m_vb6FormDefInstance As FormMain
590: Private Shared m_InitializingDefInstance As Boolean
591: Public Shared Property DefInstance() As FormMain
592: Get
593: If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
594: m_InitializingDefInstance = True
595: m_vb6FormDefInstance = New FormMain()
596: m_InitializingDefInstance = False
597: End If
598: DefInstance = m_vb6FormDefInstance
599: End Get
600: Set
601: m_vb6FormDefInstance = Value
602: End Set
603: End Property
604: #End Region
605: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"(ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
606: Function InitialiseSettings() As Object
607:
608: ApplicationName = "SQL Documentation Tool"
609: ApplicationVersion = "6.4"
610: ApplicationURL = "http://www.winnershtriangle.com/w/Products.SQLDocumentationTool.asp"
611: ApplicationCopyright = "Copyright 2005 - 2006 Winnersh Triangle Web Solutions Limited"
612: ApplicationDescription = "Documents Microsoft SQL Server databases"
613: ApplicationDataStoreConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & VB6.GetPath & "\DataStore.mdb;"
614: ApplicationIsEvaluationVersion = False
615: ApplicationEvaluationVersionItemLimit = 10
616: 'ApplicationDataStoreConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\DataStore.mdb;"
617:
618: 'RTF reference:
619: 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnrtfspec/html/rtfspec_16.asp
620:
621: CommandDocumentProject.Enabled = False
622:
623: If ApplicationIsEvaluationVersion Then
624: CommandUpgrade.Visible = True
625: CommandUpgrade.Enabled = True
626: ApplicationName = ApplicationName & " Evaluation Version"
627: Else
628: CommandUpgrade.Visible = False
629: CommandUpgrade.Enabled = False
630: End If
631:
632: End Function
633: 'Private Sub CheckHTML_Click()
634:
635: ' If CheckHTML.Value = vbChecked Then
636: ' CheckHTML.Value = vbUnchecked
637: ' CurrentProjectHTMLOutput = False
638: ' Else
639: ' CheckHTML.Value = vbChecked
640: ' CurrentProjectHTMLOutput = True
641: 'End If
642:
643: 'End Sub
644:
645: Public Sub About_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles About.Popup
646: About_Click(eventSender, eventArgs)
647: End Sub
648: Public Sub About_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles About.Click
649: 'UPGRADE_ISSUE: Load statement is not supported. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1039"'
650: Load(FormAbout)
651: FormAbout.DefInstance.Visible = True
652: End Sub
653:
654: 'Adds a new project
655: Public Sub AddNewProject_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles AddNewProject.Popup
656: AddNewProject_Click(eventSender, eventArgs)
657: End Sub
658: Public Sub AddNewProject_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles AddNewProject.Click
659:
660: CurrentAction = "ADD PROJECT"
661: 'UPGRADE_ISSUE: Load statement is not supported. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1039"'
662: Load(FormEditProject)
663: FormEditProject.DefInstance.Visible = True
664:
665: End Sub
666:
667: Private Sub CommandConnections_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandConnections.Click
668: 'UPGRADE_ISSUE: Load statement is not supported. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1039"'
669: Load(FormEditConnections)
670: FormEditConnections.DefInstance.Visible = True
671: End Sub
672:
673: Private Sub CommandDocumentProject_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandDocumentProject.Click
674:
675: FormMain.DefInstance.Cursor = System.Windows.Forms.Cursors.WaitCursor
676: 'Check that CurrentParseID is valid
677: If CurrentParseID = 0 Then Exit Sub
678:
679: 'Create the output folder
680: Dim FileSystemObject As New Scripting.FileSystemObject
681:
682: 'Ensure Reports folder exists
683: If Not FileSystemObject.FolderExists(VB6.GetPath & "\Reports") Then
684: FileSystemObject.CreateFolder(VB6.GetPath & "\Reports")
685: End If
686:
687: 'Create folder for the specific project
688: If Not FileSystemObject.FolderExists(VB6.GetPath & "\Reports\" & ListProjects.Text) Then
689: FileSystemObject.CreateFolder(VB6.GetPath & "\Reports\" & ListProjects.Text)
690: End If
691:
692: 'UPGRADE_NOTE: Object FileSystemObject may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'
693: FileSystemObject = Nothing