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

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

医药行业

开发平台：

Visual Basic

frmserch.frm：源码内容
  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  4. Begin VB.Form frmserch 
  5.    BackColor       =   &H00404040&
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "浏览库存数据"
  8.    ClientHeight    =   6735
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   9705
  12.    Icon            =   "frmserch.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    MinButton       =   0   'False
  18.    Picture         =   "frmserch.frx":030A
  19.    ScaleHeight     =   6735
  20.    ScaleWidth      =   9705
  21.    ShowInTaskbar   =   0   'False
  22.    Begin MSAdodcLib.Adodc Adodc3 
  23.       Height          =   330
  24.       Left            =   6840
  25.       Top             =   6300
  26.       Visible         =   0   'False
  27.       Width           =   1200
  28.       _ExtentX        =   2117
  29.       _ExtentY        =   582
  30.       ConnectMode     =   0
  31.       CursorLocation  =   3
  32.       IsolationLevel  =   -1
  33.       ConnectionTimeout=   15
  34.       CommandTimeout  =   30
  35.       CursorType      =   3
  36.       LockType        =   3
  37.       CommandType     =   8
  38.       CursorOptions   =   0
  39.       CacheSize       =   50
  40.       MaxRecords      =   0
  41.       BOFAction       =   0
  42.       EOFAction       =   0
  43.       ConnectStringType=   1
  44.       Appearance      =   1
  45.       BackColor       =   -2147483643
  46.       ForeColor       =   -2147483640
  47.       Orientation     =   0
  48.       Enabled         =   -1
  49.       Connect         =   ""
  50.       OLEDBString     =   ""
  51.       OLEDBFile       =   ""
  52.       DataSourceName  =   ""
  53.       OtherAttributes =   ""
  54.       UserName        =   ""
  55.       Password        =   ""
  56.       RecordSource    =   ""
  57.       Caption         =   "Adodc3"
  58.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  59.          Name            =   "宋体"
  60.          Size            =   9
  61.          Charset         =   134
  62.          Weight          =   400
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       _Version        =   393216
  68.    End
  69.    Begin MSAdodcLib.Adodc Adodc2 
  70.       Height          =   330
  71.       Left            =   5640
  72.       Top             =   6300
  73.       Visible         =   0   'False
  74.       Width           =   1200
  75.       _ExtentX        =   2117
  76.       _ExtentY        =   582
  77.       ConnectMode     =   0
  78.       CursorLocation  =   3
  79.       IsolationLevel  =   -1
  80.       ConnectionTimeout=   15
  81.       CommandTimeout  =   30
  82.       CursorType      =   3
  83.       LockType        =   3
  84.       CommandType     =   8
  85.       CursorOptions   =   0
  86.       CacheSize       =   50
  87.       MaxRecords      =   0
  88.       BOFAction       =   0
  89.       EOFAction       =   0
  90.       ConnectStringType=   1
  91.       Appearance      =   1
  92.       BackColor       =   -2147483643
  93.       ForeColor       =   -2147483640
  94.       Orientation     =   0
  95.       Enabled         =   -1
  96.       Connect         =   ""
  97.       OLEDBString     =   ""
  98.       OLEDBFile       =   ""
  99.       DataSourceName  =   ""
  100.       OtherAttributes =   ""
  101.       UserName        =   ""
  102.       Password        =   ""
  103.       RecordSource    =   ""
  104.       Caption         =   "Adodc2"
  105.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  106.          Name            =   "宋体"
  107.          Size            =   9
  108.          Charset         =   134
  109.          Weight          =   400
  110.          Underline       =   0   'False
  111.          Italic          =   0   'False
  112.          Strikethrough   =   0   'False
  113.       EndProperty
  114.       _Version        =   393216
  115.    End
  116.    Begin VB.CommandButton Command1 
  117.       Caption         =   "关闭&(C)"
  118.       Height          =   350
  119.       Left            =   8160
  120.       TabIndex        =   0
  121.       Top             =   6290
  122.       Width           =   1200
  123.    End
  124.    Begin MSAdodcLib.Adodc Adodc1 
  125.       Height          =   330
  126.       Left            =   4440
  127.       Top             =   6300
  128.       Visible         =   0   'False
  129.       Width           =   1200
  130.       _ExtentX        =   2117
  131.       _ExtentY        =   582
  132.       ConnectMode     =   0
  133.       CursorLocation  =   3
  134.       IsolationLevel  =   -1
  135.       ConnectionTimeout=   15
  136.       CommandTimeout  =   30
  137.       CursorType      =   3
  138.       LockType        =   3
  139.       CommandType     =   8
  140.       CursorOptions   =   0
  141.       CacheSize       =   50
  142.       MaxRecords      =   0
  143.       BOFAction       =   0
  144.       EOFAction       =   0
  145.       ConnectStringType=   1
  146.       Appearance      =   1
  147.       BackColor       =   -2147483643
  148.       ForeColor       =   -2147483640
  149.       Orientation     =   0
  150.       Enabled         =   -1
  151.       Connect         =   ""
  152.       OLEDBString     =   ""
  153.       OLEDBFile       =   ""
  154.       DataSourceName  =   ""
  155.       OtherAttributes =   ""
  156.       UserName        =   ""
  157.       Password        =   ""
  158.       RecordSource    =   ""
  159.       Caption         =   "Adodc1"
  160.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  161.          Name            =   "宋体"
  162.          Size            =   9
  163.          Charset         =   134
  164.          Weight          =   400
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       _Version        =   393216
  170.    End
  171.    Begin MSDataGridLib.DataGrid DataGrid1 
  172.       Height          =   1935
  173.       Left            =   120
  174.       TabIndex        =   2
  175.       Top             =   120
  176.       Width           =   9465
  177.       _ExtentX        =   16695
  178.       _ExtentY        =   3413
  179.       _Version        =   393216
  180.       AllowUpdate     =   0   'False
  181.       BackColor       =   16777215
  182.       ForeColor       =   16711680
  183.       HeadLines       =   1.5
  184.       RowHeight       =   15
  185.       FormatLocked    =   -1  'True
  186.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  187.          Name            =   "宋体"
  188.          Size            =   9
  189.          Charset         =   134
  190.          Weight          =   400
  191.          Underline       =   0   'False
  192.          Italic          =   0   'False
  193.          Strikethrough   =   0   'False
  194.       EndProperty
  195.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  196.          Name            =   "宋体"
  197.          Size            =   9
  198.          Charset         =   134
  199.          Weight          =   400
  200.          Underline       =   0   'False
  201.          Italic          =   0   'False
  202.          Strikethrough   =   0   'False
  203.       EndProperty
  204.       Caption         =   "库存西药和中成药列表"
  205.       ColumnCount     =   14
  206.       BeginProperty Column00 
  207.          DataField       =   "编号"
  208.          Caption         =   "编号"
  209.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  210.             Type            =   0
  211.             Format          =   """￥""#,##0.00"
  212.             HaveTrueFalseNull=   0
  213.             FirstDayOfWeek  =   0
  214.             FirstWeekOfYear =   0
  215.             LCID            =   2052
  216.             SubFormatType   =   0
  217.          EndProperty
  218.       EndProperty
  219.       BeginProperty Column01 
  220.          DataField       =   "名称"
  221.          Caption         =   "名称"
  222.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  223.             Type            =   0
  224.             Format          =   ""
  225.             HaveTrueFalseNull=   0
  226.             FirstDayOfWeek  =   0
  227.             FirstWeekOfYear =   0
  228.             LCID            =   2052
  229.             SubFormatType   =   0
  230.          EndProperty
  231.       EndProperty
  232.       BeginProperty Column02 
  233.          DataField       =   "规格"
  234.          Caption         =   "规格"
  235.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  236.             Type            =   0
  237.             Format          =   ""
  238.             HaveTrueFalseNull=   0
  239.             FirstDayOfWeek  =   0
  240.             FirstWeekOfYear =   0
  241.             LCID            =   2052
  242.             SubFormatType   =   0
  243.          EndProperty
  244.       EndProperty
  245.       BeginProperty Column03 
  246.          DataField       =   "单位"
  247.          Caption         =   "单位"
  248.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  249.             Type            =   0
  250.             Format          =   ""
  251.             HaveTrueFalseNull=   0
  252.             FirstDayOfWeek  =   0
  253.             FirstWeekOfYear =   0
  254.             LCID            =   2052
  255.             SubFormatType   =   0
  256.          EndProperty
  257.       EndProperty
  258.       BeginProperty Column04 
  259.          DataField       =   "数量"
  260.          Caption         =   "数量"
  261.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  262.             Type            =   0
  263.             Format          =   ""
  264.             HaveTrueFalseNull=   0
  265.             FirstDayOfWeek  =   0
  266.             FirstWeekOfYear =   0
  267.             LCID            =   2052
  268.             SubFormatType   =   0
  269.          EndProperty
  270.       EndProperty
  271.       BeginProperty Column05 
  272.          DataField       =   "进价"
  273.          Caption         =   "进价"
  274.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  275.             Type            =   1
  276.             Format          =   "0.00"
  277.             HaveTrueFalseNull=   0
  278.             FirstDayOfWeek  =   0
  279.             FirstWeekOfYear =   0
  280.             LCID            =   2052
  281.             SubFormatType   =   0
  282.          EndProperty
  283.       EndProperty
  284.       BeginProperty Column06 
  285.          DataField       =   "零售价"
  286.          Caption         =   "零售价"
  287.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  288.             Type            =   1
  289.             Format          =   "0.00"
  290.             HaveTrueFalseNull=   0
  291.             FirstDayOfWeek  =   0
  292.             FirstWeekOfYear =   0
  293.             LCID            =   2052
  294.             SubFormatType   =   0
  295.          EndProperty
  296.       EndProperty
  297.       BeginProperty Column07 
  298.          DataField       =   "批号"
  299.          Caption         =   "批号"
  300.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  301.             Type            =   0
  302.             Format          =   ""
  303.             HaveTrueFalseNull=   0
  304.             FirstDayOfWeek  =   0
  305.             FirstWeekOfYear =   0
  306.             LCID            =   2052
  307.             SubFormatType   =   0
  308.          EndProperty
  309.       EndProperty
  310.       BeginProperty Column08 
  311.          DataField       =   "采购日期"
  312.          Caption         =   "采购日期"
  313.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  314.             Type            =   1
  315.             Format          =   "yyyy""年""M""月""d""日"""
  316.             HaveTrueFalseNull=   0
  317.             FirstDayOfWeek  =   0
  318.             FirstWeekOfYear =   0
  319.             LCID            =   2052
  320.             SubFormatType   =   0
  321.          EndProperty
  322.       EndProperty
  323.       BeginProperty Column09 
  324.          DataField       =   "调价日期"
  325.          Caption         =   "调价日期"
  326.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  327.             Type            =   1
  328.             Format          =   "yyyy""年""M""月""d""日"""
  329.             HaveTrueFalseNull=   0
  330.             FirstDayOfWeek  =   0
  331.             FirstWeekOfYear =   0
  332.             LCID            =   2052
  333.             SubFormatType   =   0
  334.          EndProperty
  335.       EndProperty
  336.       BeginProperty Column10 
  337.          DataField       =   "出厂日期"
  338.          Caption         =   "出厂日期"
  339.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  340.             Type            =   1
  341.             Format          =   "yyyy""年""M""月""d""日"""
  342.             HaveTrueFalseNull=   0
  343.             FirstDayOfWeek  =   0
  344.             FirstWeekOfYear =   0
  345.             LCID            =   2052
  346.             SubFormatType   =   0
  347.          EndProperty
  348.       EndProperty
  349.       BeginProperty Column11 
  350.          DataField       =   "产地"
  351.          Caption         =   "产地"
  352.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  353.             Type            =   0
  354.             Format          =   ""
  355.             HaveTrueFalseNull=   0
  356.             FirstDayOfWeek  =   0
  357.             FirstWeekOfYear =   0
  358.             LCID            =   2052
  359.             SubFormatType   =   0
  360.          EndProperty
  361.       EndProperty
  362.       BeginProperty Column12 
  363.          DataField       =   "失效期"
  364.          Caption         =   "失效期"
  365.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  366.             Type            =   1
  367.             Format          =   "yyyy""年""M""月""d""日"""
  368.             HaveTrueFalseNull=   0
  369.             FirstDayOfWeek  =   0
  370.             FirstWeekOfYear =   0
  371.             LCID            =   2052
  372.             SubFormatType   =   0
  373.          EndProperty
  374.       EndProperty
  375.       BeginProperty Column13 
  376.          DataField       =   "备注"
  377.          Caption         =   "备注"
  378.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  379.             Type            =   0
  380.             Format          =   ""
  381.             HaveTrueFalseNull=   0
  382.             FirstDayOfWeek  =   0
  383.             FirstWeekOfYear =   0
  384.             LCID            =   2052
  385.             SubFormatType   =   0
  386.          EndProperty
  387.       EndProperty
  388.       SplitCount      =   1
  389.       BeginProperty Split0 
  390.          BeginProperty Column00 
  391.             Alignment       =   1
  392.             ColumnWidth     =   675.213
  393.          EndProperty
  394.          BeginProperty Column01 
  395.             Alignment       =   1
  396.             ColumnWidth     =   1260.284
  397.          EndProperty
  398.          BeginProperty Column02 
  399.             Alignment       =   1
  400.             ColumnWidth     =   1440
  401.          EndProperty
  402.          BeginProperty Column03 
  403.             Alignment       =   1
  404.             ColumnWidth     =   524.976
  405.          EndProperty
  406.          BeginProperty Column04 
  407.             Alignment       =   1
  408.             ColumnWidth     =   464.882
  409.          EndProperty
  410.          BeginProperty Column05 
  411.             Alignment       =   1
  412.             ColumnWidth     =   659.906
  413.          EndProperty
  414.          BeginProperty Column06 
  415.             Alignment       =   1
  416.             ColumnWidth     =   675.213
  417.          EndProperty
  418.          BeginProperty Column07 
  419.             Alignment       =   1
  420.             ColumnWidth     =   1049.953
  421.          EndProperty
  422.          BeginProperty Column08 
  423.             Alignment       =   1
  424.             ColumnWidth     =   1275.024
  425.          EndProperty
  426.          BeginProperty Column09 
  427.             Alignment       =   1
  428.             ColumnWidth     =   1305.071
  429.          EndProperty
  430.          BeginProperty Column10 
  431.             Alignment       =   1
  432.             ColumnWidth     =   1319.811
  433.          EndProperty
  434.          BeginProperty Column11 
  435.             Alignment       =   1
  436.             ColumnWidth     =   1844.787
  437.          EndProperty
  438.          BeginProperty Column12 
  439.             Alignment       =   1
  440.             ColumnWidth     =   1335.118
  441.          EndProperty
  442.          BeginProperty Column13 
  443.             ColumnWidth     =   2085.166
  444.          EndProperty
  445.       EndProperty
  446.    End
  447.    Begin MSDataGridLib.DataGrid DataGrid2 
  448.       Height          =   1935
  449.       Left            =   120
  450.       TabIndex        =   3
  451.       Top             =   2160
  452.       Width           =   9465
  453.       _ExtentX        =   16695
  454.       _ExtentY        =   3413
  455.       _Version        =   393216
  456.       AllowUpdate     =   0   'False
  457.       BackColor       =   16777215
  458.       ForeColor       =   16711680
  459.       HeadLines       =   1.5
  460.       RowHeight       =   15
  461.       FormatLocked    =   -1  'True
  462.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  463.          Name            =   "宋体"
  464.          Size            =   9
  465.          Charset         =   134
  466.          Weight          =   400
  467.          Underline       =   0   'False
  468.          Italic          =   0   'False
  469.          Strikethrough   =   0   'False
  470.       EndProperty
  471.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  472.          Name            =   "宋体"
  473.          Size            =   9
  474.          Charset         =   134
  475.          Weight          =   400
  476.          Underline       =   0   'False
  477.          Italic          =   0   'False
  478.          Strikethrough   =   0   'False
  479.       EndProperty
  480.       Caption         =   "库存中草药列表"
  481.       ColumnCount     =   14
  482.       BeginProperty Column00 
  483.          DataField       =   "编号"
  484.          Caption         =   "编号"
  485.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  486.             Type            =   0
  487.             Format          =   """￥""#,##0.00"
  488.             HaveTrueFalseNull=   0
  489.             FirstDayOfWeek  =   0
  490.             FirstWeekOfYear =   0
  491.             LCID            =   2052
  492.             SubFormatType   =   0
  493.          EndProperty
  494.       EndProperty
  495.       BeginProperty Column01 
  496.          DataField       =   "名称"
  497.          Caption         =   "名称"
  498.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  499.             Type            =   0
  500.             Format          =   ""
  501.             HaveTrueFalseNull=   0
  502.             FirstDayOfWeek  =   0
  503.             FirstWeekOfYear =   0
  504.             LCID            =   2052
  505.             SubFormatType   =   0
  506.          EndProperty
  507.       EndProperty
  508.       BeginProperty Column02 
  509.          DataField       =   "规格"
  510.          Caption         =   "规格"
  511.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  512.             Type            =   0
  513.             Format          =   ""
  514.             HaveTrueFalseNull=   0
  515.             FirstDayOfWeek  =   0
  516.             FirstWeekOfYear =   0
  517.             LCID            =   2052
  518.             SubFormatType   =   0
  519.          EndProperty
  520.       EndProperty
  521.       BeginProperty Column03 
  522.          DataField       =   "单位"
  523.          Caption         =   "单位"
  524.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  525.             Type            =   0
  526.             Format          =   ""
  527.             HaveTrueFalseNull=   0
  528.             FirstDayOfWeek  =   0
  529.             FirstWeekOfYear =   0
  530.             LCID            =   2052
  531.             SubFormatType   =   0
  532.          EndProperty
  533.       EndProperty
  534.       BeginProperty Column04 
  535.          DataField       =   "数量"
  536.          Caption         =   "数量"
  537.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  538.             Type            =   0
  539.             Format          =   ""
  540.             HaveTrueFalseNull=   0
  541.             FirstDayOfWeek  =   0
  542.             FirstWeekOfYear =   0
  543.             LCID            =   2052
  544.             SubFormatType   =   0
  545.          EndProperty
  546.       EndProperty
  547.       BeginProperty Column05 
  548.          DataField       =   "进价"
  549.          Caption         =   "进价"
  550.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  551.             Type            =   1
  552.             Format          =   "0.00"
  553.             HaveTrueFalseNull=   0
  554.             FirstDayOfWeek  =   0
  555.             FirstWeekOfYear =   0
  556.             LCID            =   2052
  557.             SubFormatType   =   0
  558.          EndProperty
  559.       EndProperty
  560.       BeginProperty Column06 
  561.          DataField       =   "零售价"
  562.          Caption         =   "零售价"
  563.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  564.             Type            =   1
  565.             Format          =   "0.00"
  566.             HaveTrueFalseNull=   0
  567.             FirstDayOfWeek  =   0
  568.             FirstWeekOfYear =   0
  569.             LCID            =   2052
  570.             SubFormatType   =   0
  571.          EndProperty
  572.       EndProperty
  573.       BeginProperty Column07 
  574.          DataField       =   "批号"
  575.          Caption         =   "批号"
  576.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  577.             Type            =   0
  578.             Format          =   ""
  579.             HaveTrueFalseNull=   0
  580.             FirstDayOfWeek  =   0
  581.             FirstWeekOfYear =   0
  582.             LCID            =   2052
  583.             SubFormatType   =   0
  584.          EndProperty
  585.       EndProperty
  586.       BeginProperty Column08 
  587.          DataField       =   "采购日期"
  588.          Caption         =   "采购日期"
  589.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  590.             Type            =   1
  591.             Format          =   "yyyy""年""M""月""d""日"""
  592.             HaveTrueFalseNull=   0
  593.             FirstDayOfWeek  =   0
  594.             FirstWeekOfYear =   0
  595.             LCID            =   2052
  596.             SubFormatType   =   0
  597.          EndProperty
  598.       EndProperty
  599.       BeginProperty Column09 
  600.          DataField       =   "调价日期"
  601.          Caption         =   "调价日期"
  602.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  603.             Type            =   1
  604.             Format          =   "yyyy""年""M""月""d""日"""
  605.             HaveTrueFalseNull=   0
  606.             FirstDayOfWeek  =   0
  607.             FirstWeekOfYear =   0
  608.             LCID            =   2052
  609.             SubFormatType   =   0
  610.          EndProperty
  611.       EndProperty
  612.       BeginProperty Column10 
  613.          DataField       =   "出厂日期"
  614.          Caption         =   "出厂日期"
  615.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  616.             Type            =   1
  617.             Format          =   "yyyy""年""M""月""d""日"""
  618.             HaveTrueFalseNull=   0
  619.             FirstDayOfWeek  =   0
  620.             FirstWeekOfYear =   0
  621.             LCID            =   2052
  622.             SubFormatType   =   0
  623.          EndProperty
  624.       EndProperty
  625.       BeginProperty Column11 
  626.          DataField       =   "产地"
  627.          Caption         =   "产地"
  628.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  629.             Type            =   0
  630.             Format          =   ""
  631.             HaveTrueFalseNull=   0
  632.             FirstDayOfWeek  =   0
  633.             FirstWeekOfYear =   0
  634.             LCID            =   2052
  635.             SubFormatType   =   0
  636.          EndProperty
  637.       EndProperty
  638.       BeginProperty Column12 
  639.          DataField       =   "失效期"
  640.          Caption         =   "失效期"
  641.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  642.             Type            =   1
  643.             Format          =   "yyyy""年""M""月""d""日"""
  644.             HaveTrueFalseNull=   0
  645.             FirstDayOfWeek  =   0
  646.             FirstWeekOfYear =   0
  647.             LCID            =   2052
  648.             SubFormatType   =   0
  649.          EndProperty
  650.       EndProperty
  651.       BeginProperty Column13 
  652.          DataField       =   "备注"
  653.          Caption         =   "备注"
  654.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  655.             Type            =   0
  656.             Format          =   ""
  657.             HaveTrueFalseNull=   0
  658.             FirstDayOfWeek  =   0
  659.             FirstWeekOfYear =   0
  660.             LCID            =   2052
  661.             SubFormatType   =   0
  662.          EndProperty
  663.       EndProperty
  664.       SplitCount      =   1
  665.       BeginProperty Split0 
  666.          BeginProperty Column00 
  667.             Alignment       =   1
  668.             ColumnWidth     =   675.213
  669.          EndProperty
  670.          BeginProperty Column01 
  671.             Alignment       =   1
  672.             ColumnWidth     =   1260.284
  673.          EndProperty
  674.          BeginProperty Column02 
  675.             Alignment       =   1
  676.             ColumnWidth     =   1440
  677.          EndProperty
  678.          BeginProperty Column03 
  679.             Alignment       =   1
  680.             ColumnWidth     =   524.976
  681.          EndProperty
  682.          BeginProperty Column04 
  683.             Alignment       =   1
  684.             ColumnWidth     =   464.882
  685.          EndProperty
  686.          BeginProperty Column05 
  687.             Alignment       =   1
  688.             ColumnWidth     =   659.906
  689.          EndProperty
  690.          BeginProperty Column06 
  691.             Alignment       =   1
  692.             ColumnWidth     =   675.213
  693.          EndProperty
  694.          BeginProperty Column07 
  695.             Alignment       =   1
  696.             ColumnWidth     =   1049.953
  697.          EndProperty
  698.          BeginProperty Column08 
  699.             Alignment       =   1
  700.             ColumnWidth     =   1275.024
  701.          EndProperty
  702.          BeginProperty Column09 
  703.             Alignment       =   1
  704.             ColumnWidth     =   1305.071
  705.          EndProperty
  706.          BeginProperty Column10 
  707.             Alignment       =   1
  708.             ColumnWidth     =   1319.811
  709.          EndProperty
  710.          BeginProperty Column11 
  711.             Alignment       =   1
  712.             ColumnWidth     =   1844.787
  713.          EndProperty
  714.          BeginProperty Column12 
  715.             Alignment       =   1
  716.             ColumnWidth     =   1335.118
  717.          EndProperty
  718.          BeginProperty Column13 
  719.             ColumnWidth     =   2085.166
  720.          EndProperty
  721.       EndProperty
  722.    End
  723.    Begin MSDataGridLib.DataGrid DataGrid3 
  724.       Height          =   1935
  725.       Left            =   120
  726.       TabIndex        =   4
  727.       Top             =   4200
  728.       Width           =   9465
  729.       _ExtentX        =   16695
  730.       _ExtentY        =   3413
  731.       _Version        =   393216
  732.       AllowUpdate     =   0   'False
  733.       BackColor       =   16777215
  734.       ForeColor       =   16711680
  735.       HeadLines       =   1.5
  736.       RowHeight       =   15
  737.       FormatLocked    =   -1  'True
  738.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  739.          Name            =   "宋体"
  740.          Size            =   9
  741.          Charset         =   134
  742.          Weight          =   400
  743.          Underline       =   0   'False
  744.          Italic          =   0   'False
  745.          Strikethrough   =   0   'False
  746.       EndProperty
  747.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  748.          Name            =   "宋体"
  749.          Size            =   9
  750.          Charset         =   134
  751.          Weight          =   400
  752.          Underline       =   0   'False
  753.          Italic          =   0   'False
  754.          Strikethrough   =   0   'False
  755.       EndProperty
  756.       Caption         =   "库存器械和材料列表"
  757.       ColumnCount     =   14
  758.       BeginProperty Column00 
  759.          DataField       =   "编号"
  760.          Caption         =   "编号"
  761.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  762.             Type            =   0
  763.             Format          =   """￥""#,##0.00"
  764.             HaveTrueFalseNull=   0
  765.             FirstDayOfWeek  =   0
  766.             FirstWeekOfYear =   0
  767.             LCID            =   2052
  768.             SubFormatType   =   0
  769.          EndProperty
  770.       EndProperty
  771.       BeginProperty Column01 
  772.          DataField       =   "名称"
  773.          Caption         =   "名称"
  774.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  775.             Type            =   0
  776.             Format          =   ""
  777.             HaveTrueFalseNull=   0
  778.             FirstDayOfWeek  =   0
  779.             FirstWeekOfYear =   0
  780.             LCID            =   2052
  781.             SubFormatType   =   0
  782.          EndProperty
  783.       EndProperty
  784.       BeginProperty Column02 
  785.          DataField       =   "规格"
  786.          Caption         =   "规格"
  787.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  788.             Type            =   0
  789.             Format          =   ""
  790.             HaveTrueFalseNull=   0
  791.             FirstDayOfWeek  =   0
  792.             FirstWeekOfYear =   0
  793.             LCID            =   2052
  794.             SubFormatType   =   0
  795.          EndProperty
  796.       EndProperty
  797.       BeginProperty Column03 
  798.          DataField       =   "单位"
  799.          Caption         =   "单位"
  800.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  801.             Type            =   0
  802.             Format          =   ""
  803.             HaveTrueFalseNull=   0
  804.             FirstDayOfWeek  =   0
  805.             FirstWeekOfYear =   0
  806.             LCID            =   2052
  807.             SubFormatType   =   0
  808.          EndProperty
  809.       EndProperty
  810.       BeginProperty Column04 
  811.          DataField       =   "数量"
  812.          Caption         =   "数量"
  813.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  814.             Type            =   0
  815.             Format          =   ""
  816.             HaveTrueFalseNull=   0
  817.             FirstDayOfWeek  =   0
  818.             FirstWeekOfYear =   0
  819.             LCID            =   2052
  820.             SubFormatType   =   0
  821.          EndProperty
  822.       EndProperty
  823.       BeginProperty Column05 
  824.          DataField       =   "进价"
  825.          Caption         =   "进价"
  826.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  827.             Type            =   1
  828.             Format          =   "0.00"
  829.             HaveTrueFalseNull=   0
  830.             FirstDayOfWeek  =   0
  831.             FirstWeekOfYear =   0
  832.             LCID            =   2052
  833.             SubFormatType   =   0
  834.          EndProperty
  835.       EndProperty
  836.       BeginProperty Column06 
  837.          DataField       =   "零售价"
  838.          Caption         =   "零售价"
  839.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  840.             Type            =   1
  841.             Format          =   "0.00"
  842.             HaveTrueFalseNull=   0
  843.             FirstDayOfWeek  =   0
  844.             FirstWeekOfYear =   0
  845.             LCID            =   2052
  846.             SubFormatType   =   0
  847.          EndProperty
  848.       EndProperty
  849.       BeginProperty Column07 
  850.          DataField       =   "批号"
  851.          Caption         =   "批号"
  852.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  853.             Type            =   0
  854.             Format          =   ""
  855.             HaveTrueFalseNull=   0
  856.             FirstDayOfWeek  =   0
  857.             FirstWeekOfYear =   0
  858.             LCID            =   2052
  859.             SubFormatType   =   0
  860.          EndProperty
  861.       EndProperty
  862.       BeginProperty Column08 
  863.          DataField       =   "采购日期"
  864.          Caption         =   "采购日期"
  865.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  866.             Type            =   1
  867.             Format          =   "yyyy""年""M""月""d""日"""
  868.             HaveTrueFalseNull=   0
  869.             FirstDayOfWeek  =   0
  870.             FirstWeekOfYear =   0
  871.             LCID            =   2052
  872.             SubFormatType   =   0
  873.          EndProperty
  874.       EndProperty
  875.       BeginProperty Column09 
  876.          DataField       =   "调价日期"
  877.          Caption         =   "调价日期"
  878.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  879.             Type            =   1
  880.             Format          =   "yyyy""年""M""月""d""日"""
  881.             HaveTrueFalseNull=   0
  882.             FirstDayOfWeek  =   0
  883.             FirstWeekOfYear =   0
  884.             LCID            =   2052
  885.             SubFormatType   =   0
  886.          EndProperty
  887.       EndProperty
  888.       BeginProperty Column10 
  889.          DataField       =   "出厂日期"
  890.          Caption         =   "出厂日期"
  891.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  892.             Type            =   1
  893.             Format          =   "yyyy""年""M""月""d""日"""
  894.             HaveTrueFalseNull=   0
  895.             FirstDayOfWeek  =   0
  896.             FirstWeekOfYear =   0
  897.             LCID            =   2052
  898.             SubFormatType   =   0
  899.          EndProperty
  900.       EndProperty
  901.       BeginProperty Column11 
  902.          DataField       =   "产地"
  903.          Caption         =   "产地"
  904.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  905.             Type            =   0
  906.             Format          =   ""
  907.             HaveTrueFalseNull=   0
  908.             FirstDayOfWeek  =   0
  909.             FirstWeekOfYear =   0
  910.             LCID            =   2052
  911.             SubFormatType   =   0
  912.          EndProperty
  913.       EndProperty
  914.       BeginProperty Column12 
  915.          DataField       =   "失效期"
  916.          Caption         =   "失效期"
  917.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  918.             Type            =   1
  919.             Format          =   "yyyy""年""M""月""d""日"""
  920.             HaveTrueFalseNull=   0
  921.             FirstDayOfWeek  =   0
  922.             FirstWeekOfYear =   0
  923.             LCID            =   2052
  924.             SubFormatType   =   0
  925.          EndProperty
  926.       EndProperty
  927.       BeginProperty Column13 
  928.          DataField       =   "备注"
  929.          Caption         =   "备注"
  930.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  931.             Type            =   0
  932.             Format          =   ""
  933.             HaveTrueFalseNull=   0
  934.             FirstDayOfWeek  =   0
  935.             FirstWeekOfYear =   0
  936.             LCID            =   2052
  937.             SubFormatType   =   0
  938.          EndProperty
  939.       EndProperty
  940.       SplitCount      =   1
  941.       BeginProperty Split0 
  942.          BeginProperty Column00 
  943.             Alignment       =   1
  944.             ColumnWidth     =   675.213
  945.          EndProperty
  946.          BeginProperty Column01 
  947.             Alignment       =   1
  948.             ColumnWidth     =   1260.284
  949.          EndProperty
  950.          BeginProperty Column02 
  951.             Alignment       =   1
  952.             ColumnWidth     =   1440
  953.          EndProperty
  954.          BeginProperty Column03 
  955.             Alignment       =   1
  956.             ColumnWidth     =   524.976
  957.          EndProperty
  958.          BeginProperty Column04 
  959.             Alignment       =   1
  960.             ColumnWidth     =   464.882
  961.          EndProperty
  962.          BeginProperty Column05 
  963.             Alignment       =   1
  964.             ColumnWidth     =   659.906
  965.          EndProperty
  966.          BeginProperty Column06 
  967.             Alignment       =   1
  968.             ColumnWidth     =   675.213
  969.          EndProperty
  970.          BeginProperty Column07 
  971.             Alignment       =   1
  972.             ColumnWidth     =   1049.953
  973.          EndProperty
  974.          BeginProperty Column08 
  975.             Alignment       =   1
  976.             ColumnWidth     =   1275.024
  977.          EndProperty
  978.          BeginProperty Column09 
  979.             Alignment       =   1
  980.             ColumnWidth     =   1305.071
  981.          EndProperty
  982.          BeginProperty Column10 
  983.             Alignment       =   1
  984.             ColumnWidth     =   1319.811
  985.          EndProperty
  986.          BeginProperty Column11 
  987.             Alignment       =   1
  988.             ColumnWidth     =   1844.787
  989.          EndProperty
  990.          BeginProperty Column12 
  991.             Alignment       =   1
  992.             ColumnWidth     =   1335.118
  993.          EndProperty
  994.          BeginProperty Column13 
  995.             ColumnWidth     =   2085.166
  996.          EndProperty
  997.       EndProperty
  998.    End
  999.    Begin VB.Label Label1 
  1000.       AutoSize        =   -1  'True
  1001.       BackStyle       =   0  'Transparent
  1002.       ForeColor       =   &H00000000&
  1003.       Height          =   180
  1004.       Left            =   360
  1005.       TabIndex        =   1
  1006.       Top             =   6300
  1007.       Width           =   90
  1008.    End
  1009. End
  1010. Attribute VB_Name = "frmserch"
  1011. Attribute VB_GlobalNameSpace = False
  1012. Attribute VB_Creatable = False
  1013. Attribute VB_PredeclaredId = True
  1014. Attribute VB_Exposed = False
  1015. Private Sub Command1_Click()
  1016. Unload Me
  1017. End Sub
  1019. Private Sub DataGrid1_GotFocus()
  1020. Label1.Caption = "目前库存西药和中成药" & Adodc1.Recordset.RecordCount & "种。"
  1021. End Sub
  1023. Private Sub DataGrid2_GotFocus()
  1024. Label1.Caption = "目前库存中草药" & Adodc2.Recordset.RecordCount & "种。"
  1025. End Sub
  1026. Private Sub DataGrid3_GotFocus()
  1027. Label1.Caption = "目前库存医疗器械和材料" & Adodc3.Recordset.RecordCount & "种。"
  1028. End Sub
  1030. Private Sub Form_Load()
  1031. On Error GoTo err1
  1032. frmserch.Top = (frmmain.Height - frmserch.Height) / 2 - 500
  1033. frmserch.Left = (frmmain.Width - frmserch.Width) / 2
  1034. Adodc1.ConnectionString = frmlogin.conn
  1035. Adodc2.ConnectionString = frmlogin.conn
  1036. Adodc3.ConnectionString = frmlogin.conn
  1037. Adodc1.RecordSource = "select 编号,名称,规格,单位,数量,进价,零售价,批号,采购日期,调价日期,出厂日期,产地,失效期,备注 from kcyp order by 编号"
  1038. Adodc1.Refresh
  1039. Set DataGrid1.DataSource = Adodc1
  1041. Adodc2.RecordSource = "select 编号,名称,规格,单位,数量,进价,零售价,批号,采购日期,调价日期,出厂日期,产地,失效期,备注 from caoyao order by 编号"
  1042. Adodc2.Refresh
  1043. Set DataGrid2.DataSource = Adodc2
  1046. Adodc3.RecordSource = "select 编号,名称,规格,单位,数量,进价,零售价,批号,采购日期,调价日期,出厂日期,产地,失效期,备注 from qixie order by 编号"
  1047. Adodc3.Refresh
  1048. Set DataGrid3.DataSource = Adodc3
  1049. Exit Sub
  1050. err1:
  1051. MsgBox "数据库连接失败！"
  1052. End Sub
  1053. Private Sub Form_Unload(Cancel As Integer)
  1054. frmmain.StatusBar1.Panels(2) = "目前没有窗口被激活"
  1055. End Sub
  1056. Private Sub Form_Activate()
  1057. frmmain.StatusBar1.Panels(2) = "活动窗口：" & frmserch.Caption
  1058. End Sub