----由于笔者所在的公司员工众多，在进行职工养老保险缴费的计算工作时，若使用劳动局编制的软件（用Foxbase编写），无论是在管理或维护方面均显得力不从心。于是在公司领导的强烈要求下，决定由笔者构思重新编制。基本思路是：1.将所有员工资料输入Access进行处理，以便于维护。2.在Excel中预先制成有表头的空表（Access相对欠缺处理复杂表格的能力），对需要进行金额汇总或其他运算的单元格可直接输入公式。3.在VB中编写程序代码，从Access中提取数据填入Excel对应表格相应的单元格，并输出至打印机。
----部分窗体及源程序代码如下：
----1．程序主模块
----定义Excel、Access对象变量，显示系统启动画面，进入系统主程序界面。强调一下，在编写程序之前须加入对Excel及Access库函数的引用，具体操作是：选择菜单栏工程\引用…，将可使用的引用列表框内MicrosoftAccess8.0ObjectLibrary和MicrosoftExcel8.0ObjectLibrary两项前的复选框标为选中，按"确定"返回。
mdsMain.bas
定义数据库记录集及Excel对象变量
PublicexAsNewExcel.Application
PublicexwbookAsExcel.Workbook
PublicexsheetAsExcel.Worksheet
PublicmydatabaseAsDatabase
Publicmyrecordset1AsRecordset
[定义记录集]
……
……
PublicOptAsInteger报表选项
[Opt为frmSelreport.frm返回值]
PublicisYNAsBoolean
SubMain()
LoadfrmSplash
frmSplash.Show
frmSplash.Label2.Caption=
"系统正在加载Access数据库..."
Setmydatabase=OpenDatabase("c:\sbda\sbda.mdb")
Setmyrecordset1=mydatabase.OpenRecordset
("报表打印(一)")
[此处对记录集赋值]
……
……
frmSplash.Label2.Caption=
"系统正在加载Excel电子表格..."
Setex=CreateObject("excel.application")
Setexwbook=ex.Workbooks.Open("c:\sbda\sbda.xls")
LoadFrmInput 将数据输入窗体加载到内存中
UnloadfrmSplash
LoadFrmMain 将主程序界面加载到内存中
EndSub
----2．报表打印模块
----其中ExcelDoForVB1()是一子程序，由prnProess()调用，作用是从Access中提取所需数据资料，填入Excel对应工作表（Worksheet）的相应单元格（Cells）中，然后打印已填入数据的表格；prnProess()则负责实现对VB通用对话框（CommomDialog）中打印功能的控制。
mdlPrint.bas
OptionExplicit
定义循环计数变量
PublicnRowAsInteger,nColAs
Integer,nBtoEAsInteger
定义变量接收打印对话框返回值
PublicBeginPage,EndPage,NumCopies
程序运行时需进行判断的各种标志
Publicnflag,Flag,ifNum
数据记录集中指针移动数
PublicPageNAsInteger,nAsInteger
bar1为进度条
Publicbar1AsObject
SubprnProess()
控制通用对话框打印功能
Setbar1=FrmPrint.PgsBar1 进度条
OnErrorGoToerrhandle:
IfFlag=0Then 当打印对话框中选"全部"时
SelectCaseOpt 选择需要打印的表格
Case1
nflag=1
myrecordset1.MoveFirst
myrecordset1.MovePrevious
PageN=1
DoWhilenflag=1
CallExcelDoForVB1
数据填入Excel单元格打印
PageN=PageN 1
Loop
Case2
……
……
EndSelect
Else
IfFlag=2Then
当打印对话框中选"页"时
IfEndPage-BeginPage=0Then
ifNum=0
Else
IfEndPage-BeginPage>0Then
ifNum=1
Else
ifNum=2
EndIf
EndIf
SelectCaseifNum
Case2
ExitSub
Case0
SelectCaseOpt
选择需要打印的表格
Case1
myrecordset1.MoveFirst
n=(BeginPage-1)*
(49-4 1)-1
myrecordset1.Moven
PageN=BeginPage
CallExcelDoForVB1
数据填入Excel单元格并打印
Case2
……
……
EndSelect
Case1
SelectCaseOpt
选择需要打印的表格
Case1
myrecordset1.MoveFirst
n=(BeginPage-1)*
(49-4 1)-1
myrecordset1.Moven
PageN=BeginPage
FornBtoE=BeginPageToEndPage
CallExcelDoForVB1
填入Excel单元格并打印
PageN=PageN 1
NextnBtoE
Case2
……
……
EndSelect
EndSelect
EndIf
EndIf
FrmMain.Visible=True
ExitSub
errhandle:
FrmPrint.Visible=False
FrmMain.Visible=True
EndSub
----注意，下段仅通过ExcelDoForVB1()对"报表（一）"的处理，来说明数据填入Excel并打印的整个过程。
SubExcelDoForVB1() 打印报表（一）
FrmPrint.Visible=True
Setexsheet=exwbook.Worksheets("sheet1")
ex.Sheets("Sheet1").Select
ex.Range("A4:U49").Select
ex.Selection.ClearContents
ex.Range("A4").Select
bar1.Min=0
bar1.Max=45
FornRow=4To49
bar1.Value=nRow-4 进度显示栏进程
myrecordset1.MoveNext
Ifmyrecordset1.EOFThen
nflag=0
ExitFor
EndIf
FornCol=1To21
exsheet.Cells(nRow,nCol)=
myrecordset1.Fields(nCol-1)
NextnCol
NextnRow
exsheet.Cells(52,21)="第" CStr(PageN) "页"
FrmPrint.Visible=False
bar1.Value=0
ActiveWindow.SelectedSheets.PrintOutCopies:=NumCopies
EndSub
----虽然本文针对的是大多数已熟练掌握数据库技术，且精通编程之道的朋友们。但笔者认为仍有必要提一提将数据输入Access的过程，因为编出来的软件更多是面向各类普通用户，对他们来说最要紧的是好用，而其间的一系列关联并不想深究。所以设计一个好的输入界面十分有必要，在设计时可以运用VB提供的Data控件，当然若是考虑性能的话还可以用代码直接操纵数据。关于如何使用Data控件访问数据库，在VisualBasic的联机手册（Onlinebook）中有很详细的说明，此处不再赘述。
----文中的所有程序在VisualBsaic5.0中文专业版及Office97中文版中调试通过。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
