ck_cprk_rpt.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} CK_CpRk_Rpt 
   Caption         =   "产品入库单_打印"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   Icon            =   "ck_cprk_rpt.dsx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "ck_cprk_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_YYmc
'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