managetheise.frm

用VB开发的论文管理系统。时间关系

         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   480
      TabIndex        =   5
      Top             =   5640
      Width           =   2055
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "期刊"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   480
      TabIndex        =   4
      Top             =   4920
      Width           =   2055
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "摘要"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   480
      TabIndex        =   3
      Top             =   2880
      Width           =   1815
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "关键词"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   480
      TabIndex        =   2
      Top             =   3960
      Width           =   1815
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "作者"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   480
      TabIndex        =   1
      Top             =   1800
      Width           =   1575
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "论文题目"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   480
      TabIndex        =   0
      Top             =   960
      Width           =   1455
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer

Private Sub Combo1_Change()
  Text6.Text = Combo1.Text
End Sub

Private Sub Command1_Click()
  Form5.Show
  Me.Hide
End Sub

Private Sub Command10_Click()
    CommonDialog1.ShowOpen
    Text7.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
 If Command2.Caption = "修改" Then
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
   ' Text6.Visible = False
    Combo1.Enabled = True  ''''
    Text7.Enabled = True
    Command10.Enabled = True
     For i = 0 To treecounter - 1
       If Combo1.List(i) <> Text6.Text Then   'Data1.Recordset.Fields("catagory")
          i = i + 1
       Else
          Combo1.ListIndex = i
       '   Text6.Text = Combo1.Text
          Exit For
       End If
     Next i
   
    '将text6中的text在combo1中显示出来
'    For i = 0 To treecounter - 1
'      If Combo1.List(i) <> Text6.Text Then
 '         i = i + 1
'      Else
'         Combo1.ListIndex = i
 '        Combo1.Refresh
'         Data2.Refresh
 '        Data2.Recordset.MoveFirst
'      End If
  '  Next i
   
    Command2.Caption = "确定修改"
    Command1.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Call nomove
    Command6.Visible = False
    Command7.Visible = False
    Command8.Visible = False
    Command9.Visible = False
       
    
 
   
 ElseIf Command2.Caption = "确定修改" Then
    Command10.Enabled = False
  '  Text6.Text = Combo1.Text
 '   For i = 0 To treecounter - 1
 '     If Combo1.Selected(i) = True Then
  '       Exit For
 '     Else
 '       i = i + 1
 '     End If
 '   Next i
 '   Text6.Text = Combo1.List(ListIndex)
    
    
    If Text1.Text = "" Then
       ret = MsgBox("论文题目不能为空", vbOKOnly, "错误")
    ElseIf Text2.Text = "" Then
       ret = MsgBox("作者不能为空", vbOKOnly, "错误")
    ElseIf Combo1.Text = "" Then   ''''
       ret = MsgBox("所属类别不能为空", vbOKOnly, "错误")
    ElseIf Text7.Text = "" Then
       ret = MsgBox("存储位置不能为空", vbOKOnly, "错误")
    Else
       Text6.Text = Combo1.Text
       Data1.UpdateRecord
       Text1.Enabled = False
       Text2.Enabled = False
       Text3.Enabled = False
       Text4.Enabled = False
       Text5.Enabled = False
   '    Text6.Visible = True
   '    Text6.Enabled = False
   '    Combo1.Visible = False
       Combo1.Enabled = False
       Text7.Enabled = False
    
       Command2.Caption = "修改"
       Command1.Enabled = True
       Command3.Enabled = True
       Command4.Enabled = True
  '     Command6.Enabled = True
   '    Command7.Enabled = True
   '    Command8.Enabled = True
   '    Command9.Enabled = True
       Call moveenabled

       Command6.Visible = True
       Command7.Visible = True
       Command8.Visible = True
       Command9.Visible = True
   
   End If
   
 End If
 
 Call moveenabled
End Sub

Private Sub Command5_Click()
  Data1.Refresh
  Form2.pathadd.Enabled = True
  Unload Me
  
End Sub


Private Sub Command6_Click()
  
 ' If counter <> 0 And counter <> 1 Then
 ''  If Command8.Enabled = False Then Command8.Enabled = True
 '  If Command9.Enabled = False Then Command9.Enabled = True
 ' End If
 
 ' Command6.Enabled = False
 ' Command7.Enabled = False
  
  Data1.Recordset.MoveFirst
  num = 1
  Call lab
  Call moveenabled
 ' Command6.Enabled = False
'  Command7.Enabled = False
  
  
    For i = 0 To treecounter - 1
       If Combo1.List(i) <> Text6.Text Then   'Data1.Recordset.Fields("catagory")
          i = i + 1
       Else
          Combo1.ListIndex = i
       '   Text6.Text = Combo1.Text
          Exit For
       End If
     Next i
  
End Sub

Private Sub Command7_Click()
  'If num = 2 Then
  '  Command7.Enabled = False
  '  Command6.Enabled = False
  '  Data1.Recordset.MovePrevious
  '  num = 1
  'Else
  '  num = num - 1
  '  Data1.Recordset.MovePrevious
 ' End If
 ' If Command8.Enabled = False Then Command8.Enabled = True
  'If Command9.Enabled = False Then Command9.Enabled = True
  
 num = num - 1
 Call moveenabled
 Call lab
 Data1.Recordset.MovePrevious  ''''
  ' For i = 0 To treecounter - 1
   '    If Combo1.List(i) <> Text6.Text Then
   '       i = i + 1
   '    Else
   '       Combo1.ListIndex = i
   '       Exit For
  '     End If
   ' Next i
   treenum = 0
   Do While treenum <= treecounter
      If Combo1.List(treenum) <> Text6.Text Then
        treenum = treenum + 1
      Else
        Combo1.ListIndex = treenum
        Exit Do
      End If
   Loop
  
  
End Sub

Private Sub Command8_Click()
   
'   If num = counter - 1 Then
 '    Command8.Enabled = False
 '    Command9.Enabled = False
'     num = counter
  '   Data1.Recordset.MoveNext
 '  Else
'     num = num + 1
'     Data1.Recordset.MoveNext
 '  End If
'
 '  If Command6.Enabled = False Then Command6.Enabled = True
 '  If Command7.Enabled = False Then Command7.Enabled = True
   
   num = num + 1
   
   Call moveenabled
   Data1.Recordset.MoveNext  '''
   Call lab
   
     For i = 0 To treecounter - 1
       If Combo1.List(i) <> Text6.Text Then  'Data1.Recordset.Fields("catagory")
          i = i + 1
       Else
          Combo1.ListIndex = i
         ' Text6.Text = Combo1.Text
          Exit For
       End If
     Next i
  
End Sub

Private Sub Command9_Click()
'  If counter <> 1 And counter <> 0 Then
 '   If Command6.Enabled = False Then Command6.Enabled = True
'    If Command7.Enabled = False Then Command7.Enabled = True
'  End If
  
  Data1.Recordset.MoveLast
'  Command9.Enabled = False
'  Command8.Enabled = False
  num = counter
  Call moveenabled
  Call lab
  
    For i = 0 To treecounter - 1
       If Combo1.List(i) <> Text6.Text Then
          i = i + 1
       Else
          Combo1.ListIndex = i
       '   Text6.Text = Combo1.Text
          Exit For
       End If
     Next i
  
End Sub

Private Sub Form_Load()
 
  
  Command6.Enabled = False
  Command7.Enabled = False
  
   Data1.DatabaseName = "D:\managepaperluojia\databasemanage\key.mdb"
   Data1.RecordSource = "lunwen"
   Data1.Refresh
   Form4.Data1.Recordset.MoveFirst
   counter = 0
  
   Do While Data1.Recordset.EOF = False
      counter = counter + 1
      Data1.Recordset.Edit
      Data1.Recordset.Update
      Data1.Recordset.MoveNext
   Loop
   
   If counter <> 0 Then
     Data1.Recordset.MoveFirst
     num = 1
   End If
   
   
   Data2.DatabaseName = "D:\managepaperluojia\databasemanage\key.mdb"
   Data2.RecordSource = "catalogue"
   Data2.Refresh
   Data2.Recordset.MoveFirst
   treecounter = 0
   Do While Data2.Recordset.EOF = False
     treecounter = treecounter + 1
     Combo1.AddItem Data2.Recordset.Fields("treename")
     Data2.Recordset.Edit
     Data2.Recordset.Update
     Data2.Recordset.MoveNext
   Loop
     
     If treecounter <> 0 Then
       Data2.Recordset.MoveFirst
       treenum = 1
     End If
     
        
     For i = 0 To treecounter - 1
       If Combo1.List(i) <> Text6.Text Then
          i = i + 1
       Else
          Combo1.ListIndex = i
          Combo1.Refresh
          Exit For
       End If
     Next i
  
   
   
   
  Text1.Enabled = False
  Text2.Enabled = False
  Text3.Enabled = False
  Text4.Enabled = False
  Text5.Enabled = False
'  Text6.Enabled = False
  Text7.Enabled = False
  Combo1.Enabled = False
  Command10.Enabled = False
   
  If counter = 0 Then
     Command3.Enabled = False
     Command2.Enabled = False
  End If
  Call lab
  Call moveenabled
  
End Sub
Private Sub Command3_Click()
  ret = MsgBox("确实要删除该条记录？", vbOKCancel, "删除记录")
  If ret = vbOK Then
    
       Data1.Recordset.Delete
       Data1.Recordset.MoveNext
       counter = counter - 1
       If Data1.Recordset.EOF = True Then
         Data1.Recordset.MoveLast
         num = counter
       End If
  
  End If
  
 ' If num = 0 Or num = 1 Then
'   Command6.Enabled = True
 '  Command7.Enabled = True
 '  Command8.Enabled = True
 '  Command9.Enabled = True
'  End If
 Call lab
 
 Call moveenabled
  
End Sub

Private Sub Command4_Click()
  z = InputBox("请输入要查询的论文题目！", "查询")
  Data1.Refresh
  Data1.Recordset.MoveFirst
  treenum = 1
  For i = 1 To counter
    If (Data1.Recordset.Fields("name") = z) Then
        Exit For
        
    Else
       If (i = counter) Then
         m = MsgBox("数据库中没有这篇论文！", vbOKOnly, "查询错误！")
         Data1.Recordset.MoveLast
         Command8.Enabled = False
         Command9.Enabled = False
       Else
         Data1.Recordset.MoveNext
         treenum = treenum + 1
       End If
       
    End If
  Next i
    
  If treenum = 1 Or treenum = 0 Then
   Command6.Enabled = False
   Command7.Enabled = False
 ElseIf treenum = counter - 1 Or treenum = counter Then
   Command8.Enabled = False
   Command9.Enabled = False
 End If
 
 If treenum > 1 Then
   Command6.Enabled = True
   Command7.Enabled = True
 End If
 
End Sub