defsqlsntc.bas

一个用VB6.0开发的简单餐会管理系统。在WIN2K

Attribute VB_Name = "DefSqlSntc"
'''''''''''''''''''''''''''''''
'''SQL 语句定义
Public Const JP_ZJSR_DAYS = 3               '设定最近生日天数

Public Const JP_SQLITEM_YD = 1              '预订
Public Const JP_SQLITEM_ZJSR = 2            '最近生日



'''''''''''''''''''''''
'''SQL语句设定
Public Function strSqlString(Index As Integer)
Dim strTemp As String

Select Case Index
    Case JP_SQLITEM_YD:             '预订信息SQL
        strTemp = "Select 预定信息.ID, 预定信息.预定日期, 预定信息.餐会时间, 预定信息.大人人数, 预定信息.小孩人数, "
        strTemp = strTemp & "预定信息.定蛋糕, 预定信息.特殊要求, 预定信息.定餐内容, 预定信息.备注, 基本资料.姓名, 基本资料.电话, 基本资料.出生年月, 基本资料.性别 "
        strTemp = strTemp & "From 预定信息 INNER JOIN 基本资料 ON (预定信息.ID = 基本资料.ID) "
        strSqlString = strTemp & "order by 预定信息.预定日期 desc ;"
    Case JP_SQLITEM_ZJSR:
        strTemp = "Select * From 基本资料 Where "
        strTemp = strTemp & "(DateDiff('d',Date(),DateSerial(Year(Date()),Month(基本资料.出生年月),Day(基本资料.出生年月))) <= " & JP_ZJSR_DAYS & ")"
        strTemp = strTemp & " And (DateDiff('d',Date(),DateSerial(Year(Date()),Month(基本资料.出生年月),Day(基本资料.出生年月))) >= 0) "
        strSqlString = strTemp & "order by 是否已经通知 desc, 出生年月 asc ;"
    
        
End Select


End Function