📄 viewform.frm

📁 一个用VB6.0开发的简单餐会管理系统。在WIN2K
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
Text13.text = ""                        '特殊要求
Text14.text = ""                        '备注
Text15.text = ""                        '餐会内容
Check2.Value = Unchecked                '定蛋糕
End Function
''显示
Public Function EBookTime(flag As Boolean)
Frame2.Enabled = flag
DTPicker2.Enabled = flag
DTPicker3.Enabled = flag
Text11.Enabled = flag
Text12.Enabled = flag
Text13.Enabled = flag
Text14.Enabled = flag
Text15.Enabled = flag

Label14.Enabled = flag
For i = 0 To 1
Label16(i).Enabled = flag
Label17(i).Enabled = flag
Next
Label18.Enabled = flag
Label19.Enabled = flag
Label20.Enabled = flag
Check2.Enabled = flag
Command2.Enabled = flag
Command9.Enabled = flag
End Function
''得到预定餐会信息
Public Function GetBookData()
    Dim strSel As String
    
    strSel = "Select * from 预定信息 where ID = " & CStr(flagViewForm.SelectName)
    Data1.RecordSource = strSel
    Data1.ReadOnly = True
    Data1.Refresh
    
    With Data1.Recordset
    If .RecordCount = 0 Then
        CBookTime
    Else
        DTPicker2.Value = .Fields("预定日期")
        DTPicker3.Value = .Fields("餐会时间")
        Text15.text = .Fields("定餐内容")
        Text12.text = .Fields("大人人数")
        Text11.text = .Fields("小孩人数")
        Text13.text = .Fields("特殊要求")
        Text14.text = .Fields("备注")
        Check2.Value = SetCheckValue(.Fields("定蛋糕"))
    End If
    End With
End Function


'保存记录
Public Function SaveBookData()
Dim strSel As String
strSel = "Select * from 预定信息 where ID = " & CStr(flagViewForm.SelectName)
Data1.RecordSource = strSel
Data1.ReadOnly = False
Data1.Refresh
    
With Data1.Recordset
    If .RecordCount = 0 Then
    .AddNew
    .Fields("id") = flagViewForm.SelectName
    Else
    .Edit
    End If

    .Fields("预定日期") = DTPicker2.Value
    .Fields("餐会时间") = DTPicker3.Value
    .Fields("定餐内容") = Text15.text
    If Text12.text = "" Then
    .Fields("大人人数") = 0
    Else
    .Fields("大人人数") = Text12.text
    End If
    If Text12.text = "" Then
    .Fields("小孩人数") = 0
    Else
    .Fields("小孩人数") = CInt(Text11.text)
    End If
    .Fields("定蛋糕") = Check2.Value
    .Fields("特殊要求") = Text13.text
    .Fields("备注") = Text14.text
    
    .Update
End With
End Function


''删除记录
Public Function DelBookData()
Dim strSel As String
strSel = "Select * from 预定信息 where ID = " & CStr(flagViewForm.SelectName)
Data1.RecordSource = strSel
Data1.ReadOnly = False
Data1.Refresh
With Data1.Recordset
    If .RecordCount = 0 Then
        Exit Function
    Else
        .Delete
    End If
'    .Update
End With
End Function


Public Function CopyBookInfoToBthdData()
BthdInfo.SetBthdInfoFlag (JP_SET_NUM_FIN)

BthdInfo.Show

'SetCheck1 (True)
'CBookTime
'EBookTime (False)
'DelBookData
End Function




''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''基本资料的使用显示
''显示
Public Function EBaseInfo(flag As Boolean)
DTPicker1.Enabled = flag
Text2.Enabled = flag
For i = 0 To 1
Option1(i).Enabled = flag
Next
Text3.Enabled = flag
Text4.Enabled = flag
Text5.Enabled = flag
Text6.Enabled = flag
Text7.Enabled = flag
Text8.Enabled = flag
'Combo1.Enabled = flag
If Check1.Value = Checked Then
    Check1.Enabled = False
Else
    Check1.Enabled = True
End If
Label2.Enabled = flag
Label3.Enabled = flag
Label4.Enabled = flag
Label5.Enabled = flag
Label6.Enabled = flag
Label7.Enabled = flag
Label8.Enabled = flag
Label9.Enabled = flag
Label10.Enabled = flag
Label11.Enabled = flag
Label21.Enabled = flag
If flag = True Then
Command1.Enabled = False
Text1.Enabled = False
Else
Command1.Enabled = True
Text1.Enabled = True
End If

End Function
''得到基本资料
Public Function GetBaseInfo()
    Dim strSel As String
    strSel = "Select * from 基本资料 where ID = " & CStr(flagViewForm.SelectName)
    Data1.RecordSource = strSel
    Data1.ReadOnly = False
    Data1.Refresh
    
    With Data1.Recordset
        Text1.text = .Fields("姓名")                        '姓名
        DTPicker1.Value = .Fields("出生年月")               '出生年月
        Text2.text = .Fields("阴历")                        '阴历
        Option1(.Fields("性别")).Value = True               '性别
        Text3.text = .Fields("地址")                        '家庭地址
        Text5.text = .Fields("邮编")                        '联系方式
        Text4.text = .Fields("电话")                        '邮编
        Text6.text = .Fields("父")                          '父亲姓名
        Text7.text = .Fields("母")                          '母亲姓名
        Text8.text = .Fields("学校")                        '所在学校
        Text9.text = .Fields("参加次数")                    '参加生日餐会次数
        
'        If IsNull(.Fields("社区")) Or .Fields("社区") = "" Then
'        Combo1.text = ""                                    '社区
'        Else
 ''       Combo1.text = .Fields("社区")
 '       End If
        If IsNull(.Fields("社区")) Or .Fields("社区") = "" Then
        DBCombo1.text = ""                                    '社区
        Else
        DBCombo1.text = .Fields("社区")
        End If
        
        If .Fields("预定餐会") Then                         '预订餐会
            SetCheck1 (False)
            'Check1.Value = Checked
'            Text9.Enabled = False
            GetBookData
        Else
            SetCheck1 (True)
            'Check1.Value = Unchecked
'            Text9.Enabled = True
        End If
        If .Fields("是否已经通知") Then                     '是否已经通知
            Check3.Value = Checked
        Else
            Check3.Value = Unchecked
        End If
        ModifyBthdInfo
        If Text9.text <> 0 Then
            '数据
            GetBthdData
            Command7.Enabled = True
        Else
            Command7.Enabled = False
        End If
    End With
End Function
''保存基本资料
Public Function SaveBaseInfo()
Dim strSel As String
strSel = "Select * from 基本资料 where ID = " & CStr(flagViewForm.SelectName)
Data1.RecordSource = strSel
Data1.ReadOnly = False
Data1.Refresh
With Data1.Recordset
    If .RecordCount = 0 Then
    .AddNew
    Else
    .Edit
    End If
    
    .Fields("姓名") = Text1.text
    .Fields("出生年月") = DTPicker1.Value
    .Fields("阴历") = Text2.text
    
    If Option1(JP_SET_NUM_MALE).Value = True Then
    .Fields("性别") = JP_SET_NUM_MALE
    Else
    .Fields("性别") = JP_SET_NUM_FEMALE
    End If
    
    .Fields("地址") = Text3.text
    .Fields("电话") = Text4.text
    .Fields("邮编") = Text5.text
    .Fields("父") = Text6.text
    .Fields("母") = Text7.text
    .Fields("学校") = Text8.text
    .Fields("参加次数") = CInt(Text9.text)
    .Fields("预定餐会") = Check1.Value
    .Fields("是否已经通知") = Check3.Value
    .Fields("社区") = DBCombo1.text
    flagViewForm.SelectName = .Fields("ID")
    .Update
End With
End Function
''''''''''''''''''''
''删除
Public Function DelBaseInfo()
Dim strSel As String
strSel = "Select * from 基本资料 where ID = " & CStr(flagViewForm.SelectName)
Data1.RecordSource = strSel
Data1.ReadOnly = False
Data1.Refresh
With Data1.Recordset
    If .RecordCount = 0 Then
    Exit Function
    Else
    .Delete
    End If
End With
End Function





'''''''''''''''''''''''
''''生日餐会的使用显示
''显示
Public Function EBthdInfo(flag As Boolean)
Frame3.Enabled = flag
MSFlexGrid1.Enabled = flag
Command6.Enabled = flag
Command7.Enabled = flag
End Function
Public Function ClearBthdInfo()

End Function
''得到生日餐会资料
Public Function GetBthdData()
    
    Dim strSel As String
    strSel = "Select * from 餐会信息 where ID = " & CStr(flagViewForm.SelectName) & " order by PARTY_ID asc"
    Data1.RecordSource = strSel
    Data1.ReadOnly = False
    Data1.Refresh
    With Data1.Recordset
    If .RecordCount = 0 Then
        MSFlexGrid1.HighLight = flexHighlightNever
        MSFlexGrid1.FocusRect = flexFocusNone
        MSFlexGrid1.Rows = 1
        Command7.Enabled = False
    Else
        '显示记录
        Dim strTemp As String
        MSFlexGrid1.HighLight = flexHighlightWithFocus
        MSFlexGrid1.FocusRect = flexFocusLight
        Command7.Enabled = True
        MSFlexGrid1.Rows = 1
        Data1.Recordset.MoveFirst
        Dim nTemp As Integer
        nTemp = CInt(Text9.text)
        Do While (Not Data1.Recordset.EOF) And nTemp > 0
            If Data1.Recordset.Fields("餐会是否进行") = False Then
            strTemp = ""
            strTemp = strTemp & Data1.Recordset!PARTY_ID
            strTemp = strTemp & vbTab & Data1.Recordset!餐会时间
            
            strTemp = strTemp & vbTab & Data1.Recordset!大人数量
            strTemp = strTemp & vbTab & Data1.Recordset!小孩数量
            strTemp = strTemp & vbTab & Data1.Recordset!定餐内容
            strTemp = strTemp & vbTab & Data1.Recordset!满意度
            strTemp = strTemp & vbTab & Data1.Recordset!花费
    
            MSFlexGrid1.AddItem strTemp
            End If
            
            Data1.Recordset.MoveNext
            nTemp = nTemp - 1
        Loop
    End If
    End With
    
