ubunit.~pas

是分布式粮库程序,是采用Delphi实现的

     if edit2.Text ='' then
     begin
     showmessage('必须输入库点名称!');
     edit2.SetFocus ;
     exit;
     end;

  if sitenewormod='insert' then
  begin
     query1.ParamByName('unit_id').AsInteger :=unitid;
     query1.ParamByName('site_id').AsInteger :=strtoint(edit1.Text);
     query1.Close;
     query1.Open;
     if not query1.IsEmpty then
      begin
       showmessage('已经有重复的库点编号,输入错误!') ;
       edit1.Text :='';
       edit1.SetFocus ;
       exit;
      end;
     query4.ParamByName('unit_id').AsInteger :=unitid;
     query4.ParamByName('site_name').AsString :=edit2.Text ;
     query4.Close;
     query4.Open;
     if not query4.IsEmpty then
      begin
       showmessage('已经有重复的库点名称,输入错误!');
       edit2.Text:='';
       edit2.SetFocus ;
       exit;
      end;
     sitenewquery.ParamByName('unit_id').AsInteger :=strtoint(statictext1.Caption);
     sitenewquery.ParamByName('site_id').AsInteger :=strtoint(edit1.Text);
     sitenewquery.ParamByName('site_name').asstring :=edit2.Text;
     sitenewquery.ParamByName('site_address').asstring :=edit3.Text;
     sitenewquery.ParamByName('memo').asstring :=memo1.Text;
   try
   sitenewquery.ExecSQL ;
   except
   showmessage('添加库点时出错!');
   exit;
   end;
 end;

 if sitenewormod='modify' then
  begin
   sitemodquery.ParamByName('unit_id').AsInteger :=unitid;    //strtoint(statictext1.Caption);
   sitemodquery.ParamByName('site_id').AsInteger :=strtoint(edit1.Text);
   sitemodquery.ParamByName('site_name').asstring :=edit2.Text;
   sitemodquery.ParamByName('site_address').asstring :=edit3.Text;
   sitemodquery.ParamByName('memo').asstring :=memo1.Text;
    try
    sitemodquery.ExecSQL ;
    except
    showmessage('修改库点信息时出错!');
    exit;
    end;
  end;
   qrysite.Close;
   qrysite.Open;
   edit1.Enabled :=false;
   edit2.Enabled :=false;
   edit3.Enabled :=false;
   memo1.Enabled :=false;
   siteaddbitbtn.Enabled :=true;
   sitedelbitbtn.Enabled :=true;
   sitemodbitbtn.Enabled :=true;
end;

procedure Tfbaseunit.sitecanBitBtnClick(Sender: TObject);
begin
   siteaddbitbtn.Enabled :=true;
   sitedelbitbtn.Enabled :=true;
   sitemodbitbtn.Enabled :=true;
   edit1.Enabled :=false;
   edit2.Enabled :=false;
   edit3.Enabled :=false;
   memo1.Enabled :=false;

end;

procedure Tfbaseunit.siteexiBitBtnClick(Sender: TObject);
begin
   close;
end;

procedure Tfbaseunit.qrysiteAfterScroll(DataSet: TDataSet);
begin
   siteid:=dataset.fieldbyname('site_id').AsInteger ;
   edit1.Text :=inttostr(dataset.fieldbyname('site_id').AsInteger);
   edit2.Text :=dataset.fieldbyname('site_name').AsString ;
   edit3.Text :=dataset.fieldbyname('site_address').AsString ;
   memo1.Text :=dataset.fieldbyname('memo').AsString ;
end;


//       *****仓库信息*****
procedure Tfbaseunit.depotaddBitBtnClick(Sender: TObject);
begin
   depotnewormod:='insert' ;
   dblookupcombobox1.Enabled :=true;
   dblookupcombobox2.Enabled :=true;
   edit4.Enabled :=true;
   edit5.Enabled :=true;
   edit6.Enabled :=true;
   dblookupcombobox3.Enabled :=true;
   memo2.Enabled :=true;
   edit4.Text :='';
   edit5.Text :='';
   edit6.Text :='';
   memo2.Text :='';

   depotdelbitbtn.Enabled :=false;
   depotmodbitbtn.Enabled :=false;
end;

procedure Tfbaseunit.depotdelBitBtnClick(Sender: TObject);
begin
   if qrydepot.IsEmpty then
    begin
    application.MessageBox('没有仓库信息可供删除!','删除仓库信息时出错',MB_OK+MB_ICONEXCLAMATION);
    Exit;
    end;

   query8.ParamByName('unit_id').AsInteger :=unitid;
   query8.ParamByName('site_id').AsInteger :=dsiteid;
   query8.ParamByName('depot_id').AsInteger:=depotid; 
   query8.Close;
   query8.Open;
   if not query8.IsEmpty then
    begin
    application.MessageBox('请先在货位信息中删除该仓库中的货位!','不能删除',MB_OK+MB_ICONEXCLAMATION);
    exit;
    end;

    if MessageDlg('确实要删除这条仓库信息?',mtInformation,[mbYes,mbNo],0)=mrYes then
      begin
      dtmdl.Database1.StartTransaction;
      depotDelQuery.ParamByName('unit_id').AsInteger :=unitid;
      depotdelquery.ParamByName('site_id').AsInteger :=dsiteid;
      depotdelquery.ParamByName('depot_id').AsInteger :=depotid;

      try
      depotDelQuery.ExecSQL;
      except
      dtmdl.Database1.Rollback;
      Application.MessageBox('删除仓库信息出错!','系统错误',MB_OK+MB_ICONERROR);
      Exit;
      end;
      dtmdl.Database1.Commit;
      qrydepot.Close;
      qrydepot.Open;
   end;
end;

procedure Tfbaseunit.depotmodBitBtnClick(Sender: TObject);
begin
  depotnewormod:='modify';
//  dblookupcombobox1.Enabled :=true;
//  dblookupcombobox2.Enabled :=true;
//  edit4.Enabled :=true;
  edit5.Enabled :=true;
  edit6.Enabled :=true;
  dblookupcombobox3.Enabled :=true;
  memo2.Enabled :=true;

  depotdelbitbtn.Enabled :=false;
  depotaddbitbtn.Enabled :=false;
end;

procedure Tfbaseunit.depotsavBitBtnClick(Sender: TObject);
begin
    if dblookupcombobox1.Text ='' then
     begin
     showmessage('必须输入库点编号!');
     dblookupcombobox1.SetFocus ;
     exit;
     end;

    if edit4.Text ='' then
     begin
     showmessage('必须输入仓库编号!');
     edit4.SetFocus ;
     exit;
     end;

    if edit5.Text ='' then
     begin
     showmessage('必须输入仓库名称!');
     edit5.SetFocus ;
     exit;
     end;


  if depotnewormod='insert' then
  begin
     query2.ParamByName('unit_id').AsInteger :=unitid;
     query2.ParamByName('site_id').AsInteger :=dblookupcombobox1.KeyValue;
     query2.ParamByName('depot_id').AsInteger :=strtoint(edit4.Text);
     query2.Close;
     query2.Open;
     if not query2.IsEmpty then
      begin
       showmessage('已经有重复的仓库编号,输入错误!') ;
       edit4.Text :='';
       edit4.SetFocus ;
       exit;
      end;
     query5.ParamByName('unit_id').AsInteger :=unitid;
     query5.ParamByName('site_id').AsInteger :=dblookupcombobox1.KeyValue;
     query5.ParamByName('depot_name').AsString :=edit5.Text ;
     query5.Close;
     query5.Open;
     if not query5.IsEmpty then
      begin
       showmessage('已经有重复的仓库名称,输入错误!');
       edit5.Text:='';
       edit5.SetFocus ;
       exit;
      end;
     depotnewquery.ParamByName('unit_id').AsInteger :=unitid;//strtoint(statictext4.Caption);
     depotnewquery.ParamByName('site_id').AsInteger :=strtoint(dblookupcombobox1.Text) ;
     depotnewquery.ParamByName('depot_id').AsInteger :=strtoint(edit4.Text);
     depotnewquery.ParamByName('depot_name').asstring :=edit5.Text;
     depotnewquery.ParamByName('depot_area').asstring :=edit6.Text;
     depotnewquery.ParamByName('depot_type').asstring :=dblookupcombobox3.Text;
     depotnewquery.ParamByName('memo').asstring :=memo2.Text;
   try
   depotnewquery.ExecSQL ;
   except
   showmessage('添加仓库时出错!');
   exit;
   end;
 end;

  if depotnewormod='modify' then
  begin
   depotmodquery.ParamByName('unit_id').AsInteger :=strtoint(statictext4.Caption);
   depotmodquery.ParamByName('site_id').AsInteger :=dblookupcombobox1.KeyValue;
   depotmodquery.ParamByName('depot_id').AsInteger :=strtoint(edit4.Text);
   depotmodquery.ParamByName('depot_name').asstring :=edit5.Text;
   depotmodquery.ParamByName('depot_type').asstring :=dblookupcombobox3.Text;
   depotmodquery.ParamByName('depot_area').AsFloat :=strtofloat(edit6.Text);
   depotmodquery.ParamByName('memo').asstring :=memo2.Text;

    try
    depotmodquery.ExecSQL ;
    except
    showmessage('修改仓库信息时出错!');
    exit;
    end;
  end;
   qrydepot.Close;
   qrydepot.Open;
   dblookupcombobox1.Enabled :=false;
   dblookupcombobox2.Enabled :=false;
   edit4.Enabled :=false;
   edit5.Enabled :=false;
   edit6.Enabled :=false;
   dblookupcombobox3.Enabled :=false;
   memo2.Enabled :=false;

   depotaddbitbtn.Enabled :=true;
   depotdelbitbtn.Enabled :=true;
   depotmodbitbtn.Enabled :=true;

end;

procedure Tfbaseunit.depotcanBitBtnClick(Sender: TObject);
begin
    depotaddbitbtn.Enabled :=true;
    depotdelbitbtn.Enabled :=true;
    depotmodbitbtn.Enabled :=true;
    dblookupcombobox1.Enabled :=false;
    dblookupcombobox2.Enabled :=false;
    edit4.Enabled :=false;
    edit5.Enabled :=false;
    edit6.Enabled :=false;
    dblookupcombobox3.Enabled :=false;
    memo2.Enabled :=false;
end;

procedure Tfbaseunit.depotexiBitBtnClick(Sender: TObject);
begin
   close;
end;

procedure Tfbaseunit.qrydepotAfterScroll(DataSet: TDataSet);
begin
    dsiteid:=dataset.fieldbyname('site_id').AsInteger ;
    depotid:=dataset.fieldbyname('depot_id').AsInteger ;
    dblookupcombobox1.KeyValue:=dataset.fieldbyname('site_id').AsInteger;
    dblookupcombobox2.KeyValue:=dataset.fieldbyname('site_id').AsInteger;
    edit4.Text :=inttostr(dataset.fieldbyname('depot_id').AsInteger);
    edit5.Text :=dataset.fieldbyname('depot_name').AsString ;
    edit6.Text :=floattostr(dataset.fieldbyname('depot_area').AsFloat);
    dblookupcombobox3.KeyValue :=dataset.fieldbyname('depot_type').AsString ;
    memo2.Text :=dataset.fieldbyname('memo').AsString ;
end;


//     *****货位信息*****
procedure Tfbaseunit.siteQueryAfterScroll(DataSet: TDataSet);
begin
   depotquery.ParamByName('site_id').AsInteger :=dataset.fieldbyname('site_id').AsInteger ;
   depotquery.ParamByName('unit_id').AsInteger :=unitid;
   depotquery.Close;
   depotquery.Open;
//   dblookupcombobox6.Enabled :=true;
//   dblookupcombobox7.Enabled :=true;
end;

procedure Tfbaseunit.fdpaddBitBtnClick(Sender: TObject);
begin
   fdpnewormod:='insert';
   dblookupcombobox4.Enabled :=true;
   dblookupcombobox5.Enabled :=true;
//   dblookupcombobox6.Enabled :=true;
//   dblookupcombobox7.Enabled :=true;
   edit7.Enabled :=true;
   edit8.Enabled :=true;
   edit9.Enabled :=true;
   memo3.Enabled :=true;
   edit7.Text :='';
   edit8.Text :='';
   edit9.Text :='';
   memo3.Text :='';
   fdpdelbitbtn.Enabled :=false;
   fdpmodbitbtn.Enabled :=false;
end;


procedure Tfbaseunit.fdpdelBitBtnClick(Sender: TObject);
begin
   if qryfdposition.IsEmpty then
    begin
    application.MessageBox('没有库点信息可供删除!','删除货位信息时出错',MB_OK+MB_ICONEXCLAMATION);
    Exit;
    end;
    if MessageDlg('确实要删除这条货位信息?',mtInformation,[mbYes,mbNo],0)=mrYes then
      begin
      dtmdl.Database1.StartTransaction;
      fdpDelQuery.ParamByName('unit_id').AsInteger :=unitid;
      fdpdelquery.ParamByName('site_id').AsInteger :=fsiteid;
      fdpdelquery.ParamByName('depot_id').AsInteger :=fdepotid;
      fdpdelquery.ParamByName('foodposition_id').AsInteger :=fdpositionid;

      try
      fdpDelQuery.ExecSQL;
      except
      dtmdl.Database1.Rollback;