frmcardsedit.frm

企业图书管理系统

         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "借阅证编号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   360
         TabIndex        =   13
         Top             =   360
         Width           =   900
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "有效证件号码"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   360
         TabIndex        =   12
         Top             =   2280
         Width           =   1080
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "姓  名"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   360
         TabIndex        =   11
         Top             =   1320
         Width           =   540
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "工作单位"
         Height          =   180
         Left            =   360
         TabIndex        =   10
         Top             =   840
         Width           =   720
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "发证日期"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   360
         TabIndex        =   9
         Top             =   2760
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "状    态"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   360
         TabIndex        =   8
         Top             =   3240
         Width           =   720
      End
      Begin VB.Label lbl_Status 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "有效"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   1680
         TabIndex        =   7
         Top             =   3240
         Width           =   720
      End
   End
End
Attribute VB_Name = "FrmCardsEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean '插入=false,修改=true
Public OriCardNo As String

Private Sub Cmd_Cancel_Click()
  Unload Me
End Sub

Private Sub Cmd_OK_Click()
  '检查用户录入数据的有效性
  If Len(Trim(txtCardNo)) = 0 Then
    MsgBox "请您输入借阅证号!   ", 64, "提示"
    txtCardNo.SetFocus
    txtCardNo.SelStart = 0
    txtCardNo.SelLength = Len(txtCardNo)
    Exit Sub
  End If
  If Len(Trim(txtName)) = 0 Then
    MsgBox "请您输入姓名!   ", 64, "提示"
    txtName.SetFocus
    txtName.SelStart = 0
    txtName.SelLength = Len(txtName)
    Exit Sub
  End If
  If Len(Trim(txtIdCard)) = 0 Then
    MsgBox "请您输入有效证件号码!   ", 64, "提示"
    txtIdCard.SetFocus
    txtIdCard.SelStart = 0
    txtIdCard.SelLength = Len(txtIdCard)
    Exit Sub
  End If
  If Len(Trim(dco_CardType.Text)) = 0 Then
    MsgBox "请您选择证件类型!   ", 64, "提示"
    dco_CardType.SetFocus
    Exit Sub
  End If
  
  If Len(Trim(txtCreateDate)) = 0 Then
    MsgBox "请您输入发证日期!   ", 64, "提示"
    txtCreateDate.SetFocus
    txtCreateDate.SelStart = 0
    txtCreateDate.SelLength = Len(txtCreateDate)
    Exit Sub
  End If
  '把用户录入的数据赋值到数据库对象变量中
  With MyCards
    .Cardno = MakeStr(txtCardNo)
    .Workorg = MakeStr(txtWorkPlace)
    .Name = MakeStr(txtName)
    .TypeId = Val(dco_CardType.BoundText)
    .Idcard = MakeStr(txtIdCard)
    .CreateDate = MakeStr(txtCreateDate)
    .Status = MakeStr(lbl_Status)
    '根据变量Modify的值，决定是插入新数据，还是修改已有的数据
    If Modify = False Then
      '判断此借阅证号是否存在
      If .In_DB(MakeStr(txtCardNo)) = True Then
        MsgBox "对不起!已经存在此借阅证号!   ", 64, "提示"
        txtCardNo.SetFocus
        Exit Sub
      End If
      .Insert
    Else
      Call .Update(OriCardNo)
    End If
  End With
  '关闭窗口
  Unload Me
End Sub

Private Sub Cmd_Lost_Click()
 '设置Status为挂失
  Call MyCards.UpdateStatus(OriCardNo, "挂失")
  Unload Me
End Sub

Private Sub Cmd_UnLost_Click()
  lbl_Status.Caption = "有效"
  Call MyCards.UpdateStatus(OriCardNo, "有效")
  Unload Me
End Sub

Private Sub Form_Load()
  '设置ADO控件的连接字符串
  Adodc1.ConnectionString = conn
  '设置数据源
  Adodc1.RecordSource = "SELECT * FROM CardType"
  Adodc1.Refresh
End Sub