pymwin.frm

酒店系统源码。为了学习和 研究软件内含的设计思想和原理

VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form PYMWIN 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "提示信息"
   ClientHeight    =   1305
   ClientLeft      =   690
   ClientTop       =   1740
   ClientWidth     =   5400
   ControlBox      =   0   'False
   Icon            =   "PYMWIN.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1305
   ScaleWidth      =   5400
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   30
      Left            =   3000
      Top             =   120
   End
   Begin VB.Timer Timer2 
      Interval        =   10
      Left            =   2160
      Top             =   120
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   1320
      Top             =   120
   End
   Begin DevPowerTransImg.TransImg TransImg1 
      Height          =   495
      Left            =   8880
      TabIndex        =   0
      Top             =   680
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   873
      AutoSize        =   0   'False
      MaskColor       =   16777215
      Transparent     =   -1  'True
   End
End
Attribute VB_Name = "PYMWIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECSKDJ As Recordset, RECTHDJ As Recordset, RECSKJZ As Recordset, RECTHJZ As Recordset
Private Sub Form_Load()
    Me.Hide
End Sub
Private Sub Timer1_Timer()    '调用进度显示表单
    Timer1.Enabled = False
    JBBWIN1.Label1.Caption = "请稍候!正在加注拼音助记符..."
    Load JBBWIN1
    JBBWIN1.Show
    Timer3.Enabled = True
End Sub
Private Sub Timer2_Timer()     '打印交班表
    Timer2.Enabled = False
    Timer1.Enabled = True
    Exit Sub
    
End Sub

Private Sub Timer3_Timer()
    Timer3.Enabled = False
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECSKDJ = DATJDGL.OpenRecordset("散客登记表", dbOpenDynaset)
    While Not RECSKDJ.EOF
        If Not IsNull(RECSKDJ("姓名")) Then
           MYMARK = RECSKDJ.Bookmark
           RECSKDJ.Edit
           RECSKDJ("FPY") = PYM(RECSKDJ("姓名"))
           RECSKDJ.Update
           RECSKDJ.Bookmark = MYMARK
        End If
        RECSKDJ.MoveNext
    Wend
    JBBWIN1.ProgressBar1.Value = JBBWIN1.ProgressBar1.Max / 4 * 1
    Set RECTHDJ = DATJDGL.OpenRecordset("团会登记表", dbOpenDynaset)
    While Not RECTHDJ.EOF
        If Not IsNull(RECTHDJ("团会名称")) Then
           MYMARK = RECTHDJ.Bookmark
           RECTHDJ.Edit
           RECTHDJ("FPY") = PYM(RECTHDJ("团会名称"))
           RECTHDJ.Update
           RECTHDJ.Bookmark = MYMARK
        End If
        RECTHDJ.MoveNext
    Wend
    JBBWIN1.ProgressBar1.Value = JBBWIN1.ProgressBar1.Max / 4 * 2
    Set RECSKJZ = DATJDGL.OpenRecordset("散客结帐", dbOpenDynaset)
    While Not RECSKJZ.EOF
        If Not IsNull(RECSKJZ("姓名")) Then
           MYMARK = RECSKJZ.Bookmark
           RECSKJZ.Edit
           RECSKJZ("FPY") = PYM(RECSKJZ("姓名"))
           RECSKJZ.Update
           RECSKJZ.Bookmark = MYMARK
        End If
        RECSKJZ.MoveNext
    Wend
    JBBWIN1.ProgressBar1.Value = JBBWIN1.ProgressBar1.Max / 4 * 3
    Set RECTHJZ = DATJDGL.OpenRecordset("团会结帐", dbOpenDynaset)
    While Not RECTHJZ.EOF
        If Not IsNull(RECTHJZ("团会名称")) Then
           MYMARK = RECTHJZ.Bookmark
           RECTHJZ.Edit
           RECTHJZ("FPY") = PYM(RECTHJZ("团会名称"))
           RECTHJZ.Update
           RECTHJZ.Bookmark = MYMARK
        End If
        RECTHJZ.MoveNext
    Wend
    DATJDGL.Close
    JBBWIN1.Label1.Caption = "拼音助记符加注顺利完成!"
    JBBWIN1.ProgressBar1.Value = JBBWIN1.ProgressBar1.Max
    Unload Me
End Sub