frmchestmodify.frm

健身俱乐部管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{57EA6131-FAB3-49C3-BF10-85A4777A5A7C}#1.0#0"; "XPButton.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form FrmChestModify 
   Caption         =   "储物箱修改"
   ClientHeight    =   3900
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4665
   Icon            =   "FrmChestModify.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3900
   ScaleWidth      =   4665
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame FraModify 
      Height          =   2985
      Left            =   135
      TabIndex        =   0
      Top             =   135
      Width           =   4380
      Begin VB.TextBox TxtIDCard 
         Height          =   285
         Left            =   1260
         TabIndex        =   11
         Top             =   2250
         Width           =   2220
      End
      Begin MSComctlLib.StatusBar StatusBar1 
         Height          =   30
         Left            =   2115
         TabIndex        =   10
         Top             =   2340
         Width           =   30
         _ExtentX        =   53
         _ExtentY        =   53
         _Version        =   393216
         BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
            NumPanels       =   1
            BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            EndProperty
         EndProperty
      End
      Begin VB.TextBox TxtChest 
         Height          =   285
         Left            =   1260
         TabIndex        =   1
         Top             =   360
         Width           =   1815
      End
      Begin MSComCtl2.DTPicker dtpBoxStarting 
         Height          =   285
         Left            =   1260
         TabIndex        =   2
         Top             =   1035
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   503
         _Version        =   393216
         CustomFormat    =   "yyyy-mm-dd"
         Format          =   20185089
         CurrentDate     =   29221
         MinDate         =   2
      End
      Begin MSComCtl2.DTPicker dtpBoxDeadLine 
         Height          =   285
         Left            =   1260
         TabIndex        =   3
         Top             =   1665
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   503
         _Version        =   393216
         CustomFormat    =   "yyyy-mm-dd"
         Format          =   20185089
         CurrentDate     =   29221
         MinDate         =   2
      End
      Begin VB.Label LblBoxDeadline 
         AutoSize        =   -1  'True
         Caption         =   "截止日期"
         Height          =   180
         Left            =   360
         TabIndex        =   7
         Top             =   1710
         Width           =   720
      End
      Begin VB.Label LblBoxStart 
         AutoSize        =   -1  'True
         Caption         =   "起始日期"
         Height          =   180
         Left            =   360
         TabIndex        =   6
         Top             =   1080
         Width           =   720
      End
      Begin VB.Label LblChest 
         AutoSize        =   -1  'True
         Caption         =   "储物箱"
         Height          =   180
         Left            =   540
         TabIndex        =   5
         Top             =   405
         Width           =   540
      End
      Begin VB.Label LblIDCard 
         AutoSize        =   -1  'True
         Caption         =   "身份证号"
         Height          =   180
         Left            =   405
         TabIndex        =   4
         Top             =   2295
         Width           =   720
      End
   End
   Begin XP_Button.XPButton BtnModify 
      Height          =   330
      Left            =   2340
      TabIndex        =   8
      Top             =   3375
      Width           =   1005
      _ExtentX        =   1773
      _ExtentY        =   582
      caption         =   "修改"
   End
   Begin XP_Button.XPButton BtnBack 
      Height          =   330
      Left            =   3495
      TabIndex        =   9
      Top             =   3375
      Width           =   1005
      _ExtentX        =   1773
      _ExtentY        =   582
      caption         =   "返回"
   End
End
Attribute VB_Name = "FrmChestModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub Form_Load()
    Me.TxtChest.Text = FrmChestManage.LvwChest.SelectedItem.Text  '储物箱号
    Me.dtpBoxStarting.Value = FrmChestManage.LvwChest.SelectedItem.SubItems(1) '起始日期
    Me.dtpBoxDeadLine.Value = FrmChestManage.LvwChest.SelectedItem.SubItems(2) '截止日期
   ' Me.TxtName.Text = FrmChestManage.LvwChest.SelectedItem.SubItems(3) '姓名
    Me.TxtIDCard.Text = FrmChestManage.LvwChest.SelectedItem.SubItems(4) '身份证
End Sub
''检测姓名是否输入完毕
'Private Sub TxtName_KeyPress(KeyAscii As Integer)
'    '   Char = Chr(KeyAscii)
'    '   KeyAscii = Asc(UCase(Char))
'    Select Case KeyAscii
'    Case 13 '回车
'        optSex(0).SetFocus '性别选择单选框
'    Case Else
'    End Select
'
'End Sub

'返回
Private Sub BtnBack_Click()
    Unload Me '返回
End Sub

'修改
Private Sub BtnModify_Click()
    Dim Flag_InPut As Boolean
    Flag_InPut = TestInput
    If Flag_InPut = False Then
        Exit Sub
    End If
    
    Dim Rs_Member As ADODB.Recordset
    Set Rs_Member = New ADODB.Recordset
    Rs_Member.Open "SELECT Member.* FROM Member WHERE Member.idcard ='" & Me.TxtIDCard.Text & "'", CN, adOpenStatic, adLockBatchOptimistic
    If Rs_Member.EOF Then
        MsgBox "没有该会员！", vbInformation, "提示"
        Me.TxtIDCard.Text = ""
        Exit Sub
    End If
    Rs_Member.Close
    Set Rs_Member = Nothing
    '*******************************************************
    Dim Rs_Chest As ADODB.Recordset '储物箱
    Set Rs_Chest = New ADODB.Recordset
    Dim SQLStr As String
    SQLStr = "SELECT Chest.* FROM Chest WHERE Chest.ID ='" & FrmChestManage.LvwChest.SelectedItem.Text & " '"
    Rs_Chest.Open SQLStr, CN, adOpenStatic, adLockOptimistic
    If Not Rs_Chest.EOF Then
        Rs_Chest!Id = Me.TxtChest.Text '储物箱
        Rs_Chest!StartingTime = Me.dtpBoxStarting.Value '储物箱起始时间
        Rs_Chest!Deadline = Me.dtpBoxDeadLine.Value '储物箱截止时间
        Rs_Chest!userid = Me.TxtIDCard.Text '身份证
        Rs_Chest.Update
    Else
        Rs_Chest.AddNew
        Rs_Chest!Id = Me.TxtChest.Text '储物箱
        Rs_Chest!StartingTime = Me.dtpBoxStarting.Value '储物箱起始时间
        Rs_Chest!Deadline = Me.dtpBoxDeadLine.Value '储物箱截止时间
        Rs_Chest!userid = Me.TxtIDCard.Text '身份证
        Rs_Chest.Update
    End If
    
    Rs_Chest.Close
    Set Rs_Chest = Nothing
    '刷新
    Call FrmChestManage.ChestQry
    Unload Me '退出
End Sub

'验证输入的会员信息
Private Function TestInput() As Boolean
    TestInput = True
    '对输入的储物箱进行验证
    If Me.TxtChest.Text = "" Then
        MsgBox "请输入储物箱号！", vbInformation, "提示"
        TestInput = False
        Exit Function
    End If
    '身份证号
    If Not IsNumeric(Me.TxtIDCard.Text) Then
        MsgBox "请输入身份证号", vbInformation, "提示"
        TestInput = False
        Exit Function
    End If

End Function