📄 dt_zckbz.frm
字号:
TabIndex = 24
Top = 840
Width = 5055
End
End
Begin VB.Timer XT_Timer
Interval = 1000
Left = 0
Top = 7200
End
Begin VB.Frame JZ
Enabled = 0 'False
Height = 600
Left = 135
TabIndex = 2
Top = 8220
Width = 9870
Begin VB.Label JZ_DQSJ2
BackStyle = 0 'Transparent
Height = 330
Left = 7980
TabIndex = 8
Top = 225
Width = 1050
End
Begin VB.Label JZ_NAME
BackStyle = 0 'Transparent
Caption = "操作员:"
Height = 330
Left = 450
TabIndex = 7
Top = 270
Width = 690
End
Begin VB.Label JZ_USER
BackStyle = 0 'Transparent
Height = 330
Left = 1320
TabIndex = 6
Top = 240
Width = 1500
End
Begin VB.Label JZ_JRSJ1
Caption = "进入时间:"
Height = 195
Left = 3285
TabIndex = 5
Top = 225
Width = 825
End
Begin VB.Label JZ_JRSJ2
Height = 195
Left = 4380
TabIndex = 4
Top = 225
Width = 1230
End
Begin VB.Label JZ_DQSJ1
Caption = "当前时间:"
Height = 195
Left = 6930
TabIndex = 3
Top = 225
Width = 825
End
End
Begin VB.CommandButton CMD_EXIT
Caption = "退 出(Esc)"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 10140
TabIndex = 0
Top = 8280
Width = 1575
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 330
Left = 5895
TabIndex = 9
Top = 180
Visible = 0 'False
Width = 5685
End
Begin VB.Label Label1
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 180
TabIndex = 1
Top = 120
Width = 11475
End
End
Attribute VB_Name = "dt_zckbz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim key_index As Integer '表示当前功能键的代码
Dim zckbz_rec As Recordset
Dim t_funcNo As String '0:增加记录 1:修改记录
Dim t_bt As String '存储列表显示的表头
Dim t_fields As Variant '存储列表显示的字段名
Dim t_fdxs As Variant '显示列是否有特殊处理 0 无, 1 有
Dim t_fdcounts As Integer '表示列表所显示的字段的个数
Dim t_rec As Recordset
Dim t_czlsh As String
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 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 zckbz_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_zckbz.KeyPreview = t_ft
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub flex_refresh()
Call Flex_full(gd1, t_bt, zckbz_rec, t_fields, t_fdcounts - 1, t_fdxs)
lb_jls.Caption = gd1.Rows - 1
gd1.Refresh
lbzck_bz.Enabled = False
lbfd_kf.Enabled = False
' lbfd_ct.Enabled = False
m_zck_bz.Enabled = False
m_fd_kf.Enabled = False
' m_fd_ct.Enabled = False
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
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
zckbz_rec.Close
Unload Me
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_ok_Click(Index As Integer)
Dim temp_lock As Integer
frm_msg.Visible = False
frm_msg.Caption = ""
If Trim(m_zck_bz.Text) = "" Then
Call flex_refresh
Else
If Not IsNumeric(m_zck_bz.Text) Then
m_zck_bz.BackColor = RGB(255, 0, 0)
frm_msg.Visible = True
frm_msg.Caption = "早餐卡标准输入错误"
m_zck_bz.SetFocus
Else
m_zck_bz.BackColor = RGB(255, 255, 255)
End If
If Not IsNumeric(m_fd_kf.Text) Then
m_zck_bz.BackColor = RGB(255, 0, 0)
frm_msg.Visible = True
frm_msg.Caption = "客房分担额输入错误"
m_zck_bz.SetFocus
Else
m_zck_bz.BackColor = RGB(255, 255, 255)
End If
Select Case Index
Case 0 '按"确定"键
Select Case t_funcNo
Case "0" '增加记录
Set t_rec = PUB_data.OpenRecordset("SELECT ZCK_BZ,FD_KF,FD_CT,LOCK_NO FROM DT_ZCKBZ", 2, 0, 2)
If Not t_rec.BOF Then
t_rec.MoveLast
t_rec.MoveFirst
Do While Not t_rec.EOF
If m_zck_bz.Text <> t_rec!zck_bz Then
t_rec.MoveNext
Else
t_rec.Close
m_zck_bz.BackColor = RGB(255, 0, 0)
frm_msg.Visible = True
frm_msg.Caption = "早餐卡标准不能重复"
m_zck_bz.SetFocus
Exit Sub
End If
Loop
End If
t_czlsh = Pub_czls(PUB_data, "DT_ZCKBZ", Time(), pub_code)
t_rec.AddNew
t_rec!lock_no = 0
t_rec!zck_bz = CDec(m_zck_bz.Text)
t_rec!fd_kf = CDec(m_fd_kf.Text)
t_rec!fd_ct = CDec(m_fd_ct.Text)
t_rec.Update
Call Pub_czle(PUB_data, t_czlsh, "早餐卡标准 " & m_zck_bz & " 增加成功", Time(), pub_code)
t_rec.Close
frm_msg.Visible = True
frm_msg.Caption = "早餐卡标准 " & m_zck_bz & " 增加成功"
Call flex_refresh
Case "1", "2" '修改和删除记录
Set t_rec = PUB_data.OpenRecordset("SELECT ZCK_BZ,FD_KF,FD_CT,LOCK_NO FROM DT_ZCKBZ WHERE ZCK_BZ = " & IIf(Trim(m_zck_bz.Text) = "", "NULL", Trim(m_zck_bz.Text)), 2, 0, 2)
If Not t_rec.BOF Then
t_rec.MoveLast
temp_lock = Pub_lock("PUBLIC", "DT_ZCKBZ", t_rec)
Select Case temp_lock
Case 0 '没有被锁住
frm_msg.Visible = True
frm_msg.Caption = "该早餐卡标准正被其他人占用, 请稍候再修改"
Call button_refresh(True)
Case 2 '已经被删除
Call Pub_UNlock("DT_ZCKBZ", t_rec)
frm_msg.Visible = True
frm_msg.Caption = "该早餐卡标准已被删除"
Call flex_refresh
Case 1 '已经锁住
t_czlsh = Pub_czls(PUB_data, "DT_ZCKBZ", Time(), pub_code)
Select Case t_funcNo
Case "1" '修改
t_rec.Edit
t_rec.Edit
t_rec!zck_bz = CDec(m_zck_bz.Text)
t_rec!fd_kf = CDec(m_fd_kf.Text)
t_rec!fd_ct = CDec(m_fd_ct.Text)
t_rec.Update
Call Pub_czle(PUB_data, t_czlsh, "早餐卡标准 " & m_zck_bz & " 修改未成功", Time(), pub_code)
frm_msg.Caption = "早餐卡标准 " & m_zck_bz & " 修改成功"
Case "2"
t_rec.Delete
Call Pub_czle(PUB_data, t_czlsh, "早餐卡标准 " & m_zck_bz & " 删除成功", Time(), pub_code)
frm_msg.Caption = "早餐卡标准 " & m_zck_bz & " 修改成功"
End Select
frm_msg.Visible = True
Call Pub_UNlock("DT_ZCKBZ", t_rec)
Call flex_refresh
End Select
Else
Call button_refresh(True)
End If
t_rec.Close
End Select
Case 1 '按"退出"键
Call button_refresh(True)
End Select
End If
lb_xxxx.Caption = "详细信息"
lbzck_bz.Enabled = False
m_zck_bz.Enabled = False
m_zck_bz.Text = ""
lbfd_kf.Enabled = False
m_fd_kf.Enabled = False
m_fd_kf.Text = ""
'lbfd_ct.Enabled = False
'm_fd_ct.Enabled = False
m_fd_ct.Text = ""
gd1.Enabled = True
gd1.SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_func_Click(Index As Integer)
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 0 '增加
t_funcNo = "0"
lb_xxxx.Caption = "详细信息(增加)"
'编辑字段初始化
lbzck_bz.Enabled = True
m_zck_bz.Enabled = True
m_zck_bz.Text = ""
lbfd_kf.Enabled = True
m_fd_kf.Enabled = True
m_fd_kf.Text = ""
' m_fd_ct.Enabled = True
m_fd_ct.Text = ""
'界面BUTTON初始化
Call button_refresh(False)
gd1.Enabled = False
m_zck_bz.SetFocus
Case 1, 2 '修改, 删除
If gd1.Rows - 1 <> 0 Then
Set t_rec = PUB_data.OpenRecordset("select ZCK_BZ,FD_KF,FD_CT,LOCK_NO FROM DT_ZCKBZ where ZCK_BZ=" & IIf(Trim(m_zck_bz.Text) = "", "NULL", Format(Trim(m_zck_bz.Text), "0.00")), 2, 0, 2)
If Not t_rec.BOF Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -