Delphi 数据操作模块：增删改查实现

procedure TForm1.Button1Click(Sender: TObject); //添加
var i:integer;
begin
  with dm.DipQuery1 do begin
  SQL.Add('insert into 日报表(日期,线别,班别,厂商,机种,工单,批量,计划产量,实际产量,产量差异,差异原因,应作工时,实作工时,生产总数,不良项目,不良板数,板数DPPM,不良率,备注)');
  SQL.Add('values('''+edit1.text+''','''+combobox1.Text+''','''+combobox2.Text+''','''+edit2.text+''','''+edit3.text+''','''+edit4.text+''','''+edit5.text+''','''+edit6.text+''','''+edit7.text+''','''+edit8.text+''','''+edit9.text+''','''+edit10.text+''','''+edit11.text+''','''+edit12.Text+''','''+combobox3.text+''','''+edit13.text+''','''+edit15.text+''','''+edit14.Text+''','''+edit18.Text+''')');
  execsql;
  close;
  sql.Clear;
  sql.add('select * from 日报表 where 日期='''+edit1.Text+''' and 工单='''+edit4.text+''' and 班别='''+combobox2.text+''' and 线别='''+combobox1.text+''' and 不良项目='''+combobox3.text+''' and 不良板数='''+edit13.text+'''');
  open;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject); //修改
begin
with dm.DipQuery1 do begin
  edit;
  fieldbyname('日期').asstring:=edit1.Text;
  fieldbyname('线别').asstring:=combobox1.Text;
  fieldbyname('班别').asstring:=combobox2.Text;
  fieldbyname('厂商').AsString:=edit2.Text;
  fieldbyname('机种').asstring:=edit3.text;
  fieldbyname('工单').asstring:=edit4.text;
  fieldbyname('批量').asstring:=edit5.text;
  fieldbyname('计划产量').asstring:=edit6.text;
  fieldbyname('实际产量').asstring:=edit7.text;
  fieldbyname('产量差异').asstring:=edit8.Text;
  fieldbyname('差异原因').asstring:=edit9.text;
  fieldbyname('应作工时').asstring:=edit10.text;