frmtj.frm

大学生生活普查程序,用vb开发的,调查大学生生活情况,并做出评价,给出建议,做出统计

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "mschrt20.ocx"
Begin VB.Form Frmtj 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   1575
      Left            =   600
      OleObjectBlob   =   "Frmtj.frx":0000
      TabIndex        =   0
      Top             =   600
      Width           =   2295
   End
End
Attribute VB_Name = "Frmtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset
Dim re As Recordset


Private Sub Form_Load()
Set db = OpenDatabase(datapath)
Set rs = db.OpenRecordset("select count(custernum) as one from custerms where age='0' and sex='0'and val(smoking)>0")
Set re = db.OpenRecordset("select count(custernum) as two from custerms where age='0' and sex='0'")
List1.clear
If IsNull(re("two")) = False And re("two") <> 0 Then
    With MSChart1
       .Column = 1
       .Data = rs("one")
       .Column = 2
       .Data = re("two")
    End With
End If

re.Close
rs.Close
db.Close

End Sub