mainform.frm

这个就不用多说了

VERSION 5.00
Begin VB.MDIForm Mainform 
   BackColor       =   &H8000000C&
   Caption         =   "国有资产管理软件"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   1020
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   Picture         =   "Mainform.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu MenuSZ 
      Caption         =   "    设    置    "
      Begin VB.Menu MenuGyzcKpKd 
         Caption         =   "国有资产卡片宽度"
      End
      Begin VB.Menu MenuGyzcFl 
         Caption         =   "国有资产卡片分类"
      End
      Begin VB.Menu MenuBmKd 
         Caption         =   "部  门  宽  度"
      End
      Begin VB.Menu GyzcBmFl 
         Caption         =   "部  门  分  类"
      End
      Begin VB.Menu MenuAddMode 
         Caption         =   "增  加  方  式 "
      End
      Begin VB.Menu MenuLessMode 
         Caption         =   "减  少  方  式 "
      End
   End
   Begin VB.Menu w 
      Caption         =   ""
   End
   Begin VB.Menu a 
      Caption         =   ""
   End
   Begin VB.Menu MenuZCCZ 
      Caption         =   "  日常操作  "
      Begin VB.Menu MenuKpZj 
         Caption         =   "卡 片 增 加"
      End
      Begin VB.Menu MenuKpXg 
         Caption         =   "卡 片 修 改"
      End
      Begin VB.Menu MenuKpSc 
         Caption         =   "卡 片 删 除"
      End
      Begin VB.Menu MenuKpJs 
         Caption         =   "卡 片 减 少"
      End
      Begin VB.Menu menuQxJs 
         Caption         =   "取 消 减 少"
      End
      Begin VB.Menu MenuKpZy 
         Caption         =   "卡 片 转 移"
      End
   End
   Begin VB.Menu k 
      Caption         =   ""
   End
   Begin VB.Menu b 
      Caption         =   ""
   End
   Begin VB.Menu Menubb 
      Caption         =   "     报    表    "
      Begin VB.Menu Menubb1 
         Caption         =   "卡片列表（简单）"
      End
      Begin VB.Menu Menubb5 
         Caption         =   "卡片列表（复杂）"
      End
      Begin VB.Menu Menubb2 
         Caption         =   "卡片转移记录"
      End
      Begin VB.Menu Menubb3 
         Caption         =   "卡片部门汇总表"
      End
      Begin VB.Menu Menubb4 
         Caption         =   "卡片类别汇总表"
      End
   End
   Begin VB.Menu n 
      Caption         =   ""
   End
   Begin VB.Menu c 
      Caption         =   ""
   End
   Begin VB.Menu MenuXt 
      Caption         =   "  系统管理  "
      Begin VB.Menu MenuCjzt 
         Caption         =   "新建帐套"
      End
      Begin VB.Menu MenuSjHf 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu MenuSjbf 
         Caption         =   "数据备份"
      End
      Begin VB.Menu MentCzygl 
         Caption         =   "操作员管理"
      End
      Begin VB.Menu MenuCxjc 
         Caption         =   "重新注册"
      End
   End
End
Attribute VB_Name = "Mainform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub GyzcBmFl_Click()

FlMain.strtable = "DwBmCode"
FlMain.Caption = "部门分类"
FlMain.show 1
End Sub

Private Sub MentCzygl_Click()
Zygl.show 1
End Sub

Private Sub MenuAddMode_Click()
mode.strtable = "AddMode"
mode.Caption = "输入增加方式"
mode.show 1
End Sub

Private Sub Menubb1_Click()
Bbcx2.show 1
End Sub

Private Sub Menubb2_Click()
Dim myclass As New Bb
Dim str As String
str = "SELECT dbo.GyzcCare.BH AS 编号, dbo.GyzcCare.Name AS 名称," & _
      "dbo.GyzcCare.Je AS 金额, dbo.DbRecord.OutBm AS 转出部门," & _
      "dbo.DbRecord.INBm AS 转入部门, dbo.DbRecord.Sj AS 转出时间 FROM dbo.DbRecord INNER JOIN " & _
      " dbo.GyzcCare ON dbo.DbRecord.CareId = dbo.GyzcCare.BH"
Call myclass.AddGrid(str, Bb1.MSHFlexGrid1)
Bb1.show 1
End Sub

Private Sub Menubb3_Click()
Bb2.strtable = "DwBmCode"
Bb2.show 1
End Sub

Private Sub Menubb4_Click()
Bb2.strtable = "GyzcCode"
Bb2.show 1
End Sub

Private Sub Menubb5_Click()
Bbcx1.show 1
End Sub

Private Sub MenuBmKd_Click()

      CodeMode.CodeMame = "DwBm"
        CodeMode.Caption = "部门代码宽设置"
      CodeMode.show (1)
End Sub

Private Sub MenuCjzt_Click()
JZ.show 1
End Sub

Private Sub MenuCxjc_Click()
Unload Me
DlForm.show 1
End Sub

Private Sub MenuGyzcFl_Click()

FlMain.strtable = "GyzcCode"
FlMain.Caption = "资产分类"
FlMain.show 1
End Sub

Private Sub MenuGyzcKpKd_Click()
 Dim myform As New CodeMode
     myform.CodeMame = "Gyzc"
       myform.Caption = "国有资产代码宽设置"
     myform.show (1)

End Sub

Private Sub MenuZcJs_Click()
CareFind.show 1
End Sub

Private Sub MenuKpJs_Click()
Gare.state = "Less"
CareFind.show 1
End Sub

Private Sub MenuKpSc_Click()
Gare.state = "Delete"
CareFind.show 1
End Sub

Private Sub MenuKpXg_Click()
Gare.state = "Edit"
CareFind.show 1
End Sub

Private Sub MenuKpZj_Click()
Gare.state = "Add"
Gare.show 1

End Sub

Private Sub MenuKpZy_Click()
Gare.state = "Goto"
CareFind.show 1
End Sub

Private Sub MenuLessMode_Click()
mode.strtable = "LessMode"
mode.Caption = "输入减少方式"
mode.show 1
End Sub

Private Sub menuQxJs_Click()
Gare.state = "NotLess"
CareFind.show 1
End Sub