在本次毕业设计的过程中，我的指导教师给了我很大的帮助。不仅使我在规定的时间内完成了系统的设计，同时还使我学到了很多有益的经验。在此，我谨向他表示最衷心的感谢。
同时，学校给了我这次毕业设计的机会，使我得到了很好的锻炼，在此，我也向学校的各位老师表示最诚挚的感谢。

主要参考文献
作者.  书名.  出版社.   出版日期
1．张树兵•Visual Basic6.0•北京•清华大学出版社•1999年4月
2．翁正科•FoxPro2.5•北京•清华大学出版社•1995年5月
3．刘云生•数据库系统概论•武汉•华中理工大学出版社•1996年5月

           附录（主要窗体的源代码）
主窗体的源代码：
Private Sub exit_Click()
End
End Sub
Private Sub file_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
End Sub
Private Sub jiangui_Click()
Form4.Show
End Sub
Private Sub setup_Click()
Form3.Show
End Sub
Private Sub zhujuan_Click()
Form5.Show
End Sub
文件录入窗体的源代码：
Dim WithEvents adoPrimaryRS As Recordset
Private Sub Combo1_Click()
Text5.Text = ""
End Sub
Private Sub Command1_Click()
adoPrimaryRS.MoveFirst
Text1.Text = adoPrimaryRS.Fields("文件号")
Text2.Text = adoPrimaryRS.Fields("文件名")
Text3.Text = adoPrimaryRS.Fields("作者")
Text4.Text = adoPrimaryRS.Fields("内容摘要")
End Sub
Private Sub Command10_Click()
Unload Me
End Sub
Private Sub Command11_Click()
Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb;"
  Set adoPrimaryRS = New Recordset
  a = Combo1.Text
  b = Text5.Text
  adoPrimaryRS.Open "select  文件号,文件名,作者,入库日期,状态,内容摘要 from file  where " & a & " like '%" & b & "%'", db, adOpenStatic, adLockOptimistic
  Set DataGrid1.DataSource = adoPrimaryRS
End Sub
Private Sub Command12_Click()
Frame4.Visible = False
Frame2.Visible = True
Command9.Enabled = True
End Sub
Private Sub Command13_Click()
      Dim i As Integer, j As Integer
      Dim xlapp As Excel.Application
      Dim xlbook As Excel.Workbook
      Dim xlsheet As Excel.Worksheet
     Set xlapp = CreateObject("excel.application")
         xlapp.Visible = True
     Set xlbook = xlapp.Workbooks.Add
     Set xlsheet = xlbook.Worksheets(1)
        xlsheet.Cells(1, 1) = "文件号"
     xlsheet.Cells(1, 2) = "文件名"
     xlsheet.Cells(1, 3) = "作者"
     xlsheet.Cells(1, 4) = "入库日期"
     xlsheet.Cells(1, 5) = "是否入卷"
     xlsheet.Cells(1, 6) = "内容摘要"
  
     For i = 0 To adoPrimaryRS.RecordCount - 1
        For j = 0 To adoPrimaryRS.Fields.Count - 1
               DataGrid1.Row = i
          DataGrid1.Col = j
          xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text
        Next j

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] 下一页