📄 frm_fwinfo.frm

📁 物业管理系统在一本书上的数据光盘
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
            Left            =   300
            TabIndex        =   17
            Top             =   2670
            Width           =   900
         End
         Begin VB.Label Label5 
            AutoSize        =   -1  'True
            Caption         =   "朝   向："
            Height          =   180
            Left            =   315
            TabIndex        =   16
            Top             =   2250
            Width           =   810
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            Caption         =   "户主姓名："
            Height          =   180
            Left            =   270
            TabIndex        =   15
            Top             =   1815
            Width           =   900
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            Caption         =   "大楼名称："
            Height          =   165
            Left            =   255
            TabIndex        =   14
            Top             =   1380
            Width           =   900
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            Caption         =   "小区名称："
            Height          =   180
            Left            =   225
            TabIndex        =   13
            Top             =   960
            Width           =   900
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "房间编号："
            Height          =   180
            Left            =   240
            TabIndex        =   12
            Top             =   525
            Width           =   900
         End
      End
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   330
      Left            =   -105
      Top             =   540
      Visible         =   0   'False
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\工程与实践\物业管理系统\program\db_wygl.mdb;Persist Security Info=False"
      OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\工程与实践\物业管理系统\program\db_wygl.mdb;Persist Security Info=False"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select * from tab_fwinfo"
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSAdodcLib.Adodc Adodc2 
      Height          =   330
      Left            =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\工程与实践\物业管理系统\program\db_wygl.mdb;Persist Security Info=False"
      OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\工程与实践\物业管理系统\program\db_wygl.mdb;Persist Security Info=False"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select * from tab_fwinfo"
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
End
Attribute VB_Name = "frm_fwinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim myval As Integer
Dim KeyCode
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text13.Text = ""
End Sub
Private Sub CmdSave_Click()
If Combo1.Text = "" Or Text6.Text = "" Or Text7 = "" Or Text8 = "" Or Text9 = "" Or Text5 = "" Then
MsgBox "输入不允许为空", 28, "提示"
Exit Sub
End If
If Not IsNumeric(Text6.Text) Then
MsgBox "输入的数据类型不正却请重新输入", 28, "提示"
Exit Sub
End If
If Not IsNumeric(Text7.Text) Then
MsgBox "输入的数据类型不正却请重新输入", 28, "提示"
Exit Sub
End If
If Not IsNumeric(Text8.Text) Then
MsgBox "输入的数据类型不正却请重新输入", 28, "提示"
Exit Sub
End If
If Not IsNumeric(Text9.Text) Then
MsgBox "输入的数据类型不正却请重新输入", 28, "提示"
Exit Sub
End If
Set adors = cn.Execute("insert into tab_fwinfo values('" & Text1 & "','" & Text12 & "','" & Text13 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text15 & "','" & Text14 & "','" & Text16 & "','" & Text5 & "','" & Text18 & "','" & Text17 & "','" & Combo1 & "','" & Text6 & "','" & Text7 & "','" & Text8 & "','" & Text9 & "','" & Text10 & "') ")
MsgBox "数据保存成功", 78, "管理信息系统"
frm_fwxx.Adodc1.Recordset.Delete
Unload frm_fwxx
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Frm_main.Show
Unload Me
Me.Hide
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
frm_fwxx.Show

End Sub
Private Sub Command6_Click()
End Sub

Private Sub CmdDelete_Click()
Adodc1.RecordSource = "select * from tab_fwinfo"
If Adodc1.Recordset.RecordCount > 0 Then
myval = MsgBox("确定删除吗？", vbYesNo)
If myval = vbYes Then
Adodc1.Recordset.Delete
Else
End If
Else
MsgBox "数据库中没有记录要删除"
End If
End Sub
Private Sub Command9_Click()
End
End Sub
Private Sub SSTab1_DblClick()
Adodc1.Refresh
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Adodc1.RecordSource = "select * from tab_fwinfo where 房间编号 = '" + Text1.Text + "'"
Unload Me
frm_fwinfomd.Show
Adodc1.Refresh
End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text7.SetFocus
End If
End Sub
Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text8.SetFocus
End If
End Sub
Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text9.SetFocus
End If
End Sub
Private Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text10.SetFocus
End If
End Sub
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -