cg_cg_wh_tj.dsr

基于SQL2000的企业管理MRPII,包含进销存,财务,报关等组件,VB6开发,带文档说明.

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} cg_CG_WH_tj 
   Caption         =   "采购收货情况统计表"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "cg_CG_WH_tj.dsx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "cg_CG_WH_tj.dsx":1E72
End
Attribute VB_Name = "cg_CG_WH_tj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_ReportStart()
Me.Toolbar.Tools.Add "导出Excel表格"
Me.Toolbar.Tools(Me.Toolbar.Tools.Count - 1).ID = 999
lbl_gsmc.Caption = Trim(c_gsmc)
End Sub

Private Sub Detail_Format()
If Trim(Me.Field21.Text) = "0" Then
   Me.Field21.Text = ""
End If
If Trim(Me.Field22.Text) = "0" Then
   Me.Field22.Text = ""
End If
If Trim(Me.Field37.Text) = "0" Then
   Me.Field37.Text = ""
End If
End Sub

Private Sub GroupFooter1_Format()
If Trim(Me.Field35.Text) = "0" Then
   Me.Field35.Text = ""
End If
If Trim(Me.Field36.Text) = "0" Then
   Me.Field36.Text = ""
End If
If Trim(Me.Field41.Text) = "0" Then
   Me.Field41.Text = ""
End If
End Sub

Private Sub PageFooter_Format()
 p_number.Caption = Me.pageNumber
 p_year.Caption = VBA.Year(VBA.Date) & "年"
 p_month.Caption = VBA.Month(VBA.Date) & "月"
 p_day.Caption = VBA.Day(VBA.Date) & "日"
 p_week.Caption = VBA.WeekdayName(VBA.Weekday(VBA.Date))
 p_time.Caption = VBA.Strings.FormatDateTime(VBA.Time$, vbLongTime)

End Sub