frmmain.frm

本套程序是一款基于VB+Access实现的轻型杂志分发管理系统

VERSION 5.00
Begin VB.Form Frmmain 
   Caption         =   "杂志分发系统 V1.0"
   ClientHeight    =   4275
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   6165
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Frmmain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Moveable        =   0   'False
   Picture         =   "Frmmain.frx":06EA
   ScaleHeight     =   4275
   ScaleWidth      =   6165
   StartUpPosition =   1  '所有者中心
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "清河铁棉学校教育软件系列"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   180
      Left            =   3360
      TabIndex        =   0
      Top             =   3720
      Width           =   2160
   End
   Begin VB.Menu file_meun 
      Caption         =   "文件(&F)"
      Begin VB.Menu load_f 
         Caption         =   "录入(&L)"
         Begin VB.Menu maga_f 
            Caption         =   "杂志基本录入..."
         End
         Begin VB.Menu reader_f 
            Caption         =   "读者录入..."
         End
      End
      Begin VB.Menu exit_f 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu bianji_meun 
      Caption         =   "编辑(&E)"
      Begin VB.Menu publ_e 
         Caption         =   "杂志基本信息编辑..."
      End
      Begin VB.Menu reader_e 
         Caption         =   "读者信息编辑..."
      End
      Begin VB.Menu dy_e 
         Caption         =   "订阅信息编辑"
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu dydk_e 
         Caption         =   "订阅清空"
      End
   End
   Begin VB.Menu maga_meun 
      Caption         =   "订阅(&O)"
      Begin VB.Menu borrow_m 
         Caption         =   "杂志订阅..."
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu cjzl_q 
         Caption         =   "杂志分发..."
      End
   End
   Begin VB.Menu query_meun 
      Caption         =   "查询(&Q)"
      Begin VB.Menu maga_e 
         Caption         =   "杂志基本查询..."
      End
      Begin VB.Menu teacher_q 
         Caption         =   "读者查询"
      End
      Begin VB.Menu line5 
         Caption         =   "-"
      End
      Begin VB.Menu return_m 
         Caption         =   "订阅查询..."
      End
      Begin VB.Menu publ_q 
         Caption         =   "分发查询..."
      End
   End
End
Attribute VB_Name = "Frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub borrow_m_Click()
Frmdingyueload.Show
End Sub
'Download by http://www.codefans.net
Private Sub cjzl_q_Click()
Frmfenfaload.Show
End Sub

Private Sub dy_e_Click()
Frmdingyuemodify.Show
End Sub

Private Sub exit_f_Click()
Dim a As String

a = MsgBox("真的要退出系统吗?", vbQuestion + vbYesNo, "退出")
If a = vbYes Then
   End
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim a As String

a = MsgBox("真的要退出系统吗?", vbQuestion + vbYesNo, "退出")
If a = vbYes Then
   End
Else
 Cancel = 1
End If

End Sub

Private Sub maga_e_Click()
frmpublishquery.Caption = "出版社检索"
frmpublishquery.Show
End Sub

Private Sub maga_f_Click()
Frmpublishload.Show
End Sub

Private Sub publ_e_Click()
Frmpublishmodify.Show
End Sub

Private Sub publ_q_Click()
Frmdingyuequery.Option1(1).Value = True
Frmdingyuequery.Show
End Sub

Private Sub reader_e_Click()
Frmreadermodify.Show
End Sub

Private Sub reader_f_Click()
Frmreaderload.Show
End Sub

Private Sub return_m_Click()
Frmdingyuequery.Option1(0).Value = True
Frmdingyuequery.Show
End Sub

Private Sub teacher_q_Click()
With frmpublishquery
  .Caption = "教师查询"
  .Option1(0).Caption = "教师姓名"
  .Option1(1).Caption = "办公室"
  .Show
End With
End Sub