bgsgl.frm

行政管理系统商业源码,可以down下来看看

VERSION 5.00
Begin VB.Form BGSGL 
   BackColor       =   &H80000001&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   8625
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   11910
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   8625
   ScaleWidth      =   11910
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   12135
      Begin VB.CommandButton Command3 
         Caption         =   "合同管理"
         Height          =   495
         Left            =   3090
         TabIndex        =   8
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command8 
         Caption         =   "图书管理"
         Height          =   495
         Left            =   7590
         TabIndex        =   7
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command7 
         Caption         =   "证照管理"
         Height          =   495
         Left            =   6090
         TabIndex        =   6
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command6 
         Caption         =   "行政管理"
         Height          =   495
         Left            =   4590
         TabIndex        =   5
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command1 
         Caption         =   "文件管理"
         Height          =   495
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command2 
         Caption         =   "档案管理"
         Height          =   495
         Left            =   1590
         TabIndex        =   3
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command4 
         Caption         =   "返回"
         Height          =   495
         Left            =   10620
         TabIndex        =   2
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command5 
         Caption         =   "系统管理"
         Height          =   495
         Left            =   9090
         TabIndex        =   1
         Top             =   240
         Width           =   1335
      End
   End
End
Attribute VB_Name = "BGSGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
WenJianGL.Show
Me.Enabled = False
End Sub

Private Sub Command2_Click()
DangAnGl.Show
Me.Enabled = False
End Sub





Private Sub mnuBuMenDiaoYue_Click()
Me.Enabled = False
F_DiaoYueBuMen.Show
End Sub

Private Sub mnuBuMenGuanLi_Click()

End Sub

Private Sub mnuBuMenGuiDang_Click()

End Sub

Private Sub mnuBuMenHaoHe_Click()

End Sub

Private Sub mnuChuXianGuanLi_Click()

End Sub

Private Sub mnuDangAnShiGuiDang_Click()

End Sub

Private Sub mnuDiaoYue_Click()

End Sub

Private Sub mnuJingYingJiHua_Click()

End Sub

Private Sub mnuSheBeiDengJi_Click()

End Sub

Private Sub mnuXingZhengZhiBan_Click()

End Sub

Private Sub mnuYunXingJiLu_Click()
End Sub

Private Sub mnuZhiBan_Click()

End Sub

Private Sub mnuZhiBanJiLu_Click()

End Sub

Private Sub mnuZhiBanJingLiZhiBan_Click()

End Sub

Private Sub mnuZhuanDang_Click()

End Sub

Private Sub mnuZiLiuWen_Click()

End Sub

Private Sub HTFKQK_Click()
    FrmHTFKQKSearch.Show
    Me.Enabled = False
End Sub

Private Sub HTGY_Click()
    FrmQDHTGY.Show
    Me.Enabled = False
End Sub



Private Sub ZXQKQR_Click()
    FrmZXQKQRSearch.Show
    Me.Enabled = False
End Sub

Private Sub Command3_Click()
    HTGL.Show
    Me.Enabled = False
End Sub

Private Sub Command4_Click()
    Unload Me
    
End Sub

Private Sub Command5_Click()
Me.Enabled = False
XiTongGl.Show
End Sub

Private Sub Command6_Click()
XingZhengGL.Show
Me.Enabled = False
End Sub

Private Sub Command7_Click()
ZhengZhaoGuanli.Show
Me.Enabled = False
End Sub

Private Sub Command8_Click()
TuShuGuanli.Show
Me.Enabled = False
End Sub