frmtxcx.frm

针对各种管理系统提供有的VB源代码

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FRMTXCX 
   Caption         =   "图形查询"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8280
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   8595
   ScaleWidth      =   11880
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame2 
      Height          =   2055
      Left            =   2730
      TabIndex        =   3
      Top             =   6510
      Width           =   9105
      Begin VB.TextBox txtFields 
         DataField       =   "日期"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   1
         Left            =   1440
         TabIndex        =   13
         Top             =   390
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "班次"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   2
         Left            =   1440
         TabIndex        =   12
         Top             =   675
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "设备名称"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   3
         Left            =   1440
         TabIndex        =   11
         Top             =   1005
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "电压"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   4
         Left            =   1440
         TabIndex        =   10
         Top             =   1320
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "电流"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   5
         Left            =   1440
         TabIndex        =   9
         Top             =   1635
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "工作状态"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   6
         Left            =   6270
         TabIndex        =   8
         Top             =   360
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "控制系统是否正常"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   7
         Left            =   6270
         TabIndex        =   7
         Top             =   720
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "运转有无异常"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   8
         Left            =   6270
         TabIndex        =   6
         Top             =   1035
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "发现的问题"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   9
         Left            =   6270
         TabIndex        =   5
         Top             =   1365
         Width           =   2535
      End
      Begin VB.TextBox txtFields 
         DataField       =   "记录人"
         DataSource      =   "Adodc3"
         Height          =   285
         Index           =   10
         Left            =   6270
         TabIndex        =   4
         Top             =   1680
         Width           =   2535
      End
      Begin VB.Label lblLabels 
         Caption         =   "日期:"
         Height          =   255
         Index           =   1
         Left            =   330
         TabIndex        =   23
         Top             =   390
         Width           =   975
      End
      Begin VB.Label lblLabels 
         Caption         =   "班次:"
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   22
         Top             =   675
         Width           =   975
      End
      Begin VB.Label lblLabels 
         Caption         =   "设备名称:"
         Height          =   255
         Index           =   3
         Left            =   360
         TabIndex        =   21
         Top             =   1005
         Width           =   975
      End
      Begin VB.Label lblLabels 
         Caption         =   "电压:"
         Height          =   255
         Index           =   4
         Left            =   360
         TabIndex        =   20
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label lblLabels 
         Caption         =   "电流:"
         Height          =   255
         Index           =   5
         Left            =   360
         TabIndex        =   19
         Top             =   1635
         Width           =   975
      End
      Begin VB.Label lblLabels 
         Caption         =   "工作状态:"
         Height          =   255
         Index           =   6
         Left            =   4590
         TabIndex        =   18
         Top             =   390
         Width           =   975
      End
      Begin VB.Label lblLabels 
         Caption         =   "控制系统是否正常:"
         Height          =   255
         Index           =   7
         Left            =   4590
         TabIndex        =   17
         Top             =   720
         Width           =   1515
      End
      Begin VB.Label lblLabels 
         Caption         =   "运转有无异常:"
         Height          =   255
         Index           =   8
         Left            =   4590
         TabIndex        =   16
         Top             =   1035
         Width           =   1515
      End
      Begin VB.Label lblLabels 
         Caption         =   "发现的问题:"
         Height          =   255
         Index           =   9
         Left            =   4590
         TabIndex        =   15
         Top             =   1365
         Width           =   1515
      End
      Begin VB.Label lblLabels 
         Caption         =   "记录人:"
         Height          =   255
         Index           =   10
         Left            =   4590
         TabIndex        =   14
         Top             =   1680
         Width           =   1515
      End
   End
   Begin RichTextLib.RichTextBox RichTextBox1 
      DataField       =   "图象"
      DataSource      =   "Adodc1"
      Height          =   6555
      Left            =   2700
      TabIndex        =   2
      Top             =   -30
      Width           =   9200
      _ExtentX        =   16219
      _ExtentY        =   11562
      _Version        =   393217
      BorderStyle     =   0
      ScrollBars      =   3
      DisableNoScroll =   -1  'True
      Appearance      =   0
      RightMargin     =   1.00000e5
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"FRMTXCX.frx":0000
   End
   Begin VB.Frame Frame1 
      Height          =   8625
      Left            =   0
      TabIndex        =   0
      Top             =   -60
      Width           =   2715
      Begin MSAdodcLib.Adodc Adodc4 
         Height          =   330
         Left            =   390
         Top             =   5730
         Visible         =   0   'False
         Width           =   1635
         _ExtentX        =   2884
         _ExtentY        =   582
         ConnectMode     =   0
         CursorLocation  =   3
         IsolationLevel  =   -1
         ConnectionTimeout=   15
         CommandTimeout  =   30
         CursorType      =   3
         LockType        =   3
         CommandType     =   8
         CursorOptions   =   0
         CacheSize       =   50
         MaxRecords      =   0
         BOFAction       =   0
         EOFAction       =   0
         ConnectStringType=   3
         Appearance      =   1
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Orientation     =   0
         Enabled         =   -1
         Connect         =   "DSN=Facility"
         OLEDBString     =   ""