B9912028源程序代码.doc

箱体类零件工艺分析及知识库研究(减速机)机械毕业设计带CAD图

收藏

资源目录
跳过导航链接。
箱体类零件工艺分析及知识库研究减速机机械毕业设计带CAD图.zip
38箱体类零件工艺分析及知识库研究(减速机)
B9912028源程序代码.doc---(点击预览)
B9912028测试分析报告-2.doc---(点击预览)
B9912028毕业设计任务书.doc---(点击预览)
B9912028分析报告封面1.doc---(点击预览)
38箱体类零件工艺分析及知识库研究(减速机)
B9912028源程序代码_doc_2.png---(点击预览)
B9912028源程序代码_doc_1.png---(点击预览)
B9912028源程序代码_doc_0.png---(点击预览)
B9912028源程序代码_doc.txt---(点击预览)
B9912028源程序代码.doc---(点击预览)
B9912028测试分析报告-2_doc_2.png---(点击预览)
B9912028测试分析报告-2_doc_1.png---(点击预览)
B9912028测试分析报告-2_doc_0.png---(点击预览)
B9912028测试分析报告-2_doc.txt---(点击预览)
B9912028测试分析报告-2.doc---(点击预览)
B9912028毕业设计任务书_doc_2.png---(点击预览)
B9912028毕业设计任务书_doc_1.png---(点击预览)
B9912028毕业设计任务书_doc_0.png---(点击预览)
B9912028毕业设计任务书_doc.txt---(点击预览)
B9912028毕业设计任务书.doc---(点击预览)
B9912028分析报告封面1_doc_0.png---(点击预览)
B9912028分析报告封面1_doc.txt---(点击预览)
B9912028分析报告封面1.doc---(点击预览)
B9912028-装配图.gif---(点击预览)
B9912028-箱盖的模板工艺.gif---(点击预览)
B9912028-箱体合后的模板工艺.gif---(点击预览)
B9912028-曲轴箱.gif---(点击预览)
B9912028-底座的模板工艺.gif---(点击预览)
B9912028-减速箱盖1.gif---(点击预览)
B9912028-减速箱盖.gif---(点击预览)
B9912028-减速箱座1.gif---(点击预览)
B9912028-减速箱座.gif---(点击预览)
B9912028-减速箱体.gif---(点击预览)
B9912028-三维造型
B9912028quzhouxiang.prt.1
B9912028xianggai.prt.1
B9912028xiangti.prt.1
B9912028xiangzuo.prt.1
B9912028-工艺预览界面
B9912028减速箱体.bmp
B9912028减速箱座.bmp
B9912028减速箱盖.bmp
B9912028曲轴箱.bmp
Thumbs.db
B9912028设计说明书
B9912028-减速箱体.dwg
B9912028-减速箱座.dwg
B9912028-减速箱座1.dwg
B9912028-减速箱盖.dwg
B9912028-减速箱盖1.dwg
B9912028-底座的模板工艺.dwg
B9912028-曲轴箱.dwg
B9912028-箱体合后的模板工艺.dwg
B9912028-箱盖的模板工艺.dwg
B9912028-装配图.dwg
Thumbs.db
B9912028-三维造型
B9912028quzhouxiang.prt.1
B9912028xianggai.prt.1
B9912028xiangti.prt.1
B9912028xiangzuo.prt.1
B9912028-工艺预览界面
B9912028减速箱体.bmp
B9912028减速箱座.bmp
B9912028减速箱盖.bmp
B9912028曲轴箱.bmp
Thumbs.db
B9912028设计说明书
B9912028-减速箱体.dwg
B9912028-减速箱座.dwg
B9912028-减速箱座1.dwg
B9912028-减速箱盖.dwg
B9912028-减速箱盖1.dwg
B9912028-底座的模板工艺.dwg
B9912028-曲轴箱.dwg
B9912028-箱体合后的模板工艺.dwg
B9912028-箱盖的模板工艺.dwg
B9912028-装配图.dwg
Thumbs.db
箱体类零件工艺分析及知识库研究(减速机)机械专业毕业设计
38箱体类零件工艺分析及知识库研究(减速机)
B9912028源程序代码.doc---(点击预览)
B9912028测试分析报告-2.doc---(点击预览)
B9912028毕业设计任务书.doc---(点击预览)
B9912028分析报告封面1.doc---(点击预览)
B9912028-装配图.gif---(点击预览)
B9912028-箱盖的模板工艺.gif---(点击预览)
B9912028-箱体合后的模板工艺.gif---(点击预览)
B9912028-曲轴箱.gif---(点击预览)
B9912028-底座的模板工艺.gif---(点击预览)
B9912028-减速箱盖1.gif---(点击预览)
B9912028-减速箱盖.gif---(点击预览)
B9912028-减速箱座1.gif---(点击预览)
B9912028-减速箱座.gif---(点击预览)
B9912028-减速箱体.gif---(点击预览)
38箱体类零件工艺分析及知识库研究(减速机)
B9912028源程序代码.doc---(点击预览)
B9912028测试分析报告-2.doc---(点击预览)
B9912028毕业设计任务书.doc---(点击预览)
B9912028分析报告封面1.doc---(点击预览)
B9912028-装配图.gif---(点击预览)
B9912028-箱盖的模板工艺.gif---(点击预览)
B9912028-箱体合后的模板工艺.gif---(点击预览)
B9912028-曲轴箱.gif---(点击预览)
B9912028-底座的模板工艺.gif---(点击预览)
B9912028-减速箱盖1.gif---(点击预览)
B9912028-减速箱盖.gif---(点击预览)
B9912028-减速箱座1.gif---(点击预览)
B9912028-减速箱座.gif---(点击预览)
B9912028-减速箱体.gif---(点击预览)
B9912028-三维造型
B9912028-工艺预览界面
B9912028设计说明书
B9912028-减速箱体.dwg
B9912028-减速箱座.dwg
B9912028-减速箱座1.dwg
B9912028-减速箱盖.dwg
B9912028-减速箱盖1.dwg
B9912028-底座的模板工艺.dwg
B9912028-曲轴箱.dwg
B9912028-箱体合后的模板工艺.dwg
B9912028-箱盖的模板工艺.dwg
B9912028-装配图.dwg
Thumbs.db
B9912028-三维造型
B9912028quzhouxiang.prt.1
B9912028xianggai.prt.1
B9912028xiangti.prt.1
B9912028xiangzuo.prt.1
B9912028-工艺预览界面
B9912028减速箱体.bmp
B9912028减速箱座.bmp
B9912028减速箱盖.bmp
B9912028曲轴箱.bmp
Thumbs.db
B9912028设计说明书
B9912028-减速箱体.dwg
B9912028-减速箱座.dwg
B9912028-减速箱座1.dwg
B9912028-减速箱盖.dwg
B9912028-减速箱盖1.dwg
B9912028-底座的模板工艺.dwg
B9912028-曲轴箱.dwg
B9912028-箱体合后的模板工艺.dwg
B9912028-箱盖的模板工艺.dwg
B9912028-装配图.dwg
Thumbs.db
压缩包内文档预览:
预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图
编号:20699013    类型:共享资源    大小:13.35MB    格式:ZIP    上传时间:2019-07-09 上传人:QQ24****1780 IP属地:浙江
25
积分
关 键 词:
减速器箱体机械 设计机械CAD图纸 机械毕业设计 研究减速器箱体 减速器箱体零件 工艺机械CAD图纸设计 箱体零件图样分析 箱体零件工艺分析 CAD零件图
资源描述:
箱体类零件工艺分析及知识库研究(减速机)机械毕业设计带CAD图,减速器箱体机械,设计机械CAD图纸,机械毕业设计,研究减速器箱体,减速器箱体零件,工艺机械CAD图纸设计,箱体零件图样分析,箱体零件工艺分析,CAD零件图
内容简介:
unit xjgy;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, OleCtrls, VOLOVIEWXLib_TLB, Buttons, ExtCtrls,shellapi, Menus, DB, ADODB;type Tl_xjgy = class(TForm) StatusBar1: TStatusBar; Splitter2: TSplitter; Splitter1: TSplitter; SaveDialog1: TSaveDialog; ADOQuery8: TADOQuery; ADOQuery7: TADOQuery; ADOQuery6: TADOQuery; ADOQuery5: TADOQuery; ADOQuery4: TADOQuery; ADOQuery3: TADOQuery; DataSource1: TDataSource; ADOQuery2: TADOQuery; ADOQuery1: TADOQuery; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; Panel3: TPanel; Splitter3: TSplitter; Splitter4: TSplitter; Panel4: TPanel; Panel7: TPanel; SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton6: TSpeedButton; SpeedButton3: TSpeedButton; Panel8: TPanel; AvViewX1: TAvViewX; Panel5: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Panel6: TPanel; DBGrid1: TDBGrid; Panel2: TPanel; Panel9: TPanel; Label6: TLabel; Panel10: TPanel; Panel11: TPanel; Label7: TLabel; Label8: TLabel; Edit7: TEdit; Edit8: TEdit; Panel12: TPanel; Label4: TLabel; Label5: TLabel; Edit4: TEdit; Edit5: TEdit; Panel1: TPanel; TreeView1: TTreeView; TreeView2: TTreeView; TreeView3: TTreeView; TreeView4: TTreeView; TreeView5: TTreeView; TreeView6: TTreeView; OpenDialog1: TOpenDialog; N3: TMenuItem; N4: TMenuItem; ADOQuery9: TADOQuery; ADOQuery10: TADOQuery; Label9: TLabel; Label10: TLabel; Edit6: TEdit; Edit9: TEdit; ADOQuery8DSDesigner: TIntegerField; ADOQuery8DSDesigner2: TIntegerField; ADOQuery8DSDesigner3: TStringField; ADOQuery8DSDesigner4: TStringField; ADOQuery8DSDesigner5: TStringField; ADOQuery8DSDesigner6: TStringField; ADOQuery8DSDesigner7: TStringField; ADOQuery8DSDesigner8: TStringField; ADOQuery8DSDesigner9: TStringField; ADOQuery8DSDesigner10: TStringField; ADOQuery8DSDesigner11: TFloatField; ADOQuery8DSDesigner12: TStringField; ADOQuery8DSDesigner13: TStringField; ADOQuery8DSDesigner14: TStringField; ADOQuery8DSDesigner15: TStringField; ADOQuery8DSDesigner16: TStringField; ADOQuery8DSDesigner17: TStringField; ADOQuery8DSDesigner18: TStringField; ADOQuery8DSDesigner19: TStringField; ADOQuery8DSDesigner20: TStringField; tuxing2: TBlobField; ADOQuery2DSDesigner: TIntegerField; ADOQuery2DSDesigner2: TIntegerField; ADOQuery2DSDesigner3: TStringField; ADOQuery2DSDesigner4: TStringField; ADOQuery2DSDesigner5: TStringField; ADOQuery2DSDesigner6: TStringField; ADOQuery2DSDesigner7: TStringField; ADOQuery2DSDesigner8: TStringField; ADOQuery2DSDesigner9: TStringField; ADOQuery2DSDesigner10: TStringField; ADOQuery2DSDesigner11: TFloatField; ADOQuery2DSDesigner12: TStringField; ADOQuery2DSDesigner13: TStringField; ADOQuery2DSDesigner14: TStringField; ADOQuery2DSDesigner15: TStringField; ADOQuery2DSDesigner16: TStringField; ADOQuery2DSDesigner17: TStringField; ADOQuery2DSDesigner18: TStringField; ADOQuery2DSDesigner19: TStringField; ADOQuery2DSDesigner20: TStringField; tuxing: TBlobField; procedure FormCreate(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TreeView1Change(Sender: TObject; Node: TTreeNode); procedure TreeView2Change(Sender: TObject; Node: TTreeNode); procedure TreeView3Change(Sender: TObject; Node: TTreeNode); procedure TreeView4Change(Sender: TObject; Node: TTreeNode); procedure TreeView5Change(Sender: TObject; Node: TTreeNode); procedure TreeView6Change(Sender: TObject; Node: TTreeNode); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure SpeedButton6Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); private Private declarations public Public declarations procedure LoadgcmcTREE; procedure LoadgcnrTREE; procedure LoadjckTREE; procedure LoadjjkTREE; procedure LoaddjkTREE; procedure LoadljkTREE; end;var l_xjgy: Tl_xjgy; tup,wjj:string;implementationuses unit1;$R *.dfmprocedure Tl_xjgy.FormCreate(Sender: TObject);var i,ss:integer; serveString: string;beginwjj:=GetCurrentDir; /下面一部分是动态连接数据库adoquery1.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery1.SQL.Clear; adoquery1.SQL.Add(select * from 工序名称库) ; adoquery1.open; adoquery2.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery2.SQL.Clear; adoquery2.SQL.Add(select * from 机械加工工艺过程卡片) ; adoquery2.open; adoquery3.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery3.SQL.Clear; adoquery3.SQL.Add(select * from 工序内容) ; adoquery3.open; adoquery4.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery4.SQL.Clear; adoquery4.SQL.Add(select * from 机床库) ; adoquery4.open; adoquery5.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery5.SQL.Clear; adoquery5.SQL.Add(select * from 夹具库) ; adoquery5.open; adoquery6.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery6.SQL.Clear; adoquery6.SQL.Add(select * from 刀具库) ; adoquery6.open; adoquery7.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery7.SQL.Clear; adoquery7.SQL.Add(select * from 量具库) ; adoquery7.open; adoquery8.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery8.SQL.Clear; adoquery8.SQL.Add(select * from 机械加工工艺过程卡片2) ; adoquery8.open; adoquery9.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery9.SQL.Clear; adoquery9.SQL.Add(select * from 零件名称汇总) ; adoquery9.open; adoquery10.ConnectionString:=Provider=SQLOLEDB.1;Password=+trim(form1.Edit4.Text)+;Persist Security Info=True;User ID=sa;Initial Catalog=bysjcapp;Data Source=+trim(form1.Edit3.Text)+; adoquery10.SQL.Clear; adoquery10.SQL.Add(select * from 零件工艺汇总) ; adoquery10.open;LoadgcnrTREE;LoadjckTREE;LoadjjkTREE;LoaddjkTREE;LoadljkTREE;LoadgcmcTREE; treeview1.Visible:=true; treeview2.Visible:=false; treeview3.Visible:=false; treeview4.Visible:=false; treeview5.Visible:=false; treeview6.Visible:=false; adoquery2.First; while not adoquery2.Eof do begin adoquery2.Delete; end; ss:=10; for i:=1 to 15 do begin adoquery2.Append; adoquery2工序标志:=ss; adoquery2.Post; ss:=ss+10; end; adoquery2.Active:=false; adoquery2.Active:=true; /改变网格大小 dbgrid1.Columns0.Width:=50; dbgrid1.Columns1.Width:=100; dbgrid1.Columns2.Width:=100; dbgrid1.Columns3.Width:=60; dbgrid1.Columns4.Width:=60; dbgrid1.Columns5.Width:=70; dbgrid1.Columns6.Width:=70; dbgrid1.Columns7.Width:=70; dbgrid1.Columns8.Width:=70; dbgrid1.Columns9.Width:=60;end;procedure Tl_xjgy.LoadgcmcTREE;var RootNode, CatNode : TTreeNode; Category : string;begin treeview1.Items.Clear; RootNode := treeview1.Items.Add( nil, 工序名称 ); RootNode.ImageIndex := 0; Specify which bitmap to use RootNode.SelectedIndex := 0; adoquery1.First; while not adoquery1.Eof do begin Category := adoquery1.fieldbyname(工序名称).AsString; CatNode := treeview1.Items.AddChild( RootNode, Category ); CatNode.ImageIndex := 5; CatNode.SelectedIndex := 2; adoquery1.Next; end;end;procedure Tl_xjgy.LoadgcnrTREE;var RootNode, CatNode : TTreeNode; Category : string;begin treeview2.Items.Clear; RootNode := treeview2.Items.Add( nil, 工序内容 ); RootNode.ImageIndex := 0; Specify which bitmap to use RootNode.SelectedIndex := 0; adoquery3.First; while not adoquery3.Eof do begin Category := adoquery3.fieldbyname(工序内容).AsString; CatNode := treeview2.Items.AddChild( RootNode, Category ); CatNode.ImageIndex := 5; CatNode.SelectedIndex := 2; adoquery3.Next; end;end;procedure Tl_xjgy.LoadjckTREE;var RootNode, TipNode, CatNode : TTreeNode; ss,Category,jidian : string;begin treeview3.Items.Clear; adoquery4.First; while not adoquery4.Eof do begin if (adoquery4机床标志1=0) and (adoquery4机床标志2=0) and (adoquery4机床标志3=0)then begin ss:=adoquery4机床名称; RootNode := treeview3.Items.Add( nil, ss ); RootNode.ImageIndex := 0; Specify which bitmap to use RootNode.SelectedIndex := 0; end; if (adoquery4机床标志1=0) and (adoquery4机床标志2=0) and (adoquery4机床标志3=1)then begin Category := adoquery4.fieldbyname(机床分类).AsString; CatNode := treeview3.Items.AddChild( RootNode, Category ); CatNode.ImageIndex := 5; CatNode.SelectedIndex := 2; end; if (adoquery4机床标志1=1) and (adoquery4机床标志2=1) and (adoquery4机床标志3=1)then begin jidian := adoquery4.fieldbyname(机床型号).AsString; tipNode := treeview3.Items.addchild( catnode,jidian ); tipNode.ImageIndex := 5; tipNode.SelectedIndex := 2; end; adoquery4.Next;end;end;procedure Tl_xjgy.LoadjjkTREE;var RootNode, TipNode, CatNode : TTreeNode; ss,Category,jidian : string;begin treeview4.Items.Clear; adoquery5.First; while not adoquery5.Eof do begin if (adoquery5夹具标志1=0) and (adoquery5夹具标志2=0) and (adoquery5夹具标志3=0)then begin ss:=adoquery5夹具总称; RootNode := treeview4.Items.Add( nil, ss ); RootNode.ImageIndex := 0; Specify which bitmap to use RootNode.SelectedIndex := 0; end; if (adoquery5夹具标志1=0) and (adoquery5夹具标志2=0) and (adoquery5夹具标志3=1)then begin Category := adoquery5.fieldbyname(夹具分类).AsString; CatNode := treeview4.Items.AddChild( RootNode, Category ); CatNode.ImageIndex := 5; CatNode.SelectedIndex := 2; end; if (adoquery5夹具标志1=1) and (adoquery5夹具标志2=1) and (adoquery5夹具标志3=1)then begin jidian := adoquery5.fieldbyname(夹具名称).AsString; tipNode := treeview4.Items.addchild( catnode,jidian ); tipNode.ImageIndex := 5; tipNode.SelectedIndex := 2; end; adoquery5.Next;end;end;procedure Tl_xjgy.LoaddjkTREE;var RootNode,CatNode : TTreeNode; ss,Category : string;begin treeview5.Items.Clear; adoquery6.First; while not adoquery6.Eof do begin if (adoquery6刀具标志1=0) and (adoquery6刀具标志2=1) then begin ss:=adoquery6刀具名称; RootNode := treeview5.Items.Add( nil, ss ); RootNode.ImageIndex := 0; Specify which bitmap to use RootNode.SelectedIndex := 0; end; if (adoquery6刀具标志1=1) and (adoquery6刀具标志2=0) then begin Category := adoquery6.fieldbyname(刀具规格).AsString; CatNode := treeview5.Items.AddChild( RootNode, Category ); CatNode.ImageIndex := 5; CatNode.SelectedIndex := 2; end; adoquery6.Next;end;end;procedure Tl_xjgy.LoadljkTREE;var RootNode, CatNode : TTreeNode; ss,Category : string;begin treeview6.Items.Clear; adoquery7.First; while not adoquery7.Eof do begin if (adoquery7量具标志1=0) and (adoquery7量具标志2=1) then begin ss:=adoquery7量具名称; RootNode := treeview6.Items.Add( nil, ss ); RootNode.ImageIndex := 0; Specify which bitmap to use RootNode.SelectedIndex := 0; end; if (adoquery7量具标志1=1) and (adoquery7量具标志2=0) then begin Category := adoquery7.fieldbyname(量具规格).AsString; CatNode := treeview6.Items.AddChild( RootNode, Category ); CatNode.ImageIndex := 5; CatNode.SelectedIndex := 2; end; adoquery7.Next;end;end;procedure Tl_xjgy.SpeedButton3Click(Sender: TObject);beginclose;end;procedure Tl_xjgy.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if (DBGrid1.SelectedIndex = 1) then begin /调用相应树形结构 treeview1.Visible:=true; treeview2.Visible:=false; treeview3.Visible:=false; treeview4.Visible:=false; treeview5.Visible:=false; treeview6.Visible:=false; end; if (DBGrid1.SelectedIndex = 2) then begin treeview2.Visible:=true; treeview1.Visible:=false; treeview3.Visible:=false; treeview4.Visible:=false; treeview5.Visible:=false; treeview6.Visible:=false; end; if (DBGrid1.SelectedIndex = 5) then begin treeview3.Visible:=true; treeview2.Visible:=false; treeview1.Visible:=false; treeview4.Visible:=false; treeview5.Visible:=false; treeview6.Visible:=false; end; if (DBGrid1.SelectedIndex = 6) then begin treeview4.Visible:=true; treeview2.Visible:=false; treeview3.Visible:=false; treeview1.Visible:=false; treeview5.Visible:=false; treeview6.Visible:=false; end; if (DBGrid1.SelectedIndex = 7) then begin treeview5.Visible:=true; treeview2.Visible:=false; treeview3.Visible:=false; treeview4.Visible:=false; treeview1.Visible:=false; treeview6.Visible:=false; end; if (DBGrid1.SelectedIndex = 8) then begin treeview6.Visible:=true; treeview2.Visible:=false; treeview3.Visible:=false; treeview4.Visible:=false; treeview5.Visible:=false; treeview1.Visible:=false; end;end;procedure Tl_xjgy.TreeView1Change(Sender: TObject; Node: TTreeNode);begin if (DBGrid1.SelectedIndex = 1) then begin adoquery2.Edit; adoquery2工序名称:=TreeView1.Selected.Text; adoquery2.Post; end; end;procedure Tl_xjgy.TreeView2Change(Sender: TObject; Node: TTreeNode);begin if (DBGrid1.SelectedIndex = 2) then begin adoquery2.Edit; adoquery2工序内容:=TreeView2.Selected.Text; adoquery2.Post; end;end;procedure Tl_xjgy.TreeView3Change(Sender: TObject; Node: TTreeNode);beginif (DBGrid1.SelectedIndex = 5) then begin adoquery2.Edit; adoquery2机床设备:=TreeView3.Selected.Text; adoquery2.Post; end;end;procedure Tl_xjgy.TreeView4Change(Sender: TObject; Node: TTreeNode);begin if (DBGrid1.SelectedIndex = 6) then begin adoquery2.Edit; adoquery2夹具设备:=TreeView4.Selected.Text; adoquery2.Post; end;end;procedure Tl_xjgy.TreeView5Change(Sender: TObject; Node: TTreeNode);beginif (DBGrid1.SelectedIndex = 7) then begin adoquery2.Edit; adoquery2刀具设备:=TreeView5.Selected.Text; adoquery2.Post; end;end;procedure Tl_xjgy.TreeView6Change(Sender: TObject; Node: TTreeNode);beginif (DBGrid1.SelectedIndex = 8) then begin adoquery2.Edit; adoquery2量具设备:=TreeView6.Selected.Text; adoquery2.Post; end;end;procedure Tl_xjgy.N1Click(Sender: TObject);begin avviewx1.ClearMarkup ; if opendialog1.Execute then begin tup:=opendialog1.filename; end; avviewx1.src :=tup ; if tup then begin avviewx1.Visible:=true; end else begin end;end;procedure Tl_xjgy.N2Click(Sender: TObject);beginavviewx1.ClearMarkup;avviewx1.Visible:=false;end;procedure Tl_xjgy.SpeedButton6Click(Sender: TObject);vars:integer;beginadoquery2.Last;s:=adoquery2工序标志;adoquery2.Append;s:=s+10;adoquery2工序标志:=s; end;procedure Tl_xjgy.SpeedButton4Click(Sender: TObject);varaa,bb:integer;begintrybeginaa:=adoquery2工序标志;aa:=aa-1;adoquery2.Prior;bb:=adoquery2工序标志;adoquery2.Insert;if aa=bb thenbeginbb:=bb-1;adoquery2工序标志:=bb;end else adoquery2工序标志:=aa;adoquery2.Post;endexcept showmessage(请将指针上移,谢谢);end;adoquery2.Active:=false;adoquery2.Active:=true;end;procedure Tl_xjgy.SpeedButton5Click(Sender: TObject);beginadoquery2.delete;adoquery2.Refresh;end;procedure Tl_xjgy.SpeedButton1Click(Sender: TObject);begin if (edit4.Text)and (edit8.Text) then begin if MessageDlg(是否要提交?,mtConfirmation, mbYes, mbNo, 0 )=mryes then begin adoquery2.Refresh; adoquery2.First; adoquery2.Edit; adoquery2产品名称:=edit4.Text; adoquery2产品型号:=edit7.Text; adoquery2零件图号:=edit5.Text; adoquery2零件名称:=edit8.Text; adoquery2编制日期:=edit1.Text; adoquery2校对日期:=edit2.Text; adoquery2审核日期:=edit3.Text; adoquery2材料牌号:=edit6.Text; adoquery2毛坯种类:=edit9.Text; tuxing.LoadFromFile(tup) ; adoquery2.Post; adoquery9.Append; adoquery9零件名称:=edit8.Text; adoquery9.Post; adoquery2.First; repeat begin adoquery10.Append; adoquery10零件名称:=edit8.Text; adoquery10产品名称:=adoquery2产品名称; adoquery10产品型号:=adoquery2产品型号; adoquery10零件图号:=adoquery2零件图号; adoquery10编制日期:=adoquery2编制日期; adoquery10校对日期:=adoquery2校对日期; adoquery10审核日期:=adoquery2审核日期; adoquery10材料牌号:=adoquery2材料牌号; adoquery10毛坯种类:=adoquery2毛坯种类; adoquery10图形:=adoquery2图形; adoquery10工序号:=adoquery2工序号; adoquery10.fieldbyname(工序名称).AsString:=adoquery2.fieldbyname(工序名称).AsString; adoquery10.fieldbyname(工序内容).AsString:=adoquery2.fieldbyname(工序内容).AsString; adoquery10.fieldbyname(车间).AsString:=adoquery2.fieldbyname(车间).AsString; adoquery10.fieldbyname(工段).AsString:=adoquery2.fieldbyname(工段).AsString; adoquery10.fieldbyname(机床设备).AsString:=adoquery2.fieldbyname(机床设备).AsString; adoquery10.fieldbyname(夹具设备).AsString:=adoquery2.fieldbyname(夹具设备).AsString; adoquery10.fieldbyname(刀具设备).AsString:=adoquery2.fieldbyname(刀具设备).AsString; adoquery10.fieldbyname(量具设备).AsString:=adoquery2.fieldbyname(量具设备).AsString; adoquery10.fieldbyname(单件工时).AsString:=adoquery2.fieldbyname(单件工时).AsString; adoquery10.Post; adoquery2.Next; end; until adoquery2.Eof; showmessage(提交成功!); speedbutton1.Enabled:=false; end; end else showmessage(请输入产品和零件名称!);end;procedure Tl_xjgy.SpeedButton2Click(Sender: TObject);var filename:string;beginadoquery2.Refresh;adoquery2.First;adoquery2.Edit;adoquery2产品名称:=edit4.Text;adoquery2产品型号:=edit7.Text;adoquery2零件图号:=edit5.Text;adoquery2零件名称:=edit8.Text;adoquery2编制日期:=edit1.Text;adoquery2校对日期:=edit2.Text;adoquery2审核日期:=edit3.Text;adoquery2材料牌号:=edit6.Text;adoquery2毛坯种类:=edit9.Text;adoquery2.Post;adoquery8.First;while not
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
提示  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:箱体类零件工艺分析及知识库研究(减速机)机械毕业设计带CAD图
链接地址:https://www.renrendoc.com/p-20699013.html

官方联系方式

2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩,下载后原文更清晰   
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

网站客服QQ:2881952447     

copyright@ 2020-2024  renrendoc.com 人人文库版权所有   联系电话:400-852-1180

备案号:蜀ICP备2022000484号-2       经营许可证: 川B2-20220663       公网安备川公网安备: 51019002004831号

本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知人人文库网,我们立即给予删除!