计算机毕业设计：文卷档案管理系统
致 谢
在本次毕业设计的过程中，我的指导教师给了我很大的帮助。不仅使我在规定的时间内完成了系统的设计，同时还使我学到了很多有益的经验。在此，我谨向他表示最衷心的感谢。
同时，学校给了我这次毕业设计的机会，使我得到了很好的锻炼，在此，我也向学校的各位老师表示最诚挚的感谢。
主要参考文献
作者. 书名. 出版社. 出版日期
1．张树兵·Visual Basic6.0·北京·清华大学出版社·1999年4月 2．翁正科·FoxPro2.5·北京·清华大学出版社·1995年5月
3．刘云生·数据库系统概论·武汉·华中理工大学出版社·1996年5月
第 36 页 共 63 页
计算机毕业设计：文卷档案管理系统
附录（主要窗体的源代码）
主窗体的源代码： 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()
第 37 页 共 63 页
计算机毕业设计：文卷档案管理系统
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open \ Set adoPrimaryRS = New Recordset a = Combo1.Text b = Text5.Text
adoPrimaryRS.Open \ 文件号,文件名,作者,入库日期,状态,内容摘要 from file & a & \ 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(\ 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
第 38 页 共 63 页
where \ 计算机毕业设计：文卷档案管理系统
Next i
Set xlapp = Nothing Set xlbook = Nothing End Sub
Private Sub Command2_Click() adoPrimaryRS.MoveNext If adoPrimaryRS.EOF Then
MsgBox (\已经是第后一条记录了！\adoPrimaryRS.MoveLast Else
Text1.Text = adoPrimaryRS.Fields(\文件号\Text2.Text = adoPrimaryRS.Fields(\文件名\Text3.Text = adoPrimaryRS.Fields(\作者\Text4.Text = adoPrimaryRS.Fields(\内容摘要\End If End Sub
Private Sub Command3_Click() adoPrimaryRS.MovePrevious If adoPrimaryRS.BOF Then
MsgBox (\已经是第一条记录了！\adoPrimaryRS.MoveFirst Else
Text1.Text = adoPrimaryRS.Fields(\文件号\Text2.Text = adoPrimaryRS.Fields(\文件名\Text3.Text = adoPrimaryRS.Fields(\作者\Text4.Text = adoPrimaryRS.Fields(\内容摘要\End If End Sub
Private Sub Command4_Click() adoPrimaryRS.MoveLast
Text1.Text = adoPrimaryRS.Fields(\文件号\Text2.Text = adoPrimaryRS.Fields(\文件名\Text3.Text = adoPrimaryRS.Fields(\作者\Text4.Text = adoPrimaryRS.Fields(\内容摘要\End Sub
Private Sub Command5_Click()
If Command5.Caption = \添加\Command5.SetFocus
第 39 页 共 63 页
计算机毕业设计：文卷档案管理系统
Command5.Caption = \保存\Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text1.SetFocus Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \
adoPrimaryRS.AddNew Else
adoPrimaryRS.Fields(\文件号\adoPrimaryRS.Fields(\文件名\adoPrimaryRS.Fields(\作者\adoPrimaryRS.Fields(\内容摘要\adoPrimaryRS.Fields(\入库日期\adoPrimaryRS.Fields(\状态\否\adoPrimaryRS.Update
Command5.Caption = \添加\Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False End If End Sub
Private Sub Command6_Click()
If Command6.Caption = \编辑\Command6.Caption = \更新\Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Else
adoPrimaryRS.Fields(\文件号\adoPrimaryRS.Fields(\文件名\adoPrimaryRS.Fields(\作者\adoPrimaryRS.Fields(\内容摘要\
第 40 页 共 63 页