这是一个java的企业宣传网站jsp源码 带sql数据库，导入到开发工具中运行测试

VB Access数据库的人事管理系统完整版源码，适合与公司、企业的人事管理软件源码，主要实现功能：处理员工档案、对企业日常进行考勤、统计员工工资、各个员工工作评价、员工部门转移、报表打印等。在VB6.0下完美编译运行，登录密码已初始化，软件带启动界面，整体感觉非常好，源码开源完整，在此推荐给大家学习和二次开发。

pyqt5有input界面，按钮，表格，连接数据库登陆，查找显示数据到表格中

省市级联 自动补全 带数据库 city省市级联 自动补全 带数据库 city输入：拼音 / 汉字 / 简拼 自动联想补全 无刷新 Ajax实现

深圳七彩印刷企业站(带下单,带数据库)，需要请下载

IC卡考勤管理系统，内带源代码，vb编程，自带数据库，用于各种办公

java项目

If Combo.Text = "" Then MsgBox "请选择加密方案", vbExclamation: Exit Sub '空狗 et99pid = "FFFFFFFF" et99pin = "FFFFFFFFFFFFFFFF" retcode = et_FindToken(et99pid, et99count) '查找加密狗 If retcode = 0 Then retcode = et_OpenToken(et99handle, et99pid, 1) '打开加密狗 retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN retcode = et_GenPID(et99handle, LenB(StrConv(et99seed, vbFromUnicode)), et99seed, et99pid) '设置硬件PID retcode = et_GenSOPIN(et99handle, Len("33102150"), "33102150", et99pin) '修改SOPIN retcode = et_ChangeUserPIN(et99handle, "FFFFFFFFFFFFFFFF", "1984011219840112") '修改USERPIN writestr = Format(Date, "YYYY-MM-DD") writearr = StrConv(writestr, vbFromUnicode) retcode = et_Write(et99handle, 0, Len(writestr), writearr(0)) '写入日期 retcode = et_CloseToken(et99handle) '关闭加密狗 MsgBox "加密狗设置成功，采用的方案：" & 产品名称, vbInformation Exit Sub End If '已经写过的狗 Call OpenEt99数据表 If Et99数据表.RecordCount <= 0 Then GoTo Er: For i = 0 To Et99数据表.RecordCount - 1 et99pid = Et99数据表("硬件PID") retcode = et_FindToken(et99pid, et99count) If retcode = 0 Then retcode = et_OpenToken(et99handle, et99pid, 1) '打开加密狗 et99pin = "FFFFFFFFFFFFFFFF" '可以修改成自己的SOPIN retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN If retcode 0 Then et99pin = "FFFFFFFFFFFFFFFF" retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN If retcode 0 Then GoTo Er: End If retcode = et_GenPID(et99handle, LenB(StrConv(et99seed, vbFromUnicode)), et99seed, et99pid) '设置硬件PID writestr = Format(Date, "YYYY-MM-DD") writearr = StrConv(writestr, vbFromUnicode) retcode = et_Write(et99handle, 0, Len(writestr), writearr(0)) '写入日期 retcode = et_CloseToken(et99handle) '关闭加密狗 MsgBox "加密狗设置成功，采用的方案：" & 产品名称, vbInformation Call CloseEt99数据表 Exit Sub End If Et99数据表.MoveNext Next i Er: Call CloseEt99数据表 MsgBox

在线健身管理系统带数据库.rar

这是刚学的时候自己做的一个小例子，希望对大家有帮助。