form3.frm

高校排课系统.这个小程序使用了皮肤控件

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Begin VB.Form Form3 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "系统配置"
   ClientHeight    =   3090
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4680
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton XPButton1 
      Caption         =   "确定提交"
      Height          =   375
      Left            =   1440
      TabIndex        =   3
      Top             =   1440
      Width           =   1335
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
      Height          =   255
      Left            =   960
      OleObjectBlob   =   "Form3.frx":000C
      TabIndex        =   0
      Top             =   600
      Width           =   1215
   End
   Begin 排课系统.XPCombo XPCombo1 
      Height          =   315
      Left            =   2170
      TabIndex        =   1
      Top             =   570
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   556
      Text            =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Locked          =   -1  'True
   End
   Begin ACTIVESKINLibCtl.Skin PKSkn 
      Left            =   120
      OleObjectBlob   =   "Form3.frx":0078
      Top             =   480
   End
   Begin VB.Label Label2 
      Caption         =   "提示：请添入您所在学校每天的课程分为几节！"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   2640
      Width           =   3855
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
pkskn.LoadSkin App.Path & "\chizh.skn"
pkskn.ApplySkinByName hWnd, "窗体"
pkskn.ApplySkin Me.hWnd
XPCombo1.Clear
For i = 6 To 8
XPCombo1.AddItem Str(i)
Next
End Sub

Private Sub Label1_Click()

End Sub

Private Sub XPButton1_Click()
If XPCombo1.Text <> "" Then
Set kc1 = cnn.Execute("insert into pksystem values(" & XPCombo1.Text & ")")
nknumber = XPCombo1.Text
Set kc2 = cnn.Execute("select count(*) from 教学时间段")
 If kc2.Fields(0) < nknumber Then
   kctable = "教学时间段"
   Form5.Caption = "教学时间段管理"
   Unload Me
   Form5.Show
 Else
  Unload Me
  Form1.Show
 End If
Else
MsgBox "未填任何可执行数据"
End If
End Sub