frm_main.frm

简单的进销存vb源代码

      End
   End
   Begin VB.Menu CXTJ 
      Caption         =   "【查询统计】"
      Begin VB.Menu rkcx 
         Caption         =   "入库查询"
         Shortcut        =   ^{F1}
      End
      Begin VB.Menu thfccx 
         Caption         =   "入库退货查询"
      End
      Begin VB.Menu line43 
         Caption         =   "-"
      End
      Begin VB.Menu xscx 
         Caption         =   "销售查询"
         Shortcut        =   ^{F2}
      End
      Begin VB.Menu xsthcx 
         Caption         =   "销售退货查询"
         Shortcut        =   ^{F3}
      End
   End
   Begin VB.Menu khxxgl 
      Caption         =   "【基础信息管理】"
      Begin VB.Menu gysgl 
         Caption         =   "供应商管理(Y)"
         Shortcut        =   ^Y
      End
      Begin VB.Menu line11 
         Caption         =   "-"
      End
      Begin VB.Menu khgl 
         Caption         =   "客户管理(K)"
         Shortcut        =   ^K
      End
   End
   Begin VB.Menu xt 
      Caption         =   "【系统设置】"
      Begin VB.Menu cqjz 
         Caption         =   "初期建帐"
         Shortcut        =   {F1}
      End
      Begin VB.Menu line333 
         Caption         =   "-"
      End
      Begin VB.Menu mmsz 
         Caption         =   "密码设置"
         Shortcut        =   {F2}
      End
      Begin VB.Menu line30 
         Caption         =   "-"
      End
      Begin VB.Menu sjbf 
         Caption         =   "数据备份"
         Shortcut        =   {F3}
      End
      Begin VB.Menu sjhf 
         Caption         =   "数据恢复"
         Shortcut        =   {F4}
      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()
 Dim x, y As String
 If text1.Text = "1" Then Set myform = main_rcyw_rk
 If text1.Text = "2" Then Set myform = main_rcyw_rktd
 If text1.Text = "3" Then Set myform = main_rcyw_xs
 If text1.Text = "4" Then Set myform = main_rcyw_xstd
 If myform.mf1.CellWidth <= 0 Or myform.mf1.CellHeight <= 0 Then Exit Sub
 x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)
 y = myform.mf1.TextMatrix(myform.mf1.Row, 0)
  If y <> "" Then
     If myform.mf1.Col - myform.mf1.LeftCol <= 3 Then
        myform.mf1.LeftCol = myform.mf1.LeftCol + 1
     End If
     If myform.mf1.CellWidth > 0 And myform.mf1.CellHeight > 0 Then
        myform.text1.Width = myform.mf1.CellWidth
        myform.text1.Height = myform.mf1.CellHeight
        myform.text1.Left = myform.mf1.CellLeft + myform.mf1.Left
        myform.text1.Top = myform.mf1.CellTop + myform.mf1.Top
     End If
     x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)
     y = myform.mf1.TextMatrix(myform.mf1.Row, 0)
     p = myform.mf1.TextMatrix(myform.mf1.Row, myform.mf1.Col)
     myform.text1.Text = myform.mf1.Text
     myform.text1.SelStart = 0
     myform.text1.SelLength = Len(myform.text1.Text)
  End If
End Sub
Public Sub moveright()
 If text1.Text = "1" Then Set myform = main_rcyw_rk
 If text1.Text = "2" Then Set myform = main_rcyw_rktd
 If text1.Text = "3" Then Set myform = main_rcyw_xs
 If text1.Text = "4" Then Set myform = main_rcyw_xstd
 If myform.text1.Text <> "" Then
    myform.text1.SelStart = 0
    myform.text1.SelLength = Len(myform.text1.Text)
 End If
 If myform.mf1.Col + 1 <= myform.mf1.Cols - 1 Then
    myform.mf1.Col = myform.mf1.Col + 1
   Else
    If myform.mf1.Row + 1 <= myform.mf1.Rows - 1 Then
       myform.mf1.Row = myform.mf1.Row + 1
       myform.mf1.Col = 1
    End If
 End If
End Sub
Public Sub moveleft()
 If text1.Text = "1" Then Set myform = main_rcyw_rk
 If text1.Text = "2" Then Set myform = main_rcyw_rktd
 If text1.Text = "3" Then Set myform = main_rcyw_xs
 If text1.Text = "4" Then Set myform = main_rcyw_xstd
 If myform.text1.Text <> "" Then
   myform.text1.SelStart = 0
   myform.text1.SelLength = Len(myform.text1.Text)
 End If
 If myform.mf1.Col - 11 <= myform.mf1.Cols + 1 Then
    myform.mf1.Col = myform.mf1.Col - 1
    If myform.mf1.Col = 0 Then myform.mf1.Col = 1
   Else
    If myform.mf1.Row + 1 <= myform.mf1.Row - 1 Then
       myform.mf1.Row = myform.mf1.Row + 1
       myform.mf1.Col = 1
    End If
 End If
End Sub
Public Sub movereturn()
 If text1.Text = "1" Then Set myform = main_rcyw_rk
 If text1.Text = "2" Then Set myform = main_rcyw_rktd
 If text1.Text = "3" Then Set myform = main_rcyw_xs
 If text1.Text = "4" Then Set myform = main_rcyw_xstd
 If myform.mf1.Col = 10 Then
    myform.mf1.Row = myform.mf1.Row + 1
    myform.mf1.Col = 1
  Else
    If myform.mf1.Col + 1 <= myform.mf1.Cols - 1 Then
       myform.mf1.Col = myform.mf1.Col + 1
     Else
       If myform.mf1.Row + 1 <= myform.mf1.Rows - 1 Then
          myform.mf1.Row = myform.mf1.Row + 1
          myform.mf1.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 rkd_Click()     '调入入库单
  Load main_rcyw_rk
  main_rcyw_rk.Show
  frm_main.Enabled = False
End Sub
Private Sub xsd_Click()     '调入销售单
  Load main_rcyw_xs
  main_rcyw_xs.Show
  frm_main.Enabled = False
End Sub
Private Sub xsth_Click()     '调入销售退货
  Load main_rcyw_xstd
  main_rcyw_xstd.Show
  frm_main.Enabled = False
End Sub
Private Sub rkth_Click()     '调入退货返厂
  Load main_rcyw_rktd
  main_rcyw_rktd.Show
  frm_main.Enabled = False
End Sub
Private Sub kccx_Click()     '调入库存查询
  Load main_kcgl_kccx
  main_kcgl_kccx.Show
  frm_main.Enabled = False
End Sub
Private Sub kcpd_Click()     '调入库存盘点
  Load main_kcgl_kcpd
  main_kcgl_kcpd.Show
  frm_main.Enabled = False
End Sub
Private Sub jggl_Click()     '调入价格管理
  Load main_kcgl_jggl
  main_kcgl_jggl.Show
  frm_main.Enabled = False
End Sub
Private Sub rkcx_Click()     '调入入库查询
  Load main_rqDialog
  main_rqDialog.Show
  main_rqDialog.text1.Text = "0"
  frm_main.Enabled = False
End Sub
Private Sub thfccx_Click()     '调入退货返厂
  Load main_rqDialog
  main_rqDialog.Show
  main_rqDialog.text1.Text = "1"
  frm_main.Enabled = False
End Sub
Private Sub xscx_Click()     '调入销售查询
  Load main_rqDialog
  main_rqDialog.Show
  main_rqDialog.text1.Text = "2"
  frm_main.Enabled = False
End Sub
Private Sub xsthcx_Click()     '调入销售退货查询
  Load main_rqDialog
  main_rqDialog.Show
  main_rqDialog.text1.Text = "3"
  frm_main.Enabled = False
End Sub
Private Sub gysgl_Click()     '调入供应商管理
  Load main_jbxx_gys
  main_jbxx_gys.Show
  frm_main.Enabled = False
End Sub
Private Sub khgl_Click()     '调入客户管理
  Load main_jbxx_kh
  main_jbxx_kh.Show
  frm_main.Enabled = False
End Sub
Private Sub cqjz_Click()     '调入初期建帐
  Load main_xt_cqjz
  main_xt_cqjz.Show
  frm_main.Enabled = False
End Sub
Private Sub mmsz_Click()     '调入密码设置
  Load main_xt_mmsz
  main_xt_mmsz.Show
  frm_main.Enabled = False
End Sub
Private Sub sjbf_Click()     '调入数据备份
  Load main_xt_sjbf
  main_xt_sjbf.Show
  frm_main.Enabled = False
End Sub
Private Sub sjhf_Click()     '调入数据恢复
  Load main_xt_sjhf
  main_xt_sjhf.Show
  frm_main.Enabled = False
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
     Case Is = "rkd"     '调入入库单
       rkd_Click
     Case Is = "xsd"     '调入销售单
       xsd_Click
     Case Is = "xscx"     '调入销售查询
       xscx_Click
     Case Is = "kccx"     '调入库存查询
       kccx_Click
     Case Is = "gys"     '调入供应商管理
       gysgl_Click
     Case Is = "kh"     '调入客户管理
       khgl_Click
     Case Is = "cqjz"     '调入初期建帐
       cqjz_Click
  End Select
End Sub
Private Sub exit_Click()
  End
End Sub