📄 frmpjgl.frm
字号:
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "单价"
ForeColor = &H00C00000&
Height = 255
Left = 6120
TabIndex = 25
Top = 840
Width = 735
End
Begin VB.Label Label9
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "编号"
ForeColor = &H00C00000&
Height = 255
Left = 240
TabIndex = 24
Top = 840
Width = 615
End
Begin VB.Label Label8
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "配件名称"
ForeColor = &H00C00000&
Height = 255
Left = 840
TabIndex = 23
Top = 840
Width = 1575
End
Begin VB.Label Label4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "规格型号"
ForeColor = &H00C00000&
Height = 255
Left = 2400
TabIndex = 22
Top = 840
Width = 2055
End
Begin VB.Label Label5
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "所属分类"
ForeColor = &H00C00000&
Height = 255
Left = 4440
TabIndex = 21
Top = 840
Width = 1215
End
Begin VB.Label Label6
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "单位"
ForeColor = &H00C00000&
Height = 255
Left = 5640
TabIndex = 20
Top = 840
Width = 495
End
Begin VB.Label Label7
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "备注"
ForeColor = &H00C00000&
Height = 255
Left = 7800
TabIndex = 19
Top = 840
Width = 1335
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "操 作"
ForeColor = &H00C00000&
Height = 255
Left = 9120
TabIndex = 18
Top = 840
Width = 1215
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 = 3120
TabIndex = 1
Top = 240
Width = 4215
End
End
Attribute VB_Name = "FrmPJGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
SqlBase = "SELECT * FROM 配件库存表"
PublicPath = App.Path & "\pjkc.rpt"
FrmPrinter.Show
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
FrmPJAdd.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
VScroll1.Visible = False
Set_Init
End Sub
Private Sub Set_Init()
Dim i As Integer
sSql = "SELECT * FROM 配件库存表"
Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
i = 1
Do While Not Rs.EOF
Load LabBh(i)
Load LabName(i)
Load LabModel(i)
Load LabSsfl(i)
Load LabDW(i)
Load LabDJ(i)
Load LabNum(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
LabModel(i).Top = LabModel(i - 1).Top + 255
LabSsfl(i).Top = LabSsfl(i - 1).Top + 255
LabDW(i).Top = LabDW(i - 1).Top + 255
LabDJ(i).Top = LabDJ(i - 1).Top + 255
LabNum(i).Top = LabNum(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
LabModel(i).Visible = True
LabSsfl(i).Visible = True
LabDW(i).Visible = True
LabDJ(i).Visible = True
LabNum(i).Visible = True
LabBZ(i).Visible = True
LabXG(i).Visible = True
LabDel(i).Visible = True
LabBh(i) = i
LabName(i) = Rs("配件名称")
LabModel(i) = Rs("规格型号")
LabSsfl(i) = Rs("分类")
LabDW(i) = Rs("单位")
LabDJ(i) = Rs("单价")
LabNum(i) = Rs("数量")
If Rs("备注") = "-" Then LabBZ(i) = "" Else LabBZ(i) = Rs("备注")
LabXG(i).LinkItem = Rs("id")
LabDel(i).LinkItem = Rs("id")
i = i + 1
If i > 16 Then
Picture1.Height = Picture1.Height + 255
VScroll1.Visible = True
VScroll1.Max = (i - 16) * 255
End If
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 Set_Unload() '卸载各lab
For i = 1 To LabBh.Count - 1
Unload LabBh(i)
Unload LabName(i)
Unload LabModel(i)
Unload LabSsfl(i)
Unload LabDW(i)
Unload LabDJ(i)
Unload LabNum(i)
Unload LabBZ(i)
Unload LabXG(i)
Unload LabDel(i)
Next i
End Sub
Private Sub LabXG_Click(Index As Integer)
RemId = Val(LabXG(Index).LinkItem)
FrmPJXG.Show
Unload Me
End Sub
Private Sub VScroll1_Change()
Picture1.Top = VScroll1.Value * (-1) - 255
End Sub
Private Sub VScroll1_Scroll()
Picture1.Top = VScroll1.Value * (-1) - 255
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -