czdata.frm

出版社图书出货管理系统,包括图书的出库,入库,结果输出

      Caption         =   "图书选购："
      Height          =   375
      Left            =   7680
      TabIndex        =   21
      Top             =   5640
      Width           =   5115
   End
   Begin VB.Line Line1 
      X1              =   7560
      X2              =   7560
      Y1              =   5520
      Y2              =   7800
   End
   Begin VB.Label Label8 
      Caption         =   "控制号："
      Height          =   375
      Left            =   6360
      TabIndex        =   13
      Top             =   7080
      Width           =   975
   End
   Begin VB.Label Label7 
      Caption         =   "价格："
      Height          =   375
      Left            =   120
      TabIndex        =   12
      Top             =   7440
      Width           =   1335
   End
   Begin VB.Label Label6 
      Caption         =   "出版年："
      Height          =   375
      Left            =   120
      TabIndex        =   11
      Top             =   6360
      Width           =   1455
   End
   Begin VB.Label Label5 
      Caption         =   "出版社："
      Height          =   375
      Left            =   120
      TabIndex        =   10
      Top             =   6720
      Width           =   1455
   End
   Begin VB.Label Label4 
      Caption         =   "ISBN:"
      Height          =   375
      Left            =   120
      TabIndex        =   9
      Top             =   7080
      Width           =   1455
   End
   Begin VB.Label Label3 
      Caption         =   "作者："
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   6000
      Width           =   1455
   End
   Begin VB.Label Label2 
      Caption         =   "书名："
      Height          =   375
      Left            =   120
      TabIndex        =   7
      Top             =   5640
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "第一步：请选择查重方式："
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   3255
   End
End
Attribute VB_Name = "czdata"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  Dim db As Database
  Dim rs As Recordset
  Dim isbnyes As Long
  Dim titleyes As Long
  Dim ycsum As Long
  On Error Resume Next
  
  
  
  czdata.Caption = "正在进行查重.................，请稍等一下！"
  On Error GoTo aa
  Set db = Workspaces(0).OpenDatabase("d:\tscg\bookcgk.mdb")
  Set rs = db.OpenRecordset("select count(*) from 预采数据")
  ycsum = rs.Fields(0).Value
  rs.Close
  Set rs = db.OpenRecordset("SELECT count(*) From czisbnyes")

  isbnyes = rs.Fields(0).Value
  rs.Close
  Set rs = db.OpenRecordset("SELECT count(*) From titleyes")
   titleyes = rs.Fields(0)
  rs.Close
  db.Close
  
  
  
  
  If Option1.Value = True Then
   
    'Data1.RecordSource = "czisbnno"
    Data1.RecordSource = "czisbnno"
    Data2.RecordSource = "czisbnyes"
    Data2.Refresh
    Data1.Refresh
   
    
   Label12.Caption = "ISBN未重:" & ycsum - isbnyes & "条，重复:" & isbnyes
  End If
  If Option2.Value = True Then
   
   Data1.RecordSource = "titleno"
    'Data1.RecordSource = "select * from 预采数据 where bookname not in(select bookname from titleyes)"
    Data2.RecordSource = "titleyes"
    Data2.Refresh
    Data1.Refresh
        
   Label12.Caption = "题名未重:" & ycsum - titleyes & "条，重复:" & titleyes
   
  End If
  czdata.Caption = "图书采购--查重完成！"
  Exit Sub
aa:
  MsgBox "发生错误31，请与开发人员联系！"
End Sub

Private Sub Command2_Click()
  'Data1.Recordset.Update
  'Data2.Recordset.Update
  Unload Me
  
End Sub

Private Sub Command3_Click()
  On Error Resume Next
  If Text9.Visible = True Then
   If Data1.Recordset.EOF = False Then
   Data1.Recordset.MoveNext
   If Data1.Recordset.EOF = True Then
        Data1.Recordset.MoveLast
        End If
   Text9.SetFocus
   Text9.SelStart = 0
   Text9.SelLength = 4
    End If
  End If
  If Text8.Visible = True Then
   If Data2.Recordset.EOF = False Then
     Data2.Recordset.MoveNext
     If Data2.Recordset.EOF = True Then
        Data2.Recordset.MoveLast
        End If
     Text8.SetFocus
   Text8.SelStart = 0
   Text8.SelLength = 4
    End If
  End If
End Sub

Private Sub Command4_Click()
On Error Resume Next
 If Text9.Visible = True Then
   If Data1.Recordset.BOF = False Then
   Data1.Recordset.MovePrevious
    If Data1.Recordset.BOF = True Then
      Data1.Recordset.MoveFirst
      End If
   Text9.SetFocus
   Text9.SelStart = 0
   Text9.SelLength = 4
   Else
   Data1.Recordset.MoveFirst
    End If
  End If
  If Text8.Visible = True Then
   If Data2.Recordset.BOF = False Then
     Data2.Recordset.MovePrevious
     If Data2.Recordset.BOF = True Then
      Data2.Recordset.MoveFirst
      End If
     Text8.SetFocus
   Text8.SelStart = 0
   Text8.SelLength = 4
     Else
     Data2.Recordset.MoveFirst
     
    End If
  End If
  
End Sub

Private Sub Command5_Click()
   If banben = "试用" Then
     ' If rcrecordx > 100 Or gcrecordx > 100 Then
      '  Me.Caption = "数据库中数据大于100条，试用版不能处理！"
      '  Exit Sub
     ' End If
      
   End If
   If banben = "正式" Then
     Me.Caption = "正式版无此功能！"
     Exit Sub
   End If
   
   If banben = "PDA" Then
     'Me.Caption = "PDA版无此功能！"
    ' Exit Sub
   End If
   If banben = "高级" Then
   
   End If
   datapx.Show 1
   Command1_Click
End Sub

Private Sub Command6_Click()
 If Text9.Visible = True Then
    Data1.Recordset.Edit
    Data1.Recordset("fbl") = Text9.Text
    Data1.Recordset.Fields("modidate") = Now()
    Data1.Recordset.Update
    End If
    If Text8.Visible = True Then
    Data2.Recordset.Edit
    Data2.Recordset("fbl") = Text8.Text
    Data1.Recordset.Fields("modidate") = Now()
    Data2.Recordset.Update
    
    End If
End Sub

Private Sub Data1_Reposition()
On Error Resume Next
 If Data1.Recordset.EOF = False And Data1.Recordset.BOF = False Then
  Text1.Text = Data1.Recordset("bookname")
  Text2.Text = Data1.Recordset("author")
  Text3.Text = Data1.Recordset("bmn")
  Text4.Text = Data1.Recordset("bms")
  Text5.Text = Data1.Recordset("isbn")
  Text6.Text = Data1.Recordset("jg")
  Text7.Text = Data1.Recordset("id")
 ' Text8.Text = Data1.Recordset("fbl")
 End If
End Sub

Private Sub Data2_Reposition()
On Error Resume Next
If Data2.Recordset.EOF = False And Data2.Recordset.BOF = False Then
  Text1.Text = Data2.Recordset("bookname")
  Text2.Text = Data2.Recordset("author")
  Text3.Text = Data2.Recordset("bmn")
  Text4.Text = Data2.Recordset("bms")
  Text5.Text = Data2.Recordset("isbn")
  Text6.Text = Data2.Recordset("jg")
  Text7.Text = Data2.Recordset("id")
  'Text8.Text = Data2.Recordset("fbl")
  End If
End Sub

Private Sub Form_Load()
  Label9.Caption = "未重图书选购"
  
  Option1.Value = True
  Text9.Visible = True
  Text8.Visible = False
  Text11.Visible = True
  Text10.Visible = False
  If banben = "试用" Then
   Command5.Enabled = False
  
  End If
  
   If banben = "正式" Then
   Command5.Enabled = True
  
  End If
   If banben = "PDA" Then
  Command5.Enabled = True
  
  End If
   If banben = "高级" Then
  Command5.Enabled = True
  
  End If
End Sub

Private Sub Option10_Click()
If Text9.Visible = True Then
     Text9.Text = 10
     Else
     Text8.Text = 10
     End If
      Option10.Value = False
End Sub

Private Sub Option3_Click()
  If Text9.Visible = True Then
     Text9.Text = 0
     Else
     Text8.Text = 0
     End If
      Option3.Value = False
End Sub

Private Sub Option4_Click()
If Text9.Visible = True Then
     Text9.Text = 1
     Else
     Text8.Text = 1
     End If
      Option4.Value = False
End Sub

Private Sub Option5_Click()
  If Text9.Visible = True Then
     Text9.Text = 2
     Else
     Text8.Text = 2
     End If
      Option5.Value = False
End Sub

Private Sub Option6_Click()
If Text9.Visible = True Then
     Text9.Text = 3
     Else
     Text8.Text = 3
     End If
     Option6.Value = False
    
End Sub

Private Sub Option7_Click()
If Text9.Visible = True Then
     Text9.Text = 4
     Else
     Text8.Text = 4
     End If
      Option7.Value = False
End Sub

Private Sub Option8_Click()
If Text9.Visible = True Then
     Text9.Text = 5
     Else
     Text8.Text = 5
     End If
      Option8.Value = False
End Sub

Private Sub Option9_Click()
If Text9.Visible = True Then
     Text9.Text = 6
     Else
     Text8.Text = 6
     End If
      Option9.Value = False
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
Dim fieldstring As String
Dim fieldvalues As String

On Error Resume Next
If SSTab1.Tab = 0 Then
    Command3.Enabled = True
    Command4.Enabled = True
    Label9.Caption = "未重图书选购"
    Text9.Visible = True
    Text8.Visible = False
    Text11.Visible = True
    Text10.Visible = False
    If Data1.Recordset.RecordCount > 0 Then
    'Data1.Recordset.MoveFirst
    End If
    End If
    
  If SSTab1.Tab = 1 Then
  Command3.Enabled = True
    Command4.Enabled = True
    Label9.Caption = "重复图书选购"
    Text9.Visible = False
    Text8.Visible = True
    Text11.Visible = False
    Text10.Visible = True
    If Data2.Recordset.RecordCount > 0 Then
   ' Data2.Recordset.MoveFirst
    End If
     End If
  If SSTab1.Tab = 2 Then
  Command3.Enabled = False
    Command4.Enabled = False
   If Option1.Value = True Then
      fieldstring = "isbn"
      fieldvalues = Data2.Recordset.Fields("isbn").Value
      Else
      fieldstring = "bookname"
      fieldvalues = Data2.Recordset.Fields("bookname").Value
      End If
      Data3.RecordSource = "select * from 本馆数据 where " & fieldstring & "='" & fieldvalues & "'"
      Data3.Refresh
    
  End If
End Sub