fyjgl_zyadd.frm

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

VERSION 5.00
Begin VB.Form Fyjgl_zyadd 
   Caption         =   "组员业绩管理"
   ClientHeight    =   3135
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3135
   LinkTopic       =   "Form1"
   ScaleHeight     =   3135
   ScaleWidth      =   3135
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "组员业绩"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3135
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3135
      Begin VB.Frame Frame5 
         BackColor       =   &H00FFC0C0&
         BorderStyle     =   0  'None
         Caption         =   "理赔信息"
         Height          =   2055
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   2775
         Begin VB.TextBox Tmsg 
            Appearance      =   0  'Flat
            Height          =   285
            Index           =   1
            Left            =   1080
            TabIndex        =   4
            Top             =   1080
            Width           =   1575
         End
         Begin VB.TextBox Tmsg 
            Appearance      =   0  'Flat
            Height          =   270
            Index           =   0
            Left            =   1080
            TabIndex        =   3
            Top             =   600
            Width           =   1575
         End
         Begin VB.TextBox Tmsg 
            Appearance      =   0  'Flat
            Height          =   285
            Index           =   2
            Left            =   1080
            TabIndex        =   2
            Top             =   1560
            Width           =   1575
         End
         Begin 保险秘书.OsenXPComboBox OSer 
            Height          =   315
            Left            =   1080
            TabIndex        =   5
            Top             =   120
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   556
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "业绩："
            Height          =   195
            Index           =   4
            Left            =   600
            TabIndex        =   9
            Top             =   1200
            Width           =   540
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "姓名："
            Height          =   195
            Index           =   3
            Left            =   600
            TabIndex        =   8
            Top             =   720
            Width           =   540
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "组员代码："
            Height          =   195
            Index           =   0
            Left            =   240
            TabIndex        =   7
            Top             =   240
            Width           =   900
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "应收保费："
            Height          =   195
            Index           =   11
            Left            =   240
            TabIndex        =   6
            Top             =   1680
            Width           =   900
         End
      End
      Begin 保险秘书.isButton isBOk 
         Height          =   375
         Left            =   120
         TabIndex        =   10
         Top             =   2640
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         Icon            =   "Fyjgl_zyadd.frx":0000
         Style           =   5
         Caption         =   "    确   认"
         IconAlign       =   1
         Tooltiptitle    =   ""
         ToolTipIcon     =   0
         ToolTipType     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 保险秘书.isButton isButton1 
         Height          =   375
         Left            =   1560
         TabIndex        =   11
         Top             =   2640
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         Icon            =   "Fyjgl_zyadd.frx":08DA
         Style           =   5
         Caption         =   "    取   消"
         IconAlign       =   1
         Tooltiptitle    =   ""
         ToolTipIcon     =   0
         ToolTipType     =   0
         ttForeColor     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
End
Attribute VB_Name = "Fyjgl_zyadd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Me.Width = Frame2.Width + 100
    Me.Height = Frame2.Height + 400
    
    Me.Move (Fyjgl.ScaleWidth - Me.Width) / 2, (Fyjgl.ScaleHeight - Me.Height) / 2
    Call ExplodeForm(Me, 1500)
    
    Call OSerShow
End Sub

Private Sub Form_Unload(Cancel As Integer)
     Call ImplodeForm(Me, 1500, 800, 800)
End Sub

Private Sub OSerShow()
    Dim sql As String
    Dim rs As Recordset
    Dim vdb As Boolean
    
    sql = "select 代号 from member order by 代号 asc"
    vdb = ExcSql
    If vdb = True Then
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
        With OSer
            Do While Not rs.EOF
                .AddItem rs("代号")
            rs.MoveNext
            Loop
            .ListIndex = 0
        End With
        End If
        rs.Close
        Set rs = Nothing
    End If
End Sub

Private Sub isBOk_Click()
    Dim vid, sql As String
    Dim vdb As Boolean
    Dim vnum As Integer
    
    vid = Trim$(OSer.Text)
    If vid = "" Then
        MsgBox "请填写正确的组员代码！"
        Exit Sub
    End If
    
    vdb = ExcSql
    If vdb = True Then
        
        sql = "insert into group_fee(zid,name,zfee,bfee) values('" & OSer.Text & "','" & Tmsg(0).Text & "','" & Tmsg(1).Text & "','" & Tmsg(2).Text & "')"
        
        Call exsql(sql)
    End If
    
    Fyjgl.Timer1.Enabled = True
    Unload Me
End Sub

Private Sub isButton1_Click()
     Unload Me
End Sub

Private Sub OSer_Change()
    Dim sql As String
    Dim rs As Recordset
    Dim vdb As Boolean
    
    Tmsg(0).Text = ""
   
    sql = "select 姓名 from member  where 代号='" & OSer.Text & "'"
    vdb = ExcSql
    If vdb = True Then
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            Tmsg(0).Text = rs("姓名") & ""
        End If
        rs.Close
        Set rs = Nothing
    End If
End Sub