本色概要【SVDVD-008】イカせ！潮！潮！潮！そして黒人FUCK！2 ひなの2007-08-04サディスティックヴィレッジ&$サディス138分钟

录入、保存入库明细、打印入库单动态添加数据考证日历控件录入日历TextBox搭配ListBox控件，无极搜索、遴荐录入物料明细

大家好，我是冷水沏茶。

前几天在论坛上看到一个乞助贴，好多年过去的旧贴了：

录入、保存入库明细

诸君坛友周末好：

现把入库单上的入库信息汇总到活水帐记载表中。

1、单子号：RK+年月日+001（001为单子活水号）--到下一年从零再行计。

2、序号按品号递加

3、点保存后，本札记载信息（如第二责任表）保存到"汇总入库单记载"

4、本入库单有上百条物料，输入完成后，在D列行末自动填上系数和汇总额（如黄色单位格）

5、汇总入库单记载中少见据的区域自动添加边框。

6、点打印后，本入库单到行底（端庄东谈主）自动打印。

西西掰阴艺术

烦请大神见教，感谢！   

 进出库方面的需求仍是比拟多的，一直想作念一个进销存、进出库方面的诓骗，然而嗅觉责任量比拟大，一直也没随机代与决心去作念。

今天这个案例应该属于进出库当中的一小块本色，这两天花了点时代，基本完成一个框架，有点粗陋，咱们沿途来看一下。

1、入库单表，是一个录入数据的模板：

图片

2、入库明细表，保存入库明细数据，我修改了责任表名，删除原表头，把它酿成一个表率的二维表：

图片

3、物料表：这是我添加的，原本的需求中并莫得提供这张表。

图片

还有一些表，除了供应商，其余类别、业务员、仓库齐是我添加的，倡导是在录入日库单的时候不错遴荐录入。

需求难度不算大，我准备用ADO数据流畅来科罚查询、添加明细记载等。

想路与功能阐明：

1、在录入入库单的时候，供应商、类别、业务员、仓库齐通过SQL查询对应的表中的记载，添加相应单位格的数据考证，供遴荐输入。2、录入商品明细，咱们选择TextBox+listBox来遴荐输入，不错无极搜索。3、咱们录入完成后，点保存，把数据更新到“入库明细表”中，选择更新记载集的边幅。保存完之后，不错打印责任表，这个莫得写什么代码，胜利打印责任表4、点“保存并打印”则保存数据并打印责任表。。5、点新增，把入库单物料数据区域清空，单子号+1。6、点新号，凭据入库日历，刷新为最新的空缺单子号。7、入库日历，咱们把【日历控件】整合进来，点击录入日历，一般会自动更新单子号，我说一般，原因是随机候更新不行功，再者原因，是因为咱们把查询入库单功能整合在这张表单里，而当咱们查询已有入库单时，会把该单子号的入库日历写到入库单表的入库日历中，也会触发责任表Change事件。咱们通过一个变量blnUpdateOrderNo来记载是咱们手工录入日历，仍是查询入库单时填入日历，若是是前者就触发更新单子号，后者就不更新。随机候blnUpdateOrderNo的值并不是预期的值。8、已保存入库单查询：咱们点击H列单子号，会自动查询已有单子号，并添加到H3单位格的数据考证，点选一个单子号，则把该单子号的数据查询过来，不错打印责任表，结束补打入库单的功能。9、咱们竖立一个“解除”按钮，不错解除临了一溜记载。10、可能还有一些其他功能，不再细说。

图片

VBA代码

代码详见第二条推文。

跋文：【SVDVD-008】イカせ！潮！潮！潮！そして黒人FUCK！2 ひなの2007-08-04サディスティックヴィレッジ&$サディス138分钟

1、本案例的打算数据库是现时文献，也不错单独竖立一个Excel文献手脚数据库，若是要改为Access数据库也很便捷，虽说不上无缝无间，但也只需要很少的篡改，修改数据库文献与数据表称呼即可。2、本案例录入表单是在Excel表中，输入比拟便捷，但限制起来有点辛劳，我仍是比拟倾向于用户窗体。3、默许入库单行数固定不变，莫得考虑行数增减的情况。4、由于时代急忙中，有一些出奇情况莫得考虑到，可能会有不少报错的情况，有契机再渐渐鬈曲吧。好，今天就到这，咱们下期重逢。~~~~~~End~~~~~~ 本站仅提供存储管事，系数本色均由用户发布，如发现存害或侵权本色，请点击举报。