站内搜索：

Delphi汽车销售系统(程序下载)(10)

来源：xiaoniu168.com 作者：本站原创添加时间：2014-10-25 点击数：33166

销售信息管理包括销售单据管理、销售单审核、销售单出库。
①销售单据管理功能：发生新销售业务的时候生成新销售单据，在单据中完成各种销售信息的添加删除和修改、查询指定的销售单据、作废有问题的销售单据和取消操作。
②销售单审核功能：审核销售单据并添加审核记录、查看指定的销售单据单据、作废单据的销售审核并删除审核记录和取消操作。
③销售单出库功能：审核通过销售后通知库存出库并添加出库记录，也可取消操作。
管理员可以对销售信息管理进行操作，生成新的销售单据并根据销售业务来审核通过销售单据并添加审核记录，如果审核不通过则作废销售单据，还可以查询浏览指定的销售单据进行核对，如果审核有问题则要进行重新审核，并取消以前的审核将该审核单据作废并生成新的销售单据。

以下是引用片段：

销售单信息核心代码：
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;