⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.~pas

📁 商品批发管理系统 本作品采用C/S模式
💻 ~PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    ADOTgygl.Locate('gybh',ADOQgygl.Lookup('gybh',Form1.DBEgyglCXDW.Text,'gybh'),[]);
  end;
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
yhsglTJ.ShowModal;
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
yhsglXG.ShowModal;
end;

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

procedure TForm1.DBGrid13CellClick(Column: TColumn);
begin
with DM do
  begin
    ADOTyhsgl.Locate('yhsbh',ADOQyhsgl.Lookup('yhsbh',Form1.DBEyhsglCXDW.Text,'yhsbh'),[]);
  end;
end;

procedure TForm1.DBGrid13KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with DM do
  begin
    ADOTyhsgl.Locate('yhsbh',ADOQyhsgl.Lookup('yhsbh',Form1.DBEyhsglCXDW.Text,'yhsbh'),[]);
  end;
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from lbb where '+fff+'=:ccxx';
    if ADOQlbgl.Active then
        ADOQlbgl.Active:=false;
    ADOQlbgl.SQL.Clear;
    ADOQlbgl.SQL.add(eee);
    ADOQlbgl.Parameters[0].Value:=ElbglCX.Text;
    ADOQlbgl.Active:=true;
    form1.ElbglCX.Text:='';
    form1.ElbglCX.SetFocus;
    try
      ADOTlbgl.Locate('lbbh',ADOQlbgl.Lookup('lbbh',Form1.DBElbglCXDW.Text,'lbbh'),[]);
    except
    end;
   end;
end;

procedure TForm1.RGlbglClick(Sender: TObject);
begin
ElbglCX.SetFocus;
case RGlbgl.ItemIndex of
  0: fff:='lbbh';
  1: fff:='lbmc';
  2: fff:='sm';
  end;

end;

procedure TForm1.TabSheet7Show(Sender: TObject);
begin
 ElbglCX.SetFocus;
 fff:='lbbh';
 button29.Enabled:=false;
 button31.Enabled:=false;
 button30.Enabled:=false;
 button32.Enabled:=false;
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
 with DM do
  Begin
   try
    eee:='select * from lbb where '+fff+' like :ccxx';
    if ADOQlbgl.Active then
        ADOQlbgl.Active:=false;
    ADOQlbgl.SQL.Clear;
    ADOQlbgl.SQL.add(eee);
    ADOQlbgl.Parameters[0].Value:='%'+ElbglCX.Text+'%';
    ADOQlbgl.Active:=true;
    form1.ElbglCX.Text:='';
    form1.ElbglCX.SetFocus;
   finally
    try
      ADOTlbgl.Locate('lbbh',ADOQlbgl.Lookup('lbbh',Form1.DBElbglCXDW.Text,'lbbh'),[]);
    except
    end;
   end;
  end;
end;

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

procedure TForm1.Button27Click(Sender: TObject);
begin
  DBEdit1.ReadOnly:=false;
  DBEdit2.ReadOnly:=false;
  DBEdit3.ReadOnly:=false;
  button29.Enabled:=true;
  button31.Enabled:=true;
  button27.Enabled:=false;
  button28.Enabled:=false;
  DM.ADOTlbgl.Append;
  DM.ADOTlbgl.Edit;
  GBlbgl.Caption:='请添加类别资料';
  DBGrid14.Enabled:=false;
  DBGrid15.Enabled:=false;
  DBedit1.SetFocus;

end;

procedure TForm1.Button29Click(Sender: TObject);
begin
    try
     DM.ADOTlbgl.Post;
    except
      begin
        DBEdit1.ReadOnly:=false;
        DBEdit2.ReadOnly:=false;
        DBEdit3.ReadOnly:=false;
        button29.Enabled:=true;
        button31.Enabled:=true;
        button27.Enabled:=false;
        button28.Enabled:=false;
        DBEdit1.SetFocus;
        showmessage('类别编号重复或为空，请重填！！！');
        abort;
      end;
    end;
    DM.ADOTlbgl.Append;
    DBEdit1.SetFocus;
    GBlbgl.Caption:='类别录入管理';

end;

