main_jbxx_bfxxgl.frm

一个比较完整的数据库编程技巧”洗浴管理系统“

            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column10 
         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 Column11 
         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 Column12 
         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     =   494.929
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   464.882
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   599.811
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   824.882
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   840.189
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   840.189
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   810.142
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   494.929
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   975.118
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   854.929
         EndProperty
         BeginProperty Column11 
            ColumnWidth     =   854.929
         EndProperty
         BeginProperty Column12 
            ColumnWidth     =   824.882
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "main_jbxx_bfxxgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer             '定义整数变量，表示字段编号和数组编号
Dim rs1 As New ADODB.Recordset   '定义数据集对象
Dim txtSQL As String     '定义一个字符串变量
Private Sub Form_Load()
  '添加部门列表
  Combo1.AddItem ("洗浴部"): Combo1.AddItem ("客房部")
  Combo1.AddItem ("餐饮部"): Combo1.ListIndex = 0
  '添加包房类型列表表
  Combo2.AddItem ("大包房"): Combo2.AddItem ("小包房")
  Combo2.AddItem ("KTV房"): Combo2.ListIndex = 0
  '添加房间状态列表
  Combo5.AddItem ("空闲"): Combo5.AddItem ("使用")
  Combo5.AddItem ("损坏"): Combo5.ListIndex = 0
  '添加查询内容列表
  Combo3.AddItem ("编号"): Combo3.AddItem ("楼层")
  Combo3.AddItem ("房间号"): Combo3.AddItem ("包房名称")
  Combo3.AddItem ("所属部门"): Combo3.AddItem ("包房类型")
  Combo3.AddItem ("状态"): Combo3.ListIndex = 0
  '添加查询条件列表
  Combo4.AddItem ("like"): Combo4.AddItem ("=")
  Combo4.ListIndex = 0
  '查询所有包房信息，并按"编号"排序
  Adodc1.RecordSource = "select * from 包房信息表 order by 编号"
  Adodc1.Refresh
  Me.Caption = Me.Caption & "     操作员： " & frm_main.St1.Panels(3).Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
 frm_main.Enabled = True     '设置frm_main窗体有效
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

 Select Case Index
    Case Is = Index
    If KeyCode = vbKeyReturn And Index >= 1 And Index < 5 Then Text1(Index + 1).SetFocus  '回车获得焦点
    If KeyCode = vbKeyReturn And Index = 4 Then Combo1.SetFocus
    If KeyCode = vbKeyReturn And Index = 5 Then Combo5.SetFocus '回车获得焦点
    If KeyCode = vbKeyReturn And Index >= 9 And Index < 12 Then Text1(Index + 1).SetFocus
    If KeyCode = vbKeyReturn And Index = 12 Then ComSave.SetFocus
 End Select
 End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Combo2.SetFocus     '回车Combo2获得焦点
End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Text1(5).SetFocus     '回车Text1(5)获得焦点
End Sub
Private Sub Combo5_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Text1(9).SetFocus     '回车Text1(9)获得焦点
End Sub
Private Sub ComFirst_Click()       '移到第一条记录
 If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
End Sub
Private Sub ComPrevious_Click()    '向上移一条记录
 If Adodc1.Recordset.RecordCount <> 0 Then
  If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious
  If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst
 End If
End Sub
Private Sub ComNext_Click()        '向下移一条记录
 If Adodc1.Recordset.RecordCount <> 0 Then
  If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext
  If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast
 End If
End Sub
Private Sub ComLast_Click()       '移到最后一条记录
 If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End Sub
Private Sub ComAdd_Click()     '添加
  Frame1.Visible = True     'frame1可见
  Dim dm As Integer     '定义一个整型变量
  txtSQL = "select * from 包房信息表 order by 编号"
  Set rs1 = ESQL(txtSQL)     '执行SQL语句
  If rs1.RecordCount > 0 Then     '当记录大于零时
     If Not rs1.EOF Then rs1.MoveLast     '如记录没到头，那么移到最后一条记录
        If rs1.Fields("编号") <> "" Then     '假如编号不等于空
        dm = Trim(rs1.Fields("编号")) + 1     '赋值给dm变量
        Text1(0).Text = Format(dm, "000")     '赋值给text1(0).text
     End If
  Else     '否则
     Text1(0).Text = "001"     '为text1(0).text设初值
  End If
  '清空数据
  For i = 1 To 4
      Text1(i).Text = ""
  Next i
  Text1(5).Text = ""
  For i = 9 To 12
      Text1(i).Text = ""
  Next i
  Text1(11).Text = "分钟"     '为Text1(11)赋值
  Text1(1).SetFocus     'text1(1)获得焦点
End Sub
Private Sub ComModify_Click()     '允许修改数据
  If Adodc1.Recordset.RecordCount > 0 Then     '当记录大于零时
     Frame1.Visible = True      'frame1可见
     '赋值给Text1(i)等
     For i = 0 To 4
         If Adodc1.Recordset.Fields(i) <> "" Then Text1(i).Text = Trim(Adodc1.Recordset.Fields(i))
     Next i
     If Adodc1.Recordset.Fields("所属部门") <> "" Then Combo1.Text = Trim(Adodc1.Recordset.Fields("所属部门"))
     If Adodc1.Recordset.Fields("包房类型") <> "" Then Combo2.Text = Trim(Adodc1.Recordset.Fields("包房类型"))
     If Adodc1.Recordset.Fields("容纳人数") <> "" Then Text1(5).Text = Trim(Adodc1.Recordset.Fields("容纳人数"))
     If Adodc1.Recordset.Fields("状态") <> "" Then Combo5.Text = Trim(Adodc1.Recordset.Fields("状态"))
     For i = 9 To 12
         If Adodc1.Recordset.Fields(i) <> "" Then Text1(i).Text = Trim(Adodc1.Recordset.Fields(i))
     Next i
  Else
     MsgBox "没有要修改的记录，请核对！"
  End If
End Sub
Private Sub ComDelete_Click()     '删除包房信息
 Frame1.Visible = False     'frame1不可见
 On Error Resume Next
 Adodc1.Recordset.Delete     '删除记录
 Adodc1.Refresh     '刷新记录
End Sub
Private Sub ComSave_Click()     '保存包房信息
 txtSQL = "select * from 包房信息表 where 编号='" & Trim(Text1(0).Text) & "'order by 编号"
 Set rs1 = ESQL(txtSQL)
 If rs1.RecordCount > 0 Then     '当记录大于零时
    Dim a As String     '定义字符串变量
    a = MsgBox("您确实要修改这条数据吗?", vbYesNo)
    If a = vbYes Then
       If Text1(12).Text = "" Or Text1(12).Text <= 0 Then
          MsgBox ("分钟描述不正确，请输入大于0的数据！")
          Exit Sub
       End If
    If Text1(10).Text = "" Then
       MsgBox ("请输入包房价格！")
       Exit Sub
     End If
     '赋值给数据库字段
     rs1.Fields("编号") = Text1(0).Text: rs1.Fields("楼层") = Text1(1).Text
     rs1.Fields("房间号") = Text1(2).Text: rs1.Fields("包房名称") = Text1(3).Text
     rs1.Fields("包房说明") = Text1(4).Text: rs1.Fields("所属部门") = Combo1.Text
     rs1.Fields("包房类型") = Combo2.Text: rs1.Fields("容纳人数") = Val(Text1(5).Text)
     rs1.Fields("状态") = Combo5.Text: rs1.Fields("现容纳人数") = Val(Text1(9).Text)
     rs1.Fields("包房价格") = Val(Text1(10).Text): rs1.Fields("消费单位") = Text1(11).Text
     rs1.Fields("分钟描述") = Val(Text1(12).Text)
     rs1.Update     '更新记录集
     Adodc1.Refresh
    End If
  Else
   If Text1(0).Text = "" Then
      MsgBox ("请输入编号！")
      Exit Sub
   End If
   If Text1(1).Text = "" Then
      MsgBox ("请输入楼层！")
      Exit Sub
   End If
   If Text1(2).Text = "" Then
      MsgBox ("请输入房间号！")
      Exit Sub
   End If
   If Text1(3).Text = "" Then
      MsgBox ("请输入包房名称！")
      Exit Sub
   End If
   If Text1(4).Text = "" Then
      MsgBox ("请输入包房说明！")
      Exit Sub
   End If
   If Text1(10).Text = "" Then
      MsgBox ("请输入包房价格！")
      Exit Sub
   End If
   If Text1(12).Text = "" Or Text1(12).Text <= "0" Then
      MsgBox ("分钟描述不正确，请输入大于0的数据！")
      Exit Sub
   End If
   rs1.AddNew   '添加包房信息
   '赋值给数据库字段
   rs1.Fields("编号") = Text1(0).Text: rs1.Fields("楼层") = Text1(1).Text
   rs1.Fields("房间号") = Text1(2).Text: rs1.Fields("包房名称") = Text1(3).Text
   rs1.Fields("包房说明") = Text1(4).Text: rs1.Fields("所属部门") = Combo1.Text
   rs1.Fields("包房类型") = Combo2.Text: rs1.Fields("容纳人数") = Val(Text1(5).Text)
   rs1.Fields("状态") = Combo5.Text: rs1.Fields("现容纳人数") = Val(Text1(9).Text)
   rs1.Fields("包房价格") = Val(Text1(10).Text): rs1.Fields("消费单位") = Text1(11).Text
   rs1.Fields("分钟描述") = Val(Text1(12).Text)
   rs1.Update   '更新数据库
   Adodc1.Refresh
   MsgBox "包房信息已成功保存！"
 End If
 Frame1.Visible = False     '设置Frame1不可见
End Sub
Private Sub Comfind_Click()     '查询
 Select Case Combo4.Text
  Case Is = "like"
    Adodc1.RecordSource = "select * from 包房信息表 where (包房信息表." & Combo3.Text & " like +'%'+ '" + Text2.Text + "'+'%') order by 编号"
    Adodc1.Refresh
  Case Is = "="
    Adodc1.RecordSource = "select * from 包房信息表 where (包房信息表." & Combo3.Text & " = '" + Text2.Text + "') order by 编号"
    Adodc1.Refresh
 End Select
End Sub
Private Sub ComEsc_Click()     '取消操作
  Frame1.Visible = False
End Sub
Private Sub ComExit_Click()
 Unload Me
 frm_main.Enabled = True
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  If Index = 12 Then KeyAscii = valiText(KeyAscii, "0123456789." & Chr(13), True)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then ComFind.SetFocus
End Sub