发布时间 : 星期四 文章delphi制作销售管理软件实验报告-《巧克力销售管理系统》更新完毕开始阅读68e2aac5aa00b52acfc7ca2a
datamodule4.adoquery2.SQL.Text:='select * from x_products order by 商品编号 '; datamodule4.adoquery2.Open; node2[0]:=treeview1.Items.add(nil,'公司商品'); while not datamodule4.adoquery2.Eof do begin k2:=datamodule4.adoquery2.fieldbyname('节点层次').asinteger; s2:=datamodule4.adoquery2.fieldbyname('商品编号').asstring+' '+datamodule4.adoquery2.fieldbyname('商品名称').asstring; if k2<=1 then node2[k2]:=treeview1.Items.addchild(node2[0],s2) Else node2[k2]:=treeview1.items.addchild(node2[k2-1],s2); datamodule4.adoquery2.Next; end; end; 树形结构点击显示商品具体信心代码： procedure TForm2.TreeView1Click(Sender: TObject); Var s1,s2 : string; x1:integer; begin s1 := treeview1.selected.text; x1:=pos(' ',s1); s2:=copy(s1,1,x1-1); with datamodule4.ADOQuery2 do begin sql.Clear ;sql.Add('select * from x_products where 商品编号 ='''+s2+''''); open; end;end; 5.5 职工管理界面 先写了一个树形结构函数，用于该界面其余各按钮的使用。
树形结构函数代码： function addtreechild(treeview2:ttreeview):boolean; Var s1:string; k1:integer; node1:array[0..3] of ttreenode; begin treeview2.Items.Clear ; datamodule4.adoquery1.Close; datamodule4.adoquery1.SQL.Text:='select * from x_employees order by 职工编号 '; datamodule4.adoquery1.Open; node1[0]:=treeview2.Items.add(nil,'公司员工'); while not datamodule4.adoquery1.Eof do begin k1:=datamodule4.adoquery1.fieldbyname('syslevel').asinteger; s1:=datamodule4.adoquery1.fieldbyname('职工编号').asstring+' '+datamodule4.adoquery1.fieldbyname('职工姓名').asstring; if k1<=1 then node1[k1]:=treeview2.Items.addchild(node1[0],s1) Else node1[k1]:=treeview2.items.addchild(node1[k1-1],s1); datamodule4.adoquery1.Next; end; result := true; end; 快速查询员工信息[查询]按钮代码： procedure TForm2.BitBtn24Click(Sender: TObject); var a1,b1:string; x: array[0..2] of string; s2:integer; Begin x[0]:='='; x[1]:='<>'; x[2]:='like'; s2:=combobox8.ItemIndex; a1:=combobox7.text; if combobox8.Text='前端匹配' then b1:= a1+' '+x[s2]+''''+trim(edit28.text)+'%''' else
if combobox8.Text='不完全匹配' then b1:=a1+' '+x[s2]+'''%'+trim(edit28.text)+'%''' else b1:=a1+' '+x[s2]+''''+trim(edit28.text)+''''; datamodule4.adoquery1.Close; datamodule4.adoquery1.SQL.Text:='select * from x_employees where ' +b1; datamodule4.adoquery1.Open; end; 5.6 客户管理界面 客户管理界面同职工管理界面基本相同只是不包含树形结构，一个dbgrid显示数据，在点击表中数据时上面的edit显示相应信息。快速查询客户信息[查询]按钮代码同上面快速查询员工信息[查询]按钮代码类似。 [更新]按钮代码： procedure TForm2.BitBtn27Click(Sender: TObject); begin with datamodule4.ADOQuery6 do Begin close;sql.Clear ; sql.Add('update x_customers set 顾客名称 = '''+trim(edit36.text)+''', 省 = '''+trim(edit43.text)+''','); sql.Add(' 城市 = '''+trim(edit44.text)+''',传真 = '''+trim(edit39.text)+''','); sql.Add(' 电话 = '''+trim(edit37.Text)+''', 性别 = '''+combobox5.Text+''', 邮编 = '''+trim(edit45.text)+''',');
sql.Add(' 公司名称 = '''+trim(edit38.text)+''',QQ = '''+trim(edit41.text)+''',邮箱 = '''+trim(edit40.text)+''' '); sql.Add(' where 顾客编号 = '''+trim(edit42.text)+''''); Try showmessage('数据更新成功');execsql; except showmessage('出错'); exit; end;end;end; 5.7 管理统计界面 管理统计界面下添加了一个pagecontrol控件，设置了2个界面，一个职工销售统计，一个商品销售统计。买个界面分别添加一个dbchart用来统计显示数据量，并设置每页只显示5个数据，设置了下一页，上一页按钮。 5.71 职工销售统计 [月查询]按钮代码： procedure TForm2.BitBtn25Click(Sender: TObject); begin datamodule4.adoquery7.close; datamodule4.adoquery7.sql.Text:='select 职工编号,职工姓名,商品名称,数量,订单日期 from x_Orders where year(订单日期)=:s1 and month(订单日期)=:s2'; datamodule4.adoquery7.open; datamodule4.adoquery7.parameters.ParamByName('s1').Value:=trim(edit34.Text);