frmpath.frm

教务管理系统,用VB 完成,以SQL SERVER 2000作为后台数据库

VERSION 5.00
Begin VB.Form FRMPATH 
   Caption         =   "系统软件路径设置"
   ClientHeight    =   2580
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   Icon            =   "FRMPATH.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2580
   ScaleWidth      =   4680
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   2625
      Left            =   0
      TabIndex        =   2
      Top             =   -30
      Width           =   4755
      Begin VB.CommandButton Command2 
         Caption         =   "取消"
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   465
         Left            =   2580
         TabIndex        =   5
         Top             =   1980
         Width           =   1095
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Default         =   -1  'True
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   465
         Left            =   930
         TabIndex        =   1
         Top             =   1980
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   465
         Left            =   720
         TabIndex        =   0
         Text            =   "：C:\Program Files\Microsoft Office"
         Top             =   870
         Width           =   3195
      End
      Begin VB.Label Label2 
         Caption         =   "例如：C:\Program Files\Microsoft Office"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF00FF&
         Height          =   585
         Left            =   540
         TabIndex        =   4
         Top             =   1380
         Width           =   4095
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "请输入OFFICE 在硬盘上的安装路径："
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   495
         Left            =   750
         TabIndex        =   3
         Top             =   240
         Width           =   3285
      End
   End
End
Attribute VB_Name = "FRMPATH"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
'If Text1.Text = "" Then
'winpath = "c:\pwin95"
'Else
WINPATH = Text1.Text
'End If
Open App.Path + "\SYSTEM\winpath.txt" For Output As #1
Write #1, WINPATH
Close #1
Unload Me
'‘Frmstart.Show 1
'Frmstart.Enabled = True
End Sub

Private Sub Command2_Click()
Unload Me
Frmstart.Show
End Sub

Private Sub Form_Load()
Dim a1 As String
Open App.Path + "\SYSTEM\winpath.txt" For Input As #1
Input #1, a1
Close #1
Text1.Text = a1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
Frmstart.Show
Frmstart.Enabled = True
End Sub