📄 frm_wxinfomd.frm
字号:
Height = 300
Left = 3015
TabIndex = 11
Top = 1860
Width = 1335
_ExtentX = 2355
_ExtentY = 529
_Version = 393216
Format = 67633153
CurrentDate = 39406
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "状态："
Height = 180
Left = 3705
TabIndex = 25
Top = 2805
Width = 540
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "至"
Height = 180
Left = 2550
TabIndex = 24
Top = 1905
Width = 180
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "维修用料："
Height = 180
Left = 2220
TabIndex = 23
Top = 2340
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "维修方式："
Height = 165
Left = 3840
TabIndex = 22
Top = 1050
Width = 900
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "维修人员："
Height = 300
Left = 3840
TabIndex = 21
Top = 1470
Width = 900
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "维修项目："
Height = 180
Left = 120
TabIndex = 20
Top = 1005
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "投诉编号："
Height = 180
Left = 135
TabIndex = 19
Top = 4305
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "维修编号："
Height = 180
Left = 135
TabIndex = 18
Top = 600
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "居住位置："
Height = 180
Left = 2550
TabIndex = 17
Top = 555
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "接待人："
Height = 165
Left = 135
TabIndex = 16
Top = 1470
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "维修金额："
Height = 180
Left = 135
TabIndex = 15
Top = 2400
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "时间从："
Height = 180
Left = 135
TabIndex = 14
Top = 1980
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "业主意见："
Height = 180
Left = 135
TabIndex = 13
Top = 2865
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "处理意见："
Height = 180
Left = 135
TabIndex = 12
Top = 3345
Width = 900
End
End
End
Attribute VB_Name = "Frm_wxinfomd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CmdSave_Click() '保存
Adodc1.Recordset.UpdateBatch
MsgBox "修改成功!", , "系统提示"
Adodc1.Refresh
'设置控件状态
CmdSave.Enabled = False
Command1.Enabled = True
Text1.Enabled = False '维修编号
Text2.Enabled = False '居住位置
Text3.Enabled = False '接待人
Text4.Enabled = False '维修人员
Text5.Enabled = False '投诉编号
Text6.Enabled = False '维修金额
Text7.Enabled = False '维修用料
Text8.Enabled = False '业主意见
Text9.Enabled = False '维修方式
Text10.Enabled = False '处理意见
Text11.Enabled = False '维修项目
Text12.Enabled = False '状态
Combo2.Enabled = False '维修方式
Combo2.Visible = False
Combo3.Enabled = False '状态
Combo3.Visible = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
End Sub
Private Sub Command1_Click() '更新
'设置控件状态
Command1.Enabled = False
CmdSave.Enabled = True
Text2.Enabled = True '居住位置
Text3.Enabled = True '接待人
Text4.Enabled = True '维修人员
Text5.Enabled = False '投诉编号
Text6.Enabled = True '维修金额
Text7.Enabled = True '维修用料
Text8.Enabled = True '业主意见
Text9.Enabled = False '维修方式
Text9.Visible = False
Text10.Enabled = True '处理意见
Text11.Enabled = True '维修项目
Text12.Enabled = False '状态
Text12.Visible = False
Combo2.Enabled = True '维修方式
Combo2.Visible = True
Combo3.Enabled = True '状态
Combo3.Visible = True
DTPicker1.Enabled = False
DTPicker2.Enabled = False
'DateTimePicker控件使您可以提供格式化的日期字段，使得进行日期选择很容易。另外，用户还可以从类似于MonthView控件的下拉式日历界面中选择日期。
Text2.SetFocus
End Sub
Private Sub Command2_Click() '退出
Unload Me
Frm_wxinfo.Show
End Sub
Private Sub Command3_Click() '第一个
Adodc1.RecordSource = "select * from tab_wxinfo"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
DTPicker1.Value = Adodc1.Recordset.Fields("开工时间")
DTPicker2.Value = Adodc1.Recordset.Fields("完工时间")
Else
MsgBox "没有维修记录!", , "系统提示"
End If
End Sub
Private Sub Command4_Click() '上一个
Adodc1.RecordSource = "select * from tab_wxinfo"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
DTPicker1.Value = Adodc1.Recordset.Fields("开工时间")
DTPicker2.Value = Adodc1.Recordset.Fields("完工时间")
End If
Else
MsgBox "没有维修记录!", , "系统提示"
End If
End Sub
Private Sub Command5_Click() '下一个
Adodc1.RecordSource = "select * from tab_wxinfo"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
DTPicker1.Value = Adodc1.Recordset.Fields("开工时间")
DTPicker2.Value = Adodc1.Recordset.Fields("完工时间")
End If
Else
MsgBox "没有维修记录!", , "系统提示"
End If
End Sub
Private Sub Command6_Click() '最后一个
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
DTPicker1.Value = Adodc1.Recordset.Fields("开工时间")
DTPicker2.Value = Adodc1.Recordset.Fields("完工时间")
Else
MsgBox "没有维修记录!", , "系统提示"
End If
End Sub
Private Sub Form_Load()
DTPicker1.Value = Date
DTPicker2.Value = Date
'自动识别路径
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tab_wxinfo"
Adodc1.Refresh
Text1.Enabled = False '维修编号
Text2.Enabled = False '居住位置
Text3.Enabled = False '接待人
Text4.Enabled = False '维修人员
Text5.Enabled = False '投诉编号
Text6.Enabled = False '维修金额
Text7.Enabled = False '维修用料
Text8.Enabled = False '业主意见
Text9.Enabled = False '维修方式
Text10.Enabled = False '处理意见
Text11.Enabled = False '维修项目
Text12.Enabled = False '状态
Combo2.Enabled = False '维修方式
Combo2.Visible = False
Combo3.Enabled = False '状态
Combo3.Visible = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
Command1.Enabled = True
CmdSave.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -