frm_cx.frm

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

VERSION 5.00
Begin VB.Form Frm_Cx 
   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_Cx.frx":0000
         Left            =   150
         List            =   "Frm_Cx.frx":000A
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   315
         Width           =   1590
      End
   End
End
Attribute VB_Name = "Frm_Cx"
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 = "BM" Then
  If Cbx_cxtj.ListIndex = 0 Then
      StrTemp = "bmxx_id"
  ElseIf Cbx_cxtj.ListIndex = 1 Then
      StrTemp = "bmxx_mc"
  End If
  Txt_cxnr.SetFocus
 ElseIf ConBs = "ZW" Then
  If Cbx_cxtj.ListIndex = 0 Then
      StrTemp = "zw_id"
  ElseIf Cbx_cxtj.ListIndex = 1 Then
      StrTemp = "zw_mc"
  End If
  Txt_cxnr.SetFocus
 End If
End Sub
Private Sub Cmd_Cancel_Click()
   Unload Me
End Sub
Private Sub Cmd_Cx_Click()
 If ConBs = "BM" Then
   If Cbx_cxtj.Text = "" Then
     MsgBox "请选择查询条件", 48, "提示信息"
   Else
      Frm_Bmzl.Adodc1.RecordSource = "select * from tb_bmxx where " & StrTemp & "='" + Txt_cxnr.Text + "'"
      Frm_Bmzl.Adodc1.Refresh
       If Frm_Bmzl.Adodc1.Recordset.RecordCount > 0 Then
           On Error Resume Next
           Frm_Bmzl.Text1(0).Text = Frm_Bmzl.Adodc1.Recordset.Fields("bmxx_id")
           Frm_Bmzl.Text1(1).Text = Frm_Bmzl.Adodc1.Recordset.Fields("bmxx_mc")
           Frm_Bmzl.Text1(2).Text = Frm_Bmzl.Adodc1.Recordset.Fields("bmxx_bz")
       Else
         MsgBox "没有符合条件的查询信息", , "提示信息"
       End If
      Call DBGCon
      Unload Me
   End If
 ElseIf ConBs = "ZW" Then
   If Cbx_cxtj.Text = "" Then
     MsgBox "请选择查询条件", 48, "提示信息"
   Else
      Frm_Zwxx.Adodc1.RecordSource = "select * from tb_zw where " & StrTemp & "='" + Txt_cxnr.Text + "'"
      Frm_Zwxx.Adodc1.Refresh
       If Frm_Zwxx.Adodc1.Recordset.RecordCount > 0 Then
           On Error Resume Next
           Frm_Zwxx.Text1(0).Text = Frm_Zwxx.Adodc1.Recordset.Fields("zw_id")
           Frm_Zwxx.Text1(1).Text = Frm_Zwxx.Adodc1.Recordset.Fields("zw_mc")
           Frm_Zwxx.Text1(2).Text = Frm_Zwxx.Adodc1.Recordset.Fields("zw_sm")
       Else
           MsgBox "没有符合条件的查询信息", , "提示信息"
       End If
      Call DBGCon1
      Unload Me
   End If
 End If
End Sub

Private Sub Form_Load()
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2
      If ConBs = "BM" Then
      Cbx_cxtj.Clear
      Cbx_cxtj.AddItem ("部门编号")
      Cbx_cxtj.AddItem ("部门名称")
   ElseIf ConBs = "ZW" Then
      Cbx_cxtj.Clear
      Cbx_cxtj.AddItem ("编号")
      Cbx_cxtj.AddItem ("职务名称")
   End If
End Sub

Private Sub DBGCon()
    Frm_Bmzl.Dgr_bmzl.Columns(0).Caption = "部门编号"
    Frm_Bmzl.Dgr_bmzl.Columns(1).Caption = "部门名称"
    Frm_Bmzl.Dgr_bmzl.Columns(2).Visible = False
    Frm_Bmzl.Dgr_bmzl.Columns(0).Width = 800
    Frm_Bmzl.Dgr_bmzl.Columns(1).Width = 1380
End Sub
Private Sub DBGCon1()
    Frm_Zwxx.Dgr_bmzl.Columns(0).Caption = "编号"
    Frm_Zwxx.Dgr_bmzl.Columns(1).Caption = "职务名称"
    Frm_Zwxx.Dgr_bmzl.Columns(2).Visible = False
    Frm_Zwxx.Dgr_bmzl.Columns(0).Width = 800
    Frm_Zwxx.Dgr_bmzl.Columns(1).Width = 1380
End Sub

Private Sub Txt_cxnr_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
     Call Cmd_Cx_Click
  End If
End Sub