menuboot.frm

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

VERSION 5.00
Begin VB.MDIForm menuboot 
   BackColor       =   &H8000000C&
   Caption         =   "呼和浩特市金风房地产 售房管理系统"
   ClientHeight    =   8025
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8415
   Icon            =   "menuboot.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "menuboot.frx":0442
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu menu0 
      Caption         =   "楼宇明细图"
   End
   Begin VB.Menu menu1 
      Caption         =   "初始化设置（&I）"
      Begin VB.Menu menu11 
         Caption         =   "小区管理"
      End
      Begin VB.Menu menu12 
         Caption         =   "小区初始化"
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "视图（&V）"
      Begin VB.Menu menu31 
         Caption         =   "大图标"
      End
      Begin VB.Menu menu32 
         Caption         =   "小图标"
      End
      Begin VB.Menu menu33 
         Caption         =   "详细列表"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu menu6 
      Caption         =   "统计查询（&L）"
      Begin VB.Menu menu4 
         Caption         =   "户位信息管理"
      End
   End
   Begin VB.Menu menux4 
      Caption         =   "系统设置"
      Begin VB.Menu menu41 
         Caption         =   "权限设置"
      End
   End
   Begin VB.Menu menu5 
      Caption         =   "楼宇销售一览图"
      Begin VB.Menu menu51 
         Caption         =   "第一栋"
      End
      Begin VB.Menu menu52 
         Caption         =   "第二栋"
      End
      Begin VB.Menu menu53 
         Caption         =   "第三栋"
         Index           =   0
      End
      Begin VB.Menu menu54 
         Caption         =   "第四栋"
      End
      Begin VB.Menu menu55 
         Caption         =   "第五栋"
      End
      Begin VB.Menu menu56 
         Caption         =   "第六栋"
      End
   End
End
Attribute VB_Name = "menuboot"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public menunum As String  '传递菜单
Public xiaoquname As String '伟递小区名称,寝始化用
Dim xiaoquk As Database
Dim xiaoqutab As Recordset


Private Sub MDIForm_Load()
'winmenu0.Show
End Sub

Private Sub menu0_Click()
winmenu0.Show
End Sub

Private Sub menu11_Click()
winmenu11.Show
winmenu11.Left = 1250
End Sub

Private Sub menu12_Click()
Set xiaoquk = OpenDatabase(App.Path + "\sfgl.mdb")
Set xiaoqutab = xiaoquk.OpenRecordset("xiaoqu")
If xiaoqutab.EOF Then
   MsgBox "对不起,现在没有已设定的小区,不能进行初始化操作！" + Chr(13) + "请执行<信息录入>下的<<小区设定>>菜单,进行小区设定操作", vbOKCancel + vbSystemModal, "金风售房管理系统"
   Exit Sub
End If
menunum = "menu12"
winmenu12.Show
End Sub

Private Sub menu2_Click()
winmenu21.Show
End Sub

Private Sub menu31_Click()
'Set xiaoquk = OpenDatabase(App.Path + "\sfgl.mdb")
'xiaoquk.Execute "delete * from falsexs where dys='6'"
'For i = 0 To 119
'xiaoquk.Execute "insert into falsexs (dys,xiaosou,bh,xsmj) values ('6','3','" + LTrim(Str(i)) + "','0') "
'Next i
'xiaoquk.Execute "update falsexs set dongs=dys "
If Not menu31.Checked Then
   winmenu0.lvone.View = lvwIcon
   menu32.Checked = False
   menu33.Checked = False
   menu31.Checked = True
   winmenu0.label2.Caption = "大 图 标视图                             注:命令按钮的操作只对选择项操作有效"
End If
End Sub

Private Sub menu32_Click()
If Not menu32.Checked Then
   winmenu0.lvone.View = lvwSmallIcon
   menu31.Checked = False
   menu33.Checked = False
   menu32.Checked = True
   winmenu0.label2.Caption = "小 图 标视图                             注:命令按钮的操作只对选择项操作有效"
End If
End Sub

Private Sub menu33_Click()
If Not menu33.Checked Then
   winmenu0.lvone.View = lvwReport
   menu32.Checked = False
   menu31.Checked = False
   menu33.Checked = True
End If
End Sub

Private Sub menu42_Click()
Dim abc As Database
Dim ab As Recordset
Set abc = OpenDatabase(App.Path + "\data\幸福家园.mdb")
s1 = "01"
Set ab = abc.OpenRecordset("select * from dysb where kloud='" + s1 + "'")
ab.MoveLast
MsgBox ab.RecordCount

End Sub

Private Sub menu44_Click()
menuask.Show
End Sub

Private Sub menu45_Click()
winmenu0.Hide
menuboot.xiaoquname = "伯爵花园"
frmzhda.Show
End Sub

Private Sub ss_Click()
Form1.Show
End Sub

Private Sub menu4_Click()
Dim xqk As Database
Set xqk = OpenDatabase(App.Path + "\sfgl.mdb")
xqk.Execute "update cdcx set TJ='select * from xxb'"
menuboot.menunum = "winmenu4"
winser.Show
End Sub

Private Sub menu41_Click()
menuboot.menunum = "menu41"
winser.Show
End Sub

Private Sub menu51_Click()
winmenu51.Show
End Sub

Private Sub menu52_Click()
winmenu52.Show
End Sub

Private Sub menu53_Click(Index As Integer)
winmenu53.Show
End Sub

Private Sub menu55_Click()
winmenu55.Show
End Sub

Private Sub menu56_Click()
winmenu56.Show
End Sub