开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
frmfind.frm
资源名称：yf.rar　[点击查看]
上传用户：laihaixin
上传日期：2013-01-26
资源大小：1169k
文件大小：4k
源码类别：

医药行业

开发平台：

Visual Basic

frmfind.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmfind 
  3.    BackColor       =   &H00404040&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "定位查找库存药品记录"
  6.    ClientHeight    =   1290
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6000
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    Picture         =   "frmfind.frx":0000
  16.    ScaleHeight     =   1290
  17.    ScaleWidth      =   6000
  18.    ShowInTaskbar   =   0   'False
  19.    Begin VB.CommandButton Command2 
  20.       Caption         =   "关闭&(C)"
  21.       Height          =   320
  22.       Left            =   4800
  23.       TabIndex        =   10
  24.       Top             =   720
  25.       Width           =   1000
  26.    End
  27.    Begin VB.TextBox Text2 
  28.       BackColor       =   &H00C0E0FF&
  29.       Height          =   300
  30.       Left            =   2880
  31.       TabIndex        =   9
  32.       Top             =   820
  33.       Width           =   1600
  34.    End
  35.    Begin VB.ComboBox Combo4 
  36.       BackColor       =   &H00C0E0FF&
  37.       Height          =   300
  38.       Left            =   1800
  39.       TabIndex        =   8
  40.       Top             =   820
  41.       Width           =   1000
  42.    End
  43.    Begin VB.PictureBox Picture1 
  44.       Appearance      =   0  'Flat
  45.       BackColor       =   &H00C0E0FF&
  46.       ForeColor       =   &H80000008&
  47.       Height          =   300
  48.       Left            =   240
  49.       ScaleHeight     =   270
  50.       ScaleWidth      =   4230
  51.       TabIndex        =   5
  52.       Top             =   480
  53.       Width           =   4265
  54.       Begin VB.OptionButton Option2 
  55.          BackColor       =   &H00C0E0FF&
  56.          Caption         =   "与"
  57.          ForeColor       =   &H000000FF&
  58.          Height          =   180
  59.          Left            =   3480
  60.          TabIndex        =   7
  61.          Top             =   40
  62.          Width           =   615
  63.       End
  64.       Begin VB.OptionButton Option1 
  65.          BackColor       =   &H00C0E0FF&
  66.          Caption         =   "或"
  67.          ForeColor       =   &H000000FF&
  68.          Height          =   180
  69.          Left            =   240
  70.          TabIndex        =   6
  71.          Top             =   40
  72.          Width           =   735
  73.       End
  74.    End
  75.    Begin VB.ComboBox Combo3 
  76.       BackColor       =   &H00C0E0FF&
  77.       Height          =   300
  78.       Left            =   240
  79.       TabIndex        =   4
  80.       Top             =   820
  81.       Width           =   1500
  82.    End
  83.    Begin VB.CommandButton Command1 
  84.       Caption         =   "查找&(O)"
  85.       Height          =   320
  86.       Left            =   4800
  87.       TabIndex        =   3
  88.       Top             =   285
  89.       Width           =   1000
  90.    End
  91.    Begin VB.TextBox Text1 
  92.       BackColor       =   &H00C0E0FF&
  93.       Height          =   300
  94.       Left            =   2880
  95.       TabIndex        =   2
  96.       Top             =   120
  97.       Width           =   1600
  98.    End
  99.    Begin VB.ComboBox Combo2 
  100.       BackColor       =   &H00C0E0FF&
  101.       Height          =   300
  102.       Left            =   1800
  103.       TabIndex        =   1
  104.       Top             =   120
  105.       Width           =   1000
  106.    End
  107.    Begin VB.ComboBox Combo1 
  108.       BackColor       =   &H00C0E0FF&
  109.       Height          =   300
  110.       ItemData        =   "frmfind.frx":56EF
  111.       Left            =   240
  112.       List            =   "frmfind.frx":56F1
  113.       TabIndex        =   0
  114.       Top             =   120
  115.       Width           =   1500
  116.    End
  117. End
  118. Attribute VB_Name = "frmfind"
  119. Attribute VB_GlobalNameSpace = False
  120. Attribute VB_Creatable = False
  121. Attribute VB_PredeclaredId = True
  122. Attribute VB_Exposed = False
  123. Private Sub Form_Unload(Cancel As Integer)
  124. frmmain.StatusBar1.Panels(2) = "目前没有窗口被激活"
  125. End Sub
  126. Private Sub Form_Activate()
  127. frmmain.StatusBar1.Panels(2) = "活动窗口：" & frmfind.Caption
  128. End Sub