仓库管理系统网页版源代码（vb仓库管理系统源代码）

今天给各位分享仓库管理系统网页版源代码的知识，其中也会对vb仓库管理系统源代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、求java编写的仓库管理系统源代码或详细设计
• 2、java web+mysql 仓库管理系统 源码
• 3、c语言仓库管理系统源代码
• 4、求仓库管理系统VB源代码
• 5、VB仓库管理系统源代码

求java编写的仓库管理系统源代码或详细设计

import java.util.*;

import java.awt.event.*;

import java.awt.*;

import javax.swing.*;

import java.io.*;

class 商品 extends Panel

{String 代号,名称;int 库存;float 单价;

商品(String 代号,String 名称,int 库存,float 单价)

{this.代号=代号;this.名称=名称;this.库存=库存;this.单价=单价;

}

}

class ShowWin extends JFrame implements ActionListener

{ Hashtable hashtable=null;

JTextField 代号文本框=new JTextField(),

名称文本框=new JTextField(),

库存文本框=new JTextField(),

单价文本框=new JTextField(),

查询文本框=new JTextField(),

查询信息文本框=new JTextField(),

删除文本框=new JTextField();

JButton b_add=new JButton("添加商品"),

b_del=new JButton("删除商品"),

b_xun=new JButton("查询商品"),

b_xiu=new JButton("修改商品"),

b_show=new JButton("显示商品清单");

JTextArea 显示区=new JTextArea(25,10);

ShowWin()

{super("仓库管理窗口");

hashtable=new Hashtable();

Container con=getContentPane();

JScrollPane pane=new JScrollPane(显示区);

显示区.setEditable(false);

JPanel save=new JPanel();

save.setLayout(new GridLayout(8,2));

save.add(new Label("输入代号:"));

save.add(代号文本框);

save.add(new Label("输入名称:"));

save.add(名称文本框);

save.add(new Label("输入库存:"));

save.add(库存文本框);

save.add(new Label("输入单价:"));

save.add(单价文本框);

save.add(new Label("单击添加:"));

save.add(b_add);

save.add(new Label("单击修改:"));

save.add(b_xiu);

save.add(new Label("输入查询代号:"));

save.add(查询文本框);

save.add(new Label("单击查询:"));

save.add(b_xun);

JPanel del=new JPanel();

del.setLayout(new GridLayout(2,2));

del.add(new Label("输入删除的代号:"));

del.add(删除文本框);

del.add(new Label("单击删除:"));

del.add(b_del);

JPanel show=new JPanel();

show.setLayout(new BorderLayout());

show.add(pane,BorderLayout.CENTER);

show.add(b_show,BorderLayout.SOUTH);

JSplitPane split_one,split_two;

split_one=new JSplitPane(JSplitPane.VERTICAL_SPLIT,save,del);

split_two=new

JSplitPane(JSplitPane.HORIZONTAL_SPLIT,true,split_one,show);

con.add(split_two,BorderLayout.CENTER);

JPanel xun=new JPanel();

xun.add(new Label("所得信息:"));

xun.add(查询信息文本框);

xun.setLayout(new GridLayout(2,1));

con.add(xun,BorderLayout.SOUTH);

b_add.addActionListener(this);

b_del.addActionListener(this);

b_xun.addActionListener(this);

b_xiu.addActionListener(this);

b_show.addActionListener(this);

}

public void actionPerformed(ActionEvent e)

{if(e.getSource()==b_add)

{String daihao=null,mingcheng=null;int kucun=0;float danjia=0.0f;

daihao=代号文本框.getText();mingcheng=名称文本框.getText();

kucun=Integer.parseInt(库存文本框.getText());

danjia=Float.valueOf(单价文本框.getText()).floatValue();

商品 goods=new 商品(daihao,mingcheng,kucun,danjia);

hashtable.put(daihao,goods);

try{FileOutputStream file=new FileOutputStream("goods.txt");

ObjectOutputStream out=new ObjectOutputStream(file);

out.writeObject(hashtable); out.close();

}

catch(IOException event){}

}

else if(e.getSource()==b_del)

{String daihao1=删除文本框.getText();

try{FileInputStream come_in=new FileInputStream("goods.txt");

ObjectInputStream in=new ObjectInputStream(come_in);

hashtable=(Hashtable)in.readObject(); //////

in.close();

}

catch(ClassNotFoundException event){}

catch(IOException event){}

商品 temp=(商品)hashtable.get(daihao1);

{hashtable.remove(daihao1);}

try{FileOutputStream file=new FileOutputStream("goods.txt");

ObjectOutputStream out =new ObjectOutputStream(file);

out.writeObject(hashtable);//

out.close();

}

catch(IOException event){}

}

//

else if(e.getSource()==b_xun)

{ String aa;

aa=查询文本框.getText();

查询信息文本框.setText(null);

try{FileInputStream come_in=new FileInputStream("goods.txt");

ObjectInputStream in =new ObjectInputStream(come_in);

hashtable=(Hashtable)in.readObject(); ////

in.close();

}

catch(ClassNotFoundException event){}

catch(IOException event){}

商品 a=(商品)hashtable.get(aa);

查询信息文本框.setText(" 代号："+a.代号+" 名称："+a.名称+" 库存："+a.库存+" 单价："+a.单价);

}

//

else if(e.getSource()==b_xiu)

{ String bb;

bb=代号文本框.getText();

try{FileInputStream come_in=new FileInputStream("goods.txt");

ObjectInputStream in=new ObjectInputStream(come_in);

hashtable=(Hashtable)in.readObject(); //////

in.close();

}

catch(ClassNotFoundException event){}

catch(IOException event){}

商品 temp=(商品)hashtable.get(bb);

{hashtable.remove(bb);}

try{FileOutputStream file=new FileOutputStream("goods.txt");

ObjectOutputStream out =new ObjectOutputStream(file);

out.writeObject(hashtable);//

out.close();

}

catch(IOException event){}

String daihao1=null,mingcheng1=null;int kucun1=0;float danjia1=0.0f;

daihao1=代号文本框.getText();mingcheng1=名称文本框.getText();

kucun1=Integer.parseInt(库存文本框.getText());

danjia1=Float.valueOf(单价文本框.getText()).floatValue();

商品 goods1=new 商品(daihao1,mingcheng1,kucun1,danjia1);

hashtable.put(daihao1,goods1);

try{FileOutputStream file=new FileOutputStream("goods.txt");

ObjectOutputStream out=new ObjectOutputStream(file);

out.writeObject(hashtable); out.close();

}

catch(IOException event){}

}

//

else if(e.getSource()==b_show)

{ 显示区.setText(null);

try{FileInputStream come_in=new FileInputStream("goods.txt");

ObjectInputStream in =new ObjectInputStream(come_in);

hashtable=(Hashtable)in.readObject(); ////

}

catch(ClassNotFoundException event){}

catch(IOException event){}

Enumeration enum=hashtable.elements();

while(enum.hasMoreElements())

{ 商品 te=(商品)enum.nextElement();

显示区.append("商品代号:"+te.代号+" ");

显示区.append("商品名称:"+te.名称+" ");

显示区.append("商品库存:"+te.库存+" ");

显示区.append("商品单价:"+te.单价+" ");

显示区.append("\n ");

}

}

}

}

