发布时间 : 星期一 文章delphi制作销售管理软件实验报告-《巧克力销售管理系统》 - 图文更新完毕开始阅读68e2aac5aa00b52acfc7ca2a
begin datamodule4.adoquery4.close; datamodule4.adoquery4.SQL.Text:='select 商品编号,商品名称,规格,数量,单价,总金额,供货商名称,职工编号,日期,节点层次,职工姓名 from x_products where year(日期)=:s1 and month(日期)=:s '; datamodule4.adoquery4.Open ; datamodule4.adoquery4.parameters.ParamByName('s1').Value:=trim(edit47.Text); datamodule4.adoquery4.parameters.ParamByName('s').Value:=trim(edit48.Text); end else begin if edit51.Text<>'' then begin datamodule4.adoquery4.close; datamodule4.adoquery4.sql.Text:= 'select 商品编号,商品名称,规格,数量,单价,总金额,供货商名称,职工编号,日期,节点层次,职工姓名 from x_products where 商品名称 =:s'; datamodule4.adoquery4.open; datamodule4.adoquery4.parameters.ParamByName('s').Value:=trim(edit53.Text); end else begin s1:=combobox11.text; datamodule4.adoquery4.close; datamodule4.adoquery4.sql.Text:= 'select 商品编号,商品名称,规格,数量,单价,总金额,供货商名称,职工编号,日期,节点层次,职工姓名 from x_products where 商品名称 like '+''''+s1+'%'''; datamodule4.adoquery4.open; end; end; end; DBGrid1CellClick代码： DBgrid添加了DBGrid1CellClick事件，使其点击表格中的数据时界面上的edit能同时显示其相关数据。 procedure TForm2.DBGrid1CellClick(Column: TColumn); begin edit7.Text := datamodule4.ADOQuery4.fieldbyname('商品编号').AsString ;
edit8.Text := datamodule4.ADOQuery4.fieldbyname('商品名称').AsString ; combobox4.Text := datamodule4.ADOQuery4.fieldbyname('规格').AsString ; combobox2.Text:=datamodule4.ADOQuery4.fieldbyname('供货商名称').AsString ; edit11.Text:=inttostr(datamodule4.ADOQuery4.fieldbyname('数量').Asinteger) ; edit12.Text:=floattostr(datamodule4.ADOQuery4.fieldbyname('单价').Asfloat) ; edit13.Text:=floattostr(datamodule4.ADOQuery4.fieldbyname('总金额').Asfloat); edit10.Text:=datamodule4.ADOQuery4.fieldbyname('职工编号').AsString ; edit50.Text:=datamodule4.ADOQuery4.fieldbyname('职工姓名').AsString ; datetimepicker3.Date:=datamodule4.ADOQuery4.fieldbyname('日期').AsDateTime ; end; 5.4 销售界面 销售界面基本格局同采购界面相同，只是在卖出商品时需要进行库存量检查，以免出现库存不足无法出售的情况。 [检查库存量]按钮代码： procedure TForm2.Button5Click(Sender: TObject); var s1:integer; begin datamodule4.adoquery4.Close; datamodule4.adoquery4.SQL.Text:='select sum(数量)AS A from x_products where 商品编号 = '''+trim(edit15.text)+'''';
datamodule4.adoquery4.open; s1:=datamodule4.ADOQuery4.fieldbyname('A').Asinteger ; if (s1 datamodule4.adoquery5.open; if datamodule4.adoquery5.recordcount>0 then edit17.Text:=datamodule4.ADOQuery5.fieldbyname('商品名称').AsString ; end; 点击查找客户时弹出来一个窗口如下图所示，选择好顾客编号，和名称后，返回销售界面，再点击客户编码所指向的edit，则自动显示刚才已选择的客户编码。 5.5 查看库存界面 上图为查看库存界面，该界面添加了treeview控件，使其在界面显示时就自动显示商品的树形结构。并在树形结构添加事件，使其在点击该商品时右边的表格中显示该商品的相关信息。 界面显示时树形结构代码： procedure TForm2.TabSheet3Show(Sender: TObject); var s2:string; k2:integer; node2:array[0..3] of ttreenode; begin treeview1.Items.Clear ; datamodule4.adoquery2.Close;