📄 ht_htgl.frm
字号:
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 = 555
Index = 0
Left = 1320
TabIndex = 16
Top = 2280
Width = 1335
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 = 20
Top = 480
Width = 945
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 = 480
TabIndex = 19
Top = 1440
Width = 945
End
End
Begin VB.CommandButton Cmd2
Caption = "增加(F2)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 0
Left = 720
Picture = "ht_htgl.frx":0000
TabIndex = 1
Top = 6840
Width = 1575
End
Begin VB.CommandButton Cmd2
Caption = "编辑(F3)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 1
Left = 3120
Picture = "ht_htgl.frx":066A
TabIndex = 2
Top = 6840
Width = 1575
End
Begin VB.CommandButton Cmd2
Caption = "解除(F4)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 2
Left = 5640
Picture = "ht_htgl.frx":0AAC
TabIndex = 3
Top = 6840
Width = 1575
End
Begin VB.CommandButton Cmd2
Caption = "打印(F5)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 3
Left = 8160
Picture = "ht_htgl.frx":0BAE
TabIndex = 4
Top = 6840
Width = 1575
End
Begin VB.Timer Timer1
Interval = 1000
Left = 240
Top = 2400
End
Begin MSFlexGridLib.MSFlexGrid FLEX1
Height = 5655
Left = 120
TabIndex = 0
Top = 960
Width = 5895
_ExtentX = 10398
_ExtentY = 9975
_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 = 23
Top = 360
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 = 22
Top = 360
Width = 1035
End
Begin VB.Label rec_no
AutoSize = -1 'True
Caption = "当前记录数:"
Height = 180
Left = 4200
TabIndex = 21
Top = 360
Width = 990
End
End
Begin VB.Label frm_msg
BackColor = &H8000000A&
ForeColor = &H00FF0000&
Height = 615
Left = 5400
TabIndex = 24
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 = 25
Top = 0
Width = 11775
End
End
Attribute VB_Name = "ht_htgl"
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 response As String
Dim t_rec As Recordset 'MSFLEXGRID
Dim t_rec1 As Recordset
Dim rec As Recordset
Dim rec1 As Recordset
Dim RetVal
Dim file_nam As String '文件名(无路径)
Dim path_file As String '文件名(带路径)
Dim bj 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()
sys_uid = "db2user"
sys_pwd = "db2user"
Set t_rec = YX_data.OpenRecordset("select HT_MC,JB_MC,FSRQ,FSSJ,CZY,LOCK_NO from YX_HTNR", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
name1.Caption = "合同管理一览表"
nam.Caption = ""
Set rec = YX_data.OpenRecordset("select JB_MC from YX_HTJB", 4)
If Not rec.BOF Then
rec.MoveLast
rec.MoveFirst
Dim i As Integer
i = 0
Do While Not rec.EOF
m_jb_mc.AddItem Trim(rec.Fields("JB_MC")), i
rec.MoveNext
i = i + 1
Loop
End If
KeyPreview = True
Call first
t_fields = Array(0, 1, 2, 3, 4)
t_bt = " 合同名称 |^ 脚本名称 |^ 最后改动日期 |^ 改动时间 |^ 操作员 "
Call pub_memo.Flex_full(flex1, t_bt, t_rec, t_fields, 4, Array(0, 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 vbKeyF5
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
Call Cmd3_Click
Else
Call first
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
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.Enabled = False
If m_ht_mc.Enabled = False Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -