📄 frmwxjl.frm
字号:
VERSION 5.00
Begin VB.Form FrmWXJL
BorderStyle = 0 'None
Caption = "维修记录"
ClientHeight = 5505
ClientLeft = 0
ClientTop = 105
ClientWidth = 9885
ControlBox = 0 'False
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5505
ScaleWidth = 9885
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command1
Caption = "打 印"
Height = 375
Left = 5640
TabIndex = 20
Top = 5040
Width = 855
End
Begin VB.CommandButton Command3
Caption = "关 闭"
Height = 375
Left = 8520
TabIndex = 10
Top = 5040
Width = 975
End
Begin VB.CommandButton Command4
Caption = "新 添"
Height = 375
Left = 7200
TabIndex = 9
Top = 5040
Width = 855
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000000&
ForeColor = &H80000008&
Height = 3735
Left = 120
ScaleHeight = 3705
ScaleWidth = 9705
TabIndex = 0
Top = 960
Width = 9735
Begin VB.Label Label4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "操 作"
ForeColor = &H80000008&
Height = 255
Left = 8520
TabIndex = 19
Top = 0
Width = 975
End
Begin VB.Label LabDel
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H008080FF&
BorderStyle = 1 'Fixed Single
Caption = "删除"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 9000
TabIndex = 18
Top = 0
Width = 495
End
Begin VB.Label LabXG
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = "修改"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 8520
TabIndex = 17
Top = 0
Width = 495
End
Begin VB.Label LabLJBH
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "零件编号"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 6840
TabIndex = 16
Top = 0
Width = 975
End
Begin VB.Label LabCJ
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "厂家"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 5760
TabIndex = 8
Top = 0
Width = 1095
End
Begin VB.Label LabBh
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "编号"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 0
TabIndex = 7
Top = 0
Width = 495
End
Begin VB.Label LabName
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "故障名称"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 480
TabIndex = 6
Top = 0
Width = 1575
End
Begin VB.Label LabFYSJ
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "反映时间"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 2040
TabIndex = 5
Top = 0
Width = 975
End
Begin VB.Label LabWXRY
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "维修人员"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 3960
TabIndex = 4
Top = 0
Width = 975
End
Begin VB.Label LabGHJ
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "更换件"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 4920
TabIndex = 3
Top = 0
Width = 855
End
Begin VB.Label LabBZ
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "备注"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 7800
TabIndex = 2
Top = 0
Width = 735
End
Begin VB.Label LabWXSJ
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "维修时间"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 3000
TabIndex = 1
Top = 0
Width = 975
End
End
Begin VB.Label Label2
Caption = "表单编号："
Height = 255
Left = 240
TabIndex = 15
Top = 600
Width = 975
End
Begin VB.Label LabBill
AutoSize = -1 'True
Caption = "生成中......"
ForeColor = &H000000FF&
Height = 180
Left = 1440
TabIndex = 14
Top = 600
Width = 1080
End
Begin VB.Label Label1
Caption = "仓库管理员："
Height = 255
Left = 120
TabIndex = 13
Top = 5040
Width = 1095
End
Begin VB.Label LabNmae
Caption = "临沂市长安物贸有限公司维修记录"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 2880
TabIndex = 12
Top = 240
Width = 4095
End
Begin VB.Label Lab1
AutoSize = -1 'True
Caption = "生成中......"
ForeColor = &H000000FF&
Height = 180
Left = 1320
TabIndex = 11
Top = 5040
Width = 1080
End
End
Attribute VB_Name = "FrmWXJL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
SqlBase = "SELECT * FROM 维修记录 where 维修单号= '" & Bill & "'"
PublicPath = App.Path & "\wxjl.rpt"
FrmPrinter.Show
End Sub
Private Sub Command3_Click()
Bill = ""
Unload Me
End Sub
Private Sub Command4_Click()
FrmWxJLAdd.Show
Unload Me
End Sub
Private Sub Form_Load()
Me.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000
Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2
Set Rs = New Recordset
LabBill = Bill
Set_Init
End Sub
Private Sub Set_Init() '显示内容
Dim i As Integer
sSql = "SELECT Id,故障名称,反映时间,维修时间,维修人员,更换件,厂家,零件编号,备注 FROM 维修记录 where 维修单号= '" & Bill & "'"
Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
i = 1
Do While Not Rs.EOF
Load LabBh(i)
Load LabName(i)
Load LabFYSJ(i)
Load LabWXSJ(i)
Load LabWXRY(i)
Load LabGHJ(i)
Load LabCJ(i)
Load LabLJBH(i)
Load LabBZ(i)
Load LabXG(i)
Load LabDel(i)
LabBh(i).Top = LabBh(i - 1).Top + 255
LabName(i).Top = LabName(i - 1).Top + 255
LabFYSJ(i).Top = LabFYSJ(i - 1).Top + 255
LabWXSJ(i).Top = LabWXSJ(i - 1).Top + 255
LabWXRY(i).Top = LabWXRY(i - 1).Top + 255
LabGHJ(i).Top = LabGHJ(i - 1).Top + 255
LabCJ(i).Top = LabCJ(i - 1).Top + 255
LabLJBH(i).Top = LabLJBH(i - 1).Top + 255
LabBZ(i).Top = LabBZ(i - 1).Top + 255
LabXG(i).Top = LabXG(i - 1).Top + 255
LabDel(i).Top = LabDel(i - 1).Top + 255
LabBh(i).Visible = True:
LabName(i).Visible = True
LabFYSJ(i).Visible = True
LabWXSJ(i).Visible = True
LabWXRY(i).Visible = True
LabGHJ(i).Visible = True
LabCJ(i).Visible = True
LabLJBH(i).Visible = True
LabBZ(i).Visible = True
LabXG(i).Visible = True
LabDel(i).Visible = True
LabBh(i) = i
LabName(i) = Rs("故障名称")
LabFYSJ(i) = Rs("反映时间")
LabWXSJ(i) = Rs("维修时间")
LabWXRY(i) = Rs("维修人员")
LabGHJ(i) = Rs("更换件")
LabCJ(i) = Rs("厂家")
LabLJBH(i) = Rs("零件编号")
If Rs("备注") = "-" Then LabBZ(i) = "" Else LabBZ(i) = Rs("备注")
LabXG(i).LinkItem = Rs("id")
LabDel(i).LinkItem = Rs("id")
i = i + 1
Rs.MoveNext
Loop
Rs.Close
End Sub
Private Sub LabDel_Click(Index As Integer)
Dim a As Integer
a = MsgBox("********你确定要删除此保养记录吗？**********" & vbCrLf _
& "一旦删除将不可更改！" & vbCrLf _
, vbExclamation + vbOKCancel + vbApplicationModal, "提示")
If a = 1 Then
sSql = "delete FROM 维修记录 where ID =" & Val(LabDel(Index).LinkItem)
Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
Set_Unload
Set_Init
End If
If a = 2 Then Exit Sub
End Sub
Private Sub LabXG_Click(Index As Integer)
RemId = Val(LabXG(Index).LinkItem)
FrmWxJLXg.Show
Unload Me
End Sub
Private Sub Set_Unload() '卸载各lab
For i = 1 To LabBh.Count - 1
Unload LabBh(i)
Unload LabName(i)
Unload LabFYSJ(i)
Unload LabWXSJ(i)
Unload LabWXRY(i)
Unload LabGHJ(i)
Unload LabCJ(i)
Unload LabLJBH(i)
Unload LabBZ(i)
Unload LabXG(i)
Unload LabDel(i)
Next i
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -