sgwmain.frm

一个医药进存销程序

         Left            =   0
         Picture         =   "SGWMain.frx":67C4
         Stretch         =   -1  'True
         Top             =   0
         Width           =   11820
      End
   End
   Begin VB.Menu jin_huo 
      Caption         =   "进货管理"
      Begin VB.Menu jinhuo_dan 
         Caption         =   "进货单"
      End
      Begin VB.Menu tuihuo_dan 
         Caption         =   "退货单"
      End
   End
   Begin VB.Menu xiao_shou 
      Caption         =   "销售管理"
      Begin VB.Menu pi_fa 
         Caption         =   "批发销售"
      End
      Begin VB.Menu ling_shou 
         Caption         =   "零售销售"
      End
   End
   Begin VB.Menu ku_cun 
      Caption         =   "库存管理"
      Begin VB.Menu ku_cunpandian 
         Caption         =   "库存盘点"
      End
      Begin VB.Menu bao_jing 
         Caption         =   "库存过期报警"
      End
   End
   Begin VB.Menu shu_ju 
      Caption         =   "数据统计"
      Begin VB.Menu jinhuo_tongji 
         Caption         =   "进货统计"
      End
      Begin VB.Menu lirun_tongji 
         Caption         =   "利润统计"
      End
      Begin VB.Menu danju_chaxun 
         Caption         =   "单据查询"
      End
   End
   Begin VB.Menu ji_chu 
      Caption         =   "基础数据"
      Begin VB.Menu yao_pin 
         Caption         =   "药品管理"
      End
      Begin VB.Menu wang_lai 
         Caption         =   "往来单位"
      End
      Begin VB.Menu ren_yuan 
         Caption         =   "人员管理"
      End
      Begin VB.Menu init_data 
         Caption         =   "初始化数据库"
      End
   End
End
Attribute VB_Name = "SGWMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    '********init command6-13
    Command6.Visible = True
    Command7.Visible = True
    Command8.Visible = True
    Command9.Visible = True
    
    Command10.Visible = False
    Command11.Visible = False
    Command12.Visible = False
    Command13.Visible = False
    Command14.Visible = False
    Command15.Visible = False
    Command16.Visible = False
    Command17.Visible = False
   
End Sub

Private Sub Command10_Click()
    Load lingshoudan
    lingshoudan.Show
End Sub

Private Sub Command11_Click()
    Load pifadan
    pifadan.Show
End Sub

Private Sub Command14_Click()
    Load liruntongji
    liruntongji.Show
End Sub

Private Sub Command15_Click()
    Load yaopin
    yaopin.Show
End Sub

Private Sub Command16_Click()
    Load wanglaidanwei
    wanglaidanwei.Show
End Sub

Private Sub Command17_Click()
    Load renyuan
    renyuan.Show
End Sub

Private Sub Command2_Click()
    '********init command6-13
    Command6.Visible = False
    Command7.Visible = False
    Command8.Visible = False
    Command9.Visible = False
    
    Command10.Visible = True
    Command11.Visible = True
    Command12.Visible = True
    Command13.Visible = True
    Command14.Visible = True
    Command15.Visible = False
    Command16.Visible = False
    Command17.Visible = False
End Sub

Private Sub Command3_Click()
    '********init command6-13
    Command6.Visible = False
    Command7.Visible = False
    Command8.Visible = True
    Command9.Visible = True
    
    Command10.Visible = False
    Command11.Visible = False
    Command12.Visible = False
    Command13.Visible = False
    Command14.Visible = False
    Command15.Visible = False
    Command16.Visible = False
    Command17.Visible = False
End Sub

Private Sub Command4_Click()
    '********init command6-13
    Command6.Visible = False
    Command7.Visible = False
    Command8.Visible = False
    Command9.Visible = False
    
    Command10.Visible = False
    Command11.Visible = False
    Command12.Visible = False
    Command13.Visible = False
    Command14.Visible = False
    Command15.Visible = True
    Command16.Visible = True
    Command17.Visible = True
End Sub

Private Sub Command5_Click()
   Unload Me
End Sub

Private Sub Command6_Click()
    Load jinhuodan
    jinhuodan.Show
End Sub

Private Sub Command8_Click()
    Load kucunpandian
    kucunpandian.Show
End Sub

Private Sub Command9_Click()
    Load jinhuotongji
    jinhuotongji.Show
End Sub

Private Sub danju_chaxun_Click()
    Load danjuchaxun
    danjuchaxun.Show
End Sub

Private Sub Form_Load()
    'set the window in the middle
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    '********init command6-13
    Command6.Visible = True
    Command7.Visible = True
    Command8.Visible = True
    Command9.Visible = True
    
    Command10.Visible = False
    Command11.Visible = False
    Command12.Visible = False
    Command13.Visible = False
    
    Command15.Visible = False
    Command16.Visible = False
    Command17.Visible = False
    If QuanXian = 0 Then
       ji_chu.Enabled = False
       Command4.Enabled = False
    End If
    
    '********
End Sub

Private Sub init_data_Click()
    Load ChuShiHua_data
    ChuShiHua_data.Show
End Sub

Private Sub jinhuo_dan_Click()
    Load jinhuodan
    jinhuodan.Show
End Sub

Private Sub jinhuo_tongji_Click()
    Load jinhuotongji
    jinhuotongji.Show
End Sub

Private Sub ku_cunpandian_Click()
    Load kucunpandian
    kucunpandian.Show
End Sub

Private Sub ling_shou_Click()
    Load lingshoudan
    lingshoudan.Show
End Sub

Private Sub lirun_tongji_Click()
    Load liruntongji
    liruntongji.Show
End Sub

Private Sub pi_fa_Click()
    Load pifadan
    pifadan.Show
End Sub

Private Sub ren_yuan_Click()
    Load renyuan
    renyuan.Show
End Sub

Private Sub wang_lai_Click()
    Load wanglaidanwei
    wanglaidanwei.Show
End Sub

Private Sub yao_pin_Click()
    Load yaopin
    yaopin.Show
End Sub