frmchang.frm

比较完整的一个客户管理软件

VERSION 5.00
Begin VB.Form FrmChang 
   Caption         =   "选择"
   ClientHeight    =   2700
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3405
   Icon            =   "FrmChang.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   Picture         =   "FrmChang.frx":08CA
   ScaleHeight     =   2700
   ScaleWidth      =   3405
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   2160
      Picture         =   "FrmChang.frx":18038
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   2160
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   720
      Picture         =   "FrmChang.frx":1B040
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   2160
      Width           =   975
   End
   Begin VB.ComboBox Combo1 
      BackColor       =   &H80000001&
      ForeColor       =   &H80000005&
      Height          =   300
      Left            =   360
      TabIndex        =   3
      Top             =   1560
      Width           =   2895
   End
   Begin VB.OptionButton Option2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "交易信息"
      ForeColor       =   &H80000006&
      Height          =   375
      Left            =   1920
      TabIndex        =   2
      Top             =   600
      Width           =   1335
   End
   Begin VB.OptionButton Option1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "客户信息"
      Height          =   375
      Left            =   360
      TabIndex        =   1
      Top             =   600
      Width           =   1335
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "请选择或输入客户名称："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   1200
      Width           =   2655
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "要修改："
      ForeColor       =   &H8000000E&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
End
Attribute VB_Name = "FrmChang"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Change()
    Dim str As String
    Dim rsClient As New ADODB.Recordset

    str = "select * from 客户表 where 客户名称 Like ( '% " & Trim(Combo1.Text) & "% ' )"
    rsClient.Open str, cn, adOpenKeyset

    If rsClient.RecordCount > 0 Then
       Combo1.Clear
       Dim i As Integer

       For i = 1 To rsClient.RecordCount
           Combo1.AddItem (rsClient("客户名称"))
           If rsClient.EOF = False Then
              rsClient.MoveNext
           End If
       Next
    End If
    rsClient.Close
End Sub

Private Sub Command1_Click()
   ClientName = Combo1.Text
   Dim str As String
   
   If Option1.Value = True Then
      Dim rsClient As New ADODB.Recordset
      str = "select * from 客户表 where 客户名称 = " & "'" & Combo1.Text & "'"
      rsClient.Open str, cn, adOpenKeyset
      If rsClient.RecordCount = 1 Then
         FrmChCliInf.txtUserName = Combo1.Text
         FrmChCliInf.txtLinkMan = rsClient("联系人")
         FrmChCliInf.txtPhone = rsClient("联系电话")
         FrmChCliInf.txtBack = rsClient("备注")
         FrmChCliInf.Show
     Else
        MsgBox "对不起，没有找到适合的数据！"
     End If
     rsClient.Close
   ElseIf Option2.Value = True Then
     Dim rsTrade As New ADODB.Recordset
     str = "select * from 交易统计表 where 客户名称 = " & "'" & Combo1.Text & "'"
     rsTrade.Open str, cn, adOpenKeyset
     
     If rsTrade.RecordCount > 1 Then
         rsTrade.Close
         FrmChTraInf.Show
     ElseIf rsTrade.RecordCount = 1 Then
        With FrmChTraInf
             .DTrade.Value = rsTrade("交易日期")
             .TxtClientName.Text = rsTrade("客户名称")
             .TxtBackup.Text = rsTrade("备注")
             .TxtNum.Text = rsTrade("数量")
             .TxtPaper.Text = rsTrade("用纸要求")
             .TxtSingle.Text = rsTrade("单价")
             .TxtSize.Text = rsTrade("尺寸")
             .TxtSum.Text = rsTrade("总金额")
             .txtBindType = rsTrade("装订方式")
        End With
        rsTrade.Close
      FrmChTraInf.Show
   End If
End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
   Dim str As String
   Dim rsClient As New ADODB.Recordset
   
   str = "select * from 客户表"
   rsClient.Open str, cn, adOpenKeyset
   
   Dim i As Long
   If rsClient.RecordCount > 0 Then
        Combo1.Text = rsClient("客户名称")
        For i = 1 To rsClient.RecordCount
           Combo1.AddItem rsClient("客户名称")
            If rsClient.EOF = False Then
                rsClient.MoveNext
            End If
        Next
        rsClient.Close
   End If
   Option1.Value = True
    Me.Height = 3060
   Me.Width = 3525
End Sub