报表查询条件.frm

用友u8财务源码,用visual basic开发

VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmReportXz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "报表"
   ClientHeight    =   1215
   ClientLeft      =   1410
   ClientTop       =   1890
   ClientWidth     =   4185
   Icon            =   "报表查询条件.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1215
   ScaleWidth      =   4185
   Begin EDITLib.Edit Edit1 
      Height          =   270
      Left            =   300
      TabIndex        =   4
      Top             =   600
      Width           =   1995
      _Version        =   65536
      _ExtentX        =   3519
      _ExtentY        =   476
      _StockProps     =   253
      ForeColor       =   0
      BackColor       =   16777215
      Appearance      =   1
      Property        =   5
      MaxLength       =   10
   End
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Height          =   365
      Index           =   1
      Left            =   2970
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   630
      Width           =   1080
   End
   Begin VB.CommandButton Command2 
      Default         =   -1  'True
      Height          =   365
      Index           =   0
      Left            =   2970
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   150
      Width           =   1080
   End
   Begin VB.CommandButton Command1 
      Height          =   264
      Index           =   1
      Left            =   2340
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   600
      Width           =   264
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请输入查询时间"
      Height          =   180
      Left            =   390
      TabIndex        =   0
      Top             =   210
      Width           =   1260
   End
End
Attribute VB_Name = "frmReportXz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:报表查询条件
'作者: 赵春立

Option Explicit

Public strReportType As String
Public Quitfs        As Boolean

Private Sub Command1_Click(Index As Integer)
   DisplayCalendar Edit1, Me.hWnd, 0, 0
   
End Sub

Private Sub Command2_Click(Index As Integer)
   Dim i As Integer
   Select Case Index
      Case 0
         If Edit1 = "" Then
            Beep
            MsgBox "业务日期不能为空！", vbInformation, zjGl_Name
            Edit1.SetFocus
            Exit Sub
         End If
         Edit1 = ForDate(Edit1)
         If Not IsDate(Edit1) Then
            Beep
            MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
            SetTxtFocus Edit1
            Exit Sub
         Else
            If Not Pd_CurNddate(Edit1) Then
               SetTxtFocus Edit1
               Exit Sub
            End If
            Me.Hide
            If PromptNotBook(CDate(Edit1)) = vbNo Then Unload Me: Exit Sub
            Quitfs = False
            Select Case strReportType
               Case "Jszx"
                  For i = 0 To Forms.Count - 1
                     If Forms(i).Tag = strReportType Then
                        BringWindowToTop Forms(i).hWnd
                        Forms(i).WindowState = 2
                        Forms(i).dToday = CDate(Edit1)
                        Forms(i).initGrid
                        Forms(i).mCale
                        Unload Me
                        Exit Sub
                     End If
                  Next i
                  frmRjszx.dToday = CDate(Edit1)
                  load frmRjszx
                  frmRjszx.Tag = strReportType
               Case "Yhdt"
                  For i = 0 To Forms.Count - 1
                     If Forms(i).Tag = strReportType Then
                        BringWindowToTop Forms(i).hWnd
                        Forms(i).WindowState = 2
                        Forms(i).dSearchDate = CDate(Edit1)
                        Forms(i).initGrid
                        Forms(i).mCale
                        Unload Me
                        Exit Sub
                     End If
                  Next i
                  frmRyhdt.dSearchDate = CDate(Edit1)
                  load frmRyhdt
                  frmRyhdt.Tag = strReportType
               Case "Khdt"
                  For i = 0 To Forms.Count - 1
                     If Forms(i).Tag = strReportType Then
                        BringWindowToTop Forms(i).hWnd
                        Forms(i).WindowState = 2
                        Forms(i).dSearchDate = CDate(Edit1)
                        Forms(i).initGrid
                        Forms(i).mCale
                        Unload Me
                        Exit Sub
                     End If
                  Next i
                  frmRkhdt.dSearchDate = CDate(Edit1)
                  load frmRkhdt
                  frmRkhdt.Tag = strReportType
               Case "Khye"
                  For i = 0 To Forms.Count - 1
                     If Forms(i).Tag = strReportType Then
                        BringWindowToTop Forms(i).hWnd
                        Forms(i).WindowState = 2
                        Forms(i).dStartDate = CDate(Edit1)
                        Forms(i).initGrid
                        Forms(i).mCale
                        Unload Me
                        Exit Sub
                     End If
                  Next i
                  frmRkhye.dStartDate = CDate(Edit1)
                  load frmRkhye
                  frmRkhye.Tag = strReportType
            End Select
            Unload Me
         End If
      Case 1
         Unload Me
   End Select
   
End Sub

Private Sub Form_Load()
   Me.Icon = LoadResPicture(109, vbResIcon)
   Select Case strReportType
      Case "Jszx"
         Me.HelpContextID = 88000060
      Case "Yhdt"
         Me.HelpContextID = 88000061
      Case "Khdt"
         Me.HelpContextID = 88000064
      Case "Khye"
         Me.HelpContextID = 88000063
   End Select
   Edit1 = FormatDate(zjLogInfo.curDate)
   Command1(1).Picture = LoadResPicture(1108, vbResBitmap)
   Command2(0).Picture = LoadResPicture(103, vbResBitmap)
   Command2(1).Picture = LoadResPicture(104, vbResBitmap)
   CenterForm Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Quitfs Then
        Select Case strReportType
            Case "Jszx"
                zjLogInfo.TaskExec "FD0702", 0, zjLogInfo.cIYear
                zjGen_arr.FD0702 = False
            Case "Yhdt"
                zjLogInfo.TaskExec "FD0705", 0, zjLogInfo.cIYear
                zjGen_arr.FD0705 = False
            Case "Khdt"
                zjLogInfo.TaskExec "FD0704", 0, zjLogInfo.cIYear
                zjGen_arr.FD0704 = False
            Case "Khye"
                zjLogInfo.TaskExec "FD0703", 0, zjLogInfo.cIYear
                zjGen_arr.FD0703 = False
        End Select
        zjLogInfo.ClearError
    End If
End Sub

Private Sub Edit1_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      Command1(1).Value = True
   End If
End Sub