modsub.bas

来自「在线试题库,用ASP写的程序」· BAS 代码 · 共 53 行

Attribute VB_Name = "modSub"
Option Explicit

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H8

Public Sub SetFormTopmost(TheForm As Form)
 SetWindowPos TheForm.hwnd, HWND_TOPMOST, 150, 0, 0, 0, SWP_NOZORDER + SWP_NOZORDER + SWP_NOSIZE
End Sub



Public Sub ExamG(ByVal numExam As Integer, ByVal strJName As String)
Dim strSQL As String

strSQL = "Select * from strJName where 卷号=" & numExam

If chooseFlag = True Then
 rstChoose.Close
 chooseFlag = False
 rstChoose.Open strSQL, cnn, adOpenStatic, adLockOptimistic
 chooseFlag = True
End If
If fillFlag = True Then
 rstFillBlank.Close
 fillFlag = False
 rstFillBlank.Open strSQL, cnn, adOpenStatic, adLockOptimistic
 fillFlag = True
End If

End Sub

Public Sub strInit()
Dim i As Integer
For i = 1 To chooseNUM
  strChoose(i) = ""
  strChAn(i) = ""
  numChVa(i) = 0
Next i
For i = 1 To fillNUM
  strFillBlank(i) = ""
  strFiAn(i) = ""
  numFiVa(i) = 0
Next i
End Sub