📄 frm_fxzl.frm
字号:
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":004D
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":04A1
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":08F5
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":0D49
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":119D
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":15F1
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":1ECD
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":27A9
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_FXZL.frx":3085
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 795
Left = 0
TabIndex = 0
Top = 0
Width = 10605
_ExtentX = 18706
_ExtentY = 1402
ButtonWidth = 1138
ButtonHeight = 1349
Appearance = 1
Style = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " 增加 "
Key = "add1"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " 编辑"
Key = "edit"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "del"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "quxiao"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " 取消"
Key = "save"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Key = "learch"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取图片"
Key = "qutu"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "print"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
ImageIndex = 9
EndProperty
EndProperty
BorderStyle = 1
End
End
Attribute VB_Name = "frm_FXZL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim mst As ADODB.Stream
Dim mystr As String
Dim temp As Integer
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Private Sub Command2_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command1_Click(Index As Integer)
frm_FJXS.Show
frm_FJXS.Label1 = 1
frm_FJXS.Left = 3345
frm_FJXS.Top = 2300
End Sub
Private Sub DataGrid1_Click()
If temp = 1 Then
Adodc1.RecordSource = "select * from Table_FXXX where ID='" + Text9.Text + "'"
' Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Text1(0).Text = Adodc1.Recordset.Fields("房型名称")
Text2(0).Text = Adodc1.Recordset.Fields("阳台产权面积")
Text3(0).Text = Adodc1.Recordset.Fields("套内建筑面积")
Text4(0).Text = Adodc1.Recordset.Fields("公用分摊面积")
Text5(0).Text = Adodc1.Recordset.Fields("房间形式")
Text6(0).Text = Adodc1.Recordset.Fields("房屋高度")
Text7(0).Text = Adodc1.Recordset.Fields("房屋销售面积")
Text8(0).Text = Adodc1.Recordset.Fields("备注")
Else
End If
' Adodc1.RecordSource = "select * from Table_FXXX where 房型名称='" + Text1(0).Text + "'"
' Adodc1.Refresh
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 116 Then
Frame1.Visible = True
Frame2.Visible = False
Text1(0).Locked = False
Text2(0).Locked = False
Text3(0).Locked = False
Text4(0).Locked = False
Text5(0).Locked = False
Text6(0).Locked = False
Text7(0).Locked = False
Text8(0).Locked = False
Toolbar1.Buttons(2).Enabled = False
Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(4).Enabled = True
Toolbar1.Buttons(5).Enabled = True
Toolbar1.Buttons(6).Enabled = False
Toolbar1.Buttons(7).Enabled = False
Toolbar1.Buttons(8).Enabled = False
Toolbar1.Buttons(9).Enabled = True
Text1(0).SetFocus
Else
End If
End Sub
Private Sub Form_Load()
Frame1.Visible = False
Frame2.Visible = True
If SSTab1.Tab = 0 Then
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
Toolbar1.Buttons(3).Enabled = True
Toolbar1.Buttons(8).Enabled = True
Toolbar1.Buttons(4).Enabled = False
Toolbar1.Buttons(5).Enabled = False
Toolbar1.Buttons(6).Enabled = False
Toolbar1.Buttons(7).Enabled = False
ElseIf SSTab1.Tab = 1 Then
Toolbar1.Buttons(1).Enabled = False
Toolbar1.Buttons(7).Enabled = True
Toolbar1.Buttons(2).Enabled = False
Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(8).Enabled = False
Toolbar1.Buttons(4).Enabled = False
Toolbar1.Buttons(5).Enabled = False
Else
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
MDI_main.Toolbar1.Visible = True
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 0 Then
Toolbar1.Buttons(7).Enabled = False
Frame1.Visible = False
Frame2.Visible = True
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
Toolbar1.Buttons(3).Enabled = True
Toolbar1.Buttons(8).Enabled = True
Toolbar1.Buttons(4).Enabled = False
Toolbar1.Buttons(5).Enabled = False
Toolbar1.Buttons(7).Enabled = False
ElseIf SSTab1.Tab = 1 Then
Toolbar1.Buttons(1).Enabled = False
Toolbar1.Buttons(7).Enabled = True
Toolbar1.Buttons(2).Enabled = False
Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(8).Enabled = False
Toolbar1.Buttons(4).Enabled = False
Toolbar1.Buttons(5).Enabled = False
End If
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Toolbar1.Buttons(1).Enabled = False Then
Adodc1.RecordSource = "select * from Table_FXXX where 房型名称='" + Text1(0).Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
temp = 1
'Text1(0).Text = Adodc1.Recordset.Fields("房型名称")
Text2(0).Text = Adodc1.Recordset.Fields("阳台产权面积")
Text3(0).Text = Adodc1.Recordset.Fields("套内建筑面积")
Text4(0).Text = Adodc1.Recordset.Fields("公用分摊面积")
Text5(0).Text = Adodc1.Recordset.Fields("房间形式")
Text6(0).Text = Adodc1.Recordset.Fields("房屋高度")
Text7(0).Text = Adodc1.Recordset.Fields("房屋销售面积")
Text8(0).Text = Adodc1.Recordset.Fields("备注")
Else
MsgBox "该房型信息不存在", , "信息提示"
End If
ElseIf Toolbar1.Buttons(1).Enabled = True And Frame1.Visible = True Then
Text2(0).SetFocus
Else
End If
Else
End If
End Sub
Private Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 116 Then
Frame1.Visible = True
Frame2.Visible = False
Text1(0).Locked = False
Text2(0).Locked = False
Text3(0).Locked = False
Text4(0).Locked = False
Text5(0).Locked = False
Text6(0).Locked = False
Text7(0).Locked = False
Text8(0).Locked = False
Toolbar1.Buttons(2).Enabled = False
Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(4).Enabled = True
Toolbar1.Buttons(5).Enabled = True
Toolbar1.Buttons(6).Enabled = False
Toolbar1.Buttons(7).Enabled = False
Toolbar1.Buttons(8).Enabled = False
Toolbar1.Buttons(9).Enabled = True
Text1(0).SetFocus
Else
End If
End Sub
Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Dim StrInput, temp As String
Dim i, Length As Integer
i = 1
StrInput = Text2(0).Text
Length = Len(StrInput)
If Text2(0).Text = "" Then
MsgBox "输入不能为空", , "提示"
Text2(0).SetFocus
Else
Do While (i <= Length)
temp = Mid$(StrInput, i, 1)
If Asc(temp) < 48 Or Asc(temp) > 57 Then
If i = 1 Then
MsgBox "输入数据非法!!", , "提示"
Else
End If
Text2(0).Text = ""
Text2(0).SetFocus
Else
End If
i = i + 1
Loop
If Text2(0).Text = "" Then
Text2(0).SetFocus
Else
Text3(0).SetFocus
End If
End If
Else
End If
End Sub
Private Sub Text3_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Dim StrInput, temp As String
Dim i, Length As Integer
i = 1
StrInput = Text3(0).Text
Length = Len(StrInput)
If Text3(0).Text = "" Then
MsgBox "输入不能为空", , "提示"
Text3(0).SetFocus
Else
Do While (i <= Length)
temp = Mid$(StrInput, i, 1)
If Asc(temp) < 48 Or Asc(temp) > 57 Then
If i = 1 Then
MsgBox "输入数据非法!!", , "提示"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -