fmain.frm

一个进销存系统,界面清楚,操作简单,是一个不错的企业进销存系统

            Style           =   6
            Alignment       =   1
            Object.Width           =   2999
            MinWidth        =   2999
            TextSave        =   "2005-12-30"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   2
            TextSave        =   "21:54"
         EndProperty
      EndProperty
   End
   Begin VB.Menu sysm 
      Caption         =   "系统[&S]"
      Begin VB.Menu cpm 
         Caption         =   "更改密码 [&c]"
      End
      Begin VB.Menu intm 
         Caption         =   "初 始 化 [&i]"
      End
   End
   Begin VB.Menu editm 
      Caption         =   "编辑[&E]"
      Begin VB.Menu ywlr 
         Caption         =   "业务录入 [&i]"
      End
      Begin VB.Menu find 
         Caption         =   "查询"
         Begin VB.Menu ywy 
            Caption         =   "按业务员姓名 [&n]"
         End
         Begin VB.Menu sp 
            Caption         =   "按商品名称 [&s]"
         End
         Begin VB.Menu kh 
            Caption         =   "按客户名称 [&k]"
         End
         Begin VB.Menu ml 
            Caption         =   "按毛利 [&m]"
         End
         Begin VB.Menu ysk 
            Caption         =   "按应收款 [&y]"
         End
         Begin VB.Menu rq 
            Caption         =   "按日期 [&d]"
         End
         Begin VB.Menu qkm 
            Caption         =   "按欠款 [&q]"
         End
         Begin VB.Menu al 
            Caption         =   "全部显示 [&a]"
         End
      End
   End
   Begin VB.Menu abum 
      Caption         =   "关于软件 [&A]"
   End
   Begin VB.Menu coum 
      Caption         =   "合计及毛利率 [&c]"
   End
End
Attribute VB_Name = "fmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub abum_Click()
Ins.Show vbModal
End Sub

Private Sub al_Click()
Load jg
jg.Data1.RecordSource = "select * from yw"
jg.Data1.Refresh
jg.Show vbModal
End Sub

Private Sub cpm_Click()
f:
Dim npsw1 As String
Dim npsw2 As String
npsw1 = InputBox("请输入你要改变的新密码!", "变更密码")
npsw2 = InputBox("请再次输入你要改变的新密码!", "确认变改密码")
If npsw2 = npsw1 Then
  SaveSetting "pws", "pws", "pws", npsw1
  MsgBox "密码变更成功，您的新密码是:" + npsw1
Else
   MsgBox "两次密码输入不一致，请重新输入！"
End If
If npsw2 = "" Or npsw1 = "" Then
  MsgBox "密码不能为空！"

  GoTo f
  
End If
End Sub

Private Sub Form_Load()
MM1.hWndDisplay = Picture1.hWnd
MM1.Wait = True
MM1.DeviceType = "AVIVideo"
MM1.FileName = "d:\YWGL\a1.avi"
MM1.Command = "open"
MM1.Command = "play"
End Sub

Private Sub Picture2_Click()

End Sub

Private Sub intm_Click()
intf.Show vbModal
End Sub

Private Sub kh_Click()
findkhf.Show vbModal
End Sub

Private Sub ml_Click()
findml.Show vbModal
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub qkm_Click()
findqk.Show vbModal
End Sub

Private Sub rq_Click()
findrq.Show vbModal
End Sub

Private Sub sp_Click()
findsp.Show vbModal
End Sub

Private Sub Timer1_Timer()
If MM1.Mode = mciModeStop Then
  MM1.From = 0
  MM1.Command = "play"
End If

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "cp"
f:
Dim npsw1 As String
Dim npsw2 As String
npsw1 = InputBox("请输入你要改变的新密码!", "变更密码")
npsw2 = InputBox("请再次输入你要改变的新密码!", "确认变改密码")
If npsw2 = npsw1 Then
  SaveSetting "pws", "pws", "pws", npsw1
  MsgBox "密码变更成功，您的新密码是:" + npsw1
Else
   MsgBox "两次密码输入不一致，请重新输入！"
End If
If npsw2 = "" Or npsw1 = "" Then
  MsgBox "密码不能为空！"

  GoTo f
  
End If
    Case "cs"
       intf.Show vbModal
    Case "abou"
    Ins.Show vbModal
    Case "bak"
        Dim a As String
        Dim b As String
        a = Date
        b = Left$(Time(), 2) + "点" + Mid$(Time(), 4, 2)
        FileCopy "C:\Program Files\YWGL\ywy.mdb", "C:\Program Files\YWGL\" + a + "日" + b + ".xdb"
        Load rk
        rk.Data1.Recordset.AddNew
        rk.Data1.Recordset.Fields("数据库名").Value = "C:\Program Files\YWGL\" + a + "日" + b + ".xdb"
        rk.Data1.Recordset.Fields("日期").Value = a + "日" + Left$(b, 2) + "点" + Mid$(Time(), 4, 2) + "分"
        rk.Data1.Recordset.Update
        MsgBox "已经保存" + a + "日" + b + "分" + "的数据"
    Case "rk"
        rk.Show vbModal
    Case "ywy"
        findxm.Show vbModal
    Case "sums"
        tj.Show vbModal
End Select

       
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
       Case "ywy"
            findxm.Show vbModal
       Case "sp"
            findsp.Show vbModal
       Case "kh"
            findkhf.Show vbModal
       Case "ml"
            findml.Show vbModal
       Case "ysk"
            findysk.Show vbModal
       Case "rq"
            findrq.Show vbModal
       Case "qk"
            findqk.Show vbModal
       Case "al"
            Load jg
            jg.Data1.RecordSource = "select * from yw"
            jg.Data1.Refresh
            jg.Show vbModal
End Select

End Sub

Private Sub ysk_Click()
findysk.Show vbModal
End Sub

Private Sub ywlr_Click()
inpufrm.Show vbModal
End Sub

Private Sub ywy_Click()
findxm.Show vbModal
End Sub