📄 智能决策.frm
字号:
VERSION 5.00
Begin VB.Form frmdisicion
BackColor = &H00C0E0FF&
Caption = "智能决策"
ClientHeight = 7290
ClientLeft = 3060
ClientTop = 2295
ClientWidth = 9135
LinkTopic = "Form4"
ScaleHeight = 7290
ScaleWidth = 9135
Begin VB.Frame Frame1
BackColor = &H00C0FFC0&
BorderStyle = 0 'None
Height = 2295
Left = 3120
TabIndex = 5
Top = 3600
Visible = 0 'False
Width = 4815
Begin VB.CommandButton Command5
BackColor = &H00C0FFC0&
Caption = "容我考虑一下"
Height = 375
Left = 2640
Style = 1 'Graphical
TabIndex = 7
Top = 1440
Width = 1455
End
Begin VB.CommandButton Command4
BackColor = &H00C0FFC0&
Caption = "建议不错可行"
Height = 375
Left = 720
MaskColor = &H00FFC0C0&
Style = 1 'Graphical
TabIndex = 6
Top = 1440
Width = 1455
End
Begin VB.Label Label2
BackColor = &H00C0FFC0&
Caption = "您是否希望此建议立刻施行？（Y/N）"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 8
Top = 720
Width = 3615
End
End
Begin VB.CommandButton Command3
Caption = "相似原则"
Height = 375
Left = 1200
TabIndex = 4
Top = 4440
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "类别因素"
Height = 375
Left = 1200
TabIndex = 2
Top = 3360
Width = 1095
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H00C0E0FF&
CausesValidation= 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 1815
Left = 3360
Locked = -1 'True
MultiLine = -1 'True
OLEDragMode = 1 'Automatic
OLEDropMode = 1 'Manual
TabIndex = 1
Top = 1560
Width = 4215
End
Begin VB.CommandButton Command1
Caption = "季节因素"
Height = 375
Left = 1200
TabIndex = 0
Top = 2160
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0E0FF&
Caption = "以下建议可供参考"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 255
Left = 4440
TabIndex = 3
Top = 840
Width = 1815
End
End
Attribute VB_Name = "frmdisicion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim click_sum As Long
Dim desicionstring As String
Private Sub Command4_Click()
form3.Show
End Sub
Private Sub Command1_Click()
Dim monthnum As Long
Call fundate
monthnum = CLng(monthword)
If monthnum = 7 Or monthnum = 5 Or monthnum = 6 Then
desicionstring = " 夏季不宜食用过多的辛辣食物！ " & Chr(10) & Chr(13) & "可适当减少含辣椒菜的数量。"
Text1.Text = desicionstring
ElseIf monthnum = 8 Or monthnum = 9 Or monthnum = 10 Then
desicionstring = " 秋季,可利用中秋节和国庆节搞一些特色活动！" & Chr(10) & Chr(13) & " 例如加入月饼等。"
Text1.Text = desicionstring
ElseIf monthnum = 11 Or monthnum = 12 Or monthnum = 1 Then
desicionstring = " 冬季,因天气寒冷，可增加热菜例如特色火锅！"
Text1.Text = desicionstring
ElseIf monthnum = 2 Or monthnum = 3 Or monthnum = 4 Then
desicionstring = " 春季,这一时期蔬菜品种有限，但各种野菜品种较丰富，且很受欢迎！"
Text1.Text = desicionstring
End If
For i = 1 To 300000
DoEvents
Next i
Frame1.Visible = True
End Sub
Private Sub Command2_Click()
Dim click_sort(6) As Long
Dim click_string(6) As String
Dim i As Integer
Frame1.Visible = False
desicionstring = " "
djltable.MoveFirst
While Not djltable.EOF
Select Case djltable.Fields(2)
Case Is = "凉菜"
click_sort(0) = click_sort(0) + djltable.Fields(3)
Case Is = "海鲜"
click_sort(1) = click_sort(1) + djltable.Fields(3)
Case Is = "肉类"
click_sort(2) = click_sort(2) + djltable.Fields(3)
Case Is = "菜类"
click_sort(3) = click_sort(3) + djltable.Fields(3)
Case Is = "汤类"
click_sort(4) = click_sort(4) + djltable.Fields(3)
Case Is = "主食"
click_sort(5) = click_sort(5) + djltable.Fields(3)
End Select
click_sum = click_sum + djltable.Fields(3)
djltable.MoveNext
Wend
For i = 0 To 5
If click_sort(i) * 3 >= click_sum Then
Select Case i
Case Is = 0
click_string(0) = "凉菜、"
Case Is = 1
click_string(1) = "海鲜、"
Case Is = 2
click_string(2) = "肉类、"
Case Is = 3
click_string(3) = "菜类、"
Case Is = 4
click_string(4) = "汤类、"
Case Is = 5
click_string(5) = "主食"
End Select
End If
Next i
For i = 0 To 5
desicionstring = desicionstring + click_string(i)
Next i
Text1.Text = Chr(10) + desicionstring + "的点击率占1/3以上，很受欢迎。建议增加这类菜的促销活动和新菜进一步开发。"
'For i = 0 To 5
'Print click_sort(i)
'Next i
'Print click_sum
End Sub
Private Sub Command3_Click()
Frame1.Visible = False
desicionstring = " "
i = 0
djltable.MoveFirst
While i < 5
desicionstring = desicionstring + " " + djltable.Fields(1)
i = i + 1
djltable.MoveNext
Wend
Text1.Text = Chr(10) + Chr(13) + desicionstring + "5个菜深受顾客喜爱，可以以他们为主，推出作套菜，提高生产效率和吸引更多顾客。"
End Sub
Private Sub Command5_Click()
Frame1.Visible = False
End Sub
Private Sub Form_Load()
Dim i As Long
dcpath = "c:\点菜系统.mdb"
Set dcdb = OpenDatabase(dcpath)
Set cptable = dcdb.OpenRecordset("菜谱表", dbOpenTable)
Set djltable = dcdb.OpenRecordset("点击率", dbOpenTable)
Dim clicknum As Long
Dim recordsum As Long
djltable.MoveFirst
While Not djltable.EOF
djltable.Delete
djltable.MoveNext
Wend
cptable.MoveFirst
While Not cptable.EOF
cptable.Edit
cptable.Fields(11) = cptable.Fields(7)
cptable.Update
recordsum = recordsum + 1
cptable.MoveNext
Wend
'MsgBox recordsum
i = 0
cptable.MoveFirst
clicknum = cptable.Fields(11)
While i < recordsum
cptable.MoveFirst
clicknum = cptable.Fields(11)
While Not cptable.EOF
If cptable.Fields(11) > clicknum Then
clicknum = cptable.Fields(11)
End If
cptable.MoveNext
Wend
cptable.MoveFirst
While Not cptable.EOF
If cptable.Fields(11) = clicknum Then
cptable.Edit
cptable.Fields(11) = -1
cptable.Fields(10) = i
cptable.Update
i = i + 1
End If
cptable.MoveNext
Wend
Wend
i = 0
For i = 0 To recordsum - 1
cptable.MoveFirst
While Not cptable.EOF
If cptable.Fields(10) = i Then
With djltable
.AddNew
.Fields(0) = cptable.Fields(0)
.Fields(1) = cptable.Fields(1)
.Fields(2) = cptable.Fields(3)
.Fields(3) = cptable.Fields(7)
.Update
End With
End If
cptable.MoveNext
Wend
Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
click_sum = 0
desicionstring = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -