📄 新建文本文档 (2).txt

📁 教材管理
💻 TXT
📖 第 1 页 / 共 2 页
字号:
上一页 12
      Adodc1.Recordset.MoveLast
   Else
      Adodc1.Recordset.MoveNext
   End If
End If
Exit Sub
cw2:
  s1 = MsgBox("数据库中记录已完全删除!", 0 + 48, "注意")
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
End Sub
Private Sub Form_Load()
frmtsdj.Top = 1
frmtsdj.Left = 1
End Sub
Private Sub Text10_GotFocus()
Text10.Text = Format(Date, "yyyy/m/d")
End Sub
Private Sub Text12_GotFocus()
jg1 = Val(Trim(Text8.Text))
cs1 = Val(Trim(Text9.Text))
Text12.Text = Round(jg1 * cs1)
End Sub
图书编目
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  Adodc1.Caption = "Record: " & CStr(Adodc1.Recordset.AbsolutePosition)
End Sub
Private Sub Adodc2_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  Adodc2.Caption = "Record: " & CStr(Adodc2.Recordset.AbsolutePosition)
End Sub
Private Sub Cmdbm_Click()
bm1 = Adodc2.Recordset.Fields("bm")
If bm1 = "编" Then
 ds = MsgBox("该图书已经编目在册,请重新选择", 0 + 16, "对不起")
 Exit Sub
End If
bh1 = Trim(Text2.Text)
kw1 = Trim(Text3.Text)
rq1 = Trim(Text4.Text)
If bh1 <> "" And kw1 <> "" And rq1 <> "" Then
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields("ssh") = Adodc2.Recordset.Fields("ssh")
  Adodc1.Recordset.Fields("isbn") = Adodc2.Recordset.Fields("isbn")
  Adodc1.Recordset.Fields("sm") = Adodc2.Recordset.Fields("sm")
  Adodc1.Recordset.Fields("zz") = Adodc2.Recordset.Fields("zz")
  Adodc1.Recordset.Fields("bc") = Adodc2.Recordset.Fields("bc")
  Adodc1.Recordset.Fields("cbs") = Adodc2.Recordset.Fields("cbs")
  Adodc1.Recordset.Fields("cbrq") = Adodc2.Recordset.Fields("cbrq")
  Adodc1.Recordset.Fields("jg") = Adodc2.Recordset.Fields("jg")
  Adodc1.Recordset.Fields("kw") = kw1
  Adodc1.Recordset.Fields("cs") = cs1
  Adodc1.Recordset.Fields("rksj") = rq1
  Adodc1.Recordset.Update
  Adodc2.Recordset.Fields("bm") = "编"
  Adodc2.Recordset.Update
Else
sd1 = MsgBox("请输入编号、库位和日期", 0 + 16, "对不起")
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub DataGrid2_Click()
Text1.Text = Adodc2.Recordset.Fields("cs")
End Sub
Private Sub Form_Load()
frmxsbm.Top = 1
frmxsbm.Left = 1
End Sub
Private Sub Text4_GotFocus()
Text4.Text = Format(Date, "yyyy/m/d")
End Sub
读者登记
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  Adodc1.Caption = "Record: " & CStr(Adodc1.Recordset.AbsolutePosition)
End Sub
Private Sub Adodc2_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  Adodc2.Caption = "Record: " & CStr(Adodc2.Recordset.AbsolutePosition)
End Sub
Private Sub Command1_Click()
If Adodc1.Recordset.EOF Then
   Adodc1.Recordset.AddNew
   Adodc1.Recordset.Fields("jyzh") = 1
Else
   Adodc1.Recordset.MoveLast
   h = Val(Adodc1.Recordset.Fields("jyzh"))
   Adodc1.Recordset.AddNew
   Adodc1.Recordset.Fields("jyzh") = h + 1
End If
Adodc1.Recordset.Update
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command3_Click()
If MsgBox("真的要删除该记录吗？", 4 + 256 + 32, "对不起") = 6 Then
  On Error GoTo cw2
   Adodc1.Recordset.Delete
   Adodc1.Recordset.Update
   If Adodc1.Recordset.EOF Then
      Adodc1.Recordset.MoveLast
   Else
      Adodc1.Recordset.MoveNext
   End If
End If
Exit Sub
cw2:
  s1 = MsgBox("数据库中记录已完全删除!", 0 + 48, "注意")
End Sub
Private Sub Command5_Click()
If Option8.Value = True Then
  Adodc3.RecordSource = "select * from dzdj where syqk='挂失'"
  Adodc3.Refresh
End If
If Option7.Value = True Then
  Adodc3.RecordSource = "select * from dzdj where syqk='解挂'"
  Adodc3.Refresh
End If
If Option6.Value = True Then
  Adodc3.RecordSource = "select * from dzdj where syqk='注销'"
  Adodc3.Refresh
End If
If Option5.Value = True Then
  Adodc3.RecordSource = "select * from dzdj where syqk='过期'"
  Adodc3.Refresh
End If
If Option9.Value = True Then
  Adodc3.RecordSource = "select * from dzdj where syqk=''"
  Adodc3.Refresh
End If
End Sub
Private Sub Command6_Click()
If Option1.Value = True Then
  Adodc2.Recordset.Fields("syqk") = "挂失"
  Adodc2.Recordset.Update
End If
If Option2.Value = True Then
  Adodc2.Recordset.Fields("syqk") = "解挂"
  Adodc2.Recordset.Update
End If
If Option3.Value = True Then
  Adodc2.Recordset.Fields("syqk") = "注销"
  Adodc2.Recordset.Update
End If
If Option4.Value = True Then
  Adodc2.Recordset.Fields("syqk") = "过期"
  Adodc2.Recordset.Update
End If
End Sub
Private Sub Command7_Click()
Unload Me
End Sub
Private Sub Form_Load()
frmdzdj.Top = 1
frmdzdj.Left = 1
End Sub
流通管理
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  Adodc1.Caption = "Record: " & CStr(Adodc1.Recordset.AbsolutePosition)
End Sub
Private Sub Adodc2_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  Adodc2.Caption = "Record: " & CStr(Adodc2.Recordset.AbsolutePosition)
End Sub
Private Sub Adodc3_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  Adodc3.Caption = "Record: " & CStr(Adodc3.Recordset.AbsolutePosition)
End Sub
Private Sub Command1_Click()
   If Trim(DataCombo1.Text) <> "" Then
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("xm") = Trim(Text7.Text)
    Adodc1.Recordset.Fields("dzlx") = Trim(Text1.Text)
    Adodc1.Recordset.Fields("xb") = Trim(Text2.Text)
    Adodc1.Recordset.Fields("dw") = Trim(Text3.Text)
    Adodc1.Recordset.Update
   End If
End Sub
Private Sub Command11_Click()
Adodc2.Recordset.Update
End Sub
Private Sub Command16_Click()
Adodc3.Recordset.Update
End Sub
Private Sub Command18_Click()
Unload Me
End Sub
Private Sub Command19_Click()
xm1 = Trim(Text34.Text)
CrystalReport1.SelectionFormula = "{xm}='" & xm1 & "'"
CrystalReport1.PrintReport
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command22_Click()
Adodc4.Recordset.Update
End Sub
Private Sub Command3_Click()
If MsgBox("真的要删除该记录吗？", 4 + 256 + 32, "对不起") = 6 Then
  On Error GoTo cw2
   Adodc1.Recordset.Delete
   Adodc1.Recordset.Update
   If Adodc1.Recordset.EOF Then
      Adodc1.Recordset.MoveLast
   Else
      Adodc1.Recordset.MoveNext
   End If
End If
Exit Sub
cw2:
  s1 = MsgBox("数据库中记录已完全删除!", 0 + 48, "注意")
End Sub
Private Sub Command4_Click()
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rst1 As ADODB.Recordset
Text27.Text = ""
Text29.Text = ""
On Error GoTo cw4
Set cn = New ADODB.Connection
cn.Open "provider=msdasql.1;persist security info=false;data source=tsgl"
 If Option1.Value = True Then
            Set rst1 = New ADODB.Recordset
    rst1.Source = ("select distinct jyzh from dzgl ")
    rst1.ActiveConnection = cn
    rst1.Open
    rst1.MoveFirst
    i = 0
    Do Until rst1.EOF
       i = i + 1
       If rst1.EOF Then
          Exit Do
       Else
         rst1.MoveNext
       End If
    Loop
    Text27.Text = i
    Set rst = cn.Execute("select count(*) as rk from dzgl ")
    Text29.Text = rst.Fields("rk")
 End If
   If Option3.Value = True Then
     Set rst = cn.Execute("select count(*) as rk from dzgl where  fkje<>0 ")
     Text30.Text = rst.Fields("rk")
     Set rst = cn.Execute("select sum(fkje) as rk from dzgl where  fkje<>0 ")
     If Not rst.EOF Then Text37.Text = rst.Fields("rk")
     
 End If
 If Option4.Value = True Then
     Set rst = cn.Execute("select count(*) as rk from dzgl where  sfcq='是' ")
     Text38.Text = rst.Fields("rk")
 End If
Exit Sub
cw4:
  MsgBox ("无统计结果")
End Sub
Private Sub Command6_Click()
Unload Me
End Sub
 
Private Sub Command7_Click()
Unload Me
End Sub
Private Sub Command9_Click()
Unload Me
End Sub
Private Sub DataCombo1_Change()
bh = Trim(DataCombo1.Text)
Adodc5.Recordset.MoveFirst
Do Until Adodc5.Recordset.EOF
   If Adodc5.Recordset.Fields("jyzh") = bh Then
      Text7.Text = Adodc5.Recordset.Fields("xm")
      Text1.Text = Adodc5.Recordset.Fields("dzlx")
      Text2.Text = Adodc5.Recordset.Fields("xb")
      Text3.Text = Adodc5.Recordset.Fields("dw")
      Exit Do
   End If
   If Adodc5.Recordset.EOF Then
      Exit Do
   Else
      Adodc5.Recordset.MoveNext
   End If
 Loop
End Sub
Private Sub DataCombo8_Change()
'bh = Trim(DataCombo8.Text)
'Adodc2.Recordset.MoveFirst
'Do Until Adodc2.Recordset.EOF
'   If Adodc2.Recordset.Fields("jyzh") = bh Then
'      Exit Do
'   End If
'   If Adodc2.Recordset.EOF Then
'      Exit Do
'   Else
'      Adodc2.Recordset.MoveNext
'   End If
' Loop
End Sub
Private Sub Form_Load()
FrmLTGL.Top = 1
FrmLTGL.Left = 1
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -
📄 新建 文本文档 (2).txt

⌨️ 快捷键说明

📄 新建文本文档 (2).txt
