form11.frm

来自「一个商业软件的源码」· FRM 代码 · 共 226 行

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form Form11 
   Caption         =   "Form11"
   ClientHeight    =   5715
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11430
   Icon            =   "Form11.frx":0000
   LinkTopic       =   "Form11"
   ScaleHeight     =   5715
   ScaleWidth      =   11430
   StartUpPosition =   3  '窗口缺省
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   5295
      Left            =   0
      OleObjectBlob   =   "Form11.frx":08CA
      TabIndex        =   0
      Top             =   360
      Width           =   11415
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   360
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11415
      _ExtentX        =   20135
      _ExtentY        =   635
      _Version        =   393216
      Tabs            =   4
      TabsPerRow      =   4
      TabHeight       =   520
      TabCaption(0)   =   "客户所在地分布统计"
      TabPicture(0)   =   "Form11.frx":2260
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).ControlCount=   0
      TabCaption(1)   =   "客户所属行业分布统计"
      TabPicture(1)   =   "Form11.frx":227C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).ControlCount=   0
      TabCaption(2)   =   "客户报备情况分布统计"
      TabPicture(2)   =   "Form11.frx":2298
      Tab(2).ControlEnabled=   0   'False
      Tab(2).ControlCount=   0
      TabCaption(3)   =   "客户类型分布统计"
      TabPicture(3)   =   "Form11.frx":22B4
      Tab(3).ControlEnabled=   0   'False
      Tab(3).ControlCount=   0
   End
   Begin MSAdodcLib.Adodc Adodc2 
      Height          =   375
      Left            =   2160
      Top             =   5040
      Visible         =   0   'False
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc2"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   375
      Left            =   120
      Top             =   5040
      Visible         =   0   'False
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim nmax As Single
Dim ls As Integer

Private Sub Form_Load()

Adodc1.ConnectionString = cnnado.ConnectionString
Adodc2.ConnectionString = cnnado.ConnectionString
'Call tj(tjbt)
SSTab1.Top = 0
SSTab1.Width = Form11.Width
SSTab1.Left = 0

MSChart1.Width = Form11.Width
MSChart1.Left = 0
MSChart1.Top = SSTab1.Height
MSChart1.Height = Abs(Form11.Height - SSTab1.Height)
End Sub



Private Sub Form_Resize()
SSTab1.Top = 0
SSTab1.Width = Form11.Width
SSTab1.Left = 0

MSChart1.Width = Form11.Width
MSChart1.Left = 0
MSChart1.Top = SSTab1.Height
MSChart1.Height = Abs(Form11.Height - SSTab1.Height)



End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
Call tjs("szqy", "所在区域", "客户所在区分布域统计")
Form11.Caption = "客户所在区分布域统计"
Case 1
Call tjs("sshy", "行业", "客户所属行业分布统计")
Form11.Caption = "客户所属行业分布统计"
Case 2
Call tjs("bbzk", "报备状况", "客户报备状况分布统计")
Form11.Caption = "客户报备状况分布统计"
Case 3
Call tjs("khlx", "客户类型", "客户客户类型分布统计")
Form11.Caption = "客户客户类型分布统计"
End Select
MSChart1.Refresh
End Sub


Public Function tjs(name As String, zd As String, bts As String)
Dim i As Integer
Adodc1.RecordSource = "select distinct " & zd & " from " & name
Adodc1.Refresh
nmax = Adodc1.Recordset.RecordCount
ls = Adodc1.Recordset.RecordCount
MSChart1.RowLabelCount = ls
MSChart1.RowCount = ls
For i = 1 To ls
MSChart1.Row = i
MSChart1.RowLabel = Adodc1.Recordset.Fields(0).Value
Adodc2.RecordSource = "select * from kehu where " & zd & "=" & "'" & Adodc1.Recordset.Fields(0).Value & "'"
Adodc2.Refresh
MSChart1.RowLabel = Adodc1.Recordset.Fields(0).Value & Adodc2.Recordset.RecordCount
Adodc1.Recordset.MoveNext
MSChart1.data = Adodc2.Recordset.RecordCount
Next i
MSChart1.TitleText = bts
End Function