jhdgl.pas

库房管理系统

 //    RzDBEdit3.Text:=IntToStr(StrToInt(RzDBEdit13.Text)* strtoint(RzDBEdit7.Text));
 //    RzDBEdit6.Text:='0';
  // end;
end;

procedure Tjhdglfrm.RzDBEdit13MouseEnter(Sender: TObject);
begin
//  Label2.Visible:=True;
end;

procedure Tjhdglfrm.RzDBEdit13MouseLeave(Sender: TObject);
begin
//  Label2.Visible:=false;
end;

procedure Tjhdglfrm.RzDBLookupComboBox2Click(Sender: TObject);
//var
 // tmp:string;
begin
 { if Trim(RzDBLookupComboBox2.Text)<>'' then begin
    tmp:=Trim(RzDBLookupComboBox2.Text);
 //   DM1.qry7.SQL.Clear;
    dm1.qry7.SQL.Add('select * from spzl  ');
    dm1.qry7.Active:=True;
    RzDBEdit8.Text:=Trim(DM1.qry7.FieldByName('spbm').Value);
    RzDBEdit9.Text:=Trim(DM1.qry7.FieldByName('gg').Value);
    RzDBEdit10.Text:=Trim(DM1.qry7.FieldByName('xh').Value);
    RzDBEdit11.Text:=Trim(DM1.qry7.FieldByName('dw').Value);
    RzDBEdit7.Text:=Trim(DM1.qry7.FieldByName('jhjg').Value);
   end;  }
end;

procedure Tjhdglfrm.RzDBDateTimeEdit1Enter(Sender: TObject);
begin
 // RzDBDateTimeEdit1.Date:=now;
end;

procedure Tjhdglfrm.addClick(Sender: TObject);
begin
   // RzToolbarButton1.Enabled:=true;
 // dbgrd1.Enabled:=False;
 // RzToolbarButton2.Enabled:=false;
 // grp4.Enabled:=True;
//  AdoconstractInput.Append;
   AdoconstractInput.Append;
   savebtn.Enabled:=true;
   dbdate.Value:=now();
   add.Enabled:=false;
end;

procedure Tjhdglfrm.BitBtn2Click(Sender: TObject);
begin
  if messagebox(Handle,PChar('sure to delete?'),'warning',mb_iconwarning+mb_yesno)=IDYES then
     AdoconstractInput.Delete;
 {  with dm1.qry9 do begin
      SQL.Clear;
      SQL.Add('select * from kcb where spbm=:spbm_a');
      Parameters.ParamByName('spbm_a').Value:=Trim(RzDBEdit8.Text);
      Active:=True;
    end;
    if dm1.qry9.RecordCount>0 then
      begin
        with DM1.qry9 do begin
          Active:=False;
          SQL.Clear;
          SQL.Add('update kcb set kcsl=kcsl-:kcsl_a,kcje=kcje-:kcje_a where ');
          SQL.Add('spbm=:spbm_b');
          Parameters.ParamByName('kcsl_a').Value:=StrToInt(Trim(RzDBEdit13.Text));
          Parameters.ParamByName('kcje_a').Value:=StrToInt(Trim(RzDBEdit1.Text));
          Parameters.ParamByName('spbm_b').Value:=Trim(RzDBEdit8.Text);
          ExecSQL;
          DM1.qry8.Delete;
        end;
      end;    }

end;

procedure Tjhdglfrm.BitBtn3Click(Sender: TObject);
begin
   AdoconstractInput.Edit;
   savebtn.Enabled:=true;
end;

procedure Tjhdglfrm.savebtnClick(Sender: TObject);
begin
 if (trim(dbcode.Text)<>'') and (trim(dbname.text)<>'') and (trim(dbqty.text)<>'') and (trim(measureunit.text)<>'') then
 begin
   if messagebox(Handle,PChar('sure to save?'),'warning',mb_iconwarning+mb_yesno)=IDYES then
    AdoconstractInput.Post;
    savebtn.Enabled:=false;
    add.Enabled:=true;
  end
  else
  begin
   showmessage('please check the information if intact');
   end;
  //var
 // tmp_str:string;
  //exp_msg:Boolean;
 { if ((RzDBDateTimeEdit1.Text='') or (RzDBEdit1.Text='') or
     (RzDBEdit2.Text='') or (RzDBEdit3.Text='') or
     (RzDBEdit6.Text='') or (RzDBEdit7.Text='') or
     (RzDBEdit8.Text='') or (RzDBEdit9.Text='') or
     (RzDBEdit10.Text='') or (RzDBEdit11.Text='') or
     (RzDBEdit13.Text='') or (RzDBLookupComboBox1.text='') or
     (RzDBLookupComboBox2.text='')or (RzDBLookupComboBox8.text=''))  then begin
      Application.MessageBox('请将信息添写完整!', '提示信息', MB_OK +
      MB_ICONSTOP);
    end
  else begin
      tmp_str:=RzDBEdit8.Text;
      exp_msg:=True;

      RzToolbarButton1.Enabled:=false;
      RzToolbarButton2.Enabled:=true;
      dbgrd1.Enabled:=True;
      grp4.Enabled:=False;

      //入库处理当前库里有没有此类产品的记录,如果有,就更新数量,如果没有就插入新记录
      with dm1.qry9 do begin
        SQL.Clear;
        SQL.Add('select * from kcb where spbm=:spbm_a');
        Parameters.ParamByName('spbm_a').Value:=Trim(tmp_str);
        Active:=True;
      end;

      if dm1.qry9.RecordCount>0 then
        begin
          with DM1.qry9 do begin
            Active:=False;
            SQL.Clear;
            SQL.Add('update kcb set kcsl=kcsl+:kcsl_a,kcje=kcje+:kcje_a where ');
            SQL.Add('spbm=:spbm_b');
            Parameters.ParamByName('kcsl_a').Value:=StrToInt(Trim(RzDBEdit13.Text));
            Parameters.ParamByName('kcje_a').Value:=StrToInt(Trim(RzDBEdit1.Text));
            Parameters.ParamByName('spbm_b').Value:=Trim(tmp_str);
            ExecSQL;
          end;
        end
      else
        begin
          dm1.qry9.SQL.Clear;
          DM1.qry9.SQL.Add('insert into kcb(ldrq,spbm,spmc,gg,xh,dw,kcsl,kcje)');
          DM1.qry9.SQL.Add('values(:ldrq1,:spbm1,:spmc1,:gg1,:xh1,:dw1,:kcsl1,:kcje1)');
          DM1.qry9.Parameters.ParamByName('ldrq1').Value:=RzDBDateTimeEdit1.Text;
          DM1.qry9.Parameters.ParamByName('spbm1').Value:=RzDBEdit8.Text;
          DM1.qry9.Parameters.ParamByName('spmc1').Value:=RzDBLookupComboBox2.Text;
          DM1.qry9.Parameters.ParamByName('gg1').Value:=Trim(RzDBEdit9.Text);
          DM1.qry9.Parameters.ParamByName('xh1').Value:=RzDBEdit10.Text;
          DM1.qry9.Parameters.ParamByName('dw1').Value:=RzDBEdit11.Text;
          DM1.qry9.Parameters.ParamByName('kcsl1').Value:=Trim(RzDBEdit13.Text);
          DM1.qry9.Parameters.ParamByName('kcje1').Value:=Trim(RzDBEdit1.Text);
          try
            DM1.qry9.ExecSQL;
          except
            ShowMessage('入库失败,请检查输入的数据!');
            exp_msg:=false;
          end;
        end;
      if exp_msg then
         DM1.qry8.Post;
  end;  }

end;

procedure Tjhdglfrm.BitBtn5Click(Sender: TObject);
begin
   AdoconstractInput.Cancel;
// DM1.qry8.Cancel;
 // RzToolbarButton1.Enabled:=false;
//  RzToolbarButton2.Enabled:=true;
//  dbgrd1.Enabled:=True;
//  grp4.Enabled:=False;

end;

procedure Tjhdglfrm.BitBtn7Click(Sender: TObject);

var
  tmp:string;
  begin
  tmp:='%'+trim(InputBox('输入', '单据编码，可以是"关键"字！', ''))+'%';
 // DM1.qry8.Active:=False;
 // DM1.qry8.SQL.Clear;
  //dm1.qry8.SQL.Add('select * from JHD where djbh like :djbh1 ');

 // DM1.qry8.Parameters.ParamByName('djbh1').Value:=tmp;
 // dm1.qry8.Active:=True;
end;

procedure Tjhdglfrm.BitBtn8Click(Sender: TObject);
begin
/// DM1.qry8.SQL.Clear;
//  dm1.qry8.SQL.Add('select * from jhd order by djbh  ');
 // dm1.qry8.Active:=True;
end;

procedure Tjhdglfrm.BitBtn9Click(Sender: TObject);
begin
 //application.CreateForm(Tjhtjfrm,jhtjfrm);
 // jhtjfrm.ShowModal;
end;

procedure Tjhdglfrm.BitBtn10Click(Sender: TObject);
begin
  //mainfrm.frxReport1.ShowReport();
// showmessage('design now...');
 contract_rpt.ShowReport;
end;

procedure Tjhdglfrm.AdoconstractInputAfterPost(DataSet: TDataSet);
begin
    with QStorage do
      QStorage.Close;
      QStorage.Prepared:=False;     //insertByInput
      QStorage.SQL.Text:='updtStockQtybyInput'+ ''''+adoconstractinput.fieldbyname('fProductID').AsString+'''';
//      QStorage.Parameters.ParamByName('@fProduct').Value:=
 //     AdoconstractInput.fieldbyname('fProductID').AsString;
      QStorage.Prepared:=True;
      QStorage.ExecSQL;

     with insertByInput do
      insertByInput.Close;
      insertByInput.Prepared:=False;     //insertByInput
      insertByInput.SQL.Text:='insertStockQtybyInput'+ ''''+adoconstractinput.fieldbyname('fProductID').AsString+'''';
      insertByInput.Prepared:=True;
      insertByInput.ExecSQL;
end;

procedure Tjhdglfrm.dbcodeChange(Sender: TObject);
begin
      with ado_temp do
   ado_temp.Close;
   ado_temp.SQL.Clear;
   ado_temp.SQL.Add('select fMeasureUnit,fWeightUnit,fParentName from tProductCode where fParentID like '''+'%'+dbcode.Text+'%'+'''');
   ado_temp.open;
  // edit1.Text:=ado_temp.SQL.text;
   dbname.Text:=ado_temp.fieldbyname('fParentName').AsString;
 //  dbunit.Items.Text:=ado_temp.fieldbyname('fMeasureUnit').AsString;
//   RefUnit.Items.Text:=ado_temp.fieldbyname('fWeightUnit').AsString;
   measureunit.Text:=ado_temp.fieldbyname('fMeasureUnit').AsString;
   weightUnit.Text:=ado_temp.fieldbyname('fWeightUnit').AsString;
//end;
end;

end.