frmcustomervisiting.frm

很好！ 很实用！ 免费！

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmCustomerVisiting 
   ClientHeight    =   7755
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9210
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7755
   ScaleWidth      =   9210
   Begin ClassSystem.ExcelGrid ExcelGrid1 
      Height          =   3375
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   5655
      _ExtentX        =   9975
      _ExtentY        =   5953
      DisplayOfficeLogo=   -1  'True
      DisplayToolbar  =   0   'False
   End
   Begin MSComctlLib.Toolbar topToolbar 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   9210
      _ExtentX        =   16245
      _ExtentY        =   979
      ButtonWidth     =   1058
      ButtonHeight    =   926
      Appearance      =   1
      Style           =   1
      ImageList       =   "toolbarImageList1"
      HotImageList    =   "toolbarImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   4
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "新加"
            Key             =   "Insert"
            Object.ToolTipText     =   "新加"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "Update"
            Object.ToolTipText     =   "修改"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "Delete"
            Object.ToolTipText     =   "删除"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   " 退 出 "
            Key             =   "Exit"
            Object.ToolTipText     =   " 退 出"
            ImageIndex      =   11
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin MSComctlLib.ImageList toolbarImageList2 
         Left            =   8040
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   15
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   11
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":0000
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":0542
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":0A84
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":0FC6
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":1162
               Key             =   ""
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":16A4
               Key             =   ""
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":19F8
               Key             =   ""
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":1D4C
               Key             =   ""
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":228E
               Key             =   ""
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":27D0
               Key             =   ""
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":2D12
               Key             =   ""
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.ImageList toolbarImageList1 
         Left            =   7320
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   15
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   11
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":2E1C
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":335E
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":38A0
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":3DE2
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":3F7C
               Key             =   ""
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":44BE
               Key             =   ""
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":4812
               Key             =   ""
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":4B66
               Key             =   ""
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":50A8
               Key             =   ""
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":55EA
               Key             =   ""
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmCustomerVisiting.frx":5B2C
               Key             =   ""
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "frmCustomerVisiting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public sCustID As String
Public sCustName As String
Private Sub Form_Load()
'button
    If g_ButtonArrange Then
        topToolbar.TextAlignment = tbrTextAlignBottom
    Else
        topToolbar.TextAlignment = tbrTextAlignRight
    End If
'caption
    Me.Caption = "客户拜访" + IIf(sCustID = "", "", "----[" + sCustName + "]")
    RefreshData
End Sub

Private Sub Form_Unload(Cancel As Integer)
    sCustID = ""
    sCustName = ""
End Sub

Private Sub topToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "Exit"
            Unload Me
        Case "Insert"
            With frmCustomerVisitingInsert
                .Show vbModal
            End With
        Case "Update"
            With frmCustomerVisitingUpdate
                .Show vbModal
            End With
        Case "Delete"
            Dim objCustomerVisiting As New clsCustomerVisiting
            With objCustomerVisiting
                .m_ID = Me.ExcelGrid1.DataRecordset.Fields("ID").value
                If .Delete() Then
                    Call RefreshData
                End If
            End With
            Set objCustomerVisiting = Nothing
    End Select
End Sub


Private Sub Form_Resize()
On Error Resume Next
    ExcelGrid1.Left = 10
    ExcelGrid1.Width = Me.Width - 20
    ExcelGrid1.Top = topToolbar.Top + topToolbar.Height + 100
    ExcelGrid1.Height = Me.Height - ExcelGrid1.Top - 300
Err.Clear
    
End Sub

Public Sub RefreshData()
Dim objCustomerVisiting As New clsCustomerVisiting
    ExcelGrid1.RelativeGrid objCustomerVisiting.GetList(, IIf(sCustID = "", "", "CustomerID=" + CheckString(sCustID))), "[CustomerID], [TransDate], [TransTitle], [VisiterID], [Summary], [Result], [Fee]", "[客户名称], [拜访日期], [拜访标题], [访问者], [拜访摘要], [拜访结果摘要], [拜访所花费用合计]"
    If ExcelGrid1.DataRecordset.RecordCount = 0 Then
        topToolbar.Buttons("Update").Enabled = False
        topToolbar.Buttons("Delete").Enabled = False
    Else
        topToolbar.Buttons("Update").Enabled = True
        topToolbar.Buttons("Delete").Enabled = True
    End If
End Sub