企业管理

开发平台：

Visual Basic

System_Module.bas：源码内容

							Attribute VB_Name = "Module1"
Option Explicit
Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Public ServerName_Str As String
Public Conn_System As Connection
Public Conn_System3 As Connection
Public Class As New Class_System
Public Conn_System1 As New ADODB.Connection
Public Conn_System2 As New Connection
Public YesNoStr As String
Public PathStr As String
Public BakFile As String, BakFilePath As String
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub Main()
Set Conn_System = Cw_DataEnvi.Connection1
Form_user.Show
End Sub

						