?? 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 = "售樓管理系統(tǒng)"
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 = "房產(chǎn)管理"
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 = "系統(tǒng)維護"
Begin VB.Menu Databasebak
Caption = "數(shù)據(jù)庫備份"
End
Begin VB.Menu Databaserecovery
Caption = "數(shù)據(jù)庫恢復(fù)"
End
End
Begin VB.Menu sysmanage
Caption = "系統(tǒng)管理"
Begin VB.Menu Adduser
Caption = "添加用戶"
End
Begin VB.Menu Changeped
Caption = "更改密碼"
End
Begin VB.Menu Exitsys
Caption = "退出系統(tǒng)"
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("確實要退出本系統(tǒng)嗎？", vbYesNo + vbQuestion, "提示") = vbNo Then
Cancel = True '如果用戶不退出，則取消卸載
Else '如果確定退出，在卸載之前關(guān)閉數(shù)據(jù)庫
If conn.State <> 0 Then conn.Close '關(guān)閉數(shù)據(jù)庫連接
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 '系統(tǒng)維護不可用
'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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -