?? frmmain.frm
字號:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmmain
Caption = "售樓管理系統"
ClientHeight = 7365
ClientLeft = 60
ClientTop = 750
ClientWidth = 11190
LinkTopic = "Form1"
Picture = "frmmain.frx":0000
ScaleHeight = 7365
ScaleWidth = 11190
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 675
Left = 0
TabIndex = 0
Top = 0
Width = 11190
_ExtentX = 19738
_ExtentY = 1191
ButtonWidth = 1296
ButtonHeight = 1032
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
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 = 8
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 840
Top = 2520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 42
ImageHeight = 33
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":2573C2
Key = "bt_loupan"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":258494
Key = "bt_kehu"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":2595E6
Key = "bt_shoufei"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":25A738
Key = "bt_shoulouhetong"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":25B88A
Key = "bt_shoukuan"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":25C9DC
Key = "bt_ribaobiao"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":25DB2E
Key = "bt_zhiguantu"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":25EC80
Key = "bt_tuichu"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 7800
Top = 1560
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Menu housemanage
Caption = "房產管理(&H)"
Begin VB.Menu housestylelogin
Caption = "戶型登記"
End
Begin VB.Menu buildinglogin
Caption = "樓盤登記"
End
Begin VB.Menu g1
Caption = "-"
End
Begin VB.Menu housestylefind
Caption = "戶型查詢"
End
Begin VB.Menu buildingfind
Caption = "樓盤查詢"
End
End
Begin VB.Menu customermanage
Caption = "客戶管理(&C)"
Begin VB.Menu customerlogin
Caption = "客戶資料登記"
End
Begin VB.Menu g2
Caption = "-"
End
Begin VB.Menu customerdatafind
Caption = "客戶資料查詢"
End
End
Begin VB.Menu chargemanage
Caption = "收費管理(&G)"
Begin VB.Menu chargelogin
Caption = "收費登記"
End
Begin VB.Menu g3
Caption = "-"
End
Begin VB.Menu chargefind
Caption = "收費查詢"
End
End
Begin VB.Menu buildingsalemanage
Caption = "售樓管理(&L)"
Begin VB.Menu salemanlogin
Caption = "銷售人員登記"
End
Begin VB.Menu g4
Caption = "-"
End
Begin VB.Menu buildingsalebargain
Caption = "售樓合同管理"
End
Begin VB.Menu gatheringmanage
Caption = "收款管理"
End
Begin VB.Menu g5
Caption = "-"
End
Begin VB.Menu salemanfind
Caption = "銷售人員查詢"
End
Begin VB.Menu buildingsale
Caption = "售樓合同查詢"
End
Begin VB.Menu gatheringfind
Caption = "收款情況查詢"
End
End
Begin VB.Menu systemmaintenance
Caption = "系統維護(&S)"
Begin VB.Menu batabasebak
Caption = "數據庫備份"
End
Begin VB.Menu databaserecovery
Caption = "數據庫恢復"
End
End
Begin VB.Menu sysmanage
Caption = "系統管理(&T)"
Begin VB.Menu adduser
Caption = "添加用戶"
End
Begin VB.Menu changepwd
Caption = "更改密碼"
End
Begin VB.Menu exitsys
Caption = "退出系統"
End
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub adduser_Click()
Frmaddczy.Show 1
End Sub
Private Sub batabasebak_Click()
Dim fsofile
conn.Close
Set conn = Nothing
Set fsofile = CreateObject("scripting.filesystemobject")
CommonDialog1.Filter = "mdb文件(*.mdb)|*.mdb"
CommonDialog1.ShowSave
fsofile.copyfile App.Path & "\house.mdb", CommonDialog1.FileTitle
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=" & App.Path & "\house.mdb"
conn.Open connectionstring
End Sub
Private Sub buildingfind_Click()
Frmbuildingfind.Show
End Sub
Private Sub buildinglogin_Click()
frmbuildinglogin.Show 1
End Sub
Private Sub buildingsale_Click()
Frmhetongfind.Show 1
End Sub
Private Sub buildingsalebargain_Click()
Frmhetonglogin.Show 1
End Sub
Private Sub builinglogin_Click()
frmbuildinglogin.Show 1
End Sub
Private Sub changepwd_Click()
frmChPwd.Show 1
End Sub
Private Sub chargefind_Click()
Frmshoufeifind.Show
End Sub
Private Sub chargelogin_Click()
Frmshoufeilogin.Show 1
End Sub
Private Sub customerdatafind_Click()
Frmkehufind.Show 1
End Sub
Private Sub customerlogin_Click()
Frmkehulogin.Show 1
End Sub
Private Sub databasebak_Click()
Dim fsofile
conn.Close
Set conn = Nothing
Set fsofile = CreateObject("scripting.filesystemobject")
CommonDialog1.Filter = "mdb文件(*.mdb)|*.mdb"
CommonDialog1.ShowSave
fsofile.copyfile App.Path & "\house.mdb", CommonDialog1.FileTitle
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=" & App.Path & "\house.mdb"
conn.Open connectionstring
End Sub
Private Sub databaserecovery_Click()
Dim fsofile
conn.Close
Set conn = Nothing
Set fsofile = CreateObject("scripting.filesystemobject")
CommonDialog1.Filter = "mdb文件(*.mdb)|*.mdb"
CommonDialog1.ShowOpen
fsofile.copyfile CommonDialog1.FileTitle, App.Path & "\house.mdb"
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=" & App.Path & "\house.mdb"
conn.Open connectionstring
End Sub
Private Sub exitsys_Click()
conn.Close
Set conn = Nothing
replay = MsgBox("確定要退出嗎?", vbYesNo, "系統提示!")
If replay = vbYes Then
End
End If
End Sub
Private Sub Form_Load()
If username = "guest" Then
buildingsalebargain.Enabled = False
databaserecovery.Enabled = False
adduser.Enabled = False
End If
End Sub
Private Sub gatheringfind_Click()
Frmshoukuanfind.Show
End Sub
Private Sub gatheringmanage_Click()
Frmshoukuanlogin.Show 1
End Sub
Private Sub hetongtongji_Click()
Form16.Show
End Sub
Private Sub housestylefind_Click()
frmbuildingstylefind.Show 1
End Sub
Private Sub housestylelogin_Click()
frmhuxinglogin.Show 1
End Sub
Private Sub salemanfind_Click()
Frmsalemanfind.Show 1
End Sub
Private Sub salemanlogin_Click()
Frmsalemanlogin.Show 1
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key '按關鍵字選擇
Case "bt_loupan"
Frmbuildingfind.Show 1
Case "bt_kehu"
Frmkehufind.Show 1
Case "bt_shoufei"
Frmshoufeifind.Show 1
Case "bt_shoulou"
Frmhetonglogin.Show 1
Case "bt_shoukuan"
Frmshoukuanlogin.Show 1
Case "bt_tuichu"
replay = MsgBox("確定要退出嗎?", vbYesNo, "系統提示!")
If replay = vbYes Then
End
End If
End Select
End Sub
Private Sub xiaoshouyuantongji_Click()
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -