main.frm

用VB编写送水系统的源代码,可以针对目前送水公司进行开发

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FRMMAIN 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "桶装水送水管理系统"
   ClientHeight    =   9105
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   13515
   FillStyle       =   0  'Solid
   BeginProperty Font 
      Name            =   "隶书"
      Size            =   42
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "MAIN.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "MAIN.frx":0442
   ScaleHeight     =   607
   ScaleLeft       =   555
   ScaleMode       =   0  'User
   ScaleWidth      =   901
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar STATUS 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   8730
      Width           =   13515
      _ExtentX        =   23839
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   1
            Object.Width           =   9631
            MinWidth        =   106
            TextSave        =   "2006-06-02"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Object.Width           =   3528
            MinWidth        =   3528
            Text            =   "CFD"
            TextSave        =   "0:32"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   10583
            MinWidth        =   10583
            Text            =   "谢谢您的支持！！"
            TextSave        =   "谢谢您的支持！！"
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "华文新魏"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎您使用本送水管理系统"
      ForeColor       =   &H0000C000&
      Height          =   840
      Left            =   -75
      TabIndex        =   1
      Top             =   6750
      Width           =   13515
   End
   Begin VB.Menu JH 
      Caption         =   "进货管理"
      Index           =   0
      Begin VB.Menu JHD 
         Caption         =   "进货单"
         Index           =   1
         Shortcut        =   ^J
      End
      Begin VB.Menu THD 
         Caption         =   "退货单"
         Index           =   2
         Shortcut        =   ^B
      End
   End
   Begin VB.Menu xs 
      Caption         =   "销售管理"
      Index           =   5
      Begin VB.Menu DH 
         Caption         =   "订货"
         Index           =   6
      End
      Begin VB.Menu pg 
         Caption         =   "派工"
         Index           =   7
         Shortcut        =   ^P
      End
      Begin VB.Menu JG 
         Caption         =   "交工"
         Index           =   8
         Shortcut        =   ^O
      End
      Begin VB.Menu SY 
         Caption         =   "水桶饮水机销售"
         Index           =   9
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu KC 
      Caption         =   "存货管理"
      Index           =   13
      Begin VB.Menu KX 
         Caption         =   "库存信息查询"
         Index           =   14
         Shortcut        =   ^X
      End
      Begin VB.Menu sp 
         Caption         =   "商品管理"
         Index           =   15
         Shortcut        =   ^Q
      End
      Begin VB.Menu gg 
         Caption         =   "销售信息查看"
         Index           =   16
      End
      Begin VB.Menu spxs 
         Caption         =   "水票销售信息"
         Index           =   17
      End
   End
   Begin VB.Menu SG 
      Caption         =   "水票管理"
      Index           =   17
      Begin VB.Menu SD 
         Caption         =   "水票登记"
         Index           =   18
      End
      Begin VB.Menu SX 
         Caption         =   "水票销售单"
         Index           =   19
      End
   End
   Begin VB.Menu jy 
      Caption         =   "经营总结"
      Index           =   20
      Begin VB.Menu rj 
         Caption         =   "日结"
         Index           =   21
      End
      Begin VB.Menu yj 
         Caption         =   "月结"
         Index           =   22
      End
   End
   Begin VB.Menu JC 
      Caption         =   "基础信息"
      Index           =   23
      Begin VB.Menu ZY 
         Caption         =   "职员管理"
         Index           =   24
      End
      Begin VB.Menu KH 
         Caption         =   "客户管理"
         Index           =   25
      End
      Begin VB.Menu GYG 
         Caption         =   "供应商管理"
         Index           =   26
      End
      Begin VB.Menu SPXX 
         Caption         =   "水票信息"
         Index           =   27
      End
   End
   Begin VB.Menu TC 
      Caption         =   "退出"
      Index           =   28
   End
End
Attribute VB_Name = "FRMMAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CZY_Click(Index As Integer)
czydljl.Show
End Sub

Private Sub DH_Click(Index As Integer)
DHD.Show
End Sub

Private Sub FKD_Click(Index As Integer)
FKDB.Show
End Sub

Private Sub gg_Click(Index As Integer)
xsxxd.Show
End Sub

Private Sub GYG_Click(Index As Integer)
FRMGYSXX.Show
End Sub

Private Sub GYSXX_Click(Index As Integer)
FRMGYSXX.Show
End Sub

Private Sub JG_Click(Index As Integer)
jgd.Show
End Sub

Private Sub JHD_Click(Index As Integer)
FRMJHD.Show

End Sub

Private Sub KH_Click(Index As Integer)
FRMKHXX.Show
End Sub

Private Sub KX_Click(Index As Integer)
FRMKCXX.Show
End Sub

Private Sub pg_Click(Index As Integer)
FRMpg.Show
End Sub

Private Sub QXGL_Click(Index As Integer)
qxglb.Show
End Sub



Private Sub rj_Click(Index As Integer)

frmRJ.Show
End Sub

Private Sub SD_Click(Index As Integer)
FRMSPdj.Show
End Sub

Private Sub SH_Click(Index As Integer)
SPHSD.Show
End Sub


Private Sub SKD_Click(Index As Integer)
FRMSKD.Show
End Sub

Private Sub SP_Click(Index As Integer)
spgld.Show
End Sub

Private Sub spxs_Click(Index As Integer)
spxsxx.Show
End Sub

Private Sub SPXX_Click(Index As Integer)
FRMSPXX.Show
End Sub

Private Sub SX_Click(Index As Integer)
spxsd.Show
End Sub

Private Sub SY_Click(Index As Integer)
xsstysj.Show
End Sub

Private Sub TC_Click(Index As Integer)
Unload Me
End Sub

Private Sub THD_Click(Index As Integer)
FRMTHD.Show
End Sub



Private Sub yj_Click(Index As Integer)

frmyj.Show
End Sub


Private Sub ZY_Click(Index As Integer)
FRMZYXX.Show
End Sub