⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmmain.frm

📁 一套鞋厂的仓库管理系统
💻 FRM
字号:
VERSION 5.00
Begin VB.Form FrmMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "开发材料库存管理系统"
   ClientHeight    =   5085
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7170
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "FrmMain.frx":0442
   ScaleHeight     =   5085
   ScaleWidth      =   7170
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      FillStyle       =   0  'Solid
      Height          =   7260
      Left            =   0
      Picture         =   "FrmMain.frx":074C
      ScaleHeight     =   7200
      ScaleWidth      =   9600
      TabIndex        =   0
      Top             =   0
      Width           =   9660
      Begin VB.CommandButton combasedata 
         BackColor       =   &H00C0E0FF&
         Caption         =   "基础数据"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1095
         Left            =   1485
         MouseIcon       =   "FrmMain.frx":23EF1
         MousePointer    =   99  'Custom
         Picture         =   "FrmMain.frx":241FB
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   1680
         Width           =   1455
      End
      Begin VB.CommandButton comdatastat 
         BackColor       =   &H00C0E0FF&
         Caption         =   "数据统计"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1095
         Left            =   1485
         MouseIcon       =   "FrmMain.frx":2463D
         MousePointer    =   99  'Custom
         Picture         =   "FrmMain.frx":24947
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   3240
         Width           =   1455
      End
      Begin VB.CommandButton comstock 
         BackColor       =   &H00C0E0FF&
         Caption         =   "库存作业"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1095
         Left            =   4245
         MouseIcon       =   "FrmMain.frx":24D89
         MousePointer    =   99  'Custom
         Picture         =   "FrmMain.frx":25093
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   1680
         Width           =   1455
      End
      Begin VB.CommandButton comsystem 
         BackColor       =   &H00C0E0FF&
         Caption         =   "系统维护"
         DragIcon        =   "FrmMain.frx":254D5
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1095
         Left            =   4245
         MouseIcon       =   "FrmMain.frx":25917
         MousePointer    =   99  'Custom
         Picture         =   "FrmMain.frx":25C21
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   3240
         UseMaskColor    =   -1  'True
         Width           =   1455
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "开发材料库存管理系统"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   525
         Left            =   865
         TabIndex        =   6
         Top             =   750
         Width           =   5655
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "开发材料库存管理系统"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C0C0&
         Height          =   735
         Left            =   840
         TabIndex        =   5
         Top             =   720
         Width           =   5655
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub combasedata_Click()
    FrmMainBrow.Show 1
End Sub

Private Sub comdatastat_Click()
    FrmDataStat.Show 1
End Sub

Private Sub comstock_Click()
    FrmMainStock.Show 1
End Sub

Private Sub comsystem_Click()
    frmsyspassword.Show vbModal
End Sub

Private Sub Form_Load()
Me.Top = 1500
Me.Left = 3000
End Sub

Private Sub Form_Unload(Cancel As Integer)
     Unload frmfresh
     End
End Sub

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -