unitsulfinput.pas

此代码为企业原料管理代码

 else
  begin
    showmessage('您现在还不能提交数据');
    exit;
  end;


//向第4部分添加记录
  
 // if SpeedButton1.down then
 // begin
   // with dm.tabProdInCard do
   // begin
     // if not active then open;
     // insert;
     // fieldbyname('Note').asstring:=sNote;
     // fieldbyname('Number').asinteger:=iNum;
     // fieldbyname('ProdID').asstring:=sProdID;
     // fieldbyname('ProcBatID').asstring:=sProcBat;
     // fieldbyname('CheckerID').asstring:=sCheckerID;
     // fieldbyname('CardID').asstring:=dm.zdyProdCardID(vdate);
     // fieldbyname('Indate').asdatetime:=vdate;
     // post;
     // close;
    //===========================
    //向历史记录里面添加该物品
    //===========================
    //dm.zdyProdInsertHistory(sProdID);
    //===================
    // 更新仓库记录
    //===================
   // frmProdStock.zdyCurStock(dm.zdyGetProdCheckDate);
   // end; //with
 //   if kg<>1 then
 // begin
//  with Qry_exe do
 // begin
   // close;
   // sql.Clear;
   // sql.Add('delete from ProdInCard where ProdID = :v_id and number=:nu and indate=:da');
   // parambyname('nu').asinteger:=snum;
   // parambyname('da').asdatetime:=sdate;
   // parambyname('v_id').asstring:=sprodid;
   // execsql;
//  end; //with
  //Form_Mater_tishi.Close;
   //exit;
   //end;
   // Form_Mater_tishi.Close;
 // end; //if SpeedButton1.down
  i:=0;
 // kg:=0;
  eprodn.text:='';
  efigid.text:='';
  eqcnum.text:='';
  ename.text:='';
  edraww.text:='';
  emastew.text:='';
  echeck.text:='';
  esourceid.text:='';
  eRubbCardID.text:='';
  eRubbMixID.text:='';
  esubsa.text:='';
  edissa.text:='';
  elack.text:='';
  eimpu.text:='';
  epole.text:='';
  erip.text:='';
  eelse.text:='';
  DBEdit1.Text:='';
  exit;
 end;//if1
 if i=0 then
 showmessage('请先按“添加”键或“修改”键！');
 //BBInsert.SetFocus;
 i:=0;
 kg:=0;
end;



procedure TfrmSulfInput.DateTimePicker1Change(Sender: TObject);
begin
  if i=1 then
 begin
 showmessage('现在是添加记录操作，要修改时间，提交后，'+#13+'删除该记录，选择好时间，再重新输入一次！');
 exit;
 end;       //进行过滤，只显示当天记录，以后加上
  table1.Filtered:=true;
  table1.Filter:=format('tdate=''%s''',[datetostr(DateTimePicker1.Date)]);

end;

procedure TfrmSulfInput.DBENameIDEnter(Sender: TObject);
begin
  TdbEdit(Sender).color:=claqua;
end;

procedure TfrmSulfInput.DBENameIDExit(Sender: TObject);
begin
  TdbEdit(Sender).color:=clwindow;
end;
procedure TfrmSulfInput.FormShow(Sender: TObject);
begin
  i:=0 ;
  table1.open;
  bbinsert.SetFocus;
  DateTimePicker1.Date:=date;
  Table1TMonth.Visible:=false;
  Table1ProdNameID.Visible:=false;

  table1.Filtered:=true;            //进行过滤，只显示当天记录，以后加上
  table1.Filter:=format('tdate=''%s''',[datetostr(DateTimePicker1.Date)]);

end;

procedure TfrmSulfInput.DBECheckIDEnter(Sender: TObject);
begin
  TdbEdit(Sender).color:=claqua;
end;

procedure TfrmSulfInput.DBENameIDKeyPress(Sender: TObject; var Key: Char);
begin

if key = #13 then
  begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  end; //if

end;

procedure TfrmSulfInput.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  table1.cancel;
  table1.EnableControls;
  table1.close;
end;

procedure TfrmSulfInput.enameEnter(Sender: TObject);
begin
   if i=1 then

        // showmessage('请先按“添加键”！');
       begin
    TdbEdit(Sender).color:=claqua;
  if (CheckBoxdic.Checked = true) and (table1.State = dsinsert) or (table1.State = dsedit) then
  begin
   // FrmcommqueryID.estaffid.text:='';
    FrmcommqueryID.PageControl1.ActivePageIndex:=0;

   // FrmcommqueryID.table1.open;
    //FrmcommqueryID.ActiveControl:=FrmcommqueryID.estaffID;
    if  FrmcommqueryID.showmodal=mrok then
    begin
      //FrmcommqueryID.dbgStaff.SetFocus;
      ename.text:=FrmcommqueryID.query3.fieldbyname('staffname').asstring;
      eprodn.SetFocus;
      //FrmcommqueryID.table1.active:=false;
    end;
   end;
  end ;
  if i=0 then
    begin
    showmessage('请先按“添加键”或“修改键”！');
    BBInsert.SetFocus;
    end;
end;

procedure TfrmSulfInput.eprodnEnter(Sender: TObject);
begin
    if i=0 then
    begin
    showmessage('请先按“添加键”或“修改键”！');
    BBInsert.SetFocus;
    exit;
    end;
   TdbEdit(Sender).color:=claqua;
   if (CheckBoxdic.Checked = true) and (table1.State = dsinsert) or (table1.State = dsedit) then
   begin
      FrmcommqueryID.PageControl1.ActivePageIndex:=1;

  if  FrmcommqueryID.showmodal = mrok then
     begin
      dbeprodnameid.text:=FrmcommqueryID.query1.fieldbyname('prodid').asstring;
      eprodn.text:=FrmcommqueryID.query1.fieldbyname('prodname').asstring;
      efigid.text:=FrmcommqueryID.query1.fieldbyname('figid').asstring;

     end;
   end;

end;

procedure TfrmSulfInput.echeckEnter(Sender: TObject);
begin
    TdbEdit(Sender).color:=claqua;
  if (CheckBoxdic.Checked = true) and (table1.State = dsinsert) or (table1.State = dsedit) then  begin
    FrmcommqueryID.PageControl1.ActivePageIndex:=0;
  FrmcommqueryID.ActiveControl:=FrmcommqueryID.estaffID;
  //FrmcommqueryID.estaffid.text:='';
  if  FrmcommqueryID.showmodal=mrok then
      begin
      echeck.text:= FrmcommqueryID.query3.fieldbyname('staffname').asstring;
      echeckerID.text:= FrmcommqueryID.query3.fieldbyname('staffid').asstring;
     // bbpost.SetFocus;
      end;
    end;
 // FrmcommqueryID.table1.active:=false;
end;

procedure TfrmSulfInput.Label3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  label2.Font.Color:=clred;
  label3.Font.Color:=clred;
end;

procedure TfrmSulfInput.Panel20MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  label2.Font.Color:=clblack;
  label3.Font.Color:=clblack;

end;

procedure TfrmSulfInput.Label2Click(Sender: TObject);
begin
  frmsulfinputprint.QuickRep1.Preview;
end;

procedure TfrmSulfInput.BitBtn1Click(Sender: TObject);
begin
  table1.Close;
  close;
end;

procedure TfrmSulfInput.CheckBoxdicClick(Sender: TObject);
begin
   if not checkboxdic.checked then
   begin
     if MessageDLG('您输入的内容字典中必须存在且相符，'+#13+'您确定使用字典输入吗?',MtConfirmation,[mbYes,mbNo],0) =mrYes then
      begin
       CheckBoxdic.Checked:=true;
      end
   else
      begin
       CheckBoxdic.Checked:=false;
       showmessage('取消字典输入');
      end; 
   end; //if
end;

procedure TfrmSulfInput.elackEnter(Sender: TObject);
begin
//  (sender as TDBEdit).color := claqua;
end;

procedure TfrmSulfInput.elackExit(Sender: TObject);
begin
  (sender as TDBEdit).color := clwindow;
end;

procedure TfrmSulfInput.SpeedButton1Click(Sender: TObject);
begin
  with SpeedButton1 do
  begin
    if Down then
      caption:='自动入库开'
    else
      caption:='自动入库关';
  end; //with


end;

procedure TfrmSulfInput.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   try
   if ((Key>57) and (Key<48)) or ((Key<96) and (Key>105)) then
  exit;
  //if (Key=190) or (key=110) then
  //exit;
  except
    showmessage('请按数字键！');
  end;
end;
procedure TfrmSulfInput.eqcnumKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   try
   // eqcnum.Text:=DBEdit1.text;
   if ((Key>57) and (Key<48)) or ((Key<96) and (Key>110)) then
  // begin

  exit;
 // end;
  if Key=190 then
  exit;
  except
  end;
end;



procedure TfrmSulfInput.eqcnumExit(Sender: TObject);
begin
 // elack.SetFocus;
 // showmessage('请按');
  (sender as TDBEdit).color := clwindow;
end;

procedure TfrmSulfInput.eprodnExit(Sender: TObject);
begin
  TdbEdit(Sender).color:=clwindow;
  eqcnum.SetFocus;
end;

procedure TfrmSulfInput.eqcnumEnter(Sender: TObject);
begin
   if i=0 then
    begin
    showmessage('请先按“添加键”或“修改键”！');
    BBInsert.SetFocus;
    exit;
    end;
  (sender as TDBEdit).color := claqua
end;

procedure TfrmSulfInput.echeckExit(Sender: TObject);
begin
  TdbEdit(Sender).color:=clwindow;
  eRubbMixID.SetFocus;
end;

end.