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

📄 yk_query_yielder.frm

📁 这是一个医院管理系统中的院长查询模块
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "RESIZE32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form yk_query_yielder 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "药品供应查询"
   ClientHeight    =   6825
   ClientLeft      =   795
   ClientTop       =   1425
   ClientWidth     =   9510
   Icon            =   "yk_query_yielder.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   Moveable        =   0   'False
   ScaleHeight     =   6825
   ScaleWidth      =   9510
   Begin ResizeLibCtl.ReSize ReSize1 
      Left            =   1185
      Top             =   1935
      _Version        =   196608
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   64
      Enabled         =   -1  'True
      Enabled         =   -1  'True
      FormMinWidth    =   0
      FormMinHeight   =   0
      AutoCenterFormOnLoad=   -1  'True
      FormDesignHeight=   6825
      FormDesignWidth =   9510
   End
   Begin MSRDC.MSRDC rdc_all 
      Height          =   330
      Left            =   3390
      Top             =   1890
      Visible         =   0   'False
      Width           =   1875
      _ExtentX        =   3307
      _ExtentY        =   582
      _Version        =   393216
      Options         =   0
      CursorDriver    =   1
      BOFAction       =   0
      EOFAction       =   0
      RecordsetType   =   1
      LockType        =   3
      QueryType       =   0
      Prompt          =   3
      Appearance      =   1
      QueryTimeout    =   30
      RowsetSize      =   100
      LoginTimeout    =   15
      KeysetSize      =   0
      MaxRows         =   0
      ErrorThreshold  =   -1
      BatchSize       =   15
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Enabled         =   -1  'True
      ReadOnly        =   0   'False
      Appearance      =   -1  'True
      DataSourceName  =   ""
      RecordSource    =   ""
      UserName        =   ""
      Password        =   ""
      Connect         =   ""
      LogMessages     =   ""
      Caption         =   "MSRDC1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.ComboBox drug_kind 
      BackColor       =   &H00C0E0FF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   750
      Style           =   2  'Dropdown List
      TabIndex        =   15
      Top             =   660
      Width           =   1300
   End
   Begin VB.Frame Frame2 
      Height          =   1035
      Index           =   1
      Left            =   7845
      TabIndex        =   11
      Top             =   -60
      Width           =   1650
      Begin VB.CommandButton quit_com 
         Caption         =   "退出"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   795
         Left            =   1080
         TabIndex        =   14
         Top             =   165
         Width           =   510
      End
      Begin VB.CommandButton print_com 
         BackColor       =   &H00C0C0FF&
         Caption         =   "打印"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   795
         Left            =   570
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   165
         Width           =   510
      End
      Begin VB.CommandButton browse_com 
         Caption         =   "浏览"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   795
         Left            =   60
         TabIndex        =   12
         Top             =   165
         Width           =   510
      End
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   3765
      Left            =   75
      TabIndex        =   8
      Top             =   3000
      Width           =   9405
      _ExtentX        =   16589
      _ExtentY        =   6641
      _Version        =   393216
      Tab             =   2
      TabHeight       =   520
      TabCaption(0)   =   "购入情况"
      TabPicture(0)   =   "yk_query_yielder.frx":030A
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "DBGrid2(0)"
      Tab(0).Control(1)=   "rdc_in"
      Tab(0).ControlCount=   2
      TabCaption(1)   =   "销售情况"
      TabPicture(1)   =   "yk_query_yielder.frx":0326
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "DBGrid2(1)"
      Tab(1).Control(1)=   "rdc_out"
      Tab(1).ControlCount=   2
      TabCaption(2)   =   "库存情况"
      TabPicture(2)   =   "yk_query_yielder.frx":0342
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "DBGrid2(2)"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).Control(1)=   "rdc_stock"
      Tab(2).Control(1).Enabled=   0   'False
      Tab(2).ControlCount=   2
      Begin MSRDC.MSRDC rdc_stock 
         Height          =   720
         Left            =   2775
         Top             =   1815
         Visible         =   0   'False
         Width           =   2490
         _ExtentX        =   4392
         _ExtentY        =   1270
         _Version        =   393216
         Options         =   0
         CursorDriver    =   1
         BOFAction       =   0
         EOFAction       =   0
         RecordsetType   =   1
         LockType        =   3
         QueryType       =   0
         Prompt          =   3
         Appearance      =   1
         QueryTimeout    =   30
         RowsetSize      =   100
         LoginTimeout    =   15
         KeysetSize      =   0
         MaxRows         =   0
         ErrorThreshold  =   -1
         BatchSize       =   15
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Enabled         =   -1  'True
         ReadOnly        =   0   'False
         Appearance      =   -1  'True
         DataSourceName  =   ""
         RecordSource    =   ""
         UserName        =   ""
         Password        =   ""
         Connect         =   ""
         LogMessages     =   ""
         Caption         =   "MSRDC4"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin MSRDC.MSRDC rdc_out 
         Height          =   375
         Left            =   -72060
         Top             =   1140
         Visible         =   0   'False
         Width           =   2925
         _ExtentX        =   5159
         _ExtentY        =   661
         _Version        =   393216
         Options         =   0
         CursorDriver    =   1
         BOFAction       =   0
         EOFAction       =   0
         RecordsetType   =   1
         LockType        =   3
         QueryType       =   0
         Prompt          =   3
         Appearance      =   1
         QueryTimeout    =   30
         RowsetSize      =   100
         LoginTimeout    =   15
         KeysetSize      =   0
         MaxRows         =   0
         ErrorThreshold  =   -1
         BatchSize       =   15
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Enabled         =   -1  'True
         ReadOnly        =   0   'False
         Appearance      =   -1  'True
         DataSourceName  =   ""
         RecordSource    =   ""
         UserName        =   ""
         Password        =   ""
         Connect         =   ""
         LogMessages     =   ""
         Caption         =   "MSRDC3"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin MSRDC.MSRDC rdc_in 
         Height          =   360
         Left            =   -72810
         Top             =   1170
         Visible         =   0   'False
         Width           =   2550
         _ExtentX        =   4498
         _ExtentY        =   635
         _Version        =   393216
         Options         =   0
         CursorDriver    =   1
         BOFAction       =   0
         EOFAction       =   0
         RecordsetType   =   1
         LockType        =   3
         QueryType       =   0
         Prompt          =   3
         Appearance      =   1
         QueryTimeout    =   30
         RowsetSize      =   100
         LoginTimeout    =   15
         KeysetSize      =   0
         MaxRows         =   0
         ErrorThreshold  =   -1
         BatchSize       =   15
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Enabled         =   -1  'True

⌨️ 快捷键说明

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