工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(40)

Adodc2.Refresh End Select End If If Adodc2.Recordset.Fields(0) <>

""

Then Labpz.Caption = Adodc2.Recordset.Fields(0) Else Labpz.Caption = 0 If Adodc2.Recordset.Fields(1) <>

""

Then Labsl.Caption = Adodc2.Recordset.Fields(1) Else Labsl.Caption = 0 If Adodc2.Recordset.Fields(2) <>

""

Then Labje.Caption = Format(Adodc2.Recordset.Fields(2), "0.00") Else Labje.Caption = "0.00"

End Sub b、报表打印方面设计：

VB 是流行的开发平台，用其开发的 C/S 系统在社会上有非常大的保有量，但 VB 超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。因此，本系统中报表管理，利 用 Seagate 公司的 Crystal Report（水晶报表）控件来实现报表的显示与打印。

水晶报表（Crystal Report）是业内最、功能最强的报表系统，它除了强大的报表功能29外， 最大的优势是实现了与绝大多数流行开发工具的集成和接口， 使报表的显示与打印成为 此类软件必备的功能。

因此，这里用 Crystal Report 插件和 frm_pint 窗体模块来实现。

界面设计如下：相关代码：

Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = CrystalReport1 CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub 3.6 系统设置设计 1．界面设计 系统设置主要是对操作员的设置与系统初始化的实现，相关操作界面如下：302．实现技术 （1）操作员设置 主要是用到 Lable 控件、text 控件、commanbutton 控件、bataGrid 控件和 adodc 控件来 实现。

设计技术：主要是利用 IF 条件从句来判断进用户名进行添加、删除功能。

相关代码分析如下：

定义数据集对象 Dim rs1 As New ADODB.Recordset Private Sub CmdAdd_Click() Dim bh As Long rs1.Open "select * from 操作员信息表 order by 操作员编号", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount >

0 Then If rs1.EOF = False Then rs1.MoveLast bh = Val(rs1.Fields("操作员编号")) + 1 Txtbh.text = Format(bh, "00") Else Txtbh.text = "01"31End If Txtczy.SetFocus rs1.Close End Sub Private Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True End Sub Private Sub CmdSave_Click() 保存操作员信息 rs1.Open "select * from 操作员信息表 where 操作员名称="

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-40.html