教材征订.frm

学生教材管理系统:对学校书库进销存进行管理的系统

            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       =   "数量"
            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       =   "征订日期"
            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       =   "征订人"
            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 
               ColumnWidth     =   2085.166
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   2085.166
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   2085.166
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   2085.166
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   1094.74
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   2085.166
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   1365.165
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "教材征订"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Combo1_Click()
    On Error Resume Next
    Adodc2.Recordset.MoveFirst
    Adodc2.Recordset.Find "教材名='" & Trim(Combo1.Text) & "'"
    Combo2.Text = Adodc2.Recordset.Fields("作者")
    Combo3.Text = Adodc2.Recordset.Fields("出版社")
    DTPicker2 = Adodc2.Recordset.Fields("出版日期")
    Text1.Text = ""
End Sub

Private Sub Combo1_LostFocus()
    Dim i As Integer, bz As Integer, cn As Integer
    cn = Combo1.ListCount
    bz = 0
    For i = 0 To cn
        If Trim(Combo1.Text) = Trim(Combo1.List(i)) Then bz = 1
    Next
    If bz = 0 Then Combo1.AddItem Trim(Combo1.Text)
End Sub
Private Sub Combo2_LostFocus()
Dim i As Integer, bz As Integer, cn As Integer
    cn = Combo2.ListCount
    bz = 0
    For i = 0 To cn
        If Trim(Combo2.Text) = Trim(Combo2.List(i)) Then bz = 1
    Next
    If bz = 0 Then Combo2.AddItem Trim(Combo2.Text)
End Sub
Private Sub Combo3_LostFocus()
Dim i As Integer, bz As Integer, cn As Integer
    cn = Combo3.ListCount
    bz = 0
    For i = 0 To cn
        If Trim(Combo3.Text) = Trim(Combo3.List(i)) Then bz = 1
    Next
    If bz = 0 Then Combo3.AddItem Trim(Combo3.Text)
End Sub


Private Sub Combo4_LostFocus()
Dim i As Integer, bz As Integer, cn As Integer
    cn = Combo4.ListCount
    bz = 0
    For i = 0 To cn
        If Trim(Combo4.Text) = Trim(Combo4.List(i)) Then bz = 1
    Next
    If bz = 0 Then Combo4.AddItem Trim(Combo4.Text)
End Sub

Private Sub Command1_Click()
    Dim i%, j%, m%
    Select Case Command1.Caption
    Case "继续"
        Command1.Caption = "征订"
        Command5.Enabled = False
        Command6.Enabled = False
        Command7.Enabled = False
        Command2.Enabled = True
        Combo1.SetFocus
    Case "征订"
        i = Len(Trim(Text1.Text))
        If Combo1.Text = "" Or Combo4.Text = "" Or Trim(Text1.Text) = "" Then
            MsgBox "信息不完整！", vbOKOnly + vbInformation: Combo1.SetFocus
        ElseIf Trim(Text1.Text) <> "" Then
            m = 1
            For j = 1 To i
                If Asc(Mid$(Trim(Text1.Text), j, 1)) < 48 Or Asc(Mid$(Trim(Text1.Text), j, 1)) > 57 Then
                    MsgBox "请正确输入数据！", vbOKOnly + vbInformation
                    Text1.Text = ""
                    Text1.SetFocus
                    m = 0
                    Exit For
                End If
            Next j
            If m Then
                Adodc1.RecordSource = "select * from 教材征订表 where 教材名='" & Trim(Combo1.Text) & "'  and 作者='" & Trim(Combo2.Text) & "' and 出版社='" & Trim(Combo3.Text) & "' and 出版日期 =#" & Trim(Str$(DTPicker2.Value)) & "#"
                Adodc1.Refresh
                If Adodc1.Recordset.RecordCount = 0 Then
                    'Adodc1.RecordSource = "select * from 教材征订表"
                    'Adodc1.Refresh
                    Adodc1.Recordset.AddNew
                    Adodc1.Recordset.Fields(0) = Trim(Combo1.Text)
                    Adodc1.Recordset.Fields(1) = Trim(Combo2.Text)
                    Adodc1.Recordset.Fields(2) = Trim(Combo3.Text)
                    Adodc1.Recordset.Fields(3) = DTPicker2.Value
                    Adodc1.Recordset.Fields(4) = Trim(Text1.Text)
                    Adodc1.Recordset.Fields(5) = DTPicker1.Value
                    Adodc1.Recordset.Fields(6) = Trim(Combo4.Text)
                    Adodc1.Recordset.Update
                    Adodc1.Refresh
                Else
                    Adodc1.Recordset.Fields(4) = Adodc1.Recordset.Fields(4) + Val(Text1.Text)
                    Adodc1.Recordset.Update
                    Adodc1.Refresh
                End If
                Adodc1.RecordSource = "select * from 教材征订表"
                Adodc1.Refresh
                Text1.Text = ""
                Combo1 = ""
                Combo2 = ""
                Combo3 = ""
            End If
        End If
    End Select
End Sub

Private Sub Command2_Click()
    zd = 1
    教材征订查询.Show
End Sub

Private Sub Command3_Click()
    
    Unload Me
End Sub

Private Sub Command5_Click()
    Dim i%, j%, m%
        i = Len(Trim(Text1.Text))
        If Combo1.Text = "" Or Combo4.Text = "" Or Trim(Text1.Text) = "" Then
            MsgBox "信息不完整,请重新输入！", vbOKOnly + vbInformation: Combo1.SetFocus
        Else
            m = 1
            For j = 1 To i
                If Asc(Mid$(Trim(Text1.Text), j, 1)) < 48 Or Asc(Mid$(Trim(Text1.Text), j, 1)) > 57 Then
                    MsgBox "请正确输入数据！", vbOKOnly + vbInformation
                    Text1.Text = ""
                    Text1.SetFocus
                    m = 0
                    Exit For
                End If
            Next j
            If m Then
                Adodc1.Recordset.Fields(0) = Trim(Combo1.Text)
                Adodc1.Recordset.Fields(1) = Trim(Combo2.Text)
                Adodc1.Recordset.Fields(2) = Trim(Combo3.Text)
                Adodc1.Recordset.Fields(3) = DTPicker2.Value
                Adodc1.Recordset.Fields(4) = Trim(Text1.Text)
                Adodc1.Recordset.Fields(5) = DTPicker1.Value
                Adodc1.Recordset.Fields(6) = Trim(Combo4.Text)
            End If
            
            Command1.Caption = "征订"
            Command5.Enabled = False
            Command6.Enabled = False
            Command7.Enabled = False
            Command2.Enabled = True
            Combo1.SetFocus
            
            
        End If
End Sub

Private Sub Command6_Click()
    On Error Resume Next
    Command1.Caption = "继续"
    Command5.Enabled = True
    Command6.Enabled = True
    Command7.Enabled = True
    Command2.Enabled = False
    Combo1.Text = Adodc1.Recordset.Fields(0)
    Combo2.Text = Adodc1.Recordset.Fields(1)
    Combo3.Text = Adodc1.Recordset.Fields(2)
    DTPicker2.Value = Adodc1.Recordset.Fields(3)
    Text1.Text = Adodc1.Recordset.Fields(4)
    DTPicker1.Value = Adodc1.Recordset.Fields(5)
    Combo4.Text = Adodc1.Recordset.Fields(6)
    Command1.Caption = "征订"
    Command5.Enabled = False
    Command6.Enabled = False
    Command7.Enabled = False
    Command2.Enabled = True
    Combo1.SetFocus
   
End Sub

Private Sub Command7_Click()
    On Error Resume Next
    Adodc1.Recordset.Delete
    Adodc1.Refresh
    Adodc1.RecordSource = "select * from 教材征订表"
    Adodc1.Refresh
    Command1.Caption = "继续"
    Command5.Enabled = True
    Command6.Enabled = True
    Command7.Enabled = True
    Command2.Enabled = False
    Combo1.Text = Adodc1.Recordset.Fields(0)
    Combo3.Text = Adodc1.Recordset.Fields(1)
    Combo2.Text = Adodc1.Recordset.Fields(2)
    DTPicker2.Value = Adodc1.Recordset.Fields(3)
    Text1.Text = Adodc1.Recordset.Fields(4)
    DTPicker1.Value = Adodc1.Recordset.Fields(5)
    Combo4.Text = Adodc1.Recordset.Fields(6)
End Sub

Private Sub DataGrid1_Click()
    Command1.Caption = "继续"
    Command5.Enabled = True
    Command6.Enabled = True
    Command7.Enabled = True
    Command2.Enabled = False
End Sub



Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
 On Error Resume Next
    'If Me.cmdadd.Enabled = True Then
    Combo1.Text = Trim(Adodc1.Recordset.Fields(0))
    Combo2.Text = Trim(Adodc1.Recordset.Fields(1))
   Combo3.Text = Trim(Adodc1.Recordset.Fields(2))
    DTPicker2.Value = Trim(Adodc1.Recordset.Fields(3))
    Text1.Text = Trim(Adodc1.Recordset.Fields(4))
  DTPicker1.Value = Trim(Adodc1.Recordset.Fields(5))
    Combo4.Text = Adodc1.Recordset.Fields(6)
    'txtydjl.Text = Trim(Adodc1.Recordset.Fields(7))
    'End If
End Sub


Private Sub Form_Load()
    On Error Resume Next
    Dim i As Integer, bz As Integer, cn As Integer
    Dim i1 As Integer, bz1 As Integer, cn1 As Integer
    Dim i2 As Integer, bz2 As Integer, cn2 As Integer
    Dim i3 As Integer, bz3 As Integer, cn3 As Integer
    Combo1.Clear
    Combo2.Clear
    Combo3.Clear
   Do While Not Adodc2.Recordset.EOF
        bz = 0
        For i = 0 To Combo1.ListCount
        If Adodc2.Recordset.Fields("教材名") = Combo1.List(i) Then bz = 1
        Next
        If bz = 0 Then Combo1.AddItem Trim(Adodc2.Recordset.Fields("教材名"))
        bz = 0
        For i = 0 To Combo1.ListCount
        If Adodc2.Recordset.Fields("作者") = Combo2.List(i) Then bz = 1
        Next
        If bz = 0 Then Combo2.AddItem Adodc2.Recordset.Fields("作者")
        bz = 0
        For i = 0 To Combo1.ListCount
        If Adodc2.Recordset.Fields("出版社") = Combo3.List(i) Then bz = 1
        Next
        If bz = 0 Then Combo3.AddItem Adodc2.Recordset.Fields("出版社")
        Adodc2.Recordset.MoveNext
   Loop
    Do While Not Adodc1.Recordset.EOF
        Adodc2.Recordset.MoveFirst
        cn = Adodc2.Recordset.RecordCount
        bz = 0
        For i = 1 To cn
             If Trim(Adodc1.Recordset.Fields("教材名")) = Trim(Adodc2.Recordset.Fields("教材名")) Then bz = 1
        Adodc2.Recordset.MoveNext
        Next i
        If bz = 0 Then
            bz = 0
            For i = 0 To Combo1.ListCount
                If Adodc1.Recordset.Fields("教材名") = Combo1.List(i) Then bz = 1
            Next
            If bz = 0 Then Combo1.AddItem Trim(Adodc1.Recordset.Fields("教材名"))
        End If
        
        Adodc2.Recordset.MoveFirst
        cn1 = Adodc2.Recordset.RecordCount
        bz1 = 0
        For i1 = 1 To cn1
           If Trim(Adodc1.Recordset.Fields("作者")) = Trim(Adodc2.Recordset.Fields("作者")) Then bz1 = 1
        Adodc2.Recordset.MoveNext
        Next i1
        If bz = 0 Then
            bz = 0
            For i = 0 To Combo1.ListCount
                If Adodc1.Recordset.Fields("作者") = Combo2.List(i) Then bz = 1
            Next
            If bz = 0 Then Combo2.AddItem Trim(Adodc1.Recordset.Fields("作者"))
        End If
        
        
        Adodc2.Recordset.MoveFirst
        cn2 = Adodc2.Recordset.RecordCount
        bz2 = 0
        For i2 = 1 To cn2
            If Trim(Adodc1.Recordset.Fields("出版社")) = Trim(Adodc2.Recordset.Fields("出版社")) Then bz2 = 1
        Adodc2.Recordset.MoveNext
        Next i2
        If bz = 0 Then
            bz = 0
            For i = 0 To Combo1.ListCount
                If Adodc1.Recordset.Fields("出版社") = Combo3.List(i) Then bz = 1
            Next
            If bz = 0 Then Combo3.AddItem Trim(Adodc1.Recordset.Fields("出版社"))
        End If
        
        
        Adodc2.Recordset.MoveFirst
        
        cn3 = Combo4.ListCount
        bz3 = 0
        For i3 = 1 To cn3
        If Trim(Adodc1.Recordset.Fields("征订人")) = Trim(Combo4.List(i3)) Then bz3 = 1
        Next i3
        If bz3 = 0 Then
            bz = 0
            For i = 0 To Combo1.ListCount
                If Adodc1.Recordset.Fields("征订人") = Combo4.List(i) Then bz = 1
            Next
            If bz = 0 Then Combo4.AddItem Trim(Adodc1.Recordset.Fields("征订人"))
        End If
        
        
        Adodc1.Recordset.MoveNext
    Loop
    DTPicker1 = Date
End Sub