frmmain.frm

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

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmMain 
   Caption         =   "Form1"
   ClientHeight    =   9015
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   15240
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   9015
   ScaleWidth      =   15240
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox CurrentTime 
      Height          =   270
      Left            =   1560
      TabIndex        =   13
      Top             =   8265
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "退出"
      Height          =   375
      Left            =   8640
      TabIndex        =   12
      Top             =   360
      Width           =   975
   End
   Begin VB.CommandButton cmdSaveMod 
      Caption         =   "保存修改"
      Height          =   375
      Left            =   7320
      TabIndex        =   11
      Top             =   600
      Width           =   1095
   End
   Begin VB.CommandButton cmdLoad 
      Caption         =   "载入"
      Height          =   375
      Left            =   7320
      TabIndex        =   10
      Top             =   120
      Width           =   1095
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存"
      Height          =   375
      Left            =   7320
      TabIndex        =   9
      Top             =   360
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Caption         =   "状态"
      Height          =   855
      Left            =   5880
      TabIndex        =   6
      Top             =   120
      Width           =   975
      Begin VB.OptionButton Option2 
         Caption         =   "修改"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   480
         Width           =   735
      End
      Begin VB.OptionButton Option1 
         Caption         =   "录入"
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.ComboBox Combo2 
      Height          =   300
      Left            =   1920
      TabIndex        =   1
      Top             =   480
      Width           =   735
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   360
      TabIndex        =   0
      Top             =   480
      Width           =   1215
   End
   Begin VB.TextBox Text4 
      Height          =   300
      Left            =   3960
      TabIndex        =   3
      Top             =   480
      Width           =   1215
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   465
      Left            =   3000
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   8160
      Visible         =   0   'False
      Width           =   1380
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "frmMain.frx":0000
      Height          =   7695
      Left            =   120
      OleObjectBlob   =   "frmMain.frx":0014
      TabIndex        =   14
      Top             =   1080
      Width           =   16935
   End
   Begin VB.Label Label3 
      Caption         =   "录入人："
      Height          =   300
      Left            =   3240
      TabIndex        =   5
      Top             =   480
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "月"
      Height          =   300
      Left            =   2760
      TabIndex        =   4
      Top             =   480
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "年"
      Height          =   300
      Left            =   1680
      TabIndex        =   2
      Top             =   480
      Width           =   975
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim view As NotesView
Dim lastRow As Variant


Private Sub Command1_Click()

End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdLoad_Click()
    frmSelectTime.Show 1
End Sub

Private Sub cmdSave_Click()
    Dim doc As NotesDocument
    Dim rs As Recordset
    Dim db As Database
    Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\临时纪录库.mdb")
    Set rs = db.OpenRecordset("select * from 临时纪录 where 电话号码<>'' and 部门<>'' ", dbOpenDynaset)
    Do Until rs.EOF = True
        Set doc = PublicNotesDb.CreateDocument
        Call doc.ReplaceItemValue("form", "fTelFee")
        Call doc.ReplaceItemValue("year", Combo1.Text + "年")
        Call doc.ReplaceItemValue("month", Combo2.Text + "月")
        Call doc.ReplaceItemValue("phonenumber", CStr(rs.Fields("电话号码")))
        Call doc.ReplaceItemValue("appart", CStr(rs.Fields("部门")))
        Call doc.ReplaceItemValue("f1", CDbl(rs.Fields("月租费")))
        Call doc.ReplaceItemValue("f2", CDbl(rs.Fields("市话费")))
        Call doc.ReplaceItemValue("f3", CDbl(rs.Fields("长话费")))
        Call doc.ReplaceItemValue("f5", CDbl(rs.Fields("数据费")))
        Call doc.ReplaceItemValue("f4", CDbl(rs.Fields("信息费")))
        Call doc.ReplaceItemValue("f6", CDbl(rs.Fields("其他费")))
        Call doc.ReplaceItemValue("f8", CDbl(rs.Fields("优惠费")))
        Call doc.ReplaceItemValue("f9", CDbl(rs.Fields("小灵通增值费")))
        Call doc.ReplaceItemValue("fee", CDbl(rs.Fields("小计")))
        Call doc.Save(True, True)
        rs.MoveNext
    Loop
    MsgBox "保存成功!"
    Exit Sub
End Sub

Private Sub cmdSaveMod_Click()
    Dim doc As NotesDocument
    Dim rs As Recordset
    Dim db As Database
    Dim view As NotesView
    Set view = PublicNotesDb.GetView("vTelFeeByYearMonth")
    Dim dc As NotesDocumentCollection
    Set dc = view.GetAllDocumentsByKey(CurrentTime.Text)  '''''根据条件得到符合此条件的所有文档
    Call dc.RemoveAll(False)
    Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\临时纪录库.mdb")
    Set rs = db.OpenRecordset("select * from 临时纪录 where 电话号码<>''", dbOpenDynaset)
    Do Until rs.EOF = True
        Set doc = PublicNotesDb.CreateDocument
        Call doc.ReplaceItemValue("form", "fTelFee")
        Call doc.ReplaceItemValue("year", Combo1.Text + "年")
        Call doc.ReplaceItemValue("month", Combo2.Text + "月")
        Call doc.ReplaceItemValue("phonenumber", CStr(rs.Fields("电话号码")))
        Call doc.ReplaceItemValue("appart", CStr(rs.Fields("部门")))
        Call doc.ReplaceItemValue("f1", CDbl(rs.Fields("月租费")))
        Call doc.ReplaceItemValue("f2", CDbl(rs.Fields("市话费")))
        Call doc.ReplaceItemValue("f3", CDbl(rs.Fields("长话费")))
        Call doc.ReplaceItemValue("f5", CDbl(rs.Fields("数据费")))
        Call doc.ReplaceItemValue("f4", CDbl(rs.Fields("信息费")))
        Call doc.ReplaceItemValue("f6", CDbl(rs.Fields("其他费")))
        Call doc.ReplaceItemValue("f8", CDbl(rs.Fields("优惠费")))
        Call doc.ReplaceItemValue("f9", CDbl(rs.Fields("小灵通增值费")))
        Call doc.ReplaceItemValue("fee", CDbl(rs.Fields("小计")))
        Call doc.Save(True, True)
        rs.MoveNext
    Loop
    MsgBox "修改成功!"
    Exit Sub
End Sub





Private Sub DBGrid1_RowColChange(lastRow As Variant, ByVal LastCol As Integer)
    Dim sum As Double
    sum = 0#
    Dim view As NotesView
    Dim tmpdoc As NotesDocument
    'DBGrid1.EditActive = True
    Set view = PublicNotesDb.GetView("电话登记\按电话")
    Dim i As Integer
    '''''''判断电话号码是否存在，如果存在就读出此号码的部门
    If LastCol = 0 Then
      ' DBGrid1.Row = lastRow
       Set tmpdoc = view.GetDocumentByKey(DBGrid1.Columns(0).Text)
       If tmpdoc Is Nothing Or DBGrid1.Columns(0).Text = "" Then
          MsgBox "此号码不存在"
          DBGrid1.Col = 0
       Else
          DBGrid1.Col = 1
          DBGrid1.Text = tmpdoc.GetItemValue("Appartment")(0)
       End If
    End If
    '''''''''''
    ''''''列值为空则置为0.00

    If LastCol > 1 And LastCol < 10 And DBGrid1.Columns(0).Text <> "" And DBGrid1.Columns(1).Text <> "" Then   ''不为空
        If DBGrid1.Columns(LastCol).Text = "" Then
           DBGrid1.Columns(LastCol).Text = "0.00"
        End If
    End If
 '''''''''''''计算小计的值
    If LastCol = 9 And DBGrid1.Columns(0).Text <> "" And DBGrid1.Columns(1).Text <> "" Then

       For i = 2 To DBGrid1.Columns.Count - 2
          DBGrid1.Col = i
          If DBGrid1.Text = "" Then
             DBGrid1.Text = "0.00"
          End If
          sum = sum + CDbl(DBGrid1.Text)
       Next
       DBGrid1.Col = DBGrid1.Columns.Count - 1
       DBGrid1.Text = CStr(sum)
       DBGrid1.Row = DBGrid1.Row + 1
       DBGrid1.Col = 0

    End If
 '''''''
End Sub

Private Sub Form_Activate()

    DBGrid1.Columns(0).Width = 1000 '为第一列设置宽度
    DBGrid1.Columns(1).Width = 1500 '为第二列设置宽度
    DBGrid1.Columns(2).Width = 1000 '为第三列设置宽度
    DBGrid1.Columns(3).Width = 1000
    DBGrid1.Columns(4).Width = 1000
    DBGrid1.Columns(5).Width = 1000
    DBGrid1.Columns(6).Width = 1000
    DBGrid1.Columns(7).Width = 1000
    DBGrid1.Columns(8).Width = 1000
    DBGrid1.Columns(9).Width = 1000
    DBGrid1.Columns(10).Width = 1000


End Sub

Private Sub Form_Load()
    Dim C As NotesViewColumn
    Dim Mycount As Integer
    Dim rs As Recordset
    Dim db As Database
    ''''给数据控件data1关联
    Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\临时纪录库.mdb")
    Set rs = db.OpenRecordset("select * from 临时纪录", dbOpenDynaset)
    
    Dim i As Integer
    
    For i = 1 To 600
        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
    rs.MoveFirst
    Set Data1.Recordset = rs
    ''''''''''''
    Option1.Value = True
    cmdSave.Visible = True
    cmdLoad.Visible = False
    cmdSaveMod.Visible = False
    
    For i = 0 To 4
        Combo1.AddItem Year(Now) - i
        Combo1.Text = Year(Now)
    Next
    For i = 1 To 12
        Combo2.AddItem i
        Combo2.Text = Month(Now)
    Next
    Text4 = Session.CommonUserName
 
End Sub

Private Sub Form_Resize()
Me.Width = 13000
DBGrid1.Width = 12000
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim rs As Recordset
    Dim db As Database
    ''''给数据控件data1关联
    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
End Sub

Private Sub Option1_Click()
    cmdSave.Visible = True
    cmdLoad.Visible = False
    cmdSaveMod.Visible = False
End Sub

Private Sub Option2_Click()
    cmdSave.Visible = False
    cmdLoad.Visible = True
    cmdSaveMod.Visible = True
End Sub