mainform.frm

关于图书销售管理

      End
      Begin VB.Menu fp 
         Caption         =   "-"
      End
      Begin VB.Menu qtzk 
         Caption         =   "其他帐款(&Q)"
      End
      Begin VB.Menu zhfx 
         Caption         =   "财务结算(&C)"
      End
   End
   Begin VB.Menu bbzx 
      Caption         =   "报表查询(&B)"
      Begin VB.Menu jbxxbb 
         Caption         =   "基本信息报表(&J)"
         Begin VB.Menu spxxbb 
            Caption         =   "商品信息报表(&S)"
         End
         Begin VB.Menu zyxxbb 
            Caption         =   "职员信息报表(&Z)"
         End
         Begin VB.Menu khxxbb 
            Caption         =   "客户信息报表(&K)"
         End
      End
      Begin VB.Menu jhbb 
         Caption         =   "进货报表(&H)"
         Begin VB.Menu jhddbb 
            Caption         =   "进货订单报表(&D)"
         End
         Begin VB.Menu jhthbb 
            Caption         =   "进货退货报表(&T)"
         End
      End
      Begin VB.Menu xhbb 
         Caption         =   "销货报表(&D)"
         Begin VB.Menu xhddbb 
            Caption         =   "销货订单报表(&X)"
         End
         Begin VB.Menu xhthbb 
            Caption         =   "销货退货报表(&H)"
         End
      End
      Begin VB.Menu kcppbb 
         Caption         =   "库存盘点报表(&P)"
      End
      Begin VB.Menu jsbb 
         Caption         =   "结算报表(&S)"
      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 zx_Click()
 Response = MsgBox("确实要注销吗？", vbYesNo + vbInformation + vbDefaultButton1, "提示")
      If Response = vbYes Then
         Me.Enabled = False
         login.Show
       End If
End Sub

Private Sub MDIForm_Load()
pd = False
End Sub
Private Sub czrygl1_Click()
czrygl.Show
End Sub

Private Sub ddcx_Click()
cxdd.Show
End Sub

Private Sub dhdcl_Click()
dhdcl1.Show
End Sub

Private Sub dhth_Click()
spth.Show
End Sub


Private Sub gnjj_Click()

End Sub

Private Sub gy_Click()
frmAbout.Show
End Sub


Private Sub jb_Click()
bjkc.Show
End Sub

Private Sub jhddbb_Click()

ddbh2.Show
End Sub

Private Sub jhthbb_Click()

ddbh.Show
End Sub

Private Sub jsbb_Click()
jsrq.Show
End Sub

Private Sub jsq_Click()
Shell App.Path & "/Calc.exe"
End Sub

Private Sub kccx_Click()
kcspcx.Show
End Sub

Private Sub kcpd_Click()
pandian.Show
End Sub

Private Sub kcppbb_Click()
pdrq.Show
End Sub

Private Sub khxx1_Click()
khxx.Show
End Sub

Private Sub qxfp_Click()
qxfp1.Show
End Sub

Private Sub khxxbb_Click()
khxxrpt.Show
End Sub

Private Sub lsbb_Click()

End Sub

Private Sub MDIForm_Activate()
mainform.WindowState = 2

End Sub


Private Sub MDIForm_Unload(Cancel As Integer)
       
    On Error Resume Next
    xtrz.Data1.Recordset.FindFirst "jssj = 0 "
    xtrz.Data1.Recordset.Edit
    xtrz.Data1.Recordset("jssj") = Time
    xtrz.Data1.Recordset.Update
    xtrz.Data1.Refresh
    With form1.Data2
    If form1.Data2.Recordset("xx") = 1 Then
        Dim file
        Set file = CreateObject("Scripting.FileSystemObject")
        file.copyfile "" & App.Path & "\db1.mdb", form1.Data2.Recordset("lj")
            ElseIf form1.Data2.Recordset("xx") = 2 Then
                If Date - form1.Data2.Recordset("rq") >= form1.Data2.Recordset("ts") Then
                    Set file = CreateObject("Scripting.FileSystemObject")
                    file.copyfile "" & App.Path & "\db1.mdb", form1.Data2.Recordset("lj")
                End If
    End If
    End With
End
End Sub



Private Sub qtzk_Click()
qtkx.Show
End Sub

Private Sub rl_Click()
rl1.Show
End Sub

Private Sub sdbf_Click()
sjbf1.Show
End Sub

Private Sub sjcsh_Click()
xtrz.Show 1

End Sub

Private Sub sjhf_Click()
sjhf1.Show
End Sub

Private Sub spdd_Click()
spdhd1.Show
End Sub

Private Sub sprk_Click()

End Sub

Private Sub sptj_Click()
pandiancx.Show
End Sub

Private Sub spxx1_Click()
spxx.Show
End Sub

Private Sub spxxbb_Click()
spxxrpt.Show
End Sub

Private Sub spzjck_Click()
spck.Show
End Sub

Private Sub spzjrk_Click()
sprk.Show
End Sub

Private Sub tc_Click()
       Response = MsgBox("确实要退出本系统吗？", vbYesNo + vbInformation + vbDefaultButton1, "提示")
      If Response = vbYes Then
         Unload Me
       End If

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
     Case 1
       xzlr.Show
     Case 2
        spdhd1.Show
     Case 3
         spxhd.Show
     Case 4
       kcspcx.Show
     Case 5
       pandian.Show
     Case 6
       zhfx1.Show
     Case 7
       czrygl.Show
     Case 8
       bbzx1.Show
     Case 9
       Response = MsgBox("确实要退出本系统吗？", vbYesNo + vbInformation + vbDefaultButton1, "提示")
      If Response = vbYes Then
         Unload Me
       End If
 End Select
End Sub

Private Sub ggmm_Click()
ggkl.Show
End Sub

Private Sub xgmm_Click()
form11.Show
End Sub

Private Sub xhddbb_Click()
ddbh3.Show
End Sub

Private Sub xhthbb_Click()
ddbh1.Show
End Sub

Private Sub xsdcl_Click()
xhdcl.Show
End Sub

Private Sub xsdcx_Click()
cxxsd.Show
End Sub

Private Sub xsdd_Click()
spxhd.Show
End Sub

Private Sub xsth_Click()
spxhth.Show
End Sub

Private Sub yfzk_Click()
yfzk1.Show
End Sub


Private Sub yszk_Click()
yszk1.Show
End Sub

Private Sub zdbf_Click()
zdbf1.Show
End Sub

Private Sub zhfx_Click()
zhfx1.Show
End Sub

Private Sub zyxx1_Click()
zyxx.Show
End Sub

Private Sub zyxxbb_Click()
zyxxrpt.Show
End Sub