unitdictionary.pas

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

    open;
    last;
    sID:=fieldbyname('ManufacturerID').asstring;
    if sID='' then
    sID:='000';
    sID:=zdyStrAddOne(sID);
    append;
  end; //with

  dbeManufacturerID.SetFocus;
  dbeManufacturerID.text:=sID;
  dbeManufacturer.SetFocus;
end;

procedure TfrmCommDictionary.BitBtn18Click(Sender: TObject);
var
  z:integer;
  sID:string;
begin
  j:=0;
  a:=1;
   BitBtn20.Enabled:=false;
  BitBtn22.Enabled:=false;
  dm.tabStaff.active:=true;
  dm.dsStaff.DataSet:=dm.tabStaff;

  with dm.tabStaff do
  begin
    open;
    last;
    sID:=fieldbyname('StaffID').asstring;
     if sID='' then
    sID:='000';
    sID:=zdyStrAddOne(sID);
    append;
  end; //with
  dbeStaffID.SetFocus;
  dbeStaffID.text:=sID;
  DBEdit12.SetFocus;
  end;

procedure TfrmCommDictionary.BitBtn23Click(Sender: TObject);
var
  sID:string;
begin
  a:=1;
    BitBtn24.Enabled:=false;
    BitBtn26.Enabled:=false;
  with dm.tabWorkshop do
  begin
    last;
    sID:=fieldbyname('WorkShopID').asstring;
    if sID='' then
    sID:='0';
    sID:=zdyStrAddOne(sID);
    append;
  end; //with
  dbeWorkShop.SetFocus;
  dbeWorkShop.text:=sID;
  DBEdit14.SetFocus;

end;

procedure TfrmCommDictionary.BitBtn19Click(Sender: TObject);
begin
  a:=1;
  BitBtn15.Enabled:=false;
  BitBtn16.Enabled:=false;
  dm.tabManufacturer.Cancel;
  dm.tabManufacturer.edit;

end;

procedure TfrmCommDictionary.BitBtn22Click(Sender: TObject);
begin
  a:=1;
  //dbeProdID.SetFocus;
  BitBtn18.Enabled:=false;
  BitBtn20.Enabled:=false;
  if j=1 then
   begin
   dm.dsStaff.DataSet:=dm.tabStaff;
   dm.tabStaff.Filtered:=true ;
   end;
   //dm.tabStaff.close;
   //dm.tabStaff.open;
   dm.tabStaff.edit;
    j:=0;
  dbeStaffID.SetFocus;
 end;

procedure TfrmCommDictionary.BitBtn26Click(Sender: TObject);
begin
  a:=1;
  BitBtn24.Enabled:=false;
  BitBtn23.Enabled:=false;
  dm.tabWorkshop.Cancel;
  dm.tabWorkshop.edit;

end;

procedure TfrmCommDictionary.BitBtn16Click(Sender: TObject);
var
z:string;
begin
     if v<>1 then
    begin
    showmessage('请选择要删除的记录！');
    exit;
    end;
   if messagedlg('会删除所选记录 要继续吗？',mtWarning,[mbYes,mbNo],0) = mrNo then
    begin
    v:=0;
    exit;
    end;
     begin
    dm.tabManufacturer.open;
     if dm.tabManufacturer.recordcount = 0 then
     begin
     showmessage('无记录可删除！');
     exit;
     end;
     dm.tabManufacturer.delete;
   end;
    with dm.tabManufacturer do
    begin
    open;
    first;
    while not eof do
    begin
    z:=fieldbyname('ManufacturerID').asstring;
    if strtoint(z)>strtoint(p) then
    begin
    edit;
    fieldbyname('ManufacturerID').asstring :=zdyStrdecOne(z);
    post;
    p:=inttostr(strtoint(p)+1);
    end;
    next;
    end;

    end;

    p:='';
   v:=0;
end;

procedure TfrmCommDictionary.BitBtn20Click(Sender: TObject);
var
 r:string;
begin
  dm.tabStaff.active:=true;
  if v<>1 then
    begin
    showmessage('请选择要删除的记录！');
    exit;
    end;
   if messagedlg('会删除所选记录 要继续吗？',mtWarning,[mbYes,mbNo],0) = mrNo then
    begin
    v:=0;
    exit;
    end;
    begin
    dm.tabStaff.open;
     if dm.tabStaff.recordcount = 0 then
     begin
     showmessage('无记录可删除！');
     exit;
     end;
     if j<>0 then
     begin
    with Query3 do
    begin
    close;
    sql.Clear;
    sql.Add('delete from CommStaff');
    sql.add('where StaffID=:b');
    paramByName('b').asstring:=p;
    execsql;
    end;
    //dm.dsMaterDictionary.DataSet:=dm.tabMaterDictionary;
   end;
    if j=0 then
    dm.tabStaff.delete;
    eStaffFind.text:='';
  //dm.tabMaterDictionary.edit;
  with dm.tabStaff do
    begin
    open;
    first;
    while not eof do
    begin
    r:=fieldbyname('StaffID').asstring ;
    if strtoint(r)>strtoint(p) then
    begin
    edit;
    //r:=strtoint(fieldbyname('StaffID').asstring)-1;
    fieldbyname('StaffID').asstring :=zdyStrdecOne(r);
    post;
    p:=inttostr(strtoint(p)+1);
    end;
    next;
    end;
    dm.dsStaff.DataSet:=dm.tabStaff;
    dm.tabStaff.Close;
    dm.tabStaff.Open;
    end;
    j:=0;
    p:='';
   v:=0;
  end;

end;

procedure TfrmCommDictionary.BitBtn24Click(Sender: TObject);
var
u:string;
begin
        if v<>1 then
    begin
    showmessage('请选择要删除的记录！');
    exit;
    end;
   if messagedlg('会删除所选记录 要继续吗？',mtWarning,[mbYes,mbNo],0) = mrNo then
    begin
    v:=0;
    exit;
    end;
     begin
    dm.tabWorkshop.open;
     if dm.tabWorkshop.recordcount = 0 then
     begin
     showmessage('无记录可删除！');
     exit;
     end;
  dm.tabWorkshop.delete;
   end;
    with dm.tabWorkshop do
    begin
    open;
    first;
    while not eof do
    begin
    u:=fieldbyname('WorkshopID').asstring;
    if strtoint(u)>strtoint(p) then
    begin
    edit;
    fieldbyname('WorkshopID').asstring :=zdyStrdecOne(u);
    post;
    p:=inttostr(strtoint(p)+1);
    end;
    next;
    end;
    end;
    p:='';
    v:=0;
end;

procedure TfrmCommDictionary.BitBtn17Click(Sender: TObject);
begin
  if a=1 then
  dm.tabManufacturer.post;
  BitBtn15.Enabled:=true;
  BitBtn16.Enabled:=true;
  BitBtn19.Enabled:=true;
   if a=0 then
    showmessage('请先按“添加”或“修改”按键！');
    a:=0;
end;

procedure TfrmCommDictionary.BitBtn21Click(Sender: TObject);
begin
     if a=1 then
    dm.tabStaff.post;
   if a=0 then
    showmessage('请先按“添加”或“修改”按键！');
     dm.tabStaff.Filtered:=false ;
    eStaffFind.text:='';
    a:=0;
    BitBtn18.Enabled:=true;
    BitBtn20.Enabled:=true;
    BitBtn22.Enabled:=true;
    //dm.tabStaff.active:=true;

   end;

procedure TfrmCommDictionary.BitBtn25Click(Sender: TObject);
begin
  if a=1 then
  dm.tabWorkshop.post;
  BitBtn23.Enabled:=true;
  BitBtn24.Enabled:=true;
  BitBtn26.Enabled:=true;
   if a=0 then
    showmessage('请先按“添加”或“修改”按键！');
    a:=0;
end;

procedure TfrmCommDictionary.bbExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmCommDictionary.BitBtn6Click(Sender: TObject);
var
  sStaffID:string;
