仓库代码
SAP仓库管理代码大全
WM Transaction Code 仓库管理模块事务代码大全1.1 LE-WM 仓库管理 Warehouse Management仓库管理事务码描述LB01 Create Transfer Requirement 创建转储需求LB02 Change transfer requirement 修改转储需求LB03 Display Transfer Requirement 显示转储需求LB10 TRs for Storage Type 按仓储类型的转储请求LB11 TRs for Material 物料转储请求LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求LD10 Clear decentralized inventory diff. 清除分散的库存差异LD11 Clear differences for decentral.sys. 清除分散系统的差异LI01 Create System Inventory Record 创建系统库存记录LI02 Change System Inventory Record 修改系统库存记录LI03 Display System Inventory Record 显示系统库存记录LI04 Print System Inventory Record 打印系统库存记录LI05 Inventory History for Storage Bin 仓位的库存历史LI06 Block stor.types for annual invent. 冻结年库存仓储类型LI11 Enter Inventory Count 输入库存盘点LI12 Change inventory count 修改库存盘点LI13 Display Inventory Count 显示库存盘点数LI14 Start Inventory Recount 库存重新盘点开始LI20 Clear Inventory Differences WM 清除库存差异仓库管理WMLI21 Clear Inventory Differences in MM-IM 清除 MM-IM 中的库存差额LL01 Warehouse Activity Monitor 仓库活动监控LLVS WM Menu 仓库管理菜单LN01 Number Ranges for Transfer Requirem. 转储需求编号范围LN02 Number Ranges for Transfer Orders 转储单编号范围LN03 Number Ranges for Quants 数量编号范围LN04 Number Ranges for Posting Changes 修改的数字范围记帐LN05 Number Ranges for Inventory 存货的编号范围LN06 Number Ranges for Reference Number 参考号编号范围LN08 Number Range Maintenance: LVS_LENUM 编号范围维护: LVS_LENUMLP10 Direct picking for PO 直接为采购单(PO)分检LP11 WM staging of crate parts WM 装箱部件待运LP12 Staging release order parts (WM-PP) 待运下达订单零件LP21 WM replenishment for fixed bins WM 固定仓位补充LP22 Replenishm. Planning for Fixed Bins 补充。
SAP仓库管理代码大全
WM Transaction Code 仓库管理模块事务代码大全1.1 LE-WM 仓库管理 Warehouse Management仓库管理事务码描述LB01 Create Transfer Requirement 创建转储需求LB02 Change transfer requirement 修改转储需求LB03 Display Transfer Requirement 显示转储需求LB10 TRs for Storage Type 按仓储类型的转储请求LB11 TRs for Material 物料转储请求LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求LD10 Clear decentralized inventory diff. 清除分散的库存差异LD11 Clear differences for decentral.sys. 清除分散系统的差异LI01 Create System Inventory Record 创建系统库存记录LI02 Change System Inventory Record 修改系统库存记录LI03 Display System Inventory Record 显示系统库存记录LI04 Print System Inventory Record 打印系统库存记录LI05 Inventory History for Storage Bin 仓位的库存历史LI06 Block stor.types for annual invent. 冻结年库存仓储类型LI11 Enter Inventory Count 输入库存盘点LI12 Change inventory count 修改库存盘点LI13 Display Inventory Count 显示库存盘点数LI14 Start Inventory Recount 库存重新盘点开始LI20 Clear Inventory Differences WM 清除库存差异仓库管理WMLI21 Clear Inventory Differences in MM-IM 清除 MM-IM 中的库存差额LL01 Warehouse Activity Monitor 仓库活动监控LLVS WM Menu 仓库管理菜单LN01 Number Ranges for Transfer Requirem. 转储需求编号范围LN02 Number Ranges for Transfer Orders 转储单编号范围LN03 Number Ranges for Quants 数量编号范围LN04 Number Ranges for Posting Changes 修改的数字范围记帐LN05 Number Ranges for Inventory 存货的编号范围LN06 Number Ranges for Reference Number 参考号编号范围LN08 Number Range Maintenance: LVS_LENUM 编号范围维护: LVS_LENUMLP10 Direct picking for PO 直接为采购单(PO)分检LP11 WM staging of crate parts WM 装箱部件待运LP12 Staging release order parts (WM-PP) 待运下达订单零件LP21 WM replenishment for fixed bins WM 固定仓位补充LP22 Replenishm. Planning for Fixed Bins 补充。
SAP仓库管理代码大全
WM Transaction Code 仓库管理模块事务代码大全1.1 LE-WM 仓库管理 Warehouse Management仓库管理事务码描述LB01 Create Transfer Requirement 创建转储需求LB02 Change transfer requirement 修改转储需求LB03 Display Transfer Requirement 显示转储需求LB10 TRs for Storage Type 按仓储类型的转储请求LB11 TRs for Material 物料转储请求LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求LD10 Clear decentralized inventory diff. 清除分散的库存差异LD11 Clear differences for decentral.sys. 清除分散系统的差异LI01 Create System Inventory Record 创建系统库存记录LI02 Change System Inventory Record 修改系统库存记录LI03 Display System Inventory Record 显示系统库存记录LI04 Print System Inventory Record 打印系统库存记录LI05 Inventory History for Storage Bin 仓位的库存历史LI06 Block stor.types for annual invent. 冻结年库存仓储类型LI11 Enter Inventory Count 输入库存盘点LI12 Change inventory count 修改库存盘点LI13 Display Inventory Count 显示库存盘点数LI14 Start Inventory Recount 库存重新盘点开始LI20 Clear Inventory Differences WM 清除库存差异仓库管理WMLI21 Clear Inventory Differences in MM-IM 清除 MM-IM 中的库存差额LL01 Warehouse Activity Monitor 仓库活动监控LLVS WM Menu 仓库管理菜单LN01 Number Ranges for Transfer Requirem. 转储需求编号范围LN02 Number Ranges for Transfer Orders 转储单编号范围LN03 Number Ranges for Quants 数量编号范围LN04 Number Ranges for Posting Changes 修改的数字范围记帐LN05 Number Ranges for Inventory 存货的编号范围LN06 Number Ranges for Reference Number 参考号编号范围LN08 Number Range Maintenance: LVS_LENUM 编号范围维护: LVS_LENUMLP10 Direct picking for PO 直接为采购单(PO)分检LP11 WM staging of crate parts WM 装箱部件待运LP12 Staging release order parts (WM-PP) 待运下达订单零件LP21 WM replenishment for fixed bins WM 固定仓位补充LP22 Replenishm. Planning for Fixed Bins 补充。
(完整word版)SAP仓库管理代码大全
WM Transaction Code 仓库管理模块事务代码大全1.1 LE-WM 仓库管理 Warehouse Management仓库管理事务码描述LB01 Create Transfer Requirement 创建转储需求LB02 Change transfer requirement 修改转储需求LB03 Display Transfer Requirement 显示转储需求LB10 TRs for Storage Type 按仓储类型的转储请求LB11 TRs for Material 物料转储请求LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求LD10 Clear decentralized inventory diff. 清除分散的库存差异LD11 Clear differences for decentral.sys. 清除分散系统的差异LI01 Create System Inventory Record 创建系统库存记录LI02 Change System Inventory Record 修改系统库存记录LI03 Display System Inventory Record 显示系统库存记录LI04 Print System Inventory Record 打印系统库存记录LI05 Inventory History for Storage Bin 仓位的库存历史LI06 Block stor.types for annual invent. 冻结年库存仓储类型LI11 Enter Inventory Count 输入库存盘点LI12 Change inventory count 修改库存盘点LI13 Display Inventory Count 显示库存盘点数LI14 Start Inventory Recount 库存重新盘点开始LI20 Clear Inventory Differences WM 清除库存差异仓库管理WMLI21 Clear Inventory Differences in MM-IM 清除 MM-IM 中的库存差额LL01 Warehouse Activity Monitor 仓库活动监控LLVS WM Menu 仓库管理菜单LN01 Number Ranges for Transfer Requirem. 转储需求编号范围LN02 Number Ranges for Transfer Orders 转储单编号范围LN03 Number Ranges for Quants 数量编号范围LN04 Number Ranges for Posting Changes 修改的数字范围记帐LN05 Number Ranges for Inventory 存货的编号范围LN06 Number Ranges for Reference Number 参考号编号范围LN08 Number Range Maintenance: LVS_LENUM 编号范围维护: LVS_LENUMLP10 Direct picking for PO 直接为采购单(PO)分检LP11 WM staging of crate parts WM 装箱部件待运LP12 Staging release order parts (WM-PP) 待运下达订单零件LP21 WM replenishment for fixed bins WM 固定仓位补充LP22 Replenishm. Planning for Fixed Bins 补充。
仓库管理系统代码大全
系统主函数（program.cs）using System;using System.Collections.Generic;using System.Windows.Forms;namespace warehouse{static class Program{/// <summary>/// 应用程序的主入口点。
/// </summary>[STAThread]static void Main(){Application.EnableVisualStyles();Application.SetCompatibleTextRenderingDefault(false);Application.Run(new frmLogin());//运行一个登陆对象}}}集的常规信息using System.Reflection;using pilerServices;using System.Runtime.InteropServices;// 有关程序集的常规信息通过下列属性集// 控制。
更改这些属性值可修改// 与程序集关联的信息。
[assembly: AssemblyTitle("warehouse")][assembly: AssemblyDescription("")][assembly: AssemblyConfiguration("")][assembly: AssemblyCompany("")][assembly: AssemblyProduct("warehouse")][assembly: AssemblyCopyright("所有2009")][assembly: AssemblyTrademark("")][assembly: AssemblyCulture("")]// 将ComVisible 设置为false 使此程序集中的类型// 对COM 组件不可见。
仓库管理系统代码大全
系统主函数（program.cs）using System;using System.Collections.Generic;using System.Windows.Forms;namespace warehouse{static class Program{/// <summary>/// 应用程序的主入口点。
/// </summary>[STAThread]static void Main(){Application.EnableVisualStyles();Application.SetCompatibleTextRenderingDefault(false); Application.Run(new frmLogin());//运行一个登陆对象}}}集的常规信息using System.Reflection;using System.Runtime pilerServices;using System.Runtime.InteropServices;// 有关程序集的常规信息通过下列属性集// 控制。
更改这些属性值可修改// 与程序集关联的信息。
[assembly: AssemblyTitle("warehouse")][assembly: AssemblyDescription("")][assembly: AssemblyConfiguration("")][assembly: AssemblyCompany("")][assembly: AssemblyProduct("warehouse")][assembly: AssemblyCopyright("所有 2009")][assembly: AssemblyTrademark("")][assembly: AssemblyCulture("")]// 将 ComVisible 设置为 false 使此程序集中的类型// 对 COM 组件不可见。
SAP仓库管理代码大全
WM Transaction Code 仓库管理模块事务代码大全1.1 LE-WM 仓库管理Warehouse Management仓库管理事务码描述LB01 Create Transfer Requirement 创建转储需求LB02 Change transfer requirement 修改转储需求LB03 Display Transfer Requirement 显示转储需求LB10 TRs for Storage Type 按仓储类型的转储请求LB11 TRs for Material 物料转储请求LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求LD10 Clear decentralized inventory diff. 清除分散的库存差异LD11 Clear differences for decentral.sys. 清除分散系统的差异LI01 Create System Inventory Record 创建系统库存记录LI02 Change System Inventory Record 修改系统库存记录LI03 Display System Inventory Record 显示系统库存记录LI04 Print System Inventory Record 打印系统库存记录LI05 Inventory History for Storage Bin 仓位的库存历史LI06 Block stor.types for annual invent. 冻结年库存仓储类型LI11 Enter Inventory Count 输入库存盘点LI12 Change inventory count 修改库存盘点LI13 Display Inventory Count 显示库存盘点数LI14 Start Inventory Recount 库存重新盘点开始LI20 Clear Inventory Differences WM 清除库存差异仓库管理WMLI21 Clear Inventory Differences in MM-IM 清除MM-IM 中的库存差额LL01 Warehouse Activity Monitor 仓库活动监控LLVS WM Menu 仓库管理菜单LN01 Number Ranges for Transfer Requirem. 转储需求编号范围LN02 Number Ranges for Transfer Orders 转储单编号范围LN03 Number Ranges for Quants 数量编号范围LN04 Number Ranges for Posting Changes 修改的数字范围记帐LN05 Number Ranges for Inventory 存货的编号范围LN06 Number Ranges for Reference Number 参考号编号范围LN08 Number Range Maintenance: LVS_LENUM 编号范围维护: LVS_LENUM LP10 Direct picking for PO 直接为采购单(PO)分检LP11 WM staging of crate parts WM 装箱部件待运LP12 Staging release order parts (WM-PP) 待运下达订单零件LP21 WM replenishment for fixed bins WM 固定仓位补充LP22 Replenishm. Planning for Fixed Bins 补充。
仓库管理系统源代码
#define MODE "rb+"#include <stdio.h>#include <stdlib.h>#include <string.h>int function2();int check(char name2[20],int number2,char brand2[20],char manufacturer2[20],int quantity2,int price2,int total2);int function3();int function4();int function1() //generate a file{FILE *fp;system("del C:\\bigday.dat");fp=fopen("C:\\bigday.dat","wb");printf("\t\t\t----------------------------------------\n");printf("\t\t\t* *\n");printf("\t\t\t*仓库物资库存管理系统*\n");printf("\t\t\t* *\n");printf("\t\t\t* 欢迎进入*\n");printf("\t\t\t* 按任意键继续*\n");printf("\t\t\t----------------------------------------\n");getchar(); g etchar();fclose(fp);return 0;}int function2() //input the data{FILE *fp1,*fp2;if((fp1=fopen("C:\\bigday.dat",MODE))==0){printf("C:\\bigday.dat error");exit(1);}if((fp2=fopen("C:\\TEPM.dat","wb+"))==0){printf("C:\\TEPM.dat error");exit(1);}char name[20],name2[20];int number,number2;char brand[20],brand2[20];char manufacturer[20],manufacturer2[20];int quantity,quantity2;int price,price2;int total,total2;char tell;int i;char ch;ch=fgetc(fp1);if(ch==EOF){printf("\n");printf("\t\t\t----------------------------------------\n");printf("\t\t\t* *\n");printf("\t\t\t*仓库物资库存管理系统*\n");printf("\t\t\t* *\n");printf("\t\t\t* 继续添加*\n");printf("\t\t\t----------------------------------------\n");printf("\n请依次输入：商品的名称、型号、品牌、生产厂家，数量，价格。
SAP仓库管理代码大全
WM Transaction Code 仓库管理模块事务代码大全LE-WM 仓库管理Warehouse Management仓库管理事务码描述LB01 Create Transfer Requirement 创建转储需求LB02 Change transfer requirement 修改转储需求LB03 Display Transfer Requirement 显示转储需求LB10 TRs for Storage Type 按仓储类型的转储请求LB11 TRs for Material 物料转储请求LB12 TRs and Posting Change for .转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求LD10 Clear decentralized inventory diff.清除分散的库存差异LD11 Clear differences for .清除分散系统的差异LI01 Create System Inventory Record 创建系统库存记录LI02 Change System Inventory Record 修改系统库存记录LI03 Display System Inventory Record 显示系统库存记录LI04 Print System Inventory Record 打印系统库存记录LI05 Inventory History for Storage Bin 仓位的库存历史LI06 Block for annual invent.冻结年库存仓储类型LI11 Enter Inventory Count 输入库存盘点LI12 Change inventory count 修改库存盘点LI13 Display Inventory Count 显示库存盘点数LI14 Start Inventory Recount 库存重新盘点开始LI20 Clear Inventory Differences WM 清除库存差异仓库管理WMLI21 Clear Inventory Differences in MM-IM 清除MM-IM 中的库存差额LL01 Warehouse Activity Monitor 仓库活动监控LLVS WM Menu 仓库管理菜单LN01 Number Ranges for Transfer Requirem.转储需求编号范围LN02 Number Ranges for Transfer Orders 转储单编号范围LN03 Number Ranges for Quants 数量编号范围LN04 Number Ranges for Posting Changes 修改的数字范围记帐LN05 Number Ranges for Inventory 存货的编号范围LN06 Number Ranges for Reference Number 参考号编号范围LN08 Number Range Maintenance: LVS_LENUM 编号范围维护: LVS_LENUM LP10 Direct picking for PO 直接为采购单(PO)分检LP11 WM staging of crate parts WM 装箱部件待运LP12 Staging release order parts (WM-PP)待运下达订单零件LP21 WM replenishment for fixed bins WM 固定仓位补充LP22 Replenishm. Planning for Fixed Bins 补充。
SAP仓库管理代码大全讲解学习
S A P仓库管理代码大全WM Transaction Code 仓库管理模块事务代码大全1.1 LE-WM 仓库管理 Warehouse Management仓库管理事务码描述LB01 Create Transfer Requirement 创建转储需求LB02 Change transfer requirement 修改转储需求LB03 Display Transfer Requirement 显示转储需求LB10 TRs for Storage Type 按仓储类型的转储请求LB11 TRs for Material 物料转储请求LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求LD10 Clear decentralized inventory diff. 清除分散的库存差异LD11 Clear differences for decentral.sys. 清除分散系统的差异LI01 Create System Inventory Record 创建系统库存记录LI02 Change System Inventory Record 修改系统库存记录LI03 Display System Inventory Record 显示系统库存记录LI04 Print System Inventory Record 打印系统库存记录LI05 Inventory History for Storage Bin 仓位的库存历史LI06 Block stor.types for annual invent. 冻结年库存仓储类型LI11 Enter Inventory Count 输入库存盘点LI12 Change inventory count 修改库存盘点LI13 Display Inventory Count 显示库存盘点数LI14 Start Inventory Recount 库存重新盘点开始LI20 Clear Inventory Differences WM 清除库存差异仓库管理WMLI21 Clear Inventory Differences in MM-IM 清除 MM-IM 中的库存差额LL01 Warehouse Activity Monitor 仓库活动监控LLVS WM Menu 仓库管理菜单LN01 Number Ranges for Transfer Requirem. 转储需求编号范围LN02 Number Ranges for Transfer Orders 转储单编号范围LN03 Number Ranges for Quants 数量编号范围LN04 Number Ranges for Posting Changes 修改的数字范围记帐LN05 Number Ranges for Inventory 存货的编号范围LN06 Number Ranges for Reference Number 参考号编号范围LN08 Number Range Maintenance: LVS_LENUM 编号范围维护: LVS_LENUMLP10 Direct picking for PO 直接为采购单(PO)分检LP11 WM staging of crate parts WM 装箱部件待运LP12 Staging release order parts (WM-PP) 待运下达订单零件LP21 WM replenishment for fixed bins WM 固定仓位补充LP22 Replenishm. Planning for Fixed Bins 补充。
仓库标准代码说明
仓库标准代码说明一、零部件仓库代码说明：1、零部件代码组成：零部件型号+零部件用途+零部件图号+材质及特殊性标识四部分组成。
2、说明：1）零部件型号：为零部件的规格型号（所属泵）。
2）零部件用途为：01表示成装用零部件02表示总装用零部件3）零部件图号：为零部件的图纸序号。
4）材质及特殊性标识：用于表示零部件材质及特殊性，如01表示普通类材质，02表示铜材类，03表示不锈钢类，04以后表示特殊性情况。
3、例子：表示材质表示零部件图纸序号表示为成装用零部件表示零部件型号二、电机仓库代码说明：1、电机代码组成：电机类型+电机极数+电机特殊性+“-”+电机功率2、说明：1）电机类型：用来表示电机的类型，如01表示普通电机02表示船检电机03表示防爆电机04表示减速电机05表示直流电机06表示特殊电机2）电机极数：表示电机的极数，如02表示2极04表示4极06表示6极08表示8极3）电机特殊性：表示电机的特殊性，如01普通型02表示IP54型03表示户外型04表示变频型05表示电压特殊型等4）电机功率：表示电机的功率，如0.75表示0.75kW，1.5表示1.5kW。
3、例子：表示电机的功率表示电机的特殊性表示电机的极数表示电机类型三、钢材代码说明：1、钢材代码组成：钢材类别+钢材材质+“-”+钢材型号2、说明：1）钢材类别：用于区别钢材的种类，如01表示普通圆钢类02表示铜材类03表示不锈钢类04特殊材料类05表示钢板类06表示管材类07槽钢类08表示角铁类2）钢材材质：用于区别钢材的材质，如01表示45#钢02表示40Cr钢03表示A3钢04表示35钢05表示黄铜06表示紫铜07表示1Cr18Ni9Ti 08表示316 09表示304 10表示3Cr13 11表示Cr12MOV 12表示35CrMo 13表示16MnCrS5 14表示38CrMoAl 15表示T10 16表示铝17表示Q235-A3、例子：01 01 ——20表示钢材的型号表示钢材的材质表示钢材的类别四、标准件代码说明：1、标注件代码组成：标注件大类+标准件小类+标准件材质及特殊性+“-”+标准件型号2、说明：1）标准件大类：用于划分标准件的大类别，如01表示螺栓类02表示螺母类等2）标准件小类：用于划分标准件大类中的详细类别，如螺栓类中的01表示六角头螺栓02表示六角头螺杆带孔螺栓等3）表示材质及特殊性：用于标识标准件的材质，如01表示普通材质02表示镀锌03表示不锈钢等3、例子：01 01 01 ——M10X20标准件规格型号标准件材质及特殊性标准件细类标准件类别4、标准件代码细类一览表五、整机代码：整机的代码采用整机的型号。
仓库管理系统-源代码 -VB编程毕业设计
材料入库模块源代码如下:Private Sub Command1_Click()If Text1.Text <> "" And Text2.Text <> "" And DTPicker1.Value <> "" And Text4.Text <> "" And Text5.Text <> "" And DataCombo1.Text <> "" And Text7.Text <> "" ThenAdodc1.RefreshAdodc2.RecordSource = "select * from 库存材料清单where 材料号='" & Text1.Text & "'" Adodc2.RefreshIf Adodc2.Recordset.BOF Thenmsg$ = "确定要添加该记录吗？"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "添加记录")If ans = vbOK ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = CStr(DTPicker1.V alue)Adodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = Text5.TextAdodc1.Recordset.Fields(5) = DataCombo1.TextAdodc1.Recordset.Fields(6) = Text7.TextAdodc1.Recordset.Fields(7) = Text8.TextAdodc1.Recordset.UpdateMsgBox ("保存成功！！*_*")End IfElse MsgBox "材料号不能重复,该材料号已存在！！", 48, "警告"End IfElse MsgBox "资料输入不全,请重新输入！！", 64, "提示"End IfText1.SetFocusText1.Text = ""Text2.Text = ""Text4.Text = ""Text5.Text = ""DataCombo1.Text = ""Text7.Text = ""Text8.Text = ""End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text4.Text = ""Text5.Text = ""DataCombo1.Text = ""Text7.Text = ""Text8.Text = ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "库存材料清单"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc3.ConnectionString = adoAdodc3.RecordSource = "gysxx"Adodc3.RefreshEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text ThenMsgBox "该材料号已经存在,请重新输入！！", 48, "提示"Text1.Text = ""End IfAdodc1.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Text7_GotFocus()If Not Adodc3.Recordset.BOF ThenAdodc3.Recordset.MoveFirstWhile Not Adodc3.Recordset.EOFIf Adodc3.Recordset.Fields(0) = DataCombo1.Text ThenText7.Text = Adodc3.Recordset.Fields(1)End IfAdodc3.Recordset.MoveNextWendEnd IfEnd Sub库存管理模块源代码如下:Dim sql As StringPrivate Sub Command1_Click()If DataCombo1.Text = "" And DataCombo2.Text = "" And DataCombo3.Text = "" Then MsgBox "请在组合框中输入你要查询的内容！！", 64, "提示"ElseIf DataCombo1.Text = "" And DataCombo2.Text = "" And DataCombo3.Text <> "" Thensql = "select * from 库存材料清单where 供应商号= '" & DataCombo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text = "" And DataCombo2.Text <> "" And DataCombo3.Text = "" Thensql = "select * from 库存材料清单where 进货日期='" & DataCombo2.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text = "" And DataCombo2.Text <> "" And DataCombo3.Text <> "" Then sql = "select * from 库存材料清单where 进货日期='" & DataCombo2.Text & "' and 供应商号='" & DataCombo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text <> "" And DataCombo2.Text = "" And DataCombo3.Text = "" Thensql = "select * from 库存材料清单where 材料号='" & DataCombo1.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text <> "" And DataCombo2.Text = "" And DataCombo3.Text <> "" Then sql = "select * from 库存材料清单where 材料号='" & DataCombo1.Text & "' and 供应商号='" & DataCombo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text <> "" And DataCombo2.Text <> "" And DataCombo3.Text = "" Then sql = "select * from 库存材料清单where 材料号='" & DataCombo1.Text & "' and 进货日期='" & DataCombo2.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text <> "" And DataCombo2.Text <> "" And DataCombo3.Text <> "" Then sql = "select * from 库存材料清单where 材料号='" & DataCombo1.Text & "' and 进货日期='" & DataCombo2.Text & "' and 供应商号='" & DataCombo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshEnd IfIf Adodc1.Recordset.BOF ThenMsgBox "对不起,该库存不存在！！", 64, "提示"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand3.Caption = "锁定"MsgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand3.Caption = "修改"MsgBox "您进入锁定状态！"End IfEnd SubPrivate Sub Command4_Click()msg$ = "确定要删除该库存材料记录吗？"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "库存材料清单"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "库存材料清单"Adodc2.RefreshIf er_type <> 1 ThenCommand3.Enabled = FalseCommand4.Enabled = FalseEnd IfEnd Sub美容项目定义模块源代码如下:Private Sub Command1_Click()If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" ThenAdodc2.RecordSource = "select * from 美容项目定义表where 美容项目编号='" & Text1.Text & "'"Adodc2.RefreshIf Adodc2.Recordset.BOF ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.UpdateElseMsgBox "该美容项目编号已存在！！", 48, "警告"End IfElseMsgBox "资料输入不全,请重新输入！！", 64, "提示"End IfText1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()msg$ = "确定要删除该美容项目吗？"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录") If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand5.Caption = "锁定"MsgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand5.Caption = "修改"MsgBox "您进入锁定状态！"End IfEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text ThenMsgBox "该美容项目编号已经存在,请重新输入！！", 48, "提示"Text1.Text = ""End IfAdodc1.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "美容项目定义表"Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub美容项目查询模块源代码如下:Private Sub Command1_Click()If DataCombo1.Text = "" ThenMsgBox ("输入不能为空！！")ElseAdodc2.RecordSource = "select * from 美容项目定义表where 美容项目名称='" & DataCombo1.Text & "'"Adodc2.RefreshDataGrid1.Columns(0).Width = 120XXDataGrid1.Columns(1).Width = 120XXDataGrid1.Columns(2).Width = 120XXEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "美容项目定义表"Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub来车登记模块源代码如下:Dim sql As StringPrivate Sub Command1_Click()If DTPicker1.Value <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" And DataCombo1.Text <> "" Thenmsg$ = "确定要添加该登记吗？"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "添加登记")If ans = vbOK ThenAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = DataCombo1.TextAdodc1.Recordset.Fields(5) = Text5.TextAdodc1.Recordset.UpdateMsgBox ("成功登记！！~-~")ElseExit SubEnd IfDim sql As Stringsql = "select * from 车辆基本信息表where 车牌号码='" & Text2.Text & "'"Adodc3.RecordSource = sqlAdodc3.RefreshIf Adodc3.Recordset.BOF ThenAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(0) = Text2.TextAdodc2.Recordset.Fields(1) = Text3.TextAdodc2.Recordset.Fields(2) = Text4.TextAdodc2.Recordset.Fields(3) = Text5.TextAdodc2.Recordset.UpdateEnd IfElseMsgBox "资料输入不全,请重新输入！！", 64, "提示"End IfDTPicker1.SetFocusText2.Text = ""Text3.Text = ""Text4.Text = ""DataCombo1.Text = ""Text5.Text = ""End SubPrivate Sub Command2_Click()Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""DataCombo1.Text = ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "来车登记表"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "车辆基本信息表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc4.ConnectionString = adoAdodc4.RecordSource = "bmxx"Adodc4.RefreshEnd Sub车辆基本信息管理模块源代码如下:Private Sub Command1_Click()查询车辆基本信息.ShowEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()msg$ = "确定要删除该项信息吗？"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command4_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand4.Caption = "锁定"MsgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand4.Caption = "修改"MsgBox "您进入锁定状态！"End IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "车辆基本信息表"Adodc1.RefreshIf er_type <> 1 ThenCommand3.Enabled = FalseCommand4.Enabled = FalseEnd IfEnd Sub车辆美容信息管理模块源代码如下:Private Sub Command1_Click()Dim sum1, x, z As CurrencyDim y, n1, l, l1 As Longsum1 = 0n1 = 0l1 = 0If CStr(DTPicker1.Value) <> "" And Text2.Text <> "" And Text3.Text <> "" And DataCombo1.Text <> "" And DataCombo5.Text <> "" And DataCombo6.Text <> "" Then'修改库存材料清单Dim q, q1 As Longq1 = 0If Not Adodc5.Recordset.BOF ThenAdodc5.RefreshAdodc5.Recordset.MoveFirstWhile Not Adodc5.Recordset.EOFIf Adodc5.Recordset.Fields(0) = DataCombo5.Text And Adodc5.Recordset.Fields(1) = DataCombo6.Text Thenq1 = 1If Adodc5.Recordset.Fields(4) < CLng(Text3.Text) ThenMsgBox "这种材料的库存数量不够！！", 48, "警告"DataCombo5.Text = ""DataCombo6.Text = ""Text2.Text = ""Text3.Text = ""Exit SubElseq = Adodc5.Recordset.Fields(4)Adodc5.Recordset.Fields(4) = q - CLng(Text3.Text)Adodc5.Recordset.UpdateEnd IfEnd IfAdodc5.Recordset.MoveNextWendIf q1 = 0 ThenMsgBox "库存中没有这种材料！！", 48, "警告"End If'修改库存材料清单完毕End IfIf q1 = 1 ThenAdodc6.RefreshIf Not Adodc6.Recordset.BOF ThenAdodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOF '查找一下车辆用料信息表中是否存在这种材料If Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text And Adodc6.Recordset.Fields(2) = DataCombo5.Text And Adodc6.Recordset.Fields(3) = DataCombo6.Text And Adodc6.Recordset.Fields(4) = Text2.Text Thenl = Adodc6.Recordset.Fields(5)l1 = 1Adodc6.Recordset.Fields(5) = l + CLng(Text3.Text) '如果存在,只修改数量Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.MoveNextWendEnd IfIf l1 = 0 Then '如果不存在,则在车辆用料信息表中添加新记录Adodc6.Recordset.AddNewAdodc6.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc6.Recordset.Fields(1) = DataCombo1.TextAdodc6.Recordset.Fields(2) = DataCombo5.TextAdodc6.Recordset.Fields(3) = DataCombo6.TextAdodc6.Recordset.Fields(4) = Text2.TextAdodc6.Recordset.Fields(5) = Text3.TextAdodc6.Recordset.UpdateAdodc6.RefreshEnd IfIf Not Adodc9.Recordset.BOF ThenAdodc9.Refresh '在车辆消费信息表中添加该车辆的材料费Adodc9.Recordset.MoveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCombo1.Text Thenn1 = 1 '如果车辆消费信息表中存在当天该车的记录时Adodc6.Refresh '在车辆用料信息表中,计算该车的材料费Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysum1 = sum1 + zEnd IfAdodc6.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(3) = sum1Adodc9.Recordset.Fields(4) = sum1 + Adodc9.Recordset.Fields(2)Adodc9.Recordset.UpdateEnd IfAdodc9.Recordset.MoveNextWendEnd IfIf n1 = 0 Then '车辆消费信息表中无该车辆记录时Adodc9.Recordset.AddNew '向车辆消费信息表中添加材料费记录Adodc6.Refresh '车辆用料信息表Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysum1 = sum1 + zEnd IfAdodc6.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(3) = sum1Adodc9.Recordset.Fields(4) = sum1Adodc9.Recordset.Update '保存记录End IfEnd IfElseMsgBox "资料输入不全,请重新输入！！", 64, "提示"End IfDataCombo5.Text = ""DataCombo6.Text = ""Text2.Text = ""Text3.Text = ""DataCombo5.SetFocusEnd SubPrivate Sub Command2_Click()DataCombo1.Text = ""DataCombo2.Text = ""DataCombo3.Text = ""DataCombo4.Text = ""Unload MeEnd SubPrivate Sub Command3_Click()修改美容项目.ShowEnd SubPrivate Sub Command4_Click()Dim sum, x, z As CurrencyDim y, n As Longsum = 0 n = 0If DTPicker1.Value <> "" And DataCombo1.Text <> "" And DataCombo2.Text <> "" And DataCombo3.Text <> "" And DataCombo4.Text <> "" ThenAdodc4.Refresh '车辆美容信息登记表Adodc4.Recordset.AddNewAdodc4.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc4.Recordset.Fields(1) = DataCombo1.TextAdodc4.Recordset.Fields(2) = DataCombo4.TextAdodc4.Recordset.Fields(3) = DataCombo2.TextAdodc4.Recordset.Fields(4) = DataCombo3.TextAdodc4.Recordset.UpdateAdodc9.RefreshIf Not Adodc9.Recordset.BOF Then '判断一下表是否为空表Adodc9.RefreshAdodc9.Recordset.MoveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCombo1.Text Thenn = 1Adodc4.RefreshAdodc4.Recordset.MoveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCombo1.Text Thensum = sum + Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(2) = sumAdodc9.Recordset.Fields(4) = sum + Adodc9.Recordset.Fields(3)Adodc9.Recordset.Update '保存End IfAdodc9.Recordset.MoveNextWendEnd IfIf n = 0 ThenAdodc9.Recordset.AddNew '向车辆消费信息表中添加美容项目消费Adodc4.RefreshAdodc4.Recordset.MoveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCombo1.Text Thensum = sum + Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(2) = sumAdodc9.Recordset.Fields(4) = sumAdodc9.Recordset.Update '保存End IfElse MsgBox "资料输入不全,请重新输入！！", 64, "提示"End IfDataCombo2.Text = ""DataCombo3.Text = ""DataGrid1.Columns(0).Width = 1500DataGrid1.Columns(1).Width = 1500DataCombo2.SetFocusEnd SubPrivate Sub Command5_Click()修改用料.ShowEnd SubPrivate Sub Command6_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand6.Caption = "锁定"MsgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand6.Caption = "修改"MsgBox "您进入锁定状态！"End IfEnd SubPrivate Sub DataCombo2_GotFocus()Adodc7.RecordSource = "select 美容项目,价格from 车辆美容信息登记表where 日期='" & CStr(DTPicker1.Value) & "' and 车牌号码='" & DataCombo1.Text & "'"Adodc7.RefreshEnd SubPrivate Sub DataCombo5_GotFocus()Adodc8.RecordSource = "select 材料号,材料名称,单价,数量from 车辆用料信息表where 日期='" & CStr(DTPicker1.Value) & "' and 车牌号码='" & DataCombo1.Text & "'"Adodc8.RefreshDataGrid2.Columns(0).Width = 1000DataGrid2.Columns(1).Width = 1000DataGrid2.Columns(2).Width = 1000DataGrid2.Columns(3).Width = 1000End SubPrivate Sub DataCombo3_GotFocus()'查询美容项目定义表,美容价格随着美容项目的选择而变If Not Adodc2.Recordset.BOF ThenAdodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(1) = DataCombo2.Text ThenDataCombo3.Text = Adodc2.Recordset.Fields(2)End IfAdodc2.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub DataCombo6_GotFocus()If Not Adodc5.Recordset.BOF Then '根据填入的材料号,材料名称会自动出现Adodc5.Recordset.MoveFirstWhile Not Adodc5.Recordset.EOFIf Adodc5.Recordset.Fields(0) = DataCombo5.Text ThenDataCombo6.Text = Adodc5.Recordset.Fields(1)End IfAdodc5.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "车辆基本信息表"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "美容项目定义表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = "bmxx"Adodc3.RefreshAdodc4.ConnectionString = adoAdodc4.RecordSource = "车辆美容信息登记表"Adodc4.RefreshAdodc5.ConnectionString = adoAdodc5.RecordSource = "库存材料清单"Adodc5.RefreshAdodc6.ConnectionString = adoAdodc6.RecordSource = "车辆用料信息表"Adodc6.RefreshAdodc9.ConnectionString = adoAdodc9.RecordSource = "车辆消费信息表"Adodc9.RefreshIf er_type <> 1 ThenCommand3.Enabled = FalseCommand5.Enabled = FalseEnd IfEnd Sub修改美容项目模块源代码如下:Private Sub Command1_Click()Dim l, x, y As Longl = 0Adodc2.Refresh '在美容项目登记表中删除项目Adodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(0) = Text1.Text And Adodc2.Recordset.Fields(1) = DataCombo1.Text And Adodc2.Recordset.Fields(2) = DataCombo2.Text And Adodc2.Recordset.Fields(3) = DataCombo3.Text And Adodc2.Recordset.Fields(4) = DataCombo4.Text Thenl = 1y = Adodc2.Recordset.Fields(4)msg$ = "确定要删除该美容项目吗？"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc2.Recordset.DeleteAdodc2.Recordset.MoveNextAdodc2.Recordset.UpdateAdodc2.RefreshEnd IfDataGrid1.Columns(0).Width = 120XXDataGrid1.Columns(1).Width = 120XXDataGrid1.Columns(2).Width = 120XXDataGrid1.Columns(3).Width = 120XXDataGrid1.Columns(4).Width = 120XXEnd IfAdodc2.Recordset.MoveNextWendIf l = 0 Then '要删除的项目不存在时MsgBox ("数据库中没有您要删除的项目！！")End IfAdodc6.Refresh '修改车辆消费信息表中的人工费合计和总金额Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = Text1.Text And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(2)Adodc6.Recordset.Fields(2) = x - yAdodc6.Recordset.Fields(4) = Adodc6.Recordset.Fields(2) + Adodc6.Recordset.Fields(3)Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.MoveNextWendDataCombo2.Text = ""DataCombo3.Text = ""DataCombo4.Text = ""DataCombo2.SetFocusEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand3.Caption = "锁定"MsgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand3.Caption = "修改"MsgBox "您进入锁定状态！"End IfEnd SubPrivate Sub DataCombo2_GotFocus()Adodc1.RecordSource = "select * from 车辆美容信息登记表where 日期='" & Text1.Text & "' and 车牌号码='" & DataCombo1.Text & "'"Adodc1.RefreshEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc2.ConnectionString = adoAdodc2.RecordSource = "车辆美容信息登记表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = "车辆基本信息表"Adodc3.RefreshAdodc5.ConnectionString = adoAdodc5.RecordSource = "美容项目定义表"Adodc5.RefreshAdodc6.ConnectionString = adoAdodc6.RecordSource = "车辆消费信息表"Adodc6.Refresh'Text1.SetFocusEnd Sub修改用料模块源代码如下:Private Sub Command1_Click()Dim l, x, y, z, m, l1 As Longl = 0l1 = 0Adodc3.Refresh '在车辆用料信息表中删除信息If Not Adodc3.Recordset.BOF ThenAdodc3.Recordset.MoveFirstWhile Not Adodc3.Recordset.EOFIf Adodc3.Recordset.Fields(0) = Text1.Text And Adodc3.Recordset.Fields(1) = DataCombo1.Text And Adodc3.Recordset.Fields(2) = DataCombo2.Text And Adodc3.Recordset.Fields(3) = DataCombo3.Text And Adodc3.Recordset.Fields(4) = Text2.Text Thenl = 1z = Adodc3.Recordset.Fields(5)m = z - CLng(Text3.Text)If m > 0 Thenmsg$ = "确定要修改该用料信息吗？"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "修改记录")If ans = vbOK Thenl1 = 1Adodc3.Recordset.Fields(5) = mAdodc3.Recordset.UpdateAdodc3.Refreshy = Adodc3.Recordset.Fields(4) * CLng(Text3.Text)End IfElseIf m = 0 Thenmsg$ = "确定要删除该用料信息吗？"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK Thenl1 = 1y = Adodc3.Recordset.Fields(4) * CLng(Text3.Text)Adodc3.Recordset.DeleteAdodc3.Recordset.MoveNextAdodc3.RefreshEnd IfElseIf m < 0 ThenMsgBox ("您要删除的数量大于该车实际用量！！")End IfDataGrid1.Columns(0).Width = 120XXDataGrid1.Columns(1).Width = 120XXDataGrid1.Columns(2).Width = 120XXDataGrid1.Columns(3).Width = 120XXDataGrid1.Columns(4).Width = 120XXDataGrid1.Columns(5).Width = 120XXIf l1 = 1 ThenAdodc4.Refresh '修改车辆消费信息表中的材料费合计和总金额If Not Adodc4.Recordset.BOF ThenAdodc4.Recordset.MoveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = Text1.Text And Adodc4.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc4.Recordset.Fields(3)Adodc4.Recordset.Fields(3) = x - yAdodc4.Recordset.Fields(4) = Adodc4.Recordset.Fields(2) + Adodc4.Recordset.Fields(3)Adodc4.Recordset.UpdateEnd IfAdodc4.Recordset.MoveNextWendEnd IfAdodc2.Refresh '修改库存材料清单If Not Adodc2.Recordset.BOF ThenAdodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(0) = DataCombo2.Text And Adodc2.Recordset.Fields(1) = DataCombo3.Text ThenAdodc2.Recordset.Fields(4) = Adodc2.Recordset.Fields(4) + CLng(Text3.Text)Adodc2.Recordset.UpdateEnd IfAdodc2.Recordset.MoveNextWendEnd If '修改库存材料清单完毕End IfDataCombo2.Text = ""DataCombo3.Text = ""Text2.Text = ""Text3.Text = ""DataCombo2.SetFocusExit SubEnd IfAdodc3.Recordset.MoveNextWendEnd IfIf l = 0 Then '要删除的项目不存在时。
仓库管理系统代码
}
}
}
dlnode *create(dlnode *L)//创建链表头节点
{
printf(" 欢迎使用罗利辉的仓库管理系统");
getchar();
ifempty=0;
///////初始化头节点的值////////
L->next=NULL;L->prior=NULL;
ifempty++; //ifempty加1
}
else
{//如果当前L的下一个节点不是头节点
while((L=L->next)!=head)
{//如果输入的数大于L->number，则插到L的前面
if(L->number<in->number)
{
in->next=L;
in->prior=L->prior;
case 4:print(L);break;//调用打印函数
case 0:printf("\n bye!see you!\n");
getchar();getchar();exit(0);//退出程序
default:printf("\n Enter erreor!please input 0--4!");
void print(dlnode *L);
void searchnum(dlnode *L);
void searchname(dlnode *L);
void display(dlnode *L) ;
void main()
{
仓库管理代码设计python
一、仓库管理系统概述1.1 仓库管理的重要性1.2 仓库管理系统的作用1.3 Python语言在仓库管理中的应用二、需求分析与设计2.1 仓库管理系统的功能需求2.1.1 商品管理2.1.1.1 商品入库2.1.1.2 商品出库2.1.2 库存管理2.1.3 订单管理2.2 仓库管理系统的技术需求2.2.1 数据库设计2.2.2 用户界面设计三、代码设计与实现3.1 Python语言的选择理由3.2 数据库设计与使用3.3 仓库管理系统代码结构设计3.3.1 模块划分3.3.2 主要功能实现四、代码测试与优化4.1 测试用例设计4.2 代码性能优化4.3 用户体验优化五、总结与展望5.1 项目总结5.2 未来展望仓库管理系统是企业管理中重要的一环，通过合理的管理可以有效提高企业的运转效率，降低成本。
在现代信息化的趋势下，如何利用信息技术来提高仓库管理效率成为了企业管理者们亟需解决的问题。
Python作为一种高效、易读易写的编程语言，在仓库管理系统中有着广泛的应用。
在设计仓库管理系统之前，首先需要进行需求分析与设计。
仓库管理系统的功能需求包括商品管理、库存管理、订单管理等多个方面。
技术需求方面需要考虑数据库设计与用户界面设计等问题。
在代码设计与实现阶段，我们选择了Python作为编程语言。
Python 语言有着简洁清晰的语法和丰富的标准库，非常适合用于开发信息管理系统。
在实现过程中，需要设计合理的数据库结构，并根据需求划分模块，实现主要功能。
代码测试与优化是整个项目中非常重要的一个环节。
通过设计合理的测试用例，可以有效地检验代码的正确性与稳定性。
对于代码性能的优化和用户体验的优化也是非常重要的。
总结与展望部分，将对整个项目进行总结。
展望未来，对仓库管理系统的进一步完善和优化提出了一些建议。
仓库管理系统的设计与实现是一个复杂而又有挑战性的任务。
通过合理的需求分析与设计，并结合Python语言的优势，可以为企业带来更高效的仓库管理解决方案。
SAP仓库管理代码大全
WM Transaction Code 仓库管理模块事务代码大全1.1 LE-WM 仓库管理 Warehouse Management仓库管理事务码描述LB01 Create Transfer Requirement 创建转储需求LB02 Change transfer requirement 修改转储需求LB03 Display Transfer Requirement 显示转储需求LB10 TRs for Storage Type 按仓储类型的转储请求LB11 TRs for Material 物料转储请求LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求LD10 Clear decentralized inventory diff. 清除分散的库存差异LD11 Clear differences for decentral.sys. 清除分散系统的差异LI01 Create System Inventory Record 创建系统库存记录LI02 Change System Inventory Record 修改系统库存记录LI03 Display System Inventory Record 显示系统库存记录LI04 Print System Inventory Record 打印系统库存记录LI05 Inventory History for Storage Bin 仓位的库存历史LI06 Block stor.types for annual invent. 冻结年库存仓储类型LI11 Enter Inventory Count 输入库存盘点LI12 Change inventory count 修改库存盘点LI13 Display Inventory Count 显示库存盘点数LI14 Start Inventory Recount 库存重新盘点开始LI20 Clear Inventory Differences WM 清除库存差异仓库管理WMLI21 Clear Inventory Differences in MM-IM 清除 MM-IM 中的库存差额LL01 Warehouse Activity Monitor 仓库活动监控LLVS WM Menu 仓库管理菜单LN01 Number Ranges for Transfer Requirem. 转储需求编号范围LN02 Number Ranges for Transfer Orders 转储单编号范围LN03 Number Ranges for Quants 数量编号范围LN04 Number Ranges for Posting Changes 修改的数字范围记帐LN05 Number Ranges for Inventory 存货的编号范围LN06 Number Ranges for Reference Number 参考号编号范围LN08 Number Range Maintenance: LVS_LENUM 编号范围维护: LVS_LENUMLP10 Direct picking for PO 直接为采购单(PO)分检LP11 WM staging of crate parts WM 装箱部件待运LP12 Staging release order parts (WM-PP) 待运下达订单零件LP21 WM replenishment for fixed bins WM 固定仓位补充LP22 Replenishm. Planning for Fixed Bins 补充。
repo用法
repo用法在软件开发中，代码仓库（repo）是一个非常重要的环节，它是代码存储的地方，可以有效地组织和管理代码。
本文将围绕“repo用法”进行讲解。
1. 创建repo首先，我们需要创建一个repo。
在GitHub中，我们可以通过点击页面右上角“+”符号中的“New repository”创建一个新的代码仓库。
接着，我们需要为repo设置一个名称和描述，选择公共或私有仓库（需要付费），选择使用或不使用.gitignore和license等。
2. 克隆repo当repo已经创建好后，我们需要将它克隆到本地电脑上进行开发。
在GitHub中，可以通过以下命令将repo克隆到本地：$**********************:username/repo.git其中，username代表GitHub账户的用户名，repo代表代码仓库的名称。
执行命令后，代码库就会被克隆到本地目录。
3. 添加代码克隆repo到本地后，我们就可以开始添加代码了。
在本地对代码进行修改后，需要提交更改并推送到远程仓库。
首先，我们需要将文件添加到本地代码库中，可以使用以下命令：$ git add FileName其中，FileName代表需要添加到代码库的文件名。
接着，我们需要提交更改，可以使用以下命令：$ git commit -m "Commit Message"其中，“Commit Message”是本次提交的注释信息。
最后，我们需要将更改推送到远程仓库，可以使用以下命令：$ git push origin master其中，“origin”代表远程代码库的名称，“master”代表分支名称。
4. 合并代码当多个开发人员并行开发时，我们需要将代码合并到一起。
在Git中，可以使用以下命令将其他分支合并到当前分支中：$ git merge BranchName其中，“BranchName”代表要合并的分支名称。