📄 frmadd.ebf
字号:
VERSION 5.00
Begin VB.Form frmAdd
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "添加项目"
ClientHeight = 3555
ClientLeft = 60
ClientTop = 345
ClientWidth = 3480
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
FormResize = 1 'vbFormFullNoResize
ScaleHeight = 3555
ScaleWidth = 3480
Begin VBCE.Label actionID
Height = 135
Left = 240
TabIndex = 10
Top = 3000
Visible = 0 'False
Width = 255
_cx = 450
_cy = 238
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = ""
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.CommandButton Command2
Height = 255
Left = 2400
TabIndex = 9
Top = 3120
Width = 735
_cx = 1296
_cy = 450
BackColor = 12632256
Caption = "关闭"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton Command1
Height = 255
Left = 1320
TabIndex = 8
Top = 3120
Width = 855
_cx = 1508
_cy = 450
BackColor = 12632256
Caption = "确定"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.TextBox msgDetail
Height = 1575
Left = 1080
TabIndex = 7
Top = 1320
Width = 2055
_cx = 3625
_cy = 2778
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = -1 'True
PasswordChar = ""
ScrollBars = 3
End
Begin VBCE.Label Label4
Height = 180
Left = 240
TabIndex = 6
Top = 1320
Width = 750
_cx = 1323
_cy = 318
AutoSize = -1 'True
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "项目描述"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.TextBox MsgDate
Height = 255
Left = 1080
TabIndex = 5
Top = 960
Width = 2055
_cx = 3625
_cy = 450
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label3
Height = 180
Left = 240
TabIndex = 4
Top = 960
Width = 390
_cx = 688
_cy = 318
AutoSize = -1 'True
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "日期"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.TextBox MsgAuthor
Height = 255
Left = 1080
TabIndex = 3
Top = 600
Width = 2055
_cx = 3625
_cy = 450
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label2
Height = 180
Left = 240
TabIndex = 2
Top = 600
Width = 570
_cx = 1005
_cy = 318
AutoSize = -1 'True
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "负责人"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.TextBox MsgName
Height = 255
Left = 1080
TabIndex = 1
Top = 240
Width = 2055
_cx = 3625
_cy = 450
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label1
Height = 180
Left = 240
TabIndex = 0
Top = 240
Width = 750
_cx = 1323
_cy = 318
AutoSize = -1 'True
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "项目名称"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
End
Attribute VB_Name = "frmAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'添加项目
Private Sub Command1_Click()
Dim theID As Long
Dim conn As ADOCE.Connection
Set conn = CreateObject("ADOCE.connection.3.1")
conn.ConnectionString = dbConnStr
conn.Open
Dim sql As String
On Error Resume Next
If actionID.Caption = "" Then
sql = "insert into MsgInfo(MsgName,MsgAuthor,MsgDetail,MsgDate) values("
sql = sql & "'" & MsgName.Text & "','" & MsgAuthor.Text & "','" & msgDetail.Text & "'"
sql = sql & ",'" & MsgDate.Text & "')"
Else
sql = "update MsgInfo set MsgName='" & MsgName.Text & "',MsgAuthor='" & MsgAuthor.Text & "'"
sql = sql & ",MsgDetail='" & msgDetail.Text & "',MsgDate='" & MsgDate.Text & "' where MsgID=" & CInt(actionID.Caption)
Call frmMain.UpdateRec(MsgName.Text, MsgAuthor.Text, MsgDate.Text, msgDetail.Text)
End If
conn.Execute (sql)
If actionID.Caption = "" Then
sql = "select MsgId from msgInfo order by msgID desc"
Dim rs As ADOCE.Recordset
Set rs = CreateObject("ADOCE.Recordset.3.1")
Set rs = conn.Execute(sql)
If Not rs.EOF Then
theID = rs("MsgID")
Else
MsgBox "添加失败"
Exit Sub
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
'添加数据
Call frmMain.appendRec(theID, MsgName.Text, MsgAuthor.Text, msgDetail.Text, MsgDate.Text)
End If
Me.Hide
End Sub
'关闭
Private Sub Command2_Click()
Me.Hide
End Sub
Private Sub Form_Load()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -