frmmain.frm

来自「本软件为咨询公司开发的合同管理软件,运用MDB数据库.」· FRM 代码 · 共 604 行 · 第 1/2 页

         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   435
      Left            =   4920
      TabIndex        =   2
      Top             =   2640
      Width           =   5400
   End
   Begin VB.Menu rr 
      Caption         =   "【数据录入】"
      Begin VB.Menu htr 
         Caption         =   "合同信息录入"
      End
      Begin VB.Menu kpr 
         Caption         =   "开票情况录入"
      End
      Begin VB.Menu skr 
         Caption         =   "收款情况录入"
      End
      Begin VB.Menu fgh2 
         Caption         =   "-"
      End
      Begin VB.Menu quit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu cx 
      Caption         =   "【数据修改】"
      Index           =   1
      Begin VB.Menu htx 
         Caption         =   "合同信息修改"
      End
      Begin VB.Menu kpx 
         Caption         =   "开票情况修改"
      End
      Begin VB.Menu skx 
         Caption         =   "收款情况修改 "
      End
   End
   Begin VB.Menu cx 
      Caption         =   "【数据查询】"
      Index           =   2
      Begin VB.Menu htcx 
         Caption         =   "合同信息查询"
      End
      Begin VB.Menu kpcx 
         Caption         =   "开票情况查询"
      End
      Begin VB.Menu skcx 
         Caption         =   "收款情况查询"
      End
      Begin VB.Menu aa 
         Caption         =   "-"
      End
      Begin VB.Menu hh1 
         Caption         =   "按年份查询"
      End
      Begin VB.Menu hh2 
         Caption         =   "按签约人查询"
      End
      Begin VB.Menu hh3 
         Caption         =   "按责任人查询"
      End
      Begin VB.Menu hh4 
         Caption         =   "按咨询师查询"
      End
      Begin VB.Menu hh5 
         Caption         =   "按企业类别查询"
      End
      Begin VB.Menu p 
         Caption         =   "-"
      End
      Begin VB.Menu pmkp 
         Caption         =   "部门开票查询"
      End
      Begin VB.Menu pmsk 
         Caption         =   "部门收款查询"
      End
   End
   Begin VB.Menu gzsjtj 
      Caption         =   "【辅助信息维护】"
      Index           =   3
      Begin VB.Menu txh 
         Caption         =   "体系数据维护"
      End
      Begin VB.Menu jgh 
         Caption         =   "机构数据维护"
      End
      Begin VB.Menu qyr 
         Caption         =   "签约人数据维护"
      End
      Begin VB.Menu zrr 
         Caption         =   "责任人数据维护"
      End
      Begin VB.Menu zxs 
         Caption         =   "咨询师数据维护"
      End
      Begin VB.Menu qyl 
         Caption         =   "企业类别数据维护"
      End
      Begin VB.Menu mm 
         Caption         =   "-"
      End
      Begin VB.Menu czsj 
         Caption         =   "设置操作数据文件"
      End
      Begin VB.Menu mmxg 
         Caption         =   "密码设置修改"
      End
   End
   Begin VB.Menu qt 
      Caption         =   "【其    他】"
      Index           =   4
      Begin VB.Menu jsq 
         Caption         =   "计算器"
      End
      Begin VB.Menu zb 
         Caption         =   "空挡接龙"
      End
      Begin VB.Menu sl 
         Caption         =   "扫  雷"
      End
   End
   Begin VB.Menu help 
      Caption         =   "【帮    助】"
      Index           =   5
      Begin VB.Menu sysm 
         Caption         =   "使用说明"
      End
      Begin VB.Menu about 
         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 about_Click()
    frmAbout.Show
End Sub


Private Sub czsj_Click()
浏览数据文件.Show
End Sub

Private Sub Form_Load()
frmMAIN.Caption = "上海万韵技术咨询有限公司      现在操作的数据库为：" & czk
End Sub

Private Sub hh1_Click()
信息打印.Show
End Sub

Private Sub hh2_Click()
信息查询1.Show
End Sub

Private Sub hh3_Click()
信息查询3.Show
End Sub

Private Sub hh4_Click()
信息查询2.Show
End Sub

Private Sub hh5_Click()
信息查询4.Show
End Sub

Private Sub htcx_Click()
合同信息查询.Show
End Sub

Private Sub htr_Click()
合同信息录入.Show
End Sub

Private Sub htx_Click()
合同信息修改.Show
End Sub

Private Sub jgh_Click()
认证机构录入.Show
End Sub

Private Sub jsq_Click()
    REtval = Shell("calc.exe", 1)
End Sub

Private Sub kpcx_Click()
开票情况查询.Show
End Sub

Private Sub kpr_Click()
开票情况录入.Show
End Sub

Private Sub kpx_Click()
开票情况修改.Show
End Sub

Private Sub Label3_Click()

End Sub

Private Sub mmxg_Click()
设置.Show
End Sub

Private Sub pmkp_Click()
    部门开票查询.Show
End Sub

Private Sub pmsk_Click()
    部门收款查询.Show
End Sub

Private Sub quit_Click()
   End
End Sub

Private Sub qyl_Click()
    企业类别录入.Show
End Sub

Private Sub qyr_Click()
签约人录入.Show
End Sub

Private Sub skcx_Click()
收款情况查询.Show
End Sub

Private Sub skr_Click()
收款情况录入.Show
End Sub

Private Sub skx_Click()
收款情况修改.Show
End Sub

Private Sub sl_Click()
    REtval = Shell("winmine.exe", 1)
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "h1"
       合同信息录入.Show
 
        Case "h2"
        开票情况录入.Show
        
        Case "h3"
        收款情况录入.Show

        Case "x1"
        合同信息修改.Show
        Case "x2"
        开票情况修改.Show
        Case "x3"
        收款情况修改.Show

        Case "c1"
           合同信息查询.Show
        Case "c2"
           开票情况查询.Show
        Case "c3"
        收款情况查询.Show

        Case "tx"
            体系录入.Show
        Case "jg"
            认证机构录入.Show
        Case "exit"
              End
        
    End Select

End Sub

Private Sub txh_Click()
体系录入.Show
End Sub

Private Sub zb_Click()
    REtval = Shell("FREECELL.EXE", 1)
End Sub

Private Sub zrr_Click()
    责任人录入.Show
End Sub

Private Sub zxs_Click()
    咨询师录入.Show
End Sub