车辆管理系统源代码修改

合集下载

丰田汽车电脑修改17位编码教程

丰田汽车电脑修改17位编码教程丰田汽车电脑修改17位编码教程简介本教程旨在帮助资深创作者了解丰田汽车电脑修改17位编码的方法，并提供详细步骤和操作指南。

准备工作在开始之前，请确保完成以下准备工作： 1. 一台支持OBD2接口的电脑。

2. OBD2适配器，用于连接电脑和丰田汽车。

3. 稳定的网络连接，以便下载必要的软件和文件。

步骤一：软件安装1.下载并安装OBD2编程软件，如[TunerPro](2.根据软件提供的指引，完成安装和配置过程。

3.确保软件与你的丰田汽车品牌兼容。

步骤二：连接汽车与电脑1.确保丰田汽车熄火，并将车钥匙插入点火孔。

2.在汽车内找到OBD2接口，通常位于驾驶员侧踏板附近。

3.将OBD2适配器的连接线插入OBD2接口，并将适配器的USB接口连接到电脑。

步骤三：读取ECU文件1.打开已安装的OBD2编程软件。

2.根据软件指引，选择正确的通信端口和适配器类型。

3.点击软件中的“读取ECU”或类似选项，开始读取丰田汽车的ECU文件。

4.等待读取过程完成，期间不要断开连接。

步骤四：修改编码1.打开已读取的ECU文件，这将显示丰田汽车的编码信息。

2.根据需要，进行编码修改。

请确保只修改你熟悉和了解的部分，避免对汽车性能产生负面影响。

3.修改完成后，保存修改后的ECU文件。

步骤五：写入修改后的ECU文件1.返回OBD2编程软件，选择“写入ECU”或类似选项。

2.选择已修改的ECU文件，并确认写入操作。

3.等待写入过程完成，期间不要断开连接。

步骤六：测试与验证1.断开电脑与丰田汽车的连接。

2.启动丰田汽车，并测试编码修改后的性能。

3.如遇到问题或负面影响，请重新连接电脑并还原到原始的ECU文件。

注意事项•本教程仅供资深创作者参考和学习，请遵循法律法规，不得用于非法目的。

•修改丰田汽车的ECU文件可能会对车辆性能和保修条款产生影响，请慎重操作。

•在编码修改过程中，如果遇到任何问题，请及时咨询相关专业人士或寻求帮助。

(完整word版)车辆管理系统源代码修改

cout<<" "<<endl;}/*输出所有数据*/
~sedan(){}
};
/*****************************/
class coach:public car{/*客车类*/
public:
void show(){
car::show();
cout<<" "<<endl;}/*输出所有数据*/
}
is2.close();
return head;
}
/*****************************/
truck* gettruck(){/*设置函数获取卡车库中信息存储于数组中，方便之后提取*/
int i;
truck* head=new truck[n3];
ifstream is3("file3.dat",ios::in|ios::binary);
cin>>j;
if(j==0) return(0);/*用户输入0则退出*/
cout<<"请输入数据："<<endl;
cout<<"车辆编号: ";cin>>str;
/*编号不唯一提示错误*/
coach* h1=getcoach();/*调出大客车车库中信息*/
for(k=0;k<n1;k++)
if(h1[k].number==str) {
ofstream os3("file3.dat",ios::binary|ios::trunc);/*建立file3文件*/

车辆管理系统【附源代码】_C++课程设计报告-2013年

北华航天工业学院《基于C++的面向对象程序设计实例》实践报告报告题目：车辆管理系统设计作者所在系部：计算机科学与工程系作者所在专业：网络工程作者所在班级：B12522作者学号：作者姓名：妖YYYao指导教师姓名：李瑛完成时间：2013年6月北华航天工业学院教务处制在当前的市场经济体制下，企业要想提高市场的竞争力，取得好的经济效益，不但要有好的产品，同时也要有好的管理方式，所以必须拥有一套完善的并且适合自身特点的信息化管理系统，以实现企业降低成本、及时反馈市场信息、完善服务质量、提高经济效益、分析市场需求、制定销售计划和目标等管理目的。

本文利用Visual C++6.0 编写程序，实现了用户对公司车辆的编号、车牌号、车辆制造公司、车辆购买时间、车辆型号（大客车、小轿车和卡车）、总公里数、耗油量/公里、基本维护费用、养路费、累计总费用等信息的管理。

本系统主要实现了对车辆的添加，查询，显示，编辑，删除，统计，存盘，读出。

主要运用了类的继承等编程方法来实现对这些车辆的管理。

已经过全面的系统测试，能够很好的运行，达到了预期的效果。

关键词：系统设计车辆管理类的继承摘要 (Ⅰ)第1章绪论 (1)1.1 课程设计的目的 (1)1.2 课程设计的背景及意义 (1)1.2.1课程设计的背景 (1)1.2.2课程设计的意义 (1)1.3 课程设计环境 (1)第2章系统需求分析 (2)2.1问题描述 (2)2.2功能分析 (2)2.3问题的解决方案 (3)第3章系统设计 (4)3．1 数据设计 (4)3．1．1 类设计 (4)3．1．2 类之间的关系 (4)3．1．3 函数设计 (4)3．2 结构设计 (5)3．2．1 系统流程图 (5)3．2．2 界面设计 (6)第4章系统实现 (8)4．1 类实现 (8)4．2 函数实现 (10)4．3 主函数实现 (14)第5章系统测试 (16)5．1 模块测试 (16)5．2 课程设计过程中遇到的问题 (18)总结 (19)致谢 (20)参考文献 (21)第一章绪论1．1 课程设计的目的（1）要求学生能够熟练掌握C++语言的基本知识和技能。

java车辆管理系统精修订

j a v a车辆管理系统 SANY标准化小组 #QS8QHH-HHGX8Q8-GNHHJ8-HHMHGN#//车辆管理系统package javaapplication27;import javax.swing.*;import java.io.*;import java.awt.*;importimport java.util.*;importimport java.io.FileInputStream;//3.4CarPicture类class CarPicture extends JPanel{File imageFile;Toolkit tool;public CarPicture(){tool=getToolkit();}publicvoid setImage(File imageFile){this.imageFile=imageFile;repaint();}@Overridepublicvoid paintComponent(Graphics g){super.paintComponent(g);int w=getBounds().width;int h=getBounds().height;if(imageFile!=null){Image image=tool.getImage(imageFile.getAbsolutePath());g.drawImage(image,0,0,w,h,this);}}}//3.3Car类class Car implements Serializable{String number,name,discipling,grade,borth,sex;File imagePic;publicvoid setNumber(String number){this.number=number;}public String getNumber(){return number;}publicvoid setName(String name){=name;}public String getName(){return name;}publicvoid setDiscipling(String discipling){this.discipling=discipling;}public String getDiscipling(){return discipling;}publicvoid setGrade(String grade){this.grade=grade;}public String getGrade(){return grade;}publicvoid setBorth(String borth){this.borth=borth;}public String getBorth(){return borth;}publicvoid setSex(String sex){this.sex=sex;}public String getSex(){return sex;}publicvoid setImagePic(File image){imagePic=image;}public File getImagePic(){return imagePic;}}//3.5InputCar类class InputCar extends JPanel implements ActionListener {Car车主=null;CarPicturepic;HashMap<String,Car>基本信息表=null;JTextField车牌号,姓名,购车公司,购车时间;JButton选择照片;JComboBox档次;JRadioButton男,女;ButtonGroupgroup=null;JButton录入,重置;FileInputStream inOne=null;ObjectInputStream inTwo=null;FileInputStream outOne=null; ObjectOutputStream outTwo=null;File systemFile,imagePic;public InputCar(File file){systemFile=file;pic=new CarPicture();车牌号=new JTextField(5);姓名=new JTextField(5);档次=new JComboBox();try{FileReader inOne=new FileReader("专业.txt"); BufferedReader inTwo=new BufferedReader(inOne); String s=null;int i=0;while((s=inTwo.readLine())!=null)档次.addItem(s);inOne.close();inTwo.close();}catch(IOException exp){档次.addItem("高级");档次.addItem("中高级");档次.addItem("中级");档次.addItem("中低级");档次.addItem("普通");}购车公司=new JTextField(5);购车时间=new JTextField(5);选择照片=new JButton("选择");group=new ButtonGroup();男=new JRadioButton("男",true);女=new JRadioButton("女",true);group.add(男);group.add(女);录入=new JButton("录入");重置=new JButton("重置");录入.addActionListener(this);选择照片.addActionListener(this);重置.addActionListener(this);Box box1=Box.createHorizontalBox();box1.add(new JLabel("车牌号：",JLabel.CENTER));box1.add(车牌号);Box box2=Box.createHorizontalBox();box2.add(new JLabel("车主姓名：",JLabel.CENTER));box2.add(姓名);Box box3=Box.createHorizontalBox();box3.add(new JLabel("车主性别：",JLabel.CENTER));box3.add(男);box3.add(女);Box box4=Box.createHorizontalBox();box4.add(new JLabel("车辆档次：",JLabel.CENTER));box4.add(档次);Box box5=Box.createHorizontalBox();box5.add(new JLabel("购车公司：",JLabel.CENTER));box5.add(购车公司);Box box6=Box.createHorizontalBox();box6.add(new JLabel("购车时间：",JLabel.CENTER));box6.add(购车时间);BoxboxH=Box.createVerticalBox();boxH.add(box1);boxH.add(box2);boxH.add(box3);boxH.add(box4);boxH.add(box5);boxH.add(box6);boxH.add(Box.createVerticalGlue());JPanelpicPanel=new JPanel();picPanel.setBackground(Color.green);picPanel.add(new JLabel("选择照片：",JLabel.CENTER));picPanel.add(选择照片);JPanelputButton=new JPanel();putButton.add(录入);putButton.add(重置);JPanelmessPanel=new JPanel();messPanel.add(boxH);messPanel.setBackground(Color.cyan);putButton.setBackground(Color.red);setLayout(new BorderLayout());JSplitPanesplitV=new JSplitPane(JSplitPane.VERTICAL_SPLIT,picPanel,pic); JSplitPanesplitH=new JSplitPane(JSplitPane.HORIZONTAL_SPLIT,messPanel,splitV); add(splitH,BorderLayout.CENTER);add(putButton,BorderLayout.SOUTH);validate();}publicvoid actionPerformed(ActionEvent e){if(e.getSource()==录入){String number="";number=车牌号.getText();if(number.length()>0){try{inOne=new FileInputStream(systemFile);inTwo=new ObjectInputStream(inOne);基本信息表=(HashMap<String,Car>)inTwo.readObject();inOne.close();inTwo.close();}catch(Exception ee){}if(基本信息表.containsKey(number)){String warning="该生基本信息已存在，请到修改页面修改！";JOptionPane.showMessageDialog(this,warning,"警告",JOptionPane.WARNING_MESSAGE); }else{String m="基本信息将被录入！";int ok=JOptionPane.showConfirmDialog(this,m,"确认",JOptionPane.YES_NO_OPTION,RMATION_MESSAGE);if(ok==JOptionPane.YES_OPTION){String name=姓名.getText();String discipling=(String)档次.getSelectedItem();String grade=购车公司.getText();String borth=购车时间.getText();String sex=null;if(男.isSelected())sex=男.getText();elsesex=女.getText();车主=new Car();车主.setNumber(number);车主.setName(name);车主.setDiscipling(discipling);车主.setGrade(grade);车主.setBorth(borth);车主.setSex(sex);车主.setImagePic(imagePic);try{FileOutputStream outOne=new FileOutputStream(systemFile);outTwo=new ObjectOutputStream(outOne);基本信息表.put(number,车主);outTwo.writeObject(基本信息表);outTwo.close();outOne.close();clearMess();}catch(Exception ee){}}}}else{String warning="必须要输入学号！";JOptionPane.showMessageDialog(this,warning,"警告",JOptionPane.WARNING_MESSAGE);}}elseif(e.getSource()==选择照片){JFileChooserchooser=new JFileChooser();FileNameExtensionFilterfilter=new FileNameExtensionFilter("JPG&GIFImages","jpg","gif"); chooser.setFileFilter(filter);int state=chooser.showOpenDialog(null);File choiceFile=chooser.getSelectedFile();if(choiceFile!=null&&state==JFileChooser.APPROVE_OPTION){选择照片.setText(choiceFile.getName());imagePic=choiceFile;pic.setImage(imagePic);pic.repaint();}}elseif(e.getSource()==重置){clearMess();}}publicvoid clearMess(){车牌号.setText(null);姓名.setText(null);购车公司.setText(null);购车时间.setText(null);选择照片.setText("选择");imagePic=null;pic.setImage(imagePic);pic.repaint();}}//3.6inquset类class Inquest extends JDialog implements ActionListener{CarPicturepic;PrintJob print;Graphics g=null;HashMap<String,Car>基本信息表;JTextField车牌号,姓名,档次,购车公司,购车时间; JRadioButton男,女;JButton查询,打印文本及照片,打印文本,打印照片; ButtonGroupgroup=null;FileInputStream inOne=null;ObjectInputStream inTwo=null;File systemFile=null;JPanelmessPanel;Carstu;public Inquest(File file){setTitle("查询对话框");setModal(false);systemFile=file;pic=new CarPicture();车牌号=new JTextField(6);查询=new JButton("查询");车牌号.addActionListener(this);查询.addActionListener(this);打印文本及照片=new JButton("打印文本及照片");打印文本=new JButton("打印文本");打印照片=new JButton("打印照片");打印文本及照片.addActionListener(this);打印文本.addActionListener(this);打印照片.addActionListener(this);打印文本及照片.setEnabled(false);打印文本.setEnabled(false);打印照片.setEnabled(false);姓名=new JTextField(5);姓名.setEditable(false);档次=new JTextField(5);档次.setEditable(false);购车公司=new JTextField(5);购车公司.setEditable(false);购车时间=new JTextField(5);购车时间.setEditable(false);男=new JRadioButton("男",false);女=new JRadioButton("女",false);group=new ButtonGroup();group.add(男);group.add(女);Boxbox1=Box.createHorizontalBox();box1.add(new JLabel("车牌号:",JLabel.CENTER));box1.add(车牌号);box1.add(查询);Boxbox2=Box.createHorizontalBox();box2.add(new JLabel("车主姓名:",JLabel.CENTER));box2.add(姓名);Boxbox3=Box.createHorizontalBox();box3.add(new JLabel("性别:",JLabel.CENTER));box3.add(男);box3.add(女);Boxbox4=Box.createHorizontalBox();box4.add(new JLabel("档次:",JLabel.CENTER));box4.add(档次);Boxbox5=Box.createHorizontalBox();box5.add(new JLabel("购车公司:",JLabel.CENTER));box5.add(购车公司);Boxbox6=Box.createHorizontalBox();box6.add(new JLabel("购车时间:",JLabel.CENTER));box6.add(购车时间);BoxboxH=Box.createVerticalBox();boxH.add(box1);boxH.add(box2);boxH.add(box3);boxH.add(box4);boxH.add(box5);boxH.add(box6);messPanel=new JPanel();messPanel.add(boxH);JSplitPanesplitH=new JSplitPane(JSplitPane.HORIZONTAL_SPLIT,messPanel,pic); add(splitH,BorderLayout.CENTER);JPanelpSouth=new JPanel();pSouth.add(打印文本及照片);pSouth.add(打印文本);pSouth.add(打印照片);add(pSouth,BorderLayout.SOUTH);validate();setVisible(false);setSize(360,230);addWindowListener(new WindowAdapter(){@Overridepublicvoid windowClosing(WindowEvent e){setVisible(false);}});}publicvoid actionPerformed(ActionEvent e){if(e.getSource()==查询||e.getSource()==车牌号){String number="";number=车牌号.getText();if(number.length()>0){try{inOne=new FileInputStream(systemFile);inTwo=new ObjectInputStream(inOne);基本信息表=(HashMap<String,Car>)inTwo.readObject();inOne.close();inTwo.close();}catch(Exception ee){}if(基本信息表.containsKey(number)){stu=基本信息表.get(number);姓名.setText(stu.getName());档次.setText(stu.getDiscipling());购车公司.setText(stu.getGrade());购车时间.setText(stu.getBorth());if(stu.getSex().equals("男"))男.setSelected(true);else女.setSelected(true);pic.setImage(stu.getImagePic());pic.repaint();打印文本及照片.setEnabled(true);打印文本.setEnabled(true);打印照片.setEnabled(true);}else{打印文本及照片.setEnabled(false);打印文本.setEnabled(false);打印照片.setEnabled(false);String warning="该车牌号不存在!";JOptionPane.showMessageDialog(this,warning,"警告",JOptionPane.WARNING_MESSAGE); clearMess();}}else{打印文本及照片.setEnabled(false);打印文本.setEnabled(false);打印照片.setEnabled(false);String warning="必须要输入车牌号!";JOptionPane.showMessageDialog(this,warning,"警告",JOptionPane.WARNING_MESSAGE);}}elseif(e.getSource()==打印文本及照片){try{print=getToolkit().getPrintJob(new JFrame(),"打印",new Properties()); g=print.getGraphics();g.translate(120,200);int w=messPanel.getBounds().width;messPanel.printAll(g);g.translate(w,0);pic.printAll(g);姓名.setText(stu.getName());g.dispose();print.end();}catch(Exception exp){}}elseif(e.getSource()==打印文本){try{print=getToolkit().getPrintJob(new JFrame(),"打印",new Properties()); g=print.getGraphics();g.translate(120,200);messPanel.printAll(g);g.dispose();print.end();}catch(Exception exp){}}elseif(e.getSource()==打印照片){try{print=getToolkit().getPrintJob(new JFrame(),"打印",new Properties()); g=print.getGraphics();int w=messPanel.getBounds().width;g.translate(120+w,200);pic.printAll(g);g.dispose();print.end();}catch(Exception exp){}}}publicvoid clearMess(){车牌号.setText(null);姓名.setText(null);购车公司.setText(null);购车时间.setText(null);档次.setText(null);pic.setImage(null);pic.repaint();}}//3.8Delete类class Delete extends JPanel implements ActionListener{ HashMap<String,Car>基本信息表=null;JTextField车牌号,姓名,档次,购车公司,购车时间; JRadioButton男,女;JButton删除;ButtonGroupgroup=null;FileInputStream inOne=null;ObjectInputStream inTwo=null;FileOutputStream outOne=null;ObjectOutputStream outTwo=null;File systemFile=null;public Delete(File file){systemFile=file;车牌号=new JTextField(10);删除=new JButton("删除");车牌号.addActionListener(this);删除.addActionListener(this);姓名=new JTextField(10);姓名.setEditable(false);档次=new JTextField(10);档次.setEditable(false);购车公司=new JTextField(10);购车公司.setEditable(false);购车时间=new JTextField(10);购车时间.setEditable(false);男=new JRadioButton("男",false);女=new JRadioButton("女",false);group=new ButtonGroup();group.add(男);group.add(女);Boxbox1=Box.createHorizontalBox();box1.add(new JLabel("输入要删除的车牌号：",JLabel.CENTER)); box1.add(车牌号);box1.add(删除);Boxbox2=Box.createHorizontalBox();box2.add(new JLabel("车主姓名：",JLabel.CENTER));box2.add(姓名);Boxbox3=Box.createHorizontalBox();box3.add(new JLabel("性别：",JLabel.CENTER));box3.add(男);box3.add(女);Boxbox4=Box.createHorizontalBox();box4.add(new JLabel("档次：",JLabel.CENTER));box4.add(档次);Boxbox5=Box.createHorizontalBox();box5.add(new JLabel("购车公司：",JLabel.CENTER)); box5.add(购车公司);Boxbox6=Box.createHorizontalBox();box6.add(new JLabel("购车时间：",JLabel.CENTER)); box6.add(购车时间);BoxboxH=Box.createVerticalBox();boxH.add(box1);boxH.add(box2);boxH.add(box3);boxH.add(box4);boxH.add(box5);boxH.add(box6);boxH.add(Box.createVerticalGlue()); JPanelpCenter=new JPanel();pCenter.add(boxH);setLayout(new BorderLayout());add(pCenter,BorderLayout.CENTER);validate();}publicvoid actionPerformed(ActionEvent e){if(e.getSource()==删除||e.getSource()==车牌号){ String number="";number=车牌号.getText();if(number.length()>0){try{inOne=new FileInputStream(systemFile);inTwo=new ObjectInputStream(inOne);基本信息表=(HashMap)inTwo.readObject();inOne.close();inTwo.close();}catch(Exception ee){}if(基本信息表.containsKey(number)){Carstu=(Car)基本信息表.get(number);姓名.setText(stu.getName());档次.setText(stu.getDiscipling());购车公司.setText(stu.getGrade());购车时间.setText(stu.getBorth());if(stu.getSex().equals("男"))男.setSelected(true);else女.setSelected(true);String m="确定要删除该车牌号及全部信息吗？";int ok=JOptionPane.showConfirmDialog(this,m,"确认",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSAGE);if(ok==JOptionPane.YES_OPTION){基本信息表.remove(number);try{outOne=new FileOutputStream(systemFile);outTwo=new ObjectOutputStream(outOne);outTwo.writeObject(基本信息表);outTwo.close();outOne.close();车牌号.setText(null);姓名.setText(null);档次.setText(null);购车公司.setText(null);购车时间.setText(null);}catch(Exception ee){}}elseif(ok==JOptionPane.NO_OPTION){车牌号.setText(null);姓名.setText(null);档次.setText(null);购车公司.setText(null);购车时间.setText(null);}}else{String waring="该车牌号不存在！";JOptionPane.showMessageDialog(this,waring,"警告",JOptionPane.WARNING_MESSAGE);车牌号.setText(null);}}else{String waring="该车牌号不存在！";JOptionPane.showMessageDialog(this,waring,"警告",JOptionPane.WARNING_MESSAGE); }}}}//3.7ModifySituation类class ModifySituation extends JPanel implements ActionListener{CarPicturepic;HashMap<String,Car>基本信息表=null;JTextField车牌号,姓名,购车公司,购车时间;JComboBox档次;JButton选择照片;JRadioButton男,女;ButtonGroupgroup=null;JButton开始修改,录入修改,重置;FileInputStream inOne=null;ObjectInputStream inTwo=null;FileOutputStream outOne=null;ObjectOutputStream outTwo=null;File systemFile,imagePic;JComboBoxoldMess;Carstu=null;public ModifySituation(File file){systemFile=file;pic=new CarPicture();车牌号=new JTextField(6);姓名=new JTextField(6);档次=new JComboBox();try{FileReader inOne=new FileReader("档次.txt");BufferedReader intwo=new BufferedReader(inOne);String s=null;int i=0;while((s=inTwo.readLine())!=null)档次.addItem(s);inOne.close();inTwo.close();}catch(IOException exp){档次.addItem("高级");档次.addItem("中高级");档次.addItem("中级");档次.addItem("中低级");档次.addItem("普通");}购车公司=new JTextField(6);购车时间=new JTextField(6);选择照片=new JButton("选择");group=new ButtonGroup();男=new JRadioButton("男",true);女=new JRadioButton("女",false);group.add(男);group.add(女);oldMess=new JComboBox();开始修改=new JButton("开始修改");录入修改=new JButton("录入修改");录入修改.setEnabled(false);选择照片.setEnabled(false);重置=new JButton("重置");车牌号.addActionListener(this);开始修改.addActionListener(this);录入修改.addActionListener(this);重置.addActionListener(this);选择照片.addActionListener(this);Boxbox1=Box.createHorizontalBox();box1.add(new JLabel("输入要修改信息的车牌号：",JLabel.CENTER));box1.add(车牌号);box1.add(开始修改);Boxbox2=Box.createHorizontalBox();box2.add(new JLabel("(新)车主姓名:",JLabel.CENTER));box2.add(姓名);Boxbox3=Box.createHorizontalBox();box3.add(new JLabel("(新)性别:",JLabel.CENTER));box3.add(男);box3.add(女);Boxbox4=Box.createHorizontalBox();box4.add(new JLabel("(新)档次:",JLabel.CENTER));box4.add(档次);Boxbox5=Box.createHorizontalBox();box5.add(new JLabel("(新)购车公司:",JLabel.CENTER));box5.add(购车公司);Boxbox6=Box.createHorizontalBox();box6.add(new JLabel("(新)购车时间:",JLabel.CENTER));box6.add(购车时间);Boxbox7=Box.createHorizontalBox();box7.add(new JLabel("车主已有的数据:",JLabel.CENTER));box7.add(oldMess);BoxboxH=Box.createVerticalBox();boxH.add(box1);boxH.add(box2);boxH.add(box3);boxH.add(box4);boxH.add(box5);boxH.add(box6);boxH.add(box7);boxH.add(Box.createVerticalGlue());JPanelpicPanel=new JPanel();picPanel.setBackground(Color.green);picPanel.add(new JLabel("选择照片:",JLabel.CENTER));picPanel.add(选择照片);JPanelputBotton=new JPanel();putBotton.setBackground(Color.yellow);putBotton.add(录入修改);putBotton.add(重置);JPanelmessPanel=new JPanel();messPanel.setBackground(Color.pink);messPanel.add(boxH);setLayout(new BorderLayout());JSplitPanesplitV=new JSplitPane(JSplitPane.VERTICAL_SPLIT,picPanel,pic);JSplitPanesplitH=new JSplitPane(JSplitPane.HORIZONTAL_SPLIT,messPanel,splitV);add(splitH,BorderLayout.CENTER);add(putBotton,BorderLayout.SOUTH);validate();}publicvoid actionPerformed(ActionEvent e){if(e.getSource()==开始修改||e.getSource()==车牌号){oldMess.removeAllItems();String number="";imagePic=null;number=车牌号.getText();if(number.length()>0){try{inOne=new FileInputStream(systemFile);inTwo=new ObjectInputStream(inOne);基本信息表=(HashMap<String,Car>)inTwo.readObject();inOne.close();inTwo.close();}catch(Exception ee){}if(基本信息表.containsKey(number)){录入修改.setEnabled(true);选择照片.setEnabled(true);stu=基本信息表.get(number);oldMess.addItem("车主姓名："+stu.getName());oldMess.addItem("档次："+stu.getDiscipling());oldMess.addItem("购车公司："+stu.getGrade());oldMess.addItem("购车时间："+stu.getBorth());if(stu.getSex().equals("男"))男.setSelected(true);else女.setSelected(true);imagePic=stu.getImagePic();pic.setImage(imagePic);pic.repaint();姓名.setText(stu.getName());购车公司.setText(stu.getGrade());购车时间.setText(stu.getBorth());}else{录入修改.setEnabled(false);选择照片.setEnabled(false);String warning="该车牌号不存在！";JOptionPane.showMessageDialog(this,warning,"警告",JOptionPane.WARNING_MESSAGE);clearMess();}}else{录入修改.setEnabled(false);选择照片.setEnabled(false);String warning="必须要输入车牌号！";JOptionPane.showMessageDialog(this,warning,"警告",JOptionPane.WARNING_MESSAGE);clearMess();}}elseif(e.getSource()==录入修改){String number="";number=车牌号.getText();if(number.length()>0){try{inOne=new FileInputStream(systemFile);inTwo=new ObjectInputStream(inOne);基本信息表=(HashMap<String,Car>)inTwo.readObject();inOne.close();inTwo.close();}catch(Exception ee){}if(基本信息表.containsKey(number)){String question="该生基本信息已存在。

(完整word版)车辆管理系统源代码(C++)

#include<windows.h>#include<iostream>#include<fstream>#include<iomanip>#include<conio.h>using namespace std;#define N 20 //车辆最大存储量20#define OilPrice 8.0 //油价8元每升class Manager;class Cars{private:int num; //编号int pnum; //车牌号char made[20]; //制造公司double time; //购买时间（多少个月）int type; //型号(1-大客车,2-小轿车,3-卡车) double km; //总公里数int cost; //基本维护费用int RoadFee; //养路费double OilKm; //耗油量/公里double AllCount;//累计总费用friend Manager;};class Manager{private:Cars car[N];int people[N]; //最大载客量（大客车）int coach[N]; //箱数（小轿车）int weight[N]; //载重量（卡车）int top; //记录当前车辆数量public:Manager(){top = 0;}//车辆初始值为0void add(); //添加车辆void search(); //查询车辆void show(); //显示车辆信息库void edit(); //编辑功能void delet(); //删除车辆void sum(); //统计信息void read(); //读出车辆信息void write(); //车辆信息存盘void jiemian(); //总界面};//////////////////////////////////////////////////////////////////////////////////////////////////////// ////////void Manager::add() //////////添加车辆{int a = 0, x, y;while(1){if(top < N){cout<<"请输入需添加的车辆信息"<<endl;cout<<"车辆编号：";cin>>x;for(int j = 0; j < top; j++){if ( car[j].num == x ) //编号重复{cout<<"编号重复,添加失败! 即将跳转至功能主界面"<<endl;a++;break;}}if(a == 0) //此时编号不重复{car[top].num = x;cout<<"车牌号：";cin>>car[top].pnum;cout<<"车辆制造公司：";cin>>car[top].made;cout<<"购买时间：";cin>>car[top].time;cout<<"养路费：";cin>>car[top].RoadFee;cout<<"车辆型号(1-大客车,2-小轿车,3-卡车)：";cin>>car[top].type;while(!(car[top].type==1||car[top].type==2||car[top].type==3)) //判断输入指令是否为1-3{cout<<"输入指令号错误,重输：";cin>>car[top].type;}cout<<"总公里数：";cin>>car[top].km;if( car[top].type == 1 ) //此时是1-大客车{cout<<"最大载客量：";cin>>people[top];car[top].cost = 2000;car[top].OilKm = 0.1;}else if( car[top].type == 2 ) //此时是2-小轿车{cout<<"车厢数：";cin>>coach[top];car[top].cost = 1000;car[top].OilKm = 0.05;}else //此时是3-卡车{cout<<"载重量：";cin>>weight[top];car[top].cost = 1500;car[top].OilKm = 0.15;}car[top].AllCount =(OilPrice * car[top].OilKm * car[top].km) + (car[top].time *car[top].cost); //计算总费用top++; //车辆总数加一write(); //调用车辆信息存盘函数cout<<"是否继续添加车辆？(1-是,2-否)：";cin>>y;while(!( y==1 || y==2 )){cout<<"输入指令号错误，重输:";cin>>y;}if(y == 2){cout<<"即将跳转至功能主界面"<<endl;break;}}else //此时编号重复break;}else{cout<<"车辆信息库已满,不能再添加车辆!"<<endl;cout<<"即将跳转至功能主界面"<<endl;break;}}Sleep(1000); //延迟1秒jiemian();}//////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////void Manager::search() //////////查询车辆{int choose,m,n,a = 0;char i,t[20];cout<<"****************************"<<endl;cout<<"* 1.按车辆制造公司查询*"<<endl;cout<<"* 2.按编号查询*"<<endl;cout<<"* 3.按类别查询*"<<endl;cout<<"****************************"<<endl;cout<<" 请输入你的选项：";while(1){cin>>i;cout<<endl;if(i=='1'||i=='2'||i=='3')break;cout<<"输入错误,重输：";}if(i == '1'){cout<<"请输入需查询车辆的制造公司：";cin>>t;}else if(i == '2'){cout<<"请输入需查询的车辆编号：";cin>>n;}else if(i == '3'){cout<<"请输入需查询的车辆型号(1-大客车,2-小轿车,3-卡车)：";cin>>m;}for(int j = 0; j < top; j++)if(strcmp(car[j].made, t) == 0||car[j].num == n||car[j].type == m){cout<<"编号车牌号制造商购买时间型号特性总公里养路费维护费油耗总费用"<<endl;break;}for( j = 0; j < top; j++)if(strcmp(car[j].made, t) == 0||car[j].num == n||car[j].type == m){cout<<setw(4)<<car[j].num<<setw(7)<<car[j].pnum<<setw(7)<<car[j].made<<setw(7)<<car[j].time;if(car[j].type == 1 )cout<<setw(9)<<"大客车"<<setw(8)<<"载客量:"<<people[j];else if(car[j].type == 2 )cout<<setw(9)<<"小轿车"<<setw(9)<<"车厢数: "<<coach[j];elsecout<<setw(8)<<"卡车"<<setw(9)<<"载重量:"<<weight[j];cout<<setw(6)<<car[j].km<<setw(7)<<car[j].RoadFee<<setw(7)<<car[j].cost<<setw(7) <<car[j].OilKm<<setw(8)<<car[j].AllCount<<endl;a++;}if(a != 0){cout<<"是否进行修改?(1-是,2-否)：";cin>>choose;if(choose == 1)edit();}else{if(i=='1') cout<<"车辆制造公司不存在！"<<endl;if(i=='2') cout<<"车辆编号不存在！"<<endl;else if (i=='3') cout<<"车辆型号不存在！"<<endl;}cout<<"按任意键返回功能主界面"<<endl;char zz=getch();jiemian();}//////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////void Manager::show() //////////显示车辆信息库{if(top != 0){cout<<"********************************************************************************"< <endl;cout<<"编号车牌号制造商购买时间型号特性总公里养路费维护费油耗总费用"<<endl;for(int j = 0; j < top; j++){cout<<setw(4)<<car[j].num<<setw(7)<<car[j].pnum<<setw(7)<<car[j].made<<setw(7) <<car[j].time;if(car[j].type == 1 )cout<<setw(9)<<"大客车"<<setw(8)<<"载客量:"<<setw(2)<<people[j];else if(car[j].type == 2 )cout<<setw(9)<<"小轿车"<<setw(8)<<"车厢数:"<<setw(2)<<coach[j];elsecout<<setw(9)<<"卡车"<<setw(8)<<"载重量:"<<setw(2)<<weight[j];cout<<setw(6)<<car[j].km<<setw(7)<<car[j].RoadFee<<setw(7)<<car[j].cost<<setw(7) <<car[j].OilKm<<setw(8)<<car[j].AllCount<<endl;}cout<<"********************************************************************************"< <endl;}elsecout<<"车辆库为空！"<<endl;cout<<"按任意键返回主界面:";char z=getch();jiemian();}//////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////void Manager::edit() ////////////编辑功能{int i, j, a = 0;cout<<"请依次输入需要修改的车辆信息："<<endl;while(1){cout<<"车辆编号：";cin>>i;for(j = 0; j < top; j++){if(car[j].num == i) //车库有此编号的车{cout<<"车牌号：";cin>>car[j].pnum;cout<<"制造公司：";cin>>car[j].made;cout<<"购买时间：";cin>>car[j].time;cout<<"型号(1-大客车，2-小轿车，3-卡车)：";cin>>car[j].type;while(!(car[j].type==1||car[j].type==2||car[j].type==3)){cout<<"输入信息有误，请输入1-3：";cin>>car[j].type;}cout<<"总公里数：";cin>>car[j].km;cout<<"养路费：";cin>>car[j].RoadFee;if( car[j].type == 1 ) //此时是1-大客车{cout<<"最大载客量：";cin>>people[j];car[j].cost = 2000;car[j].OilKm = 0.1;}else if( car[j].type == 2 ) //此时是2-小轿车{cout<<"车厢数：";cin>>coach[j];car[j].cost = 1000;car[j].OilKm = 0.05;}else //此时是3-卡车{cout<<"载重量：";cin>>weight[j];car[j].cost = 1500;car[j].OilKm = 0.15;}write();a++;}}if(a == 0)cout<<"此编号不存在，不能进行修改，请重新输入！"<<endl;else{cout<<"修改成功！系统将返回主界面..."<<endl;break;}}Sleep(1000); //延迟1秒jiemian();}//////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////void Manager::delet() //////////////////删除车辆{int i, a = 0;while(1){if(top == 0){cout<<"车辆信息库为空！系统将返回功能界面..."<<endl;break;}else{cout<<"请输入需要删除的车辆编号：";cin>>i;for(int j = 0; j < top; j++){if(car[j].num == i) //车辆编号存在{if(top==1)car[0].type=0;else{if( car[top - 1].type == 1 ) //判断出此时car数组里储存在最后一组的是1-大客车{people[j] = people[top - 1];///////// （把最后一组数据）///////car[j].cost = 2000; ///////// （赋给将要删除的）///////car[j].OilKm = 0.1; ///////// （那组数据的位置）///////}else if(car[top - 1].type == 2 ) //判断出此时car数组里储存在最后一组的是2-小轿车{coach[j] = coach[top - 1];car[j].cost = 1000;car[j].OilKm = 0.05;}else //判断出此时car数组里储存在最后一组的是3-卡车{weight[j] = weight[top - 1];car[j].cost = 1500;car[j].OilKm = 0.15;}car[j].num = car[top - 1].num; ///////// （把最后）///////car[j].pnum = car[top - 1].pnum; ///////// （一组数）///////strcpy(car[j].made, car[top - 1].made); ///////// （据赋给）///////car[j].time = car[top - 1].time; ///////// （将要删）///////car[j].type = car[top - 1].type; ///////// （除的那）///////car[j].km = car[top - 1].km; ///////// （组数据）///////car[j].RoadFee = car[top - 1].RoadFee; ///////// （的位置）///////car[j].AllCount = car[top-1].AllCount; ///////// （）///////}top--; //此时删除车辆数据彻底完成，车辆总数减一a++;write();}}if(a == 0)cout<<"此编号不存在，不能进行删除，请重新输入！"<<endl;else{cout<<"删除成功！系统将返回功能界面..."<<endl;break;}}}Sleep(1000); //延迟1秒jiemian();}//////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////void Manager::write() //////////////////车辆信息存盘{ofstream write;write.open("d:\\a.txt",ios::out);if(write){for(int i = 0; i < top; i++){//依次存入编号、车牌号、制造商、购买时间、型号、write<<endl;write<<car[i].num<<" "<<car[i].pnum<<" "<<car[i].made<<" "<<car[i].time<<" "<<car[i].type<<" ";if(car[i].type == 1)write<<people[i];//存入载客量else if(car[i].type == 2)write<<coach[i];//存入车厢数elsewrite<<weight[i];//存入载重量//依次存入总公里、养路费、维护费、油耗、总费用write<<" "<<car[i].km<<" "<<car[i].RoadFee<<" "<<car[i].cost<<" "<<car[i].OilKm<<" "<<car[i].AllCount;}}else cout<<"write failed"<<endl;}//////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////void Manager::read() ///////////////////读出车辆信息{while(1){ifstream read("d:\\a.txt",ios::in);if(read){while(!read.eof()){//依次读取编号、车牌号、制造商、购买时间、型号read>>car[top].num>>car[top].pnum>>car[top].made>>car[top].time>>car[top].type;if(car[top].type == 1)read>>people[top];//读取载客量else if(car[top].type == 2)read>>coach[top];//读取车厢数elseread>>weight[top];//读取载重量//依次读取总公里、养路费、维护费、油耗、总费用read>>car[top].km>>car[top].RoadFee>>car[top].cost>>car[top].OilKm>>car[top].AllCount ;if(car[top].type==1||car[top].type==2||car[top].type==3)top++;}read.close();break;}else{ofstream o("d:\\a.txt");o.close();}}}//////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////void Manager::jiemian() ////////////////总界面{int c1=0,c2=0,c3=0;top=0;read();system("cls");for(int j = 0; j < top; j++)if( car[j].type == 1 )c1++; //统计大客车的数量else if(car[j].type == 2)c2++; //统计小轿车的数量else if(car[j].type==3)c3++; //统计卡车的数量top=c1+c2+c3;cout<<"***********************************"<<endl;cout<<"* 欢迎进入车辆管理系统*"<<endl;cout<<"* 1.添加车辆*"<<endl;cout<<"* 2.查询车辆*\t\t总车辆\t"<<top<<endl;cout<<"* 3.显示车辆*\t\t大客车\t"<<c1<<endl;cout<<"* 4.编辑车辆*\t\t小轿车\t"<<c2<<endl;cout<<"* 5.删除车辆*\t\t卡车\t"<<c3<<endl;cout<<"* 0.退出系统*"<<endl;cout<<"***********************************"<<endl;cout<<"请输入你需要操作的选项:";char i;cin>>i;while(!(i=='1'||i=='2'||i=='3'||i=='4'||i=='5'||i=='0')){cout<<"输入错误,请重新输入:";char i=getch();cout<<endl;}switch(i){case '1':add();break;case '2':search();break;case '3':show();break;case '4':edit();break;case '5':delet();break;case '0':return;}}//////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////int main(){system("color 3f");Manager a;a.jiemian();return 0;}。

VB车辆管理系统-源代码-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 '要删除的项目不存在时。

Python课程设计：汽车销售管理系统

Python课程设计：汽车销售管理系统汽车销售管理系统，可以做为掌握了一些基础知识后的一个练手小demo小demo结构：汽车销售管理系统：能够实现汽车销售管理与相关信息的保存和读取。

实现所有库存汽车相关信息的录入，显示，销售，修改。

设置登录的权限，管理员和普通用户（顾客）所可以操作的资源不同。

用的是文件读取和字典。

源代码如下："""汽车销售管理系统功能根据实验指导书要求，完成相关软件系统的设计，要求内容翔实，条理清晰，主要（关键代码）须有详细注释，写清楚测试结果，并分析存在的问题：1）能够实现汽车销售管理与相关信息的保存（到文件）和读取；2）实现所有库存汽车相关信息的录入、显示、销售、修改等功能；3）系统界面应类似下图所示的控制台界面（鼓励使用WEB或桌面窗体界面）：其中，选择相应菜单代码之后进入相应的功能，可以：1录入汽车信息（最后保存到文件）；2显示已经保存的汽车信息（库存）；3销售汽车：先显示已有汽车数据，选择销售的汽车编号之后将该车的信息删除；4修改汽车信息，先通过编号选定汽车信息，然后更改；5显示已经销售的汽车信息；6退出。

"""# 定义一个汽车类class Cars(object):def __init__(self, id, name, price):self.id = id = nameself.price = pricedef __str__(self):info = "编号:%s\t汽车名称:%s\t\t价格:%d万元" % (self.id, , self.price)return info# 管理整个汽车商城的类class ShopManager(object):def __init__(self, path):# path:表示读取文件的路径shopdic：表示存放内存的容器self.path = pathself.shopdic = self.readFileToDic()def readFileToDic(self):# 读取文件，写入到字典中f = open(self.path, 'r', encoding='utf-8')clist = f.readlines()f.close()index = 0shopdic = {}while index < len(clist):# 将每一行的字符串进行分割，存放到新的列表中ctlist = clist[index].replace('\n', "").split("|")# 将每行的内容存放到一个对象中car = Cars(ctlist[0], ctlist[1], int(ctlist[2]))# 将对向存放到集合中shopdic[car.id] = carindex = index + 1return shopdicdef writeContentFile(self):# 将内存当中的信息写入到文件当中str1 = ''for key in self.shopdic.keys():car = self.shopdic[key]ele = car.id + "|" + + "|" + str(car.price) + "\n"# 拼接str1 = str1 + elef = open(self.path, 'w', encoding='utf-8')f.write(str1)# 关闭文件f.close()def addCars(self):# 添加汽车的方法id = input("请输入添加汽车的编号:>")if self.shopdic.get(id):print("汽车编号已存在，请重新选择！")returnname = input("请输入添加汽车名称:>")price = int(input("请输入添加汽车价格（万元）:>"))car = Cars(id, name, price)self.shopdic[id] = carprint("添加成功！")def deleteCars(self):# 删除汽车的方法id = input("请输入删除汽车编号:>")if self.shopdic.get(id):del self.shopdic[id]print("删除成功！")else:print("汽车编号不存在！")def modCars(self):# 修改汽车的方法# 根据汽车的编号进行修改id = input("请输入要修改的汽车的编号")if self.shopdic.get(id):# 存在这个汽车编号才可以进行修改id1 = input("请输入修改后的汽车的编号:>")name1 = input("请输入修改后的汽车的名称：>")price1 = int(input("请输入修改后的汽车的价格（万元）:>"))car = Cars(id1, name1, price1)self.shopdic[id] = carprint("修改成功！")else:print("汽车编号不存在")def showCars(self):# 展示所有汽车信息print("=" * 40)# 遍历for key in self.shopdic.keys():car = self.shopdic[key]print(car)print("=" * 40)def adminWork(self):info = """==========欢迎进入购车商城==================输入功能编号，您可以选择以下功能：输入“1”：显示汽车的信息输入“2”：添加汽车的信息输入“3”：删除汽车的信息输入“4”：修改汽车的信息输入“5”：退出汽车系统功能=========================================="""print(info)while True:code = input("请输入功能编号:>")if code == "1":self.showCars()elif code == "2":self.addCars()elif code == "3":self.deleteCars()elif code == "4":self.modCars()elif code == "5":print("感谢您的使用，正在退出系统！！")self.writeContentFile()breakelse:print("输入编号有误，请重新输入！！")def userWork(self):print(" ==============欢迎进入购车商城==============")print("您可输入编号和购买数量选购汽车，输入编号为n则结账")self.showCars()total = 0while True:id = input("请输入购买商品编号:>")if id == "n":print("本次购买商品共消费%d万元，感谢您的光临！" % (total))breakif self.shopdic.get(id):car = self.shopdic[id]num = int(input("请输入购买数量:>"))total = total + car.price * numelse:print("输入商品编号有误，请核对后重新输入！")def login(self):# 登录功能print("==========欢迎登录购车商城===========")uname = input("请输入用户名:>> ")password = input("请输入密码:>> ")if uname == "admin":if password == "123456":print("欢迎您，admin管理员")self.adminWork()else:print("管理员密码错误，登录失败！") else:print("欢迎你，%s用户" % (uname))# 执行用户的购买功能erWork()if __name__ == '__main__':shopManage = ShopManager("car.txt")shopManage.login()txt文件：10001|一号汽车|3010002|二号汽车|3510003|三号汽车|2810004|四号汽车|1410005|五号汽车|3610006|六号汽车|69运行截图：。

车辆管理系统【附源代码】C++课程设计报告-

北华航天工业学院《基于C++的面向对象程序设计实例》实践报告报告题目：车辆管理系统设计作者所在系部：计算机科学与工程系作者所在专业：网络工程作者所在班级：B12522作者学号：作者姓名：妖YYYao指导教师姓名：李瑛完成时间：2013年6月北华航天工业学院教务处制北华航天工业学院实践报告摘要在当前的市场经济体制下，企业要想提高市场的竞争力，取得好的经济效益，不但要有好的产品，同时也要有好的管理方式，所以必须拥有一套完善的并且适合自身特点的信息化管理系统，以实现企业降低成本、及时反馈市场信息、完善服务质量、提高经济效益、分析市场需求、制定销售计划和目标等管理目的。

本系统主要实现了对车辆的添加，查询，显示，编辑，删除，统计，存盘，读出。

主要运用了类的继承等编程方法来实现对这些车辆的管理。

已经过全面的系统测试，能够很好的运行，达到了预期的效果。

关键词：系统设计车辆管理类的继承目录摘要 (Ⅰ)第1章绪论 (1)1.1 课程设计的目的 (1)1.2 课程设计的背景及意义 (1)1.2.1课程设计的背景 (1)1.2.2课程设计的意义 (1)1.3 课程设计环境 (1)第2章系统需求分析 (2)2.1问题描述 (2)2.2功能分析 (2)2.3问题的解决方案 (3)第3章系统设计 (4)3．1 数据设计 (4)3．1．1 类设计 (4)3．1．2 类之间的关系 (4)3．1．3 函数设计 (4)3．2 结构设计 (5)3．2．1 系统流程图 (5)3．2．2 界面设计 (6)第4章系统实现 (8)4．1 类实现 (8)4．2 函数实现 (10)4．3 主函数实现 (14)第5章系统测试 (16)5．1 模块测试 (16)5．2 课程设计过程中遇到的问题 (18)总结 (19)致谢 (20)参考文献 (21)第一章绪论1．1 课程设计的目的（1）要求学生能够熟练掌握C++语言的基本知识和技能。

车辆管理系统论文+代码

目录1：需求分析------------------------------------------------------------------------ 2：算法设计---------------------------------------------------------------------- （1）设计思想-------------------------------------------------------------------- （2）设计表示--------------------------------------------------------------------- （3）实现注释-------------------------------------------------------------------- (4) 算法设计中一些新的想法--------------------------------------------------- 3：用户手册---------------------------------------------------------------------- 4：调试及测试------------------------------------------------------------------- 5：课程小结----------------------------------------------------------------------6：参考文献----------------------------------------------------------------------7:附录-----------------------------------------------------------------------------(1)源程序清单-----------------------------------------------------------------(2)测试数据---------------------------------------------------------------------(3)运行结果---------------------------------------------------------------------一：需求分析1)描述问题：设计一个汽车站车票管理系统，该系统要求对班次信息和售票退票进行维护和管理。

c++程序设计车辆管理系统实验报告附源代码

C++程序设计车辆管理系统实验报告附源代码1.实习题目车辆管理系统2.原理概述某运输公司，需要对其下所有的各种车辆进行管理，拟建立一个车辆管理系统进行管理，该系统能够实现以下功能：（1）利用类、继承的相关理论知识，建立合理的类，能够管理至少5种车型，各种车型的相关数据，根据需要自行设定（1）能够统计出该公司，所有车辆的累积行驶里程（2）能够分类统计出每一类车辆的累积行驶里程、资产总额、驾驶员数量等相关信息（3）能够根据驾驶员信息查找该驾驶员驾驶的车辆的详细信息（4）能够统计出该公司车辆的总数额以及每类车辆的数量（5）能够实现某个类型车辆的添加和删除（6）其他功能可根据需要自行扩充，并请在课程设计报告中详细说明！3．设计方案编程语言C++语言数据结构.系统结构图技术方案先定义结构体类，再将其继承，分别记录车辆信息和车辆编号函数；类的定义和使用；While函数for循环if判断语句switch循环；文件的打开与关闭，输入和输出。

流程图车辆信息添加车辆信息查询车辆信息显示否车辆信息删除车辆信息统计车辆信息保存车辆信息读取车辆信息打印4.程序编写#include<iostream>#include<fstream>#include<string>using namespace std;#define N 25执行界面、运行结果分析车辆信息添加输入编号添加车辆依次输入车辆信息。

车辆信息查询输入车辆编号查询车辆信息。

车辆信息显示显示车库内所有车辆。

车辆信息删除选择编号显示车辆信息，完成删除。

车辆信息统计选择要统计的内容，显示统计的内容。

车辆信息保存将车辆信息保存在文件中。

车辆信息读取将保存的车辆信息读取出来。

车辆信息打印将车辆信息打印下来。

6.总结与体会经过了几个星期的学习与实践，汽车管理系统已基本完成，基本功能已全部实现，顽强可以在汽车公司投入使用。

系统功能有：添加车辆信息，删除车辆信息，查询车辆信息，显示车辆信息，统计车辆信息，保存车辆信息，读取车辆信息，打印车辆信息等。

车辆管理系统java简单的代码

车辆管理系统java简单的代码车辆管理系统是一种用于记录车辆信息、管理车辆的运转状态和使用情况的软件系统。

在这个系统中，我们会使用Java编程语言编写一些简单的代码，来实现系统管理和数据处理的功能。

接下来，我将为您介绍一些车辆管理系统Java代码的基础知识。

1. 关于Java编程语言的认识Java是一种高级编程语言，它具有面向对象、平台无关性、容易学习和灵活的特点。

Java程序可以在多种操作系统和硬件平台上运行，不需要进行代码的重新编译或修改。

因此，Java成为许多企业和开发者选择的首选编程语言。

在车辆管理系统中，我们需要记录车辆的基本信息、维修记录、车辆保养情况等，这些内容都需要通过编写Java程序来实现。

以下是一些车辆管理系统Java代码的示例：（1）实现车辆信息管理的Java代码：public class Vehicle {String vnumber; //车辆编号String vtype; //车辆类型String vowner; //车主姓名int vcost; //购买价格public void display() { //显示车辆信息System.out.println("车辆编号：" + vnumber);System.out.println("车辆类型：" + vtype);System.out.println("车主姓名：" + vowner);System.out.println("购买价格：" + vcost);}}在上面的代码中，我们定义了一个Vehicle类，其中包含车辆编号、车辆类型、车主姓名以及购买价格等属性，还定义了一个用于显示车辆信息的display()方法。

3. 总结由上述代码可以看出，Java编程语言可以很好地用于实现车辆管理系统的开发。

借助Java的面向对象、易读和可扩展的特性，我们可以快速构建出一个功能完整、易用和可扩展的车辆管理系统。

丰田汽车电脑修改17位编码教程

丰田汽车电脑修改17位编码教程（原创版）目录1.丰田汽车电脑修改 17 位编码的意义2.修改 17 位编码的方法3.注意事项和建议正文丰田汽车电脑修改 17 位编码教程旨在帮助车主或汽车维修人员更好地理解和操作这一过程。

17 位编码是丰田汽车电脑系统中的一种重要编码方式，它涉及到车辆的许多关键功能，如发动机控制、自动变速器控制等。

因此，对于车主或汽车维修人员来说，掌握如何修改 17 位编码显得尤为重要。

一、丰田汽车电脑修改 17 位编码的意义丰田汽车电脑的 17 位编码修改，主要是为了解决车辆在使用过程中出现的一些问题，如故障码、发动机故障等。

同时，通过对 17 位编码的修改，还可以实现一些额外的功能，如提高发动机性能、优化燃油消耗等。

这对于那些追求驾驶体验的车主来说，无疑是一个非常有吸引力的选择。

二、修改 17 位编码的方法修改丰田汽车电脑的 17 位编码，需要使用专业的设备和技术。

具体操作步骤如下：1.首先，需要连接专业的汽车诊断仪器到车辆的 OBD 接口。

这个接口通常位于车辆的方向盘下方或座椅附近，具体位置可能会因车型而异。

2.然后，在诊断仪器上选择“读取故障码”或“读取数据流”功能，这样可以获取到车辆的实时运行信息。

3.在获取到车辆的实时运行信息后，选择“修改 17 位编码”功能。

这个功能通常需要输入一个密码，这个密码通常可以在车辆的使用手册或诊断仪器的说明书中找到。

4.输入密码后，就可以进入 17 位编码的修改界面。

在这个界面上，可以选择要修改的编码位，并输入新的编码值。

需要注意的是，编码值的修改需要遵循一定的规则，不能随意输入。

具体的规则，可以参考车辆的使用手册或诊断仪器的说明书。

5.修改完成后，需要将修改后的编码值保存，并进行复位。

复位完成后，就可以看到修改后的效果。

三、注意事项和建议修改丰田汽车电脑的 17 位编码，需要有一定的专业知识和技能。

因此，对于车主来说，如果车辆在使用过程中出现故障，建议第一时间联系专业的汽车维修人员进行检查和修理。

车辆管理系统C源程序

#include<stdio.h>#include<string.h>typedef struct Pe{char vno[8]; /*车牌号*/char name[15]; /*车主姓名*/int times1; /*违章停车次数*/int times2; /*闯红灯次数*/int times3; /*超速次数*/}PECCANCY;void main(){ int e,a,c,d,m=0,n=0,sum,i;char k[8],j[8];PECCANCY b[100];printf("请输入违章车辆信息：\n");for(i=0;i<100;i++){printf("输入车牌号：\n");scanf("%s",b[i].vno);printf("输入车主姓名：\n");scanf("%s",b[i].name);printf("输入违章停车次数：\n");scanf("%d",&b[i].times1);printf("输入闯红灯次数:\n");scanf("%d",&b[i].times2);printf("输入超速次数:\n");scanf("%d",&b[i].times3);printf("请输入1继续车辆信息，输入0结束录入\n"); scanf("%d",&a);if(a==0)break;}printf("\n\n\n");printf("输入车牌号查询其违章情况及罚款金额。

\n");for(e=0;e<100;e++){ m=0;printf("输入车牌号:\n");scanf("%s",j);for(i=0;i<100;i++)if(strcmp(j,b[i].vno)==0){ printf("车主姓名："); printf("%s\n", b[i].name);printf("违章停车次数:"); printf("%d\n",b[i].times1);printf("闯红灯次数："); printf("%d\n", b[i].times2); m=1;printf("超速次数:"); printf("%d\n", b[i].times3);sum=(b[i].times1)*100+(b[i].times2)*200+(b[i].times3)*500;printf("车牌号为"); printf("%s",j); printf("的罚款总金额为：");printf("%d\n",sum);m=1;break;}if(m!=1)printf("未找到符合条件的车辆\n");printf("输入1继续输入车牌号查询,输入0结束查询:\n");scanf("%d",&c);if(c==0)break;}printf("\n\n\n");}欢迎您的下载，资料仅供参考！。

(完整word版)车辆管理系统源代码(C++)

javamysql车辆管理系统的设计源代码

java+mysql车辆管理系统的设计+源代码Keywords: Vehicle Management; Java Swing; MySQL 目录第1章绪论 11.1 项目设计背景 11.2 项目设计的目的和意义 11.3 本文研究内容及主要贡献 1第2章需求分析 32.1 现实情况与亟待解决的问题 32.1.1 企业以及政府部门车辆管理现状 32.1.2 亟待解决的问题 32.2 系统功能模块 32.3 本章小结 4第3章系统分析 53.1 数据库设计 53.1.1 数据库概念设计 53.1.2 数据库逻辑设计 53.2 关键技术 113.2.1 java swing技术介绍 113.2.2 C/S (Client/Sever 客户端/服务器)结构介绍113.3 本章小结 11第4章系统模块的实现 124.1 后台数据库 124.1.1 MySQL数据库的介绍和安装过程 12 4.2 用户验证模块设计 204.3 用户管理模块设计 204.3.1 添加用户功能 214.3.2 查看用户信息功能 224.3.3 修改/删除用户信息功能 234.3.4 修改本人密码功能 244.4 驾驶员管理模块设计 244.4.1 添加驾驶员资料功能 254.4.2 查询驾驶员功能 26 :4.4.3 修改/删除驾驶员功能 274.5 车辆管理模块设计 284.5.1 添加车辆信息功能 284.5.2 查询车辆信息功能 294.5.3 修改/删除车辆信息功能 304.6 部门管理模块设计 314.6.1 新增部门功能 314.6.2 删除部门功能 324.6.3 查询部门功能 334.7 事务管理模块设计 334.7.1 申请用车功能 344.7.2 查看我的用车申请功能 354.7.3 查看历史用车记录功能 364.7.4 申请维修保养功能 374.7.5 查看我的维修保养功能 384.7.6 查看维修保养历史记录功能 39 4.7.7 设置系统公告功能 404.8 本章小结 40第5章系统测试 415.1 对系统性能的测试 415.2 对系统业务能力的测试 415.3 对系统健壮性的测试 415.4 本章小结 41第6章总结与展望 426.1 总结 426.2 展望 42毕业设计体会 43致谢 44参考文献 45英文翻译资料 46第1章绪论1.1 项目设计背景计算机技术的普及使得现代社会得以高效、迅速地运转。

源代码及说明书修改步骤

一、源代码修改步骤✧删除页眉和页脚；✧添加页眉：页眉要居左显示，不能出现拐行，如果没有下横线，则要自行添加；添加页眉方式为：设计—页码—页面顶端—普通设计3；页码页眉标准格式为：软件名称版本号，例如：网站内容管理系统V1.0；页眉内容要与申请表内容一致；✧每页空行不能超过5个；✧代码的注释不能出现：公司名称，人名，日期，软件名称，网址，copyright，版权以及与本软件无关的内容。

✧源代码第1页为开始，第31页也是开始，最后一页为完整结束；✧申请表上源代码数高于3000行，则代码必须为60页；如果低于3000行，修改完成代码要与申请表上的行数一致。

✧如果客户提供的源代码不足，则自行挑选代码片段进行补充，切记选择整段代码进行粘贴复制；要保证无痕迹，不能被看出有复制迹象；✧修改完成后重新检查整个文档出现的软件名称，版本号要与申请表一致；确保整篇文档不存在一下内容：“公司名称，人名，日期，网址，版权，copyright，技术支持，版权归属，权利归属”等字样。

二、说明书修改标准步骤删除页眉和页脚；添加页眉：页眉要居左显示，不能出现拐行，如果没有下横线，则要自行添加；添加页眉方式为：设计—页码—页面顶端—普通设计3；页码页眉标准格式为：软件名称版本号，例如：网站内容管理系统V1.0；页眉内容要与申请表内容一致；字体大小为四号或小四号；说明书文字内容不能出现：公司名称或国家相关部门有关的文字内容；不能出现：“网址，版权。

”如果出现则需要删除。

图片要先复制到画图工具中去，然后放到作图工具上进行修改；图片上面的软件名称及版本号要与申请表上一致；图片上面不能出现其他公司名称，版权归属，人名，日期；图片上面不能出现网址；图片上面不能出现国家相关部门名称；PS过程要细致认真，确保不能被看出来；如果有设计文档则要玉说明书整合，设计文档在前，说明书在后；说明书不能超过60页，多余内容要从后删除；说明书图片如果是网页截图，网页上的名称与申请表不一致，则要替换成“网页浏览器框”截图；修改后的图片要保持清晰像素；修改完成以后，检查文字内容和图片内容以确保：名称版本号与申请表一致，无其他公司名称，人名，日期，相关国家部门，版本归属等字样；在开发完成日期前的日期均不能出现，开发完成后的日期可以保留；不能出现logo标识等字样；出现个人照片时应删除。

车辆管理系统源代码修改

丰田汽车电脑修改17位编码教程

(完整word版)车辆管理系统源代码修改

车辆管理系统【附源代码】_C++课程设计报告-2013年

java车辆管理系统精修订

(完整word版)车辆管理系统源代码(C++)

VB车辆管理系统-源代码-VB编程毕业设计

Python课程设计：汽车销售管理系统

车辆管理系统【附源代码】C++课程设计报告-

车辆管理系统 论文+代码

c++程序设计车辆管理系统实验报告附源代码

车辆管理系统java简单的代码

丰田汽车电脑修改17位编码教程

车辆管理系统C源程序

(完整word版)车辆管理系统源代码(C++)

javamysql车辆管理系统的设计源代码

源代码及说明书修改步骤

车辆管理系统论文+代码