remindform.frm

一个用VB6.0开发的简单餐会管理系统。在WIN2K

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form RemindForm 
   Caption         =   "提醒"
   ClientHeight    =   6225
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9705
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   6225
   ScaleWidth      =   9705
   Begin VB.CommandButton Command4 
      Caption         =   "打印"
      Height          =   375
      Left            =   120
      TabIndex        =   7
      Top             =   5760
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      Caption         =   "新增"
      Height          =   375
      Left            =   6240
      TabIndex        =   6
      Top             =   5760
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   8640
      TabIndex        =   5
      Top             =   5760
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   7440
      TabIndex        =   4
      Top             =   5760
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Height          =   5055
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   9375
      Begin VB.Data Data1 
         Caption         =   "Data1"
         Connect         =   "Access"
         DatabaseName    =   "E:\jp\vb\生日餐会系统\BSystem.mdb"
         DefaultCursorType=   0  '缺省游标
         DefaultType     =   2  '使用 ODBC
         Exclusive       =   0   'False
         Height          =   345
         Left            =   5640
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "预定信息"
         Top             =   4560
         Visible         =   0   'False
         Width           =   1215
      End
      Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
         Bindings        =   "RemindForm.frx":0000
         Height          =   4335
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   9135
         _ExtentX        =   16113
         _ExtentY        =   7646
         _Version        =   393216
         Cols            =   12
         FixedCols       =   0
         FocusRect       =   0
         SelectionMode   =   1
         AllowUserResizing=   1
      End
      Begin VB.Label Label1 
         Caption         =   "Label1"
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   4680
         Width           =   1455
      End
   End
   Begin MSComctlLib.TabStrip TabStrip1 
      Height          =   5535
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   9615
      _ExtentX        =   16960
      _ExtentY        =   9763
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   2
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "餐会预定信息"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "最近生日信息"
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "RemindForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Command1_Click()

    With Data1.Recordset
        If MSFLXMoveDataRec(Data1.Recordset, MSFlexGrid1) Then
            .Move MSFlexGrid1.Row - 1
            ViewForm.GetFlagViewForm (.Fields("ID"))
        Else
            Exit Sub
        End If
    End With
    
    ViewForm.Show
End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
    ViewForm.GetFlagViewForm (JP_SET_NUM_ADD)
    ViewForm.Show
End Sub

Private Sub Command4_Click()
Dim flag As Integer
If TabStrip1.Tabs.Item(JP_TX_ITEM1).Selected Then
    flag = JP_TX_ITEM1 ' = "预订生日信息"
ElseIf TabStrip1.Tabs.Item(JP_TX_ITEM2).Selected Then
    flag = JP_TX_ITEM2 'str = "最近生日信息"
End If
Me.MousePointer = vbHourglass

PrinterYD MSFlexGrid1, flag, Data1.Recordset.RecordCount

Me.MousePointer = vbArrow
MsgBox JP_PRINT_FINISH, vbOKOnly

End Sub

Private Sub Form_Activate()
ModifyRemindFormData
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\BSystem.mdb"

InitRemindFormStr           'RemindForm结构
ModifyRemindFormData
End Sub


'''''''''''''''
'''结构大小位置
Private Sub InitRemindFormStr()
With Me
    .Height = 6630
    .Width = 9825
    .Top = (MainForm.Height - Me.Height) / 2 - 500
    .Left = (MainForm.Width - Me.Width) / 2
End With
End Sub


Private Sub Form_Unload(Cancel As Integer)
Data1.Recordset.Close
End Sub



'''''''''''''''''''''''''''''''''
''''''''''''提醒对话框结构
Private Sub ModifyRemindFormData()
'    MSFlexGrid1.Clear
    If TabStrip1.Tabs.Item(JP_TX_ITEM1).Selected Then
        Data1.RecordSource = strSqlString(JP_SQLITEM_YD)
    ElseIf TabStrip1.Tabs.Item(JP_TX_ITEM2).Selected Then
        Data1.RecordSource = strSqlString(JP_SQLITEM_ZJSR)
    End If

    Data1.ReadOnly = False
    Data1.Refresh
'    MSFlexGrid1.Clear
'    MSFlexGrid1.Refresh
    
    If TabStrip1.Tabs.Item(JP_TX_ITEM1).Selected Then
        MSFlexGrid1 = ModifyYDStr(MSFlexGrid1)
    ElseIf TabStrip1.Tabs.Item(JP_TX_ITEM2).Selected Then
        MSFlexGrid1 = ModifyZJSRStr(MSFlexGrid1)
    End If
    
    With Data1.Recordset
        If .RecordCount = 0 Then
            MSFlexGrid1.HighLight = flexHighlightNever
            MSFlexGrid1.FocusRect = flexFocusNone
            Label1.Caption = "没有记录"
        Else
            MSFlexGrid1.HighLight = flexHighlightWithFocus
            MSFlexGrid1.FocusRect = flexFocusLight
            
              '显示记录
            .MoveFirst
            
            Do While Not Data1.Recordset.EOF
                If TabStrip1.Tabs.Item(JP_TX_ITEM1).Selected Then
                    MSFlexGrid1.AddItem CreateYDViewStr(Data1)
                ElseIf TabStrip1.Tabs.Item(JP_TX_ITEM2).Selected Then
                    MSFlexGrid1.AddItem CreateZJSRViewStr(Data1)
                End If
                .MoveNext
            Loop
            
            Label1.Caption = "共有" & .RecordCount & "条记录"
        End If
'    .Close
'    Data1.Database.Close
    
    End With
End Sub



Private Sub TabStrip1_Click()
ModifyRemindFormData
End Sub