qxfp.frm

关于图书销售管理

            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         TabIndex        =   2
         Top             =   1920
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "查看客户信息"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         TabIndex        =   1
         Top             =   1440
         Width           =   1455
      End
   End
End
Attribute VB_Name = "qxfp1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public tg As Boolean

Private Sub Command1_Click()
    'Data1.Recordset.Edit
    'czrygl.Data1.Recordset.FindFirst "zybh = " & "'" & czrygl.Data1.Recordset("zybh") & "'"
   ' If NoMatch Then
       'If tg = False Then
           'If qxfp1.Data1.Recordset.BOF = False Then
            '    qxfp1.Data1.Recordset.MoveLast
           'End If
   
          'qxfp1.Data1.Recordset.AddNew
          'qxfp1.Data1.Recordset("zybh") = "ext"
    'czrygl.Data1.Recordset.FindFirst "mm = " & "'" & strfind & "'"
        ' Else
    qxfp1.Data1.Recordset.Edit
    ' End If
    'End If
    
    
    If Check1.Value = 1 Then
         qxfp1.Data1.Recordset("ckspxx") = "1"

         Else
         qxfp1.Data1.Recordset("ckspxx") = "0"
    End If
    If Check2.Value = 1 Then
         qxfp1.Data1.Recordset("ckkhxx") = "1"
        Else
         qxfp1.Data1.Recordset("ckkhxx") = "0"
    End If
    If Check12.Value = 1 Then
         qxfp1.Data1.Recordset("ckzyxx") = "1"
        Else
         qxfp1.Data1.Recordset("ckzyxx") = "0"
    End If
     If Check11.Value = 1 Then
         qxfp1.Data1.Recordset("spzjrk") = "1"
        Else
         qxfp1.Data1.Recordset("spzjrk") = "0"
    End If
    If Check10.Value = 1 Then
         qxfp1.Data1.Recordset("spdd") = "1"
        Else
         qxfp1.Data1.Recordset("spdd") = "0"
    End If
    If Check9.Value = 1 Then
         qxfp1.Data1.Recordset("dhdcl") = "1"
        Else
         qxfp1.Data1.Recordset("dhdcl") = "0"
    End If
    If Check8.Value = 1 Then
         qxfp1.Data1.Recordset("ddcx") = "1"
        Else
         qxfp1.Data1.Recordset("ddcx") = "0"
    End If
    If Check7.Value = 1 Then
         qxfp1.Data1.Recordset("xhdd") = "1"
        Else
         qxfp1.Data1.Recordset("xhdd") = "0"
    End If
    If Check20.Value = 1 Then
         qxfp1.Data1.Recordset("rl") = "1"
        Else
         qxfp1.Data1.Recordset("rl") = "0"
    End If
     If Check6.Value = 1 Then
         qxfp1.Data1.Recordset("xsddcl") = "1"
        Else
         qxfp1.Data1.Recordset("xsddcl") = "0"
    End If
    If Check5.Value = 1 Then
         qxfp1.Data1.Recordset("xhdcx") = "1"
        Else
         qxfp1.Data1.Recordset("xhdcx") = "0"
    End If
   If Check4.Value = 1 Then
         qxfp1.Data1.Recordset("kccx") = "1"
        Else
         qxfp1.Data1.Recordset("kccx") = "0"
    End If
    If Check3.Value = 1 Then
         qxfp1.Data1.Recordset("xhth") = "1"
        Else
         qxfp1.Data1.Recordset("xhth") = "0"
    End If
    If Check30.Value = 1 Then
         qxfp1.Data1.Recordset("dhth") = "1"
        Else
         qxfp1.Data1.Recordset("dhth") = "0"
    End If
    If Check29.Value = 1 Then
         qxfp1.Data1.Recordset("kcpd") = "1"
        Else
         qxfp1.Data1.Recordset("kcpd") = "0"
    End If
    If Check28.Value = 1 Then
         qxfp1.Data1.Recordset("sptj") = "1"
        Else
         qxfp1.Data1.Recordset("sptj") = "0"
    End If
    If Check27.Value = 1 Then
         qxfp1.Data1.Recordset("spzjck") = "1"
        Else
         qxfp1.Data1.Recordset("spzjck") = "0"
    End If
    If Check19.Value = 1 Then
         qxfp1.Data1.Recordset("jsq") = "1"
        Else
         qxfp1.Data1.Recordset("jsq") = "0"
    End If
       If Check25.Value = 1 Then
         qxfp1.Data1.Recordset("bbzx") = "1"
        Else
         qxfp1.Data1.Recordset("bbzx") = "0"
    End If
    If Check24.Value = 1 Then
         qxfp1.Data1.Recordset("zhfx") = "1"
        Else
         qxfp1.Data1.Recordset("zhfx") = "0"
    End If
    If Check23.Value = 1 Then
         qxfp1.Data1.Recordset("czrygl1") = "1"
        Else
         qxfp1.Data1.Recordset("czrygl1") = "0"
    End If
    If Check22.Value = 1 Then
         qxfp1.Data1.Recordset("sjbf") = "1"
        Else
         qxfp1.Data1.Recordset("sjbf") = "0"
    End If
    If Check13.Value = 1 Then
         qxfp1.Data1.Recordset("sjhf") = "1"
        Else
         qxfp1.Data1.Recordset("sjhf") = "0"
    End If
    If Check14.Value = 1 Then
         qxfp1.Data1.Recordset("yszk") = "1"
        Else
         qxfp1.Data1.Recordset("yszk") = "0"
    End If
        If Check15.Value = 1 Then
         qxfp1.Data1.Recordset("yfzk") = "1"
        Else
         qxfp1.Data1.Recordset("yfzk") = "0"
    End If
    If Check16.Value = 1 Then
         qxfp1.Data1.Recordset("qt") = "1"
        Else
         qxfp1.Data1.Recordset("qt") = "0"
    End If
    If Check17.Value = 1 Then
         qxfp1.Data1.Recordset("kcbj1") = "1"
        Else
         qxfp1.Data1.Recordset("kcbj1") = "0"
    End If

    Data1.Recordset.Update
    'End If
    czrygl.Data1.Refresh
    'tg = True
    Unload Me
    czrygl.Show
End Sub

Private Sub Command2_Click()
Unload Me
czrygl.Show

End Sub

Private Sub Command3_Click()
Debug.Print czrytj.Combo1.Text
'qxfp1.Data1.Recordset("ckspxx")
End Sub

Private Sub Form_Activate()
     'qxfp1.Data1.Recordset.FindFirst "zybh = " & "'" & czrytj.Data1.Recordset("zybh") & "'"

    'If qxfp1.Data1.Recordset.NoMatch Then
    '     Exit Sub
    'Else
     '  tg = True
       If qxfp1.Data1.Recordset("ckspxx") = "1" Then
         
                   Check1.Value = 1
          Else
             Check1.Value = 0
       End If
       If qxfp1.Data1.Recordset("ckkhxx") = "1" Then
             Check2.Value = 1
           Else
              Check2.Value = 0
       End If
       If qxfp1.Data1.Recordset("ckzyxx") = "1" Then
               Check12.Value = 1
          Else
              Check12.Value = 0
       End If
        If qxfp1.Data1.Recordset("spzjrk") = "1" Then
             Check11.Value = 1
        Else
            Check11.Value = 0
    End If
    If qxfp1.Data1.Recordset("spdd") = "1" Then
           Check10.Value = 1
        Else
         Check10.Value = 0
    End If
    If qxfp1.Data1.Recordset("dhdcl") = "1" Then
          Check9.Value = 1
        Else
         Check9.Value = 0
    End If
    If qxfp1.Data1.Recordset("ddcx") = "1" Then
          Check8.Value = 1
        Else
          Check8.Value = 0
    End If
    If qxfp1.Data1.Recordset("xhdd") = "1" Then
            Check7.Value = 1
        Else
          Check7.Value = 0
    End If     'If tg = False Then
    If qxfp1.Data1.Recordset("rl") = "1" Then
            Check20.Value = 1
        Else
         Check20.Value = 0
    End If
     If qxfp1.Data1.Recordset("xsddcl") = "1" Then
            Check6.Value = 1
        Else
            Check6.Value = 0
    End If
    If qxfp1.Data1.Recordset("xhdcx") = "1" Then
            Check5.Value = 1
        Else
         Check5.Value = 0
    End If
   If qxfp1.Data1.Recordset("kccx") = "1" Then
            Check4.Value = 1
        Else
            Check4.Value = 0

    End If
    If qxfp1.Data1.Recordset("xhth") = "1" Then
           Check3.Value = 1
        Else
         Check3.Value = 0
    End If
    If qxfp1.Data1.Recordset("dhth") = "1" Then
          Check30.Value = 1
        Else
         Check30.Value = 0
    End If
    If qxfp1.Data1.Recordset("kcpd") = "1" Then
            Check29.Value = 1
        Else
         Check29.Value = 0
    End If
    If qxfp1.Data1.Recordset("sptj") = "1" Then
          Check28.Value = 1
        Else
         Check28.Value = 0
    End If
    If qxfp1.Data1.Recordset("jsq") = "1" Then
           Check19.Value = 1
        Else
        Check19.Value = 0
    End If
    If qxfp1.Data1.Recordset("spzjck") = "1" Then
           Check27.Value = 1
        Else
         Check27.Value = 0
    End If
    
    If qxfp1.Data1.Recordset("bbzx") = "1" Then
         Check25.Value = 1
        Else
         Check25.Value = 0
    End If
    If qxfp1.Data1.Recordset("zhfx") = "1" Then
         Check24.Value = 1
        Else
        Check24.Value = 1
    End If
    If qxfp1.Data1.Recordset("czrygl1") = "1" Then
         Check23.Value = 1
        Else
         Check23.Value = 0
    End If
    If qxfp1.Data1.Recordset("sjbf") = "1" Then
         Check22.Value = 1
        Else
         Check22.Value = 0
    End If
    If qxfp1.Data1.Recordset("sjhf") = "1" Then
        Check13.Value = 1
        Else
         Check13.Value = 0
    End If
    If qxfp1.Data1.Recordset("xtcsh") = "1" Then
        Check21.Value = 1
        Else
         Check21.Value = 0
    End If
       If qxfp1.Data1.Recordset("yszk") = "1" Then
        Check14.Value = 1
        Else
         Check14.Value = 0
    End If
    If qxfp1.Data1.Recordset("yfzk") = "1" Then
        Check15.Value = 1
        Else
         Check15.Value = 0
    End If
    If qxfp1.Data1.Recordset("qt") = "1" Then
        Check16.Value = 1
        Else
         Check16.Value = 0
    End If
    If qxfp1.Data1.Recordset("kcbj1") = "1" Then
        Check17.Value = 1
        Else
         Check17.Value = 0
    End If

   'End If
End Sub

Private Sub Form_Load()
 'czrygl.Data1.Recordset.FindFirst "zybh = " & "'" & bh & "'"
 
     Data1.DatabaseName = App.Path & "\db1.mdb"
     Data1.RecordSource = "select * from qxfp"
    ' If czrytj.Combo1.Text = "" Then
                'qxfp1.Text1.Text = "     编号:  " & czrygl.Data1.Recordset("zybh") & "  姓名:  " & czrygl.Data1.Recordset("xm")
     '    Else
                'qxfp1.Text1.Text = czrytj.Data2.Recordset("zybh")
                
    'End If
End Sub