addprojectform.vb

一个管理系统

        Me.txtProjectName.Location = CType(resources.GetObject("txtProjectName.Location"), System.Drawing.Point)
        Me.txtProjectName.MaxLength = CType(resources.GetObject("txtProjectName.MaxLength"), Integer)
        Me.txtProjectName.Multiline = CType(resources.GetObject("txtProjectName.Multiline"), Boolean)
        Me.txtProjectName.Name = "txtProjectName"
        Me.txtProjectName.PasswordChar = CType(resources.GetObject("txtProjectName.PasswordChar"), Char)
        Me.txtProjectName.RightToLeft = CType(resources.GetObject("txtProjectName.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.txtProjectName.ScrollBars = CType(resources.GetObject("txtProjectName.ScrollBars"), System.Windows.Forms.ScrollBars)
        Me.txtProjectName.Size = CType(resources.GetObject("txtProjectName.Size"), System.Drawing.Size)
        Me.txtProjectName.TabIndex = CType(resources.GetObject("txtProjectName.TabIndex"), Integer)
        Me.txtProjectName.Text = resources.GetString("txtProjectName.Text")
        Me.txtProjectName.TextAlign = CType(resources.GetObject("txtProjectName.TextAlign"), System.Windows.Forms.HorizontalAlignment)
        Me.txtProjectName.Visible = CType(resources.GetObject("txtProjectName.Visible"), Boolean)
        Me.txtProjectName.WordWrap = CType(resources.GetObject("txtProjectName.WordWrap"), Boolean)
        '
        'Label2
        '
        Me.Label2.AccessibleDescription = resources.GetString("Label2.AccessibleDescription")
        Me.Label2.AccessibleName = resources.GetString("Label2.AccessibleName")
        Me.Label2.Anchor = CType(resources.GetObject("Label2.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.Label2.AutoSize = CType(resources.GetObject("Label2.AutoSize"), Boolean)
        Me.Label2.Dock = CType(resources.GetObject("Label2.Dock"), System.Windows.Forms.DockStyle)
        Me.Label2.Enabled = CType(resources.GetObject("Label2.Enabled"), Boolean)
        Me.Label2.Font = CType(resources.GetObject("Label2.Font"), System.Drawing.Font)
        Me.Label2.Image = CType(resources.GetObject("Label2.Image"), System.Drawing.Image)
        Me.Label2.ImageAlign = CType(resources.GetObject("Label2.ImageAlign"), System.Drawing.ContentAlignment)
        Me.Label2.ImageIndex = CType(resources.GetObject("Label2.ImageIndex"), Integer)
        Me.Label2.ImeMode = CType(resources.GetObject("Label2.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Label2.Location = CType(resources.GetObject("Label2.Location"), System.Drawing.Point)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = CType(resources.GetObject("Label2.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.Label2.Size = CType(resources.GetObject("Label2.Size"), System.Drawing.Size)
        Me.Label2.TabIndex = CType(resources.GetObject("Label2.TabIndex"), Integer)
        Me.Label2.Text = resources.GetString("Label2.Text")
        Me.Label2.TextAlign = CType(resources.GetObject("Label2.TextAlign"), System.Drawing.ContentAlignment)
        Me.Label2.Visible = CType(resources.GetObject("Label2.Visible"), Boolean)
        '
        'txtDescription
        '
        Me.txtDescription.AccessibleDescription = resources.GetString("txtDescription.AccessibleDescription")
        Me.txtDescription.AccessibleName = resources.GetString("txtDescription.AccessibleName")
        Me.txtDescription.Anchor = CType(resources.GetObject("txtDescription.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.txtDescription.AutoSize = CType(resources.GetObject("txtDescription.AutoSize"), Boolean)
        Me.txtDescription.BackgroundImage = CType(resources.GetObject("txtDescription.BackgroundImage"), System.Drawing.Image)
        Me.txtDescription.Dock = CType(resources.GetObject("txtDescription.Dock"), System.Windows.Forms.DockStyle)
        Me.txtDescription.Enabled = CType(resources.GetObject("txtDescription.Enabled"), Boolean)
        Me.txtDescription.Font = CType(resources.GetObject("txtDescription.Font"), System.Drawing.Font)
        Me.txtDescription.ImeMode = CType(resources.GetObject("txtDescription.ImeMode"), System.Windows.Forms.ImeMode)
        Me.txtDescription.Location = CType(resources.GetObject("txtDescription.Location"), System.Drawing.Point)
        Me.txtDescription.MaxLength = CType(resources.GetObject("txtDescription.MaxLength"), Integer)
        Me.txtDescription.Multiline = CType(resources.GetObject("txtDescription.Multiline"), Boolean)
        Me.txtDescription.Name = "txtDescription"
        Me.txtDescription.PasswordChar = CType(resources.GetObject("txtDescription.PasswordChar"), Char)
        Me.txtDescription.RightToLeft = CType(resources.GetObject("txtDescription.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.txtDescription.ScrollBars = CType(resources.GetObject("txtDescription.ScrollBars"), System.Windows.Forms.ScrollBars)
        Me.txtDescription.Size = CType(resources.GetObject("txtDescription.Size"), System.Drawing.Size)
        Me.txtDescription.TabIndex = CType(resources.GetObject("txtDescription.TabIndex"), Integer)
        Me.txtDescription.Text = resources.GetString("txtDescription.Text")
        Me.txtDescription.TextAlign = CType(resources.GetObject("txtDescription.TextAlign"), System.Windows.Forms.HorizontalAlignment)
        Me.txtDescription.Visible = CType(resources.GetObject("txtDescription.Visible"), Boolean)
        Me.txtDescription.WordWrap = CType(resources.GetObject("txtDescription.WordWrap"), Boolean)
        '
        'AddProjectForm
        '
        Me.AcceptButton = Me.btnOk
        Me.AccessibleDescription = resources.GetString("$this.AccessibleDescription")
        Me.AccessibleName = resources.GetString("$this.AccessibleName")
        Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.CancelButton = Me.btnCancel
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.txtProjectName, Me.Label2, Me.txtDescription, Me.btnCancel, Me.btnOk})
        Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximizeBox = False
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "AddProjectForm"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ShowInTaskbar = False
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private m_DataLayer As DataLayer
    Private m_ResourceManager As New Resources.ResourceManager("TaskVision.Localize", System.Reflection.Assembly.GetExecutingAssembly())

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        If txtProjectName.Text.Trim() <> String.Empty Then

            Dim projectID As Integer = -1
            Dim dlResult As DataLayerResult = m_DataLayer.InsertProject(projectID, txtProjectName.Text.Trim(), txtDescription.Text.Trim())

            'if database update was successful add the project to our local data
            If (dlResult = DataLayerResult.Success) Then
                Dim dr As DataRow = m_DataLayer.DsProjects.Projects.NewRow
                dr.Item("ProjectID") = projectID
                dr.Item("ProjectName") = txtProjectName.Text.Trim()
                dr.Item("ProjectDescription") = txtDescription.Text.Trim()
                dr.Item("DateCreated") = DateTime.Now
                m_DataLayer.DsProjects.Projects.Rows.Add(dr)
            Else
                MessageBox.Show(m_ResourceManager.GetString("Unable_to_add_project"))
                Me.DialogResult = DialogResult.None
            End If
        Else
            Me.DialogResult = DialogResult.None
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub
End Class