📄 fzyglnew.frm

📁 为个人用户开发的车险秘书系统
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
End
Attribute VB_Name = "fZyglnew"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub addmenu_Click()
    Call isButton3_Click
End Sub

Private Sub Cbo_KeyPress(KeyAscii As Integer)
    Call Tinsert_KeyPress(13)
End Sub

Private Sub changemenu_Click()
    Call MSFzy_DblClick
End Sub

Private Sub delmenu_Click()
        Call MSFzyDelMsg(MSFzy.TextMatrix(MSFzy.Row, 0))
        Call sqlsel
End Sub

Private Sub Form_Load()
    Dim c As cTab
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    
    With vTab
      Set c = .Tabs.Add("SOLUTION", , "组员资料")
      c.IconIndex = 0
      c.Panel = Pickl
      'Set c = .Tabs.Add("CLASS", , "业绩统计分析图")
     ' c.IconIndex = 1
      'c.Panel = ismsg
   End With
    vTab.ShowCloseButton = False
    
    Call showTital
    
    Call sqlsel
End Sub

Private Sub showTital()
    InitSingleCol fZyglnew.MSFzy, "序号", 0, 0, 0
    InitSingleCol fZyglnew.MSFzy, "组员代码", 1, 0, 1000
    InitSingleCol fZyglnew.MSFzy, "姓名", 2, 0, 1840
    InitSingleCol fZyglnew.MSFzy, "性别", 3, 0, 800
    InitSingleCol fZyglnew.MSFzy, "年龄", 4, 0, 800
    InitSingleCol fZyglnew.MSFzy, "生日", 5, 0, 1200
    InitSingleCol fZyglnew.MSFzy, "籍贯", 6, 0, 1000
    InitSingleCol fZyglnew.MSFzy, "手机号码", 7, 0, 1880
    InitSingleCol fZyglnew.MSFzy, "小灵通或电话", 8, 0, 2280
    InitSingleCol fZyglnew.MSFzy, "入司前职业", 9, 0, 1200
    InitSingleCol fZyglnew.MSFzy, "入司时间", 10, 0, 1200
    InitSingleCol fZyglnew.MSFzy, "特长", 11, 0, 2500
    InitSingleCol fZyglnew.MSFzy, "住址", 12, 0, 7832
    InitSingleCol fZyglnew.MSFzy, "备注", 13, 0, 7832
    InitSingleCol fZyglnew.MSFzy, "学历", 14, 0, 1500
    InitSingleCol fZyglnew.MSFzy, "专业", 15, 0, 2540
    InitSingleCol fZyglnew.MSFzy, "业绩", 16, 0, 1000
    InitSingleCol fZyglnew.MSFzy, "EMAIL", 17, 0, 2500
    MSFzy.Rows = 1
End Sub

Private Sub Form_Resize()
    Me.Width = Fmain.Width
    Me.Height = Fmain.Height
    Me.Left = 0
    Me.Top = Fmain.Top
    vTab.Height = Me.ScaleHeight - Frame1.Height

    Pickl.Width = Me.Width
    Frame1.Width = Me.Width
    MSFzy.Width = Pickl.Width
    MSFzy.Height = Pickl.Height
End Sub

Private Sub isButton10_Click()
    Call sqlsel
End Sub

Private Sub isButton12_Click()
    Unload Me
End Sub

Private Sub sqlsel()
    Dim sql As String
    Dim vdb As Boolean
    Dim rs As Recordset
    Dim vstring As String
    
    MSFzy.Clear
    Call showTital
    sql = "select * from member order by 入司时间 desc"
    vdb = ExcSql
    If vdb = True Then
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            Do While Not rs.EOF
            
                vstring = rs("代号") & "◆◆" & rs("代号") & "◆◆" & rs("姓名") & "◆◆" & rs("性别") & "◆◆" & rs("年龄") & "◆◆" _
                & rs("生日") & "◆◆" & rs("籍贯") & "◆◆" & rs("手机号码") & "◆◆" & rs("stel") & "◆◆" & rs("入司前职业") & "◆◆" _
                & rs("入司时间") & "◆◆" & rs("特长") & "◆◆" & rs("住址") & "◆◆" & rs("备注") & "◆◆" & rs("学历") & "◆◆" & rs("专业") & "◆◆" & rs("业绩") & "◆◆" & rs("EMAIL") & "◆◆"

                Call AddRowInFlex(fZyglnew.MSFzy, vstring)
            rs.MoveNext
            Loop
        End If
        rs.Close
        Set rs = Nothing
    End If
    Timer1.Enabled = False
    Call Form_Resize
End Sub

Private Sub isButton3_Click()
    Load FzyglAdd
    FzyglAdd.SetFocus
    FzyglAdd.Show
    
End Sub

Private Sub isButton4_Click()
    Call MSFzyDelMsg(MSFzy.TextMatrix(MSFzy.Row, 0))
    Call sqlsel
    Call Form_Resize
End Sub

Private Sub isButton8_Click()
    Dim sql, vstring As String
    Dim rs As Recordset
    Dim vdb As Boolean
    
    MSFzy.Clear
    Call showTital
    sql = "select * from member where 姓名='" & Trim$(Tsel.Text) & "'"
    vdb = ExcSql
    If vdb = True Then
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            End If
            
            sql = "select * from member where 手机号码='" & Trim$(Tsel.Text) & "'"
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            Else
                MsgBox "您搜寻的信息不存在！"
                Call sqlsel
            End If
            
        End If
        Exit Sub
showmsg:
            Do While Not rs.EOF
                vstring = rs("代号") & "◆◆" & rs("代号") & "◆◆" & rs("姓名") & "◆◆" & rs("性别") & "◆◆" & rs("年龄") & "◆◆" _
                & rs("生日") & "◆◆" & rs("籍贯") & "◆◆" & rs("手机号码") & "◆◆" & rs("stel") & "◆◆" & rs("入司前职业") & "◆◆" _
                & rs("入司时间") & "◆◆" & rs("特长") & "◆◆" & rs("住址") & "◆◆" & rs("备注") & "◆◆" & rs("学历") & "◆◆" & rs("专业") & "◆◆" & rs("业绩") & "◆◆" & rs("EMAIL") & "◆◆"

                Call AddRowInFlex(fZyglnew.MSFzy, vstring)
            rs.MoveNext
            Loop
            rs.Close
            Set rs = Nothing
            Call Form_Resize
End Sub

Private Sub MSFzy_DblClick()
    If MSFzy.Col = 3 Then
        Call showCombox(fZyglnew.Cbo, 1)
        Call MSFDblClicksel(fZyglnew.MSFzy, fZyglnew.Cbo)
    Else
        Call MSFDblClick(fZyglnew.MSFzy, fZyglnew.Tinsert)
    End If
    TS.Text = MSFzy.TextMatrix(MSFzy.Row, MSFzy.Col)
    Ts1.Text = MSFzy.Row
    Ts2.Text = MSFzy.Col
End Sub

Private Sub MSFzy_KeyPress(KeyAscii As Integer)
    If MSFzy.Col = 3 Then
        Call MSFKeyPresssel(KeyAscii, fZyglnew.MSFzy, fZyglnew.Cbo)
    Else
        Call MSFKeyPress(KeyAscii, fZyglnew.MSFzy, fZyglnew.Tinsert)
    End If
End Sub


Private Sub MSFzy_LeaveCell()
    Call MSFLeaveCell(fZyglnew.MSFzy)
End Sub

Private Sub MSFzy_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        PopupMenu pu1
    Else
        If ((Cbo.Visible = True) Or (Tinsert.Visible = True)) Then
            
            MSFzy.Row = Ts1.Text
            MSFzy.Col = Ts2.Text
            'MsgBox TS.Text & "<>" & Trim$(Tinsert.Text)
            'Select Case Ts2.Text
            'Case 3
            '    If Trim$(Cbo.Text) <> TS.Text Then
            '        Call Tinsert_KeyPress(13)
            '    End If
            'Case Else
               'MsgBox TS.Text & "<>" & Trim$(Tinsert.Text)
                'If Trim$(Tinsert.Text) <> TS.Text Then
                '    Call Tinsert_KeyPress(13)
                'End If
            'End Select
            
            Call MSFMouseDown(fZyglnew.Tinsert)
            Call MSFMouseDownSel(fZyglnew.Cbo)
            
           
        End If
    End If
End Sub

Private Sub MSFzy_RowColChange()
    If MSFzy.Col = 3 Then
        Call MSFRowColChangeSel(fZyglnew.MSFzy, fZyglnew.Cbo)
    Else
        Call MSFRowColChange(fZyglnew.MSFzy, fZyglnew.Tinsert)
    End If
End Sub

Private Sub Timer1_Timer()
    Call sqlsel
    'Call Form_Resize
End Sub

Private Sub Tinsert_KeyPress(KeyAscii As Integer)
     '文本框起输入编辑框的作用，模拟网格单元，输入到文本框的内容，经过处理送到网格中，
    '当输入完后按回车键可以自动到下一列，若为最后一列，跳转到下一行的第一列等待输入。
    Dim sql, vmsg As String
    Dim Tablef As String
    
    On err GoTo vnextgo:
    
    If KeyAscii = 13 Then
            Select Case MSFzy.Col
            Case 1
                Tablef = "代号"
                vmsg = Tinsert.Text
            Case 2
                Tablef = "姓名"
                vmsg = Tinsert.Text
            Case 3
                Tablef = "性别"
                vmsg = Cbo.Text
            Case 4
                Tablef = "年龄"
                vmsg = Tinsert.Text
            Case 5
                Tablef = "生日"
                vmsg = Tinsert.Text
            Case 6
                Tablef = "籍贯"
                vmsg = Tinsert.Text
            Case 7
                Tablef = "手机号码"
                vmsg = Tinsert.Text
            Case 8
                Tablef = "stel"
                vmsg = Tinsert.Text
            Case 9
                Tablef = "入司前职业"
                vmsg = Tinsert.Text
            Case 10
                Tablef = "入司时间"
                vmsg = Tinsert.Text
            Case 11
                Tablef = "特长"
                vmsg = Tinsert.Text
            Case 12
                Tablef = "住址"
                vmsg = Tinsert.Text
            Case 13
                Tablef = "备注"
                vmsg = Tinsert.Text
            Case 14
                Tablef = "学历"
                vmsg = Tinsert.Text
            Case 15
                Tablef = "专业"
                vmsg = Tinsert.Text
            Case 16
                Tablef = "业绩"
                vmsg = Tinsert.Text
            Case 17
                Tablef = "EMAIL"
                vmsg = Tinsert.Text
            Case Else
                MsgBox "非法的操作方法，请查看帮助系统！"
                Exit Sub
            End Select
            
            If MsgBox("你确定将" & MSFzy.Text & "修改为：<< " & vmsg & " >> 么？", vbYesNo, "确认提示") = vbYes Then
                    sql = "update member set " & Tablef & "='" & vmsg & "' where 代号='" & MSFzy.TextMatrix(MSFzy.Row, 0) & "'"
                    'MsgBox sql
                    Call ExcSqlCZ(sql)
            Else
                    GoTo vnextgo
            End If
            
            If MSFzy.Col = 3 Then
                MSFzy.Text = Cbo.Text
            Else
                MSFzy.Text = Tinsert.Text
            End If
vnextgo:
            Tinsert.Visible = False
            MSFzy.SetFocus
            If MSFzy.Col < (MSFzy.Cols - 1) Then
                 MSFzy.Col = MSFzy.Col + 1
            ElseIf MSFzy.Row < MSFzy.Rows - 1 Then
                 MSFzy.Row = MSFzy.Row + 1
                 MSFzy.Col = 0
            End If
            KeyAscii = 0
         End If
End Sub

Private Sub MSFzyDelMsg(keyCheck As String)
        Dim sql As String
        If MsgBox("你确定将" & MSFzy.TextMatrix(MSFzy.Row, 2) & "的所有信息都删除么？", vbYesNo, "确认提示") = vbYes Then
                    sql = "delete from member where 代号='" & MSFzy.TextMatrix(MSFzy.Row, 0) & "'"
                    Call ExcSqlCZ(sql)
                    Call sqlsel
        End If
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -