sysmain

说明：  一个Access 2007的财务管理小程序源代码～关于数据库应用的小尝试(a small test about the application of access database)

适合企业使用的考勤系统，可以记录每个员工的考勤情况。(Attendance system for business use, you can record each employee' s attendance.)

是关于培训档案的文档，基于access编写，解除繁琐培训记录的困扰(Is about the training file document, based on access to write to relieve distress tedious training records)

说明：  此压缩文件包含2002年-2017年200多个地级市资本存量的数据，里面有详细的计算过程与说明。(This document contains the capital stock data of more than 200 cities in 2002-2017, including detailed calculation process and description, which is convenient for scholars to understand and master)

VisualBasic实现EXCEL数据的批量导入,(EXCEL data batch import to mdb based on VB)

这是ACCESS的数据库编程文件，可以容易的用在MFC，VC,DELPH等工程环境(ACCESS ADO DATABASE ,MFC VS2008 AND VS2010)

这是一款用MFC ADO编写的数据库软件，它可以实现对ACCESS数据库的打开，添加，修改，保存，排序得一系列的功能。它利用ListCtl进行显示(This is a MFC ADO with the preparation of the database software, it can be open to the ACCESS database, add, modify, save, sort a series of functions. It uses ListCtl display)

说明：  PowerBuilder的一些实例，适合初学者学习使用(Learning source code)

1. 采用BP神经网络设计男女生分类器。采用的特征包括身高、体重、是否喜欢数学、是否喜欢文学、是否喜欢运动共五个特征，BP神经网络包含一个隐层，隐层结点数为5。要求：自行编写代码完成后向传播算法，采用交叉验证的方式实现对于性能指标的评判（包含SE,SP,ACC和AUC，AUC的计算可以基于平台的软件包）。(. using BP neural network to design the classifier for male and female students. The features include height, weight, whether they like mathematics, whether they like literature, and whether they like sports. The BP neural network contains a hidden layer, and the number of hidden nodes is five (5). Requirements: self compiled code, post propagation algorithm, cross validation method to achieve performance evaluation (including SE, SP, ACC and AUC, AUC calculation can be based on platform software package).)

以G列分成多个工作表(以宏运行VBA) (Sub aa() Dim a As Integer, b As Integer, c As Integer, sh As Worksheet For a = 2 To [g65536].End(3).Row If Cells(a, 7) <> Cells(a- 1, 7) Then b = a End If c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row Set sh = Sheets.Add(, Sheets(Sheets.Count)) sh.Name = Sheets("sheet1").Cells(a, 7).Value With Sheets("Sheet1") Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2] Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1] a = c End With Sheets("Sheet1").Select Next End Sub )