form1.frm

这是我自己编写的关于创建和修改自己定义的数据库

   End
   Begin VB.Label Label25 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "一次成功"
      Height          =   315
      Left            =   3000
      TabIndex        =   54
      Top             =   3660
      Width           =   1995
   End
   Begin VB.Label Label24 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "*2.数传电台数据通信"
      Height          =   315
      Left            =   720
      TabIndex        =   53
      Top             =   3660
      Width           =   2295
   End
   Begin VB.Label Label22 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "TP601：+3.0V～3.3V"
      Height          =   315
      Left            =   3000
      TabIndex        =   52
      Top             =   3060
      Width           =   1995
   End
   Begin VB.Label Label23 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "TP602: +3.0V～3.3V"
      Height          =   315
      Left            =   3000
      TabIndex        =   51
      Top             =   3360
      Width           =   1995
   End
   Begin VB.Label Label21 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "*1.主控板电源电压"
      Height          =   600
      Left            =   720
      TabIndex        =   48
      Top             =   3060
      Width           =   2295
   End
   Begin VB.Label Label20 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "检验"
      Height          =   315
      Left            =   4995
      TabIndex        =   47
      Top             =   2760
      Width           =   1125
   End
   Begin VB.Label Label19 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "测试标准"
      Height          =   315
      Left            =   3000
      TabIndex        =   46
      Top             =   2760
      Width           =   1995
   End
   Begin VB.Label Label18 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "测试项目"
      Height          =   315
      Left            =   720
      TabIndex        =   45
      Top             =   2760
      Width           =   2295
   End
   Begin VB.Line Line1 
      X1              =   240
      X2              =   10320
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Label Label1 
      Caption         =   "WFK-03 计量综合自动化装置整机检验记录表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   30
      Top             =   120
      Width           =   7095
   End
   Begin VB.Label Label2 
      Caption         =   "检测温度"
      Height          =   195
      Left            =   840
      TabIndex        =   29
      Top             =   1110
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "相对湿度"
      Height          =   195
      Left            =   3840
      TabIndex        =   28
      Top             =   1110
      Width           =   855
   End
   Begin VB.Label Label4 
      Caption         =   "电源电压"
      Height          =   255
      Left            =   6840
      TabIndex        =   27
      Top             =   1110
      Width           =   855
   End
   Begin VB.Label Label5 
      Caption         =   "整机编号"
      Height          =   285
      Left            =   840
      TabIndex        =   26
      Top             =   1410
      Width           =   855
   End
   Begin VB.Label Label6 
      Caption         =   "检验日期"
      Height          =   255
      Left            =   3840
      TabIndex        =   25
      Top             =   1410
      Width           =   975
   End
   Begin VB.Label Label7 
      Caption         =   "检验员"
      Height          =   255
      Left            =   7080
      TabIndex        =   24
      Top             =   1410
      Width           =   735
   End
   Begin VB.Label Label8 
      Caption         =   "电台型号"
      Height          =   255
      Left            =   840
      TabIndex        =   23
      Top             =   1710
      Width           =   855
   End
   Begin VB.Label Label9 
      Caption         =   "电台编号"
      Height          =   255
      Left            =   3840
      TabIndex        =   22
      Top             =   1710
      Width           =   975
   End
   Begin VB.Label Label10 
      Caption         =   "电源型号"
      Height          =   255
      Left            =   6840
      TabIndex        =   21
      Top             =   1710
      Width           =   855
   End
   Begin VB.Label Label11 
      Caption         =   "电源编号"
      Height          =   255
      Left            =   840
      TabIndex        =   20
      Top             =   2010
      Width           =   855
   End
   Begin VB.Label Label12 
      Caption         =   "主板编号"
      Height          =   255
      Left            =   3840
      TabIndex        =   19
      Top             =   2010
      Width           =   975
   End
   Begin VB.Label Label13 
      Caption         =   "解调器/板"
      Height          =   255
      Left            =   6720
      TabIndex        =   18
      Top             =   2010
      Width           =   975
   End
   Begin VB.Label Label14 
      Caption         =   "接线板号"
      Height          =   255
      Left            =   840
      TabIndex        =   17
      Top             =   2310
      Width           =   855
   End
   Begin VB.Label Label15 
      Caption         =   "显示板号"
      Height          =   255
      Left            =   3840
      TabIndex        =   16
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label Label16 
      Caption         =   "LED显示屏"
      Height          =   255
      Left            =   6720
      TabIndex        =   15
      Top             =   2310
      Width           =   975
   End
   Begin VB.Line Line2 
      X1              =   240
      X2              =   9120
      Y1              =   960
      Y2              =   960
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim a, b, c, d, e, f, g As Integer
Dim str As String






Private Sub Command1_Click()
'Dim q As Integer
If Text4.Text = "" Then
    a = MsgBox("请输入查询编号", 0, "提示")
Else
   ' Dim db As Database
    'Dim rec As Recordset
    'Set rec = db.OpenRecordset("select 编号 from main ")
    
    
   ' While rec.EOF = False
    
    
    ' If Text16.Text = gfNullToString(rec.Fields("编号")) Then
    
    ' s = MsgBox("编号不存在", 0, "提示")

    Dim db As Database
    Dim rec As Recordset
    Set db = OpenDatabase(App.Path + "\wfk-03.mdb")
    Set rec = db.OpenRecordset("select * from  main  where 整机编号= '" & Text4.Text & " ' ")
    If rec.RecordCount > 0 Then
        Text1.Text = gfNullToString(rec.Fields("检测温度"))
        Text2.Text = gfNullToString(rec.Fields("相对湿度"))
        Text3.Text = gfNullToString(rec.Fields("电源电压"))
        'Text4.Text = gfNullToString(rec.Fields("整机编号"))
        Text5.Text = gfNullToString(rec.Fields("检验日期"))
        Text6.Text = gfNullToString(rec.Fields("检验员"))
        Text7.Text = gfNullToString(rec.Fields("电台型号"))
        Text8.Text = gfNullToString(rec.Fields("电台编号"))
        Text9.Text = gfNullToString(rec.Fields("电源型号"))
        Text10.Text = gfNullToString(rec.Fields("电源编号"))
        Text11.Text = gfNullToString(rec.Fields("主板编号"))
        Text12.Text = gfNullToString(rec.Fields("解调器板"))
        Text13.Text = gfNullToString(rec.Fields("接线板号"))
        Text14.Text = gfNullToString(rec.Fields("显示板号"))
        Text15.Text = gfNullToString(rec.Fields("LED显示屏"))
        Text17.Text = gfNullToString(rec.Fields("A"))
        Text18.Text = gfNullToString(rec.Fields("B"))
        Text19.Text = gfNullToString(rec.Fields("C"))
        Text20.Text = gfNullToString(rec.Fields("D"))
        Text21.Text = gfNullToString(rec.Fields("E"))
        Text22.Text = gfNullToString(rec.Fields("F"))
        Text23.Text = gfNullToString(rec.Fields("G"))
        Text24.Text = gfNullToString(rec.Fields("H"))
        Text25.Text = gfNullToString(rec.Fields("I"))
        Text26.Text = gfNullToString(rec.Fields("J"))
        Text27.Text = gfNullToString(rec.Fields("K"))
        Text28.Text = gfNullToString(rec.Fields("L"))
        Text29.Text = gfNullToString(rec.Fields("M"))
        Text30.Text = gfNullToString(rec.Fields("N"))
    Else
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        'Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
        Text7.Text = ""
        Text8.Text = ""
        Text9.Text = ""
        Text10.Text = ""
        Text11.Text = ""
        Text12.Text = ""
        Text13.Text = ""
        Text14.Text = ""
        Text15.Text = ""
        'Text16.Text = ""
        Text17.Text = ""
        Text18.Text = ""
        Text19.Text = ""
        Text20.Text = ""
        Text21.Text = ""
        Text22.Text = ""
        Text23.Text = ""
        Text24.Text = ""
        Text25.Text = ""
        Text26.Text = ""
        Text27.Text = ""
        Text28.Text = ""
        Text29.Text = ""
        Text30.Text = ""
        b = MsgBox("编号不存在,请重新输入", 0, "提示")
          
    End If
          rec.Close
          Set rec = Nothing
          
End If
End Sub



Private Sub Command10_Click()
Form4.Show
Form1.Visible = False
Form4.Text5 = Form1.Text12.Text
End Sub

Private Sub Command11_Click()
Form5.Show
Form1.Visible = False
Form5.Text5.Text = Form1.Text13

End Sub

Private Sub Command12_Click()
Form6.Show
Form1.Visible = False
Form6.Text2.Text = Form1.Text14
End Sub

Private Sub Command13_Click()
Form7.Show
Form1.Visible = False
Form7.Text1.Text = Form1.Text15
End Sub

Private Sub Command14_Click()
Form9.Show
Form1.Visible = False
Form9.Text1.Text = Form1.Text4
End Sub

Private Sub Command15_Click()
Form10.Show
Form1.Visible = False
Form10.Text1.Text = Form1.Text4
End Sub

'Private Sub Command16_Click()
'frmRpt.Show
'Form1.Visible = False

'End Sub

Private Sub Command17_Click()
frmRpt.Show
Form1.Visible = False

End Sub

Private Sub Command2_Click()
            Text1.Text = ""
            Text2.Text = ""
            Text3.Text = ""
            'Text4.Text = ""
            Text5.Text = ""
            Text6.Text = ""
            Text7.Text = ""
            Text8.Text = ""
            Text9.Text = ""
            Text10.Text = ""
            Text11.Text = ""
            Text12.Text = ""
            Text13.Text = ""
            Text14.Text = ""
            Text15.Text = ""
            'Text16.Text = ""
            Text17.Text = ""
            Text18.Text = ""
            Text19.Text = ""
            Text20.Text = ""
            Text21.Text = ""
            Text22.Text = ""
            Text23.Text = ""
            Text24.Text = ""
            Text25.Text = ""
            Text26.Text = ""
            Text27.Text = ""