frm_commcx.frm

VB物流管理系统毕业设计带源码源码+论文 vB+sql的毕业设计

VERSION 5.00
Begin VB.Form Frm_CommCx 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "信息查询"
   ClientHeight    =   1455
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4170
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1455
   ScaleWidth      =   4170
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Cmd_Cancel 
      Caption         =   "取消"
      Height          =   345
      Left            =   3120
      TabIndex        =   4
      Top             =   1050
      Width           =   900
   End
   Begin VB.CommandButton Cmd_cx 
      Caption         =   "查询"
      Height          =   345
      Left            =   2145
      TabIndex        =   3
      Top             =   1050
      Width           =   930
   End
   Begin VB.Frame Frame1 
      Caption         =   "查询条件"
      Height          =   870
      Left            =   150
      TabIndex        =   0
      Top             =   135
      Width           =   3870
      Begin VB.TextBox Txt_cxnr 
         Height          =   315
         Left            =   1800
         TabIndex        =   2
         Top             =   315
         Width           =   1935
      End
      Begin VB.ComboBox Cbx_cxtj 
         Height          =   300
         ItemData        =   "Frm_CommCx.frx":0000
         Left            =   150
         List            =   "Frm_CommCx.frx":0016
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   315
         Width           =   1590
      End
   End
End
Attribute VB_Name = "Frm_CommCx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim StrTemp As String
Private Sub Cbx_cxtj_Click()
   If ConBs = "Ygzl" Then
       If Cbx_cxtj.ListIndex = 0 Then
           StrTemp = "ygxx_ygid"
       ElseIf Cbx_cxtj.ListIndex = 1 Then
           StrTemp = "ygxx_ygxm"
       ElseIf Cbx_cxtj.ListIndex = 2 Then
           StrTemp = "ygxx_xb"
       ElseIf Cbx_cxtj.ListIndex = 3 Then
           StrTemp = "ygxx_zw"
       ElseIf Cbx_cxtj.ListIndex = 4 Then
           StrTemp = "ygxx_bm"
       ElseIf Cbx_cxtj.ListIndex = 5 Then
           StrTemp = "ygxx_dh"
       End If
       Txt_cxnr.SetFocus
   ElseIf ConBs = "Khzl" Then
       If Cbx_cxtj.ListIndex = 0 Then
           StrTemp = "khxx_id"
       ElseIf Cbx_cxtj.ListIndex = 1 Then
           StrTemp = "khxx_mc"
       ElseIf Cbx_cxtj.ListIndex = 2 Then
           StrTemp = "khxx_qyxz"
       ElseIf Cbx_cxtj.ListIndex = 3 Then
           StrTemp = "khxx_qylx"
       ElseIf Cbx_cxtj.ListIndex = 4 Then
           StrTemp = "khxx_szsf"
       ElseIf Cbx_cxtj.ListIndex = 5 Then
           StrTemp = "khxx_szcs"
       ElseIf Cbx_cxtj.ListIndex = 6 Then
           StrTemp = "khxx_frdb"
       ElseIf Cbx_cxtj.ListIndex = 7 Then
           StrTemp = "khxx_khyh"
       ElseIf Cbx_cxtj.ListIndex = 8 Then
           StrTemp = "khxx_yhzh"
       ElseIf Cbx_cxtj.ListIndex = 9 Then
           StrTemp = "khxx_nsh"
       ElseIf Cbx_cxtj.ListIndex = 10 Then
           StrTemp = "khxx_lxr"
       ElseIf Cbx_cxtj.ListIndex = 11 Then
           StrTemp = "khxx_Iccard"
       ElseIf Cbx_cxtj.ListIndex = 12 Then
           StrTemp = "khxx_khjb"
       End If
    ElseIf ConBs = "Sjzl" Then
       If Cbx_cxtj.ListIndex = 0 Then
           StrTemp = "sjxx_id"
       ElseIf Cbx_cxtj.ListIndex = 1 Then
           StrTemp = "sjxx_name"
       ElseIf Cbx_cxtj.ListIndex = 2 Then
           StrTemp = "sjxx_jzlx"
       ElseIf Cbx_cxtj.ListIndex = 3 Then
           StrTemp = "sjxx_sjxl"
       ElseIf Cbx_cxtj.ListIndex = 4 Then
           StrTemp = "sjxx_jzhm"
       ElseIf Cbx_cxtj.ListIndex = 5 Then
           StrTemp = "sjxx_jylx"
       ElseIf Cbx_cxtj.ListIndex = 6 Then
           StrTemp = "sjxx_sfqk"
       ElseIf Cbx_cxtj.ListIndex = 7 Then
           StrTemp = "sjxx_sj"
       ElseIf Cbx_cxtj.ListIndex = 8 Then
           StrTemp = "sjxx_dz"
       End If
    ElseIf ConBs = "Clzl" Then
       If Cbx_cxtj.ListIndex = 0 Then
           StrTemp = "clxx_cphm"
       ElseIf Cbx_cxtj.ListIndex = 1 Then
           StrTemp = "clxx_czxm"
       ElseIf Cbx_cxtj.ListIndex = 2 Then
           StrTemp = "clxx_sjxm"
       ElseIf Cbx_cxtj.ListIndex = 3 Then
           StrTemp = "clxx_czdh"
       ElseIf Cbx_cxtj.ListIndex = 4 Then
           StrTemp = "clxx_czsj"
       ElseIf Cbx_cxtj.ListIndex = 5 Then
           StrTemp = "clxx_sjsj"
       ElseIf Cbx_cxtj.ListIndex = 6 Then
           StrTemp = "clxx_cllx"
       ElseIf Cbx_cxtj.ListIndex = 7 Then
           StrTemp = "clxx_dz"
       End If
   End If
End Sub
Private Sub Cmd_Cancel_Click()
   Unload Me
End Sub
Private Sub Cmd_Cx_Click()
   If Cbx_cxtj.Text = "" Then
     MsgBox "请选择查询条件", 48, "提示信息"
   Else
       If ConBs = "Ygzl" Then
          Frm_Ygzl.Adodc1.RecordSource = "select * from tb_ygxx where " & StrTemp & " Like '%" + Txt_cxnr.Text + "%'"
          Frm_Ygzl.Adodc1.Refresh
          If Frm_Ygzl.Adodc1.Recordset.RecordCount > 0 Then
            On Error Resume Next
              Frm_Ygzl.Text1(0).Text = Frm_Ygzl.Adodc1.Recordset.Fields("ygxx_ygid")
              Frm_Ygzl.Text1(1).Text = Frm_Ygzl.Adodc1.Recordset.Fields("ygxx_ygxm")
              Frm_Ygzl.Cbx_xb.Text = Frm_Ygzl.Adodc1.Recordset.Fields("ygxx_xb")
              Frm_Ygzl.Text1(2).Text = Frm_Ygzl.Adodc1.Recordset.Fields("ygxx_zw")
              Frm_Ygzl.Text1(3).Text = Frm_Ygzl.Adodc1.Recordset.Fields("ygxx_bm")
              Frm_Ygzl.Text1(4).Text = Frm_Ygzl.Adodc1.Recordset.Fields("ygxx_dh")
              Frm_Ygzl.Text1(5).Text = Frm_Ygzl.Adodc1.Recordset.Fields("ygxx_bz")
          Else
              MsgBox "没有符合条件的查询信息", , "提示信息"
          End If
          Call DBGCon
          Unload Me
       ElseIf ConBs = "Khzl" Then
          Frm_Khxx.Adodc1.RecordSource = "select * from tb_khxx where " & StrTemp & " Like '%" + Txt_cxnr.Text + "%'"
          Frm_Khxx.Adodc1.Refresh
          If Frm_Khxx.Adodc1.Recordset.RecordCount > 0 Then
             On Error Resume Next
               Frm_Khxx.Text1(0).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_id")
               Frm_Khxx.Text1(1).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_mc")
               Frm_Khxx.Cbx_xz.Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_qyxz")
               Frm_Khxx.Cbx_lb.Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_qylx")
               Frm_Khxx.Text1(3).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_qyzx")
               Frm_Khxx.Text1(2).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_qydz")
               Frm_Khxx.Cbx_sf.Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_szsf")
               Frm_Khxx.Cbx_cs.Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_szcs")
               Frm_Ygzl.Text1(4).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_gsyb")
               Frm_Khxx.Text1(5).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_frdb")
               Frm_Khxx.Text1(6).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_khyh")
               Frm_Khxx.Text1(7).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_yhzh")
               Frm_Khxx.Text1(8).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_nsh")
               Frm_Khxx.Text1(9).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_gswz")
               Frm_Khxx.Text1(10).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_gsdh")
               Frm_Khxx.Text1(11).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_gscz")
               Frm_Khxx.Text1(12).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_lxr")