editborrower.frm

图书管理系统

            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "readersex"
         Caption         =   "性别"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "readerdept"
         Caption         =   "学院/系"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "boralready"
         Caption         =   "已借书本数目"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "readertype"
         Caption         =   "读者级别"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "booknum"
         Caption         =   "可借书本总数"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "bookdays"
         Caption         =   "可借期限"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "fine"
         Caption         =   "罚金总额"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column09 
         DataField       =   "checkdata"
         Caption         =   "登记日期"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1080
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   585.071
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1335.118
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1260.284
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   900.284
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   1244.976
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   900.284
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   900.284
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   989.858
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "editborrower"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public recs As Boolean

Private Sub cmdomit_Click()
  If MsgBox("真的要删除吗这个图书证号吗？", vbYesNo, "信息提示") = vbYes Then
     Adodc1.Recordset.Delete
     recs = Adodc1.Recordset.EOF
     Call encmd
  End If
End Sub

Private Sub Form_Activate()
  DataGrid1.SetFocus
  Call encmd
End Sub

Private Sub Form_Load()
  recs = Adodc1.Recordset.EOF
End Sub

Private Sub cmdadd_Click()
  flag = 1
  addeditreader.Show vbModal
End Sub

Private Sub cmdedit_Click()
  flag = 2
  addeditreader.Show vbModal
End Sub

Private Sub cmdok_Click()
  Dim str As String
  str = ""
  If Trim(txtreaderid.Text) <> "" Then
     If str = "" Then
        str = "readerid='" & Trim(txtreaderid.Text) & "'"
     Else
        str = str & "and readerid='" & Trim(txtreaderid.Text) & "'"
     End If
  End If
  If Trim(txttype.Text) <> "" Then
     If str = "" Then
        str = "readertype='" & Trim(txttype.Text) & "'"
     Else
        str = str & "and readertype='" & Trim(txttype.Text) & "'"
     End If
  End If
  If Trim(txtname.Text) <> "" Then
     If str = "" Then
        str = "readername='" & Trim(txtname.Text) & "'"
     Else
        str = str & "and readername='" & Trim(txtname.Text) & "'"
     End If
  End If
  If Trim(txtsex.Text) <> "" Then
     If str = "" Then
        str = "readersex='" & Trim(txtsex.Text) & "'"
     Else
        str = str & "and readersex='" & Trim(txtsex.Text) & "'"
     End If
  End If
  If Trim(txtdept.Text) <> "" Then
     If str = "" Then
        str = "readerdept='" & Trim(txtdept.Text) & "'"
     Else
        str = str & "and readerdept='" & Trim(txtdept.Text) & "'"
     End If
  End If
  If str <> "" Then
     Adodc1.RecordSource = "select * from readers where " & str
     Adodc1.Refresh
  Else
     Adodc1.RecordSource = "select * from readers"
     Adodc1.Refresh
  End If
  recs = Adodc1.Recordset.EOF
  If recs = True Then
     MsgBox "没有任何满足条件的记录！", vbOKOnly + vbExclamation, "信息提示"
  End If
  Call encmd
End Sub

Private Sub cmdreset_Click()
  txtname = ""
  txttype = ""
  txtname = ""
  txtreaderid = ""
  txtsex = ""
  txtdept = ""
End Sub

Private Sub cmdret_Click()
  Unload Me
End Sub

Private Sub encmd()
  If recs = True Then
     cmdedit.Enabled = False
     cmdomit.Enabled = False
  Else
     cmdedit.Enabled = True
     cmdomit.Enabled = True
  End If
End Sub