frmselecttime.frm

基于vb和lotus捆绑的oa办公自动化之电话费登记系统

VERSION 5.00
Begin VB.Form frmSelectTime 
   Caption         =   "请选择年份和月份"
   ClientHeight    =   2565
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5700
   LinkTopic       =   "Form1"
   ScaleHeight     =   2565
   ScaleWidth      =   5700
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   2160
      TabIndex        =   5
      Top             =   1800
      Width           =   855
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   375
      Left            =   840
      TabIndex        =   4
      Top             =   1800
      Width           =   855
   End
   Begin VB.ComboBox Combo2 
      Height          =   300
      Left            =   2400
      TabIndex        =   3
      Top             =   1080
      Width           =   855
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   480
      TabIndex        =   2
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "月"
      Height          =   375
      Left            =   2520
      TabIndex        =   1
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "请选择年"
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Top             =   480
      Width           =   975
   End
End
Attribute VB_Name = "frmSelectTime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim view As NotesView
    Set view = PublicNotesDb.GetView("vTelFeeByYearMonth")
    Dim key As String
    key = Combo1.Text + "年" + Combo2.Text + "月"
  
    Dim doc As NotesDocument

    Dim vc As NotesDocumentCollection
    Set vc = view.GetAllDocumentsByKey(key)
    If vc.Count = 0 Then
       MsgBox "没有" + key + "的电话费纪录"
       Exit Sub
    End If
    Dim rs As Recordset
    Dim db As Database
    Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\临时纪录库.mdb")
    Set rs = db.OpenRecordset("select * from 临时纪录", dbOpenDynaset)
    Do Until rs.EOF = True
       rs.Delete
       rs.MoveNext
    Loop
  
    Set doc = vc.GetFirstDocument
    
    Do While Not doc Is Nothing
       rs.AddNew
       rs.Fields("电话号码") = doc.GetItemValue("phonenumber")(0)
       rs.Fields("部门") = doc.GetItemValue("appart")(0)
       rs.Fields("月租费") = doc.GetItemValue("f1")(0)
       rs.Fields("市话费") = doc.GetItemValue("f2")(0)
       rs.Fields("长话费") = doc.GetItemValue("f3")(0)
       rs.Fields("数据费") = doc.GetItemValue("f5")(0)
       rs.Fields("信息费") = doc.GetItemValue("f4")(0)
       rs.Fields("其他费") = doc.GetItemValue("f6")(0)
       rs.Fields("优惠费") = doc.GetItemValue("f8")(0)
       rs.Fields("小灵通增值费") = doc.GetItemValue("f9")(0)
       rs.Fields("小计") = doc.GetItemValue("fee")(0)
       rs.Update
       Set doc = vc.GetNextDocument(doc)
    Loop
    For i = 1 To 600 - rs.RecordCount
        rs.AddNew
       rs.Fields("电话号码") = ""
       rs.Fields("部门") = ""
       rs.Fields("月租费") = ""
       rs.Fields("市话费") = ""
       rs.Fields("长话费") = ""
       rs.Fields("数据费") = ""
       rs.Fields("信息费") = ""
       rs.Fields("其他费") = ""
       rs.Fields("优惠费") = ""
       rs.Fields("小灵通增值费") = ""
       rs.Fields("小计") = ""
       rs.Update
    Next
    frmMain.CurrentTime.Text = key
    frmMain.Combo1.Text = Me.Combo1.Text
    frmMain.Combo2.Text = Me.Combo2.Text
    frmMain.Data1.Refresh
    frmMain.DBGrid1.Refresh
    Unload Me
    rs.Close
End Sub

Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To 4
        Combo1.AddItem Year(Now) - i
    Next
    For i = 1 To 12
        Combo2.AddItem i
    Next
End Sub