?? frm_計量器具維修.frm
字號:
Grid1.Visible = False
Grid.Visible = False
Add = 1
CmdZj.Enabled = False
cmdxg.Enabled = False
CmdCz.Enabled = False
cmdll.Enabled = False
cmdsc.Enabled = False
End Sub
Private Sub Form_Load()
Grid.Visible = False
Me.Left = 30
Me.Top = 200
Add = 0
badd = False
' Cxx.Visible = False
' Tsbs.Visible = False
Dim rst As New ADODB.Recordset
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from dwxx", Conn
If rst.EOF = False Then
badd = True
DTPqyrq.Value = Date
DTPbfrq.Value = Date
Dwmc = Trim(rst!Dwmc)
' Jddw = Trim(rst!jydw)
' Tjddw = Jddw
Cdj.Clear
Cdj.AddItem "強制檢定"
Cdj.AddItem "一般管理"
Cdj.AddItem "特種設備"
CZt.Clear
CZt.AddItem "啟用"
CZt.AddItem "禁用"
Czqdw.Clear
Czqdw.AddItem "月"
Czqdw.AddItem "年"
Czqdw.AddItem "天"
Dim rstt As New ADODB.Recordset
If rstt.State = 1 Then rstt.Close
rstt.CursorLocation = adUseClient
rstt.Open "select qjlb from qjzl group by qjlb", Conn
Clb.Clear
Do While rstt.EOF = False
Clb.AddItem Trim(rstt!qjlb)
rstt.MoveNext
Loop
Czb.Clear
If rstt.State = 1 Then rstt.Close
rstt.CursorLocation = adUseClient
rstt.Open "select bmmc from bmxx group by bmmc", Conn
Csybm.Clear
Do While rstt.EOF = False
Csybm.AddItem Trim(rstt!bmmc)
rstt.MoveNext
Loop
Sd
Else
MsgBox "系統尚未設置單位信息，請設置單位信息后在執行此操作！", vbCritical, "器具管理"
Exit Sub
End If
End Sub
Private Sub Grid_DblClick()
On Error GoTo ERR
If rsa.State = 1 Then
If rsa.RecordCount > 0 Then
If Trim(rsa!設備編號) <> "" Then
Tbh = Trim(rsa!設備編號)
Dim rst As New ADODB.Recordset
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from jlqjxx where bh='" & Tbh & "'", Conn
If rst.EOF = False Then
RsToText rst
DTPwxrq.Value = rsa!維修日期
Twxdw = IIf(IsNull(rsa!維修單位), "", rsa!維修單位)
Twxr = IIf(IsNull(rsa!維修人), "", rsa!維修人)
Twxyy = IIf(IsNull(rsa!維修原因), "", rsa!維修原因)
Twxjg = IIf(IsNull(rsa!維修結果), "", rsa!維修結果)
Bh = rst!Bh
WXdw = IIf(IsNull(rsa!維修單位), "", rsa!維修單位)
WXsj = rsa!維修日期
Jl = True
Grid.Visible = False
Else
Jl = False
End If
Grid.Visible = False
End If
End If
End If
Exit Sub
ERR:
Exit Sub
End Sub
Private Sub Grid_HeadClick(ByVal ColIndex As Integer)
Dim str As String
Dim st As String
str = Grid.Columns.Item(ColIndex).Caption
st = ""
Select Case str
Case "設備編號"
st = "bh"
Case "設備名稱"
st = "mc"
Case "維修日期"
st = "wxrq"
Case "維修單位"
st = "wxdw"
Case "維修人"
st = "wxr"
End Select
If st = "" Then Exit Sub
If rsa.State = 1 Then rsa.Close
rsa.CursorLocation = adUseClient
rsa.Open "select bh as 設備編號 , mc as 設備名稱 ,wxrq as 維修日期,wxdw as 維修單位,wxr as 維修人, wxyy as 維修原因, wxjg as 維修結果 from jlqjwx where bh='" & Tbh & "' order by " & st, Conn, adOpenStatic, adLockReadOnly
Set Grid.DataSource = rsa
End Sub
Private Sub Grid_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo ERR
If KeyCode <> 13 Then Exit Sub
If rsa.State = 1 Then
If rsa.RecordCount > 0 Then
If Trim(rsa!設備編號) <> "" Then
Tbh = Trim(rsa!設備編號)
Dim rst As New ADODB.Recordset
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from jlqjxx where bh='" & Tbh & "'", Conn
If rst.EOF = False Then
RsToText rst
DTPwxrq.Value = rsa!維修日期
Twxdw = IIf(IsNull(rsa!維修單位), "", rsa!維修單位)
Twxr = IIf(IsNull(rsa!維修人), "", rsa!維修人)
Twxyy = IIf(IsNull(rsa!維修原因), "", rsa!維修原因)
Twxjg = IIf(IsNull(rsa!維修結果), "", rsa!維修結果)
Bh = rst!Bh
WXdw = IIf(IsNull(rsa!維修單位), "", rsa!維修單位)
WXsj = rsa!維修日期
Jl = True
Grid.Visible = False
Else
Jl = False
End If
Grid.Visible = False
End If
End If
End If
Exit Sub
ERR:
Exit Sub
End Sub
Private Sub Grid1_DblClick()
On Error GoTo ERR
If rs.State = 1 Then
If rs.RecordCount > 0 Then
If Trim(rs!設備編號) <> "" Then
Tbh = Trim(rs!設備編號)
Dim rst As New ADODB.Recordset
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from jlqjxx where bh='" & Tbh & "'", Conn
If rst.EOF = False Then
RsToText rst
DTPwxrq.Value = rs!維修日期
Twxdw = IIf(IsNull(rs!維修單位), "", rs!維修單位)
Twxr = IIf(IsNull(rs!維修人), "", rs!維修人)
Twxyy = IIf(IsNull(rs!維修原因), "", rs!維修原因)
Twxjg = IIf(IsNull(rs!維修結果), "", rs!維修結果)
Bh = rst!Bh
Jl = True
WXdw = IIf(IsNull(rs!維修單位), "", rs!維修單位)
WXsj = rs!維修日期
Grid1.Visible = False
Else
Jl = False
End If
Grid1.Visible = False
End If
End If
End If
Exit Sub
ERR:
Exit Sub
End Sub
Private Sub Grid1_HeadClick(ByVal ColIndex As Integer)
Dim str As String
Dim st As String
str = Grid1.Columns.Item(ColIndex).Caption
st = ""
Select Case str
Case "設備編號"
st = "bh"
Case "設備名稱"
st = "mc"
Case "維修日期"
st = "wxrq"
Case "維修單位"
st = "wxdw"
Case "維修人"
st = "wxr"
Case "維修原因"
st = "wxyy"
Case "維修結果"
st = "wxjg"
End Select
If st = "" Then Exit Sub
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "select bh as 設備編號 , mc as 設備名稱 ,wxrq as 維修日期,wxdw as 維修單位,wxr as 維修人, wxyy as 維修原因, wxjg as 維修結果 from jlqjwx order by " & st, Conn, adOpenStatic, adLockReadOnly
Set Grid1.DataSource = rs
End Sub
Private Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo ERR
If KeyCode <> 13 Then Exit Sub
If rs.State = 1 Then
If rs.RecordCount > 0 Then
If Trim(rs!設備編號) <> "" Then
Tbh = Trim(rs!設備編號)
Dim rst As New ADODB.Recordset
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from jlqjxx where bh='" & Tbh & "'", Conn
If rst.EOF = False Then
RsToText rst
DTPwxrq.Value = rs!維修日期
Twxdw = IIf(IsNull(rs!維修單位), "", rs!維修單位)
Twxr = IIf(IsNull(rs!維修人), "", rs!維修人)
Twxyy = IIf(IsNull(rs!維修原因), "", rs!維修原因)
Twxjg = IIf(IsNull(rs!維修結果), "", rs!維修結果)
Bh = rst!Bh
Jl = True
WXdw = IIf(IsNull(rs!維修單位), "", rs!維修單位)
WXsj = rs!維修日期
Grid1.Visible = False
Else
Jl = False
End If
Grid1.Visible = False
Jl = False
End If
End If
End If
Exit Sub
ERR:
Exit Sub
End Sub
Private Sub Image1_Click()
If Add <> 0 Then Exit Sub
Frm_選擇記錄.Show 1
If Frm_選擇記錄.sele = "" Then
Exit Sub
End If
Qk1
Grid1.Visible = False
Grid.Visible = False
Dim rst As New ADODB.Recordset
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from jlqjxx where bh='" & Format(Frm_選擇記錄.sele, "00000") & "'", Conn
If rst.EOF = False Then
RsToText rst
Jl = True
If rsa.State = 1 Then rsa.Close
rsa.CursorLocation = adUseClient
rsa.Open "select bh as 設備編號 , mc as 設備名稱 ,wxrq as 維修日期,wxdw as 維修單位,wxr as 維修人, wxyy as 維修原因, wxjg as 維修結果 from jlqjwx where bh='" & Format(Tbh, "00000") & "'", Conn, adOpenStatic, adLockReadOnly
If rsa.EOF = False Then
Grid.Visible = True
Set Grid.DataSource = rsa
Bh = rst!Bh
Tbh = rst!Bh
Else
Jl = False
Bh = rst!Bh
Tbh = rst!Bh
End If
Else
Jl = False
End If
End Sub
Private Sub Tbh_KeyPress(KeyAscii As Integer)
If Add <> 0 Then Exit Sub
If KeyAscii = 13 Then
Qk1
Grid1.Visible = False
Grid.Visible = False
Tbh = Format(Tbh, "00000")
Dim rst As New ADODB.Recordset
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from jlqjxx where bh='" & Tbh & "'", Conn
If rst.EOF = False Then
RsToText rst
Jl = True
If rsa.State = 1 Then rsa.Close
rsa.CursorLocation = adUseClient
rsa.Open "select bh as 設備編號 , mc as 設備名稱 ,wxrq as 維修日期,wxdw as 維修單位,wxr as 維修人, wxyy as 維修原因, wxjg as 維修結果 from jlqjwx where bh='" & Format(Tbh, "00000") & "'", Conn, adOpenStatic, adLockReadOnly
If rsa.EOF = False Then
Grid1.Visible = False
Grid.Visible = True
Set Grid.DataSource = rsa
Bh = rst!Bh
Else
Jl = False
Bh = rst!Bh
End If
Else
Jl = False
End If
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If Add <> 0 Then Exit Sub
If KeyAscii = 13 Then
Grid1.Visible = False
Grid.Visible = False
Qk1
Dim rst As New ADODB.Recordset
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from jlqjxx where bh='" & Format(Text3, "00000") & "'", Conn
If rst.EOF = False Then
RsToText rst
Jl = True
If rsa.State = 1 Then rsa.Close
rsa.CursorLocation = adUseClient
rsa.Open "select bh as 設備編號 , mc as 設備名稱 ,wxrq as 維修日期,wxdw as 維修單位,wxr as 維修人, wxyy as 維修原因, wxjg as 維修結果 from jlqjwx where bh='" & Format(Text3, "00000") & "'", Conn, adOpenStatic, adLockReadOnly
If rsa.EOF = False Then
Grid1.Visible = False
Grid.Visible = True
Set Grid.DataSource = rsa
Bh = rst!Bh
Tbh = rst!Bh
Else
Jl = False
Bh = rst!Bh
Tbh = rst!Bh
End If
End If
Else
Jl = False
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -