📄 ht_htjb.frm
字号:
Height = 2295
Left = 6240
TabIndex = 17
Top = 480
Width = 5295
Begin VB.TextBox m_jb_mc
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1920
MaxLength = 20
TabIndex = 20
Top = 720
Width = 2655
End
Begin VB.CommandButton Cmd2_S
Caption = "返 回"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 1
Left = 3240
TabIndex = 19
Top = 1680
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "确 认"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 1920
TabIndex = 18
Top = 3240
Width = 1215
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 = 480
TabIndex = 21
Top = 720
Width = 945
End
End
Begin MSFlexGridLib.MSFlexGrid FLEX1
Height = 5295
Left = 120
TabIndex = 0
Top = 960
Width = 5895
_ExtentX = 10398
_ExtentY = 9340
_Version = 327680
Rows = 3
Cols = 10
FixedCols = 0
BackColor = -2147483624
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 3
End
Begin VB.Label nam
AutoSize = -1 'True
Caption = "操作类型:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 9360
TabIndex = 31
Top = 240
Width = 1035
End
Begin VB.Label name1
AutoSize = -1 'True
Caption = "列表说明:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 600
TabIndex = 30
Top = 360
Width = 1035
End
Begin VB.Label rec_no
AutoSize = -1 'True
Caption = "当前记录数:"
Height = 180
Left = 4200
TabIndex = 29
Top = 360
Width = 990
End
End
Begin VB.Label frm_msg
BackColor = &H8000000A&
ForeColor = &H00FF0000&
Height = 615
Left = 5400
TabIndex = 14
Top = 0
Width = 6375
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 = 15
Top = 0
Width = 11775
End
End
Attribute VB_Name = "ht_htjb"
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 t_rec As Recordset 'MSFLEXGRID
Dim rec As Recordset
Dim rec1 As Recordset
Dim rec3 As Recordset
Dim response As String
Dim RetVal
Dim file_nam As String '文件名(无路径)
Dim path_file As String '文件名(带路径)
Dim bj As String '操作类型标记
Private Sub Form_Load()
JZ_USER = SYS_USER + Space(1) + SYS_NAME
JZ_JRSJ2 = Time()
CENTER Me
KeyPreview = True
Call atfirst
Set t_rec = YX_data.OpenRecordset("select JB_MC,FSRQ,FSSJ,CZY,LOCK_NO from YX_HTJB", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
name1.Caption = "合同脚本一览表"
t_fields = Array(0, 1, 2, 3)
t_bt = " 脚本名称 |^ 改动日期 |^ 改动时间 |^ 操作员 "
Call pub_memo.Flex_full(flex1, t_bt, t_rec, t_fields, 3, Array(0, 0, 0, 0))
rec_no.Caption = "当前记录数:" + CStr(flex1.Rows - 1)
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 vbKeyF7
key_index = 3
Case vbKeyF9
key_index = 4
Case vbKeyEscape
key_index = 99
End Select
Select Case key_index
Case 99
If Frame2.Enabled = False Then
Unload Me
yx_main.Show (1)
Else
Call atfirst
End If
Case 0, 1, 2, 3, 4
If Frame2.Enabled = False Then
Call Cmd2_Click(key_index)
End If
End Select
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 Cmd2_Click(Index As Integer)
Select Case Index
Case 0 '增加
bj = "0"
flex1.Enabled = False
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Frame2.Enabled = True
m_jb_mc.SetFocus
m_jb_mc.SelStart = 0
m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
Case 1 '编辑
bj = "1"
flex1.Enabled = False
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Frame2.Enabled = True
m_jb_mc.SetFocus
m_jb_mc.SelStart = 0
m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
Case 2 '解除
bj = "2"
flex1.Enabled = False
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Frame2.Enabled = True
m_jb_mc.SetFocus
m_jb_mc.SelStart = 0
m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
Case 3 '引用
bj = "3"
flex1.Enabled = False
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Frame2.Enabled = True
m_jb_mc.SetFocus
m_jb_mc.SelStart = 0
m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
Case 4 '刷新
Call flex1_ref
End Select
End Sub
Private Sub Cmd2_S_Click(Index As Integer)
Select Case Index
Case 0
Select Case bj
Case "0" '建立脚本
Set rec3 = YX_data.OpenRecordset("SELECT JB_DOC FROM YX_HTJB WHERE TRIM(JB_MC)='" & m_jb_mc.Text & "'", 2, 0, 2)
If Not rec3.BOF Then
rec3.MoveLast
If Not IsNull(rec3!JB_DOC) Then
path_file = Trim(rec3!JB_DOC)
Else
path_file = "C:\HOTEL\Jb\" & UCase(Trim(m_jb_mc.Text)) & ".TXT"
End If
Else
path_file = "C:\HOTEL\Jb\" & UCase(Trim(m_jb_mc.Text)) & ".TXT"
End If
Set rec3 = YX_data.OpenRecordset("SELECT JB_DOC FROM YX_HTJB WHERE JB_MC='" & m_jb_mc.Text & "'", 2, 0, 2)
If Not rec3.BOF Then
rec3.MoveLast
rec3.Edit '走访记录存在
rec3!JB_DOC = path_file
rec3.Update
Else '不存在,添加
Set rec3 = YX_data.OpenRecordset("SELECT JB_MC,FSRQ,FSSJ,JB_DOC,CZY,LOCK_NO FROM YX_HTJB ", 2, 0, 2)
If Not rec3.BOF Then
rec3.MoveLast
End If
With rec3
.AddNew
!JB_MC = UCase(Trim(m_jb_mc.Text))
!JB_DOC = path_file
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -