frm_main.frm

此系统是用VB编写的

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   8475
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   13830
   LinkTopic       =   "Form1"
   Picture         =   "frm_main.frx":0000
   ScaleHeight     =   8475
   ScaleWidth      =   13830
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.TextBox Text1 
      Height          =   735
      Left            =   11040
      TabIndex        =   7
      Text            =   "Text1"
      Top             =   6840
      Width           =   1935
   End
   Begin VB.Timer Timer1 
      Interval        =   60
      Left            =   720
      Top             =   7320
   End
   Begin VB.CheckBox Check6 
      Caption         =   "Check6"
      Height          =   375
      Left            =   5640
      TabIndex        =   6
      Top             =   6000
      Visible         =   0   'False
      Width           =   1575
   End
   Begin VB.CheckBox Check5 
      Caption         =   "Check5"
      Height          =   375
      Left            =   5640
      TabIndex        =   5
      Top             =   5040
      Visible         =   0   'False
      Width           =   1575
   End
   Begin VB.CheckBox Check4 
      Caption         =   "Check4"
      Height          =   375
      Left            =   5640
      TabIndex        =   4
      Top             =   4200
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.CheckBox Check3 
      Caption         =   "Check3"
      Height          =   375
      Left            =   5640
      TabIndex        =   3
      Top             =   3360
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.CheckBox Check2 
      Caption         =   "Check2"
      Height          =   375
      Left            =   5640
      TabIndex        =   2
      Top             =   2520
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Check1"
      Height          =   375
      Left            =   5640
      TabIndex        =   1
      Top             =   1680
      Visible         =   0   'False
      Width           =   1455
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   7980
      Width           =   13830
      _ExtentX        =   24395
      _ExtentY        =   873
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5556
            MinWidth        =   5556
            Text            =   "长春市明日科技有限责任公司制作"
            TextSave        =   "长春市明日科技有限责任公司制作"
            Object.ToolTipText     =   "长春市明日科技有限责任公司"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Object.Width           =   5074
            MinWidth        =   5074
            TextSave        =   "2008-3-21"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5810
            MinWidth        =   5810
            Text            =   "当前操作员：Admin"
            TextSave        =   "当前操作员：Admin"
            Object.ToolTipText     =   "当前操作员"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5810
            MinWidth        =   5810
            Text            =   "www.mingrisoft.com"
            TextSave        =   "www.mingrisoft.com"
            Object.ToolTipText     =   "网址"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
frm_main.StatusBar1.Panels(1).Text = "当前操作：  " & Me.Caption
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels.Item(2).Text = Format(Now, "yyyy年mm月dd日 hh点mm分ss秒")
End Sub
Private Sub Form_Activate()
If Check1.Value = 1 Then
STSZ.Enabled = True
ElseIf Check1.Value = 0 Then
STSZ.Enabled = False
Else
End If
If Check2.Value = 1 Then
CGGL.Enabled = True
ElseIf Check2.Value = 0 Then
CGGL.Enabled = False
Else
End If
If Check3.Value = 1 Then
DHGL.Enabled = True
ElseIf Check3.Value = 0 Then
DHGL.Enabled = False
Else
End If
If Check4.Value = 1 Then
THGL.Enabled = True
ElseIf Check4.Value = 0 Then
THGL.Enabled = False
Else
End If
If Check5.Value = 1 Then
XSGL.Enabled = True
ElseIf Check5.Value = 0 Then
XSGL.Enabled = False
Else
End If
If Check6.Value = 1 Then
BBTJ.Enabled = True
ElseIf Check6.Value = 0 Then
BBTJ.Enabled = False
Else
End If
End Sub