zjsrpro.bas

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

Attribute VB_Name = "ZJSRPro"
Public Const JP_ZJSRSTR_ROWS = 1
Public Const JP_ZJSRSTR_COLS = 9


'''''''''''''''''
''''''''最近三天生日结构设定
Public Function ModifyZJSRStr(msfg As MSFlexGrid)
With msfg
    .Rows = JP_ZJSRSTR_ROWS
    .Cols = JP_ZJSRSTR_COLS
    
    '''''''''''''''''
    '显示标志
    .ColWidth(0) = 1000
    .ColWidth(1) = 1000
    .ColWidth(2) = 450
    .ColWidth(3) = 2500
    .ColWidth(4) = 1200
    .ColWidth(5) = 800
    .ColWidth(6) = 800
    .ColWidth(7) = 1200
    .ColWidth(8) = 1200
'    .ColWidth(9) = 800
'    .ColWidth(10) = 800
'    .ColWidth(11) = 800
    
    .TextMatrix(0, 0) = "姓名"
    .TextMatrix(0, 1) = "出生年月"
    .TextMatrix(0, 2) = "性别"
    .TextMatrix(0, 3) = "地址"
    .TextMatrix(0, 4) = "电话"
    .TextMatrix(0, 5) = "邮编"
    .TextMatrix(0, 6) = "参加次数"
    .TextMatrix(0, 7) = "是否已经通知"
    .TextMatrix(0, 8) = "是否已经预订"

End With
ModifyZJSRStr = msfg
End Function

'''''''''''''''''''''''''''
'''''''预定列表结构
Public Function CreateZJSRViewStr(ydda As Data)
Dim str As String

With ydda.Recordset
    str = ""
    str = str & .Fields("姓名")
    str = str & vbTab & .Fields("出生年月")
    If .Fields("性别") = JP_SET_NUM_MALE Then
        str = str & vbTab & JP_SET_CH_MALE
    Else
        str = str & vbTab & JP_SET_CH_FEMALE
    End If
    str = str & vbTab & .Fields("地址")
    str = str & vbTab & .Fields("电话")
    str = str & vbTab & .Fields("邮编")
    str = str & vbTab & .Fields("参加次数")
    If .Fields("是否已经通知") Then
        str = str & vbTab & JP_SET_CH_YES
    Else
        str = str & vbTab & JP_SET_CN_NO
    End If
    If .Fields("预定餐会") Then
        str = str & vbTab & JP_SET_CH_YES
    Else
        str = str & vbTab & JP_SET_CN_NO
    End If
    
'    Set a = .Fields("出生年月")
'    MsgBox DateDiff("d", DateSerial(Year(Date), Month(a), Day(a)), Date)
End With

CreateZJSRViewStr = str

End Function