bookinfo.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form BookInfo 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "预定信息"
   ClientHeight    =   4890
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8550
   Icon            =   "BookInfo.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   NegotiateMenus  =   0   'False
   ScaleHeight     =   4890
   ScaleWidth      =   8550
   Begin VB.CommandButton Command3 
      Caption         =   "新增"
      Height          =   375
      Left            =   4920
      TabIndex        =   3
      Top             =   4440
      Width           =   975
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "D:\jp\vb\生日餐会系统\BSystem.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   1560
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "预定信息"
      Top             =   4320
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   7320
      TabIndex        =   2
      Top             =   4440
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   6120
      TabIndex        =   1
      Top             =   4440
      Width           =   975
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   4215
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   7435
      _Version        =   393216
      Cols            =   11
      FixedCols       =   0
      HighLight       =   0
      SelectionMode   =   1
      AllowUserResizing=   1
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Label1"
      Height          =   180
      Left            =   240
      TabIndex        =   4
      Top             =   4440
      Width           =   540
   End
End
Attribute VB_Name = "BookInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public pnBookinfoFlag As Integer

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
'Me.Enabled = False
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Command3_Click()
ViewForm.GetFlagViewForm (JP_SET_NUM_ADD)
'ViewForm.Check1.Value = Unchecked
ViewForm.Show
'Me.Enabled = False
End Sub

Private Sub Form_Activate()
ModifyBookInfoWData
End Sub

'姓名
'联系电话
'预定日期
'餐会时间
'大人数量
'小孩数量
'性别
'生日时间
'定蛋糕
'特殊要求
'备注
'
'



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

If pnBookinfoFlag = JP_TX_ITEM1 Then
    Me.Caption = "预订信息"
ElseIf pnBookinfoFlag = JP_TX_ITEM2 Then
    Me.Caption = "最近生日"
End If

ModifyBookInfoStu
ModifyBookInfoWData
End Sub


'''''''''''''''''''''
''结构
Private Function ModifyBookInfoStu()
With Me
    .Top = 600
    .Left = 1200
    .Height = 5300
    .Width = 8670
End With
End Function



'''''''''''''''''''''
''数据
Private Function ModifyBookInfoWData()
If pnBookinfoFlag = JP_TX_ITEM1 Then
    Data1.RecordSource = strSqlString(JP_SQLITEM_YD)
ElseIf pnBookinfoFlag = JP_TX_ITEM2 Then
    Data1.RecordSource = strSqlString(JP_SQLITEM_ZJSR)
End If

Data1.ReadOnly = True
Data1.Refresh

If pnBookinfoFlag = JP_TX_ITEM1 Then
    MSFlexGrid1 = ModifyYDStr(MSFlexGrid1)
ElseIf pnBookinfoFlag = JP_TX_ITEM2 Then
    MSFlexGrid1 = ModifyZJSRStr(MSFlexGrid1)
End If


With Data1.Recordset
'    ModifyBookInfoForm
    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 pnBookinfoFlag = JP_TX_ITEM1 Then
                MSFlexGrid1.AddItem CreateYDViewStr(Data1)
            ElseIf pnBookinfoFlag = JP_TX_ITEM2 Then
                MSFlexGrid1.AddItem CreateZJSRViewStr(Data1)
            End If
            .MoveNext
        Loop
        
        Label1.Caption = "共有" & .RecordCount & "条记录"
    End If
    
End With

End Function

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