下载地址： http://www.wingsofts.com/html_cn/
[翼南]库管王是一款通用性极强的仓库管理软件，满足了进销存的需求。软件 *** 作简单、功能实用，专为中小企业及个体私营者设计，适合多种行业使用。中国电脑教育报曾专门发表关于此软件的文章——《翼南库管王 管理好轻松》。主要功能：1、两级管理系统，设置管理员和录入员权限。2、软件支持入库、出库、生成报表等多项库管 *** 作流程，并可根据您的需要自定义 *** 作。
3、对货品资料提供分类管理功能。
4、提供出入库记录撤消功能，如果发现有输入错误的记录，可以利用撤消功能删除它。
5、提供对往来客户的基本资料的管理功能。
6、提供库存报警功能。高于上限或低于下限均可报警。
7、软件换肤功能，用户可选择自己喜欢的界面风格。
8、提供多种报表，库存报表、超限报表、客户资料报表、各种汇总表、明细表，入库表、出库表及毛利汇总表及每日、每月和每年的销售报表等；
9、提供多种图表，库存货品数量、价值图，每日、每月、每年销售汇总图，每种功能均支持8种不同形式图形显示。
10、提供打印及打印预览功能。对各种报表均提供打印及打印预览功能。
11、可以将列表窗口的内容导出，允许导出成txt或xls文件类型。
12、出入库货品及货品编号具备自动模糊查询功能，方便您选择货品。
13、允许入库单、出库单自定义打印格式。
14、出入库表单自动合计功能。
15、增加计算器、记事本链接功能。
16、支持单价、数量小数点位数自定义功能。
17、支持出入库记录单项自定义查询。
18、支持按单据查询、导入，补打印的功能。
19、支持批次号管理，每种货品可以有多个批次出入库，库存将分别计算。
20、库存盘点...
通过前面几篇 SQL语言教程 中，我们已说到这一篇要介绍的是Insert Into的另一种用法，也就是把检索出来的数据，批量添加到数据库中，其语法是：INSERT INTO 表格名1 (列名11,列名12, ...) SELECT 列名21, 列名22, ... FROM 表格名2
以上的语法是最基本的语法。在Select后，还可能含有 WHERE、 GROUP BY、 及 HAVING 等子句，以及表格连接及别名等等。与Select Into对比，Select Into中目标表名应该在数据库中是不存在的，而 Insert Into Select正好相反，其目标表名在数据库中一定要存在的。
下面的这个例子，是把出仓表中的所有的钢笔数据，添加到上一篇文章http://www.excelba.com/Art/Html/310.html 生成的临时表的数据库中，如果你没有看到上一篇文章，请运行上一篇文章的程序生成临时表后，再运行下面这段程序。
Sub 进销存表数据库中出仓表里检索的数据添加到已有的表()
'*******************************************
'时间：2008-10-21
'作者：bengdeng
'功能：在程序文件同一目录下进销存表数据库中出仓表里检索的数据生成新表
'注意：要在工具/引用中引用microsoft activex date objects x.x
' 其中x.x为版本号，可能会因为你安装的office的版本不同而不同，本例引用了2.5版
'发布：http://www.excelba.com
'*******************************************
Dim conn As ADODB.Connection
Dim WN As String
Dim OldTableName As String
Dim NewTableName As String
Dim sSql As String
Dim tStr As String
WN = "进销存表.mdb"
OldTableName = "出仓表"
NewTableName = "临时表"
tStr = "钢笔"
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0" &_
"Data Source=" &ThisWorkbook.Path &"\" &WN
conn.Open
If conn.State = adStateOpen Then
sSql = "Insert Into " &NewTableName &" Select * From " &OldTableName &" Where 物品名称='" &tStr &"'"
conn.Execute sSql
MsgBox "成功把“" &OldTableName &"”中的所有的“" &tStr &"”记录汇总到“" &NewTableName &"”中！", , "http://excelba.com"
conn.Close
End If
Set conn = Nothing
End Sub
因为上一篇文章生成的临时表与出仓表的结构是完全相同的，因此正如上面的例子，我们不需要列出NewTableName中列明细资料，而OldTableName的列的资料，我们也可以用*来表示！
那么，如果列名不一样，能不能导入呢？当列的数据类型一致时，还是可以导入的，下面的这段 *** 作Excel文件的程序，功能是把进仓表的毛笔数据，导入到临时表中，其中进仓表的进仓日期对应着临时表的出仓日期，进仓数量对应着出仓数量，代码如下：
Sub 进销存表文件中进仓表里检索的数据添加到已有的表()
'*******************************************
'时间：2008-10-21
'作者：bengdeng
'功能：在程序文件同一目录下进销存表文件中进仓表里检索的数据生成新表
'注意：要在工具/引用中引用microsoft activex date objects x.x
' 其中x.x为版本号，可能会因为你安装的office的版本不同而不同，本例引用了2.5版
'发布：http://www.excelba.com
'*******************************************
Dim conn As ADODB.Connection
Dim WN As String
Dim OldTableName As String
Dim NewTableName As String
Dim sSql As String
Dim tStr As String
WN = "进销存表.xls"
OldTableName = "进仓表"
NewTableName = "临时表"
tStr = "毛笔"
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0" &_
"Extended Properties=Excel 8.0" &_
"Data Source=" &ThisWorkbook.Path &"\" &WN
conn.Open
If conn.State = adStateOpen Then
sSql = "Insert Into [" &NewTableName &"$] (出仓日期,物品名称,出仓数量) " &_
"Select 进仓日期 As 出仓日期,物品名称,进仓数量 As 出仓数量 From [" &_
OldTableName &"$] Where 物品名称='" &tStr &"'"
conn.Execute sSql
MsgBox "成功把“" &OldTableName &"”中的所有的“" &tStr &"”记录汇总到“" &NewTableName &"”中！", , "http://excelba.com"
conn.Close
End If
Set conn = Nothing
End Sub
Insert Into Select就介绍完了，现在可以动手复制一下上面的代码，运行一下看一下效果吧*^_^*。
如果你不是从第一篇 SQL语言教程 看起，你需要到http://www.excelba.com/Soft/Html/119.html 下载文件，压缩文件包含三个文件，数据库文件——进销存表.mdb与Excel文件——进销存表.xls就是保存数据的文件，而主文件.xls就是主程序文件，以后大家的代码可以添加在这个文件的新模块里，然后再运行程序代码。
转载请注明:本文来自:Excel吧 (www.excelba.com) 详细出处参考：http://www.excelba.com/Art/Html/311.html
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）