questionform.frm

适合乡镇供电所使用电费处理系统v3 软件

VERSION 5.00
Begin VB.Form QuestionForm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "手工输入"
   ClientHeight    =   1785
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5970
   Icon            =   "QuestionForm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   1785
   ScaleWidth      =   5970
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "电表翻转"
      Height          =   375
      Left            =   3600
      TabIndex        =   2
      Top             =   1080
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Cancel          =   -1  'True
      Caption         =   "输入错误"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   1560
      Picture         =   "QuestionForm.frx":08CA
      TabIndex        =   1
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "系统检测本月示数输入错误，给出以下判断，请您相应选择："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   360
      Width           =   3375
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   720
      Picture         =   "QuestionForm.frx":0BD4
      Top             =   240
      Width           =   480
   End
End
Attribute VB_Name = "QuestionForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'///////////输错////////////
Private Sub Command1_Click()
   InputRecord.Text1 = ""
   Unload Me
End Sub

'///////////翻转////////////
Private Sub Command2_Click()
   Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.[" & AAA & "] AS 上期示数,用户电费.[" & AA & "] AS 本期示数,用户电费.抄表码,用户电费.调整原因 FROM 用户电费 WHERE  用户电费.镇村代码='" & UserSeek & " ' and 用户电费.抄表码= '" & InputRecord.ListView1.SelectedItem & "'")
   If Len(IIf(IsNull(MdbR.Fields!上期示数) = True, "", MdbR.Fields!上期示数)) > 3 Then
        MdbR.Edit
        MdbR.Fields!本期示数 = Format(InputRecord.Text1, "000000")
        MdbR.Fields!调整原因 = "翻转"
        MdbR.Update
        InputRecord.ListView1.SelectedItem.SubItems(4) = Format(InputRecord.Text1, "000000")
        InputRecord.ListView1.SelectedItem.SubItems(6) = "翻转"
        InputRecord.Text1 = ""
        Dim rct As String
        rct = InputRecord.ListView1.SelectedItem
        Dim Item As ListItem, Index As Integer
        Index = InputRecord.ListView1.SelectedItem.Index
        Set Item = InputRecord.ListView1.FindItem(Mid(rct, 1, 3), , Index + 1, lvwPartial)
        If Not (Item Is Nothing) Then
           Set InputRecord.ListView1.SelectedItem = Item
           Item.EnsureVisible
        End If
   Else
        MsgBox "该户表位小于３位不能翻转，请检查原因！", vbCritical
        Exit Sub
        Unload Me
   End If
   Unload Me
End Sub

Private Sub Form_Load()
   Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
   OpenMdb
End Sub