system.frm

一套完整的毕业论文。物资管理信息系统。 请大家指点

VERSION 5.00
Begin VB.Form system 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "哈尔滨兵工经贸有限责任公司  物资管理信息系统"
   ClientHeight    =   6015
   ClientLeft      =   150
   ClientTop       =   840
   ClientWidth     =   9195
   BeginProperty Font 
      Name            =   "宋体-方正超大字符集"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H000000FF&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "system.frx":0000
   ScaleHeight     =   6015
   ScaleWidth      =   9195
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   11580
      Left            =   0
      Picture         =   "system.frx":31E50
      ScaleHeight     =   11520
      ScaleWidth      =   15360
      TabIndex        =   0
      Top             =   0
      Width           =   15420
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   0
         Top             =   0
      End
      Begin VB.TextBox Text2 
         BackColor       =   &H00400000&
         BeginProperty Font 
            Name            =   "幼圆"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   375
         Left            =   7920
         TabIndex        =   2
         Top             =   0
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00400000&
         BeginProperty Font 
            Name            =   "幼圆"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   375
         Left            =   6600
         TabIndex        =   1
         Top             =   0
         Width           =   1335
      End
   End
   Begin VB.Menu system 
      Caption         =   "系统(&S)"
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu tjyh 
         Caption         =   "修改用户名"
      End
      Begin VB.Menu bar 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu jbxx 
      Caption         =   "物资基本信息管理(&J)"
      Begin VB.Menu jbadd 
         Caption         =   "添加物资基本信息"
      End
      Begin VB.Menu jbalt 
         Caption         =   "修改物资基本信息"
      End
      Begin VB.Menu jbdel 
         Caption         =   "删除物资基本信息"
      End
      Begin VB.Menu jbque 
         Caption         =   "查询物资基本信息"
      End
   End
   Begin VB.Menu rkcc 
      Caption         =   "物资入库信息管理(&R)"
      Begin VB.Menu rkadd 
         Caption         =   "添加物资入库信息"
      End
      Begin VB.Menu rkalt 
         Caption         =   "修改物资入库信息"
      End
      Begin VB.Menu rkdel 
         Caption         =   "删除物资入库信息"
      End
      Begin VB.Menu rkque 
         Caption         =   "查询物资入库信息"
      End
   End
   Begin VB.Menu ckxx 
      Caption         =   "物资出库信息管理(&C)"
      Begin VB.Menu ckadd 
         Caption         =   "添加物资出库信息"
      End
      Begin VB.Menu ckalt 
         Caption         =   "修改物资出库信息"
      End
      Begin VB.Menu ckdel 
         Caption         =   "删除物资出库信息"
      End
      Begin VB.Menu ckque 
         Caption         =   "查询物资出库信息"
      End
   End
   Begin VB.Menu yexx 
      Caption         =   "物资余额信息管理(&Y)"
      Begin VB.Menu yeque 
         Caption         =   "查询物资余额信息"
      End
   End
End
Attribute VB_Name = "system"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
yexi.Show
End Sub

Private Sub ckadd_Click()
ckdj.Show
ckdj.Command4 = True
End Sub

Private Sub ckalt_Click()
ckxg.Show

End Sub

Private Sub ckdel_Click()
ckcx.Show
ckcx.Command3.Visible = True
End Sub

Private Sub ckque_Click()
ckcx.Show
End Sub

Private Sub exit_Click()
If MsgBox("确定退出系统吗？", vbYesNo + vbDefaultButton2, "请确认退出！") = vbYes Then
End
End If
End Sub

Private Sub jbadd_Click()
wzxi.Show
End Sub

Private Sub jbalt_Click()
wzxg.Show
End Sub

Private Sub jbdel_Click()
djcx.Show
djcx.Command3.Visible = True
End Sub

Private Sub jbque_Click()
djcx.Show
End Sub

Private Sub rkadd_Click()
rkdj.Show
rkdj.Command4 = True
End Sub

Private Sub rkalt_Click()
rkxg.Show

End Sub

Private Sub rkdel_Click()
rkcx.Show
rkcx.Command3.Visible = True
End Sub

Private Sub rkque_Click()
rkcx.Show

End Sub

Private Sub Timer1_Timer()
Text1.Text = Date$
Text2.Text = Time$
End Sub

Private Sub tjyh_Click()
adduser.Show
End Sub

Private Sub xgmm_Click()
xgmima.Show

End Sub

Private Sub yeque_Click()
yecx.Show

End Sub