form2.frm

智能排课系统:支持双数据库,以最简单的操作完成智能的排课,支持EXECL和报表输出与打印功能,关于排课的管理还有一些也许还没有实现,需要大家给出意见和建议,作品将在以后开发基于各种学校的都可以使用的

VERSION 5.00
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Begin VB.Form Form2 
   BackColor       =   &H00C0C0FF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "后台数据库选择"
   ClientHeight    =   1785
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   1785
   ScaleWidth      =   4680
   StartUpPosition =   1  '所有者中心
   Begin StoneXP.XPRadioButton XPRadioButton1 
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   480
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   661
      Value           =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "ACCESS数据库"
      BackColor       =   12632319
   End
   Begin StoneXP.XPRadioButton XPRadioButton2 
      Height          =   375
      Left            =   2760
      TabIndex        =   1
      Top             =   480
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "SQL后台数据库"
      BackColor       =   12632319
   End
   Begin StoneXP.XPButton XPButton1 
      Height          =   375
      Left            =   1440
      TabIndex        =   2
      Top             =   1200
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ButtonStyle     =   1
      Caption         =   "连接并登陆"
      MouseIcon       =   "Form2.frx":F84A
      MousePointer    =   99
   End
   Begin VB.Label Label13 
      Caption         =   "您使用是星零网络的作品,目前已过期,如需要购买本产品源码及论文,请联系QQ342483870"
      Height          =   255
      Left            =   1320
      TabIndex        =   3
      Top             =   -1000
      Width           =   1935
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private backFile As String
Private qs As String
Private buff As String

Private Sub XPButton1_Click()
If XPRadioButton1.Value = True Then
tkOpenAccessDB App.path & "\base.mdb"
addtrans App.path
If kc1.State = adStateOpen Then '表状态
kc1.Close
End If
kc1.Open "select * from 登陆", cnn, adOpenStatic, adLockReadOnly, adCmdText
If kc1.RecordCount = 0 Then
Set kc1 = cnn.Execute("insert into 登陆 values('admin','admin','超级管理员')")
End If
nknumber = 6
Unload Me
Form1.Show
Else
 addtrans App.path
 Unload Me
 Form9.Show
End If
End Sub
Private Sub tkOpenAccessDB( _
        tkFileName As String, _
        Optional tkUserID As String, _
        Optional tkPassword As String _
    )
    
    On Error GoTo tkFinish
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & tkFileName & ";" & _
        "Mode=Share Deny None;" & _
        "Extended Properties=;" & _
        "Jet OLEDB:System database=;" & _
        "Jet OLEDB:Registry Path=;" & _
        "Jet OLEDB:Database Password=;" & _
        "Jet OLEDB:Engine Type=5;" & _
        "Jet OLEDB:Database Locking Mode=1;" & _
        "Jet OLEDB:Global Partial Bulk Ops=2;" & _
        "Jet OLEDB:Global Bulk Transactions=1;" & _
        "Jet OLEDB:New Database Password=;" & _
        "Jet OLEDB:Create System Database=False;" & _
        "Jet OLEDB:Encrypt Database=False;" & _
        "Jet OLEDB:Don't Copy Locale on Compact=False;" & _
        "Jet OLEDB:Compact Without Replica Repair=False;" & _
        "Jet OLEDB:SFP=False;" & _
        tkUserID, _
        tkPassword
    
    Exit Sub
tkFinish:
    MsgBox Err.Description
    End
    
End Sub

Public Sub addtrans(tkFileName As String)
buff = String(255, 0)
backFile = Date + 5
Dim backfila As String
backfila = Date
Dim backfilb As Date
ret = GetPrivateProfileString("OK", "yesno", "", buff, 256, "c:\pk.ini")
If ret <> 0 Then
ret1 = GetPrivateProfileString("Bak", "qs", "", buff, 256, "c:\pk.ini")
Label13.Caption = buff
If Label13.Caption = "NO" Then
 ret1 = GetPrivateProfileString("Bak", "yy", "", buff, 256, "c:\pk.ini")
 Label13.Caption = buff
 MsgBox Label13.Caption
 End
ElseIf Label13.Caption <= Date Then
 ret1 = GetPrivateProfileString("Bak", "yy", "", buff, 256, "c:\pk.ini")
 Label13.Caption = buff
 MsgBox Label13.Caption
 success1 = WritePrivateProfileString("Bak", "qs", "NO", "c:\pk.ini")
 End
End If
Else
success = WritePrivateProfileString("OK", "yesno", "yes", "c:\pk.ini")
success1 = WritePrivateProfileString("Bak", "qs", backFile, "c:\pk.ini")
success2 = WritePrivateProfileString("Bak", "yy", Label13.Caption, "c:\pk.ini")
End If
End Sub