📄 frm_jy_gl.frm

📁 mnnnml , ,l, ,mk mmkkmlklmkkkkkkkkkkkkkm,mkl
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
    Select Case select_text
    
    Case "文字资料"
    FrmSql.sqlado = "wzzl_v"
    FrmSql.intNumField = 10
            FrmSql.Show vbModal
            Select Case FrmSql.intNumField
                Case -1, -2
                     If Not (RS.EOF And RS.BOF) Then
                     i = rs1.Bookmark
                     rs1.Filter = Me.DataGrid2.Columns.Item(0).DataField & "<>''"
                     rs1.Requery
                     format_table2
                     rs1.Bookmark = i
                     Else
                     rs1.Filter = ""
                     rs1.Requery
                     format_table2
                    End If
                Case Else
                   rs1.Filter = Me.DataGrid2.Columns.Item(FrmSql.intNumField).DataField & _
                   FrmSql.strSqlField
            End Select
    
   
    
    Case "保障资料"
     FrmSql.sqlado = "bzzl_v"
    FrmSql.intNumField = 10
            FrmSql.Show vbModal
            Select Case FrmSql.intNumField
                Case -1, -2
                     If Not (RS.EOF And RS.BOF) Then
                     i = rs1.Bookmark
                     rs1.Filter = Me.DataGrid2.Columns.Item(0).DataField & "<>''"
                     rs1.Requery
                     format_table3
                     rs1.Bookmark = i
                     Else
                     rs1.Filter = ""
                     rs1.Requery
                     format_table3
                    End If
                Case Else
                   rs1.Filter = Me.DataGrid2.Columns.Item(FrmSql.intNumField).DataField & _
                   FrmSql.strSqlField
            End Select
    
    
     
    Case "图书资料"
    FrmSql.sqlado = "book_v"
    FrmSql.intNumField = 9
            FrmSql.Show vbModal
            Select Case FrmSql.intNumField
                Case -1, -2
                     If Not (RS.EOF And RS.BOF) Then
                     i = rs1.Bookmark
                     rs1.Filter = Me.DataGrid2.Columns.Item(0).DataField & "<>''"
                     rs1.Requery
                     format_table4
                     rs1.Bookmark = i
                     Else
                     rs1.Filter = ""
                     rs1.Requery
                     format_table4
                    End If
                Case Else
                   rs1.Filter = Me.DataGrid2.Columns.Item(FrmSql.intNumField).DataField & _
                   FrmSql.strSqlField
            End Select
    
    
    
    
    
    
    Case "影像资料"
    
    FrmSql.sqlado = "image_v "
    FrmSql.intNumField = 9
            FrmSql.Show vbModal
            Select Case FrmSql.intNumField
                Case -1, -2
                     If Not (RS.EOF And RS.BOF) Then
                     i = rs1.Bookmark
                     rs1.Filter = Me.DataGrid2.Columns.Item(0).DataField & "<>''"
                     rs1.Requery
                     format_table5
                     rs1.Bookmark = i
                     Else
                     rs1.Filter = ""
                     rs1.Requery
                     format_table5
                    End If
                Case Else
                   rs1.Filter = Me.DataGrid2.Columns.Item(FrmSql.intNumField).DataField & _
                   FrmSql.strSqlField
            End Select
    
   End Select
  
  End Select
Exit Sub
err1_2:
    MsgBox Err.Description, vbCritical
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 自动,借阅编号,资料编号,名称,分类,数量,借阅人,单位,经办人,借阅时间,归还时间,备注 from jy_jl order by 备注,自动 desc", db, adOpenStatic, adLockOptimistic
  
 
  
  Set DataGrid1.DataSource = RS
  format_table1
   
   TabStrip1_Click
  Exit Sub
Err63:
    MsgBox Err.Description, vbCritical, "错误"
End Sub


Private Sub format_table1()
 DataGrid1.Refresh
 DataGrid1.Columns(0).Width = 0
 DataGrid1.Columns(1).Width = 1000
 DataGrid1.Columns(2).Width = 0
 DataGrid1.Columns(3).Width = 2480
 DataGrid1.Columns(4).Width = 800
 DataGrid1.Columns(5).Width = 480
 DataGrid1.Columns(6).Width = 750
 DataGrid1.Columns(7).Width = 0
 DataGrid1.Columns(8).Width = 750
 DataGrid1.Columns(9).Width = 1050
 DataGrid1.Columns(10).Width = 1050
 DataGrid1.Columns(11).Width = 600
 
 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 = " 归还时间"
 DataGrid1.Columns(11).Caption = "备 注"
 
 For i = 0 To 11
   DataGrid1.Columns(i).Alignment = dbgCenter
   DataGrid1.Columns(i).WrapText = True
   
 Next i
   DataGrid1.Columns(1).Alignment = dbgLeft
   DataGrid1.AllowRowSizing = False
   DataGrid1.AllowUpdate = False
 
 End Sub
Private Sub format_table2()
 
 DataGrid2.Columns(0).Width = 900
 DataGrid2.Columns(1).Width = 2610
 DataGrid2.Columns(2).Width = 480
 DataGrid2.Columns(3).Width = 1000
 DataGrid2.Columns(4).Width = 800
 DataGrid2.Columns(5).Width = 0
 DataGrid2.Columns(6).Width = 1850
 DataGrid2.Columns(7).Width = 850
 DataGrid2.Columns(8).Width = 0
 DataGrid2.Columns(9).Width = 480
 
 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 = "目录"
 DataGrid2.Columns(9).Caption = "已借"
 
 For i = 0 To 9
   DataGrid2.Columns(i).Alignment = dbgCenter
 Next i
   DataGrid2.Columns(1).Alignment = dbgLeft
   DataGrid2.Columns(6).Alignment = dbgLeft
   DataGrid2.AllowRowSizing = False
   DataGrid2.AllowUpdate = False
 
 End Sub
Private Sub format_table3()
 
 DataGrid2.Columns(0).Width = 900
 DataGrid2.Columns(1).Width = 2530
 DataGrid2.Columns(2).Width = 480
 DataGrid2.Columns(3).Width = 800
 DataGrid2.Columns(4).Width = 480
 DataGrid2.Columns(5).Width = 800
 DataGrid2.Columns(6).Width = 0
 DataGrid2.Columns(7).Width = 1650
 DataGrid2.Columns(8).Width = 850
 DataGrid2.Columns(9).Width = 480
 
 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 = "编制时间"
 DataGrid2.Columns(9).Caption = "已借"
 
 For i = 0 To 9
   DataGrid2.Columns(i).Alignment = dbgCenter
 Next i
   DataGrid2.Columns(1).Alignment = dbgLeft
   DataGrid2.Columns(6).Alignment = dbgLeft
   DataGrid2.AllowRowSizing = False
   DataGrid2.AllowUpdate = False
 
 End Sub
Private Sub format_table4()
 
 DataGrid2.Columns(0).Width = 1000
 DataGrid2.Columns(1).Width = 2930
 DataGrid2.Columns(2).Width = 800
 DataGrid2.Columns(3).Width = 600
 DataGrid2.Columns(4).Width = 0
 DataGrid2.Columns(5).Width = 700
 DataGrid2.Columns(6).Width = 1600
 DataGrid2.Columns(7).Width = 850
 DataGrid2.Columns(8).Width = 480
 
 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 = "已借"
 
 For i = 0 To 8
   DataGrid2.Columns(i).Alignment = dbgCenter
 Next i
   DataGrid2.Columns(1).Alignment = dbgLeft
   DataGrid2.Columns(6).Alignment = dbgLeft
 DataGrid2.AllowRowSizing = False
 DataGrid2.AllowUpdate = False
 
 End Sub
 

Private Sub format_table5()
 
  DataGrid2.Columns(0).Width = 1000
 DataGrid2.Columns(1).Width = 2930
 DataGrid2.Columns(2).Width = 800
 DataGrid2.Columns(3).Width = 600
 DataGrid2.Columns(4).Width = 0
 DataGrid2.Columns(5).Width = 700
 DataGrid2.Columns(6).Width = 1600
 DataGrid2.Columns(7).Width = 850
  DataGrid2.Columns(8).Width = 480
  
 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 = "已借"
 
 For i = 0 To 8
   DataGrid2.Columns(i).Alignment = dbgCenter
 Next i
   DataGrid2.Columns(1).Alignment = dbgLeft
   DataGrid2.Columns(6).Alignment = dbgLeft
 DataGrid2.AllowRowSizing = False
 DataGrid2.AllowUpdate = False
 
End Sub

Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
 On Error GoTo err3:
  
 mv
Exit Sub
err3:
 MsgBox Err.Description, vbExclamation

End Sub



Private Sub rs1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error GoTo err3:
  
 mv1
Exit Sub
err3:
 MsgBox Err.Description, vbExclamation

End Sub


Private Sub TabStrip1_Click()
    select_text = TabStrip1.SelectedItem.Caption
    
    
    Select Case select_text
    
    Case "文字资料"
    Set rs1 = New Recordset
    rs1.Open "select 编号,名称,数量,分类,细目,入库时间,编制单位,编制时间,目录,已借 from wzzl_v order by 编号 desc", db, adOpenStatic, adLockOptimistic
    Set DataGrid2.DataSource = rs1
    format_table2
    
    Case "保障资料"
    Set rs1 = New Recordset
    rs1.Open "select 编号,名称,数量,分类,保障类别,区域线路,入库时间,编制单位,编制时间,已借 from bzzl_v order by 编号 desc", db, adOpenStatic, adLockOptimistic
    Set DataGrid2.DataSource = rs1
    format_table3
     
    Case "图书资料"
    Set rs1 = New Recordset
    rs1.Open "select 编号,书名 as 名称,分类,数量,入库时间,作者,出版单位,出版时间,已借 from book_v order by 编号 desc", db, adOpenStatic, adLockOptimistic
    Set DataGrid2.DataSource = rs1
    format_table4
    
    Case "影像资料"
    Set rs1 = New Recordset
    rs1.Open "select 编号,作品名称 as 名称,分类,数量,入库时间,作者,单位,拍制时间,已借 from image_v order by 编号 desc", db, adOpenStatic, adLockOptimistic
    Set DataGrid2.DataSource = rs1
    format_table5
    End Select
  
  
  
End Sub

Private Sub mv()
 If RS.RecordCount = 0 Then
  cmddep(0).Enabled = False
  cmddep(1).Enabled = False
  Else
  cmddep(0).Enabled = True
  cmddep(1).Enabled = True
  If RS("备注") <> "借阅" Then
  cmddep(0).Enabled = False
  cmddep(1).Enabled = False
  End If
End If
End Sub
Private Sub mv1()
 If rs1.RecordCount = 0 Then
  cmdOK(0).Enabled = False
  cmdOK(1).Enabled = False
  
  Else
  cmdOK(0).Enabled = True
  cmdOK(1).Enabled = True
 
  If rs1("数量") - rs1("已借") > 0 Then
    
  Else
    cmdOK(0).Enabled = False
  End If
  If rs1("已借") > 0 Then
   
  Else
  'cmdOK(1).Enabled = False
  End If
  End If
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
上一页 1 23
💿 文件大小 1004 K
👤 上传用户 koalalee
📂 所属分类其他
🏷️ 相关标签

#mmkkmlklmkkkkkkkkkkkkkm #mnnnml #mkl #mk
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -