📄 formmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FormMain
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Caption = "售楼管理系统"
ClientHeight = 10830
ClientLeft = 60
ClientTop = -1935
ClientWidth = 10380
LinkTopic = "Form1"
Picture = "FormMain.frx":0000
ScaleHeight = 10830
ScaleWidth = 10380
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 5400
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 50
ImageHeight = 65
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FormMain.frx":2573C2
Key = "bt_loupan"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FormMain.frx":257C20
Key = "bt_kehu"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FormMain.frx":258369
Key = "bt_shoufei"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FormMain.frx":258BF6
Key = "bt_shoulou"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FormMain.frx":259372
Key = "bt_shuokuan"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FormMain.frx":259B17
Key = "bt_tuichu"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 1155
Left = 0
TabIndex = 0
Top = 0
Width = 10380
_ExtentX = 18309
_ExtentY = 2037
ButtonWidth = 1508
ButtonHeight = 1879
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bt_loupan"
ImageIndex = 1
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 1
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bt_kehu"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bt_shoufei"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bt_shoulou"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bt_shoukuan"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bt_tuichu"
ImageIndex = 6
EndProperty
EndProperty
End
Begin VB.Menu Housemanage
Caption = "房产管理"
Begin VB.Menu Housestylelogin
Caption = "户型登记"
End
Begin VB.Menu Housestylefind
Caption = "户型查询"
End
Begin VB.Menu fg
Caption = "-"
End
Begin VB.Menu Bulidlogin
Caption = "楼盘登记"
End
Begin VB.Menu Buildingfind
Caption = "楼盘查询"
End
End
Begin VB.Menu Customermanage
Caption = "客户管理"
Begin VB.Menu Customerlogin
Caption = "客户资料登记"
End
Begin VB.Menu Customerdatafind
Caption = "客户资料查询"
End
End
Begin VB.Menu chargemanage
Caption = "收费管理"
Begin VB.Menu chargelogin
Caption = "收费登记"
End
Begin VB.Menu chargefind
Caption = "收费查询"
End
End
Begin VB.Menu Bulidsalemanage
Caption = "售楼管理"
Begin VB.Menu Salemanlogin
Caption = "销售人员登记"
End
Begin VB.Menu Salemanfind
Caption = "销售人员查询"
End
Begin VB.Menu fg1
Caption = "-"
End
Begin VB.Menu Buildsalebargain
Caption = "销售合同管理"
End
Begin VB.Menu Buildingsale
Caption = "售楼合同查询"
End
Begin VB.Menu fg2
Caption = "-"
End
Begin VB.Menu Gatheringmanage
Caption = "收款管理"
End
Begin VB.Menu Gatheringfind
Caption = "收款情况查询"
End
End
Begin VB.Menu Systemmaintenance
Caption = "系统维护"
Begin VB.Menu Databasebak
Caption = "数据库备份"
End
Begin VB.Menu Databaserecovery
Caption = "数据库恢复"
End
End
Begin VB.Menu sysmanage
Caption = "系统管理"
Begin VB.Menu Adduser
Caption = "添加用户"
End
Begin VB.Menu Changeped
Caption = "更改密码"
End
Begin VB.Menu Exitsys
Caption = "退出系统"
End
End
End
Attribute VB_Name = "FormMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确实要退出本系统吗？", vbYesNo + vbQuestion, "提示") = vbNo Then
Cancel = True '如果用户不退出，则取消卸载
Else '如果确定退出，在卸载之前关闭数据库
If conn.State <> 0 Then conn.Close '关闭数据库连接
Set conn = Nothing
End If
End Sub
Private Sub Buildingfind_Click()
frmBuildingfind.Show
Me.Hide
End Sub
Private Sub Buildingsale_Click()
frmHetongFind.Show
Me.Hide
End Sub
Private Sub Buildsalebargain_Click()
frmHetongLogin.Show
Me.Hide
End Sub
Private Sub Bulidlogin_Click()
frmBuildingLogin.Show
Me.Hide
End Sub
Private Sub chargefind_Click()
frmShoufeiFind.Show
Me.Hide
End Sub
Private Sub chargelogin_Click()
frmShoufeiLogin.Show
Me.Hide
End Sub
Private Sub Customerdatafind_Click()
frmkehufind.Show
Me.Hide
End Sub
Private Sub Customerlogin_Click()
frmkehulogin.Show
Me.Hide
End Sub
Private Sub Exitsys_Click()
conn.Close
Set conn = Nothing
Unload Me
End Sub
Private Sub Form_Load()
If userType = "guest" Then
Buildsalebargain.Enabled = False '销售合同管理不可用
Systemmaintenance.Enabled = False '系统维护不可用
'Databaserecovery.Enabled = False
Adduser.Enabled = False '添加用户不可用
End If
End Sub
Private Sub Gatheringfind_Click()
frmShoukuanFind.Show
Me.Hide
End Sub
Private Sub Gatheringmanage_Click()
frmShoukuanLogin.Show
Me.Hide
End Sub
Private Sub Housestylefind_Click()
frmBuildingstylefind.Show
Me.Hide
End Sub
Private Sub Housestylelogin_Click()
frmHuxinglogin.Show
Me.Hide
End Sub
Private Sub Salemanfind_Click()
frmSalemanFind.Show
Me.Hide
End Sub
Private Sub Salemanlogin_Click()
frmSalemanLogin.Show
Me.Hide
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "bt_loupan"
frmBuildingfind.Show
Me.Hide
Case "bt_kehu"
frmkehufind.Show
Me.Hide
Case "bt_shoufei"
frmShoufeiFind.Show
Me.Hide
Case "bt_shoulou"
frmHetongFind.Show
Me.Hide
Case "bt_shoukuan"
Case "bt_tuichu"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -