📄 add.frm
字号:
BeginProperty Column02
DataField = "论文名"
Caption = "论文名"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "期刊名"
Caption = "期刊名"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "类型"
Caption = "类型"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "发布时间"
Caption = "发布时间"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 734.74
EndProperty
BeginProperty Column01
ColumnWidth = 1049.953
EndProperty
BeginProperty Column02
ColumnWidth = 1620.284
EndProperty
BeginProperty Column03
ColumnWidth = 1649.764
EndProperty
BeginProperty Column04
ColumnWidth = 915.024
EndProperty
BeginProperty Column05
EndProperty
EndProperty
End
Begin VB.Label Label9
BackColor = &H00C0FFFF&
Caption = "代码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5640
TabIndex = 18
Top = 5160
Width = 735
End
Begin VB.Label Label8
BackColor = &H00C0FFFF&
Caption = "论文删除："
Height = 495
Left = 5520
TabIndex = 15
Top = 3840
Width = 1215
End
Begin VB.Label Label7
BackColor = &H00C0FFFF&
Caption = "论文添加："
ForeColor = &H00000000&
Height = 375
Left = 240
TabIndex = 14
Top = 3840
Width = 1215
End
Begin VB.Label Label6
BackColor = &H00C0FFFF&
Caption = "发布时间："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2520
TabIndex = 6
Top = 5520
Width = 1095
End
Begin VB.Label Label5
BackColor = &H00C0FFFF&
Caption = "类型："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 5
Top = 5400
Width = 615
End
Begin VB.Label Label4
BackColor = &H00C0FFFF&
Caption = "期刊名："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 4
Top = 4920
Width = 735
End
Begin VB.Label Label3
BackColor = &H00C0FFFF&
Caption = "论文名："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 3
Top = 4920
Width = 735
End
Begin VB.Label Label2
BackColor = &H00C0FFFF&
Caption = "作者："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2520
TabIndex = 2
Top = 4320
Width = 735
End
Begin VB.Label Label1
BackColor = &H00C0FFFF&
Caption = "代码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 1
Top = 4320
Width = 615
End
End
Attribute VB_Name = "add"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
manage.Show
Unload Me
End Sub
Private Sub Command2_Click()
If Text1.Text <> "" Then
Adodc1.Recordset.AddNew
Adodc1.Recordset!代码 = Text1.Text
Adodc1.Recordset!作者 = Text2.Text
Adodc1.Recordset!期刊名 = Text3.Text
Adodc1.Recordset!论文名 = Text4.Text
Adodc1.Recordset!类型 = Combo1.Text
Adodc1.Recordset!发布时间 = Text5.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
Adodc1.Recordset.MoveFirst
Combo2.Clear
For i = 1 To Adodc1.Recordset.RecordCount
With Combo2
.AddItem (Adodc1.Recordset!代码)
End With
Adodc1.Recordset.MoveNext
Next i
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Adodc1.Refresh
Else
MsgBox ("代码不能为空！")
End If
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
If Adodc1.Recordset!代码 = Combo2.Text Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
Combo2.Clear
Exit For
End If
Adodc1.Recordset.MoveNext
Next i
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
With Combo2
.AddItem (Adodc1.Recordset!代码)
End With
Adodc1.Recordset.MoveNext
Next i
Adodc1.Refresh
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "文学"
.AddItem "艺术"
.AddItem "体育"
.AddItem "娱乐"
.AddItem "科技"
End With
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
With Combo2
.AddItem (Adodc1.Recordset!代码)
End With
Adodc1.Recordset.MoveNext
Next i
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -