📄 frmdxysjl.frm
字号:
BorderColor = &H80000005&
X1 = 1560
X2 = 1560
Y1 = 120
Y2 = 600
End
Begin VB.Line Line17
BorderColor = &H80000003&
X1 = 1545
X2 = 1545
Y1 = 120
Y2 = 480
End
Begin VB.Label Label10
Alignment = 2 'Center
Caption = "检修开始日期"
Height = 255
Left = 240
TabIndex = 14
Top = 195
Width = 1095
End
End
Begin VB.Frame Frame3
Height = 495
Left = 3360
TabIndex = 8
Top = 720
Width = 2895
Begin VB.TextBox GCBH
Height = 300
Left = 1200
TabIndex = 9
Top = 150
Width = 1575
End
Begin VB.Line Line4
BorderColor = &H80000005&
X1 = 1080
X2 = 1080
Y1 = 120
Y2 = 600
End
Begin VB.Line Line3
BorderColor = &H80000003&
X1 = 1065
X2 = 1065
Y1 = 120
Y2 = 480
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "工程编号"
Height = 495
Left = 0
TabIndex = 10
Top = 195
Width = 1095
End
End
Begin VB.Frame Frame2
Height = 495
Left = 3360
TabIndex = 4
Top = 1920
Width = 3495
Begin MSComCtl2.DTPicker JSRQ
Height = 300
Left = 1680
TabIndex = 5
Top = 150
Width = 1695
_ExtentX = 2990
_ExtentY = 529
_Version = 393216
Format = 277807105
CurrentDate = 36179
End
Begin MSComCtl2.DTPicker DTPicker4
Height = 300
Left = 1080
TabIndex = 6
Top = 1520
Width = 1335
_ExtentX = 2355
_ExtentY = 529
_Version = 393216
Format = 277807107
CurrentDate = 36178
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "检修结束日期"
Height = 255
Left = 240
TabIndex = 7
Top = 195
Width = 1095
End
Begin VB.Line Line1
BorderColor = &H80000003&
X1 = 1545
X2 = 1545
Y1 = 120
Y2 = 480
End
Begin VB.Line Line2
BorderColor = &H80000005&
X1 = 1560
X2 = 1560
Y1 = 120
Y2 = 600
End
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 240
Top = 5400
End
Begin VB.Label Label6
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 2
Top = 5520
Width = 4215
End
Begin VB.Label Lable
Alignment = 2 'Center
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 = 375
Left = 120
TabIndex = 1
Top = 240
Width = 8655
End
End
End
Attribute VB_Name = "FrmDXYSJL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim PBH As String
Dim flag As Boolean
Private Sub Cancel_Click()
Unload Me
End Sub
Private Sub Check1_Click()
List1.Visible = False
Text1.Visible = False
List1.Clear
Text1.Text = ""
If Check1.Value = 1 Then
List1.Visible = True
Text1.Visible = True
SQL = "select distinct 工程编号 from 大修原始记录表"
Set rs = ConnWZ.Execute(SQL)
Do While Not rs.EOF
List1.AddItem rs("工程编号")
rs.MoveNext
Loop
End If
End Sub
Private Sub List1_MouseDown(Button As Integer, shift As Integer, X As Single, Y As Single)
i = List1.ListIndex
Text1 = List1.List(i)
End Sub
Private Sub Text1_Change()
Str1 = Text1.Text
Cont = Len(Str1)
For i = 0 To List1.ListCount - 1
If Left$(List1.List(i), Cont) = Str1 Then
List1.ListIndex = i
GoTo 100
End If
Next
100:
End Sub
Private Sub GCBH_Change()
CMDSave.Enabled = True
End Sub
Private Sub cmdCancel_Click()
SBGCGL.Enabled = True
Unload Me
End Sub
Private Sub CMDDel_Click()
Result = MsgBox("您确实要删除吗？", vbYesNo)
If Result = 6 Then
SQL = "delete 大修原始记录表 where 工程编号='" & PBH & "'"
Set rs = ConnWZ.Execute(SQL)
PBH = 0
Else
Exit Sub
End If
End Sub
Private Sub cmdEdit_Click()
CMDSave.Enabled = True
flag = True
GCBH.Locked = False
FZR.Locked = False
BZ.Locked = False
End Sub
Private Sub CMDFresh_Click()
PBH = 0
GCBH = ""
KSRQ.Value = Date
KSRQ.Value = Date
FZR = ""
BZ = ""
GCBH.Locked = False
FZR.Locked = False
BZ.Locked = False
CMDSave.Enabled = False
CMDDel.Enabled = False
cmdEdit.Enabled = False
flag = False
End Sub
Private Sub CMDSave_Click()
If flag = False Then
Result = MsgBox("您确实要保存吗？", vbYesNo)
If Result = 6 Then
SQL = "insert 大修原始记录表(工程编号,检修开始日期,检修结束日期,检修负责人,备注) values ('" & GCBH & "','" & KSRQ & "','" & JSRQ & "','" & FZR & "','" & BZ & "')"
Set rs = ConnWZ.Execute(SQL)
End If
End If
If flag = True Then
Result = MsgBox("您确实要保存吗？", vbYesNo)
If Result = 6 Then
If SL = "" Then SL = 0
SQL = "update 大修原始记录表 set 检修开始日期='" & KSRQ & "',检修结束日期='" & JSRQ & "',检修负责人='" & FZR & "',备注='" & BZ & "'"
Set Rsrkpd = ConnWZ.Execute(SQL)
CMDSave.Enabled = False
End If
End If
End Sub
Private Sub CMDSearch_Click()
If Text1.Text = "" Then
MsgBox "编号不能为空！"
Exit Sub
End If
If Check1.Value = 1 Then
Adodc1.RecordSource = "select * from 大修原始记录表 where 工程编号='" & Text1.Text & "'"
Adodc1.Refresh
End If
End Sub
Private Sub DataGrid1_Click()
On Error Resume Next
SQL = "select * from 大修原始记录表"
Set rs = ConnWZ.Execute(SQL)
If rs.EOF Then Exit Sub
PBH = Adodc1.Recordset.Fields("工程编号")
If Err = 13 Then
MsgBox "您进行了误操作，请重新进入该系统！"
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
For Each TextBox In Me.Controls
TextBox.Font.Name = "宋体"
TextBox.Font.Size = 9
Next
PBH = 0
flag = False
'SJ.Value = Time$
'RQ.Value = Date
CMDSave.Enabled = False
cmdEdit.Enabled = False
CMDDel.Enabled = False
Label6.Caption = Now
'Combo1.Visible = False
'Frame8.Visible = False
End Sub
Private Sub SL_Change()
CMDSave.Enabled = True
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
flag = False
If PreviousTab = 0 Then
Check1.Value = 0
CMDSave.Enabled = False
cmdEdit.Enabled = False
CMDDel.Enabled = False
Adodc1.RecordSource = "select * from 大修原始记录表 "
Adodc1.Refresh
End If
If PreviousTab = 1 Then
Text1.Visible = False
List1.Visible = False
' Frame8.Visible = False
' Combo1.Visible = False
If PBH <> "0" Then
SQL = "select * from 大修原始记录表 where 工程编号='" & PBH & "'"
Set rs = ConnWZ.Execute(SQL)
GCBH = rs("工程编号")
KSRQ = rs("检修开始日期")
JSRQ = rs("检修结束日期")
FZR = rs("检修负责人")
BZ = rs("备注")
BZ.Locked = True
FZR.Locked = True
GCBH.Locked = True
CMDSave.Enabled = False
cmdEdit.Enabled = True
CMDDel.Enabled = True
End If
End If
End Sub
Private Sub Timer1_Timer()
Label6.Caption = Now
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -