📄 ct_cpwh.frm
字号:
frm_msg.Caption = "该编号菜牌已被删除"
Call flex_refresh
Case 1
t_czlsh = Pub_czls(PUB_data, "CT_CPWH", Time(), pub_code)
Select Case t_funcNo
Case "1" '修改
menu_rec.Edit
tPkjFieldGet menu_rec, "1"
menu_rec.Update
Call Pub_czle(PUB_data, t_czlsh, SYS_GWMC & "餐厅 编号;" & Trim(cm_zlbdma.Text) & Trim(m_xh.Text) & " 修改成功", Time(), pub_code)
frm_msg.Caption = "编号;" & Trim(cm_zlbdma.Text) & Trim(m_xh.Text) & " 修改成功"
Case "2"
menu_rec.Delete
Call Pub_czle(PUB_data, t_czlsh, SYS_GWMC & "餐厅 编号;" & Trim(cm_zlbdma.Text) & Trim(m_xh.Text) & " 删除成功", Time(), pub_code)
frm_msg.Caption = "编号;" & Trim(cm_zlbdma.Text) & Trim(m_xh.Text) & " 删除成功"
End Select
Call Pub_UNlock(SYS_GWDM & "_MENU", menu_rec)
frm_msg.Visible = True
Call flex_refresh
End Select
Else
Call button_refresh(True)
End If
menu_rec.Close
End Select
Case 1 '按"退出"键
Call button_refresh(True)
End Select
tPkjEnabledFT "", False
lb_xxxx.Caption = "菜牌信息"
gd1.Enabled = True
gd1.SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_func_Click(Index As Integer)
Dim menu_rec As Recordset
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 0 '增加
t_funcNo = "0"
lb_xxxx.Caption = "菜牌信息(增加)"
'编辑字段初始化
tPkjEnabledFT t_funcNo, True
tPkjTextSet flex_rec, 2
'界面BUTTON初始化
Call button_refresh(False)
gd1.Enabled = False
cm_zlbdma.SetFocus
Case 1, 2 '修改, 删除
If gd1.Rows - 1 <> 0 Then
Set menu_rec = PUB_data.OpenRecordset("SELECT * FROM " & SYS_GWDM & "_MENU WHERE TRIM(BHA)=" & IIf(gd1.TextArray(gd1.Row * t_fdcounts) = "" Or (Not IsNumeric(gd1.TextArray(gd1.Row * t_fdcounts))), 0, gd1.TextArray(gd1.Row * t_fdcounts)), 4, 0, 2)
If Not menu_rec.BOF Then
menu_rec.MoveLast
Select Case Index
Case 1 '修改
t_funcNo = "1"
lb_xxxx.Caption = "菜牌信息(修改)"
tPkjEnabledFT t_funcNo, True
Case 2 '删除
t_funcNo = "2"
lb_xxxx.Caption = "菜牌信息(删除)"
tPkjEnabledFT t_funcNo, False
End Select
tPkjTextSet menu_rec, 1
'界面BUTTON初始化
Call button_refresh(False)
gd1.Enabled = False
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If
menu_rec.Close
cm_zlbdma.SetFocus
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If '
Case 3 '打印
Case 4 '筛选
fm_cx.Enabled = True
tx_bha.SetFocus
Case 5 '刷新
Call flex_refresh
gd1.SetFocus
End Select
End Sub
Private Sub Form_Activate()
gd1.SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
key_index = 100
frm_msg.Caption = ""
frm_msg.Visible = False
Select Case KeyCode
Case vbKeyF2
key_index = 0 '增加
Case vbKeyF3
key_index = 1 '修改
Case vbKeyF4
key_index = 2 '删除
Case vbKeyF5
key_index = 3 '打印
Case vbKeyF6
key_index = 4 '筛选
Case vbKeyF9
key_index = 5 '筛选
Case vbKeyEscape
key_index = 101 '退出
End Select
If key_index <> 100 Then
If key_index = 101 Then
Call CMD_EXIT_Click
Else
If cmd_func(key_index).Enabled Then
Call cmd_func_Click(key_index)
End If
End If
End If
End Sub
Private Sub m_bhb_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
m_zwmc.SetFocus
End If
End Sub
Private Sub m_dj_GotFocus()
If PUB_SZJY(m_dj, frm_msg) Then
m_dj.Text = Format(m_dj.Text)
End If
End Sub
Private Sub m_dj_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If op_djsr_ft(0).Value Then
op_djsr_ft(0).SetFocus
Else
op_djsr_ft(1).SetFocus
End If
End If
End Sub
Private Sub m_dj_LostFocus()
frm_msg.Visible = False
frm_msg.Caption = ""
If PUB_SZJY(m_dj, frm_msg) Then
m_dj.Text = Format(m_dj.Text, "#,##0.00")
End If
End Sub
Private Sub m_jldw_GotFocus()
frm_msg.Visible = True
frm_msg.Caption = "如果是按时间计费， 计量单位必须是分， 且计量单位名称不必输入..."
End Sub
Private Sub m_jldw_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
m_dj.SetFocus
End If
End Sub
Private Sub m_jldw_LostFocus()
frm_msg.Visible = False
frm_msg.Caption = ""
End Sub
Private Sub m_xh_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Select Case t_funcNo
Case "1" '修改
m_bhb.SetFocus
Case "2" '删除
cmd_ok(0).SetFocus
End Select
End If
End Sub
'**************************************************************************************************
'* 功 能 : 修改和删除时
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_xh_LostFocus()
Dim menu_rec As Recordset
frm_msg.Visible = False
frm_msg.Caption = ""
If Len(Trim(m_xh.Text)) <> 2 Then
frm_msg.Visible = True
frm_msg.Caption = "编号为 2 位"
m_xh.SetFocus
Else
Set menu_rec = PUB_data.OpenRecordset("SELECT * FROM " & SYS_GWDM & "_MENU WHERE TRIM(BHA)='" & Trim(cm_zlbdma.Text) & Trim(m_xh.Text) & "'", 4, 0, 2)
If Not menu_rec.BOF Then
menu_rec.MoveLast
tPkjTextSet menu_rec, "1"
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
m_xh.SetFocus
End If
menu_rec.Close
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_Load()
frm_msg.Visible = False
frm_msg.Caption = ""
ct_cpwh.KeyPreview = True
fm_cx.Enabled = False
tx_bha.Text = ""
Call tPGetZLBDMA(cm_zlbdma)
Set flex_rec = PUB_data.OpenRecordset("SELECT * FROM " & SYS_GWDM & "_MENU ORDER BY BHA", 4, 0, 2)
If Not flex_rec.BOF Then
flex_rec.MoveLast
End If
t_fields = Array("BHA", "BHB", "ZWMC", "YWMC", "JLDW", "DJ", "LBDMA", "DJSR_FT") '设置显示字段
t_fdxs = Array(0, 0, 0, 0, 0, 2, 0, 0) '设置显示字段
t_bt = "^编号 |<简拼 |<中文名称 |<英文名称 |^单位 |>单 价 |^类别|^单价输入" '设置显示表头格式
t_fdcounts = 8
Call flex_refresh
tPkjTextSet flex_rec, 0 '把当前字段清空
tPkjEnabledFT "", False
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_GotFocus()
Dim menu_rec As Recordset
If gd1.Rows - 1 <> 0 Then
Set menu_rec = PUB_data.OpenRecordset("SELECT * FROM " & SYS_GWDM & "_MENU WHERE BHA=" & IIf(gd1.TextArray(gd1.Row * t_fdcounts) = "", "NULL", "'" & Trim(gd1.TextArray(gd1.Row * t_fdcounts)) & "'"), 4, 0, 2)
If Not menu_rec.BOF Then
menu_rec.MoveLast
tPkjTextSet menu_rec, 1 '按记录集给字段赋值
Else
tPkjTextSet menu_rec, 0 '把字段清空
End If
menu_rec.Close
Else
tPkjTextSet menu_rec, 0 '把字段清空
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
cmd_func(0).SetFocus
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_RowColChange()
Call gd1_GotFocus
End Sub
Private Sub m_ywmc_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
m_jldw.SetFocus
End If
End Sub
Private Sub m_zwmc_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
m_ywmc.SetFocus
End If
End Sub
Private Sub op_djsr_ft_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If op_sj_ft(0).Value Then
op_sj_ft(0).SetFocus
Else
op_sj_ft(1).SetFocus
End If
End If
End Sub
Private Sub op_sj_ft_Click(Index As Integer)
frm_msg.Visible = False
frm_msg.Caption = ""
If op_sj_ft(0).Value Then
m_sjc.Enabled = False
Else
m_sjc.Enabled = True
End If
End Sub
Private Sub op_sj_ft_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If op_sj_ft(0).Value Then
cmd_ok(0).SetFocus
Else
m_sjc.SetFocus
End If
End If
End Sub
Private Sub tx_bha_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
gd1.SetFocus
End If
End Sub
Private Sub tx_bha_LostFocus()
Set flex_rec = PUB_data.OpenRecordset("SELECT * FROM " & SYS_GWDM & "_MENU WHERE LEFT(TRIM(BHA)," & Len(Trim(tx_bha.Text)) & ")='" & Trim(tx_bha.Text) & "' ORDER BY BHA", 4, 0, 2)
If Not flex_rec.BOF Then
flex_rec.MoveLast
End If
Call flex_refresh
gd1.SetFocus
fm_cx.Enabled = False
End Sub
Private Sub XT_Timer_Timer()
JZ_DQSJ2.Caption = Time()
End Sub
Public Sub tPGetZLBDMA(tp_cm As Control)
Dim temp_rec As Recordset
tp_cm.Clear
Set temp_rec = PUB_data.OpenRecordset("SELECT ZLBDMA FROM ZLLBA WHERE TRIM(GWDM)='" & Trim(SYS_GWDM) & "' ORDER BY ZLBDMA", 4, 0, 2)
If Not temp_rec.BOF Then
temp_rec.MoveLast
temp_rec.MoveFirst
Do While Not temp_rec.EOF
tp_cm.AddItem Trim(temp_rec.Fields("ZLBDMA"))
temp_rec.MoveNext
Loop
End If
temp_rec.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -