登陆窗体.frm

The crystallize of the initial study, one class examination system of calculator, everyone gives ord

        Text1.Text = ""
        Text1.SetFocus
        rs.Close
        cnn.Close
        Exit Sub
    Else
        Label10.Caption = rs!name
        id = Trim(Text1.Text)
        id = "d:\" & id & ".mdb"
        msg = "你的姓名是" + Label10.Caption + "吗？"
     If MsgBox(msg, vbYesNo, "姓名确认") = vbYes Then
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@创建考生数据库,并插入记录
            Call create(id)
            Form2.Show
            Form1.Hide
        Select Case q
            Case 1
                ssearch1 = "select * from 试题表1 where st_no ='D00001'"
                testnum = "Select * from 试题表1" '####################
                cnn1.Open strcnn1
                rs1.Open ssearch1, cnn1
                Form5.Text1.Text = rs1!st_lr
                rs1.Close
                cnn1.Close
                
                    MkDir ("c:\" & Trim(Text1.Text))
                    MkDir ("c:\" & Trim(Text1.Text) & "\GOTO")
                Set fso = CreateObject("scripting.filesystemobject")
                Set a = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\GOTO\DOWN.BAT", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\XUE")
                    MkDir ("c:\" & Trim(Text1.Text) & "\BI")
                Set b = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\BI\GRE.ARJ", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\DONG")
                Set c = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\DONG\WORD.ABS", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\EXCEL")
                    MkDir ("c:\" & Trim(Text1.Text) & "\SEVE")
                Set d = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\SEVE\STER.WRI", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\WAN")
                Call insert(testnum)
            Case 2
                   ssearch1 = "select * from 试题表2 where st_no ='D00002'"
                   testnum = "Select * from 试题表2" '####################
                   cnn1.Open strcnn1
                   rs1.Open ssearch1, cnn1
                   Form5.Text1.Text = rs1!st_lr
                   rs1.Close
                   cnn1.Close
                   
                    MkDir ("c:\" & Trim(Text1.Text))
                    MkDir ("c:\" & Trim(Text1.Text) & "\EDU")
                    MkDir ("c:\" & Trim(Text1.Text) & "\EDU\CLAS")
                Set fso = CreateObject("scripting.filesystemobject")
                Set a = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\EDU\CLAS\PRG.BAS", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\NET")
                    MkDir ("c:\" & Trim(Text1.Text) & "\DEL")
                Set b = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\DEL\JUN.EXE", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\SUI")
                Set c = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\SUI\XIO.DOC", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\FAN")
                    MkDir ("c:\" & Trim(Text1.Text) & "\SU")
                Set d = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\SU\CHUI.FOR", True)
            
               Call insert(testnum)
        
            Case 3
                   ssearch1 = "select * from 试题表3 where st_no ='D00003'"
                   '##############################################################
                   testnum = "Select * from 试题表3"
                    
                   cnn1.Open strcnn1
                   rs1.Open ssearch1, cnn1
                   Form5.Text1.Text = rs1!st_lr
                   rs1.Close
                   cnn1.Close
                    MkDir ("c:\" & Trim(Text1.Text))
                    MkDir ("c:\" & Trim(Text1.Text) & "\NEWS")
                Set fso = CreateObject("scripting.filesystemobject")
                Set a = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\NEWS\WATER.FOR", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\BAD")
                    MkDir ("c:\" & Trim(Text1.Text) & "\PRG")
                Set b = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\PRG\LAKE.TXT", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\RIVER")
                Set c = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\RIVER\CIA.WPS", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\LIFE")
                    MkDir ("c:\" & Trim(Text1.Text) & "\TRY")
                Set d = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\TRY\RET.WRI", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\STU")
               
                Call insert(testnum)
            Case 4
                   ssearch1 = "select * from 试题表4 where st_no ='D00004'"
                   testnum = "Select * from 试题表4" '####################
                   cnn1.Open strcnn1
                   rs1.Open ssearch1, cnn1
                   Form5.Text1.Text = rs1!st_lr
                   rs1.Close
                   cnn1.Close
                   
                    MkDir ("c:\" & Trim(Text1.Text))
                    MkDir ("c:\" & Trim(Text1.Text) & "\AIR")
                Set fso = CreateObject("scripting.filesystemobject")
                Set a = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\AIR\TAXI.BAS", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\JEEP")
                    MkDir ("c:\" & Trim(Text1.Text) & "\COLOR")
                Set b = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\COLOR\COLOR.EXE", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\DONG")
                Set c = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\DONG\WORD.ABS", True)
                    MkDir ("c:\" & Trim(Text1.Text) & "\CARD")
                    MkDir ("c:\" & Trim(Text1.Text) & "\GOOD")
                    MkDir ("c:\" & Trim(Text1.Text) & "\GOOD\PEA")
                    MkDir ("c:\" & Trim(Text1.Text) & "\APPLE")
                     Call insert(testnum)
            Case 5
                ssearch1 = "select * from 试题表5 where st_no ='D00005'"
                testnum = "Select * from 试题表5" '####################
                cnn1.Open strcnn1
                rs1.Open ssearch1, cnn1
                Form5.Text1.Text = rs1!st_lr
                rs1.Close
                cnn1.Close
               
                MkDir ("c:\" & Trim(Text1.Text))
                MkDir ("c:\" & Trim(Text1.Text) & "\BAD")
            Set fso = CreateObject("scripting.filesystemobject")
            Set a = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\BAD\SONG.TML", True)
                MkDir ("c:\" & Trim(Text1.Text) & "\HOOL")
            Set b = fso.CreateTextFile("c:\" & Trim(Text1.Text) & "\HOOL\PORK.COM", True)
                MkDir ("c:\" & Trim(Text1.Text) & "\UNIT")
                MkDir ("c:\" & Trim(Text1.Text) & "\RET")
                MkDir ("c:\" & Trim(Text1.Text) & "\RET\BAD")
                MkDir ("c:\" & Trim(Text1.Text) & "\TREE")
                MkDir ("c:\" & Trim(Text1.Text) & "\IDE")
                MkDir ("c:\" & Trim(Text1.Text) & "\IDE\BOOK")
                MkDir ("c:\" & Trim(Text1.Text) & "\MY")
                Call insert(testnum)
        End Select
            Exit Sub
    Else
        Text1.Text = ""
        Label10.Caption = ""
        rs.Close
        cnn.Close
        Exit Sub
     End If
    End If
    
        rs.Close
        cnn.Close
   
      Form2.Show
      
        Unload Me
        Exit Sub
    
    
err_sel:
        If Err.Number <> 0 Then
        MsgBox Err.Description & "请连接系统题库有错误，联系监考老师"
        Err.clear
        End If
        If rs.State = adStateOpen Then
            rs.Close
        End If
        If cnn.State = adStateOpen Then
            cnn.Close
        End If
'=============================
        Exit Sub
'err_sel:
'
'    MsgBox Err.Description & "请连接系统题库有错误，联系监考老师"
'    Err.clear
    End Sub
    
    Private Sub Command2_Click()
    Unload Me
    End Sub
    
    
    Private Sub Form_Load()
    subCloseDisable Me.hwnd
    subMaxDisable Me.hwnd
    subMinDisable Me.hwnd
    Label10.Caption = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'If Len(Text1.Text) = 11 Then
    If KeyAscii = 13 Then
        Command1_Click
    End If
'End If
End Sub

'Private Sub Timer1_Timer()
'If Label3.Left < Form1.Width Then
'    Label3.Left = Label3.Left + 40
'    Else
'    Label3.Left = -Label3.Width
'    End If
'
'End Sub
Private Function ksstate() As String '取得考生的状态
    Dim formrs As ADODB.Recordset
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    Set formrs = New ADODB.Recordset
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & table & ";Persist Security Info=False"
        formrs.Open "select ksstate from test", conn, adOpenKeyset, adLockOptimistic
            ksstate = formrs!ksstate
        formrs.Close
        conn.Close
     Set formrs = Nothing
     Set conn = Nothing
End Function
'Private Sub deletefolder()
'Dim strcmm As String
'Dim fso As New FileSystemObject
'    Set fso = CreateObject("Scripting.FileSystemObject")
'    If fso.FolderExists("c:\" & Trim(Form1.Text1.Text)) = True Then
'      fso.deletefolder ("c:\" & Trim(Form1.Text1.Text))
'    End If
''Kill (table)
'End Sub