formxt.frm

来自「来往帐、增票登记」· FRM 代码 · 共 91 行

VERSION 5.00
Begin VB.Form Formxt 
   Caption         =   "新特药财务系统"
   ClientHeight    =   7080
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   9495
   LinkTopic       =   "Form1"
   ScaleHeight     =   7080
   ScaleWidth      =   9495
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H80000011&
      BorderStyle     =   0  'None
      Height          =   6975
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9495
   End
   Begin VB.Menu dwzl 
      Caption         =   "单位资料"
      Begin VB.Menu dwzlgl 
         Caption         =   "单位资料管理"
      End
   End
   Begin VB.Menu zp 
      Caption         =   "增值税票签收登记管理"
      Begin VB.Menu zpdj 
         Caption         =   "增值税票签收登记"
      End
      Begin VB.Menu zpcx 
         Caption         =   "增值税票签收登记查询"
      End
      Begin VB.Menu zpdq 
         Caption         =   "增值税票到期查询"
      End
   End
   Begin VB.Menu dwlw 
      Caption         =   "单位来往帐"
      Begin VB.Menu dwlwdj 
         Caption         =   "单位来往帐登记"
      End
      Begin VB.Menu dwlwcx 
         Caption         =   "单位来往帐查询"
      End
   End
   Begin VB.Menu tc 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "Formxt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub 退出系统_Click()

End Sub

Private Sub dwlwcx_Click()
Formdwcx.Show 1
End Sub

Private Sub dwlwdj_Click()
Formdwdj.Show 1
End Sub

Private Sub dwzlgl_Click()
Formdwzl.Show 1
End Sub

Private Sub tc_Click()
If MsgBox("是否退出系统？", vbOKCancel, "系统提示") = 1 Then
  Unload Me
  End
End If
End Sub

Private Sub zpcx_Click()
  Formzpcx.Show 1
End Sub

Private Sub zpdj_Click()
Formspdj.Show 1
End Sub

Private Sub zpdq_Click()
Formspdq.Show 1
End Sub