谁给我用Visual FoxPro建立图书馆里系统?高分奖赏 发给我邮箱就行了!382534456@qq.com 步骤,代码全要。
1.入库图书信息(编号,书号,书名,作者,出版社,定价,数量,入库时间,备注等。)2.图书销售信息(书号,书名,作者,出版社,定价,销售价格,销售数量,销售日期等。)3....
1.入库图书信息(编号,书号,书名,作者,出版社,定价,数量,入库时间,备注等。)
2.图书销售信息(书号,书名,作者,出版社,定价,销售价格,销售数量,销售日期等。)
3.读者信息(读者编号,姓名,年龄,详细地址,联系电话,是否允许借阅,备注等。)
4.借阅信息(读者编号,借阅日期,借阅天数,归还日期等。)
5.系统用户信息(姓名,密码等。) 展开
2.图书销售信息(书号,书名,作者,出版社,定价,销售价格,销售数量,销售日期等。)
3.读者信息(读者编号,姓名,年龄,详细地址,联系电话,是否允许借阅,备注等。)
4.借阅信息(读者编号,借阅日期,借阅天数,归还日期等。)
5.系统用户信息(姓名,密码等。) 展开
2个回答
展开全部
Hwnd = Plugin.Window.GetKeyFocusWnd()
Delay 2000
t1=now:t2=now:sj1=0.5:sj2=60
Rem abcc
Delay 20
If DateDiff("s",t1,now)>=sj1
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd, 83)
Delay 10
t1=now
End If
If DateDiff("s",t2,now)>=sj2
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd, 70)
t2=now
End If
Goto abcc
Delay 2000
t1=now:t2=now:sj1=0.5:sj2=60
Rem abcc
Delay 20
If DateDiff("s",t1,now)>=sj1
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd, 83)
Delay 10
t1=now
End If
If DateDiff("s",t2,now)>=sj2
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd, 70)
t2=now
End If
Goto abcc
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询