IfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThen
MsgBox"您的数据库中没有记录!",16,"出错:"
Else
IfCommand2.Caption="查询"Then
Command8.Caption="显示信息"
Form3.Top=700
Form3.Height=5670
Command2.Caption="结束查询"
F3.Visible=True
Command1.Enabled=False
Command4.Enabled=False
Command3.Enabled=False
Else
A1.Recordset.MoveFirst
Command2.Caption="查询"
Command8.Caption="打印"
Form3.Top=1500
Form3.Height=5728
Form3.Left=600
Command1.Enabled=True
Command4.Enabled=True
Command3.Enabled=True
F3.Visible=False
EndIf
EndIf
Else
MsgBox"您没有这个权限!",16,"出错:"
EndIf
EndSub
PrivateSubCommand3_Click()
IfCommand1.Tag="True"Then
IfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThen
MsgBox"您的数据库中没有记录!",16,"出错:"
Else
IfCommand3.Caption="修改记录"Then
Command3.Caption="修改完毕"
Command2.Enabled=False
Command1.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Form3.Height=8220
Form3.Top=300
F1.Visible=True
F1.Caption="修改记录:"
Else
Ift3(0).Text=""Then
MsgBox"固定资产不能为空!",16,"出错:"
Else
ForX=11To13
IfLen(Trim(t3(X).Text))>200Then
MsgBox"字符不能超过200个!",16,"出错:"
ExitSub
EndIf
NextX
Command3.Caption="修改记录"
Command2.Enabled=True
Command1.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
Form3.Height=5728
Form3.Left=600
Form3.Top=1500
F1.Visible=False
F1.Caption="数据输入:"
EndIf
EndIf
EndIf
Else
MsgBox"您没有这个权限!",16,"出错:"
EndIf
EndSub
PrivateSubCommand4_Click()
UnloadMe
EndSub
PrivateSubCommand5_Click()
IfCommand1.Tag="True"Then
IfA1.Recordset.EOF=TrueOrA1.Recordset.BOF=TrueThen
MsgBox"您的数据库中没有记录可以删除!",16,"出错:"
Else
A1.Recordset.Delete
Y=1
A1.Recordset.MoveFirst
ForX=1To1
IfA1.Recordset.EOF=TrueThen
IfA1.Recordset.BOF=TrueThen
Else
A1.Recordset.MoveFirst
EndIf
ExitFor
Else
Label3.Caption=Y
A1.Recordset.MoveNext
Y=Y+1
X=X-1
EndIf
NextX
EndIf
Else
MsgBox"您没有这个权限!",16,"出错:"
EndIf
EndSub
PrivateSubCommand6_Click()
ForX=0To7
Ift17(X).Text=""Then
Else
Command6.Tag=t17(X).Text
Command7.Tag=X
A1.Recordset.MoveFirst
Callcx
ExitSub
EndIf
NextX
MsgBox"您没有输入要查询的值!",16,"出错:"
EndSub
Subcx()
ForX=1To1
IfTrim(Command6.Tag)=Trim(t3(Val(Command7.Tag)).Text)Then
ExitSub
Else
IfA1.Recordset.EOF=TrueThen
Else
A1.Recordset.MoveNext
EndIf
IfA1.Recordset.EOF=TrueThen
MsgBox"没有找你到要查询的记录!",32,"提示:"
ExitSub
Else
X=X-1
EndIf
EndIf
NextX
EndSub
PrivateSubCommand7_Click()
ForX=0To7
Ift17(X).Text=""Then
Else
Command6.Tag=t17(X).Text
Command7.Tag=X
IfA1.Recordset.EOF=TrueThen
Else
A1.Recordset.MoveNext
EndIf
Callcx
ExitSub
EndIf
NextX
MsgBox"您没有输入要查询的值!",16,"出错:"
EndSub
PrivateSubCommand8_Click()
Form4.Show
EndSub
PrivateSubCommand9_Click()
ForX=0To6
IfA1.Recordset.BOF=TrueThen
MsgBox"您已经位于第一条记录",32,"提示:"
A1.Recordset.MoveNext
ExitSub
Else
A1.Recordset.MovePrevious
EndIf
NextX
EndSub
PrivateSubF3_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IfCommand4.Enabled=TrueThen
Cancel=0
Else
MsgBox"请编辑完这条记录再退出!",64,"提示:"
Cancel=1
EndIf
EndSub
―――-固定资产查询源代码:
PrivateSubCommand2_Click()
IfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThen
MsgBox"您的数据库中没有记录!",16,"出错:"
Else
IfCommand2.Caption="查询"Then
Command8.Caption="显示信息"
Form3.Top=700
Form3.Height=5670
Command2.Caption="结束查询"
F3.Visible=True
Command4.Enabled=False
Else
A1.Recordset.MoveFirst
Command2.Caption="查询"
Command8.Caption="打印"
Form3.Top=1500
Form3.Height=5728
Form3.Left=600
Command4.Enabled=True
F3.Visible=False
EndIf
EndIf
EndSub
PrivateSubCommand4_Click()
UnloadMe
EndSub
Subcx()
ForX=1To1
IfTrim(Command6.Tag)=Trim(t3(Val(Command7.Tag)).Text)Then
ExitSub
Else
IfA1.Recordset.EOF=TrueThen
Else
A1.Recordset.MoveNext
EndIf
IfA1.Recordset.EOF=TrueThen
MsgBox"没有找你到要查询的记录!",32,"提示:"
ExitSub
Else
X=X-1
EndIf
EndIf
NextX
EndSub
PrivateSubCommand6_Click()
ForX=0To7
Ift17(X).Text=""Then
Else
Command6.Tag=t17(X).Text
Command7.Tag=X
A1.Recordset.MoveFirst
Callcx
ExitSub
EndIf
NextX
MsgBox"您没有输入要查询的值!",16,"出错:"
EndSub
PrivateSubCommand8_Click()
Form4.Show
EndSub
PrivateSubCommand9_Click()
ForX=0To6
IfA1.Recordset.BOF=TrueThen
MsgBox"您已经位于第一条记录",32,"提示:"
A1.Recordset.MoveNext
ExitSub
Else
A1.Recordset.MovePrevious
EndIf
NextX
EndSub
PrivateSubD1_Click()
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IfCommand4.Enabled=TrueThen
Cancel=0
Else
MsgBox"请编辑完这条记录再退出!",64,"提示:"
Cancel=1
EndIf
EndSub
上一篇:
VB商场管理系统(论文和程序)
下一篇:
让我掉下眼泪的