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
Dim Temp1 As String
On Error Resume Next '错误处理语句
del = MsgBox("确认要清除系统的日志信息吗?", 17, "提示信息")
If
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] ... 下一页 >>