module1.bas

这是一个选课系统

Attribute VB_Name = "Module1"

'定义服务器参数常量
Public Server As String
'Public database As String
Public User As String
Public Password As String
Public sqlstring As String  '连接数据库字符串
Public user_name As String
Public MyDB As New ClsDB
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'****************************************************************************************************************************
'设计联机帮助的htmlhelp api 通用函数
'***************************************************************************************************

Const HH_DISPLAY_TOPIC = &H0
Const HH_DISPLAY_INDEX = &H2
Const HH_HELP_CONTEXT = &HF
Const HH_DISPLAY_SEARCH = &H3
Const HH_DISPLAY_TEXT_POPUP = &HE
    
Declare Function Htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Any) As Long

Public Sub GetStatus(frm As Form, StatusString As String)
'修改窗体状态栏的属性
    frm.StatusBar1.Panels.Item(2).Text = StatusString
End Sub

Public Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function


Function fullpath(filename As String)
    temp = App.Path
    If Right$(temp, 1) <> "\" Then temp = temp & "\"
    fullpath = temp & filename
End Function