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

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

计算机毕业设计采购单审核功能介绍:

以下是引用片段:

采购单据审核列表核心代码:
procedure TfrmCgshList.SpeedButtonAddClick(Sender: TObject);
begin
if self.ADODataSet1.Recordset.RecordCount <=0 then exit;
if inttostr(self.DBGrid1.Fields[0].Value) ='' then exit;
self.ADOCommand1.Connection:=frmmain.ADOConnection1;
self.ADOCommand1.CommandText:='update 采购记录 set 审核标志=''审核'' where 采购代码='''+ inttostr(self.DBGrid1.Fields[0].Value) +'''';
self.ADOCommand1.Execute;
frmCgshlist.ADODataSet1.Close;
frmCgshlist.ADODataSet1.Connection:=frmmain.ADOConnection1;
frmCgshlist.ADODataSet1.Active:=true;


frmCgshlist.DataSource1.DataSet:=frmCgshlist.ADODataSet1;
frmCgshlist.DBGrid1.DataSource:=frmCgshlist.DataSource1;
end;
procedure TfrmCgshList.SpeedButton4Click(Sender: TObject);
begin
close;
end;
procedure TfrmCgshList.SpeedButton1Click(Sender: TObject);
begin
if self.ADODataSet1.Recordset.RecordCount <=0 then exit;
if inttostr(self.DBGrid1.Fields[0].Value) ='' then exit;
self.ADOCommand1.Connection:=frmmain.ADOConnection1;
self.ADOCommand1.CommandText:='update 采购记录 set 审核标志=''未审核'' where 采购代码='''+ inttostr(self.DBGrid1.Fields[0].Value) +'''';
self.ADOCommand1.Execute;
frmCgshlist.ADODataSet1.Close;
frmCgshlist.ADODataSet1.Connection:=frmmain.ADOConnection1;
frmCgshlist.ADODataSet1.Active:=true;
frmCgshlist.DataSource1.DataSet:=frmCgshlist.ADODataSet1;
frmCgshlist.DBGrid1.DataSource:=frmCgshlist.DataSource1;
end;
end.

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第10页为计算机毕业论文销售模块介绍部分......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网