frm_main.frm

毕业论文 看看 毕业论文 看看 毕业论文 看看

         Caption         =   "年营业分析"
      End
   End
   Begin VB.Menu ysyf 
      Caption         =   "【应收应付管理】"
      Begin VB.Menu yfgl 
         Caption         =   "应付帐款管理"
         Shortcut        =   ^H
      End
      Begin VB.Menu gzgl 
         Caption         =   "挂帐管理"
         Shortcut        =   ^J
      End
      Begin VB.Menu lin8 
         Caption         =   "-"
      End
      Begin VB.Menu lsgz 
         Caption         =   "历史挂帐查询"
      End
   End
   Begin VB.Menu xtcs 
      Caption         =   "【系统初始设计】"
      Begin VB.Menu bdwdy 
         Caption         =   "本单位定义"
      End
      Begin VB.Menu gys 
         Caption         =   "供应商管理"
      End
      Begin VB.Menu line8 
         Caption         =   "-"
      End
      Begin VB.Menu ftlx 
         Caption         =   "房间台号类型设置"
      End
      Begin VB.Menu bmxxgl 
         Caption         =   "部门信息管理"
      End
      Begin VB.Menu ckinf 
         Caption         =   "仓库信息管理"
      End
      Begin VB.Menu ygjbgl 
         Caption         =   "员工级别管理"
      End
   End
   Begin VB.Menu xtgl 
      Caption         =   "【系统管理】"
      Begin VB.Menu xtwh 
         Caption         =   "系统维护向导"
      End
      Begin VB.Menu line5 
         Caption         =   "-"
      End
      Begin VB.Menu qxsz 
         Caption         =   "权限管理"
      End
   End
   Begin VB.Menu bz 
      Caption         =   "【帮助】"
      Begin VB.Menu help 
         Caption         =   "帮助"
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu gy 
         Caption         =   "关于"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "【退出】"
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub entercell()     '定义text1在MS1表中的位置函数
 If Text1.text = "1" Then Set myform = main_htgl_jhgl
 If Text1.text = "2" Then Set myform = main_qtgl_ktgl_ktfw
 If Text1.text = "3" Then Set myform = main_qtgl_ktgl_jcfw
 Dim X, y, p As String
 If myform.MS1.CellWidth <= 0 Or myform.MS1.CellHeight <= 0 Then Exit Sub
 X = myform.MS1.TextMatrix(myform.MS1.FixedRows, myform.MS1.Col)
 y = myform.MS1.TextMatrix(myform.MS1.Row, 0)
 If y <> "" Then
  If myform.MS1.Col - myform.MS1.LeftCol <= 3 Then myform.MS1.LeftCol = myform.MS1.LeftCol + 1
  If myform.MS1.CellWidth > 0 And myform.MS1.CellHeight > 0 Then
   myform.Text1.Width = myform.MS1.CellWidth:  myform.Text1.Height = myform.MS1.CellHeight
   myform.Text1.Left = myform.MS1.CellLeft + myform.MS1.Left
   myform.Text1.Top = myform.MS1.CellTop + myform.MS1.Top
  End If
  X = myform.MS1.TextMatrix(myform.MS1.FixedRows, myform.MS1.Col)
  y = myform.MS1.TextMatrix(myform.MS1.Row, 0)
  p = myform.MS1.TextMatrix(myform.MS1.Row, myform.MS1.Col)
  myform.Text1.text = myform.MS1.text
  myform.Text1.SelStart = 0
  myform.Text1.SelLength = Len(myform.Text1.text)
 End If
End Sub
Public Sub moveright()     '定义text1向右移动函数
 If Text1.text = "1" Then Set myform = main_htgl_jhgl
 If Text1.text = "2" Then Set myform = main_qtgl_ktgl_ktfw
 If Text1.text = "3" Then Set myform = main_qtgl_ktgl_jcfw
  If myform.Text1.text <> "" Then
     myform.Text1.SelStart = 0
     myform.Text1.SelLength = Len(myform.Text1.text)
  End If
  If myform.MS1.Col + 1 <= myform.MS1.Cols - 1 Then
     myform.MS1.Col = myform.MS1.Col + 1
    Else
     If myform.MS1.Row + 1 <= myform.MS1.Rows - 1 Then
        myform.MS1.Row = myform.MS1.Row + 1
        myform.MS1.Col = 1
     End If
  End If
End Sub
Public Sub moveleft()     '定义text1向左移动函数
 If Text1.text = "2" Then Set myform = main_qtgl_ktgl_ktfw
 If Text1.text = "3" Then Set myform = main_qtgl_ktgl_jcfw
 If myform.Text1.text <> "" Then
    myform.Text1.SelStart = 0
    myform.Text1.SelLength = Len(myform.Text1.text)
 End If
 If myform.MS1.Col - 8 <= myform.MS1.Cols + 1 Then
    myform.MS1.Col = myform.MS1.Col - 1
    If myform.MS1.Col = 0 Then myform.MS1.Col = 1
   Else
    If myform.MS1.Row + 1 <= myform.MS1.Row - 1 Then
       myform.MS1.Row = myform.MS1.Row + 1
       myform.MS1.Col = 1
    End If
 End If
End Sub
Public Sub movereturn()     '定义text1回车移动函数
 If Text1.text = "2" Then Set myform = main_qtgl_ktgl_ktfw
 If Text1.text = "3" Then Set myform = main_qtgl_ktgl_jcfw
 If myform.MS1.Col = 8 Then
    myform.MS1.Row = myform.MS1.Row + 1
    myform.MS1.Col = 1
  Else
    If myform.MS1.Col + 1 <= myform.MS1.Cols - 1 Then
       myform.MS1.Col = myform.MS1.Col + 1
     Else
       If myform.MS1.Row + 1 <= myform.MS1.Rows - 1 Then
          myform.MS1.Row = myform.MS1.Row + 1
          myform.MS1.Col = 1
       End If
    End If
 End If
End Sub
Private Sub Form_Load()     '显示软件名称及版本
 Me.Caption = App.Title & "  版本： V" & App.Major & "." & App.Minor & "." & App.Revision
 Dim i As Integer     '定义一个整型变量
 For i = 0 To 1
 Label1(i).Caption = App.Title
 Next i
 Label2.Caption = "版本： V" & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub jhgl_Click()     '调入进货管理
  Load main_htgl_jhgl
  main_htgl_jhgl.Show
  frm_main.Enabled = False
End Sub
Private Sub jhcxtj_Click()     '调入进货查询统计
  Load main_htgl_jhcxtj
  main_htgl_jhcxtj.Show
  frm_main.Enabled = False
End Sub
Private Sub kccx_Click()     '调入库存查询
  Load main_htgl_kccx
  main_htgl_kccx.Show
  frm_main.Enabled = False
End Sub
Private Sub fjthgl_Click()     '调入房间台号管理
  Load main_htgl_fjthgl
  main_htgl_fjthgl.Show
  frm_main.Enabled = False
End Sub
Private Sub spxxgl_Click()     '调入商品信息管理
  Load main_htgl_spinf
  main_htgl_spinf.Show
  frm_main.Enabled = False
End Sub
Private Sub ygxxgl_Click()     '调入员工信息管理
  Load main_htgl_yginf
  main_htgl_yginf.Show
  frm_main.Enabled = False
End Sub
Private Sub ktgl_Click()     '调入开台管理
  Load main_qtgl_ktgl
  main_qtgl_ktgl.Show
  frm_main.Enabled = False
End Sub
Private Sub mdgl_Click()     '调入买单管理
  Load main_qtgl_mdgl
  main_qtgl_mdgl.Show
  frm_main.Enabled = False
End Sub
Private Sub rjzfx_Click()     '调入当日结帐数据分析
  Load main_qtgl_rjzfx
  main_qtgl_rjzfx.Show
  frm_main.Enabled = False
