📄 ht_zfht.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 34
Top = 2400
Width = 945
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "付款房号:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 33
Top = 1800
Width = 945
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "租用方:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 32
Top = 1200
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "合同代码:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 31
Top = 600
Width = 945
End
End
Begin VB.CommandButton Cmd2
BackColor = &H00E0DDC0&
Caption = "刷新(F9)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 5
Left = 120
Style = 1 'Graphical
TabIndex = 6
Top = 600
Width = 6405
End
Begin MSFlexGridLib.MSFlexGrid FLEX1
Height = 5535
Left = 120
TabIndex = 0
Top = 960
Width = 6405
_ExtentX = 11298
_ExtentY = 9763
_Version = 327680
Rows = 3
Cols = 10
FixedCols = 0
BackColor = -2147483624
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 3
End
Begin VB.Label tab_nam
AutoSize = -1 'True
Caption = "Label14"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 11
Top = 240
Width = 855
End
Begin VB.Label rec_no
AutoSize = -1 'True
Caption = "Label14"
Height = 180
Left = 4680
TabIndex = 10
Top = 240
Width = 630
End
Begin VB.Label nam
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 8880
TabIndex = 9
Top = 240
Width = 135
End
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 0
TabIndex = 13
Top = 0
Width = 11775
End
Begin VB.Label frm_msg
BackColor = &H8000000A&
ForeColor = &H00FF0000&
Height = 495
Left = 5520
TabIndex = 12
Top = 120
Width = 6375
End
End
Attribute VB_Name = "ht_zfht"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
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_lock_no As Integer
Dim Response As String
Dim response1 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
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,FK_ZH,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)
frm_msg.Visible = False
'flex_full(t_win1 As MSFlexGrid, t_bt As String, T_REC As Recordset, t_fields As Variant, T_COL As Integer, t_func As Variant)
End Sub
Private Sub cmd2_Click(Index As Integer)
Select Case Index
Case 0
' Me.Enabled = False
FLEX1.Enabled = False
sty = "0"
zfht_pop.Show (1)
If pub_code = "1" Then
frm_msg.Caption = ""
frm_msg.Caption = "租房合同成功建立!"
t_rec.Requery
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)
Call first
Else
Call first
End If
Case 1
FLEX1.Enabled = False
sty = "1"
zfht_pop.Show (1)
If pub_code = "1" Then
frm_msg.Caption = ""
frm_msg.Caption = "租房合同成功修改!"
t_rec.Requery
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)
Call first
Else
Call first
frm_msg.Caption = "修改失败,数据正被他人使用或已删除..."
End If
Case 2
FLEX1.Enabled = False
sty = "2"
zfht_pop.Show (1)
If pub_code = "1" Then
frm_msg.Caption = ""
frm_msg.Caption = "租房合同成功删除!"
t_rec.Requery
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)
Call first
Else
Call first
End If
Case 3
Case 4
FLEX1.Enabled = False
sty = "4"
zfht_pop.Show (1)
t_rec.Requery
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)
Call first
Case 5
If frm_msg.Visible = True Then
frm_msg.Caption = ""
End If
t_rec.Requery
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 Select
End Sub
Private Sub Cmd3_Click()
Unload Me
yx_main.Show
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 vbKeyF10
key_index = 4 '查询
Case vbKeyF9
key_index = 5 '刷新
Case vbKeyEscape
key_index = 99 '退出
End Select
If key_index = 99 Then
Call Cmd3_Click
Else
Call cmd2_Click(key_index)
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_jzrq_KeyDown(KeyCode As Integer, Shift As Integer)
' If KeyCode = 13 Then
' t_rq = date_cl(Trim(m_jzrq.Text))
' If t_rq <> "F" Then
' m_jzrq = t_rq
' End If
' Call m_jzrq_LostFocus
' End If
'End Sub
Private Sub m_qsrq_KeyDown(KeyCode As Integer, Shift As Integer)
' If KeyCode = 13 Then
' t_rq = date_cl(Trim(m_qsrq.Text))
' If t_rq <> "F" Then
' m_qsrq = t_rq
' End If
' Call m_qsrq_LostFocus
' End If
End Sub
Private Sub Timer1_Timer()
JZ_DQSJ2 = Time()
End Sub
Private Sub flex1_GotFocus()
On Error GoTo ERROR1
m_htdm.Text = FLEX1.TextArray(FLEX1.Row * 7)
m_zyf.Text = FLEX1.TextArray(FLEX1.Row * 7 + 1)
m_kf_fh.Text = 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 = FLEX1.TextArray(FLEX1.Row * 7 + 5)
m_fjyt.Text = 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 = FLEX1.TextArray(FLEX1.Row * 7)
m_zyf.Text = FLEX1.TextArray(FLEX1.Row * 7 + 1)
m_kf_fh.Text = 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 = FLEX1.TextArray(FLEX1.Row * 7 + 5)
m_fjyt.Text = FLEX1.TextArray(FLEX1.Row * 7 + 6)
Exit Sub
ERROR1:
If Err() = 383 Then
Resume Next
End If
End Sub
Public Sub first()
m_htdm.Enabled = False
m_zyf.Enabled = False
m_kf_fh.Enabled = False
m_qsrq.Enabled = False
m_jzrq.Enabled = False
m_kf_fz.Enabled = False
m_fjyt.Enabled = False
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 Cmd3.Enabled = False Then
Cmd3.Enabled = True
End If
If FLEX1.Enabled = False Then
FLEX1.Enabled = True
FLEX1.SetFocus
End If
sty = ""
pub_code = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -