frm_dlinfomd.frm

一个详细的VB做的小区物业管理系统

         ScaleHeight     =   2550
         ScaleWidth      =   1815
         TabIndex        =   2
         Top             =   285
         Width           =   1875
      End
      Begin VB.TextBox Text11 
         DataField       =   "备注"
         DataSource      =   "Adodc1"
         Enabled         =   0   'False
         Height          =   660
         Left            =   1140
         TabIndex        =   1
         Top             =   2520
         Width           =   4440
      End
      Begin MSComCtl2.DTPicker DTPicker2 
         Height          =   300
         Left            =   1110
         TabIndex        =   3
         Top             =   2100
         Width           =   1395
         _ExtentX        =   2461
         _ExtentY        =   529
         _Version        =   393216
         Format          =   50528257
         CurrentDate     =   38196
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   300
         Left            =   1125
         TabIndex        =   6
         Top             =   1725
         Width           =   1365
         _ExtentX        =   2408
         _ExtentY        =   529
         _Version        =   393216
         Format          =   50528257
         CurrentDate     =   38196
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "大楼编号："
         Enabled         =   0   'False
         Height          =   180
         Left            =   180
         TabIndex        =   31
         Top             =   285
         Width           =   900
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "大楼说明："
         Enabled         =   0   'False
         Height          =   150
         Left            =   165
         TabIndex        =   30
         Top             =   645
         Width           =   900
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "建筑面积："
         Enabled         =   0   'False
         Height          =   180
         Left            =   150
         TabIndex        =   29
         Top             =   1050
         Width           =   900
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "房屋数量："
         Enabled         =   0   'False
         Height          =   180
         Left            =   135
         TabIndex        =   28
         Top             =   1410
         Width           =   900
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "竣工日期："
         Enabled         =   0   'False
         Height          =   180
         Left            =   135
         TabIndex        =   27
         Top             =   1800
         Width           =   900
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "交工日期："
         Enabled         =   0   'False
         Height          =   180
         Left            =   135
         TabIndex        =   26
         Top             =   2160
         Width           =   900
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "备    注："
         Enabled         =   0   'False
         Height          =   180
         Left            =   120
         TabIndex        =   25
         Top             =   2460
         Width           =   900
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "大楼名称："
         Enabled         =   0   'False
         Height          =   180
         Left            =   1875
         TabIndex        =   24
         Top             =   300
         Width           =   900
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         Caption         =   "负责人："
         Enabled         =   0   'False
         Height          =   180
         Left            =   3915
         TabIndex        =   23
         Top             =   300
         Width           =   720
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         Caption         =   "大楼结构："
         Enabled         =   0   'False
         Height          =   180
         Left            =   2475
         TabIndex        =   22
         Top             =   675
         Width           =   900
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         Caption         =   "朝   向："
         Enabled         =   0   'False
         Height          =   180
         Left            =   2490
         TabIndex        =   21
         Top             =   1035
         Width           =   810
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         Caption         =   "单元数："
         Enabled         =   0   'False
         Height          =   180
         Left            =   2490
         TabIndex        =   20
         Top             =   1410
         Width           =   720
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         Caption         =   "总户数："
         Enabled         =   0   'False
         Height          =   180
         Left            =   4020
         TabIndex        =   19
         Top             =   1425
         Width           =   720
      End
      Begin VB.Label Label14 
         Caption         =   "大楼位置："
         Enabled         =   0   'False
         Height          =   270
         Left            =   2730
         TabIndex        =   18
         Top             =   1800
         Width           =   915
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         Caption         =   "所属区域："
         Enabled         =   0   'False
         Height          =   180
         Left            =   2670
         TabIndex        =   17
         Top             =   2160
         Width           =   900
      End
   End
   Begin VB.Label Label16 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "大楼信息修改窗口"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   2550
      TabIndex        =   32
      Top             =   105
      Width           =   2415
   End
End
Attribute VB_Name = "frm_dlinfomd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim i As Integer
Private Sub Command1_Click()

Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
DTPicker1.Enabled = True
DTPicker2.Enabled = True

End Sub

Private Sub Command2_Click()
Adodc1.Recordset.UpdateBatch
MsgBox "修改成功"
Adodc1.Refresh
End Sub
Private Sub Command3_Click()
Unload Me
Frm_dlinfo.Show
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command5_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.MoveLast
End Sub