module1.vb

人事管理系统,用VB+SQL编译的

Imports System.Data
Imports System.Data.SqlClient
Module Module1
    Public mycon As SqlConnection
    Public mydad As New SqlDataAdapter
    Public myds As New DataSet
    Public mycom As New SqlCommand
    Public mycmb As SqlCommandBuilder
    Public mytable As DataTable
    Public myrow As DataRow
    Public mybox As New ComboBox
    Public myyh2 As String
    Public mima As String
    Public zzdh As String
    Public a As String
    'Public f As New main
    Public t As String
    Public dy As String
    Public Function execsql(ByVal mysql As String, ByVal mysql1 As String) As Boolean
        Try
            mycon = New SqlConnection("workstation id=(local);packet size=4096;integrated security=SSPI;data source=(local);persist security info=False;initial catalog=company")
            mycom.CommandText = mysql
            mycom.Connection = mycon
            mydad.SelectCommand = mycom
            mydad.Fill(myds, mysql1)
            mytable = myds.Tables(mysql1)
            myrow = mytable.Rows(0)
            execsql = True
        Catch ex As Exception
            execsql = False
        End Try
    End Function
    Sub changti(ByVal a, ByVal b)
        Dim frm As Form
        For Each frm In b.MdiChildren
            If frm.Text = a.text Then
                Exit Sub
            End If
        Next
        a.MdiParent = b
        a.Show()
    End Sub

End Module