declerations.bas

主要是实现物业管理功能！可以帮助了解该区的相关物业情况

Attribute VB_Name = "DECLERATIONS"
Option Explicit
Public Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'Public adors As New ADODB.Recordset '声明一个数据库连接
Public Type POINTAPI
    X As Long
    Y As Long
End Type
Public Pnt As POINTAPI
Public Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, _
        qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
Public Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type
Public Const BDR_INNER = &HC
Public Const BDR_OUTER = &H3
Public Const BDR_RAISED = &H5
Public Const BDR_RAISEDINNER = &H4
Public Const BDR_RAISEDOUTER = &H1
Public Const BDR_SUNKEN = &HA
Public Const BDR_SUNKENINNER = &H8
Public Const BDR_SUNKENOUTER = &H2
' CUSTOMIZED EDGE styles (TO COMBINE THE CONSTANTS)
Public Const EDGE_BUMP = (BDR_RAISEDOUTER Or BDR_SUNKENINNER)
Public Const EDGE_SUNKEN = (BDR_SUNKENOUTER Or BDR_SUNKENINNER)
Public Const EDGE_RAISED = (BDR_RAISEDOUTER Or BDR_RAISEDINNER)
Public Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)

Public Const BF_FLAT = &H4000
Public Const BF_LEFT = &H1
Public Const BF_MONO = &H8000
Public Const BF_MIDDLE = &H800
Public Const BF_RIGHT = &H4
Public Const BF_SOFT = &H1000
Public Const BF_TOP = &H2
Public Const BF_ADJUST = &H2000
Public Const BF_BOTTOM = &H8
Public Const BF_DIAGONAL = &H10
Public Const BF_DIAGONAL_ENDBOTTOMLEFT = (BF_DIAGONAL Or BF_BOTTOM _
        Or BF_LEFT)
Public Const BF_DIAGONAL_ENDBOTTOMRIGHT = (BF_DIAGONAL Or _
        BF_BOTTOM Or BF_RIGHT)
Public Const BF_DIAGONAL_ENDTOPLEFT = (BF_DIAGONAL Or BF_TOP Or BF_LEFT)
Public Const BF_DIAGONAL_ENDTOPRIGHT = (BF_DIAGONAL Or BF_TOP Or BF_RIGHT)
Public Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
Public Const BF_BOTTOMLEFT = (BF_BOTTOM Or BF_LEFT)
Public Const BF_BOTTOMRIGHT = (BF_BOTTOM Or BF_RIGHT)
Public Const BF_TOPLEFT = (BF_TOP Or BF_LEFT)
Public Const BF_TOPRIGHT = (BF_TOP Or BF_RIGHT)



Public Sub text_clear()
frm_zyinfo.Text1.Text = " "
frm_zyinfo.Text2.Text = " "
frm_zyinfo.Text3.Text = " "
frm_zyinfo.Text4.Text = " "
frm_zyinfo.Text5.Text = " "
frm_zyinfo.Text6.Text = " "
frm_zyinfo.Text7.Text = " "
frm_zyinfo.Text8.Text = " "
frm_zyinfo.Text9.Text = " "
frm_zyinfo.Text10.Text = " "
frm_zyinfo.Text11.Text = " "
frm_zyinfo.Text12.Text = " "
frm_zyinfo.Text13.Text = " "
frm_zyinfo.Combo1.Text = ""
frm_zyinfo.Combo2.Text = ""


End Sub
Public Sub bsinfo_clear()
Frm_bsinfo.Text1.Text = " "
Frm_bsinfo.Text2.Text = " "
Frm_bsinfo.Text3.Text = " "
Frm_bsinfo.Text4.Text = " "
Frm_bsinfo.Text5.Text = " "
Frm_bsinfo.Text6.Text = " "
Frm_bsinfo.Text7.Text = " "
Frm_bsinfo.Text8.Text = " "
Frm_bsinfo.Text9.Text = " "
Frm_bsinfo.Text10.Text = " "
Frm_bsinfo.Text11.Text = " "
Frm_bsinfo.Combo1.Text = ""


End Sub


Public Sub wxinfo_clear()
Frm_wxinfo.Text1.Text = " "
Frm_wxinfo.Text2.Text = " "
Frm_wxinfo.Text3.Text = " "
Frm_wxinfo.Text4.Text = " "
Frm_wxinfo.Text5.Text = " "
Frm_wxinfo.Text6.Text = " "
Frm_wxinfo.Text7.Text = " "
Frm_wxinfo.Text8.Text = " "
Frm_wxinfo.Text9.Text = " "
Frm_wxinfo.Text10.Text = " "
Frm_wxinfo.Text11.Text = " "
Frm_wxinfo.Text12.Text = " "
Frm_wxinfo.Text13.Text = " "
Frm_wxinfo.Text14.Text = " "
End Sub

Public Sub user()
  Frm_main.GurhanCoolButton6.Visible = False
  Frm_main.Picture8.Visible = False
  Frm_main.GurhanCoolButton7.Top = 5826
  Frm_main.GurhanCoolButton7.Width = 1935

End Sub
Public Sub guest()
 Frm_main.GurhanCoolButton2.Visible = False
 Frm_main.GurhanCoolButton3.Visible = False
 Frm_main.GurhanCoolButton4.Visible = False
 Frm_main.GurhanCoolButton5.Visible = False
 Frm_main.GurhanCoolButton6.Visible = False
 Frm_main.Picture6.Visible = False
 Frm_main.Picture4.Visible = False
 Frm_main.Picture5.Visible = False
 Frm_main.Picture7.Visible = False
 Frm_main.Picture8.Visible = False
 Frm_main.GurhanCoolButton7.Top = 2502
 Frm_main.GurhanCoolButton7.Width = 1935

End Sub

Public Function cn() As ADODB.Connection    '定义函数
  Set cn = New ADODB.Connection     '返回一个数据库连接
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TIZIANO.mdb;Persist Security Info=False"
End Function