edreader1.frm

系统实现了图书的添加

         Begin VB.Label Label7 
            Caption         =   "借书总数"
            Height          =   255
            Left            =   2280
            TabIndex        =   17
            Top             =   960
            Width           =   855
         End
         Begin VB.Label Label6 
            Caption         =   "过期罚款"
            Height          =   255
            Left            =   240
            TabIndex        =   16
            Top             =   960
            Width           =   855
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "性别*"
         Height          =   615
         Left            =   480
         TabIndex        =   1
         Top             =   960
         Width           =   1575
         Begin VB.OptionButton Opt2 
            Caption         =   "Option2"
            Height          =   180
            Left            =   840
            TabIndex        =   4
            Top             =   240
            Width           =   255
         End
         Begin VB.OptionButton Opt1 
            Caption         =   "Option1"
            Height          =   180
            Left            =   120
            TabIndex        =   3
            Top             =   240
            Width           =   135
         End
         Begin VB.Label Label2 
            Caption         =   "女"
            Height          =   255
            Left            =   1200
            TabIndex        =   6
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label1 
            Caption         =   "男"
            Height          =   255
            Left            =   480
            TabIndex        =   5
            Top             =   240
            Width           =   255
         End
      End
      Begin VB.Label Label10 
         Caption         =   "<日期格式：YY-MM-DD>"
         Height          =   255
         Left            =   3240
         TabIndex        =   24
         Top             =   3480
         Width           =   1815
      End
      Begin VB.Label Label9 
         Caption         =   "登记日期*"
         Height          =   255
         Left            =   480
         TabIndex        =   22
         Top             =   3480
         Width           =   855
      End
      Begin VB.Label Label5 
         Caption         =   "姓     名*"
         Height          =   375
         Left            =   3720
         TabIndex        =   13
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "借书证号*"
         Height          =   375
         Left            =   480
         TabIndex        =   12
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label3 
         Caption         =   "单     位"
         Height          =   375
         Left            =   3720
         TabIndex        =   11
         Top             =   960
         Width           =   855
      End
   End
End
Attribute VB_Name = "edreader1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset

Private Sub Comm1_Click()
    If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" _
       Or Trim(Text1(5).Text) = "" Or Trim(DataCombo1.Text) = "" Then
       MsgBox "加*数据项必填，请重新填写", vbOKOnly, "信息提示"
       Exit Sub
    End If
    If flag = 1 Then
        sqltxt = "select * from reader where 借书证号='" + _
                Trim(Text1(0).Text) + "'"
        Set rs = exesql(sqltxt)
        If rs.RecordCount <> 0 Then
           MsgBox "存在相同的借书证号", vbOKOnly, "信息提示"
           Text1(0).SetFocus
           rs.Close
           Exit Sub
        Else
            rs.Close
        End If
        edreader.Adodc1.Recordset.AddNew
        edreader.Adodc1.Recordset.Fields("借书证号") = Trim(Text1(0).Text)
        edreader.Adodc1.Recordset.Fields("姓名") = Trim(Text1(1).Text)
        If Opt1.Value = True Then
           edreader.Adodc1.Recordset.Fields("性别") = "男"
        Else
           edreader.Adodc1.Recordset.Fields("性别") = "女"
        End If
        edreader.Adodc1.Recordset.Fields("单位") = Trim(DataCombo2.Text)
        edreader.Adodc1.Recordset.Fields("级别") = Trim(DataCombo1.Text)
        edreader.Adodc1.Recordset.Fields("过期罚款") = Trim(Text1(2).Text)
        edreader.Adodc1.Recordset.Fields("借书总数") = Val(Trim(Text1(3).Text))
        edreader.Adodc1.Recordset.Fields("借书天数") = Val(Trim(Text1(4).Text))
        edreader.Adodc1.Recordset.Fields("已借书数") = 0
        edreader.Adodc1.Recordset.Fields("登记日期") = Format(Trim(Text1(5).Text), _
            "YY-MM-DD")
        edreader.Adodc1.Recordset.Update
        recs = recs + 1
    Else
        edreader.Adodc1.Recordset.Fields("借书证号") = Trim(Text1(0).Text)
        edreader.Adodc1.Recordset.Fields("姓名") = Trim(Text1(1).Text)
        If Opt2.Value = True Then
           edreader.Adodc1.Recordset.Fields("性别") = "男"
        Else
           edreader.Adodc1.Recordset.Fields("性别") = "女"
        End If
        edreader.Adodc1.Recordset.Fields("单位") = Trim(DataCombo2.Text)
        edreader.Adodc1.Recordset.Fields("级别") = Trim(DataCombo1.Text)
        edreader.Adodc1.Recordset.Fields("过期罚款") = Trim(Text1(2).Text)
        edreader.Adodc1.Recordset.Fields("借书总数") = Val(Trim(Text1(3).Text))
        edreader.Adodc1.Recordset.Fields("借书天数") = Val(Trim(Text1(4).Text))
        edreader.Adodc1.Recordset.Fields("登记日期") = Format(Trim(Text1(5).Text), _
            "YY-MM-DD")
        edreader.Adodc1.Recordset.Update
        edreader.Adodc1.Recordset.Update
    End If
    Unload Me
End Sub

Private Sub Comm2_Click()
    Unload Me
End Sub


Private Sub DataCombo1_KeyPress(KeyAscii As Integer)
    Call endata(KeyAscii)
End Sub

Private Sub DataCombo1_LostFocus()
   If Adodc1.Recordset.RecordCount > 0 Then
      If Trim(DataCombo1.Text) <> "" Then
         Adodc1.Recordset.MoveFirst
         Adodc1.Recordset.Find ("级别='" & Trim(DataCombo1.Text) & "'")
         Text1(2).Text = Adodc1.Recordset.Fields("过期罚款")
         Text1(3).Text = Adodc1.Recordset.Fields("借书总数")
         Text1(4).Text = Adodc1.Recordset.Fields("借书天数")
      End If
    Else
      MsgBox "没有任何级别项可选，请重置", vbOKOnly, "信息提示"
    End If
End Sub


Private Sub DataCombo2_KeyPress(KeyAscii As Integer)
  endata (KeyAscii)
End Sub


Private Sub Form_Activate()
    Adodc1.Refresh
    Adodc2.Refresh
    DataCombo1.Refresh
    DataCombo2.Refresh
End Sub

Private Sub Form_Load()
    If flag = 2 Then
        Text1(0).Text = edreader.Adodc1.Recordset.Fields("借书证号") & ""
        Text1(1).Text = edreader.Adodc1.Recordset.Fields("姓名") & ""
        If edreader.Adodc1.Recordset.Fields("性别") = "男" Then
            Opt1.Value = True
        Else
            Opt2.Value = True
        End If
        DataCombo2.Text = edreader.Adodc1.Recordset.Fields("单位") & ""
        DataCombo2.Text = edreader.Adodc1.Recordset.Fields("级别") & ""
        Text1(2).Text = edreader.Adodc1.Recordset.Fields("过期罚款") & ""
        Text1(3).Text = edreader.Adodc1.Recordset.Fields("借书总数") & ""
        Text1(4).Text = edreader.Adodc1.Recordset.Fields("借书天数") & ""
        Text1(5).Text = edreader.Adodc1.Recordset.Fields("登记日期") & ""
        Text1(0).Enabled = False
    Else
        Text1(5).Text = Data
    End If
End Sub

Private Sub selcmd1_Click()
    edlev.Show vbModal
End Sub


Private Sub selcmd2_Click()
    tna = "depart"
    cap = "单位"
    edrec.Show vbModal
End Sub


Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    Call endata(KeyAscii)
End Sub