frmgai.frm

教学资源管理系统

VERSION 5.00
Begin VB.Form frmGai 
   BackColor       =   &H00F6F6F6&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "修改"
   ClientHeight    =   5580
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6195
   ClipControls    =   0   'False
   Icon            =   "frmGai.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5580
   ScaleWidth      =   6195
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.ComboBox cmbNianji 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000E&
      ForeColor       =   &H80000007&
      Height          =   300
      ItemData        =   "frmGai.frx":030A
      Left            =   3960
      List            =   "frmGai.frx":035C
      Style           =   2  'Dropdown List
      TabIndex        =   17
      Top             =   240
      Width           =   1815
   End
   Begin VB.ComboBox cmbKemu 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000E&
      ForeColor       =   &H80000007&
      Height          =   300
      ItemData        =   "frmGai.frx":04F0
      Left            =   840
      List            =   "frmGai.frx":0527
      Style           =   2  'Dropdown List
      TabIndex        =   16
      Top             =   840
      Width           =   1815
   End
   Begin VB.ComboBox cmbGongju 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000E&
      ForeColor       =   &H80000007&
      Height          =   300
      ItemData        =   "frmGai.frx":059D
      Left            =   1080
      List            =   "frmGai.frx":05E0
      TabIndex        =   15
      Top             =   3840
      Width           =   4815
   End
   Begin VB.TextBox txtZuozhe 
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   840
      TabIndex        =   12
      Top             =   1440
      Width           =   2175
   End
   Begin VB.TextBox txtJieshao 
      Appearance      =   0  'Flat
      Height          =   975
      Left            =   840
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   11
      Top             =   2520
      Width           =   5055
   End
   Begin VB.TextBox txtTitle 
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   840
      TabIndex        =   5
      Top             =   2040
      Width           =   5055
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   3480
      TabIndex        =   1
      Top             =   4800
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   1680
      TabIndex        =   0
      Top             =   4800
      Width           =   1215
   End
   Begin VB.Label Label9 
      BackColor       =   &H00F6F6F6&
      Caption         =   "开发工具："
      Height          =   255
      Left            =   120
      TabIndex        =   14
      Top             =   3910
      Width           =   1095
   End
   Begin VB.Label Label8 
      BackColor       =   &H00F6F6F6&
      Caption         =   "科 目："
      Height          =   255
      Left            =   120
      TabIndex        =   13
      Top             =   840
      Width           =   855
   End
   Begin VB.Label labType 
      BackColor       =   &H00F6F6F6&
      Height          =   255
      Left            =   840
      TabIndex        =   10
      Top             =   240
      Width           =   2055
   End
   Begin VB.Label Label7 
      BackColor       =   &H00F6F6F6&
      Caption         =   "介  绍："
      Height          =   255
      Left            =   120
      TabIndex        =   9
      Top             =   2760
      Width           =   735
   End
   Begin VB.Label Label6 
      BackColor       =   &H00F6F6F6&
      Caption         =   "作  者："
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label labFileSize 
      BackColor       =   &H00F6F6F6&
      Height          =   255
      Left            =   3960
      TabIndex        =   7
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label Label5 
      BackColor       =   &H00F6F6F6&
      Caption         =   "大  小："
      Height          =   255
      Left            =   3120
      TabIndex        =   6
      Top             =   840
      Width           =   1095
   End
   Begin VB.Label Label4 
      BackColor       =   &H00F6F6F6&
      Caption         =   "标  题："
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   2040
      Width           =   735
   End
   Begin VB.Label Label3 
      BackColor       =   &H00F6F6F6&
      Caption         =   "年  级："
      Height          =   255
      Left            =   3120
      TabIndex        =   3
      Top             =   240
      Width           =   855
   End
   Begin VB.Label Label2 
      BackColor       =   &H00F6F6F6&
      Caption         =   "类  型："
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   240
      Width           =   735
   End
End
Attribute VB_Name = "frmGai"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public OK As Boolean
Private Sub Command2_Click()
     OK = False
    Me.Hide
End Sub

Private Sub Command1_Click()
    If Trim(Me.cmbNianji.Text) = "" Then
        MsgBox "年级不能为空！", , "提示"
        Me.cmbNianji.SetFocus
        Exit Sub
    End If
    If Trim(Me.cmbKemu.Text) = "" Then
        MsgBox "科目不能为空！", , "提示"
        Me.cmbKemu.SetFocus
        Exit Sub
    End If
    If Trim(Me.txtTitle.Text) = "" Then
        MsgBox "标题不能为空！", , "提示"
        Me.txtTitle.SetFocus
        Exit Sub
    End If
    OK = True
    Me.Hide
End Sub

Private Sub Form_Load()
     OK = False
End Sub