📄 dt_zck.frm
字号:
'**************************************************************************************************
'* 功 能 : 免费早餐卡的 餐厅分担额*数量 返回值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Get ZCKCT() As Double
ZCKCT = Rt_zckct
End Property
'**************************************************************************************************
'* 功 能 : 免费早餐卡的 餐厅分担额*数量 赋初始值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Let ZCKCT(temp_zckct As Double)
Rt_zckct = temp_zckct
End Property
'**************************************************************************************************
'* 功 能 : 早餐卡数量 返回值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Get ZCKSL() As Integer
ZCKSL = Rt_zcksl
End Property
'**************************************************************************************************
'* 功 能 : 给早餐卡数量 赋初始值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Let ZCKSL(temp_sl As Integer)
Rt_zcksl = temp_sl
End Property
'**************************************************************************************************
'* 功 能 : 帐号 返回值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Get ZH() As String
ZH = Rt_zh
End Property
'**************************************************************************************************
'* 功 能 : 给帐号 赋初始值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.17
'* 修改日期 : 1999.03.17
'**************************************************************************************************
Public Property Let ZH(temp_zhin As String)
Rt_zh = temp_zhin
End Property
'**************************************************************************************************
'* 功 能 : 用来设置各种控件 .edabled 的设置
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'* 参数说明 : temp_zck_id -- 表示 发放, 回收, 领用 等各种功能
'* temp_ft -- 表示 控件的 .Enabled 的状态
'**************************************************************************************************
Private Sub tPkjEnabledFT(temp_zck_id As String, temp_ft As Boolean) '控件.enabled 的设置
m_zck_bz.Enabled = False
m_fssl.Enabled = temp_ft
m_fsbz.Enabled = temp_ft
End Sub
'**************************************************************************************************
'* 功 能 : 用来设置各种控件赋值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'* 参数说明 : temp_rec -- 显示的记录集名称
'* trmp_bszt -- 表示字段按何方式显示 0 - 把字段清空 1 - 按记录集显示字段 2 - 字段初始化
'**************************************************************************************************
Private Sub tPkjTextSet(temp_rec As Recordset, temp_bszt As String)
Select Case temp_bszt
Case 0 '把字段清空
m_zck_bz.Text = ""
m_fssl.Text = ""
m_fsbz.Text = ""
Case 2 '把字段初始化
m_zck_bz.Text = ""
m_fssl.Text = 0
m_fsbz.Text = ""
Case 1 '按记录集给字段赋值
m_zck_bz.Text = Format(temp_rec.Fields("ZCK_BZ"), "#,##0.00")
m_fssl.Text = Format(temp_rec.Fields("FSSL"), "#,##0")
m_fsbz.Text = Trim(temp_rec.Fields("FSBZ"))
End Select
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
cmd_ok(0).Enabled = Not t_ft
cmd_ok(1).Enabled = Not t_ft
dt_zck.KeyPreview = t_ft
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub flex_refresh()
Call Flex_full(gd1, t_bt, zck_rec, t_fields, t_fdcounts - 1, t_fdxs)
gd1.Refresh
Call button_refresh(True)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Sub MAIN(temp_zck_id As String, temp_zdh_in As String)
CS_zck_id = Trim(temp_zck_id)
CS_zdh_in = Trim(temp_zdh_in)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
Rt_zcksl = 0
' Rt_zh = ""
Rt_zckbz = 0
Rt_zckkf = 0
Rt_zckct = 0
zck_rec.Close
Unload Me
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub CMD_FUNC_Click()
Dim temp_zckgd As Recordset
Dim temp_gdtb As String
Dim temp_zckxh As Recordset
Dim temp_mfckft As Boolean
Dim temp_ft As Boolean
temp_ft = True
Rt_zcksl = 0
Rt_zckbz = 0
Rt_zckkf = 0
Rt_zckct = 0
If CS_zck_id <> "领用" Then
'未输入对方帐号时, 可以退出
If m_dfzh.Enabled Then
temp_ft = False
End If
End If
If temp_ft Then
temp_mfckft = False
temp_gdtb = "ZC" + Trim(Str(year(Date)))
Set temp_zckgd = PUB_data.OpenRecordset("SELECT * FROM " & temp_gdtb, 2, 0, 2)
If Not temp_zckgd.BOF Then
temp_zckgd.MoveLast
End If
zck_rec.Requery
If Not zck_rec.BOF Then
zck_rec.MoveLast
zck_rec.MoveFirst
Dim zckbz_rec As Recordset
Set zckbz_rec = PUB_data.OpenRecordset("SELECT * FROM DT_ZCKBZ", 4, 0, 2)
If Not zckbz_rec.BOF Then
zckbz_rec.MoveLast
zckbz_rec.MoveFirst
End If
Do While Not zck_rec.EOF
If zck_rec.Fields("FSSL") = 0 Then
Else
Rt_zcksl = Rt_zcksl + zck_rec.Fields("FSSL")
t_czlsh = Pub_czls(PUB_data, "DT_ZCK", Time(), pub_code)
temp_zckgd.AddNew
temp_zckgd.Fields("ZCK_BZ") = zck_rec.Fields("ZCK_BZ")
Select Case CS_zck_id
Case "回收"
temp_zckgd.Fields("LYSL") = 0
temp_zckgd.Fields("FFSL") = 0
temp_zckgd.Fields("HSSL") = zck_rec.Fields("FSSL")
Case "发放"
temp_zckgd.Fields("LYSL") = 0
temp_zckgd.Fields("FFSL") = zck_rec.Fields("FSSL")
temp_zckgd.Fields("HSSL") = 0
Case "领用"
temp_zckgd.Fields("LYSL") = zck_rec.Fields("FSSL")
temp_zckgd.Fields("FFSL") = 0
temp_zckgd.Fields("HSSL") = 0
End Select
temp_zckgd.Fields("BZ") = IIf(Trim(CS_zdh_in) = "", "*", Trim(CS_zdh_in))
temp_zckgd.Fields("CZY") = SYS_USER
temp_zckgd.Fields("LOCK_NO") = 0
temp_zckgd.Fields("FSRQ") = Date
temp_zckgd.Fields("ZH") = IIf(Trim(m_dfzh.Text) = "", "*", Trim(m_dfzh.Text))
Set temp_zckxh = PUB_data.OpenRecordset("SELECT MAX(XH) AS MAXXH,COUNT(*) AS CK_RECC FROM " & temp_gdtb, 4, 0, 2)
If Not temp_zckxh.Fields("CK_RECC") = 0 Then
temp_zckxh.MoveLast
temp_zckgd.Fields("XH") = temp_zckxh.Fields("MAXXH") + 1
Else
temp_zckgd.Fields("XH") = 1
End If
temp_zckxh.Close
temp_zckgd.Update
Call Pub_czle(PUB_data, t_czlsh, CS_zck_id & " 早餐卡 标准 " & zck_rec!ZCK_BZ & " 的 " & zck_rec.Fields("FSSL") & " 张", Time(), pub_code)
temp_mfckft = True
'计算 早餐卡标准, 客房分担额, 餐厅分担额 的金额
zckbz_rec.FindFirst "ZCK_BZ=" & zck_rec!ZCK_BZ
If Not zckbz_rec.NoMatch Then
Rt_zckbz = Rt_zckbz + zckbz_rec!ZCK_BZ * zck_rec!FSSL
Rt_zckct = Rt_zckct + zckbz_rec!FD_CT * zck_rec!FSSL
Rt_zckkf = Rt_zckkf + zckbz_rec!FD_KF * zck_rec!FSSL
End If
End If
zck_rec.MoveNext
Loop
zckbz_rec.Close
End If
'修改 DT_KRQD 中的 MFCK_FT 字段
If CS_zck_id = "发放" Then
If temp_mfckft Then
PUB_data.Execute "UPDATE DT_KRQD SET MFZC_FT = '1' WHERE TRIM(ZH)='" & Trim(m_dfzh.Text) & "' AND LEN(TRIM(ZH))=" & Len(Trim(m_dfzh.Text))
End If
End If
temp_zckgd.Close
End If
zck_rec.Close
Unload Me
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub cmd_ok_Click(Index As Integer)
Dim temp_ft As Boolean
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 0 '按"确定"键
Set t_rec = LOCAL_data.OpenRecordset("SELECT * FROM DT_ZCK WHERE ZCK_BZ=" & Format(m_zck_bz.Text), 2, 0, 2)
If Not t_rec.BOF Then
t_rec.MoveLast
t_rec.Edit
t_rec.Fields("ZCK_BZ") = CDec(Trim(m_zck_bz.Text))
t_rec.Fields("FSSL") = Int(Trim(m_fssl.Text))
t_rec.Fields("FSBZ") = IIf(Trim(m_fsbz.Text) = "", "*", Trim(m_fsbz.Text))
t_rec.Update
End If
t_rec.Close
Call flex_refresh
Case 1 '按"退出"键
Call button_refresh(True)
End Select
tPkjEnabledFT CS_zck_id, False '设置控件是否可用
gd1.Enabled = True
gd1.SetFocus
End Sub
Private Sub Form_Activate()
If m_dfzh.Visible Then
m_dfzh.SetFocus
Else
gd1.SetFocus
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -