VERSION 5.00
Object = "{DAAC6951-59A4-4C08-9D6E-FE3919B64861}#1.0#0"; "FlexCell.ocx"
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Begin VB.Form usermanage 
   BorderStyle     =   0  'None
   Caption         =   "用戶管理"
   ClientHeight    =   5025
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5760
   Icon            =   "usermanage.frx":0000
   LinkTopic       =   "usermanage"
   MaxButton       =   0   'False
   ScaleHeight     =   5025
   ScaleWidth      =   5760
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton XPButton5 
      Caption         =   "退 出"
      Height          =   375
      Left            =   4320
      TabIndex        =   5
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton XPButton4 
      Caption         =   "刪 除"
      Height          =   375
      Left            =   3360
      TabIndex        =   4
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton XPButton3 
      Caption         =   "修 改"
      Height          =   375
      Left            =   2400
      TabIndex        =   3
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton XPButton2 
      Caption         =   "保 存"
      Height          =   375
      Left            =   1440
      TabIndex        =   2
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton XPButton1 
      Caption         =   "新 增"
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   4560
      Width           =   975
   End
   Begin FlexCell.Grid Grid1 
      Height          =   4215
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5775
      _ExtentX        =   10186
      _ExtentY        =   7435
      Appearance      =   0
      Cols            =   5
      Rows            =   30
   End
   Begin ACTIVESKINLibCtl.Skin PKSkn 
      Left            =   0
      OleObjectBlob   =   "usermanage.frx":000C
      Top             =   0
   End
   Begin VB.Menu cz 
      Caption         =   "操作"
      Visible         =   0   'False
      Begin VB.Menu renovate 
         Caption         =   "刷新"
      End
   End
End
Attribute VB_Name = "usermanage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Private Declare Function GetKeyState Lib "user32" _
   (ByVal nVirtKey As Long) As Integer
Dim gcolor1, gcolor2 As String
Dim m, n As Integer


Private Sub Form_Load()
Grid1.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '進(jìn)行注冊(cè)
PKSkn.LoadSkin App.Path & "\chizh.skn"
PKSkn.ApplySkinByName hWnd, "窗體"
PKSkn.ApplySkin Me.hWnd
With Grid1
    .AllowUserResizing = True
    .DisplayFocusRect = False
    .ExtendLastCol = True
    .Appearance = Flat
    .FixedRowColStyle = Flat
    .ScrollBarStyle = Flat
    
    .DefaultFont.Name = "Tahoma"
    .DefaultFont.SIZE = 8
    .BackColorFixed = RGB(123, 124, 125) 'RGB(90, 158, 214)
    .BackColorFixedSel = RGB(123, 124, 125) 'RGB(110, 180, 230)
    .BackColorBkg = RGB(123, 124, 125) 'RGB(90, 158, 214)
    .BackColorScrollBar = RGB(123, 124, 125) 'RGB(231, 235, 247)
    .BackColor1 = RGB(231, 235, 247)
    .BackColor2 = RGB(239, 243, 255)
    .GridColor = RGB(123, 124, 125) 'RGB(148, 190, 231)
    .Column(0).Width = 0
    .Column(1).Width = 100
    .Column(2).Width = 100
    .Column(3).Width = 100
End With
    Call callmain
End Sub

Private Sub callmain()
kcsave = False
kcedit = True
kcdel = True
Set kc1 = cnn.Execute("select * from " & kctable)

Select Case kctable
Case "班級(jí)名稱"
Grid1.Rows = 1 '清除所有記錄
Case "登陸"
Grid1.Column(3).CellType = cellComboBox
Grid1.ComboBox(3).Clear
Grid1.ComboBox(3).AddItem "超級(jí)管理員"
Grid1.ComboBox(3).AddItem "一般用戶"
Grid1.Rows = 1 '清除所有記錄
End Select

Grid1.Cols = kc1.Fields.Count + 1 '必須+1,因?yàn)閷?shí)際上為4行,但第一行是隱藏的
For i = 0 To kc1.Fields.Count - 1  '顯示數(shù)據(jù)的字段名
Grid1.Cell(0, i + 1).Text = kc1.Fields(i).Name  '讀取表中的各字段名
Next
i = 1
Do While Not kc1.EOF
 Grid1.Rows = Grid1.Rows + 1
 For j = 1 To kc1.Fields.Count '設(shè)定讀取列
 If kc1.Fields(j - 1) = Null Then '空值的處理
 Grid1.Cell(i, j).Text = ""
 Else
 Grid1.Cell(i, j).Text = kc1.Fields(j - 1)
 End If
 Next
  i = i + 1
 kc1.MoveNext '讀取下一記錄
Loop
Grid1.Column(1).Locked = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call XPButton5_Click
End Sub

Private Sub Grid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu cz
End If
End Sub

Private Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long)
hang = Row
End Sub

Private Sub Grid1_Validate(Cancel As Boolean) '設(shè)定TAB鍵切換
Dim nActiveRow As Long, nActiveCol As Long
    Const VK_TAB = 9

    If GetKeyState(VK_TAB) < 0 Then
        nActiveRow = Grid1.ActiveCell.Row
        nActiveCol = Grid1.ActiveCell.Col
        If nActiveCol < Grid1.Cols - 1 Then
            Grid1.Range(nActiveRow, nActiveCol + 1, _
                        nActiveRow, nActiveCol + 1).Selected
        End If
        Cancel = True
    End If
    End Sub

Private Sub renovate_Click()
Call callmain
End Sub

Private Sub XPButton1_Click()
kcsave = True
kcedit = False
kcdel = False
Set kc1 = cnn.Execute("select * from " & kctable)
Grid1.Rows = 1 '清除所有記錄
Grid1.Rows = 9 '默認(rèn)為2行
For i = 0 To kc1.Fields.Count - 1 '顯示數(shù)據(jù)的字段名
Grid1.Cell(0, i + 1).Text = kc1.Fields(i).Name  '讀取表中的各字段名
Next
Grid1.Column(1).Locked = False
Grid1.Cell(1, 1).SetFocus
End Sub

Private Sub XPButton2_Click()
If kcsave = False Then
MsgBox "不支持保存操作！", vbInformation, "當(dāng)前不支持"
Exit Sub
End If
If m <> 0 And n <> 0 Then
Grid1.Range(m, 1, m, Grid1.Cols - 1).BackColor = gcolor1
Grid1.Range(n, 1, n, Grid1.Cols - 1).BackColor = gcolor2
End If
For i = 1 To Grid1.Rows - 1 '從第一行到最后一行檢測(cè)有些必要數(shù)據(jù)用戶是否填完整了
 For j = i + 1 To Grid1.Rows - 1
  If Grid1.Cell(i, 1).Text <> "" Then
   If Grid1.Cell(i, 2).Text = "" Or Grid1.Cell(i, 3).Text = "" Then
   MsgBox "第" & i & "行的數(shù)據(jù)請(qǐng)?zhí)钔暾?", vbInformation, "錯(cuò)誤提示"
   Grid1.Cell(i, 2).SetFocus
   Exit Sub
   End If
  If Grid1.Cell(i, 1).Text = Grid1.Cell(j, 1).Text Then
  MsgBox "第" & i & "行與" & j & "行的數(shù)據(jù)出現(xiàn)重復(fù)，請(qǐng)修改!", vbInformation, "重復(fù)錯(cuò)誤"
  m = i
  n = j
  gcolor1 = Grid1.Cell(m, 1).BackColor '這里主要是檢測(cè)出有同名的數(shù)據(jù)，就將相同的兩行變色顯示，方便用戶看出
  gcolor2 = Grid1.Cell(n, 1).BackColor
  Grid1.Range(i, 1, i, Grid1.Cols - 1).BackColor = RGB(90, 158, 214)
  Grid1.Range(j, 1, j, Grid1.Cols - 1).BackColor = RGB(90, 158, 214)
  Exit Sub
  End If
  End If
 Next
Next
For i = 1 To Grid1.Rows - 1 '這里是每一行分別組織一個(gè)插入語句，并把數(shù)據(jù)寫入數(shù)據(jù)庫
If Grid1.Cell(i, 1).Text <> "" Then
Set kc1 = cnn.Execute("select * from " & kctable & " where " & Grid1.Cell(0, 1).Text & "='" & Grid1.Cell(i, 1).Text & "'")
  If kc1.EOF = True Then
   Set kc1 = cnn.Execute("insert into " & kctable & " values('" & Grid1.Cell(i, 1).Text & "','" & Grid1.Cell(i, 2).Text & "','" & Grid1.Cell(i, 3).Text & "')")
     '--------------------
    If kctable = "班級(jí)名稱" Then
    Dim num As Integer
     num = 7 * nknumber
     For j = 1 To num
     sql = sql & "0"
     Next
    Set kc2 = cnn.Execute("insert into 課程占用 values('" & Grid1.Cell(i, 1).Text & "','" & sql & "')")
    End If
    formmain.XPCombo1.Clear
    Set kc2 = cnn.Execute("select 班級(jí)名稱 from 班級(jí)名稱")
    Do While Not kc2.EOF
    formmain.XPCombo1.AddItem kc2.Fields(0)
    kc2.MoveNext
    Loop
  '---------------------
  Else
  MsgBox "名稱[" & Grid1.Cell(i, 1).Text & "]已存在！", vbInformation, "跳過"
  End If
End If
Next
  MsgBox "您已經(jīng)成功提交內(nèi)容！", vbInformation, "提交成功"
  Call callmain
End Sub

Private Sub XPButton3_Click()
If kcedit = False Then
MsgBox "當(dāng)前修改操作不被允許!", vbInformation, "非使用對(duì)象"
Exit Sub
End If
      For i = 1 To Grid1.Rows - 1
            Set kc1 = cnn.Execute("update " & kctable & " set " & Grid1.Cell(0, 2).Text & "='" & Grid1.Cell(i, 2).Text & "'," & Grid1.Cell(0, 3).Text & "='" & Grid1.Cell(i, 3).Text & "' where " & Grid1.Cell(0, 1).Text & "='" & Grid1.Cell(i, 1).Text & "'")
      Next
     MsgBox "數(shù)據(jù)己經(jīng)修改完成", vbInformation, "修改成功"
     Call callmain
End Sub

Private Sub XPButton4_Click()
If kcdel = False Then
MsgBox "當(dāng)前刪除操作不被允許!", vbInformation, "非使用對(duì)象"
Exit Sub
End If
If hang = 0 Then
Exit Sub
End If
If Grid1.Cell(hang, 1).Text = "" Then
Exit Sub
End If
If kctable = "班級(jí)名稱" Then
  Set kc1 = cnn.Execute("select count(所屬班級(jí)) from 臨時(shí)生成表 where 所屬班級(jí)='" & Grid1.Cell(hang, 1).Text & "'")
  If kc1.Fields(0) > 0 Then
     MsgBox "該班級(jí)仍然占用了教師的排課資源，請(qǐng)先注銷該班級(jí)的課程表", vbInformation, "提示"
     Exit Sub
  Else
     Set kc1 = cnn.Execute("select count(班級(jí)) from 公共教室指定 where 班級(jí)='" & Grid1.Cell(hang, 1).Text & "'")
     If kc1.Fields(0) > 0 Then
     MsgBox "該班級(jí)占用了教師的公共教室資源，請(qǐng)先注銷公共教室指定", vbInformation, "提示"
     Exit Sub
     Else
     Set kc1 = cnn.Execute("delete from 課程信息 where 所屬班級(jí)='" & Grid1.Cell(hang, 1).Text & "'")
     Set kc1 = cnn.Execute("delete from 課程占用 where 班級(jí)='" & Grid1.Cell(hang, 1).Text & "'")
     End If
  End If
End If

Set kc1 = cnn.Execute("delete from " & kctable & " where " & Grid1.Cell(0, 1).Text & "='" & Grid1.Cell(hang, 1).Text & "'")
MsgBox "目標(biāo)己刪除,請(qǐng)刷新數(shù)據(jù)!", vbInformation, "刪除成功"
Call callmain
End Sub

Private Sub XPButton5_Click()
Unload Me
'Form1.WindowState = 0
End Sub