public class LinkListFour

{public static void main(String args[])

{ ShowWin win=new ShowWin();

win.setSize(400,350);

win.setVisible(true);

win.addWindowListener(new WindowAdapter()

{public void windowClosing(WindowEvent e)

{ System.exit(0);}});

}

}

java web+mysql 仓库管理系统 源码

你好，这有一个

下载就可以了

希望你到那注册下，也支持下网站！！

c语言仓库管理系统源代码

学籍管理的程序，你自己改改吧

#includestdio.h

#includewindows.h

#includeconio.h

int add();

int amend();

int remove();

int show_student();

int show_class();

struct info //定义结构体info,用于存储学生信息

{

char name[20]; //姓名

char sex[20]; //性别

char idcard[20]; //身份证号码

char stuid[10]; //学号

char academe[20]; //学院

char specialty[20]; //专业

char classid[20]; //班级

char home[20]; //生源地

}stu[100];

int j=0;

int main(void) //主函数

{

/*登陆界面设计*/

char gongnengxuanzhe;

int flag=1;

system("cls");

printf("\n");

printf("\t\t\t\t 欢迎\n");

printf("\n\n\t尊敬的用户， 非常感谢您使用本系统 ， 您的完美体验将是我们前进的方向 !\n\n\n");

printf("\t系统功能简介：\n\n\n");

printf("\t\t①：通过键盘输入某位学生的学生证信息。\n\n");

printf("\t\t②：给定学号，显示某位学生的学生证信息。\n\n");

printf("\t\t③：给定某个班级的班号，显示该班所有学生的学生证信息。\n\n");

printf("\t\t④：给定某位学生的学号，修改该学生的学生证信息。\n\n");

printf("\t\t⑤：给定某位学生的学号，删除该学生的学生证信息。\n\n");

printf("\t\t⑥：按出生日期对全班学生的信息进行排序。\n\n\n");

printf("\t按任意键进入系统......");

getch();

do

{

system("cls");

printf("\n\n\n");

printf(" 尊敬的用户 ，欢迎您使用本系统 !\n");

printf("\n\n\n");

printf(" 1.增加学生信息\n\n");

printf(" 2.修改学生信息\n\n");

printf(" 3.删除学生信息\n\n");

printf(" 4.显示单个学生信息\n\n");

printf(" 5.显示整个班级学生信息\n\n");

printf(" 0.退出系统\n\n\n\n");

printf(" 请选择您需要使用的功能:");

gongnengxuanzhe=getch();

switch(gongnengxuanzhe)

{

case '1':add();break;

case '2':amend();break;

case '3':remove();break;

case '4':show_student();break;

case '5':show_class();break;

case '0':flag=0;break;

default:

{

printf("\n\n 您的输入有误，请仔细阅读使用说明!");

printf("\n 任意键继续...");

getch();

}

}

}while(flag==1);

system("cls");

printf("\n\n\n\n\n\n\n\n\n\n\t尊敬的用户，非常感谢您的使用，您对于完美的追求是我们唯一的动力！");

printf("\n\n\t\t\t 按任意键退出系统......");

getch();

return 0;

}

int add() //增加学生信息函数

{

char flag='1';

do

{

system("cls");

printf("\n\t姓名：");

scanf("%s",stu[j].name);

printf("\n\n\t性别：");

scanf("%s",stu[j].sex);

printf("\n\n\t身份证号：");

scanf("%s",stu[j].idcard);

printf("\n\n\t学院:");

scanf("%s",stu[j].academe);

printf("\n\n\t专业：");

scanf("%s",stu[j].specialty);

printf("\n\n\t班级：");

scanf("%s",stu[j].classid);

printf("\n\n\t学号：");

scanf("%s",stu[j].stuid);

printf("\n\n\t生源地：");

scanf("%s",stu[j].home);

j++;

printf("\n\t继续增加请键入1,返回请键入其他任意键:");

getchar();

flag=getchar();

}while(flag=='1');

return 0;

}

int amend() //修改学生信息函数

{

if(j==0)

{

system("cls");

printf("\n\n\n\n\n\n\n\n\n\n\t\t 系统无任何可以修改的记录，请先行输入数据！");

printf("\n\n\t\t\t 按任意键返回......");

getch();

return 0;

}

char a[20];

int z;

int flag=0;

do

{

system("cls");

printf("\n\t需要修改的学生学号：");

scanf("%s",a);

for(z=0;zj;z++)

{

if(strcmp(stu[z].stuid,a)==0)

{

flag=1;

break; //break退出后，z++不会执行

}

}

if(flag==0)

{

printf("\t对不起，你请求学生信息不存在，请核实后重试!\n");

printf("\t按任意键继续......");

getch();

}

}while(flag==0);

system("cls");

printf("\n\t姓名：");

scanf("%s",stu[z].name);

printf("\n\n\t性别：");

scanf("%s",stu[z].sex);

printf("\n\n\t身份证号：");

scanf("%s",stu[z].idcard);

printf("\n\n\t学院:");

scanf("%s",stu[z].academe);

printf("\n\n\t专业：");

scanf("%s",stu[z].specialty);

printf("\n\n\t班级：");

scanf("%s",stu[z].classid);

printf("\n\n\t学号：");

scanf("%s",stu[z].stuid);

printf("\n\n\t生源地：");

scanf("%s",stu[z].home);

return 0;

}

int remove() //删除学生信息函数

{

if(j==0)

{

system("cls");

printf("\n\n\n\n\n\n\n\n\n\n\t\t 系统无任何可以删除的记录，请先行输入数据！");

printf("\n\n\t\t\t 按任意键返回......");

getch();

return 0;

}

char a[20];

int z;

int x;

int flag=0;

do

{

system("cls");

printf("\n\t需要删除的学生学号：");

scanf("%s",a);

for(z=0;zj;z++)

{

if(strcmp(stu[z].stuid,a)==0)

{

flag=1;

for(x=z;xj;x++)

{

strcpy(stu[x].name,stu[x+1].name);

strcpy(stu[x].sex,stu[x+1].sex);

strcpy(stu[x].idcard,stu[x+1].idcard);

strcpy(stu[x].academe,stu[x+1].academe);

strcpy(stu[x].specialty,stu[x+1].specialty);

strcpy(stu[x].classid,stu[x+1].classid);

strcpy(stu[x].stuid,stu[x+1].stuid);

strcpy(stu[x].stuid,stu[x+1].stuid);

}

j--;

printf("\n\t删除成功!");

printf("\n\t按任意键返回上级菜单......");

getch();

}

}

if(flag==0)

{

printf("\t对不起，你请求学生信息不存在，请核实后重试!\n");

printf("\t按任意键继续......");

getch();

}

}while(flag==0);

return 0;

}

int show_student() //单个显示学生信息函数

{

if(j==0)

{

system("cls");

printf("\n\n\n\n\n\n\n\n\n\n\t\t 系统无任何可以显示的记录，请先行输入数据！");

printf("\n\n\t\t\t 按任意键返回......");

getch();

return 0;

}

char a[20];

int z;

int flag=0;

do

{

system("cls");

printf("\n\t需要显示的学生学号：");

scanf("%s",a);

for(z=0;zj;z++)

{

if(strcmp(stu[z].stuid,a)==0)

{

flag=1;

system("cls");

printf("\n\t姓名：%s",stu[z].name);

printf("\n\n\t性别：%s",stu[z].sex);

printf("\n\n\t身份证号：%s",stu[z].idcard);

printf("\n\n\t学院:%s",stu[z].academe);

printf("\n\n\t专业：%s",stu[z].specialty);

printf("\n\n\t班级：%s",stu[z].classid);

printf("\n\n\t学号：%s",stu[z].stuid);

printf("\n\n\t生源地：%s",stu[z].home);

printf("\n\n\t按任意键返回上级菜单......");

getch();

}

}

if(flag==0)

{

printf("\t对不起，你请求显示的学生信息不存在，请核实后重试!\n");

printf("\t按任意键继续......");

getch();

}

}while(flag==0);

return 0;

}

int show_class() //显示整个班级学生信息函数

{

if(j==0)

{

system("cls");

printf("\n\n\n\n\n\n\n\n\n\n\t\t 系统无任何可以显示的记录，请先行输入数据！");

printf("\n\n\t\t\t 按任意键返回......");

getch();

return 0;

}

char a[20];

int z;

int x;

int flag=0;

do

{

system("cls");

printf("\n\t需要显示的班级号码：");

scanf("%s",a);

for(z=0;zj;z++)

{

if(strcmp(stu[z].classid,a)==0)

{

flag=1;

system("cls");

printf("\t%s %s 基本信息\n",stu[z].specialty,stu[z].classid);

for(x=0;xj;x++)

{

if(strcmp(stu[x].classid,a)==0)

{

printf("\n\n\t姓名：%s",stu[z].name);

printf("\n\t性别：%s",stu[z].sex);

printf("\n\t身份证号：%s",stu[z].idcard);

printf("\n\t学院:%s",stu[z].academe);

printf("\n\t专业：%s",stu[z].specialty);

printf("\n\t班级：%s",stu[z].classid);

printf("\n\t学号：%s",stu[z].stuid);

printf("\n\t生源地：%s",stu[z].home);

}

}

printf("\n\n\t按任意键返回上级菜单......");

getch();

}

}

if(flag==0)

{

printf("\t对不起，你请求显示的班级信息不存在，请核实后重试!\n");

printf("\t按任意键继续......");

getch();

}

}while(flag==0);

return 0;

}

有疑问联系我，975853545@qq.com

请采纳。

求仓库管理系统VB源代码

function FindProxyForURL(url, host){

if(isPlainHostName(host)) return 'DIRECT';

if(!shExpMatch(url, 'http*')) return 'DIRECT';

var ip = dnsResolve(host);

// no dns result

if(!ip) return 'PROXY 127.0.0.1:8083;';

// ipv6

if(shExpMatch(ip, '*:*')) return 'DIRECT';

// local

else if(isInNet(ip,'127.0.0.0','255.0.0.0')) return 'DIRECT';

else if(isInNet(ip,'10.0.0.0','255.0.0.0')) return 'DIRECT';

else if(isInNet(ip,'192.168.0.0','255.255.0.0')) return 'DIRECT';

else if(isInNet(ip,'172.16.0.0','255.240.0.0')) return 'DIRECT';

else if(isInNet(ip,'169.254.0.0','255.255.0.0')) return 'DIRECT';

// video rules

else if(shExpMatch(url, '*.flv')) return 'PROXY ' + host + '.local.acc.sogou.com:8081;';

else if(shExpMatch(url, '*.mp4')) return 'PROXY ' + host + '.local.acc.sogou.com:8081;';

else if(shExpMatch(url, 'http:*/flv/*.flv?*key=*')) return 'PROXY ' + host + '.local.acc.sogou.com:8081;';

else if(shExpMatch(url, 'http:*/mp4/*.f4v?*key=*')) return 'PROXY ' + host + '.local.acc.sogou.com:8081;';

else if(shExpMatch(url, '*.flv?start=*')) return 'PROXY ' + host + '.local.acc.sogou.com:8081;';

else if(shExpMatch(url, '*.mp4?start=*')) return 'PROXY ' + host + '.local.acc.sogou.com:8081;';

else if (isInNet(ip, '58.154.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '58.192.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '58.194.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '58.196.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '58.198.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '58.200.0.0','255.248.0.0')) return 'DIRECT';

else if (isInNet(ip, '59.64.0.0','255.252.0.0')) return 'DIRECT';

else if (isInNet(ip, '59.68.0.0','255.252.0.0')) return 'DIRECT';

else if (isInNet(ip, '59.72.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '59.74.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '59.76.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '59.77.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '59.78.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '110.64.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '111.114.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '111.116.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '111.186.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '113.54.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '114.212.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '114.214.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '115.24.0.0','255.252.0.0')) return 'DIRECT';

else if (isInNet(ip, '115.154.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '115.156.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '115.158.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '116.13.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '116.56.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '118.202.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '118.228.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '118.230.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '120.94.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '120.95.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '121.48.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '121.52.160.0','255.255.224.0')) return 'DIRECT';

else if (isInNet(ip, '121.192.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '121.193.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '121.194.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '121.248.0.0','255.252.0.0')) return 'DIRECT';

else if (isInNet(ip, '122.204.0.0','255.252.0.0')) return 'DIRECT';

else if (isInNet(ip, '125.216.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '125.218.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '125.219.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '125.220.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '125.222.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '162.105.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '166.111.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '175.185.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '175.186.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '180.84.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '180.201.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '180.208.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '183.168.0.0','255.254.0.0')) return 'DIRECT';

else if (isInNet(ip, '183.170.0.0','255.255.0.0')) return 'DIRECT';

else if (isInNet(ip, '183.172.0.0','255.252.0.0')) return 'DIRECT';

else if (isInNet(ip, '202.4.128.0','255.255.224.0')) return 'DIRECT';

else if (isInNet(ip, '202.38.2.0','255.255.254.0')) return 'DIRECT';

else if (isInNet(ip, '202.38.64.0','255.255.224.0')) return 'DIRECT';

else if (isInNet(ip, '202.38.96.0','255.255.224.0')) return 'DIRECT';

else if (isInNet(ip, '202.38.140.0','255.255.254.0')) return 'DIRECT';

else if (isInNet(ip, '202.38.184.0','255.255.248.0')) return 'DIRECT';

else if (isInNet(ip, '202.38.192.0','255.255.192.0')) return 'DIRECT';

else if (isInNet(ip, '202.112.0.0','255.255.0.0')) return 'DIRECT';

哎 太多了 留下你邮箱 我发给你

VB仓库管理系统源代码

晕，楼上的回答怎么没有一个写代码的啊，我代码写好了dim myConn as object

dim myRecord aS OBJECT

Dim mySQL As String

Dim strSQL As String

SET myConn CreateObject("ADODB.Connection") '创建对象

SET myConn CreateObject("ADODB.Connection") '创建对象

Private Sub Form_Load()

Dim mySQL As String

Dim strSQL As String

'设定连接字符串

mySQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"

mySQL = mySQL + "Data Source=" App.Path "\Product.mdb"

myConn.ConnectionString = mySQL '设定连接字符串

'MsgBox mySQL

myConn.Open '打开连接

myRecord.ActiveConnection = myConn '设定RecordSeet的连接对象为Connection

strSQL = "select * from Products" '设定查询字符串

'打开myRecord

myRecord.Open strSQL, , adOpenDynamic, adLockOptimistic

'显示数据

ShowData

End Sub

Private Sub ShowData()

On Error Resume Next

'产品编号

Text1.Text = myRecord.Fields("ProductID").Value

'产品名称

Text2.Text = myRecord.Fields("ProductName").Value

'供应商编号

Text3.Text = myRecord.Fields("SupplierID").Value

'类别编号

Text4.Text = myRecord.Fields("CategoryID").Value

'单位数量

Text5.Text = myRecord.Fields("QuantityPerUnit").Value

'单价

Text6.Text = myRecord.Fields("UnitPrice").Value

'库存数量

Text7.Text = myRecord.Fields("UnitsInStock").Value

'订单数量

Text8.Text = myRecord.Fields("UnitsOnOrder").Value

'重订等级

Text9.Text = myRecord.Fields("ReorderLevel").Value

End Sub

'后一条按钮单击事件

Private Sub Command8_Click()

'移动记录到下一条的方法是MoveNext

'在调用MoveNext方法之前，首先需要判断，当前是不是已经超出尾纪录

'若超出尾记录，再执行MoveNext会出错

If Not myRecord.EOF Then

myRecord.MoveNext

Else

'超出尾记录，使用MoveLast恢复指向尾记录

myRecord.MoveLast

End If

'显示数据

ShowData

End Sub

'前一条按钮单击事件

Private Sub Command7_Click()

'判断是否超出头记录

'若超出头记录，再执行MovePrevious会出错

If Not myRecord.BOF Then

myRecord.MovePrevious

Else

'超出头记录

'使用MoveFirst恢复到指向第一条记录

myRecord.MoveFirst

End If

'显示数据

ShowData

End Sub

'尾记录按钮单击事件

Private Sub Command9_Click()

'调用MoveLast

myRecord.MoveLast

'显示记录

ShowData

End Sub

Private Sub Command5_Click()

'调用Recordset对象cancelUpdate方法取消数据保存

myRecord.CancelUpdate

myRecord.MoveFirst

'显示数据

ShowData

End Sub

'首记录按钮单击事件

Private Sub Command6_Click()

'调用MoveFirst移动

myRecord.MoveFirst

'显示记录

ShowData

End Sub

Private Sub Command4_Click()

On Error Resume Next

'保存数据，这里需要通过编程来实现

'产品编号

'产品编号不能为空

If Text1.Text = "" Then

MsgBox "产品编号不能为空!"

Text1.SetFocus

Exit Sub

End If

'其他文本框的判断类似，这里省略

'保存产品编号

myRecord.Fields("ProductID").Value = Val(Text1.Text)

'保存产品名称

myRecord.Fields("ProductName").Value = Text2.Text

'保存供应商编号

myRecord.Fields("SupplierID").Value = Val(Text3.Text)

'保存类别编号

myRecord.Fields("CategoryID").Value = Val(Text4.Text)

'保存单位数量

myRecord.Fields("QuantityPerUnit").Value = Text5.Text

'保存单价

myRecord.Fields("UnitPrice").Value = Val(Text6.Text)

'保存库存数量

myRecord.Fields("UnitsInStock").Value = Text7.Text

'保存订单数量

myRecord.Fields("UnitsOnOrder").Value = Val(Text8.Text)

'保存重订等级

myRecord.Fields("ReorderLevel").Value = Val(Text9.Text)

'调用Recordset对象Update方法保存数据

myRecord.Update

'显示数据

ShowData

End Sub

关于仓库管理系统网页版源代码和vb仓库管理系统源代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。