frm_main.frm

销售合同的咚咚

      Begin VB.Menu bb_fh 
         Caption         =   "销售发货报表(F)"
         Shortcut        =   ^F
      End
      Begin VB.Menu bb_th 
         Caption         =   "销售退货报表(T)"
         Shortcut        =   ^T
      End
      Begin VB.Menu 空 
         Caption         =   "-"
      End
      Begin VB.Menu bb_ht 
         Caption         =   "合同报表(H)"
         Shortcut        =   ^H
      End
      Begin VB.Menu bb_kc 
         Caption         =   "库存报表(S)"
         Shortcut        =   ^S
      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
   End
   Begin VB.Menu bz 
      Caption         =   "【关于】"
   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 bb_fh_Click()
发货报表.Show
End Sub

Private Sub bb_ht_Click()
合同报表.Show
End Sub

Private Sub bb_kc_Click()
库存报表.Show
End Sub

Private Sub bb_th_Click()
退货报表.Show
End Sub

Private Sub bdwdy_Click()  '调入本单位定义表
Load main_bdwdy
  main_bdwdy.Show
  frm_main.Enabled = False
End Sub

Private Sub bz_Click()
main_bz.Show
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(0).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 ht_lr_Click()
Load main_ht_htlr
main_ht_bg.Show
main_ht_htlr.Show
frm_main.Enabled = False
End Sub

Private Sub text1_Change()

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