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

📁 教材管理
💻 TXT
📖 第 1 页 / 共 2 页
字号:
12 下一页
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 Command1_Click()
xx1 = Trim(DataCombo1.Text)
xq1 = Trim(Text1.Text)
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("xx") = xx1
Adodc1.Recordset.Fields("xq") = xq1
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 Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
 CrystalReport1.PrintReport
End Sub
Private Sub Form_Load()
frmjcjh.Top = 1
frmjcjh.Left = 1
End Sub
教材验收登记
Dim mc1 As String
Dim nj1 As String
Dim xq1 As String
Dim xx1 As String
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 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()
Dim sf1 As Integer
Dim kcl As Integer
Dim yfl As Integer
sf1 = Val(Trim(Text3.Text))
yf1 = Val(Trim(Text1.Text))
kcl = Adodc3.Recordset.Fields("sl")
yfl = Adodc3.Recordset.Fields("yfsl")
If sf1 > kcl Then
   sd2 = MsgBox("发放量大于库存量,请重新输入", 0 + 16, "对不起")
   Exit Sub
End If
If sf1 <> 0 And yf1 <> 0 Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("xx") = Adodc3.Recordset.Fields("xx")
Adodc1.Recordset.Fields("xq") = Adodc3.Recordset.Fields("xq")
Adodc1.Recordset.Fields("nj") = Adodc3.Recordset.Fields("nj")
Adodc1.Recordset.Fields("jcmc") = Adodc3.Recordset.Fields("jcmc")
Adodc1.Recordset.Fields("dj") = Adodc3.Recordset.Fields("dj")
Adodc1.Recordset.Fields("je") = Round(sf1 * Adodc3.Recordset.Fields("dj"), 2)
Adodc1.Recordset.Update
Text4.SetFocus
Else
  ssw = MsgBox("请输入发放数量", 0 + 16, "对不起")
End If
Adodc3.Recordset.Fields("yfsl") = yfl + sf1
Adodc3.Recordset.Fields("sl") = kcl - sf1
Adodc3.Recordset.Update
Adodc3.Refresh
Text1.Text = ""
Text3.Text = ""
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 Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
 CrystalReport1.PrintReport
End Sub
Private Sub DataCombo1_Change()
xm1 = Trim(DataCombo1.Text)
If Right(xm1, 1) = "小" Then
Combo1.Clear
Combo1.AddItem "一年级"
Combo1.AddItem "二年级"
Combo1.AddItem "三年级"
Combo1.AddItem "四年级"
Combo1.AddItem "五年级"
Combo1.AddItem "六年级"
ElseIf Right(xm1, 1) = "中" And Left(xm1, 1) <> "一" Then
Combo1.Clear
Combo1.AddItem "初一"
Combo1.AddItem "初二"
Combo1.AddItem "初三"
Combo1.AddItem "初四"
Else
Combo1.Clear
Combo1.AddItem "高一"
Combo1.AddItem "高二"
Combo1.AddItem "高三"
End If
End Sub
Private Sub DataCombo2_Change()
xx1 = Trim(DataCombo1.Text)
nj1 = Trim(Combo1.Text)
xq1 = Trim(Text12.Text)
mc1 = Trim(DataCombo2.Text)
Adodc3.RecordSource = "select * from jcdjk where xx='" & xx1 & "' and xq='" & xq1 & "' and nj='" & nj1 & "' and jcmc='" & mc1 & "'"
Adodc3.Refresh
End Sub
Private Sub Form_Load()
frmjcff.Top = 1
frmjcff.Left = 1
End Sub
教材发放
Dim mc1 As String
Dim nj1 As String
Dim xq1 As String
Dim xx1 As String
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 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()
Dim sf1 As Integer
Dim kcl As Integer
Dim yfl As Integer
sf1 = Val(Trim(Text3.Text))
yf1 = Val(Trim(Text1.Text))
kcl = Adodc3.Recordset.Fields("sl")
yfl = Adodc3.Recordset.Fields("yfsl")
If sf1 > kcl Then
   sd2 = MsgBox("发放量大于库存量,请重新输入", 0 + 16, "对不起")
   Exit Sub
End If
If sf1 <> 0 And yf1 <> 0 Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("xx") = Adodc3.Recordset.Fields("xx")
Adodc1.Recordset.Fields("xq") = Adodc3.Recordset.Fields("xq")
Adodc1.Recordset.Fields("nj") = Adodc3.Recordset.Fields("nj")
Adodc1.Recordset.Fields("jcmc") = Adodc3.Recordset.Fields("jcmc")
Adodc1.Recordset.Fields("dj") = Adodc3.Recordset.Fields("dj")
Adodc1.Recordset.Fields("je") = Round(sf1 * Adodc3.Recordset.Fields("dj"), 2)
Adodc1.Recordset.Update
Text4.SetFocus
Else
  ssw = MsgBox("请输入发放数量", 0 + 16, "对不起")
End If
Adodc3.Recordset.Fields("yfsl") = yfl + sf1
Adodc3.Recordset.Fields("sl") = kcl - sf1
Adodc3.Recordset.Update
Adodc3.Refresh
Text1.Text = ""
Text3.Text = ""
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 Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
 CrystalReport1.PrintReport
End Sub
Private Sub DataCombo1_Change()
xm1 = Trim(DataCombo1.Text)
If Right(xm1, 1) = "小" Then
Combo1.Clear
Combo1.AddItem "一年级"
Combo1.AddItem "二年级"
Combo1.AddItem "三年级"
Combo1.AddItem "四年级"
Combo1.AddItem "五年级"
Combo1.AddItem "六年级"
ElseIf Right(xm1, 1) = "中" And Left(xm1, 1) <> "一" Then
Combo1.Clear
Combo1.AddItem "初一"
Combo1.AddItem "初二"
Combo1.AddItem "初三"
Combo1.AddItem "初四"
Else
Combo1.Clear
Combo1.AddItem "高一"
Combo1.AddItem "高二"
Combo1.AddItem "高三"
End If
End Sub
Private Sub DataCombo2_Change()
xx1 = Trim(DataCombo1.Text)
nj1 = Trim(Combo1.Text)
xq1 = Trim(Text12.Text)
mc1 = Trim(DataCombo2.Text)
Adodc3.RecordSource = "select * from jcdjk where xx='" & xx1 & "' and xq='" & xq1 & "' and nj='" & nj1 & "' and jcmc='" & mc1 & "'"
Adodc3.Refresh
End Sub
Private Sub Form_Load()
frmjcff.Top = 1
frmjcff.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 Command1_Click()
xx1 = Trim(DataCombo1.Text)
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("dw") = xx1
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 Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
 CrystalReport1.PrintReport
End Sub
Private Sub Form_Load()
frmtsjh.Top = 1
frmtsjh.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 Command1_Click()
dw1 = Trim(DataCombo1.Text)
If dw1 <> "" Then
   Adodc1.Recordset.AddNew
   Adodc1.Recordset.Fields("dw") = dw1
   Adodc1.Recordset.Update
Else
   dd = MsgBox("请选择单位名称", 0 + 16, "对不起")
End If
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
12 下一页
⌨️ 快捷键说明

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

⌨️ 快捷键说明

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