📄 frm_jy_gl.frm
字号:
BackColorPop = 12632319
CaptionAreaLayout= 1
Caption = "查 询"
CaptionBackColor= 16777215
EdgeColor = 16711680
RepeatDelay = 0
ShowCaption = -1 'True
ForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Frm_jy_gl.frx":67DE
CaptionAreaPercent= 55
End
Begin SmartXpButton.SmartNetXpButton cmddep
Height = 525
Index = 3
Left = 30
TabIndex = 10
Top = 1896
Width = 1245
_ExtentX = 2196
_ExtentY = 926
BackColor = 12632319
BackColorPop = 16761024
CaptionAreaLayout= 1
Caption = "刷 新"
CaptionBackColor= 16777215
EdgeColor = 16711680
RepeatDelay = 0
ShowCaption = -1 'True
ForeColor = 8388736
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Frm_jy_gl.frx":9C40
CaptionAreaPercent= 55
End
Begin SmartXpButton.SmartNetXpButton cmddep
Height = 525
Index = 4
Left = 30
TabIndex = 11
Top = 2520
Width = 1245
_ExtentX = 2196
_ExtentY = 926
BackColor = 16761024
BackColorPop = 12632319
BackColorPush = 8421631
CaptionAreaLayout= 1
Caption = "退 出"
CaptionBackColor= 16777215
EdgeColor = 33023
RepeatDelay = 0
ShowCaption = -1 'True
ForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Frm_jy_gl.frx":B94A
CaptionAreaPercent= 55
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 3105
Left = 30
TabIndex = 1
Top = 120
Width = 9555
_ExtentX = 16854
_ExtentY = 5477
_Version = 393216
AllowUpdate = 0 'False
AllowArrows = -1 'True
Appearance = 0
BackColor = 16777215
ColumnHeaders = -1 'True
ForeColor = 8388608
HeadLines = 2
RowHeight = 30
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "借阅记录"
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
AllowRowSizing = 0 'False
AllowSizing = 0 'False
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Begin VB.Image imgWindowBottomLeft
Height = 450
Left = 4140
Picture = "Frm_jy_gl.frx":EDAC
Top = 7500
Width = 285
End
Begin VB.Image imgWindowBottomRight
Height = 450
Left = 4500
Picture = "Frm_jy_gl.frx":F4F6
Top = 7500
Width = 285
End
Begin VB.Image imgTitleHelp
Height = 210
Left = 4860
Picture = "Frm_jy_gl.frx":FC40
Stretch = -1 'True
Top = 8220
Width = 210
End
Begin VB.Image imgTitleClose
Height = 210
Left = 4905
Picture = "Frm_jy_gl.frx":FE8A
Stretch = -1 'True
Top = 7860
Width = 210
End
Begin VB.Image imgTitleMinimize
Height = 210
Left = 4860
Picture = "Frm_jy_gl.frx":100D4
Stretch = -1 'True
Top = 7500
Width = 210
End
Begin VB.Label lblTitle
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "借阅管理"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 5490
TabIndex = 2
Top = 7680
Width = 840
End
Begin VB.Image Imageicon
Height = 315
Left = 5535
Picture = "Frm_jy_gl.frx":1031E
Stretch = -1 'True
Top = 8040
Width = 315
End
Begin VB.Image imgTitleLeft
Height = 450
Left = 3420
Picture = "Frm_jy_gl.frx":12218
Top = 7500
Width = 285
End
Begin VB.Image imgTitleRight
Height = 450
Left = 3780
Picture = "Frm_jy_gl.frx":12962
Top = 7500
Width = 285
End
Begin VB.Image imgWindowBottom
Height = 450
Left = 3780
Picture = "Frm_jy_gl.frx":130AC
Stretch = -1 'True
Top = 7980
Width = 285
End
Begin VB.Image imgWindowLeft
Height = 450
Left = 4140
Picture = "Frm_jy_gl.frx":137F6
Stretch = -1 'True
Top = 7980
Width = 285
End
Begin VB.Image imgWindowRight
Height = 450
Left = 4500
Picture = "Frm_jy_gl.frx":13F40
Stretch = -1 'True
Top = 7980
Width = 285
End
Begin VB.Image imgTitleMain
Height = 450
Left = 3420
Picture = "Frm_jy_gl.frx":1468A
Stretch = -1 'True
Top = 7950
Width = 285
End
End
Attribute VB_Name = "Frm_jy_gl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As ADODB.Connection
Public WithEvents RS As Recordset
Attribute RS.VB_VarHelpID = -1
Public WithEvents rs1 As Recordset
Attribute rs1.VB_VarHelpID = -1
Dim mvBookMark As Variant
Dim select_text As String
Private Sub CmdDep_Click(Index As Integer)
On Error GoTo err1_1:
Select Case Index
Case 0
yy = MsgBox("确认归还!", vbYesNo + vbQuestion)
If yy = vbYes Then
RS("备注") = "已还"
RS("归还时间") = Date
RS.Update
mv
Dim db11 As Connection
Dim rs11 As Recordset
Set db11 = New ADODB.Connection
db11.CursorLocation = adUseClient
db11.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & fullpath("mdb\ziliao.lbl")
Set rs11 = New Recordset
Select Case Mid$(RS("资料编号"), 4, 1)
Case "B"
rs11.Open "select 编号,已借 from book_v where 编号='" & RS("资料编号") & "'", db, adOpenStatic, adLockOptimistic
Case "P"
rs11.Open "select 编号,已借 from bzzl_v where 编号='" & RS("资料编号") & "'", db, adOpenStatic, adLockOptimistic
Case "I"
rs11.Open "select 编号,已借 from image_v where 编号='" & RS("资料编号") & "'", db, adOpenStatic, adLockOptimistic
Case "T"
rs11.Open "select 编号,已借 from wzzl_v where 编号='" & RS("资料编号") & "'", db, adOpenStatic, adLockOptimistic
Case Else
End Select
If rs11.RecordCount > 0 Then
rs11("已借") = rs11("已借") - RS("数量")
rs11.Update
End If
End If
Case 1
yy = MsgBox("确认遗失!", vbYesNo + vbQuestion)
If yy = vbYes Then
RS("备注") = "遗失"
RS("归还时间") = Date
RS.Update
mv
Set db11 = New ADODB.Connection
db11.CursorLocation = adUseClient
db11.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & fullpath("mdb\ziliao.lbl")
Set rs11 = New Recordset
Select Case Mid$(RS("资料编号"), 4, 1)
Case "B"
rs11.Open "select 编号,已借,数量 from book_v where 编号='" & RS("资料编号") & "'", db, adOpenStatic, adLockOptimistic
Case "P"
rs11.Open "select 编号,已借,数量 from bzzl_v where 编号='" & RS("资料编号") & "'", db, adOpenStatic, adLockOptimistic
Case "I"
rs11.Open "select 编号,已借,数量 from image_v where 编号='" & RS("资料编号") & "'", db, adOpenStatic, adLockOptimistic
Case "T"
rs11.Open "select 编号,已借,数量 from wzzl_v where 编号='" & RS("资料编号") & "'", db, adOpenStatic, adLockOptimistic
Case Else
End Select
If rs11.RecordCount > 0 Then
rs11("已借") = rs11("已借") - RS("数量")
rs11("数量") = rs11("数量") - RS("数量")
rs11.Update
End If
End If
Case 2
FrmSql.sqlado = "jy_jl"
FrmSql.intNumField = 12
FrmSql.Show vbModal
Select Case FrmSql.intNumField
Case -1, -2
If Not (RS.EOF And RS.BOF) Then
i = RS.Bookmark
RS.Filter = Me.DataGrid1.Columns.Item(1).DataField & "<>''"
RS.Requery
format_table1
RS.Bookmark = i
Else
RS.Filter = ""
RS.Requery
format_table1
End If
Case Else
RS.Filter = Me.DataGrid1.Columns.Item(FrmSql.intNumField).DataField & _
FrmSql.strSqlField
End Select
Case 3
If Not (RS.EOF Or RS.BOF) Then
i = RS.Bookmark
RS.Requery
RS.Bookmark = i
format_table1
Else
RS.Requery
format_table1
End If
Case 4
Unload Me
End Select
Exit Sub
err1_1:
MsgBox Err.Description, vbCritical
End Sub
Private Sub cmdOK_click(Index As Integer)
On Error GoTo err1_2
Select Case Index
Case 0
Frm_jy_dj.Label2.Caption = "库存数为：" & rs1("数量") - rs1("已借")
Frm_jy_dj.Text1(2).Text = rs1("名称")
Frm_jy_dj.Text1(6).Text = rs1("编号")
Frm_jy_dj.Text1(7).Text = rs1("分类")
Frm_jy_dj.shuliang = rs1("数量") - rs1("已借")
Frm_jy_dj.Show vbModal
mv1
Case 1
RS.Filter = Me.DataGrid1.Columns.Item(2).DataField & "='" & rs1("编号") & "'"
Case 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -