⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmstsi.frm

📁 一个较简单实用的学校学籍管理系统
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    Text1(3).Enabled = False
    Combo1.Enabled = False
    Text1(4).Enabled = False
    Text1(5).Enabled = False
    Text1(6).Enabled = False
    Text1(7).Enabled = False
    Text1(8).Enabled = False
 End If
    Exit Sub
End Sub

Private Sub Command5_Click()
    TextDcolor
    If Label1(1).BackColor = &HFFFFFF Then
        MSFlexGrid1.Clear
        ShowTitle
        Text1(4).Visible = True
        Combo1.Visible = False
        Text1(2).Enabled = False
        Text1(3).Enabled = False
        Text1(7).Enabled = False
        Text1(8).Enabled = False
    End If
    If Label1(3).BackColor = &HFFFFFF Then
        Text1(1).Enabled = False
        Text1(2).Enabled = False
        Text1(3).Enabled = False
        Combo1.Enabled = False
        Text1(4).Enabled = False
        Text1(5).Enabled = False
        Text1(6).Enabled = False
        Text1(7).Enabled = False
        Text1(8).Enabled = False
    End If
End Sub

Private Sub Commanda_Click(Index As Integer)
    frmscoi.Show
End Sub

Private Sub Form_Load()
    Me.Caption = "学籍信息->添  加"
    ShowTitle
    Me.Caption = "学籍信息->"
    Me.Caption = Me.Caption & Trim(Label1(Index).Caption)
    Label1(0).BackColor = &HE0E0E0
    Label1(1).BackColor = &HE0E0E0
    Label1(2).BackColor = &HE0E0E0
    Label1(3).BackColor = &HE0E0E0
    Label1(Index).BackColor = &HFFFFFF
    Label2(4).Caption = "选择班级号码"
    Label2(5).Caption = "输入联系电话"
    Label2(6).Caption = "输入入学日期"
    
    If Index = 0 Then
        TextDcolor
        Command1.Visible = True
        Command2(0).Visible = False
        Command3(0).Visible = False
        Command4.Visible = False
    End If
    If Index = 1 Then
        Label2(4).Caption = "班级号码"
        Label2(5).Caption = "入学日期起始"
        Label2(6).Caption = "入学日期截止"
        TextDcolor
        Text1(4).Visible = True
        Combo1.Visible = False
        Command1.Visible = False
        Command2(0).Visible = True
        Command3(0).Visible = False
        Command4.Visible = False
        Text1(2).Enabled = False
        Text1(3).Enabled = False
        Text1(7).Enabled = False
        Text1(8).Enabled = False
    End If
    If Index = 2 Then
        TextDcolor
        Text1(0).SetFocus
        Command1.Visible = False
        Command2(0).Visible = False
        Command3(0).Visible = True
        Command4.Visible = False
    End If
    If Index = 3 Then
        TextDcolor
        Text1(0).SetFocus
        Command1.Visible = False
        Command2(0).Visible = False
        Command3(0).Visible = False
        Command4.Visible = True
        Text1(1).Enabled = False
        Text1(2).Enabled = False
        Text1(3).Enabled = False
        Combo1.Enabled = False
        Text1(4).Enabled = False
        Text1(5).Enabled = False
        Text1(6).Enabled = False
        Text1(7).Enabled = False
        Text1(8).Enabled = False
    End If
    Label1(0).BackColor = &HFFFFFF
    TextDcolor
    Text1(4).Visible = True
    Combo1.Visible = True
    Command1.Visible = True
    Command2(0).Visible = False
    Command3(0).Visible = False
    Command4.Visible = False
    Text1(2).Enabled = True
    Text1(3).Enabled = True
    Text1(7).Enabled = True
    Text1(8).Enabled = True
End Sub

Private Sub Form_Resize()
    dColor.ZOrder 1
End Sub

Private Sub TextDcolor()
    Dim txtSQL As String
    For i = 0 To 30
        Text1(i).Enabled = True
        Combo1.Enabled = True
        Text1(i).BackColor = &HE0E0E0
        Text1(i) = Label2(i).Caption
        If i = 7 Or i = 8 Then
            Text1(i).Height = 300
        End If
    Next
    Text1(4).Visible = False
    Combo1.Visible = True
    Combo1.Clear
    Combo1.AddItem Label2(4).Caption
    Combo1.BackColor = &HE0E0E0
    Combo1.ListIndex = 0
    txtSQL = "select * from class_Form"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = True Then
        MsgBox "请先进行班级设置!", vbOKOnly, "提示"
    Else
        With Combo1
            Do While Not mrc.EOF
                .AddItem Trim(mrc!class_NO)
                mrc.MoveNext
            Loop
        End With
    End If
End Sub

Private Sub Label1_Click(Index As Integer)
    Me.Caption = "学籍信息->"
    Me.Caption = Me.Caption & Trim(Label1(Index).Caption)
    Label1(0).BackColor = &HE0E0E0
    Label1(1).BackColor = &HE0E0E0
    Label1(2).BackColor = &HE0E0E0
    Label1(3).BackColor = &HE0E0E0
    Label1(Index).BackColor = &HFFFFFF
    Label2(4).Caption = "选择班级号码"
    Label2(5).Caption = "输入联系电话"
    Label2(6).Caption = "输入入学日期"
    
    If Index = 0 Then
        TextDcolor
        Command1.Visible = True
        Command2(0).Visible = False
        Command3(0).Visible = False
        Command4.Visible = False
    End If
    If Index = 1 Then
        Label2(4).Caption = "班级号码"
        Label2(5).Caption = "入学日期起始"
        Label2(6).Caption = "入学日期截止"
        TextDcolor
        Text1(4).Visible = True
        Combo1.Visible = True
        Command1.Visible = False
        Command2(0).Visible = True
        Command3(0).Visible = False
        Command4.Visible = False
        Text1(2).Enabled = False
        Text1(3).Enabled = False
        Text1(7).Enabled = False
        Text1(8).Enabled = False
        Text1(9).Enabled = False
        Text1(10).Enabled = False
        Text1(11).Enabled = False
        Text1(12).Enabled = False
        Text1(13).Enabled = False
        Text1(14).Enabled = False
        Text1(15).Enabled = False
        Text1(16).Enabled = False
        Text1(17).Enabled = False
        Text1(18).Enabled = False
        Text1(19).Enabled = False
        Text1(20).Enabled = False
        Text1(21).Enabled = False
        Text1(22).Enabled = False
        Text1(23).Enabled = False
        Text1(24).Enabled = False
        Text1(25).Enabled = False
        Text1(26).Enabled = False
        Text1(27).Enabled = False
        Text1(28).Enabled = False
        Text1(29).Enabled = False
        Text1(30).Enabled = False
                
    End If
    If Index = 2 Then
        TextDcolor
        Text1(0).SetFocus
        Command1.Visible = False
        Command2(0).Visible = False
        Command3(0).Visible = True
        Command4.Visible = False
    End If
    If Index = 3 Then
        TextDcolor
        Text1(0).SetFocus
        Command1.Visible = False
        Command2(0).Visible = False
        Command3(0).Visible = False
        Command4.Visible = True
        Text1(1).Enabled = False
        Text1(2).Enabled = False
        Text1(3).Enabled = False
        Combo1.Enabled = False
        Text1(4).Enabled = False
        Text1(5).Enabled = False
        Text1(6).Enabled = False
        Text1(7).Enabled = False
        Text1(8).Enabled = False
        Text1(9).Enabled = False
        Text1(10).Enabled = False
        Text1(11).Enabled = False
        Text1(12).Enabled = False
        Text1(13).Enabled = False
        Text1(14).Enabled = False
        Text1(15).Enabled = False
        Text1(16).Enabled = False
        Text1(17).Enabled = False
        Text1(18).Enabled = False
        Text1(19).Enabled = False
        Text1(20).Enabled = False
        Text1(21).Enabled = False
        Text1(22).Enabled = False
        Text1(23).Enabled = False
        Text1(24).Enabled = False
        Text1(25).Enabled = False
        Text1(26).Enabled = False
        Text1(27).Enabled = False
        Text1(28).Enabled = False
        Text1(29).Enabled = False
        Text1(30).Enabled = False
    End If
End Sub

Private Sub MSFlexGrid1_Click()
            If Label1(2).BackColor = &HFFFFFF Or Label1(3).BackColor = &HFFFFFF Then
        If MSFlexGrid1.Row <> 0 Then
            For i = 0 To 9
                Text1(i) = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, i)
            Next
            If Label1(2).BackColor = &HFFFFFF Then
                For i = 0 To 9
                    Text1(i).BackColor = &H8000000E
                Next
            End If
            If Label1(3).BackColor = &HFFFFFF Then
                Text1(0).BackColor = &H8000000E
            End If
            Text1(7).Height = 300
            Text1(8).Height = 300
        End If
    End If
End Sub

Private Sub Text1_Change(Index As Integer)
    If Label1(2).BackColor = &HFFFFFF Or Label1(3).BackColor = &HFFFFFF Then
        If Index = 0 Then
            tSQL = "select * from student_Form where student_NO='" & Trim(Text1(Index)) & "'"
            Set mrc = ExecuteSQL(tSQL, MsgText)
            If mrc.EOF = False Then
                For i = 1 To 30
                    Text1(i) = mrc.Fields(i)
                Next
                Combo1.Clear
                Combo1.AddItem Text1(4)
                Combo1.ListIndex = 0
                txtSQL = "select * from class_Form"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                If mrc.EOF = False Then
                    With Combo1
                        Do While Not mrc.EOF
                            .AddItem Trim(mrc!class_NO)
                            mrc.MoveNext
                        Loop
                    End With
                End If
                If Label1(2).BackColor = &HFFFFFF Then
                For i = 1 To 30
                    Text1(i).BackColor = &H8000000E
                Next
                Combo1.BackColor = &H8000000E
                End If
                Text1(7).Height = 300
                Text1(8).Height = 300
                Command3(0).Enabled = True
                Command4.Enabled = True
                Exit Sub
            Else
                For i = 1 To 7
                    Text1(i) = Label2(i).Caption
                Next
                Combo1.Clear
                Combo1.AddItem Label2(4).Caption
                Combo1.ListIndex = 0
                If Label1(2).BackColor = &HFFFFFF Then
                For i = 1 To 7
                    Text1(i).BackColor = &HE0E0E0
                Next
                Combo1.BackColor = &HE0E0E0
                End If
                Text1(7).Height = 300
                Text1(8).Height = 300
                Command3(0).Enabled = False
                Command4.Enabled = False
            End If
            mrc.Close
        End If
    End If
