Caption         =   "平均成績"
      End
      Begin VB.Menu sclass 
         Caption         =   "所屬班級"
      End
      Begin VB.Menu acg 
         Caption         =   "所有成績"
      End
      Begin VB.Menu addcg 
         Caption         =   "輸入成績"
      End
      Begin VB.Menu cg02 
         Caption         =   "-"
      End
      Begin VB.Menu returncg 
         Caption         =   "返回"
      End
   End
   Begin VB.Menu student 
      Caption         =   "學生信息"
      Visible         =   0   'False
      Begin VB.Menu addstudent 
         Caption         =   "新增學生"
      End
      Begin VB.Menu findcg 
         Caption         =   "查詢成績"
      End
      Begin VB.Menu savestudent 
         Caption         =   "保存"
      End
      Begin VB.Menu student01 
         Caption         =   "-"
      End
      Begin VB.Menu editstudent 
         Caption         =   "提交修改"
      End
      Begin VB.Menu delstudent 
         Caption         =   "刪除對象"
      End
      Begin VB.Menu student02 
         Caption         =   "-"
      End
      Begin VB.Menu renovate 
         Caption         =   "刷新"
      End
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i, j, n As Integer
Dim sql As String
Private Declare Function GetKeyState Lib "user32" _
   (ByVal nVirtKey As Long) As Integer
Public je As Integer '記憶菜單上次數(shù)值，實現(xiàn)數(shù)據(jù)傳送

Private Sub acg_Click()
Call asPopup7_Click(False)
End Sub

Private Sub addcg_Click()
Call asPopup6_Click(False)
End Sub

Private Sub addstudent_Click()
Call asPopup2_Click(False)
End Sub

Private Sub asPopup1_Click(Cancel As Boolean)
Grid1.Visible = True
Grid2.Visible = False
tkbase = "學生信息"
fnumber = 13
sql = "select * from " & tkbase & " order by 學號 desc"
grid1pz '執(zhí)行grid1的分配空間任務
datagrid '按要求讀取數(shù)據(jù)空間
End Sub
Private Sub grid1pz() '處理grid1的操作
Grid1.Cols = fnumber + 1
Grid1.Column(1).Width = 120
Grid1.Column(2).Width = 100
Grid1.Column(3).Width = 80
Grid1.Column(4).Width = 40
Grid1.Column(5).Width = 80
Grid1.Column(6).Width = 30
Grid1.Column(7).Width = 50
Grid1.Column(8).Width = 80
Grid1.Column(9).Width = 60
Grid1.Column(10).Width = 80
Grid1.Column(11).Width = 100
Grid1.Column(12).Width = 100
Grid1.Column(13).Width = 100
Grid1.Column(4).CellType = cellComboBox
Grid1.ComboBox(4).Clear
Grid1.ComboBox(4).AddItem "男"
Grid1.ComboBox(4).AddItem "女"
Grid1.Column(5).CellType = cellCalendar
Grid1.Column(2).CellType = cellComboBox
Grid1.ComboBox(2).Clear
Set qy2 = cnn.Execute("select 班級名稱 from 班級")
Do While Not qy2.EOF
Grid1.ComboBox(2).AddItem qy2.Fields(0)
qy2.MoveNext
Loop
Grid1.Column(9).CellType = cellComboBox
Grid1.ComboBox(9).Clear
Grid1.ComboBox(9).AddItem "團員"
Grid1.ComboBox(9).AddItem "黨員"
Grid1.ComboBox(9).AddItem "無"
Grid1.Column(1).Locked = True
End Sub

Private Sub asPopup10_Click(Cancel As Boolean)
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = Form6.hWnd
fo2.Alpha = 90 / 100 * 255
Me.WindowState = vbMinimized
Load Form6
Form6.Show 1
End Sub

Private Sub asPopup2_Click(Cancel As Boolean)
Grid1.Visible = True
Grid2.Visible = False
tkbase = "學生信息"
fnumber = 13
Set qy1 = cnn.Execute("select * from " & tkbase)
grid1pz
For i = 1 To fnumber
Grid1.Cell(0, i).Text = qy1.Fields(i - 1).Name
Next
Grid1.Column(1).Locked = False
Grid1.Rows = 1
Grid1.Rows = 21
gridsave = True '允許保存
griddelete = False '拒絕刪除
gridedit = False
End Sub

Private Sub asPopup3_Click(Cancel As Boolean)
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = Form2.hWnd
fo2.Alpha = 90 / 100 * 255
Me.WindowState = vbMinimized
Load Form2
Form2.Show 1
End Sub

Private Sub asPopup4_Click(Cancel As Boolean)
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = Form4.hWnd
fo2.Alpha = 90 / 100 * 255
Me.WindowState = vbMinimized
Load Form4
Form4.Show 1
End Sub

Private Sub asPopup5_Click(Cancel As Boolean)
Frame2.Visible = True
End Sub

Private Sub asPopup6_Click(Cancel As Boolean)
Grid1.Visible = False
Grid2.Visible = True
tkbase = "學生與課程"
fnumber = 6
gridpz2
Set qy1 = cnn.Execute("select * from " & tkbase)
For i = 1 To fnumber
Grid2.Cell(0, i).Text = qy1.Fields(i - 1).Name
Next
Grid2.Rows = 1
Grid2.Rows = 21
gridsave = True
gridedit = False
griddel = False
Grid2.Column(1).Locked = False
Grid2.Column(2).Locked = True
Grid2.Column(3).Locked = False
Grid2.Column(4).Locked = True
End Sub

Private Sub asPopup7_Click(Cancel As Boolean)
Grid1.Visible = False
Grid2.Visible = True
tkbase = "學生與課程"
fnumber = 6
sql = "select * from " & tkbase & " order by 學號 asc"
gridpz2
datagrid
gridsave = False
gridedit = True
griddel = True
Grid2.Column(1).Locked = True
Grid2.Column(2).Locked = True
Grid2.Column(3).Locked = True
Grid2.Column(4).Locked = True
End Sub
Private Sub gridpz2()
Grid2.Cols = 8
Grid2.Column(1).Width = 120
Grid2.Column(3).Width = 120
Grid2.Column(1).CellType = cellComboBox
Set qy1 = cnn.Execute("select * from 課程")
Grid2.ComboBox(1).Clear
Do While Not qy1.EOF
Grid2.ComboBox(1).AddItem qy1.Fields(0) & "-" & qy1.Fields(1)
qy1.MoveNext
Loop
Grid2.Column(3).CellType = cellComboBox
Set qy1 = cnn.Execute("select 學號,名字 from 學生信息")
Grid2.ComboBox(3).Clear
Do While Not qy1.EOF
Grid2.ComboBox(3).AddItem qy1.Fields(0) & "-" & qy1.Fields(1)
qy1.MoveNext
Loop
End Sub

Private Sub asPopup8_Click(Cancel As Boolean)
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = Form7.hWnd
fo2.Alpha = 85 / 100 * 255
Load Form7
Form7.Show 1
End Sub

Private Sub asPopup9_Click(Cancel As Boolean)
End
End Sub

Private Sub c1_Click(Index As Integer) '提交內(nèi)容到函數(shù)執(zhí)行，4為當前菜單（0-4），index是按鈕數(shù)組名稱
cmove 4, Index
End Sub
Private Sub cmove(s As Integer, i As Integer) '菜單智能移動函數(shù)代碼S代表菜單的總數(shù),i代表當前移動的是數(shù)組名稱
Dim j As Integer
Dim x, y, z, x1, y1 As Integer
x = s '將x,y,z,x1賦于菜單總數(shù),x存放frame1的固定值
y = s 'y存放的是移動后的按鈕的固定值
z = s 'Z沒用上
x1 = s 'X1沒用上
j = 0 'j計算按鈕的寬度
Do While s > 0 ' 這里是通過重復計算來計算按鈕所需移動的總高度
   If je > i Then
    Do While x > i
      Do While y >= x
      j = j + 360 '360是每個按鈕的高度
      y = y - 1
      Loop
      c1(x).Top = Fre1.Height - j
      x = x - 1
    Loop
    Else
    '-----------------向上代碼
     For x = 0 To i
       For y = 0 To x
       j = j + 360
       Next
       c1(x).Top = j - 360
       j = 0
     Next
    End If
  s = s - 1
        For y1 = 0 To x1
      If y1 = i Then
       Fre2(y1).Visible = True
       Fre2(y1).Top = c1(y1).Top + c1(y1).Height
       If y1 <> z Then
       Fre2(y1).Height = c1(y1 + 1).Top - Fre2(y1).Top
       Else
       Fre2(y1).Height = Fre1.Height - c1(y1).Top - c1(y1).Height
       End If
      Else
       Fre2(y1).Visible = False
      End If
    Next
Loop
je = i '這里是記憶上次移動的按鈕數(shù)組編號
End Sub

Private Sub cgdel_Click()
Call XPButton6_Click
End Sub

Private Sub cgedit_Click()
Call XPButton4_Click
End Sub

Private Sub delstudent_Click()
Call XPButton6_Click
End Sub

Private Sub editstudent_Click()
Call XPButton4_Click
End Sub

Private Sub findcg_Click()
If hang = 0 Then
Exit Sub
End If
Grid1.Visible = False
Grid2.Visible = True
tkbase = "學生與課程"
fnumber = 5
sql = "select * from 學生與課程 where 學號='" & Grid1.Cell(hang, 1).Text & "'"
gridpz2
datagrid
gridsave = False
gridedit = True
griddel = True
Grid2.Column(1).Locked = True
Grid2.Column(2).Locked = True
Grid2.Column(3).Locked = True
End Sub


Private Sub Grid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
If gridsave = True Then
  savestudent.Enabled = True
Else
  savestudent.Enabled = False
End If
If gridedit = True Then
  editstudent.Enabled = True
Else
  editstudent.Enabled = False
End If
If griddel = True Then
  delstudent.Enabled = True
Else
  delstudent.Enabled = False
End If
If admin = False Then
addstudent.Enabled = False
savestudent.Enabled = False
editstudent.Enabled = False
delstudent.Enabled = False
End If
PopupMenu student
End If
End Sub

Private Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long)
hang = Row
If gridsave = True And Col = 5 Then '確認默認年齡在20歲左右
  If Row <> 0 Then
  Grid1.Cell(Row, 5).Text = Date - 7300
  End If
End If
End Sub

Private Sub Grid1_Validate(Cancel As Boolean) '設定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 Form_Load()
On Error GoTo finish
Grid1.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '進行注冊
Grid2.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '進行注冊
Label2.Caption = "今天是" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日,歡迎您進入!"
Frame2.Visible = False
form1.BackColor = RGB(167, 111, 177)
'-------------管理員驗證
If admin = False Then
c1(3).Enabled = False
asPopup2.Enabled = False '增加學生
asPopup4.Enabled = False '課程管理
asPopup6.Enabled = False '輸入成績
XPButton4.Enabled = False
XPButton5.Enabled = False
XPButton6.Enabled = False
End If
With Grid1
    .AllowUserResizing = True
    .DisplayFocusRect = False
    .ExtendLastCol = True
    .Appearance = Flat
    .FixedRowColStyle = Flat
    .ScrollBarStyle = Flat
    
    .DefaultFont.Name = "Tahoma"
    .DefaultFont.SIZE = 8
    .BackColorFixed = RGB(84, 201, 134)
    .BackColorFixedSel = RGB(167, 111, 177)
    .BackColorBkg = RGB(198, 229, 211)
    .BackColorScrollBar = RGB(167, 111, 177)
    .BackColor1 = RGB(231, 235, 247)
    .BackColor2 = RGB(198, 229, 211)
    .GridColor = RGB(148, 190, 231)
    .Column(0).Width = 0
End With
With Grid2
   .AllowUserResizing = True
   .DisplayFocusRect = False
   .ExtendLastCol = True
   .Appearance = Flat
   .FixedRowColStyle = Flat
   .ScrollBarStyle = Flat
   .AllowUserResizing = True
   .DisplayFocusRect = False
   .ExtendLastCol = True
   .Appearance = Flat
   .FixedRowColStyle = Flat
   .ScrollBarStyle = Flat
   .DefaultFont.Name = "Tahoma"
   .DefaultFont.SIZE = 8
   .BackColorFixed = RGB(84, 201, 134)
    .BackColorFixedSel = RGB(167, 111, 177)
    .BackColorBkg = RGB(198, 229, 211)
    .BackColorScrollBar = RGB(167, 111, 177)
    .BackColor1 = RGB(231, 235, 247)
    .BackColor2 = RGB(198, 229, 211)
    .GridColor = RGB(148, 190, 231)
   .Column(0).Width = 0
End With
je = 4
Dim fr As Integer
Fre1.BackColor = RGB(168, 217, 189)
For fr = 0 To 4
Fre2(fr).Visible = False
Fre2(fr).BackColor = RGB(106, 137, 188)