frm_commcx.frm

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

               Frm_Khxx.Text1(13).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_lxrdh")
               Frm_Khxx.Cbx_jb.Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_khjb")
               Frm_Khxx.Text1(14).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_iccard")
               Frm_Khxx.Text1(15).Text = Frm_Khxx.Adodc1.Recordset.Fields("khxx_bz")
          Else
              MsgBox "没有符合条件的查询信息", , "提示信息"
          End If
          Call DBGCon1
          Unload Me
       ElseIf ConBs = "Sjzl" Then
          Frm_Sjxx.Adodc1.RecordSource = "select * from tb_Goods_sjxx where " & StrTemp & " Like '%" + Txt_cxnr.Text + "%'"
          Frm_Sjxx.Adodc1.Refresh
          If Frm_Sjxx.Adodc1.Recordset.RecordCount > 0 Then
            On Error Resume Next
               Frm_Sjxx.Text1(0).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_id")
               Frm_Sjxx.Text1(1).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_name")
               Frm_Sjxx.Cbx_xb.Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_xb")
               Frm_Sjxx.Cbx_lb.Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_jzlx")
               Frm_Sjxx.DT1.Value = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_csrq")
               Frm_Sjxx.Cbx_xl.Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_sjxl")
               Frm_Sjxx.Text1(2).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_sfzhm")
               Frm_Sjxx.Text1(3).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_jzhm")
               Frm_Sjxx.Text1(12).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_jylx")
               Frm_Sjxx.DT2.Value = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_hzrq")
               Frm_Sjxx.Text1(4).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_yzbm")
               Frm_Sjxx.Text1(5).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_sfqk")
               Frm_Sjxx.Text1(6).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_jl")
               Frm_Sjxx.Text1(7).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_dh")
               Frm_Sjxx.Text1(8).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_xyqk")
               Frm_Sjxx.Text1(9).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_dzyj")
               Frm_Sjxx.Text1(10).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_sj")
               Frm_Sjxx.Text1(11).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_dz")
               Frm_Sjxx.Text1(13).Text = Frm_Sjxx.Adodc1.Recordset.Fields("sjxx_bz")
          Else
              MsgBox "没有符合条件的查询信息", , "提示信息"
          End If
          Call DBGCon2
          Unload Me
       ElseIf ConBs = "Clzl" Then
          Frm_Clxx.Adodc1.RecordSource = "select * from tb_Goods_clxx where " & StrTemp & " Like '%" + Txt_cxnr.Text + "%'"
          Frm_Clxx.Adodc1.Refresh
          If Frm_Clxx.Adodc1.Recordset.RecordCount > 0 Then
          On Error Resume Next
               Frm_Clxx.Text1(0).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_id")
               Frm_Clxx.Text1(1).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_cphm")
               Frm_Clxx.Cbx_lx.Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_cllx")
               Frm_Clxx.Text1(2).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_sjxm")
               Frm_Clxx.DT2.Value = Frm_Clxx.Adodc1.Recordset.Fields("clxx_csrq")
               Frm_Clxx.Text1(3).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_czxm")
               Frm_Clxx.Text1(4).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_sfzhm")
               Frm_Clxx.Text1(5).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_dzyj")
               Frm_Clxx.Text1(6).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_czdh")
               Frm_Clxx.Text1(7).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_czsj")
               Frm_Clxx.Text1(8).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_sjsj")
               Frm_Clxx.Text1(9).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_yzbm")
               Frm_Clxx.Text1(10).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_dz")
               Frm_Clxx.Text1(11).Text = Frm_Clxx.Adodc1.Recordset.Fields("clxx_bz")
          Else
              MsgBox "没有符合条件的查询信息", , "提示信息"
          End If
          Call DBGCon3
          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 = "Ygzl" Then
      Cbx_cxtj.Clear
      Cbx_cxtj.AddItem ("员工编号")
      Cbx_cxtj.AddItem ("员工姓名")
      Cbx_cxtj.AddItem ("性别")
      Cbx_cxtj.AddItem ("员工职务")
      Cbx_cxtj.AddItem ("所属部门")
      Cbx_cxtj.AddItem ("联系电话")
   ElseIf ConBs = "Khzl" Then
      Cbx_cxtj.Clear
      Cbx_cxtj.AddItem ("客户编号")
      Cbx_cxtj.AddItem ("客户名称")
      Cbx_cxtj.AddItem ("企业性质")
      Cbx_cxtj.AddItem ("企业类型")
      Cbx_cxtj.AddItem ("所属省份")
      Cbx_cxtj.AddItem ("所属城市")
      Cbx_cxtj.AddItem ("法人代表")
      Cbx_cxtj.AddItem ("开户银行")
      Cbx_cxtj.AddItem ("银行账户")
      Cbx_cxtj.AddItem ("纳税号")
      Cbx_cxtj.AddItem ("联系人")
      Cbx_cxtj.AddItem ("IC卡号")
      Cbx_cxtj.AddItem ("客户级别")
   ElseIf ConBs = "Sjzl" Then
      Cbx_cxtj.Clear
      Cbx_cxtj.AddItem ("司机编号")
      Cbx_cxtj.AddItem ("司机姓名")
      Cbx_cxtj.AddItem ("驾照类型")
      Cbx_cxtj.AddItem ("司机学历")
      Cbx_cxtj.AddItem ("驾照号码")
      Cbx_cxtj.AddItem ("经营路线")
      Cbx_cxtj.AddItem ("收费情况")
      Cbx_cxtj.AddItem ("司机手机")
      Cbx_cxtj.AddItem ("司机地址")
   ElseIf ConBs = "Clzl" Then
      Cbx_cxtj.Clear
      Cbx_cxtj.AddItem ("车牌号码")
      Cbx_cxtj.AddItem ("车主姓名")
      Cbx_cxtj.AddItem ("司机姓名")
      Cbx_cxtj.AddItem ("车主电话")
      Cbx_cxtj.AddItem ("车主手机")
      Cbx_cxtj.AddItem ("司机手机")
      Cbx_cxtj.AddItem ("车辆类型")
      Cbx_cxtj.AddItem ("车主地址")
   End If
End Sub
Private Sub DBGCon()
    Frm_Ygzl.Dgr_Sjll.Columns(0).Caption = "员工编号"
    Frm_Ygzl.Dgr_Sjll.Columns(1).Caption = "员工姓名"
    Frm_Ygzl.Dgr_Sjll.Columns(2).Caption = "性别"
    Frm_Ygzl.Dgr_Sjll.Columns(3).Caption = "职务"
    Frm_Ygzl.Dgr_Sjll.Columns(4).Caption = "部门"
    Frm_Ygzl.Dgr_Sjll.Columns(5).Caption = "电话"
    Frm_Ygzl.Dgr_Sjll.Columns(6).Caption = "备注"
    Frm_Ygzl.Dgr_Sjll.Columns(0).Width = 1000
    Frm_Ygzl.Dgr_Sjll.Columns(1).Width = 1380
End Sub
Private Sub DBGCon1()
    Frm_Khxx.Dgr_Sjll.Columns(0).Caption = "客户编号"
    Frm_Khxx.Dgr_Sjll.Columns(1).Caption = "客户名称"
    Frm_Khxx.Dgr_Sjll.Columns(2).Caption = "企业性质"
    Frm_Khxx.Dgr_Sjll.Columns(3).Caption = "企业类型"
    Frm_Khxx.Dgr_Sjll.Columns(4).Caption = "企业资信"
    Frm_Khxx.Dgr_Sjll.Columns(5).Caption = "企业地址"
    Frm_Khxx.Dgr_Sjll.Columns(6).Caption = "所属省份"
    Frm_Khxx.Dgr_Sjll.Columns(7).Caption = "所属城市"
    Frm_Khxx.Dgr_Sjll.Columns(8).Caption = "邮编"
    Frm_Khxx.Dgr_Sjll.Columns(9).Caption = "法人代表"
    Frm_Khxx.Dgr_Sjll.Columns(10).Caption = "开户银行"
    Frm_Khxx.Dgr_Sjll.Columns(11).Caption = "银行账户"
    Frm_Khxx.Dgr_Sjll.Columns(12).Caption = "纳税号"
    Frm_Khxx.Dgr_Sjll.Columns(13).Caption = "IC卡号"
    Frm_Khxx.Dgr_Sjll.Columns(14).Caption = "公司网址"
    Frm_Khxx.Dgr_Sjll.Columns(15).Caption = "公司电话"
    Frm_Khxx.Dgr_Sjll.Columns(16).Caption = "传真"
    Frm_Khxx.Dgr_Sjll.Columns(17).Caption = "联系人"
    Frm_Khxx.Dgr_Sjll.Columns(18).Caption = "联系人电话"
    Frm_Khxx.Dgr_Sjll.Columns(19).Caption = "客户级别"
    Frm_Khxx.Dgr_Sjll.Columns(20).Caption = "备注"