End Sub
Private Sub rjsgl_Click()     '调入日结算管理
  Load main_qtgl_rjgl
  main_qtgl_rjgl.Show
  frm_main.Enabled = False
End Sub
Private Sub yjsgl_Click()     '调入月结算管理
  Load main_czgl_yjgl
  main_czgl_yjgl.Show
  frm_main.Enabled = False
End Sub
Private Sub yyyfx_Click()     '调入月营业分析
  Load main_czgl_yjzfx
  main_czgl_yjzfx.Show
  frm_main.Enabled = False
End Sub
Private Sub nyyfx_Click()     '调入年营业分析
  Load main_czgl_njzfx
  main_czgl_njzfx.Show
  frm_main.Enabled = False
End Sub
Private Sub yfgl_Click()     '调入应付管理
  Load main_ysyf_yfzkgl
  main_ysyf_yfzkgl.Show
  frm_main.Enabled = False
End Sub
Private Sub gzgl_Click()     '调入挂帐管理
  Load main_ysyf_gzgl
  main_ysyf_gzgl.Show
  frm_main.Enabled = False
End Sub
Private Sub lsgz_Click()     '调入历史挂帐查询
  Load main_ysyf_lsgzcx
  main_ysyf_lsgzcx.Show
  frm_main.Enabled = False
End Sub
Private Sub bdwdy_Click()     '调入本单位定义
  Load main_bdwdy
  main_bdwdy.Show
  frm_main.Enabled = False
End Sub
Private Sub gys_Click()     '调入供应商管理
  Load main_gys
  main_gys.Show
  frm_main.Enabled = False
End Sub
Private Sub ftlx_Click()     '调入房台类型设置
  Load main_htgl_fjthlx
  main_htgl_fjthlx.Show
  frm_main.Enabled = False
End Sub
Private Sub bmxxgl_Click()     '调入部门信息管理
  Load main_htgl_bminf
  main_htgl_bminf.Show
  frm_main.Enabled = False
End Sub
Private Sub ckinf_Click()     '调入仓库信息管理
  Load main_htgl_ckinf
  main_htgl_ckinf.Show
  frm_main.Enabled = False
End Sub
Private Sub ygjbgl_Click()     '调入员工级别管理
  Load main_htgl_ygjb
  main_htgl_ygjb.Show
  frm_main.Enabled = False
End Sub
Private Sub xtwh_Click()     '调入系统维护向导
  Load main_xtgl_xtwh
  main_xtgl_xtwh.Show
  frm_main.Enabled = False
End Sub
Private Sub qxsz_Click()     '调入权限管理
  Load main_xtgl_qxgl
  main_xtgl_qxgl.Show
  frm_main.Enabled = False
End Sub
Private Sub help_Click()     '调入帮助
  Load frmTip
  frmTip.Show
  frm_main.Enabled = False
End Sub
Private Sub gy_Click()     '调入关于
  Load frmAbout
  frmAbout.Show
  frm_main.Enabled = False
End Sub
Private Sub Timer1_Timer()     '设置时间
 St1.Panels(1).text = Format(Date, "long date") & "    " & Time
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 Select Case Button.key
   Case Is = "rjs"
    rjsgl_Click     '调入日结算管理
   Case Is = "jzfx"
    rjzfx_Click     '调入当日结帐数据分析
   Case Is = "ktgl"
    ktgl_Click     '调入开台管理
   Case Is = "mdgl"
    mdgl_Click     '调入买单管理
   Case Is = "gzgl"
    gzgl_Click     '调入挂帐管理
   Case Is = "yfgl"
    yfgl_Click     '调入应付管理
   Case Is = "qxgl"
    qxsz_Click     '调入权限管理
   Case Is = "help"
    help_Click    '调入帮助
   Case Is = "about"
    gy_Click     '调入关于
   Case Is = "end"
     End
 End Select
End Sub
Private Sub exit_Click()
  End
End Sub