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

📄 frmxiangmu.frm

📁 本系统可用于医院和专业体检中心的健康体检管理
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Begin VB.Form frmXiangMu 
   BackColor       =   &H80000018&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "项目设置"
   ClientHeight    =   7350
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   12420
   Icon            =   "frmXiangMu.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7350
   ScaleWidth      =   12420
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin MSComctlLib.TreeView tvwSysXMu 
      Height          =   6705
      Left            =   3540
      TabIndex        =   41
      Top             =   450
      Width           =   3270
      _ExtentX        =   5768
      _ExtentY        =   11827
      _Version        =   393217
      HideSelection   =   0   'False
      LabelEdit       =   1
      LineStyle       =   1
      Style           =   7
      Appearance      =   1
   End
   Begin VB.Frame fraXX 
      Appearance      =   0  'Flat
      BackColor       =   &H80000018&
      Caption         =   "项目信息"
      ForeColor       =   &H80000008&
      Height          =   5385
      Left            =   6975
      TabIndex        =   7
      Top             =   210
      Width           =   5325
      Begin VB.Frame Frame2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H80000008&
         Height          =   495
         Left            =   1200
         TabIndex        =   27
         Top             =   2790
         Width           =   3810
         Begin VB.OptionButton optXXFemale 
            BackColor       =   &H80000018&
            Caption         =   "女"
            Height          =   255
            Left            =   2640
            TabIndex        =   30
            Top             =   180
            Width           =   615
         End
         Begin VB.OptionButton optXXNNTY 
            BackColor       =   &H80000018&
            Caption         =   "所有"
            Height          =   255
            Left            =   150
            TabIndex        =   29
            Top             =   180
            Value           =   -1  'True
            Width           =   855
         End
         Begin VB.OptionButton optXXMale 
            BackColor       =   &H80000018&
            Caption         =   "男"
            Height          =   255
            Left            =   1440
            TabIndex        =   28
            Top             =   180
            Width           =   615
         End
      End
      Begin VB.TextBox txtXXMC 
         Height          =   300
         Left            =   2730
         TabIndex        =   26
         Top             =   240
         Width           =   2340
      End
      Begin VB.Frame Frame5 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H80000008&
         Height          =   450
         Left            =   1740
         TabIndex        =   23
         Top             =   3345
         Width           =   2535
         Begin VB.OptionButton optXJieYes 
            BackColor       =   &H80000018&
            Caption         =   "是"
            Height          =   255
            Left            =   1200
            TabIndex        =   25
            Top             =   150
            Value           =   -1  'True
            Width           =   975
         End
         Begin VB.OptionButton optXJieNo 
            BackColor       =   &H80000018&
            Caption         =   "否"
            Height          =   255
            Left            =   240
            TabIndex        =   24
            Top             =   150
            Width           =   855
         End
      End
      Begin VB.Frame Frame6 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H80000008&
         Height          =   450
         Left            =   1740
         TabIndex        =   20
         Top             =   3855
         Width           =   2535
         Begin VB.OptionButton optJYiYes 
            BackColor       =   &H80000018&
            Caption         =   "是"
            Height          =   255
            Left            =   1200
            TabIndex        =   22
            Top             =   150
            Value           =   -1  'True
            Width           =   855
         End
         Begin VB.OptionButton optJYiNo 
            BackColor       =   &H80000018&
            Caption         =   "否 "
            Height          =   255
            Left            =   240
            TabIndex        =   21
            Top             =   150
            Width           =   975
         End
      End
      Begin VB.Frame Frame4 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H80000008&
         Height          =   960
         Left            =   1200
         TabIndex        =   14
         Top             =   585
         Width           =   3810
         Begin VB.OptionButton optXXSZhi 
            BackColor       =   &H80000018&
            Caption         =   "数值型"
            Height          =   255
            Left            =   1470
            TabIndex        =   19
            Top             =   180
            Width           =   870
         End
         Begin VB.OptionButton optXXSMing 
            BackColor       =   &H80000018&
            Caption         =   "说明型"
            Height          =   255
            Left            =   240
            TabIndex        =   18
            Top             =   180
            Width           =   870
         End
         Begin VB.OptionButton optXXJSuan 
            BackColor       =   &H80000018&
            Caption         =   "计算型"
            Height          =   255
            Left            =   2700
            TabIndex        =   17
            Top             =   180
            Width           =   870
         End
         Begin VB.TextBox txtExpression 
            Height          =   285
            Left            =   135
            Locked          =   -1  'True
            TabIndex        =   16
            Top             =   555
            Width           =   2445
         End
         Begin XPControls.XPCommandButton cmdExpression 
            Height          =   300
            Left            =   2595
            TabIndex        =   15
            Top             =   525
            Width           =   1155
            _ExtentX        =   2037
            _ExtentY        =   529
            Caption         =   "生成表达式..."
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
      End
      Begin VB.TextBox txtXXSM 
         Height          =   810
         Left            =   1200
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   13
         Top             =   4455
         Width           =   3855
      End
      Begin VB.TextBox txtXXPYSX 
         Height          =   300
         Left            =   1200
         TabIndex        =   12
         Top             =   2025
         Width           =   2385
      End
      Begin VB.TextBox txtXXID 
         Enabled         =   0   'False
         Height          =   300
         Left            =   1200
         TabIndex        =   11
         Top             =   240
         Width           =   915
      End
      Begin VB.ComboBox cmbXXSXH 
         Height          =   315
         Left            =   3570
         Style           =   2  'Dropdown List
         TabIndex        =   10
         Top             =   2490
         Width           =   855
      End
      Begin VB.TextBox txtXXPrice 
         Height          =   300
         Left            =   1200
         TabIndex        =   9
         Top             =   2460
         Width           =   1035
      End
      Begin VB.CheckBox chkHavePhoto 
         BackColor       =   &H80000018&
         Caption         =   "是否带有图像"
         Height          =   285
         Left            =   1200
         TabIndex        =   8
         Top             =   1650
         Width           =   2265
      End
      Begin VB.Label Label9 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "性别"
         Height          =   195
         Left            =   765
         TabIndex        =   40
         Top             =   3000
         Width           =   360
      End
      Begin VB.Label Label12 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "项目ID"
         Height          =   195
         Left            =   570
         TabIndex        =   39
         Top             =   300
         Width           =   525
      End
      Begin VB.Label Label13 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "名称"
         Height          =   195
         Left            =   2265
         TabIndex        =   38
         Top             =   300
         Width           =   360
      End
      Begin VB.Label Label14 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "说明"
         Height          =   195
         Left            =   750
         TabIndex        =   37
         Top             =   4485
         Width           =   360
      End
      Begin VB.Label Label15 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "拼音简码"
         Height          =   195
         Left            =   405
         TabIndex        =   36
         Top             =   2085
         Width           =   720
      End
      Begin VB.Label lblXMLX 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "项目类型"
         Height          =   195
         Left            =   405
         TabIndex        =   35
         Top             =   810
         Width           =   720
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "是否进入小结"
         Height          =   195
         Left            =   330
         TabIndex        =   34
         Top             =   3540
         Width           =   1080
      End
      Begin VB.Label Label19 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "是否有建议项"
         Height          =   195
         Left            =   330
         TabIndex        =   33
         Top             =   4035
         Width           =   1080
      End
      Begin VB.Label Label20 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "显示顺序"
         Height          =   195
         Left            =   2775
         TabIndex        =   32
         Top             =   2520
         Width           =   720
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "价格"
         Height          =   195
         Left            =   765
         TabIndex        =   31
         Top             =   2520
         Width           =   360
      End
   End
   Begin VB.Frame FrameCmd 
      Appearance      =   0  'Flat
      BackColor       =   &H80000018&
      ForeColor       =   &H80000008&
      Height          =   1455
      Left            =   6975
      TabIndex        =   0
      Top             =   5700
      Width           =   5325
      Begin XPControls.XPCommandButton cmdExit 
         Cancel          =   -1  'True
         Height          =   375
         Left            =   3600
         TabIndex        =   1
         Top             =   900
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         Caption         =   "退 出"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin XPControls.XPCommandButton cmdSave 
         Height          =   375
         Left            =   510
         TabIndex        =   2
         Top             =   900
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         Caption         =   "保 存"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty

⌨️ 快捷键说明

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