End Sub

Private Sub Text1_Click(Index As Integer)
    If Index = 2 Then
        If Text1(Index) = "男" Then
            Text1(Index) = "女"
        Else
            Text1(Index) = "男"
        End If
    End If
    If Index = 22 Then
        If Text1(Index) = "男" Then
            Text1(Index) = "女"
        Else
            Text1(Index) = "男"
        End If
    End If

    If Index = 28 Then
        If Text1(Index) = "男" Then
            Text1(Index) = "女"
        Else
            Text1(Index) = "男"
        End If
    End If
    If Index = 7 Then
        If Text1(Index) = "秋" Then
            Text1(Index) = "春"
        Else
            Text1(Index) = "秋"
        End If
    End If
End Sub

Private Sub Text1_GotFocus(Index As Integer)
    If Text1(Index) = Label2(Index).Caption Then
        Text1(Index).BackColor = &H8000000E
        Text1(Index) = ""
        If Index = 7 Or Index = 8 Then
            Text1(Index).Height = 300
        End If
    End If
    Text1(Index).SelStart = 0
    Text1(Index).SelLength = Len(Text1(Index))
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    EnterToTab KeyCode
End Sub

Private Sub Text1_LostFocus(Index As Integer)
    If Text1(Index) = "" Then
        Text1(Index).BackColor = &HE0E0E0
        Text1(Index) = Label2(Index).Caption
        If Index = 7 Or Index = 8 Then
            Text1(Index).Height = 300
        End If
    End If
End Sub
Private Sub ShowTitle()
    Dim i As Integer
    
    With MSFlexGrid1
        .Cols = 31
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "性别"
        .TextMatrix(0, 3) = "出生日期"
        .TextMatrix(0, 4) = "班级编号"
        .TextMatrix(0, 5) = "联系电话"
        .TextMatrix(0, 6) = "入学"
        .TextMatrix(0, 7) = "时间"
        .TextMatrix(0, 8) = "年级"
        .TextMatrix(0, 9) = "民族"
        .TextMatrix(0, 10) = "祖籍省"
        .TextMatrix(0, 11) = "祖籍市"
        .TextMatrix(0, 12) = "户口省"
        .TextMatrix(0, 13) = "市"
        .TextMatrix(0, 14) = "镇"
        .TextMatrix(0, 15) = "村"
        .TextMatrix(0, 16) = "居住市"
        .TextMatrix(0, 17) = "镇"
        .TextMatrix(0, 18) = "村"
        .TextMatrix(0, 19) = "称谓1"
        .TextMatrix(0, 20) = "姓名"
        .TextMatrix(0, 21) = "关系"
        .TextMatrix(0, 22) = "性别"
        .TextMatrix(0, 23) = "工作单位"
        .TextMatrix(0, 24) = "单位电话"
        .TextMatrix(0, 25) = "称谓2"
        .TextMatrix(0, 26) = "姓名"
        .TextMatrix(0, 27) = "关系"
        .TextMatrix(0, 28) = "性别"
        .TextMatrix(0, 29) = "工作单位"
        .TextMatrix(0, 30) = "单位电话"
        
        .ColWidth(0) = 1000
        .ColWidth(1) = 1000
        .ColWidth(2) = 500
        .ColWidth(3) = 1000
        .ColWidth(4) = 1000
        .ColWidth(5) = 1000
        .ColWidth(6) = 500
        .ColWidth(7) = 500
        .ColWidth(8) = 500
        .ColWidth(9) = 1000
        .ColWidth(10) = 1000
        .ColWidth(11) = 1000
        .ColWidth(12) = 1000
        .ColWidth(13) = 1000
        .ColWidth(14) = 1000
        .ColWidth(15) = 1000
        .ColWidth(16) = 1000
        .ColWidth(17) = 1000
        .ColWidth(18) = 1000
        .ColWidth(19) = 500
        .ColWidth(20) = 1000
        .ColWidth(21) = 500
        .ColWidth(22) = 500
        .ColWidth(23) = 2000
        .ColWidth(24) = 1000
        .ColWidth(25) = 500
        .ColWidth(26) = 1000
        .ColWidth(27) = 500
        .ColWidth(28) = 500
        .ColWidth(29) = 2000
        .ColWidth(30) = 1000
        .Rows = 1
    End With
End Sub
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -