p_rk.pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

  begin
    application.MessageBox('商品编号、数量、碳含量、盐酸不溶物、松装密度、压缩性必须输入！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  if dm.T_TEMPRK.RecordCount=0 then
  begin
    try
      dm.T_temprk.post;
      dm.t_temprk.Requery;
    except
      application.MessageBox('数据库增加或修改不成功！','提交数据失败',mb_ok+mb_iconstop);
    end;
    B_SP.Enabled:=true;
    c.Enabled:=true;
    hcl.Enabled:=true;
    szmd.Enabled:=true;
    ysx.Enabled:=true;
    b_add.Enabled:=true;
    b_edit.Enabled:=true;
    b_del.Enabled:=true;
    b_save.Enabled:=false;
    b_cancel.Enabled:=false;
    pan.Enabled:=false;
    dbgrid1.Enabled:=true;
    b_sp.Enabled:=false;
    pan.Font.Color:=clwindowtext;
    dbgrid1.OnCellClick(dbgrid1.Columns.Items[dbgrid1.SelectedRows.count]);
    edit:=false;
    exit;
  end;
//  memo1.Text:=dm.T_TEMPRK['c'];
  //query1:=tadoquery.Create(self);
with dm do
begin
  query.SQL.Clear;
  query.SQL.Add('select * from temprk_info where c=:a and hcl=:b and sph=:c and szmd=:d and ysx=:e');
  query.Parameters[0].Value:=t_temprk['c'];
  query.Parameters[1].Value:=t_temprk['hcl'];
  query.Parameters[2].Value:=t_temprk['sph'];
  query.Parameters[3].Value:=t_temprk['szmd'];
  query.Parameters[4].Value:=t_temprk['ysx'];
{  query.Parameters[0].Value:=trim(c.Text);
  query.Parameters[1].Value:=trim(hcl.Text);
  query.Parameters[2].Value:=trim(sph.Text);
  query.Parameters[3].Value:=trim(szmd.Text);
  query.Parameters[4].Value:=trim(ysx.Text);}
  query.Open;
  if (query.RecordCount=0) then
  begin
    try
      dm.T_temprk.post;
      t_temprk.Requery;
    except
      application.MessageBox('数据库增加或修改不成功！','提交数据失败',mb_ok+mb_iconstop);
    end;
  end else
  begin
    if application.MessageBox('该入库单已有该商品，您要把数量增加到该商品吗？','提问',mb_yesno+mb_iconquestion)=idno then
    begin
      t_temprk.Cancel;
      t_temprk.Requery;
      edit:=false;
      b_add.Enabled:=true;
      b_edit.Enabled:=true;
      b_del.Enabled:=true;
      b_save.Enabled:=false;
      b_cancel.Enabled:=false;
      pan.Enabled:=false;
      dbgrid1.Enabled:=true;
      pan.Font.Color:=clwindowtext;
      dbgrid1.OnCellClick(dbgrid1.Columns.Items[dbgrid1.SelectedRows.count]);
      exit;
    end;
    s:=query['sl'];
 {   if edit then
    begin
      t_temprk.Cancel;
      t_temprk.Delete;
    end; }
    query.SQL.Clear;
    query.SQL.Add('update temprk_info set sl=:sl where c=:c and hcl=:hcl and sph=:sph and szmd=:szmd and ysx=:ysx ');
    query.Parameters[0].Value:=s+strtoint(sl.Text);
    query.Parameters[1].Value:=t_temprk['c'];
    query.Parameters[2].Value:=t_temprk['hcl'];
    query.Parameters[3].Value:=t_temprk['sph'];
    query.Parameters[4].Value:=t_temprk['szmd'];
    query.Parameters[5].Value:=t_temprk['ysx'];
    query.ExecSQL;
    query.Close;
    t_temprk.Cancel;
    t_temprk.Requery;
  end;
  edit:=false;
  b_add.Enabled:=true;
  b_edit.Enabled:=true;
  b_del.Enabled:=true;
  b_save.Enabled:=false;
  b_cancel.Enabled:=false;
  pan.Enabled:=false;
  dbgrid1.Enabled:=true;
  pan.Font.Color:=clwindowtext;
  dbgrid1.OnCellClick(dbgrid1.Columns.Items[dbgrid1.SelectedRows.count]);
end;// with .. dm ==========================
end;

procedure Tf_rk.b_cancelClick(Sender: TObject);
begin
  inherited;
  dm.T_temprk.cancel;
  B_SP.Enabled:=true;
  c.Enabled:=true;
  hcl.Enabled:=true;
  szmd.Enabled:=true;
  ysx.Enabled:=true;
  b_add.Enabled:=true;
  b_edit.Enabled:=true;
  b_del.Enabled:=true;
  b_save.Enabled:=false;
  b_cancel.Enabled:=false;
  pan.Enabled:=false;
  dbgrid1.Enabled:=true;
  b_sp.Enabled:=false;
  pan.Font.Color:=clwindowtext;
end;

procedure Tf_rk.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  with dm do
  begin
    if t_temprk.RecordCount=0 then exit;
    query.SQL.Clear;
    query.SQL.Add('select sp_info.spm,spxh_info.xhm from spxh_info,sp_info where sp_info.sph=:a and spxh_info.xhh=sp_info.xhh');
    query.Parameters[0].Value:=sph.Text;
    query.Open;
    spm.Text:=query['spm'];
    spxh.text:=query['xhm'];
  end;
end;

procedure Tf_rk.sphChange(Sender: TObject);
var
 s:string;
begin
  inherited;
  s:=trim(sph.Text);
end;

procedure Tf_rk.b_spClick(Sender: TObject);
begin
  inherited;
  application.CreateForm(tf_sp,f_sp);
  f_sp.b_exit.Caption:='选择';
  f_sp.Height:=460;
  f_sp.Label4.Width:=320;
  sjsp:=true;
  f_sp.ShowModal;
  sjsp:=false;
  dm.T_temprk['sph']:=psph;
  dm.T_TEMPRK['dw']:='吨';
  dm.T_TEMPRK['rkrq']:=formatdatetime('yyyy.mm.dd',dt.Date);
  with dm do
  begin
    if (t_temprk.RecordCount=0)and(trim(sph.Text)='') then exit;
    query.SQL.Clear;
    query.SQL.Add('select sp_info.spm,spxh_info.xhm from spxh_info,sp_info where sp_info.sph=:a and spxh_info.xhh=sp_info.xhh');
    query.Parameters[0].Value:=psph;
    query.Open;
    spm.Text:=query['spm'];
    spxh.text:=query['xhm'];
  end;
  
end;

procedure Tf_rk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  dm.T_TEMPRK.Close;
  dm.T_ffry.Close;
end;

procedure Tf_rk.BitBtn2Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tf_rk.b_xgrkdClick(Sender: TObject);
begin
  inherited;
  pan1.Show;
  dt1.Date:=now;
  dt2.Date:=now;
  with dm do
  begin
    query.SQL.Clear;
    query.SQL.Add('select * from crkd_info where ddh like :ddh');
    query.Parameters[0].Value:='rk'+'%';
    query.Open;
  end;

end;

procedure Tf_rk.BitBtn5Click(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    query.SQL.Clear;
    query.SQL.Add('select * from crkd_info where ddh like :ddh and ddrq>=:dt1 and ddrq<=:dt2');
    query.Parameters[0].Value:='rk'+'%';
    query.Parameters[1].Value:=formatdatetime('yyyy.mm.dd',dt1.Date);
    query.Parameters[2].Value:=formatdatetime('yyyy.mm.dd',dt1.Date);
    query.Open;
  end;
end;

procedure Tf_rk.DBGrid2DblClick(Sender: TObject);
var
 d:string;
begin
  inherited;
  with dm do
  begin
    if Query.RecordCount=0 then
    begin
      pan1.Hide;
      b_rk.Caption:='入库';
      b_delrkd.Enabled:=false;
      query.SQL.Clear;
      query.SQL.Add('delete from temprk_info');
      query.ExecSQL;
      t_temprk.Requery;
      f_rk.rkdbh;
      Query.Close;
    end else
    begin
      d:=query['ddrq'];
      dt.Date:=strtodate(copy(d,1,4)+'-'+copy(d,6,2)+'-'+copy(d,9,2));
      rkdh.Text:=query['ddh'];
      cb_jbr.Text:=query['jbr'];
      cb_ck.Text:=query['ck'];
      memo1.Text:=query['bz'];
      query.SQL.Clear;
      query.SQL.Add('delete from temprk_info');
      query.ExecSQL;
      query.SQL.Clear;
      query.SQL.Add('insert into temprk_info select * from rk_info where ddh=:ddh');
      query.Parameters[0].Value:=trim(rkdh.Text);
      query.ExecSQL;
      t_temprk.Requery;
      pan1.Hide;
      b_delrkd.Enabled:=true;
      b_rk.Caption:='修库';
    end;
  end; //with .. end
end;

procedure Tf_rk.b_delrkdClick(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    if application.MessageBox('您确认删除该入库单吗？','删除',mb_yesno+mb_iconquestion)=idno then
    begin
      exit;
    end;
    query.SQL.Clear;
    query.SQL.Add('delete from temprk_info');
    query.ExecSQL;
    query.SQL.Clear;
    query.SQL.Add('delete from rk_info where ddh=:ddh');
    query.Parameters[0].Value:=trim(rkdh.Text);
    query.ExecSQL;
    query.SQL.Clear;
    query.SQL.Add('delete from crkd_info where ddh=:ddh');
    query.Parameters[0].Value:=trim(rkdh.Text);
    query.ExecSQL;
    b_rk.Caption:='入库';
    b_delrkd.Enabled:=false;
    t_temprk.Requery;
    f_rk.rkdbh;
  end;
end;

procedure Tf_rk.BitBtn1Click(Sender: TObject);
begin
  inherited;
  with dm do
  begin
      pan1.Hide;
      b_rk.Caption:='入库';
      b_delrkd.Enabled:=false;
      query.SQL.Clear;
      query.SQL.Add('delete from temprk_info');
      query.ExecSQL;
      t_temprk.Requery;
      f_rk.rkdbh;
      Query.Close;
  end;
end;

procedure Tf_rk.BitBtn3Click(Sender: TObject);
var
 d:string;
begin
  inherited;
  with dm do
  begin
    if Query.RecordCount=0 then
    begin
      pan1.Hide;
      b_rk.Caption:='入库';
      b_delrkd.Enabled:=false;
      query.SQL.Clear;
      query.SQL.Add('delete from temprk_info');
      query.ExecSQL;
      t_temprk.Requery;
      f_rk.rkdbh;
      Query.Close;
    end else
    begin
      d:=query['ddrq'];
      dt.Date:=strtodate(copy(d,1,4)+'-'+copy(d,6,2)+'-'+copy(d,9,2));
      rkdh.Text:=query['ddh'];
      cb_jbr.Text:=query['jbr'];
      cb_ck.Text:=query['ck'];
      memo1.Text:=query['bz'];
      query.SQL.Clear;
      query.SQL.Add('delete from temprk_info');
      query.ExecSQL;
      query.SQL.Clear;
      query.SQL.Add('insert into temprk_info select * from rk_info where ddh=:ddh');
      query.Parameters[0].Value:=trim(rkdh.Text);
      query.ExecSQL;
      t_temprk.Requery;
      pan1.Hide;
      b_delrkd.Enabled:=true;
      b_rk.Caption:='修库';
    end;
  end; //with .. end
end;

procedure Tf_rk.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
//  if b_save.Enabled then b_save.OnClick(self);
//    if application.MessageBox('是否要保存该记录？','保存',mb_yesno+mb_iconquestion)=idno then
end;

end.