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

📄 form10.frm

📁 MIS系统开发实例(VB+SQL SERVER2000)
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form Form10 
   BackColor       =   &H00C0C000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "年度药品销售统计"
   ClientHeight    =   7650
   ClientLeft      =   45
   ClientTop       =   450
   ClientWidth     =   10515
   LinkTopic       =   "Form10"
   MaxButton       =   0   'False
   ScaleHeight     =   7650
   ScaleWidth      =   10515
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   1800
      TabIndex        =   34
      Top             =   960
      Width           =   1335
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "退出"
      Height          =   375
      Left            =   5160
      Style           =   1  'Graphical
      TabIndex        =   32
      Top             =   960
      Width           =   975
   End
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   3975
      Left            =   1320
      ScaleHeight     =   3975
      ScaleWidth      =   8175
      TabIndex        =   2
      Top             =   2520
      Width           =   8175
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   11
         Left            =   6720
         TabIndex        =   14
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   10
         Left            =   6120
         TabIndex        =   13
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   9
         Left            =   5520
         TabIndex        =   12
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   8
         Left            =   4920
         TabIndex        =   11
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   7
         Left            =   4320
         TabIndex        =   10
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   6
         Left            =   3720
         TabIndex        =   9
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   5
         Left            =   3120
         TabIndex        =   8
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   4
         Left            =   2520
         TabIndex        =   7
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   3
         Left            =   1920
         TabIndex        =   6
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   2
         Left            =   1320
         TabIndex        =   5
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   1
         Left            =   720
         TabIndex        =   4
         Top             =   3720
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   3
         Top             =   3720
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00FFFF80&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   0
         Left            =   120
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00FF8080&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   1
         Left            =   720
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00C0C0FF&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   2
         Left            =   1320
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00FFC0FF&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   3
         Left            =   1920
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00C0FFC0&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   4
         Left            =   2520
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   5
         Left            =   3120
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00C0FFFF&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   6
         Left            =   3720
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H0000C0C0&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   7
         Left            =   4320
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00FF80FF&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   8
         Left            =   4920
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H0080C0FF&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   9
         Left            =   5520
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   10
         Left            =   6120
         Top             =   3960
         Width           =   495
      End
      Begin VB.Shape Shape1 
         BorderStyle     =   0  'Transparent
         FillColor       =   &H00800080&
         FillStyle       =   0  'Solid
         Height          =   15
         Index           =   11
         Left            =   6720
         Top             =   3960
         Width           =   495
      End
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "查看"
      Height          =   375
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   960
      Width           =   1095
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "选择药品"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   480
      TabIndex        =   35
      Top             =   960
      Width           =   1095
   End
   Begin VB.Line Line7 
      BorderColor     =   &H80000009&
      BorderWidth     =   2
      X1              =   0
      X2              =   10440
      Y1              =   840
      Y2              =   840
   End
   Begin VB.Line Line8 
      BorderColor     =   &H80000009&
      BorderWidth     =   2
      X1              =   0
      X2              =   10560
      Y1              =   1440
      Y2              =   1440
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   360
      Picture         =   "Form10.frx":0000
      Top             =   120
      Width           =   480
   End
   Begin VB.Label Label10 
      BackStyle       =   0  'Transparent
      Caption         =   "年度药品销售情况统计"
      BeginProperty Font 
         Name            =   "幼圆"

⌨️ 快捷键说明

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