gongyong.bas

学校管理系统 V1.0 正式企业版是一款面向中小型企业、个体私营企业

Attribute VB_Name = "modPublic"

Option Explicit
'--------------------------------------------
'对ini文件进行读写的声明
Public Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long
'--------------------------------------------

'定义系统相关变量
'--------------------------------------------
Public DBpath As String '数据库路径
Public INIpath As String 'INI文件路径
Public IMGpath As String '背景图像路径

Public Const pwd = "me" '数据库密码

Public UserName As String '用户名
Public PassWord As String '用户密码

Public DengLu As Boolean '是否登录
Public ShenFen As String '用户身份

Public I As Integer
Public Total As Integer
Public TiShi As Integer  'MsgBox的提示信息
Public popTiShi As String '右下角弹出窗口提示信息

'--------------------------------------------
'获取ini文件信息
Function GetIni(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetIni = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function
'--------------------------------------------