begin
  dm.tabStaff.cancel;
  with dm.qryExe do
  begin
    close;
    sql.Clear;
    if rgStaff.ItemIndex = 0 then
    begin
      sql.add('select * from CommStaff where StaffID = :StaffID');
      parambyname('StaffID').asstring:=eStaffFind.text;
    end
    else if rgStaff.ItemIndex = 1 then
    begin
      sql.add('select * from CommStaff where StaffName = :Staff');
      parambyname('Staff').asstring:=eStaffFind.text;
    end
    else
      exit;
    open;
    if recordcount = 0 then
    begin
      showmessage('没找到该员工!');
      exit;
    end;
    sStaffID:=fieldbyname('StaffID').asstring;
  end; //with

  with dm.tabStaff do
  begin
    setkey;
    findkey([sStaffID]);
  end; //with

  dbgStaff.setfocus;

end;

procedure TfrmCommDictionary.FormCreate(Sender: TObject);
begin
  bbExit.Height:=0;
  bbExit.Width:=0;
end;

procedure TfrmCommDictionary.FormShow(Sender: TObject);
begin
   v:=0;
   j:=0;
   a:=0;
  dm.tabMaterDictionary.open;
  dm.tabMaterDictionary.Filtered:=false;

  dm.tabStaff.open;
  dm.tabStaff.Filtered:=false;

  dm.tabManufacturer.open;
  dm.tabManufacturer.Filtered:=false;

  dm.tabWorkShop.open;
  dm.tabWorkShop.Filtered:=false;

  dm.tabProdDictionary.open;
  dm.tabProdDictionary.Filtered:=false;
   Query2.Open;

end;

procedure TfrmCommDictionary.BitBtn7Click(Sender: TObject);
begin
Query2.active:=false;
dm.tabProdDictionary.active:=false;
close;
end;

procedure TfrmCommDictionary.Button1Click(Sender: TObject);
begin
  Query3.active:=false;
 dm.tabStaff.active:=false;
 close;
end;

procedure TfrmCommDictionary.eMaterDictionaryFindChange(Sender: TObject);
begin
  v:=0;
  j:=1;
  dm.tabMaterDictionary.active:=false;
  dm.dsMaterDictionary.DataSet:=Query1;
  with Query1 do
  begin
    close;
    sql.Clear;
    if rgMaterDictionary.ItemIndex = 0 then
    begin

      sql.add('select * from 原材料字典 where  简称 like :mi order by 标识号');

     paramByName('mi').asstring:= eMaterDictionaryFind.text+'%';
    end

    else if rgMaterDictionary.ItemIndex = 1 then
    begin
      with Query1 do
      sql.add('select * from 原材料字典 where 材料名称 like :mi order by 标识号');
      parambyname('mi').asstring:=eMaterDictionaryFind.text+'%';
    end
    else
    begin
      eMaterDictionaryFind.text:='';
      exit;
      end;
    open;
    if recordcount = 0 then
    begin
      eMaterDictionaryFind.text:='';
      showmessage('没找到该物品!');
      exit;
    end;
    // eMaterDictionaryFind.text:='';
    //sMaterID:=fieldbyname('标识号').asstring;
  end; //with
  {
    with Query1 do
    begin
      setkey;
      findkey([sMaterID]);
    end; //with
   }
   dm.tabMaterDictionary.active:=true;
   //sp:=dm.tabMaterDictionary.fieldbyname('标识号').asinteger;
end;



procedure TfrmCommDictionary.eProdDictionaryFindChange(Sender: TObject);
begin
   v:=0;
   j:=1;
   dm.tabProdDictionary.active:=false;
  dm.dsProdDictionary.DataSet:=frmCommDictionary.Query2;
  with frmCommDictionary.Query2 do
  begin
    close;
    sql.Clear;
    if rgProdDictionary.ItemIndex = 0 then
    begin
      sql.add('select * from ProdDictionary where  FigID like :mi order by prodID');
     paramByName('mi').asstring:= eProdDictionaryFind.text+'%';
    end

    else if rgProdDictionary.ItemIndex = 1 then
    begin
      with Query2 do
      sql.add('select * from ProdDictionary  where ProdName like :mi order by prodID');
      parambyname('mi').asstring:=eProdDictionaryFind.text+'%';
    end
    else
    begin
      eProdDictionaryFind.text:='';
      exit;
      end;
    open;
    if recordcount = 0 then
    begin
      eProdDictionaryFind.text:='';
      showmessage('没找到该产品!');
      exit;
    end;
  end; //with
  // dm.tabProdDictionary.active:=true;
end;

procedure TfrmCommDictionary.dbgMaterDictionaryCellClick(Column: TColumn);
begin
   v:=1 ;
   if j=0 then
   begin
   dm.dsMaterDictionary.DataSet:=dm.tabMaterDictionary;
   dm.tabMaterDictionary.open;
   sp:=dm.tabMaterDictionary.fieldbyname('标识号').asinteger;//删除未经查询找到的记录
   exit;
   end;
   sp:=query1.fieldbyname('标识号').asinteger //删除由查询找出的记录

   //showmessage(inttostr(sp));

end;

procedure TfrmCommDictionary.dbgProdDictionaryCellClick(Column: TColumn);
begin
   v:=1;
  if j=0 then
   begin
   dm.dsProdDictionary.DataSet:=dm.tabProdDictionary;
   dm.tabProdDictionary.open;
   p:=dm.tabProdDictionary.fieldbyname('prodID').asstring;
  exit;
  end;
 p:=Query2.fieldbyname('prodID').asstring;//删除由查询找出的记录
end;

procedure TfrmCommDictionary.rgProdDictionaryClick(Sender: TObject);
begin
   if rgProdDictionary.ItemIndex = 0 then
   Label17.caption:='请输入图号：'
   else  Label17.caption:='请输入产品名称：';
 end;
procedure TfrmCommDictionary.rgMaterDictionaryClick(Sender: TObject);
begin
   if rgMaterDictionary.ItemIndex = 0 then
   Label20.caption:='请输入简称：'
   else  Label20.caption:='请输入原料名称：';
end;

procedure TfrmCommDictionary.eStaffFindChange(Sender: TObject);
begin
    v:=0;
    j:=1;
  dm.tabStaff.active:=false;
  dm.dsStaff.DataSet:=Query3;
  with Query3 do
  begin
    close;
    sql.Clear;
    if rgStaff.ItemIndex = 0 then
    begin

      sql.add('select * from CommStaff where  StaffID like :mi order by StaffID');

     paramByName('mi').asstring:= eStaffFind.text+'%';
    end

    else if rgStaff.ItemIndex = 1 then
    begin
      with Query3 do
      sql.add('select * from CommStaff where StaffName like :mi order by StaffID');
      parambyname('mi').asstring:=eStaffFind.text+'%';
    end
    else
    begin
      eStaffFind.text:='';
      exit;
      end;
    open;
    if recordcount = 0 then
    begin
      eStaffFind.text:='';
      showmessage('没找到此名字!');
      exit;
    end;
    // eMaterDictionaryFind.text:='';
    //sMaterID:=fieldbyname('标识号').asstring;
  end; //with
  {
    with Query1 do
    begin
      setkey;
      findkey([sMaterID]);
    end; //with
   }
   dm.tabStaff.active:=true;
end;

procedure TfrmCommDictionary.dbgStaffCellClick(Column: TColumn);
begin
    v:=1;
  if j=0 then
   begin
   dm.dsStaff.DataSet:=dm.tabStaff;
   dm.tabStaff.open;
   p:=dm.tabStaff.fieldbyname('StaffID').asstring;
  exit;
  end;
 p:=Query3.fieldbyname('StaffID').asstring;
end;

procedure TfrmCommDictionary.rgStaffClick(Sender: TObject);
begin
  if rgStaff.ItemIndex = 0 then
   Label21.caption:='请输入编号：'
   else  Label21.caption:='请输入姓名：';
end;

procedure TfrmCommDictionary.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  try
   if ((Key>57) and (Key<48)) or ((Key<96) and (Key>110)) then
 // exit;
 // if Key=190 then
  exit;
  except
  end;
 end;



procedure TfrmCommDictionary.DBGrid3CellClick(Column: TColumn);
begin
   v:=1;
   dm.tabManufacturer.open;
   p:=dm.tabManufacturer.fieldbyname('ManufacturerID').asstring;
end;



procedure TfrmCommDictionary.DBGrid5CellClick(Column: TColumn);
begin
   v:=1;
   dm.tabWorkshop.open;
   p:=dm.tabWorkshop.fieldbyname('WorkshopID').asstring;
end;


end.