📄 ht_zfgl.frm
字号:
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim key_index As Integer
Dim t_bt As String
Dim t_fields As Variant
Dim pass As String
Dim t_rec3 As Recordset 'ADDNEW,EDIT,DELETE
Dim t_rec4 As Recordset 'LOCK_NO
Dim t_rec As Recordset 'MSFLEXGRID
Dim t_rq As String
Dim T_TJ As String
Private Sub Form_Load()
Dim sys_uid As String, sys_pwd As String
JZ_USER = SYS_USER + Space(1) + SYS_NAME
JZ_JRSJ2 = Time()
CENTER Me
Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,FK_FH,QSRQ,JZRQ,KF_FZ,FJYT,JFDB,JFDB_ZW,YFDB,YFDB_ZW,KF_LXN,KF_FS,FKZH,CZDB,BZ,KF_LXC,LXDH,LXCZ,QZRQ,KR_DJ,DZ,DJ_FKMC,LOCK_NO from YX_ZFHT", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
KeyPreview = True
tab_nam.Caption = "租房合同一览表"
Call first
t_fields = Array(0, 1, 2, 3, 4, 5, 6)
t_bt = "^ 合同代码 |^ 租用方 |^ 付款房号 |^ 起始日期 |^ 终止日期 |^客房房租|^ 房间用途 "
Call pub_memo.Flex_full(FLEX1, t_bt, t_rec, t_fields, 6, Array(0, 0, 0, 0, 0, 0, 0))
rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
End Sub
Private Sub Cmd2_Click(Index As Integer)
Select Case Index
Case 0 '建立
FLEX1.Enabled = False
STY = "0"
zfht_pop.tf = False
zfht_pop.Show (1)
If zfht_pop.tf Then
'frm_msg.Caption = "租房合同成功建立!"
Call flex1_ref
Call first
Else
Call first
End If
Case 1 '修改
FLEX1.Enabled = False
STY = "1"
zfht_pop.tf = False
zfht_pop.Show (1)
If zfht_pop.tf Then
frm_msg.Caption = "租房合同成功修改!"
Call flex1_ref
Call first
Else
Call first
End If
Case 2 '删除
FLEX1.Enabled = False
STY = "2"
zfht_pop.tf = False
zfht_pop.Show (1)
If zfht_pop.tf Then
frm_msg.Caption = "租房合同成功删除!"
Call flex1_ref
Call first
Else
Call first
End If
Case 3 '打印
If T_TJ = "" Then
Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,QSRQ,JZRQ,FJYT,KF_FZ,FK_FH from YX_ZFHT", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
Call print_tabler(t_rec, "租房合同清单", Array("合同代码", "租用方", "起始日期", "终止日期 ", "房间用途 ", "客房房租", "付款房号"), Array(18, 40, 12, 12, 12, 12, 10), 0, Array(11, 11, 11, 11, 11, 21, 21))
Else
MsgBox "无可打印信息!", 64
Call flex1_ref
Call first
Exit Sub
End If
Else
Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,QSRQ,JZRQ,FJYT,KF_FZ,FK_FH from YX_ZFHT WHERE " & T_TJ & "", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
Call print_tabler(t_rec, "租房合同清单", Array("合同代码", "租用方", "起始日期", "终止日期 ", "房间用途 ", "客房房租", "付款房号"), Array(18, 40, 12, 12, 12, 12, 10), 0, Array(11, 11, 11, 11, 11, 21, 21))
Else
MsgBox "无可打印信息!", 64
Call flex1_ref
Call first
Exit Sub
End If
End If
Case 4 '筛选
FLEX1.Enabled = False
STY = "4"
Frame3.Enabled = True
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Cmd2(5).Enabled = False
Cmd2(6).Enabled = False
m_jfdb.SetFocus
Case 5 '查询
FLEX1.Enabled = False
STY = "5"
zfht_pop.Show (1)
Call flex1_ref
Call first
Case 6 '刷新
frm_msg.Caption = ""
Call flex1_ref
End Select
End Sub
Private Sub Cmd3_Click()
Unload Me
yx_main.Show (1)
End Sub
Private Sub flex1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Cmd2(0).SetFocus
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
key_index = 100
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 vbKeyF10
key_index = 5 '查询
Case vbKeyF9
key_index = 6 '刷新
Case vbKeyEscape
key_index = 99 '退出
End Select
frm_msg.Caption = ""
If key_index = 99 Then
If Frame2.Enabled = False And Frame3.Enabled = False Then
Call Cmd3_Click
Else
Call first
End If
Else
If Frame2.Enabled = False And Frame3.Enabled = False Then
Call Cmd2_Click(key_index)
End If
End If
End Sub
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 m_htdm1_GotFocus()
m_htdm1.SelStart = 0
m_htdm1.SelLength = Len(Trim(m_htdm1.Text))
End Sub
Private Sub m_htdm1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
m_jzrq1.SetFocus
End If
End Sub
Private Sub m_jfdb_GotFocus()
m_jfdb.SelStart = 0
m_jfdb.SelLength = Len(Trim(m_jfdb.Text))
End Sub
Private Sub m_jfdb_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
m_htdm1.SetFocus
End If
End Sub
Private Sub m_jzrq1_GotFocus()
m_jzrq1.SelStart = 0
m_jzrq1.SelLength = Len(Trim(m_jzrq1.Text))
End Sub
Private Sub m_jzrq1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call m_jzrq1_LostFocus
End If
End Sub
Private Sub m_jzrq1_LostFocus()
If Not m_jzrq1.Text = " - - " Then
t_rq = date_cl(Trim(m_jzrq1.Text))
If t_rq <> "F" Then
m_jzrq1 = t_rq
End If
If IsDate(Trim(m_jzrq1.Text)) Then
m_qzrq1.SetFocus
Else
frm_msg.Caption = "无效日期!"
m_jzrq1.SetFocus
End If
Else
m_qzrq1.SetFocus
End If
End Sub
Private Sub m_qzrq1_GotFocus()
m_qzrq1.SelStart = 0
m_qzrq1.SelLength = Len(Trim(m_qzrq1.Text))
End Sub
Private Sub m_qzrq1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call m_qzrq1_LostFocus
End If
End Sub
Private Sub m_qzrq1_LostFocus()
If m_jfdb.Text = "" Then
T_TJ = ""
Else
T_TJ = "TRIM(JFDB)='" & Trim(m_jfdb.Text) & "'"
End If
If Not Trim(m_htdm1.Text) = "" Then
If T_TJ = "" Then
T_TJ = T_TJ & "TRIM(HTDM)='" & Trim(m_htdm1) & "'"
Else
T_TJ = T_TJ & " AND TRIM(HTDM)='" & Trim(m_htdm1) & "'"
End If
End If
If m_jzrq1.Text = " - - " Then
Else
If T_TJ = "" Then
T_TJ = T_TJ & "CSTR(JZRQ)='" & CDate(Trim(m_jzrq1)) & "'"
Else
T_TJ = T_TJ & " AND CSTR(JZRQ)='" & CDate(Trim(m_jzrq1)) & "'"
End If
End If
If m_qzrq1.Text = " - - " Then
Else
t_rq = date_cl(Trim(m_qzrq1.Text))
If t_rq <> "F" Then
m_qzrq1 = t_rq
End If
If IsDate(Trim(m_qzrq1.Text)) Then
If T_TJ = "" Then
T_TJ = T_TJ & "CSTR(QZRQ)='" & CDate(Trim(m_qzrq1)) & "'"
Else
T_TJ = T_TJ & " AND CSTR(QZRQ)='" & CDate(Trim(m_qzrq1)) & "'"
End If
Else
m_qzrq1.SetFocus
m_qzrq1.SelStart = 0
m_qzrq1.SelLength = Len(Trim(m_qzrq1.Text))
End If
End If
If Not T_TJ = "" Then
Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,FK_FH,QSRQ,JZRQ,KF_FZ,FJYT,JFDB,JFDB_ZW,YFDB,YFDB_ZW,KF_LXN,KF_FS,FKZH,CZDB,BZ,KF_LXC,LXDH,LXCZ,QZRQ,KR_DJ,DZ,DJ_FKMC,LOCK_NO from YX_ZFHT WHERE " & T_TJ, 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
Frame3.Enabled = False
FLEX1.Enabled = True
Cmd2(0).Enabled = True
Cmd2(1).Enabled = True
Cmd2(2).Enabled = True
Cmd2(3).Enabled = True
Cmd2(4).Enabled = True
Cmd2(5).Enabled = True
Cmd2(6).Enabled = True
Call flex1_ref
Else
Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,FK_FH,QSRQ,JZRQ,KF_FZ,FJYT,JFDB,JFDB_ZW,YFDB,YFDB_ZW,KF_LXN,KF_FS,FKZH,CZDB,BZ,KF_LXC,LXDH,LXCZ,QZRQ,KR_DJ,DZ,DJ_FKMC,LOCK_NO from YX_ZFHT ", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
Frame3.Enabled = False
FLEX1.Enabled = True
Cmd2(0).Enabled = True
Cmd2(1).Enabled = True
Cmd2(2).Enabled = True
Cmd2(3).Enabled = True
Cmd2(4).Enabled = True
Cmd2(5).Enabled = True
Cmd2(6).Enabled = True
Call flex1_ref
End If
'"'""""""""""""""""""""""""""""""""""""""
End Sub
Private Sub FLEX1_GotFocus()
On Error GoTo error1
m_htdm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7))
m_zyf.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 1))
m_kf_fh.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 2))
m_qsrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 7 + 3)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 7 + 3), "yyyy-mm-dd"))
m_jzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 7 + 4)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 7 + 4), "yyyy-mm-dd"))
m_kf_fz.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 5))
m_fjyt.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 6))
Exit Sub
error1:
If Err() = 383 Then
Resume Next
End If
End Sub
Private Sub FLEX1_RowColChange()
On Error GoTo error1
m_htdm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7))
m_zyf.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 1))
m_kf_fh.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 2))
m_qsrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 7 + 3)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 7 + 3), "yyyy-mm-dd"))
m_jzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 7 + 4)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 7 + 4), "yyyy-mm-dd"))
m_kf_fz.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 5))
m_fjyt.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 6))
Exit Sub
error1:
If Err() = 383 Then
Resume Next
End If
End Sub
Private Sub first()
Frame2.Enabled = False
Frame3.Enabled = False
If Not STY = "4" Then
m_jfdb.Text = ""
m_htdm1.Text = ""
m_jzrq1.Text = " - - "
m_qzrq1.Text = " - - "
End If
If cmd1(0).Enabled = True Then
cmd1(0).Enabled = False
End If
If cmd1(1).Enabled = True Then
cmd1(1).Enabled = False
End If
If Cmd2(0).Enabled = False Then
Cmd2(0).Enabled = True
End If
If Cmd2(1).Enabled = False Then
Cmd2(1).Enabled = True
End If
If Cmd2(2).Enabled = False Then
Cmd2(2).Enabled = True
End If
If Cmd2(3).Enabled = False Then
Cmd2(3).Enabled = True
End If
If Cmd2(4).Enabled = False Then
Cmd2(4).Enabled = True
End If
If Cmd2(5).Enabled = False Then
Cmd2(5).Enabled = True
End If
If Cmd2(6).Enabled = False Then
Cmd2(6).Enabled = True
End If
If Cmd3.Enabled = False Then
Cmd3.Enabled = True
End If
If FLEX1.Enabled = False Then
FLEX1.Enabled = True
FLEX1.SetFocus
End If
STY = ""
End Sub
Private Sub Timer1_Timer()
JZ_DQSJ2 = Time()
End Sub
Private Sub flex1_ref()
If Not T_TJ = "" Then
Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,FK_FH,QSRQ,JZRQ,KF_FZ,FJYT,JFDB,JFDB_ZW,YFDB,YFDB_ZW,KF_LXN,KF_FS,FKZH,CZDB,BZ,KF_LXC,LXDH,LXCZ,QZRQ,KR_DJ,DZ,DJ_FKMC,LOCK_NO from YX_ZFHT WHERE " & T_TJ, 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
Else
Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,FK_FH,QSRQ,JZRQ,KF_FZ,FJYT,JFDB,JFDB_ZW,YFDB,YFDB_ZW,KF_LXN,KF_FS,FKZH,CZDB,BZ,KF_LXC,LXDH,LXCZ,QZRQ,KR_DJ,DZ,DJ_FKMC,LOCK_NO from YX_ZFHT ", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
End If
Call pub_memo.Flex_full(FLEX1, t_bt, t_rec, t_fields, 6, Array(0, 0, 0, 0, 0, 0, 0))
rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -