计算机毕业设计采购单审核功能介绍：
以下是引用片段： 采购单据审核列表核心代码：
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页为计算机毕业论文销售模块介绍部分......