毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB+SQLServer2000物流管理系统 第7页

更新时间:2008-1-14:  来源:毕业论文

VB+SQLServer2000物流管理系统 第7页

 ElseIf AdoRs.Fields("20") = 0 Then

         HWYSDBB.Enabled = False

      End If

      If AdoRs.Fields("21") = 1 Then

         SCRZ.Enabled = True

      ElseIf AdoRs.Fields("21") = 0 Then

         SCRZ.Enabled = False

      End If

      If AdoRs.Fields("22") = 1 Then

         YHGL.Enabled = True

         Toolbar1.Buttons(19).Enabled = True

      ElseIf AdoRs.Fields("22") = 0 Then

         YHGL.Enabled = False

         Toolbar1.Buttons(19).Enabled = False

      End If

      If AdoRs.Fields("23") = 1 Then

         SJBF.Enabled = True

      ElseIf AdoRs.Fields("23") = 0 Then

         SJBF.Enabled = False

      End If

      If AdoRs.Fields("24") = 1 Then

         SJHF.Enabled = True

      ElseIf AdoRs.Fields("24") = 0 Then

         SJHF.Enabled = False

      End If

      If AdoRs.Fields("25") = 1 Then

         SJQL.Enabled = True

      ElseIf AdoRs.Fields("25") = 0 Then

         SJQL.Enabled = False

      End If

End If

AdoRs.Close

  If TWidth <= 800 Or THeigth <= 600 Then

     Me.BorderStyle = 2

     Me.WindowState = 2

   Else

        RemoveMenu GetSystemMenu(Frm_Main.hwnd, 0), SC_MAXIMIZE, MF_REMOVE        '最大化按钮不可用

  End If

End Sub

Private Sub GSZLSZ_Click()    '公司资料设置

    Frm_Gszl.Show 1

End Sub

Private Sub HWSQDBB_Click()

On Error Resume Next

DEvr1.rsCom_sqd.Open "select * from tb_Goods_sqd"

  If DEvr1.rsCom_sqd.RecordCount > 0 Then

     DRP_Sqd.Show 1

  End If

End Sub

Private Sub HWSQDCX_Click()

   StrCx = 1

   Frm_Xxcx.Show 1

End Sub

Private Sub HWTYDBB_Click()

 DEvr1.rsCom_tyd.Open "select * from tb_Goods_tyd"

   If DEvr1.rsCom_tyd.RecordCount > 0 Then

      DRP_Tyd.Show 1

   End If

End Sub

Private Sub HWTYDGL_Click()

   Frm_Hpty.Show 1             '货品托运

End Sub

Private Sub HWTYXXCX_Click()

   StrCx = 3

   Frm_Xxcx.Show 1

End Sub

Private Sub HWTYYSCX_Click()

   StrCx = 4

   Frm_Xxcx.Show 1

End Sub

Private Sub HWYSDBB_Click()

 DEvr1.rsCom_Ysd.Open "select * from tb_Goods_khys"

  If DEvr1.rsCom_Ysd.RecordCount > 0 Then

     DRP_Ysd.Show 1

  End If

End Sub

Private Sub HWYSDGL_Click()

  Frm_Hpys.Show 1

End Sub

Private Sub KHZLSZ_Click()    '客户资料信息

   Frm_Khxx.Show 1

End Sub

Private Sub PSHWBGCX_Click()

   Frm_ZtgzCx.Show 1

End Sub

Private Sub PSJLDGL_Click()

   Frm_Ztgz.Show 1

End Sub

Private Sub SCRZ_Click()

Dim del

Dim Temp1 As String

On Error Resume Next  '错误处理语句

del = MsgBox("确认要清除系统的日志信息吗?", 17, "提示信息")

    If del = vbOK Then

         Kill (App.Path & "\系统日志.ini")

             Open (App.Path & "\系统日志.ini") For Output As #1

                  Temp1 = "  操作员姓名             日期时间                      操作类型"

             Print #1, Temp1

             Print #1,

             Close #1

             MsgBox "日志清理成功完成!!", , "提示信息"

    Else

    End If

End Sub

Private Sub SJBF_Click()

  frm_backup.Show 1

End Sub

Private Sub SJHF_Click()

Dim iTask As Long

MsgBox "请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序", 64, "提示信息"

'调用数据恢复可执行文件

iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)

End

End Sub

Private Sub SJQL_Click()

  frm_sfyz.Show 1

End Sub

Private Sub SJZLSZ_Click()

   Frm_Sjxx.Show 1

End Sub

Private Sub SQDGL_Click()

  Frm_Tysq.Show 1              '托运申请

End Sub

 

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

  Select Case Button.key

      Case "SQ"

         Frm_Tysq.Show 1

      Case "DD"

         Frm_Cldd.Show 1

      Case "TY"

         Frm_Hpty.Show 1

      Case "GZ"

         Frm_Ztgz.Show 1

      Case "YS"

         Frm_Hpys.Show 1

      Case "CX"

         StrCx = 3

         Frm_Xxcx.Show 1

      Case "BB"

         DRP_Tyd.Show 1

      Case "RZ"

         frm_systemer.Show 1

      Case "TC"

         End

  End Select

End Sub

Private Sub YGZLSZ_Click()    '员工资料信息

   Frm_Ygzl.Show 1

End Sub

Private Sub YHGL_Click()

   frm_systemer.Show 1

End Sub

Private Sub zwxxsz_Click()

  Frm_Zwxx.Show 1

End Sub

Private Sub Timer1_Timer()

  StatusBar1.Panels.Item(4).Text = Time

End Sub

 

Private Sub ChangeScreen()     '改变屏幕分辨率函数

      MsgBox "您桌面的分辨率并不是800*600,建议您将桌面的分辨率调整成800*600之后,再运行此程序!", 64, "提示信息"

   End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VB+SQLServer2000物流管理系统 第7页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。