frmhousetype.frm

物业管理信息系统my sql +visual basic

         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   60
      TabIndex        =   23
      Top             =   1935
      Width           =   1575
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Caption         =   "最近修改日期："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3990
      TabIndex        =   22
      Top             =   1950
      Width           =   1725
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      Caption         =   "备注："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   105
      TabIndex        =   18
      Top             =   3195
      Width           =   1095
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Caption         =   "建筑面积："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   165
      TabIndex        =   17
      Top             =   1305
      Width           =   1215
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Caption         =   "居住面积："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4365
      TabIndex        =   16
      Top             =   1365
      Width           =   1410
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "房型："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4620
      TabIndex        =   15
      Top             =   645
      Width           =   1095
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "房型编号："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   14
      Top             =   645
      Width           =   1305
   End
End
Attribute VB_Name = "frmHouseType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mrc As ADODB.Recordset
Dim myBookmark As Variant
Dim mcclean As Boolean


Private Sub cancelCommand_Click()
 Unload Me
End Sub



Private Sub deleteCommand_Click()
  myBookmark = mrc.Bookmark
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    If str2$ = vbOK Then
            mrc.MoveNext
            If mrc.EOF Then
                mrc.MoveFirst
                myBookmark = mrc.Bookmark
                mrc.MoveLast
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            Else
                myBookmark = mrc.Bookmark
                mrc.MovePrevious
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            End If
    Else
        mrc.Bookmark = myBookmark
        Call viewData
    End If
End Sub

Private Sub editCommand_Click()
ModifyFlag = True
 mcclean = False
    Frame2.Enabled = False
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    txtHouseType.Enabled = True
    txtConstArea.Enabled = True
    TxtUseArea.Enabled = True
    txtComment.Enabled = True
    myBookmark = mrc.Bookmark
End Sub

Private Sub firstCommand_Click()
   mrc.MoveFirst
    Call viewData
End Sub

Private Sub Form_Load()
ModifyFlag = True
    UserName = "dfa"
     CONN = "Provider=SQLOLEDB;Data Source=INET;User Id=sa;PWd=322167;Initial Catalog=House"
    Dim txtSQL As String
    Dim MsgText As String
    
    txtSQL = "select * from House"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    
    
    mrc.MoveFirst
    Call viewData
    myBookmark = mrc.Bookmark
    mcclean = True
    
    
    
    
End Sub

Public Sub viewData()
    txtTypeNO.Text = mrc.Fields(0)
    txtHouseType.Text = mrc.Fields(1)
    txtConstArea.Text = mrc.Fields(2)
    TxtUseArea.Text = mrc.Fields(3)
    txtComment.Text = mrc.Fields(4)
    txtModifyName.Text = mrc.Fields(5)
    txtModifyDate.Text = mrc.Fields(6)
   
End Sub

Private Sub lastCommand_Click()
 mrc.MoveLast
    Call viewData
End Sub

Private Sub nextCommand_Click()
 mrc.MoveNext
    If mrc.EOF Then
        mrc.MoveFirst
    End If
    Call viewData
End Sub

Private Sub previousCommand_Click()
 mrc.MovePrevious
    If mrc.BOF Then
        mrc.MoveLast
    End If
    Call viewData
End Sub

Private Sub Text3_Change()

End Sub

Private Sub updateCommand_Click()
 Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
    
    If mcclean Then
        MsgBox "请先修改房型资料信息", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    
    If Not Testtxt(txthouseno.Text) Then
        MsgBox "请输入房型编号！", vbOKOnly + vbExclamation, "警告"
        txthouseno.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtHouseType.Text) Then
        MsgBox "请输入房型！", vbOKOnly + vbExclamation, "警告"
        txtHouseType.SetFocus
        Exit Sub
    End If
    
    If Not IsNumeric(txtConstArea.Text) Then
        MsgBox "请输入建筑面积", vbOKOnly + vbExclamation, "警告"
        txtConstArea.SetFocus
        Exit Sub
    End If
    
    If Not IsNumeric(TxtUseArea.Text) Then
        MsgBox "请输入使用面积！", vbOKOnly + vbExclamation, "警告"
        TxtUseArea.SetFocus
        Exit Sub
    End If
    
    
  
       
                                           
                mrc.AddNew
                mrc.Fields(0) = Trim(txtTypeNO.Text)
                mrc.Fields(1) = Trim(txtHouseType.Text)
                mrc.Fields(2) = Trim(txtConstArea.Text)
                mrc.Fields(3) = Trim(TxtUseArea.Text)
                mrc.Fields(4) = Trim(txtComment.Text)
                mrc.Fields(5) = UserName
                mrc.Fields(6) = CStr(Date)
               
                 
                mrc.Update
                MsgBox "房型资料信息更新成功！", vbOKOnly + vbExclamation, "更新房型资料信息"
                mrc.Bookmark = myBookmark
                Call viewData
                Frame2.Enabled = True
                firstCommand.Enabled = True
                previousCommand.Enabled = True
                nextCommand.Enabled = True
                lastCommand.Enabled = True
        
                txthouseno.Enabled = False
                txtHouseType.Enabled = False
                txtConstArea.Enabled = False
                TxtUseArea.Enabled = False
               
                
                mcclean = True
                            
                
            End If
     
    
End Sub