procedure TForm1.Button30Click(Sender: TObject);
begin
  DBEdit1.ReadOnly:=true;
  DBEdit2.ReadOnly:=true;
  DBEdit3.ReadOnly:=true;
  DBedit1.Color:=clWindow;
  DBedit2.Color:=clWindow;
  DBedit3.Color:=clWindow;
  button30.Enabled:=false;
  button32.Enabled:=false;
  button28.Enabled:=true;
  button27.Enabled:=true;
  DM.ADOTlbgl.UpdateBatch;
  GBlbgl.Caption:='类别录入管理';
  DBGrid14.Enabled:=true;
  DBGrid15.Enabled:=true;
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
  DM.ADOTlbgl.Cancel;
  DBEdit1.ReadOnly:=true;
  DBEdit2.ReadOnly:=true;
  DBEdit3.ReadOnly:=true;
  button27.Enabled:=true;
  button29.Enabled:=false;
  button31.Enabled:=false;
  button28.Enabled:=true;
  GBlbgl.Caption:='类别录入管理';
  DBGrid14.Enabled:=true;
  DBGrid15.Enabled:=true;
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
  DM.ADOTlbgl.Edit;
  DBEdit1.ReadOnly:=false;
  DBEdit2.ReadOnly:=false;
  DBEdit3.ReadOnly:=false;
  DBedit1.Color:=clGradientActiveCaption;
  DBedit2.Color:=clGradientActiveCaption;
  DBedit3.Color:=clGradientActiveCaption;
  button30.Enabled:=true;
  button32.Enabled:=true;
  button28.Enabled:=false;
  button27.Enabled:=false;
  GBlbgl.Caption:='请修改类别资料';
  DBGrid14.Enabled:=false;
  DBGrid15.Enabled:=false;
  DBedit1.SetFocus;
 

end;

procedure TForm1.Button32Click(Sender: TObject);
begin
  DBEdit1.ReadOnly:=true;
  DBEdit2.ReadOnly:=true;
  DBEdit3.ReadOnly:=true;
  DBedit1.Color:=clWindow;
  DBedit2.Color:=clWindow;
  DBedit3.Color:=clWindow;
  button30.Enabled:=false;
  button32.Enabled:=false;
  button28.Enabled:=true;
  button27.Enabled:=true;
  GBlbgl.Caption:='类别录入管理';
  DBGrid14.Enabled:=true;
  DBGrid15.Enabled:=true;
  //1我也不懂啊，不显示，还是灰色
  DM.ADOTlbgl.Next;
  DM.ADOTlbgl.Prior;//1
  DM.ADOTlbgl.CancelBatch;
end;

procedure TForm1.Button33Click(Sender: TObject);
begin
if DM.ADOTspgl.Locate('lbbh',DM.ADOTlbgl.fieldbyname('lbbh').AsString,[]) then
   showmessage('定单基础资料中已经引用这个客户编号！！！')
else
   begin
     if messagedlg('您真的要删除类别编号为  '+DBElbglDW.Text+' 的这个类别资料吗？',mtConfirmation,[mbNo,mbYes],2)=mrYes then
     try
     DM.ADOTlbgl.Delete;
     except
     end;
     try
     DM.ADOTlbgl.Refresh;
     except
     end;
   end;
{if messagedlg('您真的要删除类别编号为  '+DBElbglDW.Text+' 的这个类别资料吗？它将删除其他相关资料！！！',mtConfirmation,[mbNo,mbYes],2)=mrYes then
  begin
     try
     DM.ADOTlbgl.Delete;
     except
     end;
     try
       DM.ADOTlbgl.Refresh;
     except
     end;
     try
       DM.ADOTspgl.Refresh;
     except
     end;
     try
       DM.ADOTddglMX.Close;
       DM.ADOTddglMX.Open;
     except
     end;
  end;}
end;

procedure TForm1.DBGrid15CellClick(Column: TColumn);
begin
with DM do
  begin
    ADOTlbgl.Locate('lbbh',ADOQlbgl.Lookup('lbbh',Form1.DBElbglCXDW.Text,'lbbh'),[]);
  end;
end;

procedure TForm1.DBGrid15KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with DM do
  begin
    ADOTlbgl.Locate('lbbh',ADOQlbgl.Lookup('lbbh',Form1.DBElbglCXDW.Text,'lbbh'),[]);
  end;
end;

procedure TForm1.Button34Click(Sender: TObject);
begin
ddglTJ.ShowModal;
end;

procedure TForm1.Button35Click(Sender: TObject);
begin
ddglXX.ShowModal;
end;

procedure TForm1.Button36Click(Sender: TObject);
begin
  ddglXG.ShowModal;
end;

procedure TForm1.Button37Click(Sender: TObject);
begin
ddglXXXG.ShowModal;
end;

procedure TForm1.Button38Click(Sender: TObject);
begin
 ddglCX.ShowModal;
end;

procedure TForm1.DBGrid7CellClick(Column: TColumn);
begin

  ddglJSLR;
end;

procedure TForm1.DBGrid7KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  ddglJSLR;
end;

procedure TForm1.Button40Click(Sender: TObject);
begin
  if messagedlg('您真的要删除定单编号为 '+DM.ADOTddgl.fieldbyname('ddbh').AsString+'的这个定单吗？它将连同详细资料一起删除！！！',mtConfirmation,[mbNo,mbYes],2)=mrYes then
     begin
      try
      DM.ADOTddgl.Delete;
      except
      end;
      try
      DM.ADOTddgl.Refresh;
      except
      end;
      button3.Enabled:=false;
     end;
end;

procedure TForm1.Button41Click(Sender: TObject);
begin
  if messagedlg('您真的要删除产品编号为 '+DM.ADOTddglMX.fieldbyname('cpbh').AsString+'的这个定单详细资料吗？',mtConfirmation,[mbNo,mbYes],2)=mrYes then
    begin
      DM.ADOTspgl.Locate('cpbh',DM.ADOTddglMX.FieldByName('cpbh').AsString,[]);
      DM.ADOTspgl.Edit;
      DM.ADOTspgl.FieldByName('kcl').AsString:=inttostr(strtoint(DM.ADOTspgl.FieldByName('kcl').AsString)+strtoint(DM.ADOTddglMX.FieldByName('sl').AsString));
      DM.ADOTddglMX.Delete;
      ddglJSLR;
    end;
end;

procedure TForm1.TabSheet4Show(Sender: TObject);
//var
// nn,n:string;
begin

   ddglJSLR;
     {nn:=floattostr(0);
     DM.ADOTddglMX.First;
     while not DM.ADOTddglMX.Eof do
     begin
       n:=floattostr(DM.ADOTddglMX.fieldbyname('dj').AsFloat*DM.ADOTddglMX.fieldbyname('sl').AsFloat*DM.ADOTddglMX.fieldbyname('zk').AsFloat);
       nn:=floattostr(strtofloat(nn)+strtofloat(n));
       DM.ADOTddglMX.Next;
     end;
     DM.ADOTddglMX.First;
     form1.Label8.Caption:='总价钱为:'+nn+'元'; }
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  denglu2.Show
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
denglu.Close;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
    jibie.Hide;//jibie是用来传递参数的
    //登陆权限的实现
    if jibie.Text='guest' then
     begin
         bitbtn1.Enabled:=false;
         ddglcx.Button3.Enabled:=false;
          with form1 do
             begin
               button10.Enabled:=false;
               button12.Enabled:=false;
               button11.Enabled:=false;
               button33.Enabled:=false;
               button27.Enabled:=false;
               button28.Enabled:=false;
               button13.Enabled:=false;
               button14.Enabled:=false;
               button15.Enabled:=false;
               button16.Enabled:=false;
               button17.Enabled:=false;
               button18.Enabled:=false;
               button22.Enabled:=false;
               button23.Enabled:=false;
               button24.Enabled:=false;
               button19.Enabled:=false;
               button20.Enabled:=false;
               button21.Enabled:=false;
               button34.Enabled:=false;
               button36.Enabled:=false;
               button40.Enabled:=false;
               button35.Enabled:=false;
               button37.Enabled:=false;
               button41.Enabled:=false;
             end;
     end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
systemTJ.ShowModal;
end;

end.
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -