scgl_ywdw.frm

一个简单的酒店管理系统 用VB.net+SQL2000实现

Private Sub Form_Load()
    Dim sys_uid As String, sys_pwd As String
    JZ_USER = SYS_USER + Space(1) + SYS_NAME
    JZ_JRSJ2 = Time()
    sys_uid = "db2user"
    sys_pwd = "db2user"
    KeyPreview = True
    name1.Caption = "客户单位一览表"
    Call atfirst
    t_fields = Array(0, 1, 2, 3, 4, 5)
    t_bt = "^     客户编号 |^  单位名称  |^    详细地址   |^    联系人 |^      联系电话 |^    备注             "
    Set rec = PUB_data.OpenRecordset("select  KHDM,YWDW_MC,DZ,LXR,LXDH,BZ,LOCK_NO from YX_DWQK", 4)
    If Not rec.BOF Then
        rec.MoveLast
        Call pub_memo.Flex_full(FLEX1, t_bt, rec, t_fields, 5, Array(0, 0, 0, 0, 0, 0))
    End If
    rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    key_index = 100
    Select Case KeyCode
        Case vbKeyF2
             key_index = 0   '增加
        Case vbKeyF3
             key_index = 1   '修改
        Case vbKeyF4
             key_index = 2   '解除
        Case vbKeyF5
             key_index = 3   '打印
        Case vbKeyF6
             key_index = 4   '筛选
        Case vbKeyF10
             key_index = 5   '查询
        Case vbKeyF9
             key_index = 6   '刷新
        Case vbKeyEscape
             key_index = 99  '退出
    End Select
        If key_index = 99 Then
            If Frame2.Enabled = False And Frame6.Enabled = False Then
                Call Cmd3_Click
            Else
                Call atfirst
            End If
        Else
            If Frame2.Enabled = False And Frame6.Enabled = False Then
                Call Cmd2_Click(key_index)
            End If
        End If
End Sub

Sub MAIN(t_gnmc As String)
   Label1.Caption = t_gnmc
   JZ_USER = SYS_USER + Space(1) + SYS_NAME
   JZ_JRSJ2 = Time()
   JZ_DQSJ2 = Time()
End Sub
Private Sub Cmd3_Click()
    Unload Me
    yx_main.Show (1)
End Sub
Private Sub flex1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Cmd2(0).SetFocus
    End If
End Sub

Private Sub FLEX1_GotFocus()
    On Error GoTo error1
    m_khdm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 6))
    m_ywdw_mc.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 6 + 1)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 6 + 1)))
    m_dz.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 6 + 2)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 6 + 2)))
    m_lxr.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 6 + 3)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 6 + 3)))
    m_lxdh.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 6 + 4)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 6 + 4)))
    m_bz.Text = Trim(FLEX1.TextArray(FLEX1.Row * 6 + 5))
    Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
End Sub
Private Sub FLEX1_RowColChange()
    On Error GoTo error1
    m_khdm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 6))
    m_ywdw_mc.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 6 + 1)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 6 + 1)))
    m_dz.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 6 + 2)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 6 + 2)))
    m_lxr.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 6 + 3)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 6 + 3)))
    m_lxdh.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 6 + 4)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 6 + 4)))
    m_bz.Text = Trim(FLEX1.TextArray(FLEX1.Row * 6 + 5))
    Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
End Sub

Private Sub m_dqh1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        m_ywy1.SetFocus
        m_ywy1.SelStart = 0
        m_ywy1.SelLength = Len(Trim(m_ywy1.Text))
    End If
End Sub


Private Sub m_khdm1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        m_khdm2.SetFocus
        m_khdm2.SelStart = 0
        m_khdm2.SelLength = Len(Trim(m_khdm2.Text))
    End If
End Sub
Private Sub m_khdm2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        Call m_khdm2_LostFocus
    End If
End Sub

Private Sub m_khdm2_LostFocus()
    If Trim(m_khdm1.Text) <> "" And Trim(m_khdm2.Text) <> "" Then
        If Trim(m_khdm1.Text) > Trim(m_khdm2.Text) Then
            frm_msg.Caption = "终止单位号不能大于起始单位号!"
            m_khdm1.SetFocus
            m_khdm1.SelStart = 0
            m_khdm1.SelLength = Len(Trim(m_khdm1.Text))
            m_khdm2.SelStart = 0
            m_khdm2.SelLength = Len(Trim(m_khdm2.Text))
        Else
            m_dqh1.SetFocus
            m_dqh1.SelStart = 0
            m_dqh1.SelLength = Len(Trim(m_dqh1.Text))
        End If
    Else
        m_dqh1.SetFocus
        m_dqh1.SelStart = 0
        m_dqh1.SelLength = Len(Trim(m_dqh1.Text))
    End If
End Sub

Private Sub m_ywdw_mc1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        m_khdm1.SetFocus
        m_khdm1.SelStart = 0
        m_khdm1.SelLength = Len(Trim(m_khdm1.Text))
    End If
End Sub

Private Sub m_ywy1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        Call m_ywy1_LostFocus
    End If
End Sub

Private Sub m_ywy1_LostFocus()
    If Trim(m_ywdw_mc1.Text) = "" Then
        T_TJ = ""
    Else
        T_TJ = "TRIM(YWDW_MC)='" & UCase(Trim(m_ywdw_mc1.Text)) & "'"
    End If
    
    If Not Trim(m_khdm1.Text) = "" Then
        If T_TJ = "" Then
            T_TJ = T_TJ & "KHDM>='" & UCase(Trim(m_khdm1.Text)) & "'"
        Else
            T_TJ = T_TJ & "and KHDM>='" & UCase(Trim(m_khdm1.Text)) & "'"
        End If
    End If
    
    If Not Trim(m_khdm2.Text) = "" Then
        If T_TJ = "" Then
            T_TJ = T_TJ & "KHDM<='" & UCase(Trim(m_khdm2.Text)) & "'"
        Else
            T_TJ = T_TJ & " and KHDM<='" & UCase(Trim(m_khdm2.Text)) & "'"
        End If
    End If
    
    If Not Trim(m_dqh1.Text) = "" Then
        If T_TJ = "" Then
            T_TJ = T_TJ & "DQH='" & UCase(Trim(m_dqh1.Text)) & "'"
        Else
            T_TJ = T_TJ & " and DQH='" & UCase(Trim(m_dqh1.Text)) & "'"
        End If
    End If
    
    If Not Trim(m_ywy1.Text) = "" Then
        If T_TJ = "" Then
            T_TJ = T_TJ & "YWY='" & UCase(Trim(m_ywy1.Text)) & "'"
        Else
            T_TJ = T_TJ & " and YWY='" & UCase(Trim(m_ywy1.Text)) & "'"
        End If
    End If
    If Not T_TJ = "" Then
        Set rec = PUB_data.OpenRecordset("select  KHDM,YWDW_MC,DZ,LXR,LXDH,BZ,LOCK_NO from YX_DWQK where " & T_TJ, 4)
        If Not rec.BOF Then
            rec.MoveLast
            Call pub_memo.Flex_full(FLEX1, t_bt, rec, t_fields, 5, Array(0, 0, 0, 0, 0, 0))
        End If
        rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
    Else
        Set rec = PUB_data.OpenRecordset("select  KHDM,YWDW_MC,DZ,LXR,LXDH,BZ,LOCK_NO from YX_DWQK", 4)
        If Not rec.BOF Then
            rec.MoveLast
            Call pub_memo.Flex_full(FLEX1, t_bt, rec, t_fields, 5, Array(0, 0, 0, 0, 0, 0))
        End If
        rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
    End If
    Call atfirst
    FLEX1.SetFocus
End Sub

Private Sub Timer1_Timer()
    JZ_DQSJ2 = Time()
End Sub

Private Sub Cmd2_Click(Index As Integer)
    Select Case Index
    Case 0  '增加
        STY = "0"
        scgl_khdm.Show (1)
        If scgl_khdm.tf Then
            Set rec = PUB_data.OpenRecordset("SELECT KHDM,YWDW_MC FROM YX_DWQK ", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
            End If
            rec.AddNew
                rec!KHDM = scgl_khdm.kh_h
            rec.Update
            rec.Close
            scgl_ywdw_mx.Show (1)
            Call refresh1
            Call atfirst
            FLEX1.SetFocus
        Else
            Call refresh1
            Call atfirst
            FLEX1.SetFocus
        End If
    Case 1  '修改
        STY = "1"
        scgl_khdm.m_khdm.Text = UCase(Trim(m_khdm.Text))
        scgl_khdm.m_khdm.SelStart = 0
        scgl_khdm.m_khdm.SelLength = Len(Trim(scgl_khdm.m_khdm.Text))
        scgl_khdm.Show (1)
        If scgl_khdm.tf Then
            scgl_ywdw_mx.Show (1)
            Call refresh1
            Call atfirst
            FLEX1.SetFocus
        Else
            Call refresh1
            Call atfirst
            FLEX1.SetFocus
        End If
    Case 2  '解除
        STY = "2"
        scgl_khdm.m_khdm.Text = UCase(Trim(m_khdm.Text))
        scgl_khdm.m_khdm.SelStart = 0
        scgl_khdm.m_khdm.SelLength = Len(Trim(scgl_khdm.m_khdm.Text))
        scgl_khdm.Show (1)
        If scgl_khdm.tf Then
            response = MsgBox("确认要删除吗?", vbYesNo, "")
            If response = vbYes Then
                PUB_data.Execute "DELETE FROM YX_DWQK WHERE KHDM='" & scgl_khdm.kh_h & "'"
                YX_data.Execute "DELETE FROM YX_DWRY WHERE KHDM='" & scgl_khdm.kh_h & "'"
                YX_data.Execute "DELETE FROM YX_YWHT WHERE KHDM='" & scgl_khdm.kh_h & "'"
                YX_data.Execute "DELETE FROM YX_ZFDA WHERE KHDM='" & scgl_khdm.kh_h & "'"
                MsgBox "业务单位成功解除!", vbOKOnly
                Call refresh1
                Call atfirst
                FLEX1.SetFocus
            Else
                Call refresh1
                Call atfirst
                FLEX1.SetFocus
            End If
        Else
            Call refresh1
            Call atfirst
            FLEX1.SetFocus
        End If
    Case 3  '打印
        If T_TJ = "" Then
            Set rec = PUB_data.OpenRecordset("select  KHDM,YWDW_MC,DZ,LXR,LXDH,BZ from YX_DWQK", 4)
            If Not rec.BOF Then
                rec.MoveLast
                Call print_table(rec, "业务单位情况清单", Array("单位编号", "单位名称", "地址", "联系人", "联系电话", "备注"), Array(12, 30, 30, 15, 15, 20), 40)
            Else
                MsgBox "无可打印信息!", 64
                Exit Sub
            End If
        Else
            Set rec = PUB_data.OpenRecordset("select  KHDM,YWDW_MC,DZ,LXR,LXDH,BZ from YX_DWQK WHERE " & T_TJ & " ", 4)
            If Not rec.BOF Then
                rec.MoveLast
                Call print_table(rec, "业务单位情况清单", Array("单位编号", "单位名称", "地址", "联系人", "联系电话", "备注"), Array(12, 30, 30, 15, 15, 20), 40)
            Else
                MsgBox "无可打印信息!", 64
                Exit Sub
            End If
        End If
    Case 4  '筛选
        nam.Caption = "当前操作:筛选"
        Frame6.Enabled = True
        m_ywdw_mc1.SetFocus
        m_ywdw_mc1.SelStart = 0
        m_ywdw_mc1.SelLength = Len(Trim(m_ywdw_mc1.Text))
        
    Case 5  '查询
        STY = "5"
        scgl_khdm.Show (1)
        If scgl_khdm.tf Then
            scgl_ywdw_mx.Show (1)
            Call refresh1
            Call atfirst
            FLEX1.SetFocus
        Else
            Call refresh1
            Call atfirst
            FLEX1.SetFocus
        End If
    Case 6  '刷新
        Call atfirst
        Call refresh1
    End Select
End Sub

Private Sub atfirst()
    Cmd2(0).Enabled = True
    Cmd2(1).Enabled = True
    Cmd2(2).Enabled = True
    Cmd2(3).Enabled = True
    Cmd2(4).Enabled = True
    Cmd2(5).Enabled = True
    Cmd2(6).Enabled = True
    Cmd3.Enabled = True
    Frame2.Enabled = False
    Frame6.Enabled = False
    If FLEX1.Enabled = False Then
        FLEX1.Enabled = True
        FLEX1.SetFocus
    End If
    If scgl_ywdw.KeyPreview = False Then
        scgl_ywdw.KeyPreview = True
    End If
    STY = ""
    m_khdm.Text = ""
    nam.Caption = ""
End Sub

Private Sub refresh1()
    If frm_msg.Enabled = True Then
        frm_msg.Caption = ""
    End If
    If Not T_TJ = "" Then
        Set rec = PUB_data.OpenRecordset("select  KHDM,YWDW_MC,DZ,LXR,LXDH,BZ,LOCK_NO from YX_DWQK Where " & T_TJ, 4)
        If Not rec.BOF Then
            rec.MoveLast
            Call pub_memo.Flex_full(FLEX1, t_bt, rec, t_fields, 5, Array(0, 0, 0, 0, 0, 0))
        End If
    Else
        Set rec = PUB_data.OpenRecordset("select  KHDM,YWDW_MC,DZ,LXR,LXDH,BZ,LOCK_NO from YX_DWQK ", 4)
        If Not rec.BOF Then
            rec.MoveLast
            Call pub_memo.Flex_full(FLEX1, t_bt, rec, t_fields, 5, Array(0, 0, 0, 0, 0, 0))
        End If
    End If
    rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
End Sub