📄 form4.frm
字号:
End
Begin VB.TextBox Text9
Height = 375
Left = 3960
TabIndex = 10
Top = 2040
Width = 3135
End
Begin VB.TextBox Text8
Height = 375
Left = 3960
TabIndex = 9
Top = 1680
Width = 3135
End
Begin VB.TextBox Text6
Height = 375
Left = 3960
TabIndex = 8
Top = 1320
Width = 3135
End
Begin VB.TextBox Text4
Height = 375
Left = 3960
TabIndex = 7
Top = 600
Width = 3135
End
Begin VB.TextBox Text3
Height = 375
Left = 3960
TabIndex = 6
Top = 240
Width = 3135
End
Begin VB.TextBox Text2
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 270
Left = 360
TabIndex = 5
Text = "输入作者姓名"
Top = 360
Width = 1215
End
Begin VB.CommandButton Command2
BackColor = &H00FFC0C0&
Caption = "添加"
Height = 495
Left = 120
Style = 1 'Graphical
TabIndex = 4
Top = 1200
Width = 735
End
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "删除"
Height = 495
Left = 1080
Style = 1 'Graphical
TabIndex = 3
Top = 1200
Width = 735
End
Begin VB.TextBox Text1
Height = 375
Left = 120
TabIndex = 2
Top = 720
Width = 1815
End
Begin VB.Frame Frame2
BackColor = &H00FFC0C0&
Caption = "论文信息"
Height = 6015
Left = 2040
TabIndex = 1
Top = 0
Width = 5535
Begin VB.TextBox Text16
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 270
Index = 8
Left = 600
TabIndex = 30
Text = "发表刊物"
Top = 1440
Width = 1095
End
Begin VB.TextBox Text16
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 270
Index = 6
Left = 480
TabIndex = 29
Text = "刊物主办单位"
Top = 1800
Width = 1335
End
Begin VB.TextBox Text16
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 270
Index = 5
Left = 480
TabIndex = 28
Text = "刊物发行范围"
Top = 2160
Width = 1335
End
Begin VB.TextBox Text16
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 270
Index = 4
Left = 600
TabIndex = 27
Text = "论文字数"
Top = 2520
Width = 1095
End
Begin VB.TextBox Text16
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 270
Index = 3
Left = 600
TabIndex = 26
Text = "论文作者"
Top = 2880
Width = 1095
End
Begin VB.TextBox Text16
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 270
Index = 1
Left = 600
TabIndex = 25
Text = "论文编号"
Top = 360
Width = 1095
End
Begin VB.TextBox Text17
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 270
Left = 600
TabIndex = 24
Text = "学科分类"
Top = 1080
Width = 1095
End
Begin VB.TextBox Text15
Height = 615
Left = 1200
MultiLine = -1 'True
TabIndex = 19
Top = 5280
Width = 3855
End
End
Begin VB.Frame Frame1
BackColor = &H00FFC0C0&
Caption = "作者信息"
Height = 6015
Left = -120
TabIndex = 0
Top = 0
Width = 2295
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Text18.Text = " "
End Sub
Private Sub Command2_Click()
Text18.Text = Text1.Text
End Sub
Private Sub Command3_Click()
Adodc1.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51;Persist Security Info=False; data source= " & App.Path & "\科技系统档案库.mdb"
Adodc1.RecordSource = "select * from 论文基本信息表 "
Adodc1.Refresh
Command5.Enabled = True
Adodc1.Recordset.AddNew
Command3.Enabled = False
End Sub
Private Sub Command4_Click()
Unload Form4
Load Form3
Form3.Show
End Sub
Private Sub Command5_Click()
Command3.Enabled = True
Adodc1.Recordset.Fields("论文编号").Value = Text3.Text
Adodc1.Recordset.Fields("论文名称").Value = Text4.Text
Adodc1.Recordset.Fields("学科分类").Value = Text5.Text
Adodc1.Recordset.Fields("发表刊物").Value = Text6.Text
Adodc1.Recordset.Fields("刊物主办单位").Value = Text8.Text
Adodc1.Recordset.Fields("刊物发行范围").Value = Text9.Text
Adodc1.Recordset.Fields("论文字书").Value = Text10.Text
Adodc1.Recordset.Fields("论文作者").Value = Text11.Text
If Option1.Value = True Then
Adodc1.Recordset.Fields("是否核心期刊").Value = "是"
End If
If Option2.Value = True Then
Adodc1.Recordset.Fields("是否核心期刊").Value = "否"
End If
If Option4.Value = True Then
Adodc1.Recordset.Fields("是否被SCI记录").Value = "是"
End If
If Option3.Value = True Then
Adodc1.Recordset.Fields("是否被SCI记录").Value = "否"
End If
If Option6.Value = True Then
Adodc1.Recordset.Fields("是否被EI收录").Value = "是"
End If
If Option5.Value = True Then
Adodc1.Recordset.Fields("是否被EI收录").Value = "否"
End If
Adodc1.Recordset.Fields("论文获奖情况").Value = Text14.Text
Adodc1.Recordset.Fields("备注").Value = Text15.Text
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
Adodc1.Recordset.Close
''''''''''''''''''''''
''''''''''''''''''''''
Adodc2.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51;Persist Security Info=False; data source= " & App.Path & "\科技系统档案库.mdb"
Adodc2.RecordSource = "select * from 论文作者信息表 "
Adodc2.Refresh
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("论文编号") = Text3.Text
Adodc2.Recordset.Fields("人员名称") = Text18.Text
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
MsgBox "添加成功"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text14.Text = ""
Text15.Text = ""
Text18.Text = ""
Command5.Enabled = False
Adodc2.Recordset.Close
End Sub
Private Sub Form_Load()
Adodc2.Visible = False
Adodc1.Visible = False
'Adodc1.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51;Persist Security Info=False; data source= " & App.Path & "\科技系统档案库.mdb"
'Adodc1.RecordSource = "select * from 论文基本信息表 "
'Adodc1.Refresh
'Adodc1.ConnectionTimeout = 30
'Adodc1.Refresh
Command5.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -