fsys.frm

为个人用户开发的车险秘书系统

        Tupws.PasswordChar = "*"
        
    End Select
End Sub

Private Sub isButton4_Click()
    Dim sql As String
    
    Select Case Osel.Text
    Case "用户管理"
       Call sqldel("pass", "用户 = '" & lvuser.SelectedItem.Text & "'")
       Call sqlshow("用户管理")
       Exit Sub
    Case "承保公司设置"
        Call sqldel("sys", "类别='承保公司名称' and 属性='" & lvuser.SelectedItem.Text & "'")
        Call sqlshow("承保公司名称")
        Call Fresize
       Exit Sub
    Case "车辆颜色设置"
        Call sqldel("sys", "类别='车辆颜色' and 属性='" & lvuser.SelectedItem.Text & "'")
        Call sqlshow("车辆颜色")
        Call Fresize
       Exit Sub
    Case "车辆使用性质设置"
       Call sqldel("sys", "类别='车辆使用性质' and 属性='" & lvuser.SelectedItem.Text & "'")
        Call sqlshow("车辆使用性质")
        Call Fresize
       Exit Sub
    Case "业务量设置"
       Call sqldel("allto", "syear='" & Lv1.SelectedItem.Text & "'")
       Call sqlshow("业务量设置")
       Call Fresize
       Exit Sub
    Case "险种设置"
       Call sqldel("sys", "类别='险种' and 属性='" & lvuser.SelectedItem.Text & "'")
       Call Fresize
       Exit Sub
    Case "邮件服务设置"
    Case "个人佣金密码设置"
       Call sqldel("moneyuser", "name= '" & lvuser.SelectedItem.Text & "'")
       Call sqlshow("个人佣金密码设置")
       Exit Sub
    End Select
End Sub

Private Sub isButton5_Click()
    Select Case Osel.Text
    Case "用户管理"
       Call sqlinsert("用户管理")
       Call sqlshow("用户管理")
       Call Fresize
       Exit Sub
    Case "承保公司设置"
        Call sqlinsert("承保公司名称")
        Call sqlshow("承保公司名称")
        Call Fresize
       Exit Sub
    Case "车辆颜色设置"
        Call sqlinsert("车辆颜色")
        Call sqlshow("车辆颜色")
        Call Fresize
       Exit Sub
    Case "车辆使用性质设置"
        Call sqlinsert("车辆使用性质")
        Call sqlshow("车辆使用性质")
        Call Fresize
       Exit Sub
    Case "业务量设置"
       Call sqlinsert("业务量设置")
       Call sqlshow("业务量设置")
       Call Fresize
       Exit Sub
    Case "险种设置"
        Call sqlinsert("险种")
        Call sqlshow("险种")
        Call Fresize
       Exit Sub
    Case "邮件服务设置"
    Case "个人佣金密码设置"
        Call sqlinsert("个人佣金密码设置")
        Call sqlshow("个人佣金密码设置")
        Call Fresize
    End Select
End Sub

Private Sub isButton6_Click()
    Call Fresize
    
    Call sqlshow("用户管理")
    Call sqlshow("业务量设置")
End Sub

Private Sub Osel_Change()
    Select Case Osel.Text
    Case "用户管理"
        Call Fresize
        Frame1.Caption = "用户管理"
        Frame1.Enabled = True
        Frame2.Enabled = False
        Fmail.Enabled = False
        lvuser.ColumnHeaders.Clear
        lvuser.ListItems.Clear
        lvuser.ColumnHeaders.Add , , "用户名"
        lvuser.ColumnHeaders.Add , , "密码"
        Call sqlshow("用户管理")
        
    Case "承保公司设置"
        Call Fresize
        Frame1.Caption = "承保公司设置"
        Frame1.Enabled = True
        Frame2.Enabled = False
        Fmail.Enabled = False
        Call showcol("承保公司名称")
        Call sqlshow("承保公司名称")
    Case "车辆颜色设置"
        Call Fresize
        Frame1.Caption = "车辆颜色设置"
        Frame1.Enabled = True
        Frame2.Enabled = False
        Fmail.Enabled = False
        Call showcol("车辆颜色")
        Call sqlshow("车辆颜色")
    Case "车辆使用性质设置"
        Call Fresize
        Frame1.Caption = "车辆使用性质设置"
        Frame1.Enabled = True
        Frame2.Enabled = False
        Fmail.Enabled = False
        Call showcol("车辆使用性质")
        Call sqlshow("车辆使用性质")
    Case "业务量设置"
        Call Fresize
        Frame1.Enabled = False
        Fmail.Enabled = False
        Frame2.Enabled = True
         Call sqlshow("业务量设置")
    Case "险种设置"
        Call Fresize
        Frame1.Caption = "险种设置"
        Frame1.Enabled = True
        Frame2.Enabled = False
        Fmail.Enabled = False
        Call showcol("险种名称")
        Call sqlshow("险种名称")
    Case "邮件服务设置"
        Call Fresize
        Frame1.Enabled = False
        Frame2.Enabled = False
        Fmail.Enabled = True
    Case "个人佣金密码设置"
        Call Fresize
        Frame1.Caption = "个人佣金密码设置"
        Frame1.Enabled = True
        Frame2.Enabled = False
        Fmail.Enabled = False
        lvuser.ColumnHeaders.Clear
        lvuser.ListItems.Clear
        lvuser.ColumnHeaders.Add , , "用户名"
        lvuser.ColumnHeaders.Add , , "密码"
        Call sqlshow("个人佣金密码设置")
    
    End Select
End Sub

