mdlmain.bas

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

Attribute VB_Name = "mdlMain"
Option Explicit

'用于描述用户当前操作状态的枚举
Public Enum UserOperation
  BrowseUser = 1        '浏览用户
  BrowseSupplier = 2    '浏览供货商
  BrowseType = 3        '浏览商品类型
  BrowseBuy = 4         '浏览进货
  BrowseSale = 5        '浏览销售
  BrowseGoods = 6       '浏览库存
  BrowseSpoilage = 7    '浏览报损
  BuyStat = 8           '进货统计
  SaleStat = 9          '销售统计
  SpoilageStat = 10     '报损统计
  QueryBuy = 11         '进货查询
End Enum

Public CurrentOperation As UserOperation      '用于全局的用户当前操作状态
Public UserID As Long                         '用户编号
Public TrueName As String                     '用户姓名
Public UserType As Long                       '用户类型

'标准EXE的启动对象
Sub Main()
  '启动时检测显示器分辨率
  If Screen.Width / Screen.TwipsPerPixelX < 1024 _
  Or Screen.Height / Screen.TwipsPerPixelY < 768 _
  Then
     MsgBox "您的显示器分辨率过小。为了使主界面的项目能获得最佳显示效果，建议您对分辨率进行调整。", vbInformation
  End If
  
  '显示登录窗体
  frmLogin.Show
End Sub