mdiform1.frm

查询上网记录部分源程序

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "铜陵车辆厂局域网监控管理系统"
   ClientHeight    =   5790
   ClientLeft      =   165
   ClientTop       =   165
   ClientWidth     =   8310
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
    SourcePath = "\\ns\网络监控\"
    ObjectPath = App.Path
    If Right(ObjectPath, 1) <> "\" Then
        ObjectPath = ObjectPath + "\"
    End If
    
    Form1.WindowState = 2
    Load Form1
    Form1.Show
End Sub