End Sub
Private Sub DBGCon2()
    Frm_Sjxx.Dgr_Sjll.Columns(0).Caption = "编号"
    Frm_Sjxx.Dgr_Sjll.Columns(1).Caption = "司机姓名"
    Frm_Sjxx.Dgr_Sjll.Columns(2).Caption = "性别"
    Frm_Sjxx.Dgr_Sjll.Columns(3).Caption = "驾照类型"
    Frm_Sjxx.Dgr_Sjll.Columns(4).Caption = "出生日期"
    Frm_Sjxx.Dgr_Sjll.Columns(5).Caption = "学历"
    Frm_Sjxx.Dgr_Sjll.Columns(6).Caption = "驾照号码"
    Frm_Sjxx.Dgr_Sjll.Columns(7).Caption = "身份证号码"
    Frm_Sjxx.Dgr_Sjll.Columns(8).Caption = "经营路线"
    Frm_Sjxx.Dgr_Sjll.Columns(9).Caption = "合作日期"
    Frm_Sjxx.Dgr_Sjll.Columns(10).Caption = "邮政编码"
    Frm_Sjxx.Dgr_Sjll.Columns(11).Caption = "收费情况"
    Frm_Sjxx.Dgr_Sjll.Columns(12).Caption = "车牌号码"
    Frm_Sjxx.Dgr_Sjll.Columns(13).Caption = "司机电话"
    Frm_Sjxx.Dgr_Sjll.Columns(14).Caption = "信誉情况"
    Frm_Sjxx.Dgr_Sjll.Columns(15).Caption = "电子邮件"
    Frm_Sjxx.Dgr_Sjll.Columns(16).Caption = "司机手机"
    Frm_Sjxx.Dgr_Sjll.Columns(17).Caption = "司机地址"
    Frm_Sjxx.Dgr_Sjll.Columns(18).Caption = "备注"
End Sub
Private Sub DBGCon3()
    Frm_Clxx.Dgr_Sjll.Columns(0).Caption = "编号"
    Frm_Clxx.Dgr_Sjll.Columns(1).Caption = "车牌号码"
    Frm_Clxx.Dgr_Sjll.Columns(2).Caption = "车辆类型"
    Frm_Clxx.Dgr_Sjll.Columns(3).Caption = "司机姓名"
    Frm_Clxx.Dgr_Sjll.Columns(4).Caption = "车主姓名"
    Frm_Clxx.Dgr_Sjll.Columns(5).Caption = "车主电话"
    Frm_Clxx.Dgr_Sjll.Columns(6).Caption = "身份证号"
    Frm_Clxx.Dgr_Sjll.Columns(7).Caption = "电子邮件"
    Frm_Clxx.Dgr_Sjll.Columns(8).Caption = "司机手机"
    Frm_Clxx.Dgr_Sjll.Columns(9).Caption = "车主手机"
    Frm_Clxx.Dgr_Sjll.Columns(10).Caption = "出生日期"
    Frm_Clxx.Dgr_Sjll.Columns(11).Caption = "邮政编码"
    Frm_Clxx.Dgr_Sjll.Columns(12).Caption = "车主地址"
    Frm_Clxx.Dgr_Sjll.Columns(13).Caption = "备注信息"
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