ee.frm

给售房作的,但还没有全完成,最好是只看看里面有用的东东就可以了

VERSION 5.00
Begin VB.Form winmenu501 
   Caption         =   "Form2"
   ClientHeight    =   3585
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5490
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   3585
   ScaleWidth      =   5490
   Begin VB.Frame Frame4 
      BorderStyle     =   0  'None
      Height          =   3255
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5295
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   3240
         TabIndex        =   11
         Top             =   120
         Width           =   1815
      End
      Begin VB.Label Label10 
         Caption         =   "777785"
         Height          =   255
         Left            =   1800
         TabIndex        =   21
         Top             =   2880
         Width           =   855
      End
      Begin VB.Label Label9 
         Caption         =   "2385"
         Height          =   255
         Left            =   1800
         TabIndex        =   20
         Top             =   2520
         Width           =   615
      End
      Begin VB.Label Label8 
         Caption         =   "115"
         Height          =   255
         Left            =   1800
         TabIndex        =   19
         Top             =   2280
         Width           =   615
      End
      Begin VB.Label Label7 
         Caption         =   "2500"
         Height          =   255
         Left            =   1800
         TabIndex        =   18
         Top             =   2040
         Width           =   735
      End
      Begin VB.Label Label6 
         Caption         =   "3500"
         Height          =   255
         Left            =   1800
         TabIndex        =   17
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "平方米"
         Height          =   255
         Left            =   2880
         TabIndex        =   16
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "890777"
         Height          =   255
         Left            =   1800
         TabIndex        =   15
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label Label3 
         Caption         =   "4000"
         Height          =   255
         Left            =   1800
         TabIndex        =   14
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "567"
         Height          =   255
         Left            =   1800
         TabIndex        =   13
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "4567"
         Height          =   255
         Left            =   1800
         TabIndex        =   12
         Top             =   480
         Width           =   1335
      End
      Begin VB.Label Label47 
         BackStyle       =   0  'Transparent
         Caption         =   "本单元共有："
         Height          =   375
         Left            =   120
         TabIndex        =   10
         Top             =   240
         Width           =   2055
      End
      Begin VB.Label Label48 
         BackStyle       =   0  'Transparent
         Caption         =   "其中店铺:"
         Height          =   375
         Left            =   840
         TabIndex        =   9
         Top             =   720
         Width           =   1695
      End
      Begin VB.Label Label49 
         BackStyle       =   0  'Transparent
         Caption         =   "住宅:"
         Height          =   255
         Left            =   1200
         TabIndex        =   8
         Top             =   960
         Width           =   1335
      End
      Begin VB.Label Label50 
         BackStyle       =   0  'Transparent
         Caption         =   "销售面积共:"
         Height          =   255
         Left            =   360
         TabIndex        =   7
         Top             =   1320
         Width           =   1695
      End
      Begin VB.Label Label51 
         BackStyle       =   0  'Transparent
         Caption         =   "目前已销售:"
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   1800
         Width           =   1575
      End
      Begin VB.Label Label52 
         BackStyle       =   0  'Transparent
         Caption         =   "房屋数量:"
         Height          =   255
         Left            =   360
         TabIndex        =   5
         Top             =   480
         Width           =   1095
      End
      Begin VB.Line Line30 
         X1              =   0
         X2              =   6000
         Y1              =   1560
         Y2              =   1560
      End
      Begin VB.Label Label53 
         BackStyle       =   0  'Transparent
         Caption         =   "房屋数量:"
         Height          =   255
         Left            =   360
         TabIndex        =   4
         Top             =   2040
         Width           =   1095
      End
      Begin VB.Label Label56 
         BackStyle       =   0  'Transparent
         Caption         =   "其中店铺:"
         Height          =   375
         Left            =   720
         TabIndex        =   3
         Top             =   2280
         Width           =   1695
      End
      Begin VB.Label Label57 
         BackStyle       =   0  'Transparent
         Caption         =   "住宅:"
         Height          =   255
         Left            =   1080
         TabIndex        =   2
         Top             =   2520
         Width           =   1335
      End
      Begin VB.Label Label59 
         Caption         =   "销售面积共:"
         Height          =   255
         Left            =   360
         TabIndex        =   1
         Top             =   2880
         Width           =   1695
      End
      Begin VB.Shape Shape3 
         BorderWidth     =   3
         Height          =   615
         Left            =   4440
         Top             =   3120
         Width           =   975
      End
   End
End
Attribute VB_Name = "winmenu501"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim xsda As Database
Dim xstab As Recordset

Private Sub Form_Load()
Set xsda = OpenDatabase(App.Path + "\sfgl.mdb")
Set xstab = xsda.OpenRecordset("falsexs")

'Combo1.AddItem = "第一单元"
'Combo1.AddItem = "第二单元"
'Combo1.AddItem = "第三单元"
'Combo1.AddItem = "第四单元"
'Combo1.AddItem = "第五单元"
'Combo1.AddItem = "第六单元"


End Sub