gy_ygwx_rpt.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} CK_CpRk_Rpt 
   Caption         =   "产品入库单_打印"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "Gy_YGWX_rpt.dsx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "Gy_YGWX_rpt.dsx":030A
End
Attribute VB_Name = "CK_CpRk_Rpt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_ReportStart()
Me.l_gsmc = C_Jybm
Me.L_phone = C_phonE
If Trim(Str(Minute(Me.DataControl1.Recordset!sjrq))) <> "0" Then
  Me.L_SJrq.Caption = Str(Year(Me.DataControl1.Recordset!sjrq)) + "年" + Str(Month(Me.DataControl1.Recordset!sjrq)) + "月" + Str(Day(Me.DataControl1.Recordset!sjrq)) + "日" + Str(Hour(Me.DataControl1.Recordset!sjrq)) + "时" + Str(Minute(Me.DataControl1.Recordset!sjrq)) + "分"
  Else
  If Trim(Str(Hour(Me.DataControl1.Recordset!sjrq))) = "0" Then
    Me.L_SJrq.Caption = Str(Year(Me.DataControl1.Recordset!sjrq)) + "年" + Str(Month(Me.DataControl1.Recordset!sjrq)) + "月" + Str(Day(Me.DataControl1.Recordset!sjrq)) + "日"
  End If
  If Trim(Str(Hour(Me.DataControl1.Recordset!sjrq))) <> "0" Then
  Me.L_SJrq.Caption = Str(Year(Me.DataControl1.Recordset!sjrq)) + "年" + Str(Month(Me.DataControl1.Recordset!sjrq)) + "月" + Str(Day(Me.DataControl1.Recordset!sjrq)) + "日" + Str(Hour(Me.DataControl1.Recordset!sjrq)) + "时整"
  End If
End If
If Trim(Str(Minute(Me.DataControl1.Recordset!bgrq))) <> "0" Then
Me.L_bgRq.Caption = Str(Year(Me.DataControl1.Recordset!bgrq)) + "年" + Str(Month(Me.DataControl1.Recordset!bgrq)) + "月" + Str(Day(Me.DataControl1.Recordset!bgrq)) + "日" + Str(Hour(Me.DataControl1.Recordset!bgrq)) + "时" + Str(Minute(Me.DataControl1.Recordset!bgrq)) + "分"
Else
Me.L_bgRq.Caption = Str(Year(Me.DataControl1.Recordset!bgrq)) + "年" + Str(Month(Me.DataControl1.Recordset!bgrq)) + "月" + Str(Day(Me.DataControl1.Recordset!bgrq)) + "日" + Str(Hour(Me.DataControl1.Recordset!bgrq)) + "时整"
End If
End Sub