vb82.tmp

一个关于进销存的源代码

            TabIndex        =   18
            Text            =   "Text14"
            Top             =   200
            Width           =   1335
         End
      End
      Begin VB.Frame Frame4 
         BackColor       =   &H00FF8080&
         Caption         =   "正房"
         Height          =   1695
         Left            =   120
         TabIndex        =   12
         Top             =   200
         Width           =   2655
         Begin ACTIVESKINLibCtl.SkinLabel SkinLabel13 
            Height          =   255
            Left            =   240
            OleObjectBlob   =   "info22frm.frx":0C3B
            TabIndex        =   85
            Top             =   1320
            Width           =   615
         End
         Begin ACTIVESKINLibCtl.SkinLabel SkinLabel12 
            Height          =   255
            Left            =   240
            OleObjectBlob   =   "info22frm.frx":0C9B
            TabIndex        =   84
            Top             =   960
            Width           =   615
         End
         Begin ACTIVESKINLibCtl.SkinLabel SkinLabel11 
            Height          =   255
            Left            =   240
            OleObjectBlob   =   "info22frm.frx":0CFD
            TabIndex        =   83
            Top             =   600
            Width           =   735
         End
         Begin ACTIVESKINLibCtl.SkinLabel SkinLabel10 
            Height          =   255
            Left            =   240
            OleObjectBlob   =   "info22frm.frx":0D5F
            TabIndex        =   82
            Top             =   240
            Width           =   735
         End
         Begin VB.TextBox Text13 
            Height          =   270
            Left            =   1080
            TabIndex        =   17
            Text            =   "Text13"
            Top             =   1350
            Width           =   1335
         End
         Begin VB.TextBox Text12 
            Height          =   270
            Left            =   1080
            TabIndex        =   16
            Text            =   "Text12"
            Top             =   980
            Width           =   1335
         End
         Begin VB.TextBox Text11 
            Height          =   270
            Left            =   1080
            TabIndex        =   15
            Text            =   "Text11"
            Top             =   610
            Width           =   1335
         End
         Begin VB.TextBox Text10 
            Height          =   270
            Left            =   1080
            TabIndex        =   14
            Text            =   "Text10"
            Top             =   240
            Width           =   1335
         End
      End
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00FF8080&
      Caption         =   "人口信息"
      Height          =   2535
      Left            =   240
      TabIndex        =   1
      Top             =   2040
      Width           =   2775
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel9 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":0DC1
         TabIndex        =   81
         Top             =   2100
         Width           =   855
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel8 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":0E27
         TabIndex        =   80
         Top             =   1635
         Width           =   735
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel7 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":0E8D
         TabIndex        =   79
         Top             =   1170
         Width           =   855
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel6 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":0EF1
         TabIndex        =   78
         Top             =   705
         Width           =   855
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel5 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":0F57
         TabIndex        =   77
         Top             =   240
         Width           =   615
      End
      Begin VB.TextBox Text9 
         Height          =   270
         Left            =   1320
         TabIndex        =   11
         Text            =   "Text9"
         Top             =   2100
         Width           =   1335
      End
      Begin VB.TextBox Text8 
         Height          =   270
         Left            =   1320
         TabIndex        =   10
         Text            =   "Text8"
         Top             =   1680
         Width           =   1335
      End
      Begin VB.TextBox Text7 
         Height          =   270
         Left            =   1320
         TabIndex        =   9
         Text            =   "Text7"
         Top             =   1200
         Width           =   1335
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FF8080&
      Caption         =   "基本信息表"
      Height          =   1815
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   2775
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":0FB9
         TabIndex        =   76
         Top             =   1440
         Width           =   495
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":1019
         TabIndex        =   75
         Top             =   1035
         Width           =   735
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":107D
         TabIndex        =   74
         Top             =   645
         Width           =   615
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
         Height          =   255
         Left            =   240
         OleObjectBlob   =   "info22frm.frx":10DD
         TabIndex        =   73
         Top             =   240
         Width           =   495
      End
   End
End
Attribute VB_Name = "info22frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public lvhuadai As Integer
Public kongguiqu As Integer
Private Sub Command1_Click()
    '查询选择窗
    If Forms.Count > 3 Then
        Unload Forms(3)
    End If
    
        dlg22.Show
End Sub
Private Sub Command10_Click()
   ts = MsgBox("确定保存?", vbOKCancel, "数据操作")
   If ts = vbCancel Then
                Command10.Visible = False
                Command1.Enabled = True
                Command2.Visible = True
                Command3.Enabled = True
                Command4.Enabled = True
                Command5.Enabled = True
                Command6.Enabled = True
                Command7.Enabled = True
                Command8.Enabled = True
                Command9.Enabled = True
                Command11.Enabled = True
    End If
   If ts = vbOK Then
 '缺少错误判断
 '存盘时的代码,全部text插入到mdb数据库
    If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" And Text5.Text <> "" Then
        If Text6.Text = "" Then Text6.Text = 0
        If Text7.Text = "" Then Text7.Text = 0
        If Text8.Text = "" Then Text8.Text = 0
        If Text9.Text = "" Then Text9.Text = 0
        If Text10.Text = "" Then Text10.Text = 0
        If Text11.Text = "" Then Text11.Text = 0
        If Text12.Text = "" Then Text12.Text = 0
        If Text13.Text = "" Then Text13.Text = 0
        If Text14.Text = "" Then Text14.Text = 0
        If Text15.Text = "" Then Text15.Text = 0
        If Text16.Text = "" Then Text16.Text = 0
        If Text17.Text = "" Then Text17.Text = 0
        If Text18.Text = "" Then Text18.Text = 0
        If Text19.Text = "" Then Text19.Text = 0
        If Text20.Text = "" Then Text20.Text = 0
        If Text21.Text = "" Then Text21.Text = 0
        If Text22.Text = "" Then Text22.Text = 0
        If Text23.Text = "" Then Text23.Text = 0
        If Text24.Text = "" Then Text24.Text = 0
        If Text25.Text = "" Then Text25.Text = 0
        If Text26.Text = "" Then Text26.Text = 0
        If Text27.Text = "" Then Text27.Text = 0
        If Text28.Text = "" Then Text28.Text = 0
        If Text29.Text = "" Then Text29.Text = 0
        If Text30.Text = "" Then Text30.Text = 0
        If Text31.Text = "" Then Text31.Text = 0
        If Text32.Text = "" Then Text32.Text = 0
        If Text33.Text = "" Then Text33.Text = 0
        If Text34.Text = "" Then Text34.Text = 0
        If Text35.Text = "" Then Text35.Text = 0
        If Text36.Text = "" Then Text36.Text = 0
        If Text37.Text = "" Then Text37.Text = 0
        If Text38.Text = "" Then Text38.Text = 0
        If Text39.Text = "" Then Text39.Text = 0
        If Text40.Text = "" Then Text40.Text = 0
        If Text41.Text = "" Then Text41.Text = 0
        If Text42.Text = "" Then Text42.Text = 0
        If Text43.Text = "" Then Text43.Text = 0
        If Text44.Text = "" Then Text44.Text = 0
        If Text45.Text = "" Then Text45.Text = 0
        If Text46.Text = "" Then Text46.Text = 0
        If Text47.Text = "" Then Text47.Text = 0
        If Text48.Text = "" Then Text48.Text = 0
        Dim rdst As New ADODB.Recordset
        '存盘时候的错误判断
        rdst.Open "select * from ncjmrkdcb where 村='" & Text4.Text & "'and 序号='" & Text5.Text & "'", g_conn
            If rdst.EOF = False Then
                MsgBox "数据已经存在,保存失败!", vbOKOnly, "数据保存操作"
                Exit Sub
            End If
            Set rdst = Nothing
        rdst.Open "insert into ncjmrkdcb values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text _
            & "'," & Val(Text7.Text) & "," & Val(Text8.Text) & ",'" & Text9.Text & "'," & Val(Text10.Text) & "," & Val(Text11.Text) & "," & Val(Text12.Text) & "," & Val(Text13.Text) _
            & "," & Val(Text14.Text) & "," & Val(Text15.Text) & "," & Val(Text16.Text) & "," & Val(Text17.Text) & "," & Val(Text18.Text) & "," & Val(Text19.Text) & "," & Val(Text20.Text) _
            & "," & Val(Text21.Text) & "," & Val(Text22.Text) & "," & Val(Text23.Text) & "," & Val(Text24.Text) & "," & Val(Text25.Text) & "," & Val(Text26.Text) & "," & Val(Text27.Text) _
            & "," & Val(Text28.Text) & "," & Val(Text29.Text) & ",'" & Text30.Text & "'," & Val(Text31.Text) & "," & Val(Text32.Text) & "," & Val(Text33.Text) & "," & Val(Text34.Text) & "," & Val(Text35.Text) _
            & "," & Val(Text36.Text) & "," & Val(Text37.Text) & "," & Val(Text38.Text) & "," & Val(Text39.Text) & ",'" & Text40.Text & "','" & Text41.Text & "','" & Text42.Text & "','" & Text43.Text _
            & "','" & Text44.Text & "','" & Text45.Text & "','" & Text46.Text & "','" & Text47.Text & "','" & Text48.Text & "')", g_conn
    Else
        MsgBox "数据错误", vbOKCancel, "数据添加"
            Command10.Visible = False
            Command1.Enabled = True
            Command2.Visible = True
            Command3.Enabled = True
            Command4.Enabled = True
            Command5.Enabled = True
            Command6.Enabled = True
            Command7.Enabled = True
            Command8.Enabled = True
            Command9.Enabled = True
            Command11.Enabled = True
                Exit Sub
    End If
                Command10.Visible = False
                Command1.Enabled = True
                Command2.Visible = True
                Command3.Enabled = True
                Command4.Enabled = True
                Command5.Enabled = True
                Command6.Enabled = True
                Command7.Enabled = True
                Command8.Enabled = True
                Command9.Enabled = True
                Command11.Enabled = True
                   MsgBox "记录已经保存", vbOKOnly, "数据添加"
  End If
End Sub
Private Sub Command11_Click()
   '查询选择窗
    If Forms.Count > 3 Then
        Unload Forms(3)
    End If
       tj22.Show
End Sub
Private Sub Command2_Click()
    '追加代码
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
        Text7.Text = ""
        Text8.Text = ""
        Text9.Text = ""
        Text10.Text = ""
        Text11.Text = ""
        Text12.Text = ""
        Text13.Text = ""
        Text14.Text = ""
        Text15.Text = ""
        Text16.Text = ""
        Text17.Text = ""
        Text18.Text = ""
        Text19.Text = ""
        Text20.Text = ""
        Text21.Text = ""
        Text22.Text = ""
        Text23.Text = ""
        Text24.Text = ""
        Text25.Text = ""
        Text26.Text = ""
        Text27.Text = ""
        Text28.Text = ""
        Text29.Text = ""
        Text30.Text = ""
        Text31.Text = ""
        Text32.Text = ""
        Text33.Text = ""
        Text34.Text = ""
        Text35.Text = ""
        Text36.Text = ""
        Text37.Text = ""
        Text38.Text = ""
        Text39.Text = ""
        Text40.Text = ""
        Text41.Text = ""
        Text42.Text = ""
        Text43.Text = ""
        Text44.Text = ""
        Text45.Text = ""
        Text46.Text = ""
        Text47.Text = ""
        Text48.Text = ""
        Command2.Visible = False
        Command10.Visible = True
        Command10.Enabled = True
        Command1.Enabled = False
        Command3.Enabled = False
        Command4.Enabled = False
        Command5.Enabled = False
        Command6.Enabled = False
        Command7.Enabled = False
        Command8.Enabled = False
        Command9.Enabled = False
        Command11.Enabled = False
End Sub

Private Sub Command3_Click()
    '数据删除
  Dim ts As Integer
  ts = MsgBox("是否确定删除?", vbOKCancel, "删除提示")
  If ts = vbOK Then
        If Text1.Text = "" Or Text2.Text = "" Then