Private Sub showcol(ByVal Msg As String)
        lvuser.ColumnHeaders.Clear
        lvuser.ListItems.Clear
        lvuser.ColumnHeaders.Add , , Msg
        lvuser.ColumnHeaders.Add , , "说明"
        Lpws.Caption = "说明："
        Tupws.PasswordChar = ""
        Tupws.Text = ""
End Sub

Private Sub sqlshow(ByVal Msg As String)
    Dim sql As String, i As Integer
    Dim rs As ADODB.Recordset
    Dim mRow As ListItem
    Dim vyear As String, vdb As Boolean
    
    If Msg = "业务量设置" Then
       ' sql = "select syear,smonth,num from allto "
         sql = "select syear,num from allto "
        vdb = ExcSql
        If vdb = True Then
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
                Lv1.ListItems.Clear
                i = 0
                Do While Not rs.EOF
                vyear = StripNulls(rs("syear"))
                Set mRow = Lv1.ListItems.Add(, , vyear)
               ' mRow.SubItems(1) = rs("smonth")
                mRow.SubItems(1) = vyear
                mRow.SubItems(2) = rs("num")
                i = i + 1
                rs.MoveNext
                Loop
            End If
        End If
    End If
    
    If Msg = "邮件服务设置" Then
        '操作INI文件
    End If
    
    If Msg = "个人佣金密码设置" Then
        sql = "select name,pws from moneyuser"
        vdb = ExcSql
        If vdb = True Then
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
                i = 0
                lvuser.ListItems.Clear
                Do While Not rs.EOF
                Set mRow = lvuser.ListItems.Add(, , rs("name"))
                mRow.SubItems(1) = rs("pws")
                i = i + 1
                rs.MoveNext
                Loop
            End If
            rs.Close
            Set rs = Nothing
        End If
    End If
    
    If Msg = "用户管理" Then
        sql = "select 用户,密码 from pass"
        vdb = ExcSql
        If vdb = True Then
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
                i = 0
                lvuser.ListItems.Clear
                Do While Not rs.EOF
                Set mRow = lvuser.ListItems.Add(, , rs("用户"))
                mRow.SubItems(1) = rs("密码")
                i = i + 1
                rs.MoveNext
                Loop
            End If
            rs.Close
            Set rs = Nothing
        End If
    Else
        sql = "select 属性,说明 from sys where 类别='" & Msg & "'"
        vdb = ExcSql
        If vdb = True Then
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
                lvuser.ListItems.Clear
                Do While Not rs.EOF
                    Set mRow = lvuser.ListItems.Add(, , CStr(rs("属性")))
                    If Trim$(rs("说明")) = "" Then
                    Else
                        mRow.SubItems(1) = CStr(rs("说明"))
                    End If
                    rs.MoveNext
                Loop
            End If
        End If
        rs.Close
        Set rs = Nothing
    End If
    
End Sub

Private Sub sqlinsert(ByVal Msg As String)
    Dim sql As String, vnumcou As Integer
    Dim mRow As ListItem, vdb As Boolean
    Dim vyear, vmonth, ved As String
    
    
    If Msg = "业务量设置" Then
       vyear = Oyear.Text
       vmonth = Omonth.Text
       ved = Ted.Text
       If ved = "" Then
            Exit Sub
       End If
       'sql = "insert into allto(syear,smonth,num) values('" & vyear & "','" & vmonth & "'," & ved & ")"
       sql = "insert into allto(syear,num) values('" & vyear & "'," & ved & ")"
       vdb = ExcSql
       If vdb = True Then
        conn.Execute (sql)
       End If
       Exit Sub
    End If
    
    If Msg = "邮件服务设置" Then
        '操作INI文件
    End If
    
    If Msg = "个人佣金密码设置" Then
           vmonth = Tuname.Text
           ved = Tupws.Text
           If Tupws = "" Or Tuname = "" Then
                Exit Sub
           Else
              sql = "select count(*) from moneyuser"
              vnumcou = conn.Execute(sql)(0)
              If vnumcou >= 1 Then
                MsgBox "该项只能设置一个用户！"
                Exit Sub
              End If
           End If
           sql = "insert into moneyuser(name,pws) values('" & vmonth & "','" & ved & "')"
           'MsgBox sql
           vdb = ExcSql
           If vdb = True Then
            conn.Execute (sql)
           End If
           Exit Sub
    End If
    
    If Msg = "用户管理" Then
           vmonth = Tuname.Text
           ved = Tupws.Text
           If Tupws = "" Or Tuname = "" Then
                Exit Sub
           Else
              sql = "select count(*) from pass where 用户= '" & Tuname & "'"
              vnumcou = conn.Execute(sql)(0)
              If vnumcou > 0 Then
                MsgBox "用户同名！"
                Exit Sub
              End If
           End If
           sql = "insert into pass(用户,密码) values('" & vmonth & "','" & ved & "')"
           'MsgBox sql
           vdb = ExcSql
           If vdb = True Then
            conn.Execute (sql)
           End If
           Exit Sub
    Else
           vyear = Msg
           vmonth = Tuname.Text
           ved = Tupws.Text
           If Tuname = "" Then
                Exit Sub
           End If
           sql = "insert into sys(类别,属性,说明) values('" & vyear & "','" & vmonth & "','" & ved & "')"
           vdb = ExcSql
           If vdb = True Then
            conn.Execute (sql)
           End If
           Exit Sub
    End If
    
End Sub

Private Sub sqldel(ByVal tbname As String, ByVal zdfr As String)
    Dim sql As String, vdb As Boolean
    
    sql = "delete from " & tbname & " where " & zdfr
    vdb = ExcSql
    If vdb = True Then
        conn.Execute (sql)
    End If
End Sub