📄 frmpyckgl.frm
字号:
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3420
Index = 6
Left = -74760
TabIndex = 6
Top = 840
Width = 9975
End
Begin VB.ListBox List1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3420
Index = 7
Left = -74760
TabIndex = 5
Top = 840
Width = 9975
End
Begin VB.ListBox List1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3420
Index = 8
Left = -74760
TabIndex = 4
Top = 840
Width = 9975
End
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "序号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 360
TabIndex = 22
Top = 240
Width = 765
End
Begin VB.Label RSCount
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 300
Left = 7680
TabIndex = 21
Top = 720
Width = 150
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "词句："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 360
TabIndex = 2
Top = 1680
Width = 780
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "评价："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 360
TabIndex = 1
Top = 1200
Width = 765
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类型："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 360
TabIndex = 0
Top = 720
Width = 765
End
End
Attribute VB_Name = "FrmPyckgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RsPy As ADODB.Recordset
Dim rsl As ADODB.Recordset
Dim AddFlg As Boolean
Private Sub CmdAdd_Click()
CmdAdd.Enabled = False
CmdMdi.Enabled = False
CmdDel.Enabled = False
CmdSave.Enabled = True
cmdCancel.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
TxtPy.Enabled = True
Combo1.Text = "请选择"
Combo2.Text = "请选择"
TxtPy.Text = ""
RsPy.AddNew
AddFlg = True
End Sub
Private Sub cmdCancel_Click()
If AddFlg = True Then
RsPy.CancelUpdate
RsPy.MoveNext
If RsPy.EOF Then RsPy.MoveLast
Else
rsl.CancelBatch adAffectAllChapters
rsl.MoveNext
If rsl.EOF Then rsl.MoveLast
End If
Combo1.Enabled = False
Combo2.Enabled = False
TxtPy.Enabled = False
CmdAdd.Enabled = True
CmdMdi.Enabled = False
CmdDel.Enabled = False
CmdSave.Enabled = False
cmdCancel.Enabled = False
Combo1.Text = "请选择"
Combo2.Text = "请选择"
TxtPy.Text = ""
End Sub
Private Sub CmdDel_Click()
If Trim(TxtPy.Text) <> "" Then
If vbYes = MsgBox("确认索要删除此记录么？", vbYesNo, "删除对话框") Then
rsl.Delete
End If
End If
CmdAdd.Enabled = True
CmdMdi.Enabled = False
CmdDel.Enabled = False
CmdSave.Enabled = False
cmdCancel.Enabled = False
Combo1.Enabled = True
Combo2.Enabled = True
TxtPy.Enabled = True
Combo1.Text = "请选择"
Combo2.Text = "请选择"
TxtPy.Text = ""
ListAdd
End Sub
Private Sub CmdMdi_Click()
If Trim(TxtPy.Text) <> "" Then
Combo1.Enabled = True
Combo2.Enabled = True
TxtPy.Enabled = True
CmdAdd.Enabled = False
CmdMdi.Enabled = False
CmdDel.Enabled = False
CmdSave.Enabled = True
cmdCancel.Enabled = True
AddFlg = False
End If
End Sub
Private Sub CmdSave_Click()
On Error GoTo err
If Trim(TxtPy.Text) = "" Then
MsgBox "请确认输入评语词句！"
Exit Sub
End If
If AddFlg = True Then
If Combo1.ListIndex = -1 Or Combo2.ListIndex = -1 Then
MsgBox "请确认选择类型和评价！"
Exit Sub
End If
RsPy!类型 = Trim(Combo1.Text)
RsPy!评价 = Trim(Combo2.Text)
RsPy!词句 = Trim(TxtPy.Text)
RsPy.Update
RsPy.MoveNext
If RsPy.EOF Then RsPy.MoveLast
MsgBox "记录成功添加！"
Else
rsl!类型 = Trim(Combo1.Text)
rsl!评价 = Trim(Combo2.Text)
rsl!词句 = Trim(TxtPy.Text)
rsl.UpdateBatch adAffectAllChapters
MsgBox "记录成功修改！"
End If
Combo1.Enabled = False
Combo2.Enabled = False
TxtPy.Enabled = False
CmdAdd.Enabled = True
CmdMdi.Enabled = False
CmdDel.Enabled = False
CmdSave.Enabled = False
cmdCancel.Enabled = False
Combo1.Text = "请选择"
Combo2.Text = "请选择"
TxtPy.Text = ""
ListAdd
Exit Sub
err:
Call ExecErr(Date, Me.Caption, err.Number, err.Source, err.Description)
End Sub
Private Sub Form_Load()
ListAdd
Set RsPy = New ADODB.Recordset
RsPy.Open "评语词库表", Con, adOpenStatic, adLockPessimistic, adCmdTable
End Sub
Private Sub List1_Click(Index As Integer)
Set rsl = New ADODB.Recordset
rsl.Open "select * from 评语词库表 where 词句 = '" & List1(SSTab1.Tab).Text & "'", Con, adOpenStatic, adLockPessimistic, adCmdText
If rsl.EOF = True And rsl.BOF = True Then
Else
CmdAdd.Enabled = False
CmdMdi.Enabled = True
CmdDel.Enabled = True
CmdSave.Enabled = False
cmdCancel.Enabled = False
Text1.Text = rsl!词条代号
Combo1.Text = rsl!类型
Combo2.Text = rsl!评价
TxtPy.Text = rsl!词句
End If
End Sub
Private Sub ListAdd()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
For i = 0 To 8
rs.Open "select * from 评语词库表 where 类型 = '" & SSTab1.TabCaption(i) & "'", Con, adOpenStatic, adLockPessimistic, adCmdText
List1(i).Clear
Do While Not rs.EOF
List1(i).AddItem rs!词句
rs.MoveNext
Loop
rs.Close
Next i
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -