Windows Form File /FormEditProject.vb (VB.NET)
1: Option Strict Off
2: Option Explicit On
3: Imports VB = Microsoft.VisualBasic
4: Friend Class FormEditProject
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 CheckDocumentDTSPackages As System.Windows.Forms.CheckBox
38: Public WithEvents CheckDocumentJobs As System.Windows.Forms.CheckBox
39: Public WithEvents CheckTableColumnDescriptions As System.Windows.Forms.CheckBox
40: Public WithEvents Frame1 As System.Windows.Forms.GroupBox
41: Public WithEvents CheckColourCodeSource As System.Windows.Forms.CheckBox
42: Public WithEvents CheckRTF As System.Windows.Forms.CheckBox
43: Public WithEvents CheckHTML As System.Windows.Forms.CheckBox
44: Public WithEvents CheckHTMLHelp As System.Windows.Forms.CheckBox
45: Public WithEvents CheckText As System.Windows.Forms.CheckBox
46: Public WithEvents FrameProjectOutputOptions As System.Windows.Forms.GroupBox
47: Public WithEvents ListDatabases As System.Windows.Forms.ListBox
48: Public WithEvents CommandDeleteDatabase As System.Windows.Forms.Button
49: Public WithEvents CommandEditDatabase As System.Windows.Forms.Button
50: Public WithEvents CommandAddDatabase As System.Windows.Forms.Button
51: Public WithEvents FrameProjectDatabases As System.Windows.Forms.GroupBox
52: Public WithEvents TextProjectName As System.Windows.Forms.TextBox
53: Public WithEvents LabelProjectName As System.Windows.Forms.Label
54: Public WithEvents FrameProjectDetails As System.Windows.Forms.GroupBox
55: Public WithEvents CommandEditProject As System.Windows.Forms.Button
56: Public WithEvents CommandCancel As System.Windows.Forms.Button
57: 'NOTE: The following procedure is required by the Windows Form Designer
58: 'It can be modified using the Windows Form Designer.
59: 'Do not modify it using the code editor.
60: <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
61: Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FormEditProject))
62: Me.components = New System.ComponentModel.Container()
63: Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
64: Me.ToolTip1.Active = True
65: Me.Frame1 = New System.Windows.Forms.GroupBox
66: Me.CheckDocumentDTSPackages = New System.Windows.Forms.CheckBox
67: Me.CheckDocumentJobs = New System.Windows.Forms.CheckBox
68: Me.CheckTableColumnDescriptions = New System.Windows.Forms.CheckBox
69: Me.FrameProjectOutputOptions = New System.Windows.Forms.GroupBox
70: Me.CheckColourCodeSource = New System.Windows.Forms.CheckBox
71: Me.CheckRTF = New System.Windows.Forms.CheckBox
72: Me.CheckHTML = New System.Windows.Forms.CheckBox
73: Me.CheckHTMLHelp = New System.Windows.Forms.CheckBox
74: Me.CheckText = New System.Windows.Forms.CheckBox
75: Me.FrameProjectDatabases = New System.Windows.Forms.GroupBox
76: Me.ListDatabases = New System.Windows.Forms.ListBox
77: Me.CommandDeleteDatabase = New System.Windows.Forms.Button
78: Me.CommandEditDatabase = New System.Windows.Forms.Button
79: Me.CommandAddDatabase = New System.Windows.Forms.Button
80: Me.FrameProjectDetails = New System.Windows.Forms.GroupBox
81: Me.TextProjectName = New System.Windows.Forms.TextBox
82: Me.LabelProjectName = New System.Windows.Forms.Label
83: Me.CommandEditProject = New System.Windows.Forms.Button
84: Me.CommandCancel = New System.Windows.Forms.Button
85: Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
86: Me.Text = "Edit Project"
87: Me.ClientSize = New System.Drawing.Size(312, 424)
88: Me.Location = New System.Drawing.Point(3, 22)
89: Me.Icon = CType(resources.GetObject("FormEditProject.Icon"), System.Drawing.Icon)
90: Me.MaximizeBox = False
91: Me.MinimizeBox = False
92: Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
93: Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
94: Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
95: Me.BackColor = System.Drawing.SystemColors.Control
96: Me.ControlBox = True
97: Me.Enabled = True
98: Me.KeyPreview = False
99: Me.Cursor = System.Windows.Forms.Cursors.Default
100: Me.RightToLeft = System.Windows.Forms.RightToLeft.No
101: Me.ShowInTaskbar = True
102: Me.HelpButton = False
103: Me.WindowState = System.Windows.Forms.FormWindowState.Normal
104: Me.Name = "FormEditProject"
105: Me.Frame1.Text = "Project Documentation Options"
106: Me.Frame1.Size = New System.Drawing.Size(297, 89)
107: Me.Frame1.Location = New System.Drawing.Point(8, 200)
108: Me.Frame1.TabIndex = 16
109: Me.Frame1.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
110: Me.Frame1.BackColor = System.Drawing.SystemColors.Control
111: Me.Frame1.Enabled = True
112: Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText
113: Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
114: Me.Frame1.Visible = True
115: Me.Frame1.Name = "Frame1"
116: Me.CheckDocumentDTSPackages.Text = "Document DTS Packages"
117: Me.CheckDocumentDTSPackages.Size = New System.Drawing.Size(193, 17)
118: Me.CheckDocumentDTSPackages.Location = New System.Drawing.Point(8, 64)
119: Me.CheckDocumentDTSPackages.TabIndex = 19
120: Me.CheckDocumentDTSPackages.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
121: Me.CheckDocumentDTSPackages.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
122: Me.CheckDocumentDTSPackages.BackColor = System.Drawing.SystemColors.Control
123: Me.CheckDocumentDTSPackages.CausesValidation = True
124: Me.CheckDocumentDTSPackages.Enabled = True
125: Me.CheckDocumentDTSPackages.ForeColor = System.Drawing.SystemColors.ControlText
126: Me.CheckDocumentDTSPackages.Cursor = System.Windows.Forms.Cursors.Default
127: Me.CheckDocumentDTSPackages.RightToLeft = System.Windows.Forms.RightToLeft.No
128: Me.CheckDocumentDTSPackages.Appearance = System.Windows.Forms.Appearance.Normal
129: Me.CheckDocumentDTSPackages.TabStop = True
130: Me.CheckDocumentDTSPackages.CheckState = System.Windows.Forms.CheckState.Unchecked
131: Me.CheckDocumentDTSPackages.Visible = True
132: Me.CheckDocumentDTSPackages.Name = "CheckDocumentDTSPackages"
133: Me.CheckDocumentJobs.Text = "Document Jobs"
134: Me.CheckDocumentJobs.Size = New System.Drawing.Size(193, 17)
135: Me.CheckDocumentJobs.Location = New System.Drawing.Point(8, 40)
136: Me.CheckDocumentJobs.TabIndex = 18
137: Me.CheckDocumentJobs.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
138: Me.CheckDocumentJobs.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
139: Me.CheckDocumentJobs.BackColor = System.Drawing.SystemColors.Control
140: Me.CheckDocumentJobs.CausesValidation = True
141: Me.CheckDocumentJobs.Enabled = True
142: Me.CheckDocumentJobs.ForeColor = System.Drawing.SystemColors.ControlText
143: Me.CheckDocumentJobs.Cursor = System.Windows.Forms.Cursors.Default
144: Me.CheckDocumentJobs.RightToLeft = System.Windows.Forms.RightToLeft.No
145: Me.CheckDocumentJobs.Appearance = System.Windows.Forms.Appearance.Normal
146: Me.CheckDocumentJobs.TabStop = True
147: Me.CheckDocumentJobs.CheckState = System.Windows.Forms.CheckState.Unchecked
148: Me.CheckDocumentJobs.Visible = True
149: Me.CheckDocumentJobs.Name = "CheckDocumentJobs"
150: Me.CheckTableColumnDescriptions.Text = "Use Table Column Descriptions"
151: Me.CheckTableColumnDescriptions.Size = New System.Drawing.Size(193, 17)
152: Me.CheckTableColumnDescriptions.Location = New System.Drawing.Point(8, 16)
153: Me.CheckTableColumnDescriptions.TabIndex = 17
154: Me.CheckTableColumnDescriptions.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
155: Me.CheckTableColumnDescriptions.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
156: Me.CheckTableColumnDescriptions.BackColor = System.Drawing.SystemColors.Control
157: Me.CheckTableColumnDescriptions.CausesValidation = True
158: Me.CheckTableColumnDescriptions.Enabled = True
159: Me.CheckTableColumnDescriptions.ForeColor = System.Drawing.SystemColors.ControlText
160: Me.CheckTableColumnDescriptions.Cursor = System.Windows.Forms.Cursors.Default
161: Me.CheckTableColumnDescriptions.RightToLeft = System.Windows.Forms.RightToLeft.No
162: Me.CheckTableColumnDescriptions.Appearance = System.Windows.Forms.Appearance.Normal
163: Me.CheckTableColumnDescriptions.TabStop = True
164: Me.CheckTableColumnDescriptions.CheckState = System.Windows.Forms.CheckState.Unchecked
165: Me.CheckTableColumnDescriptions.Visible = True
166: Me.CheckTableColumnDescriptions.Name = "CheckTableColumnDescriptions"
167: Me.FrameProjectOutputOptions.Text = "Project Output Options"
168: Me.FrameProjectOutputOptions.Size = New System.Drawing.Size(297, 89)
169: Me.FrameProjectOutputOptions.Location = New System.Drawing.Point(8, 296)
170: Me.FrameProjectOutputOptions.TabIndex = 10
171: Me.FrameProjectOutputOptions.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
172: Me.FrameProjectOutputOptions.BackColor = System.Drawing.SystemColors.Control
173: Me.FrameProjectOutputOptions.Enabled = True
174: Me.FrameProjectOutputOptions.ForeColor = System.Drawing.SystemColors.ControlText
175: Me.FrameProjectOutputOptions.RightToLeft = System.Windows.Forms.RightToLeft.No
176: Me.FrameProjectOutputOptions.Visible = True
177: Me.FrameProjectOutputOptions.Name = "FrameProjectOutputOptions"
178: Me.CheckColourCodeSource.Text = "Colour Code Transact SQL"
179: Me.CheckColourCodeSource.Size = New System.Drawing.Size(153, 17)
180: Me.CheckColourCodeSource.Location = New System.Drawing.Point(8, 64)
181: Me.CheckColourCodeSource.TabIndex = 15
182: Me.CheckColourCodeSource.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
183: Me.CheckColourCodeSource.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
184: Me.CheckColourCodeSource.BackColor = System.Drawing.SystemColors.Control
185: Me.CheckColourCodeSource.CausesValidation = True
186: Me.CheckColourCodeSource.Enabled = True
187: Me.CheckColourCodeSource.ForeColor = System.Drawing.SystemColors.ControlText
188: Me.CheckColourCodeSource.Cursor = System.Windows.Forms.Cursors.Default
189: Me.CheckColourCodeSource.RightToLeft = System.Windows.Forms.RightToLeft.No
190: Me.CheckColourCodeSource.Appearance = System.Windows.Forms.Appearance.Normal
191: Me.CheckColourCodeSource.TabStop = True
192: Me.CheckColourCodeSource.CheckState = System.Windows.Forms.CheckState.Unchecked
193: Me.CheckColourCodeSource.Visible = True
194: Me.CheckColourCodeSource.Name = "CheckColourCodeSource"
195: Me.CheckRTF.Text = "RTF (Word compatible)"
196: Me.CheckRTF.Size = New System.Drawing.Size(145, 17)
197: Me.CheckRTF.Location = New System.Drawing.Point(104, 40)
198: Me.CheckRTF.TabIndex = 14
199: Me.CheckRTF.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
200: Me.CheckRTF.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
201: Me.CheckRTF.BackColor = System.Drawing.SystemColors.Control
202: Me.CheckRTF.CausesValidation = True
203: Me.CheckRTF.Enabled = True
204: Me.CheckRTF.ForeColor = System.Drawing.SystemColors.ControlText
205: Me.CheckRTF.Cursor = System.Windows.Forms.Cursors.Default
206: Me.CheckRTF.RightToLeft = System.Windows.Forms.RightToLeft.No
207: Me.CheckRTF.Appearance = System.Windows.Forms.Appearance.Normal
208: Me.CheckRTF.TabStop = True
209: Me.CheckRTF.CheckState = System.Windows.Forms.CheckState.Unchecked
210: Me.CheckRTF.Visible = True
211: Me.CheckRTF.Name = "CheckRTF"
212: Me.CheckHTML.Text = "HTML"
213: Me.CheckHTML.Enabled = False
214: Me.CheckHTML.Size = New System.Drawing.Size(81, 17)
215: Me.CheckHTML.Location = New System.Drawing.Point(8, 16)
216: Me.CheckHTML.TabIndex = 13
217: Me.CheckHTML.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
218: Me.CheckHTML.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
219: Me.CheckHTML.BackColor = System.Drawing.SystemColors.Control
220: Me.CheckHTML.CausesValidation = True
221: Me.CheckHTML.ForeColor = System.Drawing.SystemColors.ControlText
222: Me.CheckHTML.Cursor = System.Windows.Forms.Cursors.Default
223: Me.CheckHTML.RightToLeft = System.Windows.Forms.RightToLeft.No
224: Me.CheckHTML.Appearance = System.Windows.Forms.Appearance.Normal
225: Me.CheckHTML.TabStop = True
226: Me.CheckHTML.CheckState = System.Windows.Forms.CheckState.Unchecked
227: Me.CheckHTML.Visible = True
228: Me.CheckHTML.Name = "CheckHTML"
229: Me.CheckHTMLHelp.Text = "HTML Help"
230: Me.CheckHTMLHelp.Size = New System.Drawing.Size(89, 17)
231: Me.CheckHTMLHelp.Location = New System.Drawing.Point(8, 40)
232: Me.CheckHTMLHelp.TabIndex = 12
233: Me.CheckHTMLHelp.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
234: Me.CheckHTMLHelp.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
235: Me.CheckHTMLHelp.BackColor = System.Drawing.SystemColors.Control
236: Me.CheckHTMLHelp.CausesValidation = True
237: Me.CheckHTMLHelp.Enabled = True
238: Me.CheckHTMLHelp.ForeColor = System.Drawing.SystemColors.ControlText
239: Me.CheckHTMLHelp.Cursor = System.Windows.Forms.Cursors.Default
240: Me.CheckHTMLHelp.RightToLeft = System.Windows.Forms.RightToLeft.No
241: Me.CheckHTMLHelp.Appearance = System.Windows.Forms.Appearance.Normal
242: Me.CheckHTMLHelp.TabStop = True
243: Me.CheckHTMLHelp.CheckState = System.Windows.Forms.CheckState.Unchecked
244: Me.CheckHTMLHelp.Visible = True
245: Me.CheckHTMLHelp.Name = "CheckHTMLHelp"
246: Me.CheckText.Text = "Text"
247: Me.CheckText.Size = New System.Drawing.Size(113, 17)
248: Me.CheckText.Location = New System.Drawing.Point(104, 16)
249: Me.CheckText.TabIndex = 11
250: Me.CheckText.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
251: Me.CheckText.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
252: Me.CheckText.BackColor = System.Drawing.SystemColors.Control
253: Me.CheckText.CausesValidation = True
254: Me.CheckText.Enabled = True
255: Me.CheckText.ForeColor = System.Drawing.SystemColors.ControlText
256: Me.CheckText.Cursor = System.Windows.Forms.Cursors.Default
257: Me.CheckText.RightToLeft = System.Windows.Forms.RightToLeft.No
258: Me.CheckText.Appearance = System.Windows.Forms.Appearance.Normal
259: Me.CheckText.TabStop = True
260: Me.CheckText.CheckState = System.Windows.Forms.CheckState.Unchecked
261: Me.CheckText.Visible = True
262: Me.CheckText.Name = "CheckText"
263: Me.FrameProjectDatabases.Text = "Project Databases"
264: Me.FrameProjectDatabases.Size = New System.Drawing.Size(297, 121)
265: Me.FrameProjectDatabases.Location = New System.Drawing.Point(8, 72)
266: Me.FrameProjectDatabases.TabIndex = 5
267: Me.FrameProjectDatabases.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
268: Me.FrameProjectDatabases.BackColor = System.Drawing.SystemColors.Control
269: Me.FrameProjectDatabases.Enabled = True
270: Me.FrameProjectDatabases.ForeColor = System.Drawing.SystemColors.ControlText
271: Me.FrameProjectDatabases.RightToLeft = System.Windows.Forms.RightToLeft.No
272: Me.FrameProjectDatabases.Visible = True
273: Me.FrameProjectDatabases.Name = "FrameProjectDatabases"
274: Me.ListDatabases.Size = New System.Drawing.Size(201, 98)
275: Me.ListDatabases.Location = New System.Drawing.Point(8, 16)
276: Me.ListDatabases.TabIndex = 9
277: Me.ListDatabases.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
278: Me.ListDatabases.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
279: Me.ListDatabases.BackColor = System.Drawing.SystemColors.Window
280: Me.ListDatabases.CausesValidation = True
281: Me.ListDatabases.Enabled = True
282: Me.ListDatabases.ForeColor = System.Drawing.SystemColors.WindowText
283: Me.ListDatabases.IntegralHeight = True
284: Me.ListDatabases.Cursor = System.Windows.Forms.Cursors.Default
285: Me.ListDatabases.SelectionMode = System.Windows.Forms.SelectionMode.One
286: Me.ListDatabases.RightToLeft = System.Windows.Forms.RightToLeft.No
287: Me.ListDatabases.Sorted = False
288: Me.ListDatabases.TabStop = True
289: Me.ListDatabases.Visible = True
290: Me.ListDatabases.MultiColumn = False
291: Me.ListDatabases.Name = "ListDatabases"
292: Me.CommandDeleteDatabase.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
293: Me.CommandDeleteDatabase.Text = "Delete"
294: Me.CommandDeleteDatabase.Size = New System.Drawing.Size(73, 25)
295: Me.CommandDeleteDatabase.Location = New System.Drawing.Point(216, 80)
296: Me.CommandDeleteDatabase.TabIndex = 8
297: Me.ToolTip1.SetToolTip(Me.CommandDeleteDatabase, "Delete the database associated with this project")
298: Me.CommandDeleteDatabase.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
299: Me.CommandDeleteDatabase.BackColor = System.Drawing.SystemColors.Control
300: Me.CommandDeleteDatabase.CausesValidation = True
301: Me.CommandDeleteDatabase.Enabled = True
302: Me.CommandDeleteDatabase.ForeColor = System.Drawing.SystemColors.ControlText
303: Me.CommandDeleteDatabase.Cursor = System.Windows.Forms.Cursors.Default
304: Me.CommandDeleteDatabase.RightToLeft = System.Windows.Forms.RightToLeft.No
305: Me.CommandDeleteDatabase.TabStop = True
306: Me.CommandDeleteDatabase.Name = "CommandDeleteDatabase"
307: Me.CommandEditDatabase.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
308: Me.CommandEditDatabase.Text = "Edit"
309: Me.CommandEditDatabase.Size = New System.Drawing.Size(73, 25)
310: Me.CommandEditDatabase.Location = New System.Drawing.Point(216, 48)
311: Me.CommandEditDatabase.TabIndex = 7
312: Me.ToolTip1.SetToolTip(Me.CommandEditDatabase, "Edit the selected database associated with this project")
313: Me.CommandEditDatabase.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
314: Me.CommandEditDatabase.BackColor = System.Drawing.SystemColors.Control
315: Me.CommandEditDatabase.CausesValidation = True
316: Me.CommandEditDatabase.Enabled = True
317: Me.CommandEditDatabase.ForeColor = System.Drawing.SystemColors.ControlText
318: Me.CommandEditDatabase.Cursor = System.Windows.Forms.Cursors.Default
319: Me.CommandEditDatabase.RightToLeft = System.Windows.Forms.RightToLeft.No
320: Me.CommandEditDatabase.TabStop = True
321: Me.CommandEditDatabase.Name = "CommandEditDatabase"
322: Me.CommandAddDatabase.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
323: Me.CommandAddDatabase.Text = "Add New"
324: Me.CommandAddDatabase.Size = New System.Drawing.Size(73, 25)
325: Me.CommandAddDatabase.Location = New System.Drawing.Point(216, 16)
326: Me.CommandAddDatabase.TabIndex = 6
327: Me.ToolTip1.SetToolTip(Me.CommandAddDatabase, "Add a new database to this project")
328: Me.CommandAddDatabase.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
329: Me.CommandAddDatabase.BackColor = System.Drawing.SystemColors.Control
330: Me.CommandAddDatabase.CausesValidation = True
331: Me.CommandAddDatabase.Enabled = True
332: Me.CommandAddDatabase.ForeColor = System.Drawing.SystemColors.ControlText
333: Me.CommandAddDatabase.Cursor = System.Windows.Forms.Cursors.Default
334: Me.CommandAddDatabase.RightToLeft = System.Windows.Forms.RightToLeft.No
335: Me.CommandAddDatabase.TabStop = True
336: Me.CommandAddDatabase.Name = "CommandAddDatabase"
337: Me.FrameProjectDetails.Text = "Project Details"
338: Me.FrameProjectDetails.Size = New System.Drawing.Size(297, 57)
339: Me.FrameProjectDetails.Location = New System.Drawing.Point(8, 8)
340: Me.FrameProjectDetails.TabIndex = 2
341: Me.FrameProjectDetails.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
342: Me.FrameProjectDetails.BackColor = System.Drawing.SystemColors.Control
343: Me.FrameProjectDetails.Enabled = True
344: Me.FrameProjectDetails.ForeColor = System.Drawing.SystemColors.ControlText
345: Me.FrameProjectDetails.RightToLeft = System.Windows.Forms.RightToLeft.No
346: Me.FrameProjectDetails.Visible = True
347: Me.FrameProjectDetails.Name = "FrameProjectDetails"
348: Me.TextProjectName.AutoSize = False
349: Me.TextProjectName.Size = New System.Drawing.Size(209, 25)
350: Me.TextProjectName.Location = New System.Drawing.Point(80, 20)
351: Me.TextProjectName.TabIndex = 4
352: Me.TextProjectName.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
353: Me.TextProjectName.AcceptsReturn = True
354: Me.TextProjectName.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
355: Me.TextProjectName.BackColor = System.Drawing.SystemColors.Window
356: Me.TextProjectName.CausesValidation = True
357: Me.TextProjectName.Enabled = True
358: Me.TextProjectName.ForeColor = System.Drawing.SystemColors.WindowText
359: Me.TextProjectName.HideSelection = True
360: Me.TextProjectName.ReadOnly = False
361: Me.TextProjectName.Maxlength = 0
362: Me.TextProjectName.Cursor = System.Windows.Forms.Cursors.IBeam
363: Me.TextProjectName.MultiLine = False
364: Me.TextProjectName.RightToLeft = System.Windows.Forms.RightToLeft.No
365: Me.TextProjectName.ScrollBars = System.Windows.Forms.ScrollBars.None
366: Me.TextProjectName.TabStop = True
367: Me.TextProjectName.Visible = True
368: Me.TextProjectName.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
369: Me.TextProjectName.Name = "TextProjectName"
370: Me.LabelProjectName.Text = "Project Name:"
371: Me.LabelProjectName.Size = New System.Drawing.Size(73, 17)
372: Me.LabelProjectName.Location = New System.Drawing.Point(8, 24)
373: Me.LabelProjectName.TabIndex = 3
374: Me.LabelProjectName.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
375: Me.LabelProjectName.TextAlign = System.Drawing.ContentAlignment.TopLeft
376: Me.LabelProjectName.BackColor = System.Drawing.SystemColors.Control
377: Me.LabelProjectName.Enabled = True
378: Me.LabelProjectName.ForeColor = System.Drawing.SystemColors.ControlText
379: Me.LabelProjectName.Cursor = System.Windows.Forms.Cursors.Default
380: Me.LabelProjectName.RightToLeft = System.Windows.Forms.RightToLeft.No
381: Me.LabelProjectName.UseMnemonic = True
382: Me.LabelProjectName.Visible = True
383: Me.LabelProjectName.AutoSize = False
384: Me.LabelProjectName.BorderStyle = System.Windows.Forms.BorderStyle.None
385: Me.LabelProjectName.Name = "LabelProjectName"
386: Me.CommandEditProject.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
387: Me.CommandEditProject.Text = "Update"
388: Me.CommandEditProject.Size = New System.Drawing.Size(73, 25)
389: Me.CommandEditProject.Location = New System.Drawing.Point(152, 392)
390: Me.CommandEditProject.TabIndex = 1
391: Me.ToolTip1.SetToolTip(Me.CommandEditProject, "Update this project's settings")
392: Me.CommandEditProject.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
393: Me.CommandEditProject.BackColor = System.Drawing.SystemColors.Control
394: Me.CommandEditProject.CausesValidation = True
395: Me.CommandEditProject.Enabled = True
396: Me.CommandEditProject.ForeColor = System.Drawing.SystemColors.ControlText
397: Me.CommandEditProject.Cursor = System.Windows.Forms.Cursors.Default
398: Me.CommandEditProject.RightToLeft = System.Windows.Forms.RightToLeft.No
399: Me.CommandEditProject.TabStop = True
400: Me.CommandEditProject.Name = "CommandEditProject"
401: Me.CommandCancel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
402: Me.CancelButton = Me.CommandCancel
403: Me.CommandCancel.Text = "Cancel"
404: Me.CommandCancel.Size = New System.Drawing.Size(73, 25)
405: Me.CommandCancel.Location = New System.Drawing.Point(232, 392)
406: Me.CommandCancel.TabIndex = 0
407: Me.ToolTip1.SetToolTip(Me.CommandCancel, "Cancel the changes to this project")
408: Me.CommandCancel.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
409: Me.CommandCancel.BackColor = System.Drawing.SystemColors.Control
410: Me.CommandCancel.CausesValidation = True
411: Me.CommandCancel.Enabled = True
412: Me.CommandCancel.ForeColor = System.Drawing.SystemColors.ControlText
413: Me.CommandCancel.Cursor = System.Windows.Forms.Cursors.Default
414: Me.CommandCancel.RightToLeft = System.Windows.Forms.RightToLeft.No
415: Me.CommandCancel.TabStop = True
416: Me.CommandCancel.Name = "CommandCancel"
417: Me.Controls.Add(Frame1)
418: Me.Controls.Add(FrameProjectOutputOptions)
419: Me.Controls.Add(FrameProjectDatabases)
420: Me.Controls.Add(FrameProjectDetails)
421: Me.Controls.Add(CommandEditProject)
422: Me.Controls.Add(CommandCancel)
423: Me.Frame1.Controls.Add(CheckDocumentDTSPackages)
424: Me.Frame1.Controls.Add(CheckDocumentJobs)
425: Me.Frame1.Controls.Add(CheckTableColumnDescriptions)
426: Me.FrameProjectOutputOptions.Controls.Add(CheckColourCodeSource)
427: Me.FrameProjectOutputOptions.Controls.Add(CheckRTF)
428: Me.FrameProjectOutputOptions.Controls.Add(CheckHTML)
429: Me.FrameProjectOutputOptions.Controls.Add(CheckHTMLHelp)
430: Me.FrameProjectOutputOptions.Controls.Add(CheckText)
431: Me.FrameProjectDatabases.Controls.Add(ListDatabases)
432: Me.FrameProjectDatabases.Controls.Add(CommandDeleteDatabase)
433: Me.FrameProjectDatabases.Controls.Add(CommandEditDatabase)
434: Me.FrameProjectDatabases.Controls.Add(CommandAddDatabase)
435: Me.FrameProjectDetails.Controls.Add(TextProjectName)
436: Me.FrameProjectDetails.Controls.Add(LabelProjectName)
437: End Sub
438: #End Region
439: #Region "Upgrade Support "
440: Private Shared m_vb6FormDefInstance As FormEditProject
441: Private Shared m_InitializingDefInstance As Boolean
442: Public Shared Property DefInstance() As FormEditProject
443: Get
444: If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
445: m_InitializingDefInstance = True
446: m_vb6FormDefInstance = New FormEditProject()
447: m_InitializingDefInstance = False
448: End If
449: DefInstance = m_vb6FormDefInstance
450: End Get
451: Set
452: m_vb6FormDefInstance = Value
453: End Set
454: End Property
455: #End Region
456: Private Sub CommandAddDatabase_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandAddDatabase.Click
457: CurrentAction = "ADD DATABASE"
458: 'UPGRADE_ISSUE: Load statement is not supported. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1039"'
459: Load(FormEditDatabase)
460: FormEditDatabase.DefInstance.Visible = True
461: End Sub
462:
463: Private Sub CommandCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandCancel.Click
464: FormEditProject.DefInstance.Visible = False
465: FormEditProject.DefInstance.Close()
466:
467: End Sub
468:
469: Private Sub CommandDeleteDatabase_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandDeleteDatabase.Click
470: Dim Result As Object
471: 'Delete this database from the project
472: '???Might also need to delete the documentation for it as well???
473:
474: 'UPGRADE_WARNING: Couldn't resolve default property of object Result. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
475: Result = MsgBox("Are you sure you want to remove this database from the project?", MsgBoxStyle.OKCancel, ApplicationName)
476: If Result = MsgBoxResult.Cancel Then Exit Sub
477:
478: Dim DataStore As New DataStoreClass
479: DataStore.SetConnectionString((ApplicationDataStoreConnectionString))
480: Dim ConnectionsRecordSet As ADOR.Recordset
481: Dim SQLResult As Boolean
482: Dim SQL As String
483:
484: Dim SelectedDatabaseKey As Integer
485: Dim SelectedDatabaseID As Integer
486: SelectedDatabaseKey = FormEditProject.DefInstance.ListDatabases.SelectedIndex
487: 'UPGRADE_WARNING: Couldn't resolve default property of object DatabasesDictionary(). Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
488: SelectedDatabaseID = DatabasesDictionary(SelectedDatabaseKey)
489:
490: SQL = "DELETE FROM t_Databases WHERE DatabaseID = " & SelectedDatabaseID & " "
491: SQL = SQL & "AND fk_ProjectID = " & CurrentProjectID
492: SQLResult = DataStore.ExecuteSQL(SQL)
493:
494: Call UpdateFormSettings()
495:
496:
497: End Sub
498:
499: Private Sub CommandEditDatabase_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandEditDatabase.Click
500: CurrentAction = "EDIT DATABASE"
501: 'UPGRADE_ISSUE: Load statement is not supported. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1039"'
502: Load(FormEditDatabase)
503: FormEditDatabase.DefInstance.Visible = True
504: End Sub
505:
506: Private Sub CommandEditProject_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandEditProject.Click
507: 'Update the project
508: Dim DataStore As New DataStoreClass
509: DataStore.SetConnectionString((ApplicationDataStoreConnectionString))
510: Dim SQL As String
511: Dim SQLResult As Boolean
512:
513: CurrentProjectName = Replace(TextProjectName.Text, "'", "''")
514:
515: If CheckHTML.CheckState = System.Windows.Forms.CheckState.Checked Then
516: CurrentProjectHTMLOutput = True
517: Else
518: CurrentProjectHTMLOutput = False
519: End If
520:
521: If CheckHTMLHelp.CheckState = System.Windows.Forms.CheckState.Checked Then
522: CurrentProjectHTMLHelpOutput = True
523: Else
524: CurrentProjectHTMLHelpOutput = False
525: End If
526:
527: If CheckText.CheckState = System.Windows.Forms.CheckState.Checked Then
528: CurrentProjectTextOutput = True
529: Else
530: CurrentProjectTextOutput = False
531: End If
532:
533: If CheckRTF.CheckState = System.Windows.Forms.CheckState.Checked Then
534: CurrentProjectRTFOutput = True
535: Else
536: CurrentProjectRTFOutput = False
537: End If
538:
539: If CheckColourCodeSource.CheckState = System.Windows.Forms.CheckState.Checked Then
540: CurrentProjectColourCodeSource = True
541: Else
542: CurrentProjectColourCodeSource = False
543: End If
544:
545:
546:
547: If CheckTableColumnDescriptions.CheckState = System.Windows.Forms.CheckState.Checked Then
548: CurrentProjectDocumentJobs = True
549: Else
550: CurrentProjectDocumentJobs = False
551: End If
552:
553: If CheckDocumentJobs.CheckState = System.Windows.Forms.CheckState.Checked Then
554: CurrentProjectDocumentJobs = True
555: Else
556: CurrentProjectDocumentJobs = False
557: End If
558:
559: If CheckDocumentDTSPackages.CheckState = System.Windows.Forms.CheckState.Checked Then
560: CurrentProjectDocumentDTSPackages = True
561: Else
562: CurrentProjectDocumentDTSPackages = False
563: End If
564:
565:
566: SQL = "update t_Projects "
567: SQL = SQL & "set ProjectName = '" & CurrentProjectName & "', "
568: SQL = SQL & "HTMLOutput = " & CurrentProjectHTMLOutput & ", "
569: SQL = SQL & "HTMLHelpOutput = " & CurrentProjectHTMLHelpOutput & ", "
570: SQL = SQL & "TextOutput = " & CurrentProjectTextOutput & ", "
571: SQL = SQL & "RTFOutput = " & CurrentProjectRTFOutput & ", "
572: SQL = SQL & "DocumentTableColumnDescriptions = " & CurrentProjectDocumentTableColumnDescriptions & ", "
573: SQL = SQL & "DocumentJobs = " & CurrentProjectDocumentJobs & ", "
574: SQL = SQL & "DocumentDTSPackages = " & CurrentProjectDocumentDTSPackages & ", "
575: SQL = SQL & "ColourCodeSource = " & CurrentProjectColourCodeSource & " "
576: SQL = SQL & "where ProjectID = " & CurrentProjectID
577:
578: SQLResult = DataStore.ExecuteSQL(SQL)
579:
580: 'Clear various settings
581: CurrentProjectID = 0
582: CurrentParseID = 0
583: FormMain.DefInstance.ListParses.Items.Clear()
584: FormMain.DefInstance.CommandExtractProjectData.Enabled = False
585: FormMain.DefInstance.CommandDocumentProject.Enabled = False
586: FormMain.DefInstance.CommandEditProject.Enabled = False
587: FormMain.DefInstance.CommandViewOutputFolder.Enabled = False
588: FormMain.DefInstance.CommandViewOutputHTML.Enabled = False
589: FormMain.DefInstance.CommandViewOutputHTMLHelp.Enabled = False
590: FormMain.DefInstance.DeleteProject.Enabled = False
591: FormMain.DefInstance.DeleteParse.Enabled = True
592:
593:
594: Call FormMain.DefInstance.UpdateFormSettings()
595:
596: Me.Visible = False
597: FormEditProject.DefInstance.Close()
598:
599:
600: End Sub
601:
602: Private Sub FormEditProject_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
603:
604: Dim DataStore As New DataStoreClass
605: DataStore.SetConnectionString((ApplicationDataStoreConnectionString))
606: Dim SQL As String
607: Dim SQLResult As Boolean
608:
609: 'Additional options if adding a new project rather than editing an existing project
610: Dim NewProjectName As String
611: If CurrentAction = "ADD PROJECT" Then
612:
613: CommandEditDatabase.Enabled = False
614: CommandDeleteDatabase.Enabled = False
615: CommandEditProject.Enabled = False
616:
617: 'Add a new project to the datastore
618: NewProjectName = "NewProject "
619: NewProjectName = NewProjectName & VB.Day(Now) & " " & MonthName(Month(Now), True) & " " & Hour(Now) & "-" & Minute(Now) & "-" & Second(Now)
620: SQL = "INSERT INTO t_Projects "
621: SQL = SQL & "( "
622: SQL = SQL & "ProjectName, "
623: SQL = SQL & "HTMLOutput, "
624: SQL = SQL & "HTMLHelpOutput, "
625: SQL = SQL & "TextOutput, "
626: SQL = SQL & "RTFOutput, "
627: SQL = SQL & "ColourCodeSource, "
628: SQL = SQL & "DocumentTableColumnDescriptions, "
629: SQL = SQL & "DocumentJobs, "
630: SQL = SQL & "DocumentDTSPackages "
631: SQL = SQL & ") "
632: SQL = SQL & " VALUES "
633: SQL = SQL & "("
634: SQL = SQL & "'" & NewProjectName & "', "
635: SQL = SQL & "True, "
636: SQL = SQL & "False, "
637: SQL = SQL & "False, "
638: SQL = SQL & "True, "
639: SQL = SQL & "True, "
640: SQL = SQL & "True, "
641: SQL = SQL & "True, "
642: SQL = SQL & "True "
643: SQL = SQL & ")"
644:
645: CurrentProjectID = DataStore.ExecuteSQLReturnIdentity(SQL)
646: CurrentProjectName = NewProjectName
647: TextProjectName.Text = CurrentProjectName
648: CheckHTML.CheckState = System.Windows.Forms.CheckState.Checked
649: CheckHTMLHelp.CheckState = System.Windows.Forms.CheckState.Unchecked
650: CheckText.CheckState = System.Windows.Forms.CheckState.Checked
651: CheckRTF.CheckState = System.Windows.Forms.CheckState.Checked
652: CheckColourCodeSource.CheckState = System.Windows.Forms.CheckState.Checked
653: CheckTableColumnDescriptions.CheckState = System.Windows.Forms.CheckState.Checked
654: CheckDocumentJobs.CheckState = System.Windows.Forms.CheckState.Checked
655: CheckDocumentDTSPackages.CheckState = System.Windows.Forms.CheckState.Checked
656:
657: 'Editing an existing project
658: Else
659:
660: TextProjectName.Text = CurrentProjectName
661:
662: If CurrentProjectHTMLOutput Then
663: CheckHTML.CheckState = System.Windows.Forms.CheckState.Checked
664: Else
665: '??? This output option is mandatory for the moment
666: CheckHTML.CheckState = System.Windows.Forms.CheckState.Checked
667: End If
668:
669: If CurrentProjectHTMLHelpOutput Then
670: CheckHTMLHelp.CheckState = System.Windows.Forms.CheckState.Checked
671: Else
672: CheckHTMLHelp.CheckState = System.Windows.Forms.CheckState.Unchecked
673: End If
674:
675: If CurrentProjectTextOutput Then
676: CheckText.CheckState = System.Windows.Forms.CheckState.Checked
677: Else
678: CheckText.CheckState = System.Windows.Forms.CheckState.Unchecked
679: End If
680:
681: If CurrentProjectRTFOutput Then
682: CheckRTF.CheckState = System.Windows.Forms.CheckState.Checked
683: Else
684: CheckRTF.CheckState = System.Windows.Forms.CheckState.Unchecked
685: End If
686:
687: If CurrentProjectColourCodeSource Then
688: CheckColourCodeSource.CheckState = System.Windows.Forms.CheckState.Checked
689: Else
690: CheckColourCodeSource.CheckState = System.Windows.Forms.CheckState.Unchecked
691: End If
692:
693: If CurrentProjectDocumentTableColumnDescriptions Then
694: CheckTableColumnDescriptions.CheckState = System.Windows.Forms.CheckState.Checked
695: Else
696: CheckTableColumnDescriptions.CheckState = System.Windows.Forms.CheckState.Unchecked
697: End If
698:
699: If CurrentProjectDocumentJobs Then
700: CheckDocumentJobs.CheckState = System.Windows.Forms.CheckState.Checked
701: Else
702: CheckDocumentJobs.CheckState = System.Windows.Forms.CheckState.Unchecked
703: End If
704:
705: If CurrentProjectDocumentDTSPackages Then
706: CheckDocumentDTSPackages.CheckState = System.Windows.Forms.CheckState.Checked
707: Else
708: CheckDocumentDTSPackages.CheckState = System.Windows.Forms.CheckState.Unchecked
709: End If
710:
711: End If
712:
713: Call UpdateFormSettings()
714:
715: End Sub
716:
717: Public Sub UpdateFormSettings()
718:
719: Dim DataStore As New DataStoreClass
720: Dim SQL As String
721: Dim i As Integer
722:
723: ListDatabases.Items.Clear()
724:
725: DataStore.SetConnectionString((ApplicationDataStoreConnectionString))
726: DatabasesDictionary.RemoveAll()
727:
728:
729: 'Dim ProjectsRecordSet As ADODB.Recordset
730: SQL = "SELECT * FROM t_Databases WHERE fk_ProjectID = " & CurrentProjectID & " ORDER BY DatabaseName"
731:
732: 'Set ProjectsRecordSet = DataStore.GetRecordSet(SQL)
733: &n