两种形式的申请未显示

debugcn 发表于 Dev

用户3787881

我正在使用Visual Studio Express VB 2008和SQL Server 2008创建表单应用程序。我有两种表单。程序启动时没有显示任何形式。我可以使用两种形式作为一个程序，该怎么办。例如，在一种形式中，我要插入状态为city ..的数据类型，在另一种形式中将相同的信息用于其他内容。但是就像我说的那样，我的第一步是在一个程序中同时看到两种形式。我应该怎么做才能使其正常工作

Imports System.Data.Sql
Imports System.Data.SqlClient
' This is my main form called form1 and through it I want to call a form called Country. Belonging to the same project. How to call a form ,,country,, that I could use
Public Class Form1              

    Dim objDS As New DataSet
    Dim objDA As New SqlDataAdapter


    Public Sqlcon As New SqlConnection With {.connectionString = "server=XXX\MSSQL2008;database=TEST;Trusted_Connection=True;"}



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If hasConnection() = True Then
            MessageBox.Show("uspijesno povezano sa bazom")

        End If

        getSelc()


    End Sub
    Public Function hasConnection() As Boolean

        Try
            Sqlcon.Open()
            Sqlcon.Close()
            Return True

        Catch ex As Exception

            MessageBox.Show("Niste povezani sa bazom")
            Return False
        End Try
    End Function

    Public Function selc()

        Dim objDS = New DataSet
        Dim objDA As New SqlDataAdapter

        Sqlcon.Close()
        Sqlcon.Open()

        Dim exCommand As String = ""

        Dim myCommand As New SqlCommand


        Dim commitTransaction = Sqlcon.BeginTransaction
        Try


            myCommand = New SqlCommand("EXECUTE " & "regionSelect" & " '" & txtID.EditValue & "', '" & txtShortN.EditValue & "', N'" & txtRegion.EditValue & "', '" & txtStatus.EditValue & "'", Sqlcon)

            myCommand.Transaction = commitTransaction
            objDA.SelectCommand = myCommand
            objDA.Fill(objDS)

            commitTransaction.Commit()
            Sqlcon.Close()

            MessageBox.Show("Podaci su uspijesno poslati")

        Catch ex As Exception
            MessageBox.Show(ex.Message)
            commitTransaction.Rollback()


        End Try


    End Function

    Private Sub SimpleButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
        'insert()
    End Sub

    Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
        getSelc()
    End Sub

    Public Function getSelc()
        objDS = New DataSet
        Dim com As New SqlCommand

        Sqlcon.Close()
        Sqlcon.Open()
        GridControl1.DataSource = Nothing
        Try

            com = New SqlCommand("EXECUTE rS '" & txtID.Text & " ' , ' " & txtRegion.Text & "' , '" & txtShortN.Text & "', ' " & txtStatus.Text & " ' ", Sqlcon)

            'com = New SqlCommand("SELECT * FROM tblRegion", Sqlcon)

            objDA.SelectCommand = com
            objDA.Fill(objDS)
            com.CommandType = CommandType.StoredProcedure
            GridControl1.DataSource = objDS.Tables(0)


            objDA.Dispose()
            com.Dispose()

            Sqlcon.Close()
            MessageBox.Show("Im here")

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        'GridControl1.DataSource = Nothing

        'objDS.Tables(0).Rows.Clear()
    End Function

    Private Sub SimpleButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton4.Click

        getSelc()

        Dim newRow As DataRow
        newRow = objDS.Tables(0).NewRow
        newRow.Item(0) = txtID.EditValue
        newRow.Item(1) = txtShortN.EditValue
        newRow.Item(2) = txtRegion.EditValue
        newRow.Item(3) = txtStatus.EditValue


        objDS.Tables(0).Rows.Add(newRow)
    End Sub

    Private Sub SimpleButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton3.Click

    End Sub

    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        Country.Show()    ' => Is this a good way, and is there any better way and more efficient
    End Sub
End Class

壳

您不能在“应用程序启动”中加载多个表单。您必须先加载任何一种表单，然后再显示其Form_Load事件中的其他表单。

Private Sub StartupForm_Load(sender As Object, e As EventArgs) Handles Me.Load
   Dim form2 As New Form2
   form2.Show()
   Dim form3 As New Form3
   form3.Show()
End Sub

或者，您可以在“按钮单击”上手动加载表单。在“项目属性”窗口中将设置Form1为。StartupForm

现在，在第一个表单中添加一个按钮，button1并写下一些代码以显示另一个表单。

Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
   Dim form2 As New Form2
   form2.Show()
End Sub

另一个正在调用main方法。为此，您需要在“项目属性”窗口中分配Main方法

Module mainModule
    Sub Main()
       Dim form2 As New Form2
       form2.Show()
       Dim form3 As New Form3
       form3.ShowDialog()
    End Sub
End Module

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。