cg_gysbj_tjb.dsr

来自「基于SQL2000的企业管理MRPII,包含进销存,财务,报关等组件,VB6开发」· DSR 代码 · 共 41 行

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