yz01.frm

这是一个医院管理系统中的院长查询模块

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form Form2 
   Caption         =   "      全院收入日统计查询"
   ClientHeight    =   4185
   ClientLeft      =   945
   ClientTop       =   1920
   ClientWidth     =   9390
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   4185
   ScaleWidth      =   9390
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      ForeColor       =   &H00FF0000&
      Height          =   780
      Left            =   60
      TabIndex        =   0
      Top             =   0
      Width           =   11835
      Begin VB.CommandButton Command1 
         Cancel          =   -1  'True
         Caption         =   "返回&Q"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   10290
         TabIndex        =   2
         Top             =   270
         Width           =   1410
      End
      Begin VB.CommandButton Command2 
         Caption         =   "浏览&C"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   8550
         TabIndex        =   1
         Top             =   270
         Width           =   1470
      End
      Begin VB.Label DAT2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   " 下个月 》"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF00FF&
         Height          =   300
         Left            =   6750
         TabIndex        =   6
         Top             =   330
         Width           =   1500
      End
      Begin VB.Label PRINTHEAD 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "[2000-01-25]至[2000-02-25]"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   18
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   435
         Left            =   30
         TabIndex        =   5
         Top             =   270
         Width           =   4905
      End
      Begin VB.Label DAT1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "《 上个月   "
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF00FF&
         Height          =   300
         Left            =   5190
         TabIndex        =   4
         Top             =   330
         Width           =   1470
      End
   End
   Begin VB.Data Data1 
      BackColor       =   &H00C0E0FF&
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   1  'ODBCCursor
      DefaultType     =   1  'UseODBC
      Exclusive       =   0   'False
      ForeColor       =   &H00C00000&
      Height          =   345
      Left            =   90
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   2  'Snapshot
      RecordSource    =   ""
      Top             =   8175
      Width           =   11685
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "YZ01.frx":0000
      Height          =   7305
      Left            =   60
      OleObjectBlob   =   "YZ01.frx":0010
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   825
      Width           =   11835
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
DATE1 = CDate(Mid(PRINTHEAD, 2, 10))
DATE2 = DateAdd("m", 1, DATE1) - 1
DDS = "yzcx1 '" + CStr(DATE1) + "','" + CStr(DATE2) + "'"
Data1.RecordSource = DDS
Data1.Refresh
End Sub

Private Sub DAT1_Click()
C1 = CDate(Mid(PRINTHEAD, 2, 10)) - 1
C1 = DateAdd("m", -1, C1) + 1
C2 = DateAdd("m", 1, C1) - 1
PRINTHEAD = "[" + CStr(C1) + "]至[" + CStr(C2) + "]"
End Sub

Private Sub DAT1_DblClick()
C1 = CDate(Mid(PRINTHEAD, 2, 10)) - 1
C1 = DateAdd("m", -1, C1) + 1
C2 = DateAdd("m", 1, C1) - 1
PRINTHEAD = "[" + CStr(C1) + "]至[" + CStr(C2) + "]"
End Sub

Private Sub DAT2_Click()
C1 = CDate(Mid(PRINTHEAD, 2, 10)) - 1
C1 = DateAdd("m", 1, C1) + 1
C2 = DateAdd("m", 1, C1) - 1
PRINTHEAD = "[" + CStr(C1) + "]至[" + CStr(C2) + "]"
End Sub

Private Sub DAT2_DblClick()
C1 = CDate(Mid(PRINTHEAD, 2, 10)) - 1
C1 = DateAdd("m", 1, C1) + 1
C2 = DateAdd("m", 1, C1) - 1
PRINTHEAD = "[" + CStr(C1) + "]至[" + CStr(C2) + "]"
End Sub

Private Sub DAT2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DAT1.ForeColor = &HFF00FF
DAT2.ForeColor = &H80FF80
End Sub

Private Sub DAT1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DAT2.ForeColor = &HFF00FF
DAT1.ForeColor = &H80FF80
End Sub

Private Sub DBGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DAT1.ForeColor = &HFF00FF
DAT2.ForeColor = &HFF00FF
End Sub

Private Sub Form_Load()
   Data1.DatabaseName = MyDatabase
   Data1.Connect = MyConnect

   C2 = CDate(CStr(Year(Date)) + "-" + CStr(Month(Date)) + "-25")
   C1 = DateAdd("M", -1, C2) + 1
   PRINTHEAD = "[" + CStr(C1) + "]至[" + CStr(C2) + "]"
   
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DAT1.ForeColor = &HFF00FF
DAT2.ForeColor = &HFF00FF
End Sub