cg_cgd_rpt.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} CG_cgd_RPT 
   Caption         =   "采购单_打印"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   Icon            =   "CG_cgd_RPT.dsx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "CG_cgd_RPT.dsx":030A
End
Attribute VB_Name = "CG_cgd_RPT"
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)
E_gsmc.Caption = Trim(E_gsm)

Lbl_cdizh.Caption = Trim(C_DizH)
lbl_dh.Caption = Trim(gs_dh)
Lbl_cz.Caption = Trim(gs_cz)
Me.PageLeftMargin = 200
Me.PageTopMargin = 800
End Sub

Private Sub PageFooter_Format()
 Me.Page.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