End Function
''生日餐会框架结构
Public Function ModifyBthdInfo()
With MSFlexGrid1
    .Top = 240
    .Left = 120
    .Height = 1500
    .Width = 7200
    .Rows = 1
    .Cols = 7
    
    '''''''''''''''''
    '显示标志
    .ColWidth(0) = 800
    .ColWidth(1) = 1500
    .ColWidth(2) = 800
    .ColWidth(3) = 800
    .ColWidth(4) = 1600
    .ColWidth(5) = 800
    .ColWidth(6) = 800
    
    .TextMatrix(0, 0) = "餐会编号"
    .TextMatrix(0, 1) = "餐会时间"
    .TextMatrix(0, 2) = "大人数量"
    .TextMatrix(0, 3) = "儿童数量"
    .TextMatrix(0, 4) = "定餐内容"
    .TextMatrix(0, 5) = "满意度"
    .TextMatrix(0, 6) = "花费"
End With
End Function
'删除生日餐会临时数据
Private Function DelBthdTemporaryData()
Dim strSel As String
strSel = "Select * from 基本资料 where ID = " & CStr(flagViewForm.SelectName)
Data1.RecordSource = strSel
Data1.ReadOnly = False
Data1.Refresh
    
Dim nTemp As Integer
If Data1.Recordset.RecordCount <> 0 Then
    nTemp = Data1.Recordset.Fields("参加次数")
End If
If nTemp < CInt(Text9.text) Then
    strSel = "Select * from 餐会信息 where ID = " & CStr(flagViewForm.SelectName) & " AND PARTY_ID >= " & CStr(nTemp)
    Data1.RecordSource = strSel
    Data1.ReadOnly = False
    Data1.Refresh
    If Data1.Recordset.RecordCount <> 0 Then
        Data1.Recordset.Delete
    End If
End If
End Function
'删除所有生日餐会记录
Private Function DelBthdData()
Dim strSel As String
strSel = "Select * from 餐会信息 where ID = " & CStr(flagViewForm.SelectName)
Data1.RecordSource = strSel
Data1.ReadOnly = False
Data1.Refresh
With Data1.Recordset
    If .RecordCount <> 0 Then
        .MoveFirst
        Do While (Not .EOF)
            .Delete
            .MoveNext
        Loop
    End If
End With
End Function





Private Sub Text1_Change()
Text1.text = FixTextLen(Text1.text, "姓名", 5)

End Sub


Private Sub Text11_KeyPress(KeyAscii As Integer)
KeyAscii = TextNumEnterKey(KeyAscii, Text11.text, 2)
End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)
KeyAscii = TextNumEnterKey(KeyAscii, Text12.text, 2)
End Sub

Private Sub Text13_Change()
Text13.text = FixTextLen(Text13.text, "特殊要求", 30)
End Sub

Private Sub Text15_Change()
Text15.text = FixTextLen(Text15.text, "餐会内容", 150)
End Sub

Private Sub Text2_Change()
Text2.text = FixTextLen(Text2.text, "阴历", 5)
End Sub

Private Sub Text3_Change()
Text3.text = FixTextLen(Text3.text, "家庭地址", 25)
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii <> Asc("/") And KeyAscii <> Asc("-") Then
    KeyAscii = TextNumEnterKey(KeyAscii, Text4.text, 20)
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
KeyAscii = TextNumEnterKey(KeyAscii, Text5.text, 6)
End Sub

Private Sub Text6_Change()
Text6.text = FixTextLen(Text6.text, "父亲姓名", 5)
End Sub

Private Sub Text7_Change()
Text7.text = FixTextLen(Text7.text, "母亲姓名", 5)
End Sub

Private Sub Text8_Change()
Text8.text = FixTextLen(Text8.text, "所在学校", 15)
End Sub

Public Function GetFlagViewForm(n As Integer)
flagViewForm.SelectName = n
End Function

Public Function InitFlagViewForm()
flagViewForm.SelectName = JP_SET_NUM_ADD
End Function

Public Function SetFlagViewForm()
SetFlagViewForm = flagViewForm.SelectName
End Function

Public Function SetCheck1(flag As Boolean)
If flag Then
    Check1.Value = Unchecked
    Check1.Enabled = True
Else
    Check1.Value = Checked
    Check1.Enabled = False
End If
End Function
上一页 1 23
💿 文件大小 160 K
👤 上传用户 jellylihui
📂 所属分类其他行业
🏷️ 相关标签

#WIN2K #6.0 #VB #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -