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

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

医药行业

开发平台：

Visual Basic

frmsercho.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 frmsercho 
  5.    BackColor       =   &H00404040&
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "查看库存调拨情况"
  8.    ClientHeight    =   4635
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   9840
  12.    Icon            =   "frmsercho.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MDIChild        =   -1  'True
  16.    MinButton       =   0   'False
  17.    Picture         =   "frmsercho.frx":030A
  18.    ScaleHeight     =   4635
  19.    ScaleWidth      =   9840
  20.    ShowInTaskbar   =   0   'False
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "关闭&(C)"
  23.       Height          =   350
  24.       Left            =   4560
  25.       TabIndex        =   0
  26.       Top             =   4200
  27.       Width           =   1200
  28.    End
  29.    Begin MSDataGridLib.DataGrid DataGrid1 
  30.       Bindings        =   "frmsercho.frx":59F9
  31.       Height          =   3840
  32.       Left            =   240
  33.       TabIndex        =   1
  34.       Top             =   240
  35.       Width           =   9375
  36.       _ExtentX        =   16536
  37.       _ExtentY        =   6773
  38.       _Version        =   393216
  39.       AllowUpdate     =   0   'False
  40.       BackColor       =   16777215
  41.       ForeColor       =   16711680
  42.       HeadLines       =   1.5
  43.       RowHeight       =   15
  44.       FormatLocked    =   -1  'True
  45.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  46.          Name            =   "宋体"
  47.          Size            =   9
  48.          Charset         =   134
  49.          Weight          =   400
  50.          Underline       =   0   'False
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          Name            =   "宋体"
  56.          Size            =   9
  57.          Charset         =   134
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       ColumnCount     =   14
  64.       BeginProperty Column00 
  65.          DataField       =   "编号"
  66.          Caption         =   "编号"
  67.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  68.             Type            =   0
  69.             Format          =   ""
  70.             HaveTrueFalseNull=   0
  71.             FirstDayOfWeek  =   0
  72.             FirstWeekOfYear =   0
  73.             LCID            =   2052
  74.             SubFormatType   =   0
  75.          EndProperty
  76.       EndProperty
  77.       BeginProperty Column01 
  78.          DataField       =   "名称"
  79.          Caption         =   "名称"
  80.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  81.             Type            =   0
  82.             Format          =   ""
  83.             HaveTrueFalseNull=   0
  84.             FirstDayOfWeek  =   0
  85.             FirstWeekOfYear =   0
  86.             LCID            =   2052
  87.             SubFormatType   =   0
  88.          EndProperty
  89.       EndProperty
  90.       BeginProperty Column02 
  91.          DataField       =   "规格"
  92.          Caption         =   "规格"
  93.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  94.             Type            =   0
  95.             Format          =   ""
  96.             HaveTrueFalseNull=   0
  97.             FirstDayOfWeek  =   0
  98.             FirstWeekOfYear =   0
  99.             LCID            =   2052
  100.             SubFormatType   =   0
  101.          EndProperty
  102.       EndProperty
  103.       BeginProperty Column03 
  104.          DataField       =   "单位"
  105.          Caption         =   "单位"
  106.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  107.             Type            =   0
  108.             Format          =   ""
  109.             HaveTrueFalseNull=   0
  110.             FirstDayOfWeek  =   0
  111.             FirstWeekOfYear =   0
  112.             LCID            =   2052
  113.             SubFormatType   =   0
  114.          EndProperty
  115.       EndProperty
  116.       BeginProperty Column04 
  117.          DataField       =   "数量"
  118.          Caption         =   "数量"
  119.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  120.             Type            =   0
  121.             Format          =   ""
  122.             HaveTrueFalseNull=   0
  123.             FirstDayOfWeek  =   0
  124.             FirstWeekOfYear =   0
  125.             LCID            =   2052
  126.             SubFormatType   =   0
  127.          EndProperty
  128.       EndProperty
  129.       BeginProperty Column05 
  130.          DataField       =   "进价"
  131.          Caption         =   "进价"
  132.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  133.             Type            =   0
  134.             Format          =   ""
  135.             HaveTrueFalseNull=   0
  136.             FirstDayOfWeek  =   0
  137.             FirstWeekOfYear =   0
  138.             LCID            =   2052
  139.             SubFormatType   =   0
  140.          EndProperty
  141.       EndProperty
  142.       BeginProperty Column06 
  143.          DataField       =   "零售价"
  144.          Caption         =   "零售价"
  145.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  146.             Type            =   0
  147.             Format          =   ""
  148.             HaveTrueFalseNull=   0
  149.             FirstDayOfWeek  =   0
  150.             FirstWeekOfYear =   0
  151.             LCID            =   2052
  152.             SubFormatType   =   0
  153.          EndProperty
  154.       EndProperty
  155.       BeginProperty Column07 
  156.          DataField       =   "批号"
  157.          Caption         =   "批号"
  158.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  159.             Type            =   0
  160.             Format          =   ""
  161.             HaveTrueFalseNull=   0
  162.             FirstDayOfWeek  =   0
  163.             FirstWeekOfYear =   0
  164.             LCID            =   2052
  165.             SubFormatType   =   0
  166.          EndProperty
  167.       EndProperty
  168.       BeginProperty Column08 
  169.          DataField       =   "失效期"
  170.          Caption         =   "失效期"
  171.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  172.             Type            =   1
  173.             Format          =   "yyyy""年""M""月""d""日"""
  174.             HaveTrueFalseNull=   0
  175.             FirstDayOfWeek  =   0
  176.             FirstWeekOfYear =   0
  177.             LCID            =   2052
  178.             SubFormatType   =   0
  179.          EndProperty
  180.       EndProperty
  181.       BeginProperty Column09 
  182.          DataField       =   "产地"
  183.          Caption         =   "产地"
  184.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  185.             Type            =   0
  186.             Format          =   ""
  187.             HaveTrueFalseNull=   0
  188.             FirstDayOfWeek  =   0
  189.             FirstWeekOfYear =   0
  190.             LCID            =   2052
  191.             SubFormatType   =   0
  192.          EndProperty
  193.       EndProperty
  194.       BeginProperty Column10 
  195.          DataField       =   "调拨日期"
  196.          Caption         =   "调拨日期"
  197.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  198.             Type            =   1
  199.             Format          =   "yyyy""年""M""月""d""日"""
  200.             HaveTrueFalseNull=   0
  201.             FirstDayOfWeek  =   0
  202.             FirstWeekOfYear =   0
  203.             LCID            =   2052
  204.             SubFormatType   =   0
  205.          EndProperty
  206.       EndProperty
  207.       BeginProperty Column11 
  208.          DataField       =   "调拨部门"
  209.          Caption         =   "调拨部门"
  210.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  211.             Type            =   0
  212.             Format          =   ""
  213.             HaveTrueFalseNull=   0
  214.             FirstDayOfWeek  =   0
  215.             FirstWeekOfYear =   0
  216.             LCID            =   2052
  217.             SubFormatType   =   0
  218.          EndProperty
  219.       EndProperty
  220.       BeginProperty Column12 
  221.          DataField       =   "调拨人"
  222.          Caption         =   "调拨人"
  223.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  224.             Type            =   0
  225.             Format          =   ""
  226.             HaveTrueFalseNull=   0
  227.             FirstDayOfWeek  =   0
  228.             FirstWeekOfYear =   0
  229.             LCID            =   2052
  230.             SubFormatType   =   0
  231.          EndProperty
  232.       EndProperty
  233.       BeginProperty Column13 
  234.          DataField       =   "备注"
  235.          Caption         =   "备注"
  236.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  237.             Type            =   0
  238.             Format          =   ""
  239.             HaveTrueFalseNull=   0
  240.             FirstDayOfWeek  =   0
  241.             FirstWeekOfYear =   0
  242.             LCID            =   2052
  243.             SubFormatType   =   0
  244.          EndProperty
  245.       EndProperty
  246.       SplitCount      =   1
  247.       BeginProperty Split0 
  248.          BeginProperty Column00 
  249.             ColumnWidth     =   705.26
  250.          EndProperty
  251.          BeginProperty Column01 
  252.             ColumnWidth     =   1170.142
  253.          EndProperty
  254.          BeginProperty Column02 
  255.             ColumnWidth     =   1349.858
  256.          EndProperty
  257.          BeginProperty Column03 
  258.             ColumnWidth     =   524.976
  259.          EndProperty
  260.          BeginProperty Column04 
  261.             ColumnWidth     =   569.764
  262.          EndProperty
  263.          BeginProperty Column05 
  264.             ColumnWidth     =   659.906
  265.          EndProperty
  266.          BeginProperty Column06 
  267.             ColumnWidth     =   705.26
  268.          EndProperty
  269.          BeginProperty Column07 
  270.             ColumnWidth     =   1005.165
  271.          EndProperty
  272.          BeginProperty Column08 
  273.             ColumnWidth     =   1440
  274.          EndProperty
  275.          BeginProperty Column09 
  276.             ColumnWidth     =   1904.882
  277.          EndProperty
  278.          BeginProperty Column10 
  279.             ColumnWidth     =   1500.095
  280.          EndProperty
  281.          BeginProperty Column11 
  282.             ColumnWidth     =   1230.236
  283.          EndProperty
  284.          BeginProperty Column12 
  285.             ColumnWidth     =   840.189
  286.          EndProperty
  287.          BeginProperty Column13 
  288.             ColumnWidth     =   2085.166
  289.          EndProperty
  290.       EndProperty
  291.    End
  292.    Begin MSAdodcLib.Adodc Adodc1 
  293.       Height          =   330
  294.       Left            =   240
  295.       Top             =   4185
  296.       Visible         =   0   'False
  297.       Width           =   1575
  298.       _ExtentX        =   2778
  299.       _ExtentY        =   582
  300.       ConnectMode     =   0
  301.       CursorLocation  =   3
  302.       IsolationLevel  =   -1
  303.       ConnectionTimeout=   15
  304.       CommandTimeout  =   30
  305.       CursorType      =   3
  306.       LockType        =   3
  307.       CommandType     =   8
  308.       CursorOptions   =   0
  309.       CacheSize       =   50
  310.       MaxRecords      =   0
  311.       BOFAction       =   0
  312.       EOFAction       =   0
  313.       ConnectStringType=   1
  314.       Appearance      =   1
  315.       BackColor       =   -2147483643
  316.       ForeColor       =   -2147483640
  317.       Orientation     =   0
  318.       Enabled         =   -1
  319.       Connect         =   ""
  320.       OLEDBString     =   ""
  321.       OLEDBFile       =   ""
  322.       DataSourceName  =   ""
  323.       OtherAttributes =   ""
  324.       UserName        =   ""
  325.       Password        =   ""
  326.       RecordSource    =   ""
  327.       Caption         =   "Adodc1"
  328.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  329.          Name            =   "宋体"
  330.          Size            =   9
  331.          Charset         =   134
  332.          Weight          =   400
  333.          Underline       =   0   'False
  334.          Italic          =   0   'False
  335.          Strikethrough   =   0   'False
  336.       EndProperty
  337.       _Version        =   393216
  338.    End
  339. End
  340. Attribute VB_Name = "frmsercho"
  341. Attribute VB_GlobalNameSpace = False
  342. Attribute VB_Creatable = False
  343. Attribute VB_PredeclaredId = True
  344. Attribute VB_Exposed = False
  345. Private Sub Command1_Click()
  346. Unload Me
  347. End Sub
  349. Private Sub Form_Load()
  350. On Error GoTo err1
  351. frmsercho.Top = (frmmain.Height - frmsercho.Height) / 2 - 500
  352. frmsercho.Left = (frmmain.Width - frmsercho.Width) / 2
  353. Adodc1.ConnectionString = frmlogin.conn
  354. Adodc1.RecordSource = "select 编号,名称,规格,单位,数量,进价,零售价,批号,失效期,产地,调拨日期,调拨部门,调拨人,备注 from ypdb order by 编号"
  355. Adodc1.Refresh
  356. Set DataGrid1.DataSource = Adodc1
  357. Exit Sub
  358. err1:
  359. MsgBox "数据库连接失败！"
  360. End Sub
  361. Private Sub Form_Unload(Cancel As Integer)
  362. frmmain.StatusBar1.Panels(2) = "目前没有窗口被激活"
  363. End Sub
  364. Private Sub Form_Activate()
  365. frmmain.StatusBar1.Panels(2) = "活动窗口：" & frmsercho.Caption
  366. End Sub