📄 frm_zlxf_gl.frm
字号:
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Begin VB.Image imgWindowBottomLeft
Height = 450
Left = 4140
Picture = "Frm_zlxf_gl.frx":EDAC
Top = 7500
Width = 285
End
Begin VB.Image imgWindowBottomRight
Height = 450
Left = 4500
Picture = "Frm_zlxf_gl.frx":F4F6
Top = 7500
Width = 285
End
Begin VB.Image imgTitleHelp
Height = 210
Left = 4860
Picture = "Frm_zlxf_gl.frx":FC40
Stretch = -1 'True
Top = 8220
Width = 210
End
Begin VB.Image imgTitleClose
Height = 210
Left = 4905
Picture = "Frm_zlxf_gl.frx":FE8A
Stretch = -1 'True
Top = 7860
Width = 210
End
Begin VB.Image imgTitleMinimize
Height = 210
Left = 4860
Picture = "Frm_zlxf_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 = 1260
End
Begin VB.Image Imageicon
Height = 315
Left = 5535
Picture = "Frm_zlxf_gl.frx":1031E
Stretch = -1 'True
Top = 8040
Width = 315
End
Begin VB.Image imgTitleLeft
Height = 450
Left = 3420
Picture = "Frm_zlxf_gl.frx":132F0
Top = 7500
Width = 285
End
Begin VB.Image imgTitleRight
Height = 450
Left = 3780
Picture = "Frm_zlxf_gl.frx":13A3A
Top = 7500
Width = 285
End
Begin VB.Image imgWindowBottom
Height = 450
Left = 3780
Picture = "Frm_zlxf_gl.frx":14184
Stretch = -1 'True
Top = 7980
Width = 285
End
Begin VB.Image imgWindowLeft
Height = 450
Left = 4140
Picture = "Frm_zlxf_gl.frx":148CE
Stretch = -1 'True
Top = 7980
Width = 285
End
Begin VB.Image imgWindowRight
Height = 450
Left = 4500
Picture = "Frm_zlxf_gl.frx":15018
Stretch = -1 'True
Top = 7980
Width = 285
End
Begin VB.Image imgTitleMain
Height = 450
Left = 3420
Picture = "Frm_zlxf_gl.frx":15762
Stretch = -1 'True
Top = 7950
Width = 285
End
End
Attribute VB_Name = "Frm_zlxf_gl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As ADODB.Connection
Dim RS As Recordset
Dim mvBookMark As Variant
Dim select_text As String
Private Sub CmdDep_Click(Index As Integer)
On Error Resume Next
Select Case Index
Case 0
Frm_zlxf_djbh.Show vbModal
CmdDep_Click (3)
Case 1
frm_zlxf_xh.Text3.Text = RS("数量")
frm_zlxf_xh.Text2.Text = RS("编号")
frm_zlxf_xh.combo1.Text = RS("名称")
frm_zlxf_xh.Combo2.Text = RS("细目")
frm_zlxf_xh.Label2.Caption = "库 存 为: " & RS("数量")
' cmddep(1).Enabled = False
frm_zlxf_xh.Show vbModal
CmdDep_Click (3)
CmdDep_Click (3)
Case 2
FrmSql.sqlado = "xfzl_v"
FrmSql.intNumField = 10
FrmSql.Show vbModal
Select Case FrmSql.intNumField
Case -1
RS.Filter = Me.DataGrid1.Columns.Item(0).DataField & _
"<>''"
Call DataGrid1_Click
Case -2
Case Else
'MsgBox FrmSql.strSqlField
RS.Filter = Me.DataGrid1.Columns.Item(FrmSql.intNumField).DataField & _
FrmSql.strSqlField
Call DataGrid1_Click
End Select
Case 3
If Not (RS.EOF Or RS.BOF) Then
i = RS.Bookmark
'adoPrimaryRS.Filter = ""
'Set DataGrid1.DataSource = Nothing
RS.Requery
RS.Bookmark = i
'DataGrid1.ClearFields
'Set DataGrid1.DataSource = RS
'DataGrid1.Refresh
format_table1
Else
'Set DataGrid1.DataSource = Nothing
'adoPrimaryRS.Filter = ""
RS.Requery
'DataGrid1.ClearFields
' Set DataGrid1.DataSource = RS
' DataGrid1.Refresh
format_table1
End If
Case 4
Unload Me
End Select
End Sub
Private Sub DataGrid1_Click()
Dim rs1 As Recordset
If RS.RecordCount > 0 Then
bh = RS("名称")
DataGrid2.Caption = "《" & bh & "》"
Select Case select_text
Case "基本属性"
Set rs1 = New Recordset
rs1.Open "select 分类,细目,入库时间,编制单位,编制时间 from xfzl_v where 名称='" & bh & "'", db, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = rs1
format_table2
Case "下发记录"
Set rs1 = New Recordset
rs1.Open "select 下发编号,细目,数量,数量单位,领取时间,领取单位,批准人,经办人,领取人 from xfzl_xf_jl where 名称='" & bh & "' order by 下发编号 desc", db, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = rs1
format_table3
Case "销毁记录"
Set rs1 = New Recordset
rs1.Open "select 细目,销毁数,销毁方式,销毁时间,经办人 from xfzl_xh_jl where 名称='" & bh & "'", db, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = rs1
format_table5
End Select
Else
Set DataGrid2.DataSource = Nothing
End If
End Sub
Private Sub Form_Load()
On Error GoTo Err63:
MakeWindow Me
Me.ScaleMode = 1
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & fullpath("mdb\ziliao.lbl")
Set RS = New Recordset
RS.Open "select 编号,名称,数量,分类,细目,入库时间,编制单位,编制时间,下发数,销毁数,数量+下发数+销毁数 as 总数 from xfzl_v order by 细目,编号", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS
format_table1
select_text = "基本属性"
Call DataGrid1_Click
Exit Sub
Err63:
MsgBox Err.Description, vbCritical, "错误"
End Sub
Private Sub format_table1()
DataGrid1.Refresh
DataGrid1.Columns(0).Width = 1200
DataGrid1.Columns(1).Width = 3350
DataGrid1.Columns(2).Width = 900
DataGrid1.Columns(3).Width = 0
DataGrid1.Columns(4).Width = 900
DataGrid1.Columns(5).Width = 0
DataGrid1.Columns(6).Width = 0
DataGrid1.Columns(7).Width = 0
DataGrid1.Columns(8).Width = 900
DataGrid1.Columns(9).Width = 900
DataGrid1.Columns(10).Width = 900
DataGrid1.Columns(0).Caption = " 编号"
DataGrid1.Columns(1).Caption = " 名 称"
DataGrid1.Columns(2).Caption = " 库存"
DataGrid1.Columns(3).Caption = " 分类"
DataGrid1.Columns(4).Caption = " 细目"
DataGrid1.Columns(5).Caption = " 入库时间"
DataGrid1.Columns(6).Caption = " 编制单位"
DataGrid1.Columns(7).Caption = " 编制时间"
DataGrid1.Columns(8).Caption = " 下发数"
DataGrid1.Columns(9).Caption = " 销毁数"
DataGrid1.Columns(10).Caption = " 总 数"
For i = 0 To 10
DataGrid1.Columns(i).Alignment = dbgCenter
Next i
DataGrid1.Columns(1).Alignment = dbgLeft
DataGrid1.AllowRowSizing = False
'DataGrid1.AllowUpdate = False
End Sub
Private Sub format_table2()
DataGrid2.Columns(0).Width = 1200
DataGrid2.Columns(1).Width = 1200
DataGrid2.Columns(2).Width = 1500
DataGrid2.Columns(3).Width = 3500
DataGrid2.Columns(4).Width = 1500
DataGrid2.Columns(0).Caption = " 分类"
DataGrid2.Columns(1).Caption = " 细目"
DataGrid2.Columns(2).Caption = " 入库时间"
DataGrid2.Columns(3).Caption = " 编制单位"
DataGrid2.Columns(4).Caption = " 编制时间"
End Sub
Private Sub format_table3()
DataGrid2.Columns(0).Width = 1000
DataGrid2.Columns(1).Width = 1400
DataGrid2.Columns(2).Width = 600
DataGrid2.Columns(3).Width = 600
DataGrid2.Columns(4).Width = 1300
DataGrid2.Columns(5).Width = 3000
DataGrid2.Columns(6).Width = 800
DataGrid2.Columns(7).Width = 800
DataGrid2.Columns(8).Width = 800
DataGrid2.Columns(0).Caption = " 下发编号"
DataGrid2.Columns(1).Caption = " 细目"
DataGrid2.Columns(2).Caption = " 数量"
DataGrid2.Columns(3).Caption = " 单位"
DataGrid2.Columns(4).Caption = " 领取时间"
DataGrid2.Columns(5).Caption = " 领取单位"
DataGrid2.Columns(6).Caption = " 批准人"
DataGrid2.Columns(7).Caption = " 经办人"
DataGrid2.Columns(8).Caption = " 领取人"
End Sub
Private Sub format_table5()
DataGrid2.Columns(0).Width = 1500
DataGrid2.Columns(1).Width = 1000
DataGrid2.Columns(2).Width = 1000
DataGrid2.Columns(3).Width = 1500
DataGrid2.Columns(4).Width = 1500
DataGrid2.Columns(0).Caption = " 细 目"
DataGrid2.Columns(1).Caption = " 销毁数量"
DataGrid2.Columns(2).Caption = " 销毁方式"
DataGrid2.Columns(3).Caption = " 销毁时间"
DataGrid2.Columns(4).Caption = " 经 办 人"
End Sub
Private Sub TabStrip1_Click()
select_text = TabStrip1.SelectedItem.Caption
Call DataGrid1_Click
End Sub
Private Sub imgTitleClose_Click()
Unload Me
End Sub
Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub
Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub
Private Sub imgTitleMinimize_Click()
Me.WindowState = 1
End Sub
Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub
Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -