main.~pas

商品批发管理系统 本作品采用C/S模式

    if ADOQspgl.Active then
        ADOQgysb.Active:=false;
    ADOQspgl.SQL.Clear;
    ADOQspgl.SQL.add(eee);
    ADOQspgl.Parameters[0].Value:='%'+EspglCX.Text+'%';
    ADOQspgl.Active:=true;
    form1.EspglCX.Text:='';
    form1.EspglCX.SetFocus;
     //定位游标
    try
      ADOTspgl.Locate('cpbh',ADOQspgl.Lookup('cpbh',Form1.DBEspglCXDW.Text,'cpbh'),[]);
    except
    end; //
   end;
end;

procedure TForm1.EspglCXKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   button2.Click;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from khb where '+fff+'=:ccxx';
    if ADOQkhgl.Active then
        ADOQkhgl.Active:=false;
    ADOQkhgl.SQL.Clear;
    ADOQkhgl.SQL.add(eee);
    ADOQkhgl.Parameters[0].Value:=EkhglCX.Text;
    ADOQkhgl.Active:=true;
    form1.EkhglCX.Text:='';
    form1.EkhglCX.SetFocus;
    try
      ADOTkhgl.Locate('khbh',ADOQkhgl.Lookup('khbh',Form1.DBEkhglCXDW.Text,'khbh'),[]);
    except
    end;
   end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from khb where '+fff+' like :ccxx';
    if ADOQkhgl.Active then
        ADOQkhgl.Active:=false;
    ADOQkhgl.SQL.Clear;
    ADOQkhgl.SQL.add(eee);
    ADOQkhgl.Parameters[0].Value:='%'+EkhglCX.Text+'%';
    ADOQkhgl.Active:=true;
    form1.EkhglCX.Text:='';
    form1.EkhglCX.SetFocus;
    try
      ADOTkhgl.Locate('khbh',ADOQkhgl.Lookup('khbh',Form1.DBEkhglCXDW.Text,'khbh'),[]);
    except
    end;
   end;
end;

procedure TForm1.RGkhglClick(Sender: TObject);
begin
EkhglCX.SetFocus;
case RGkhgl.ItemIndex of
  0: fff:='khbh';
  1: fff:='khmc';
  2: fff:='lxrxm';
  3: fff:='lxrtx';
  4: fff:='dz';
  5: fff:='cs';
  6: fff:='dq';
  7: fff:='yzbm';
  8: fff:='gj';
  9: fff:='dh';
  10: fff:='cz';
  end;
  EkhglCX.SetFocus;

end;

procedure TForm1.TabSheet3Show(Sender: TObject);
begin
 EkhglCX.SetFocus;
 fff:='khbh';
end;

procedure TForm1.EkhglCXKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  button4.Click;
 
end;

procedure TForm1.RGgyglClick(Sender: TObject);
begin
EgyglCX.SetFocus;
case RGgygl.ItemIndex of
  0: fff:='gybh';
  1: fff:='xm';
  2: fff:='tx';
  3: fff:='zc';
  4: gyglRQcs.ShowModal;
  5: gyglRQgy.ShowModal;
  6: fff:='dz';
  7: fff:='cs';
  8: fff:='dq';
  9: fff:='yzbm';
  10: fff:='gj';
  11: fff:='dh';
  12: fff:='cz';
  end;
  EgyglCX.SetFocus;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from gyb where '+fff+'=:ccxx';
    if ADOQgygl.Active then
        ADOQgygl.Active:=false;
    ADOQgygl.SQL.Clear;
    ADOQgygl.SQL.add(eee);
    ADOQgygl.Parameters[0].Value:=EgyglCX.Text;
    ADOQgygl.Active:=true;
    form1.EgyglCX.Text:='';
    form1.EgyglCX.SetFocus;
    try
      ADOTgygl.Locate('gybh',ADOQgygl.Lookup('gybh',Form1.DBEgyglCXDW.Text,'gybh'),[]);
    except
    end;
   end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from gyb where '+fff+' like :ccxx';
    if ADOQgygl.Active then
        ADOQgygl.Active:=false;
    ADOQgygl.SQL.Clear;
    ADOQgygl.SQL.add(eee);
    ADOQgygl.Parameters[0].Value:='%'+EgyglCX.Text+'%';
    ADOQgygl.Active:=true;
    form1.EgyglCX.Text:='';
    form1.EgyglCX.SetFocus;
    try
      ADOTgygl.Locate('gybh',ADOQgygl.Lookup('gybh',Form1.DBEgyglCXDW.Text,'gybh'),[]);
    except
    end;
   end;
end;

procedure TForm1.EgyglCXKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 button6.Click;
end;

procedure TForm1.TabSheet5Show(Sender: TObject);
begin
 EgyglCX.SetFocus;
 fff:='gybh';
end;

procedure TForm1.RGyhsglClick(Sender: TObject);
begin
EyhsglCX.SetFocus;
case RGyhsgl.ItemIndex of
  0: fff:='yhsbh';
  1: fff:='yhsmc';
  2: fff:='dh';
  end;
  EyhsglCX.SetFocus;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from yhsb where '+fff+'=:ccxx';
    if ADOQyhsgl.Active then
        ADOQyhsgl.Active:=false;
    ADOQyhsgl.SQL.Clear;
    ADOQyhsgl.SQL.add(eee);
    ADOQyhsgl.Parameters[0].Value:=EyhsglCX.Text;
    ADOQyhsgl.Active:=true;
    form1.EyhsglCX.Text:='';
    form1.EyhsglCX.SetFocus;
    try
      ADOTyhsgl.Locate('yhsbh',ADOQyhsgl.Lookup('yhsbh',Form1.DBEyhsglCXDW.Text,'yhsbh'),[]);
    except
    end;
   end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from yhsb where '+fff+' like :ccxx';
    if ADOQyhsgl.Active then
        ADOQyhsgl.Active:=false;
    ADOQyhsgl.SQL.Clear;
    ADOQyhsgl.SQL.add(eee);
    ADOQyhsgl.Parameters[0].Value:='%'+EyhsglCX.Text+'%';
    ADOQyhsgl.Active:=true;
    form1.EyhsglCX.Text:='';
    form1.EyhsglCX.SetFocus;
    try
      ADOTyhsgl.Locate('yhsbh',ADOQyhsgl.Lookup('yhsbh',Form1.DBEyhsglCXDW.Text,'yhsbh'),[]);
    except
    end;
   end;
end;

procedure TForm1.TabSheet6Show(Sender: TObject);
begin
 EyhsglCX.SetFocus;
 fff:='yhsbh';
end;

procedure TForm1.EyhsglCXKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 button8.Click;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
gysbTJ.ShowModal;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  if DM.ADOTspgl.Locate('gysbh',DM.ADOTgysb.fieldbyname('gysbh').AsString,[]) then
   showmessage('定单基础资料中已经引用这个供应商编号！！！')
  else
   begin
     if messagedlg('您真的要删除供应商编号为 '+DM.ADOTgysb.fieldbyname('gysbh').AsString+' 的这个供应商吗？',mtConfirmation,[mbNo,mbYes],2)=mrYes then
     try
     DM.ADOTgysb.Delete;
     except
     end;
     try
     DM.ADOTgysb.Refresh;
     except
     end;
   end;
  {if messagedlg('您真的要删除供应商编号为 '+DM.ADOTgysb.fieldbyname('gysbh').AsString+' 的这个供应商吗？它将连同商品资料和定单详细资料中的相关资料一起删除！！！',mtConfirmation,[mbNo,mbYes],2)=mrYes then
     begin
       try
         DM.ADOTgysb.Delete;
       except
       end;
       try
         DM.ADOTgysb.Refresh;
       except
       end;
       try
       DM.ADOTspgl.Refresh;
       except
       end;
       try
         DM.ADOTddglMX.Close;
         DM.ADOTddglMX.Open;
       except
       end;
     end;}
end;

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
with DM do
  begin//代码与其他的不同，嘿嘿自己研究
    ADOTgysb.Locate('gysbh',DM.ADOQgysb.fieldbyname('gysbh').AsString,[]);
  end;
end;

procedure TForm1.DBGrid2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with DM do
  begin
    ADOTgysb.Locate('gysbh',DM.ADOQgysb.fieldbyname('gysbh').AsString,[]);
  end;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
gysbXG.ShowModal;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
spglTJ.ShowModal;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
spglXG.ShowModal;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin

   
      if DM.ADOTddglMXall.Locate('cpbh',DM.ADOTspgl.fieldbyname('cpbh').AsString,[]) then
        showmessage('定单详细资料中已经引用这个产品编号！！！')
      else
        begin
          if messagedlg('您真的要删除产品编号为 '+DBEspglDW.Text+' 的这个产品资料吗？,它将删除其他相关资料！！！',mtConfirmation,[mbNo,mbYes],2)=mrYes then
            begin
              try
              DM.ADOTspgl.Delete;
              except
              end;
              try
              DM.ADOTspgl.Refresh;
              except
              end;
            end;
        end;


end;

procedure TForm1.DBGrid4CellClick(Column: TColumn);
begin
with DM do
  begin
    ADOTspgl.Locate('cpbh',ADOQspgl.Lookup('cpbh',Form1.DBEspglCXDW.Text,'cpbh'),[]);
  end;
end;

procedure TForm1.DBGrid4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with DM do
  begin
    ADOTspgl.Locate('cpbh',ADOQspgl.Lookup('cpbh',Form1.DBEspglCXDW.Text,'cpbh'),[]);
  end;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
khglTJ.ShowModal;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
khglXG.ShowModal;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
if DM.ADOTddgl.Locate('khbh',DM.ADOTkhgl.fieldbyname('khbh').AsString,[]) then
   showmessage('定单基础资料中已经引用这个客户编号！！！')
else
   begin
     if messagedlg('您真的要删除客户编号为 '+DBEkhglDW.Text+' 的这个客户资料吗？',mtConfirmation,[mbNo,mbYes],2)=mrYes then
     try
     DM.ADOTkhgl.Delete;
     except
     end;
     try
     DM.ADOTkhgl.Refresh;
     except
     end;
   end;
end;

procedure TForm1.DBGrid6CellClick(Column: TColumn);
begin
with DM do
  begin
    ADOTkhgl.Locate('khbh',ADOQkhgl.Lookup('khbh',Form1.DBEkhglCXDW.Text,'khbh'),[]);
  end;
end;

procedure TForm1.DBGrid6KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with DM do
  begin
    ADOTkhgl.Locate('khbh',ADOQkhgl.Lookup('khbh',Form1.DBEkhglCXDW.Text,'khbh'),[]);
  end;
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
gyglTJ.ShowModal;
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
gyglXG.ShowModal;
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
if DM.ADOTddgl.Locate('gybh',DM.ADOTgygl.fieldbyname('gybh').AsString,[]) then
   showmessage('定单基础资料中已经引用了这个雇员编号！！！')
else
  begin
     if messagedlg('您真的要删除雇员编号为 '+DBEgyglDW.Text+' 的这个雇员资料吗？',mtConfirmation,[mbNo,mbYes],2)=mrYes then
     try
     DM.ADOTgygl.Delete;
     except
     end;
     try
     DM.ADOTgygl.Refresh;
     except
     end;
  end;
end;

procedure TForm1.DBGrid11CellClick(Column: TColumn);
begin
with DM do
  begin
    ADOTgygl.Locate('gybh',ADOQgygl.Lookup('gybh',Form1.DBEgyglCXDW.Text,'gybh'),[]);
  end;
end;

procedure TForm1.DBGrid11KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with DM do
  begin