📄 frmpredit.frm
字号:
VERSION 5.00
Begin VB.Form FrmPrEdit
BorderStyle = 1 'Fixed Single
Caption = "编辑问题信息"
ClientHeight = 4095
ClientLeft = 45
ClientTop = 330
ClientWidth = 5865
Icon = "FrmPrEdit.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4095
ScaleWidth = 5865
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Cmd_Ok
BackColor = &H80000000&
Caption = "确 定"
Height = 400
Left = 1382
MouseIcon = "FrmPrEdit.frx":1272
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 5
Top = 3480
Width = 1300
End
Begin VB.CommandButton Cmd_Cancel
BackColor = &H80000000&
Cancel = -1 'True
Caption = "取 消"
Height = 400
Left = 3182
MouseIcon = "FrmPrEdit.frx":157C
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 6
Top = 3480
Width = 1300
End
Begin VB.Frame Frame1
Height = 3135
Left = 240
TabIndex = 7
Top = 120
Width = 5415
Begin VB.ComboBox ComboMod2
Height = 300
ItemData = "FrmPrEdit.frx":1886
Left = 2880
List = "FrmPrEdit.frx":1896
Style = 2 'Dropdown List
TabIndex = 1
Top = 240
Width = 2295
End
Begin VB.TextBox txtBody
Height = 1095
Left = 1200
MaxLength = 20
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 1320
Width = 3975
End
Begin VB.ComboBox ComboMod1
Height = 300
ItemData = "FrmPrEdit.frx":18C2
Left = 1200
List = "FrmPrEdit.frx":18D2
Style = 2 'Dropdown List
TabIndex = 0
Top = 240
Width = 1335
End
Begin VB.ComboBox ComboLevel
Height = 300
ItemData = "FrmPrEdit.frx":18FE
Left = 1200
List = "FrmPrEdit.frx":190B
Style = 2 'Dropdown List
TabIndex = 2
Top = 585
Width = 1335
End
Begin VB.TextBox txtTitle
Height = 270
Left = 1200
MaxLength = 20
TabIndex = 3
Top = 960
Width = 3975
End
Begin VB.Label lblSoft
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "lblSoft"
Height = 180
Left = 3840
TabIndex = 17
Top = 645
Width = 630
End
Begin VB.Label lblFilldate
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "lblFilldate"
Height = 180
Left = 3840
TabIndex = 16
Top = 2685
Width = 990
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报错日期"
Height = 180
Left = 2880
TabIndex = 15
Top = 2685
Width = 720
End
Begin VB.Label lblFillin
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "lblFill_in"
Height = 180
Left = 1200
TabIndex = 14
Top = 2685
Width = 900
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报错人"
Height = 180
Left = 240
TabIndex = 13
Top = 2685
Width = 540
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "具体描述"
Height = 180
Left = 240
TabIndex = 12
Top = 1365
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "项目模块"
Height = 180
Left = 240
TabIndex = 11
Top = 300
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "错误级别"
Height = 180
Left = 240
TabIndex = 10
Top = 645
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "责任人"
Height = 180
Left = 2880
TabIndex = 9
Top = 645
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "错误标题"
Height = 180
Left = 240
TabIndex = 8
Top = 1005
Width = 720
End
End
End
Attribute VB_Name = "FrmPrEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean
Public OriId As Long
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
Private Sub Cmd_OK_Click()
Dim TmpId As String
'判断用户录入数据的有效性
If ComboMod2.Text = "" Then
MsgBox "请选择功能模块"
ComboMod2.SetFocus
Exit Sub
End If
If Trim(txtTitle) = "" Then
MsgBox "请输入标题"
txtTitle.SetFocus
Exit Sub
End If
'把用户录入的数据赋值到MyPr对象中
With MyPr
.ProjId = CurProj.ProjId
.PrLevel = ComboLevel.ListIndex + 1
.Title = MakeStr(txtTitle)
.Body = MakeStr(txtBody)
.Modules = ComboMod2.Text
.SoftEng = lblSoft
.Author = CurUser.Ename
.CreateDate = Format(Now, "yyyy-mm-dd")
'根据变量Modify的值，决定插入新数据还是修改已有的数据
If Modify = False Then
.Insert
Else
Call .Update(OriId)
End If
End With
'关闭窗体
Unload Me
End Sub
Private Sub ComboMod1_Click()
Dim TmpId As Long
'读取一级模块编号
TmpId = MyMod.GetId(CurProj.ProjId, ComboMod1.Text)
'根据当前的一级模块名称，读取二级模块的数据
ComboMod2.Clear
Call MyMod.Load_by_Upper(TmpId, CurProj.ProjId)
i = 0
'把二级模块数据添加到ComboMod2中
Do While Arr_Mod(i) <> ""
ComboMod2.AddItem Arr_Mod(i)
i = i + 1
Loop
'设置二级模块的初始值
If ComboMod2.ListCount > 0 Then
ComboMod2.ListIndex = 0
End If
End Sub
Private Sub ComboMod2_Click()
Dim TmpId As Long
If ComboMod2.Text = "" Then
Exit Sub
End If
TmpId = MyMod.GetId(CurProj.ProjId, ComboMod2.Text)
MyMod.GetInfo (TmpId)
lblSoft = MyMod.Ename
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -