form2.frm

一套收费计算机系统

      Height          =   255
      Index           =   1
      Left            =   3120
      TabIndex        =   10
      Top             =   240
      Width           =   615
   End
   Begin VB.Label lblFieldLabel 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "编号:"
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   2
      Top             =   240
      Width           =   615
   End
End
Attribute VB_Name = "Form2oldinput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim cnn1 As ADODB.Connection
Dim cmd1 As ADODB.Command
Dim rstable As ADODB.Recordset
Dim dbs As Database
Dim strcnn As String
Dim addstatus As Boolean '标记是否可退出窗体
Dim dgriddown As Boolean '标记 datagrid1是否被按下
'Public txtstring As String
Dim bm As Variant '标记当前记录的书签
Dim chen, nong As String
Dim entrydate As Date
Dim cc, cs, nc, ns  As Integer

Private Sub cbo地址_Change()

If dgriddown Then
  If Screen.ActiveForm.ActiveControl.Name = "cbo地址" Or Screen.ActiveForm.ActiveControl.Name = "list1" Then
  Command1.Enabled = False
  Command2.Enabled = False
  Command3.Enabled = False
  End If
End If

Dim i As Integer
For i = 0 To List1.ListCount
  If InStr(1, List1.List(i), cbo地址.Text, vbTextCompare) = 1 Then
  List1.ListIndex = i
  Exit For
  Else
  List1.ListIndex = -1
  End If
Next i

End Sub

Private Sub cbo地址_GotFocus()
If IMEStatus <> 1 Then
cbo地址.IMEMode = 1
End If

If DataGrid1.BackColor = &H80000005 Then
  List1.Visible = True
Else
  List1.Visible = False
End If

'List1.ListIndex = 0
End Sub

Private Sub cbo地址_KeyPress(KeyAscii As Integer)
If Len(cbo地址.Text) < 10 Then
   If KeyAscii = 13 Then '回车键
    If cbo地址.ListCount < 10 Then
    cbo地址.AddItem cbo地址.Text
    cbo地址.Text = cbo地址.List(cbo地址.ListCount - 1)
    cbo地址.Refresh
    Else
    cbo地址.RemoveItem 9
    cbo地址.AddItem cbo地址.Text, 0
    cbo地址.Text = cbo地址.List(0)
    cbo地址.Refresh
    End If
    List1.Visible = False
    txt增装盒.SetFocus
  End If
End If

If Len(cbo地址.Text) = 10 Then
  If KeyAscii = 13 Then '回车键
      If cbo地址.ListCount < 10 Then
      cbo地址.AddItem cbo地址.Text
      cbo地址.Text = cbo地址.List(cbo地址.ListCount - 1)
      cbo地址.Refresh
      Else
      cbo地址.RemoveItem 9
      cbo地址.AddItem cbo地址.Text, 0
      cbo地址.Text = cbo地址.List(0)
      cbo地址.Refresh
      End If
    List1.Visible = False
    txt增装盒.SetFocus
  Else
      If KeyAscii <> 8 Then '回撤键
      KeyAscii = 0
      End If
  End If
End If


If Len(cbo地址.Text) > 10 Then
 KeyAscii = 0 '取消输入
End If
End Sub


Private Sub cbo地址_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim aa As String
aa = Data.GetData(1)
cbo地址.Text = aa
cbo地址.SetFocus
'移动光标到字块尾
cbo地址.SelStart = Len(cbo地址.Text)
End Sub

Private Sub Command1_Click() '开始录入
Set txt编号.DataSource = Adodc1
Set txt姓名.DataSource = Adodc1
Set cbo地址.DataSource = Adodc1
Set txt增装盒.DataSource = Adodc1
Set txt初装日期.DataSource = Adodc1
Set txt备注.DataSource = Adodc1

Set txt交费日期.DataSource = Adodc3

lbl类型.Caption = ""
lbl初装费.Caption = ""
lbl收视费.Caption = ""

List1.Visible = False

addstatus = True

Command4.Enabled = False '更新按钮不可用
Command2.Enabled = False '删除按钮不可用
Command3.Enabled = False '查找按钮不可用
Command1.Enabled = False '下一个按钮不可用

StatusBar1.SimpleText = "正在录入第" & Adodc4.Recordset.RecordCount + 1 & "条记录，共" & Adodc4.Recordset.RecordCount & "条记录"

If Command1.Caption = "开始录入" Then '第一次按下后变换文本及图标
Command1.Caption = "下一个"
Command1.Picture = LoadPicture("c:\my documents\my pictures\Arw08dn.ico")
End If

Adodc1.Recordset.AddNew '用户库赋新值
Adodc3.Recordset.AddNew '交费库赋新值

txt编号.SetFocus

dgriddown = False
End Sub

Private Sub Command2_Click() '删除
Load Form21
Form21.Show vbModal


'Adodc1.Recordset.Resync
Adodc1.Recordset.Update
'Adodc1.Recordset.Requery -1
'Adodc1.Recordset.Filter = "当前时间=#" & Format(Date, "YYYY-mm-dd") & "#"


'
'DataGrid1.Refresh
'Text2.Text = Adodc1.Recordset.RecordCount
'DataGrid1.ClearFields
'Set DataGrid1.DataSource = Adodc1
'  DataGrid1.DataMember = ""
'  DataGrid1.BackColor = &H80000005
'  DataGrid1.HoldFields
'  DataGrid1.ReBind
'Text2.Text = Adodc1.Recordset.RecordCount

'Adodc1.Recordset.Update
'Adodc1.Recordset.Requery
'DataGrid1.Refresh
'command2.Enabled = False

'DataGrid1.Refresh
'Adodc1.Recordset.Bookmark = bm
'DataGrid1.HoldFields

'DataGrid1.ReBind
'DataGrid1.Refresh

'rstable.Find "编号 =" & txt编号.Text, , adSearchForward, 1
'Debug.Print rstable.Fields(0).Value
'Debug.Print rstable.Fields(1).Value
'Debug.Print rstable.Fields(2).Value
'Debug.Print rstable.Fields(3).Value
'
'rstable.Delete adAffectCurrent
'rstable.Update
'DataGrid1.Refresh
'
''Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
'Adodc1.Recordset.Update
'Adodc1.Recordset.Requery -1
'Adodc1.Recordset.Bookmark = bm
'Adodc1.Recordset.Delete adAffectCurrent
'Adodc1.Recordset.MoveNext
'Adodc1.Recordset.Update
'
'Command1.Enabled = True
'Command2.Enabled = True
'Command3.Enabled = True
'Command1.SetFocus
'StatusBar1.SimpleText = "准备录入下一条记录"
End Sub

Private Sub Command3_Click() '查找
If Command3.Caption = "查  找" Then
  Load Form22
  Form22.Show vbModal
  
  'Set DataGrid1.DataSource = Adodc2
  'Adodc2.Recordset.Filter = filterstring
  '
  'DataGrid1.HoldFields
  'DataGrid1.ReBind
  If filterstring <> "" Or lstring <> "" Then
      StatusBar1.SimpleText = "查询条件为:" & lstring
      Command1.Enabled = False
      Command2.Enabled = False
      Command4.Enabled = False
      Command3.Caption = "恢  复"
      
      Set DataGrid1.DataSource = hzzde
      DataGrid1.DataMember = "threeinone"
      DataGrid1.BackColor = &H8000000F
      hzzde.rsthreeinone.Filter = filterstring
      DataGrid1.HoldFields
      DataGrid1.ReBind
      'Debug.Print hzzde.rsthreeinone.Fields(0).Value
      Exit Sub
    Else
      Exit Sub
  End If
End If

If Command3.Caption = "恢  复" Then
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.DataMember = ""
  DataGrid1.BackColor = &H80000005
  DataGrid1.HoldFields
  DataGrid1.ReBind
  
  Set txt编号.DataSource = Adodc1: txt编号.DataMember = "": txt编号.Locked = False
  Set txt姓名.DataSource = Adodc1: txt姓名.DataMember = "": txt姓名.Locked = False
  Set cbo地址.DataSource = Adodc1: cbo地址.DataMember = "": cbo地址.Locked = False
  Set txt增装盒.DataSource = Adodc1: txt增装盒.DataMember = "": txt增装盒.Locked = False
  Set txt初装日期.DataSource = Adodc1: txt初装日期.DataMember = "": txt初装日期.Locked = False
  Set txt交费日期.DataSource = Adodc1: txt交费日期.DataMember = "": txt交费日期.Locked = False
  Set txt备注.DataSource = Adodc1: txt备注.DataMember = "": txt备注.Locked = False
  
  If Left(DataGrid1.Columns(0).Value, 1) = "1" Then
    lbl类型.Caption = DataGrid1.Columns(3).Value
    lbl类型.BackColor = &HFF8080
    lbl初装费.Caption = DataGrid1.Columns(7).Value
    lbl初装费.BackColor = &HFF8080
    lbl收视费.Caption = DataGrid1.Columns(9).Value
    lbl收视费.BackColor = &HFF8080
  End If
  If Left(DataGrid1.Columns(0).Value, 1) = "2" Then
    lbl类型.Caption = DataGrid1.Columns(3).Value
    lbl类型.BackColor = &H80FF80
    lbl初装费.Caption = DataGrid1.Columns(7).Value
    lbl初装费.BackColor = &H80FF80
    lbl收视费.Caption = DataGrid1.Columns(9).Value
    lbl收视费.BackColor = &H80FF80
  End If
  
  Command1.Enabled = True
  Command3.Caption = "查  找"
  StatusBar1.SimpleText = "准备录入下一条记录"
End If
End Sub

Private Sub Command4_Click() '更新
If dgriddown Then
  txtstring = txt编号.Text
 Text2.Text = "1"
'  Adodc1.Recordset.Update
'  Adodc3.Recordset.Update
  Adodc3.Refresh
'  Adodc3.Recordset.Requery -1
  Adodc3.Recordset.Resync adAffectCurrent, adResyncUnderlyingValues
  Adodc1.Refresh
'  Adodc1.Recordset.Requery -1
  Adodc1.Recordset.Resync adAffectCurrent, adResyncUnderlyingValues
  addstatus = False
  
  Adodc4.Refresh
'  Adodc4.Recordset.Requery -1
  Adodc4.Recordset.Resync adAffectCurrent, adResyncUnderlyingValues
Adodc4.Recordset.MoveFirst
  Adodc4.Recordset.Find "编号='" & txtstring & "'", , adSearchForward, 1
  
  Command1.Enabled = True
  'Command2.Enabled = True
  Command3.Enabled = True
  Command1.SetFocus
  StatusBar1.SimpleText = "准备录入下一条记录"
  
  Set txt编号.DataSource = Adodc4
  Set txt姓名.DataSource = Adodc4
  Set cbo地址.DataSource = Adodc4
  Set txt增装盒.DataSource = Adodc4
  Set txt初装日期.DataSource = Adodc4
  Set txt备注.DataSource = Adodc4
  
  Set txt交费日期.DataSource = Adodc4
  
Else
  txtstring = txt编号.Text
  Text2.Text = "2"
  rstable.Requery
  If Not rstable.RecordCount = 0 Then
    rstable.MoveFirst
  End If
  
  rstable.Find "编号 =" & txt编号.Text, , adSearchForward, 1
  
  If rstable.EOF Then
    Adodc1.Recordset.Update
    Adodc3.Recordset.Update
    Adodc3.Refresh
    Adodc1.Refresh
'    Adodc3.Recordset.Requery
'    Adodc1.Recordset.Requery
    
    addstatus = False
    
    Adodc4.Refresh
    Adodc4.Recordset.MoveFirst
    Adodc4.Recordset.Find "编号='" & txtstring & "'", , adSearchForward, 1
    
    Command1.Enabled = True
    'Command2.Enabled = True
    Command3.Enabled = True
    Command1.SetFocus
    StatusBar1.SimpleText = "准备录入下一条记录"
    
    Set txt编号.DataSource = Adodc4
    Set txt姓名.DataSource = Adodc4
    Set cbo地址.DataSource = Adodc4
    Set txt增装盒.DataSource = Adodc4
    Set txt初装日期.DataSource = Adodc4
    Set txt备注.DataSource = Adodc4
    
    Set txt交费日期.DataSource = Adodc4
  
  Else
  
    MsgBox "您输入了重复的编号，请重新输入", vbOKOnly, "警示"
    Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    
    txt编号.SetFocus
  End If
  
End If
Command4.Enabled = False
dgriddown = False
End Sub


Private Sub DataGrid1_Click() '任选网格窗体一记录
If DataGrid1.Col = -1 Then

  If DataGrid1.BackColor = &H80000005 Then
  '恢复状态
  
  dgriddown = True
    
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = True
    Command4.Enabled = False
    
    StatusBar1.SimpleText = "正在显示第" & Adodc4.Recordset.AbsolutePosition & "条记录，共" & Adodc4.Recordset.RecordCount & "条记录"
    
    Adodc3.Recordset.Find "号码='" & Adodc4.Recordset.Fields(0).Value & "'", , adSearchForward, 1
    Text3.Text = Adodc3.Recordset.Fields(1).Value
    Adodc1.Recordset.Find "编号='" & Adodc4.Recordset.Fields(0).Value & "'", , adSearchForward, 1
    
    
    Set txt编号.DataSource = Adodc1:  txt编号.Locked = False: txt编号.DataMember = ""
    Set txt姓名.DataSource = Adodc1:  txt姓名.Locked = False: txt姓名.DataMember = ""
    Set cbo地址.DataSource = Adodc1:  cbo地址.Locked = False: cbo地址.DataMember = ""
    Set txt增装盒.DataSource = Adodc1:  txt增装盒.Locked = False: txt增装盒.DataMember = ""
    Set txt初装日期.DataSource = Adodc1:  txt初装日期.Locked = False: txt初装日期.DataMember = ""
    Set txt交费日期.DataSource = Adodc3: txt交费日期.Locked = False: txt交费日期.DataMember = ""
    Set txt备注.DataSource = Adodc1:  txt备注.Locked = False: txt备注.DataMember = ""
    
    If Left(DataGrid1.Columns(0).Value, 1) = "1" Then
  
      lbl类型.BackColor = &HFF8080
  
      lbl初装费.BackColor = &HFF8080
  
      lbl收视费.BackColor = &HFF8080
    End If
    If Left(DataGrid1.Columns(0).Value, 1) = "2" Then
  
      lbl类型.BackColor = &H80FF80
  
      lbl初装费.BackColor = &H80FF80