ydpro.bas

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

Attribute VB_Name = "YDPro"
Public Const JP_YDSTR_ROWS = 1
Public Const JP_YDSTR_COLS = 12





'''''''''''''''''
''''''''预订信息结构设定
Public Function ModifyYDStr(msfg As MSFlexGrid)
With msfg
    .Rows = JP_YDSTR_ROWS
    .Cols = JP_YDSTR_COLS
    
    '''''''''''''''''
    '显示标志
    .ColWidth(0) = 1000
    .ColWidth(1) = 1000
    .ColWidth(2) = 1200
    .ColWidth(3) = 1200
    .ColWidth(4) = 1000
    .ColWidth(5) = 500
    .ColWidth(6) = 800
    .ColWidth(7) = 800
    .ColWidth(8) = 2000
    .ColWidth(9) = 600
    .ColWidth(10) = 2000
    .ColWidth(11) = 1000
    
    .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) = "订餐内容"
    .TextMatrix(0, 9) = "定蛋糕"
    .TextMatrix(0, 10) = "特殊要求"
    .TextMatrix(0, 11) = "备注"

End With
ModifyYDStr = msfg
End Function


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

    With ydda.Recordset
        str = ""
        str = str & .Fields("预定日期")
        str = str & vbTab & .Fields("餐会时间")
        str = str & vbTab & .Fields("姓名")
        str = str & vbTab & .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("定餐内容")

        If .Fields("定蛋糕") Then
            str = str & vbTab & JP_SET_CH_YES
        Else
            str = str & vbTab & JP_SET_CN_NO
        End If
        str = str & vbTab & .Fields("特殊要求")
        str = str & vbTab & .Fields("备注")
    End With
    CreateYDViewStr = str
    
End Function