frm_dt_ll.frm

代码名称：资料管理系统 一个资料管理系统的源程序

      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        =   4
      Top             =   7680
      Width           =   1260
   End
   Begin VB.Image Imageicon 
      Height          =   315
      Left            =   5535
      Picture         =   "Frm_dt_ll.frx":4BC4
      Stretch         =   -1  'True
      Top             =   8040
      Width           =   315
   End
   Begin VB.Image imgTitleLeft 
      Height          =   450
      Left            =   3420
      Picture         =   "Frm_dt_ll.frx":8216
      Top             =   7500
      Width           =   285
   End
   Begin VB.Image imgTitleRight 
      Height          =   450
      Left            =   3780
      Picture         =   "Frm_dt_ll.frx":8960
      Top             =   7500
      Width           =   285
   End
   Begin VB.Image imgWindowBottom 
      Height          =   450
      Left            =   3780
      Picture         =   "Frm_dt_ll.frx":90AA
      Stretch         =   -1  'True
      Top             =   7980
      Width           =   285
   End
   Begin VB.Image imgWindowLeft 
      Height          =   450
      Left            =   4140
      Picture         =   "Frm_dt_ll.frx":97F4
      Stretch         =   -1  'True
      Top             =   7980
      Width           =   285
   End
   Begin VB.Image imgWindowRight 
      Height          =   450
      Left            =   4500
      Picture         =   "Frm_dt_ll.frx":9F3E
      Stretch         =   -1  'True
      Top             =   7980
      Width           =   285
   End
   Begin VB.Image imgTitleMain 
      Height          =   450
      Left            =   3420
      Picture         =   "Frm_dt_ll.frx":A688
      Stretch         =   -1  'True
      Top             =   7950
      Width           =   285
   End
End
Attribute VB_Name = "Frm_zl_gl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As ADODB.Connection
Dim WithEvents RS As Recordset
Attribute RS.VB_VarHelpID = -1
Dim select_text As String

Private Sub Command1_Click()
 On Error Resume Next
            FrmSql.sqlado = "jb"
            FrmSql.intNumField = 5
            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
End Sub

Private Sub Command2_Click()
Unload Me
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 m_dt where 地图名称='" & bh & "'", db, adOpenStatic, adLockOptimistic
    Set DataGrid2.DataSource = rs1
    format_table2
     
    Case "下发记录"
    Set rs1 = New Recordset
    rs1.Open "select 编号,规格,数量,数量单位,领取时间,领取单位,批准人,经办人,领取人 from s_lqjl where 地图名称='" & bh & "' order by 编号 desc", db, adOpenStatic, adLockOptimistic
    Set DataGrid2.DataSource = rs1
    format_table3
    
    Case "入库记录"
   
    Set rs1 = New Recordset
    rs1.Open "select 规格,入库数,入库时间,经办人 from s_rkjl where 地图名称='" & bh & "'", db, adOpenStatic, adLockOptimistic
    Set DataGrid2.DataSource = rs1
    format_table4
    
    Case "销毁记录"
    
    Set rs1 = New Recordset
    rs1.Open "select 规格,销毁数,销毁方式,销毁时间,经办人 from s_xhjl 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\mapdata.lbl")
  Set RS = New Recordset
  RS.Open "select * from jb 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.Columns(0).Width = 1400
 DataGrid1.Columns(1).Width = 4600
 DataGrid1.Columns(2).Width = 1100
 DataGrid1.Columns(3).Width = 1100
 DataGrid1.Columns(4).Width = 1100
 
 DataGrid1.Columns(0).Caption = "     编号"
 DataGrid1.Columns(1).Caption = "              地图名称"
 DataGrid1.Columns(2).Caption = "   库存量"
 DataGrid1.Columns(3).Caption = "   下发数"
 DataGrid1.Columns(4).Caption = "   销毁数"
 
 End Sub
Private Sub format_table2()
 
 DataGrid2.Columns(0).Width = 1400
 DataGrid2.Columns(1).Width = 1400
 DataGrid2.Columns(2).Width = 1500
 DataGrid2.Columns(3).Width = 1000
 DataGrid2.Columns(4).Width = 3800
 DataGrid2.Columns(5).Width = 1500
 
 DataGrid2.Columns(0).Caption = "    地图类型"
 DataGrid2.Columns(1).Caption = "     密级"
 DataGrid2.Columns(2).Caption = "   比例尺"
 DataGrid2.Columns(3).Caption = " 数量单位"
 DataGrid2.Columns(4).Caption = "                 出版单位"
 DataGrid2.Columns(5).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_table4()
 
 DataGrid2.Columns(0).Width = 1500
 DataGrid2.Columns(1).Width = 1000
 DataGrid2.Columns(2).Width = 1500
 DataGrid2.Columns(3).Width = 1500

  
 DataGrid2.Columns(0).Caption = "     规 格"
 DataGrid2.Columns(1).Caption = " 入库数量"
 DataGrid2.Columns(2).Caption = "    入库时间"
 DataGrid2.Columns(3).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 = 1200
 DataGrid2.Columns(4).Width = 1000
 
 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