cg_gybj_cxfx.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} Cg_GYBJ_CxFx 
   Caption         =   "物料供应报价统计表"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "Cg_GYBJ_CxFx.dsx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "Cg_GYBJ_CxFx.dsx":030A
End
Attribute VB_Name = "Cg_GYBJ_CxFx"
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
l_gsmc.Caption = Trim(c_gsmc)
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