main_scgl_sczs.frm

EMS是一个企业营销管理系统,功能强大,供大家享用,希望大家多多支持!!

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form main_scgl_sczs 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   4785
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7635
   Icon            =   "main_scgl_sczs.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4785
   ScaleWidth      =   7635
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   390
      Left            =   5865
      TabIndex        =   0
      Top             =   4260
      Width           =   1725
   End
   Begin MSChart20Lib.MSChart MSChart1 
      CausesValidation=   0   'False
      Height          =   4080
      Left            =   45
      OleObjectBlob   =   "main_scgl_sczs.frx":000C
      TabIndex        =   1
      Top             =   75
      Width           =   7545
   End
End
Attribute VB_Name = "main_scgl_sczs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Public cp As String
Private Sub Form_Load()
  Me.Caption = text
  rs1.Open "select 市场价格,跟踪月份 from 市场跟踪表 where 品名规格='" + cp + "' order by 跟踪月份", Cnn, adOpenKeyset, adLockOptimistic
  If rs1.RecordCount > 0 Then
    rs1.MoveLast
    rs1.MoveFirst
    nums = rs1.RecordCount
    ReDim arrValues(1 To nums, 1 To 2)                           '定义动态数组
    For i = 1 To nums                                            '给数组赋值
     arrValues(i, 1) = " " & rs1!跟踪月份
     arrValues(i, 2) = rs1!市场价格
     rs1.MoveNext
    Next i
    MSChart1.ChartData = arrValues                               '图表显示数据
 End If
 rs1.Close
 MSChart1.Title = "〖" & cp & "〗产品走势图"                  '图表名称
End Sub
Private Sub Command1_Click()
  Unload Me
End Sub