form6single.frm

一套收费计算机系统

  End If
  
'0带区布局
MSHFlexGrid1.ColWidth(1, 0) = 700
MSHFlexGrid1.ColWidth(0, 0) = 300
MSHFlexGrid1.ColWidth(2, 0) = 900
MSHFlexGrid1.ColWidth(3, 0) = 700
MSHFlexGrid1.ColWidth(4, 0) = 700
MSHFlexGrid1.ColWidth(5, 0) = 900
'合并
MSHFlexGrid1.MergeCol(6) = True
MSHFlexGrid1.MergeCol(7) = True
MSHFlexGrid1.MergeCol(8) = True
MSHFlexGrid1.MergeCol(9) = True
MSHFlexGrid1.MergeCol(10) = True
'1带区布局
MSHFlexGrid1.ColWidth(0, 1) = 0
MSHFlexGrid1.ColWidth(1, 1) = 0
MSHFlexGrid1.ColWidth(2, 1) = 0
MSHFlexGrid1.ColWidth(3, 1) = 0
MSHFlexGrid1.ColWidth(4, 1) = 0
MSHFlexGrid1.ColWidth(5, 1) = 0
MSHFlexGrid1.ColWidth(6, 1) = 700
MSHFlexGrid1.ColWidth(7, 1) = 1000
MSHFlexGrid1.ColWidth(8, 1) = 700
MSHFlexGrid1.ColWidth(9, 1) = 1400
MSHFlexGrid1.ColWidth(10, 1) = 1500
MSHFlexGrid1.ColWidth(11, 1) = 0
  
Else

  MSHFlexGrid1.Redraw = False
  
  MSHFlexGrid1.ClearStructure
  Set MSHFlexGrid1.DataSource = hzzde
  MSHFlexGrid1.DataMember = "command2查询分组"
  MSHFlexGrid1.Refresh
  MSHFlexGrid1.Redraw = True
  hzzde.rsCommand2查询分组.Filter = filterlstring
  If hzzde.rsCommand2查询分组.RecordCount = 0 Then
  MsgBox "没有符合条件的记录", vbOKOnly, "警示"
  Exit Sub
  End If
  
  MSHFlexGrid1.ColWidth(1, 0) = 1000
  MSHFlexGrid1.ColWidth(0, 0) = 300
  
  MSHFlexGrid1.MergeCol(2) = True
  MSHFlexGrid1.MergeCol(3) = True
  MSHFlexGrid1.MergeCol(4) = True
  MSHFlexGrid1.MergeCol(5) = True
  MSHFlexGrid1.MergeCol(6) = True
  MSHFlexGrid1.MergeCol(7) = True
  MSHFlexGrid1.MergeCol(8) = True
  MSHFlexGrid1.MergeCol(9) = True
  MSHFlexGrid1.MergeCol(10) = True


  MSHFlexGrid1.ColWidth(0, 1) = 700
  MSHFlexGrid1.ColWidth(1, 1) = 900
  MSHFlexGrid1.ColWidth(2, 1) = 700
  MSHFlexGrid1.ColWidth(3, 1) = 700
  MSHFlexGrid1.ColWidth(4, 1) = 900
  MSHFlexGrid1.ColWidth(5, 1) = 700
  MSHFlexGrid1.ColWidth(6, 1) = 0
  MSHFlexGrid1.ColWidth(7, 1) = 700
  MSHFlexGrid1.ColWidth(8, 1) = 1500
  MSHFlexGrid1.ColWidth(9, 1) = 1500
  
  MSHFlexGrid1.GridColorBand(0) = vbRed
  MSHFlexGrid1.Col = 0
  MSHFlexGrid1.Row = 0
  MSHFlexGrid1.CellPictureAlignment = 5
  Set MSHFlexGrid1.CellPicture = LoadPicture("c:\my documents\my pictures\acdsee.ico")
End If

End Sub

Private Sub Command2_Click()
'取消
DataCombo1.Enabled = True
DataCombo1.Text = ""
Text1.Enabled = True
Text1.BackColor = &H80000005
Text1.Text = ""
DTPicker1.Enabled = True
DTPicker2.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
llstring = ""
filterlstring = ""
StatusBar1.SimpleText = ""
'MSHFlexGrid1.Clear
hzzde.rsCommand3查询分组.Filter = ""
hzzde.rsCommand2查询分组.Filter = ""

End Sub

Private Sub DataCombo1_Change()
flagjf = False

Command1.Enabled = True

Text1.BackColor = &H80000004
Text1.Enabled = False

DTPicker1.Enabled = False
DTPicker2.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
End Sub

Private Sub DataCombo1_KeyPress(KeyAscii As Integer)
If Len(DataCombo1.Text) < 6 Then ' 当输入小于六个字母时
  If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 Then '除0-9，回撤键外其余的输入无效
  KeyAscii = 0 '取消输入
  End If
End If

If Len(DataCombo1.Text) = 6 Then '当输入等于六个字母时

    If KeyAscii <> 8 Then '回撤键的处理
      KeyAscii = 0 '取消输入
    End If
    
End If

End Sub

Private Sub DataCombo1_LostFocus()
'编号
If DataCombo1.Text <> "" Then
lbh = "编号为" & DataCombo1.Text
bh = "编号='" & DataCombo1.Text & "'"
llstring = "查询条件为:" + lbh
filterlstring = bh
StatusBar1.SimpleText = llstring
End If

End Sub

Private Sub DTPicker1_Change()
DataCombo1.Enabled = False
DTPicker2.Enabled = False
Text1.BackColor = &H80000004
Text1.Enabled = False
Option1.Enabled = False
Option2.Enabled = False

Command1.Enabled = True
End Sub

Private Sub DTPicker1_LostFocus()
'交费日期
ljf = "交费日期为 " & DTPicker1.Value
jf = "交费日期=#" & DTPicker1.Value & "# "
llstring = "查询条件为：" + ljf
filterlstring = jf
StatusBar1.SimpleText = llstring
flagjf = True
End Sub

Private Sub DTPicker2_Change()
flagjf = False
DataCombo1.Enabled = False
DTPicker1.Enabled = False
Text1.BackColor = &H80000004
Text1.Enabled = False
Option1.Enabled = False
Option2.Enabled = False

Command1.Enabled = True
End Sub

Private Sub DTPicker2_LostFocus()
'初装日期
laz = "初装日期为 " & DTPicker2.Value
az = "初装日期=#" & DTPicker2.Value & "# "
llstring = "查询条件为：" + laz
filterlstring = az
StatusBar1.SimpleText = llstring
End Sub

Private Sub Form_Load()
entrydate = Now()

flagjf = False
Command1.Enabled = False
'MSHFlexGrid1.FormatString = "   |^ 编  号 "

MSHFlexGrid1.Refresh
'0带区布局
MSHFlexGrid1.ColWidth(1, 0) = 700
MSHFlexGrid1.ColWidth(0, 0) = 300
MSHFlexGrid1.ColWidth(2, 0) = 900
MSHFlexGrid1.ColWidth(3, 0) = 700
MSHFlexGrid1.ColWidth(4, 0) = 700
MSHFlexGrid1.ColWidth(5, 0) = 900
'合并
MSHFlexGrid1.MergeCol(6) = True
MSHFlexGrid1.MergeCol(7) = True
MSHFlexGrid1.MergeCol(8) = True
MSHFlexGrid1.MergeCol(9) = True
MSHFlexGrid1.MergeCol(10) = True
'1带区布局
MSHFlexGrid1.ColWidth(0, 1) = 0
MSHFlexGrid1.ColWidth(1, 1) = 0
MSHFlexGrid1.ColWidth(2, 1) = 0
MSHFlexGrid1.ColWidth(3, 1) = 0
MSHFlexGrid1.ColWidth(4, 1) = 0
MSHFlexGrid1.ColWidth(5, 1) = 0
MSHFlexGrid1.ColWidth(6, 1) = 700
MSHFlexGrid1.ColWidth(7, 1) = 1000
MSHFlexGrid1.ColWidth(8, 1) = 700
MSHFlexGrid1.ColWidth(9, 1) = 1400
MSHFlexGrid1.ColWidth(10, 1) = 1500
MSHFlexGrid1.ColWidth(11, 1) = 0

MSHFlexGrid1.GridColorBand(0) = vbRed
MSHFlexGrid1.BackColorBand(0) = vbGreen
MSHFlexGrid1.BackColorFixed = vbCyan
MSHFlexGrid1.BackColorSel = vbGreen
MSHFlexGrid1.RowHeight(0) = 300

'MSHFlexGrid1.Clear '教训

MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = 0
MSHFlexGrid1.CellPictureAlignment = 5
Set MSHFlexGrid1.CellPicture = LoadPicture("c:\my documents\my pictures\acdsee.ico")
'If MSHFlexGrid1.TextMatrix(1, 4) = "true" Then
'MSHFlexGrid1.TextMatrix(1, 4) = "有"
'Else
'MSHFlexGrid1.TextMatrix(1, 4) = "无"
'End If

'Set Picture1.Picture = MSHFlexGrid1.Picture

'MSHFlexGrid1.Col = 0
'MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
'MSHFlexGrid1.Sort = 1 '分层无效

MSHFlexGrid1.ScrollTrack = True

DTPicker1.Value = Date
DTPicker2.Value = Date

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call history(staff, entrydate, Me.Caption, Now())
End Sub

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

If flagjf = False Then
MSHFlexGrid1.Tag = ""
If MSHFlexGrid1.MouseRow <> 0 Then Exit Sub
If MSHFlexGrid1.MouseCol = 0 Then
  MsgBox "标题项不可移动", vbOKOnly, "警示"
  Exit Sub
Else
    If MSHFlexGrid1.BandLevel = 0 Then
      MSHFlexGrid1.Tag = Str(MSHFlexGrid1.MouseCol)
    End If
    
    If MSHFlexGrid1.BandLevel = 1 Then
      MSHFlexGrid1.Tag = Str(MSHFlexGrid1.MouseCol - 6)
    End If
  
End If
End If
End Sub

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If flagjf = False Then
If MSHFlexGrid1.MouseCol = 0 And MSHFlexGrid1.MouseRow = 0 Then
  MsgBox "标题项不可移动", vbOKOnly, "警示"
  Exit Sub
Else
  If MSHFlexGrid1.Tag = "" Then Exit Sub
    
      If MSHFlexGrid1.BandLevel = 0 Then
        If x > 4090 Then
          MsgBox "对不起，不允许这样的操作", vbOKOnly, "警示"
          Exit Sub
        Else
          MSHFlexGrid1.Redraw = False
          MSHFlexGrid1.ColPosition(Val(MSHFlexGrid1.Tag), MSHFlexGrid1.BandLevel) = MSHFlexGrid1.MouseCol
          MSHFlexGrid1.Redraw = True
        End If
      End If
      
      If MSHFlexGrid1.BandLevel = 1 Then
        If x < 4090 Then
          MsgBox "对不起，不允许这样的操作", vbOKOnly, "警示"
          Exit Sub
        Else
          MSHFlexGrid1.Redraw = False
          MSHFlexGrid1.ColPosition(Val(MSHFlexGrid1.Tag), MSHFlexGrid1.BandLevel) = MSHFlexGrid1.MouseCol - 6
          MSHFlexGrid1.Redraw = True
        End If
      End If
  End If
  End If
End Sub

Private Sub Option1_Click() '是
flagjf = False
DataCombo1.Enabled = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
Text1.BackColor = &H80000004
Text1.Enabled = False

Command1.Enabled = True
End Sub

Private Sub Option1_LostFocus()
lzzh = "有增装盒 "
zzh = "增装盒=true"
llstring = "查询条件为：" + lzzh
filterlstring = zzh
StatusBar1.SimpleText = llstring
End Sub

Private Sub Option2_Click() '否
flagjf = False
DataCombo1.Enabled = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
Text1.BackColor = &H80000004
Text1.Enabled = False

Command1.Enabled = True

End Sub

Private Sub Option2_LostFocus()
lzzh = "无增装盒 "
zzh = "增装盒=false"
llstring = "查询条件为：" + lzzh
filterlstring = zzh
StatusBar1.SimpleText = llstring
End Sub

Private Sub Text1_Change()
flagjf = False
'Debug.Print Screen.ActiveControl.Name
DataCombo1.Enabled = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
Option1.Enabled = False
Option2.Enabled = False

Command1.Enabled = True
End Sub

Private Sub Text1_LostFocus()
'姓名
If Text1.Text <> "" Then
lxm = "姓名为 " & Text1.Text
xm = "姓名 like '" & Text1.Text & "*'"
llstring = "查询条件为：" + lxm
filterlstring = xm
StatusBar1.SimpleText = llstring
End If
End Sub