网学网DELPHI类作品编辑为广大网友搜集整理了：基于DELPHI汽车销售系统绩等信息，祝愿广大网友取得需要的信息，参考学习。
4.2.3 销售信息管理 销售信息管理包括销售单据管理、销售单审核、销售单出库。 ①销售单据管理功能：发生新销售业务的时候生成新销售单据，在单据中完成各种销售信息的添加删除和修改、查询指定的销售单据、作废有问题的销售单据和取消操作。 ②销售单审核功能：审核销售单据并添加审核记录、查看指定的销售单据单据、作废单据的销售审核并删除审核记录和取消操作。 ③销售单出库功能：审核通过销售后通知库存出库并添加出库记录，也可取消操作。 管理员可以对销售信息管理进行操作，生成新的销售单据并根据销售业务来审核通过销售单据并添加审核记录，如果审核不通过则作废销售单据，还可以查询浏览指定的销售单据进行核对，如果审核有问题则要进行重新审核，并取消以前的审核将该审核单据作废并生成新的销售单据。 销售单信息核心代码： begin self.Edit1.Text:=inttostr(ShowMaxRecord(''销售记录'')); self.Edit7.Text:=''''; self.Edit3.Text:=''0''; self.Edit5.Text:=''0''; self.DateTimePicker2.Date :=date; end else begin self.AdoTmp.Close ; self.AdoTmp.Connection:=frmmain.ADOConnection1 ; self.AdoTmp.CommandText:=''SELECT dbo.销售记录.销售时间, dbo.销售记录.总数量, dbo. 销售记录.总金额,dbo.销售记录.经办人, dbo.销售记录.客户代码, dbo.客户.客户名称 '' + '' FROM dbo.销售记录 INNER JOIN dbo.客户 ON dbo.销售记录.客户代码 = dbo.客户. 客户代码 where 销售代码=''''''+ self.Edit1.Text +''''''''; self.AdoTmp.Active:=true; if self.AdoTmp.Recordset.RecordCount>0 then begin Edit3.Text:=self.AdoTmp.Recordset.Fields[1].Value ; DateTimePicker2.Date:=self.AdoTmp.Recordset.Fields[0].Value ; Edit7.Text:=self.AdoTmp.Recordset.Fields[3].Value ; edit5.Text:= self.AdoTmp.Recordset.Fields[2].Value; edit2.Tag:=self.AdoTmp.Recordset.Fields[4].Value; edit2.Text:=self.AdoTmp.Recordset.Fields[5].Value; self.AdoTmp.Close; self.AdoTmp.Connection:=frmmain.ADOConnection1 ; self.AdoTmp.CommandText:=''SELECT dbo.汽车信息.汽车代码, dbo.汽车信息.汽车名称, dbo.汽车类别.类别名称, '' + '' dbo.汽车信息.汽车规格, dbo.汽车信息.厂家名称, dbo.销售明细.销售单价, '' + '' dbo.销售明细.数量, dbo.销售明细.金额 FROM dbo.汽车信息 INNER JOIN '' + '' dbo.汽车类别 ON dbo.汽车信息.类别代码 = dbo.汽车类别.类别代码 INNER JOIN '' + '' dbo.销售明细 ON dbo.汽车信息.汽车代码 = dbo.销售明细.汽车代码 and 销售明细.销售代码=''''''+ self.Edit1.Text +''''''''; self.AdoTmp.Active:=true; self.AdoTmp.Active:=true; if self.AdoTmp.Recordset.RecordCount >0 then begin for i:=0 to self.AdoTmp.Recordset.RecordCount-1 do begin for j:=0 to self.StringGrid1.ColCount-1 do begin self.StringGrid1.Cells[j,i+1]:=self.AdoTmp.Recordset.Fields[j].Value; end; self.AdoTmp.Recordset.MoveNext end; end; end; end; end; procedure TfrmXsjl.btnModifyClick(Sender: TObject); var i:integer; begin if trim(self.Edit2.Text)='''' then begin showmessage(''客户不能为空''); exit; end; self.ADOCommand1.Connection:=frmmain.ADOConnection1 ; self.ADOCommand1.CommandText:=''insert into 销售记录(销售代码,销售时间,总数量,总金额,经办人,客户代码,审核标志,出库标志) values(:V销售代码,:V销售时间,:V总数量,:V总金额,:V经办人,:V客户代码,''''未审核'''',''''未出库'''')''; self.ADOCommand1.Parameters.ParamByName(''V销售时间'').Value:=datetostr(self.DateTimePicker2.date) ; self.ADOCommand1.Parameters.ParamByName(''V总数量'').Value:=strtofloat(self.Edit3.Text); self.ADOCommand1.Parameters.ParamByName(''V经办人'').Value:=self.Edit7.Text + '' '' ; self.ADOCommand1.Parameters.ParamByName(''V销售代码'').Value:=self.Edit1.Text ; self.ADOCommand1.Parameters.ParamByName(''V总金额'').Value:=strtofloat(self.Edit5.Text ); self.ADOCommand1.Parameters.ParamByName(''V客户代码'').Value:=self.Edit2.tag ; self.ADOCommand1.Execute; for i:=1 to self.StringGrid1.RowCount-1 do begin if self.StringGrid1.Cells[0,i]<>'''' then begin self.ADOCommand1.CommandText:=''insert into 销售明细(销售代码,汽车代码,销售单价,数量,金额) values(:V销售代码,:V汽车代码,:V销售单价,:V数量,:V金额)''; self.ADOCommand1.Parameters.ParamByName(''V销售代码'').Value:=self.Edit1.Text ; self.ADOCommand1.Parameters.ParamByName(''V汽车代码'').Value:=self.StringGrid1.Cells[0,i] ; self.ADOCommand1.Parameters.ParamByName(''V销售单价'').Value:=strtofloat(self.StringGrid1.Cells[5,i]) ; self.ADOCommand1.Parameters.ParamByName(''V数量'').Value:=strtofloat(self.StringGrid1.Cells[6,i]) ; self.ADOCommand1.Parameters.ParamByName(''V金额'').Value:=strtofloat(self.StringGrid1.Cells[7,i]) ; self.ADOCommand1.Execute; end; end; frmxsjllist.ADODataSet1.Close; frmxsjllist.ADODataSet1.Connection:=frmmain.ADOConnection1; frmxsjllist.ADODataSet1.Active:=true; frmxsjllist.DataSource1.DataSet:=frmxsjllist.ADODataSet1; frmxsjllist.DBGrid1.DataSource:=frmxsjllist.DataSource1; close; end; |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
