📄 dt_ckgl.frm
字号:
Else
End If
.Fields("GJMC") = IIf(Trim(cm_gjmc.Text) = "", "*", Trim(cm_gjmc.Text))
.Fields("ZJDM") = IIf(Trim(m_zjdm.Text) = "", "*", Trim(m_zjdm.Text))
.Fields("ZJMC") = IIf(Trim(cm_zjmc.Text) = "", "*", Trim(cm_zjmc.Text))
.Fields("KR_ZJHM") = IIf(Trim(m_kr_zjhm.Text) = "", "*", Trim(m_kr_zjhm.Text))
.Fields("QZDM") = IIf(Trim(m_qzdm.Text) = "", "*", Trim(m_qzdm.Text))
.Fields("QZMC") = IIf(Trim(cm_qzmc.Text) = "", "*", Trim(cm_qzmc.Text))
If Trim(m_kr_qz_yxq.Text) = "____-__-__" Then
.Fields("KR_QZ_YXQ") = Null
Else
.Fields("KR_QZ_YXQ") = CDate(m_kr_qz_yxq.Text)
End If
.Fields("DZ") = IIf(Trim(m_dz.Text) = "", "*", Trim(m_dz.Text))
.Fields("BZ") = IIf(Trim(m_bz.Text) = "", "*", Trim(m_bz.Text))
.Fields("KF_ZKL") = IIf(Trim(m_kf_zkl.Text) = "", 0, CDec(Format(m_kf_zkl.Text / 100, "0.00")))
.Fields("KF_FZ") = IIf(Trim(m_kf_fz.Text) = "", 0, CDec(Format(m_kf_fz.Text, "#,##0.00")))
.Fields("TSFW") = IIf(Trim(cm_tsfw.Text) = "", "*", Trim(cm_tsfw.Text))
.Fields("DFY_DM") = IIf(Trim(m_dfy_dm.Text) = "", "*", Trim(m_dfy_dm.Text))
.Fields("LDCS") = IIf(Trim(m_ldcs.Text) = "", 1, Int(m_ldcs.Text))
Select Case temp_funcNo
Case "0"
.Fields("LOCK_NO") = 0
Set MaxXH_rec = PUB_data.OpenRecordset("SELECT MAX(XH) AS MAXXH,COUNT(*) AS CK_RECC FROM DT_CKQD", 4, 0, 2)
If Not MaxXH_rec.Fields("CK_RECC") = 0 Then
MaxXH_rec.MoveLast
.Fields("XH") = MaxXH_rec.Fields("MAXXH") + 1
Else
.Fields("XH") = 1
End If
MaxXH_rec.Close
m_xh.Text = .Fields("XH")
End Select
End With
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
cmd_ok(0).Enabled = Not t_ft
cmd_ok(1).Enabled = Not t_ft
cmd_func(4).Enabled = t_ft
cmd_func(5).Enabled = t_ft
cmd_func(0).Enabled = t_ft
If flex_rec.RecordCount <> 0 Then
cmd_func(1).Enabled = t_ft
cmd_func(2).Enabled = t_ft
cmd_func(3).Enabled = t_ft
Else
cmd_func(1).Enabled = False
cmd_func(2).Enabled = False
cmd_func(3).Enabled = False
End If
dt_ckgl.KeyPreview = t_ft
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub flex_refresh()
Call Flex_full(gd1, t_bt, flex_rec, t_fields, t_fdcounts - 1, t_fdxs)
lb_jls.Caption = gd1.Rows - 1
Call button_refresh(True)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Sub MAIN(t_gnmc As String)
Label1.Caption = t_gnmc
JZ_USER = SYS_USER + Space(1) + SYS_NAME
JZ_JRSJ2 = Time()
JZ_DQSJ2 = Time()
End Sub
Private Sub cm_gjmc_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_gjdm.SetFocus
Case vbKeyReturn
m_zjdm.SetFocus
End Select
End Sub
Private Sub cm_qzmc_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_qzdm.SetFocus
Case vbKeyReturn
m_kr_qz_yxq.SetFocus
End Select
End Sub
Private Sub cm_tsfw_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_kf_zkl.SetFocus
Case vbKeyDown, vbKeyReturn
m_bz.SetFocus
End Select
End Sub
Private Sub cm_zjmc_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_zjdm.SetFocus
Case vbKeyReturn
m_kr_zjhm.SetFocus
End Select
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
flex_rec.Close
Unload Me
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_ok_Click(Index As Integer)
Dim temp_ft As Boolean
Dim ckqd_rec As Recordset
Dim temp_lock As Integer
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 0 '按"确定"键
'修改和增加时校验字段合法性
If t_funcNo = "0" Or t_funcNo = "1" Then
'客人生日
If PUB_RQJY(m_kr_sr, frm_msg) Then
Else
Exit Sub
End If
'客人有效期
If PUB_RQJY(m_kr_qz_yxq, frm_msg) Then
Else
Exit Sub
End If
'客人房租
If PUB_SZJY(m_kf_fz, frm_msg) Then
m_kf_fz.Text = Format(m_kf_fz.Text, "0.00")
Else
Exit Sub
End If
'客人折扣率
If PUB_SZJY(m_kf_zkl, frm_msg) Then
If m_kf_zkl.Text >= 0 And m_kf_zkl.Text <= 100 Then
m_kf_zkl.Text = Int(m_kf_zkl.Text)
Else
frm_msg.Visible = True
frm_msg.Caption = "不适当的客房折扣率"
m_kf_zkl.SetFocus
Exit Sub
End If
Else
Exit Sub
End If
'客人来店次数
If PUB_SZJY(m_ldcs, frm_msg) Then
m_ldcs.Text = Int(m_ldcs.Text)
Else
Exit Sub
End If
End If '合法性校验结束
Select Case t_funcNo
Case "0" '增加记录
Set ckqd_rec = PUB_data.OpenRecordset("SELECT * FROM DT_CKQD", 2, 0, 2)
If Not ckqd_rec.BOF Then
ckqd_rec.MoveLast
End If
t_czlsh = Pub_czls(PUB_data, "DT_CKGL", Time(), pub_code)
ckqd_rec.AddNew
tPkjFieldGet ckqd_rec, "0" '给各字段赋值
ckqd_rec.Update
Call Pub_czle(PUB_data, t_czlsh, "常来客 序号:" & Trim(m_xh.Text) & " 增加成功", Time(), pub_code)
ckqd_rec.Close
frm_msg.Visible = True
frm_msg.Caption = "常来客 " & Trim(m_kr_x.Text) & " " & Trim(m_kr_m.Text) & " 增加成功"
Call flex_refresh
Case "1", "2" '修改和删除记录
Set ckqd_rec = PUB_data.OpenRecordset("SELECT * FROM DT_CKQD WHERE XH = " & Trim(m_xh.Text), 2, 0, 2)
If Not ckqd_rec.BOF Then
ckqd_rec.MoveLast
temp_lock = Pub_lock("PUBLIC", "DT_CKQD", ckqd_rec)
Select Case temp_lock
Case 0
frm_msg.Visible = True
frm_msg.Caption = "该常客清单正被其他人占用, 请稍候再修改"
Call button_refresh(True)
Case 2
Call Pub_UNlock("DT_CKQD", ckqd_rec)
frm_msg.Visible = True
frm_msg.Caption = "该客人清单已被删除"
Call flex_refresh
Case 1
t_czlsh = Pub_czls(PUB_data, "DT_CKGL", Time(), pub_code)
Select Case t_funcNo
Case "1" '修改
ckqd_rec.Edit
tPkjFieldGet ckqd_rec, "1"
ckqd_rec.Update
Call Pub_czle(PUB_data, t_czlsh, "常来客 序号;" & Trim(m_xh.Text) & " 修改成功", Time(), pub_code)
frm_msg.Caption = "常来客 序号;" & Trim(m_xh.Text) & " " & Trim(m_kr_x.Text) & " " & Trim(m_kr_m.Text) & " 修改成功"
Case "2"
ckqd_rec.Delete
Call Pub_czle(PUB_data, t_czlsh, "常来客 序号;" & Trim(m_xh.Text) & " 删除成功", Time(), pub_code)
frm_msg.Caption = "常来客 序号;" & Trim(m_xh.Text) & " " & Trim(m_kr_x.Text) & " " & Trim(m_kr_m.Text) & " 删除成功"
End Select
Call Pub_UNlock("DT_CKQD", ckqd_rec)
frm_msg.Visible = True
Call flex_refresh
End Select
Else
Call button_refresh(True)
End If
ckqd_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 ckqd_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
m_kr_x.SetFocus
Case 1, 2 '修改, 删除
If gd1.Rows - 1 <> 0 Then
Set ckqd_rec = PUB_data.OpenRecordset("SELECT * FROM DT_CKQD WHERE XH=" & 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 ckqd_rec.BOF Then
ckqd_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 ckqd_rec, 1
'界面BUTTON初始化
Call button_refresh(False)
gd1.Enabled = False
m_xh.SetFocus
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If
ckqd_rec.Close
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If '
Case 3 '打印
Case 4 '筛选
fm_cx.Enabled = True
lb_sx_zwxm.Enabled = True
lb_sx_wwxm.Enabled = True
lb_sx_kr_sr.Enabled = True
lb_sx_gj.Enabled = True
tx_kr_x.Enabled = True
tx_kr_m.Enabled = True
tx_yw_x.Enabled = True
tx_yw_m.Enabled = True
tx_kr_sr.Enabled = True
tx_gjdm.Enabled = True
tx_gjmc.Enabled = True
tx_kr_x.SetFocus
Case 5 '刷新
Call flex_refresh
gd1.SetFocus
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -