档案管理.frm

档案管理系统源码档 案管理系统源码

VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H8000000D&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "档案管理主页"
   ClientHeight    =   5085
   ClientLeft      =   90
   ClientTop       =   480
   ClientWidth     =   8970
   FillColor       =   &H00FF0000&
   FillStyle       =   3  'Vertical Line
   FontTransparent =   0   'False
   LinkTopic       =   "Form3"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   Picture         =   "档案管理.frx":0000
   ScaleHeight     =   5085
   ScaleWidth      =   8970
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Visible         =   0   'False
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "档案管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   2175
      Left            =   1320
      TabIndex        =   0
      Top             =   1200
      Width           =   6495
   End
   Begin VB.Menu 系统菜单 
      Caption         =   "系统菜单"
      Begin VB.Menu 添加用户 
         Caption         =   "添加用户"
      End
      Begin VB.Menu 退出系统 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu 档案信息 
      Caption         =   "档案信息"
      Begin VB.Menu 档案表 
         Caption         =   "档案表"
      End
      Begin VB.Menu 部门表 
         Caption         =   "部门表"
      End
      Begin VB.Menu 电子阅览表 
         Caption         =   "电子阅览表"
      End
      Begin VB.Menu 档案记录表 
         Caption         =   "档案记录表"
      End
      Begin VB.Menu 职称表 
         Caption         =   "部门负责人表"
      End
      Begin VB.Menu 职工表 
         Caption         =   "职工表"
      End
   End
   Begin VB.Menu 查询 
      Caption         =   "查询"
      Begin VB.Menu 按职工编号 
         Caption         =   "按职工编号"
      End
      Begin VB.Menu 按职工姓名 
         Caption         =   "按职工姓名"
      End
      Begin VB.Menu 按全宗号 
         Caption         =   "按全宗号"
      End
      Begin VB.Menu 按档案名 
         Caption         =   "按档案名"
      End
   End
   Begin VB.Menu 档案操作 
      Caption         =   "档案操作"
      Begin VB.Menu 添加记录 
         Caption         =   "添加记录"
      End
      Begin VB.Menu 删除记录 
         Caption         =   "删除记录"
      End
      Begin VB.Menu 修改记录 
         Caption         =   "修改记录"
      End
      Begin VB.Menu 档案卡 
         Caption         =   "档案卡"
      End
   End
   Begin VB.Menu 消息发布 
      Caption         =   "消息发布"
      Begin VB.Menu 最新消息 
         Caption         =   "最新消息"
      End
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助"
      Begin VB.Menu 关于 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False





Private Sub 基本信息_Click()

End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub Command1_Click()

End Sub

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

Private Sub 按档案名_Click()
Form9.Show
End Sub

Private Sub 按全宗号_Click()
Form10.Show
End Sub

Private Sub 按职工编号_Click()
Form5.Show
End Sub

Private Sub 按职工姓名_Click()
Form6.Show
End Sub

Private Sub 档案状态表_Click()

End Sub

Private Sub 部门表_Click()
Form16.Show

End Sub

Private Sub 打印_Click()

End Sub

Private Sub 档案表_Click()
Form15.Show
End Sub

Private Sub 档案记录表_Click()
Form18.Show

End Sub

Private Sub 档案卡_Click()
Form14.Show
End Sub

Private Sub 电子阅览表_Click()
Form17.Show

End Sub

Private Sub 关于_Click()
Form4.Show

End Sub

 

Private Sub 删除记录_Click()
Form7.Show
End Sub

Private Sub 添加记录_Click()
Form11.Show
End Sub

Private Sub 添加用户_Click()
Form2.Show
End Sub

Private Sub 退出系统_Click()
  Unload Me
  Exit Sub
End Sub

Private Sub 修改记录_Click()
Form13.Show
End Sub


Private Sub 职称表_Click()
Form19.Show

End Sub

Private Sub 职工表_Click()
Form20.Show

End Sub

Private Sub 最新消息_Click()
Form8.Show

End Sub