cf_product.pas

delphi和SQL做的超市管理系统

unit cf_product;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, ImgList, Grids, DBGrids, StdCtrls, Buttons, DBCtrls, Mask,
  ComCtrls, ToolWin, ExtCtrls;

type
  Tcfra_product = class(TFrame)
    Panel3: TPanel;
    ToolBar1: TToolBar;
    TButton1: TToolButton;
    TButton2: TToolButton;
    TButton3: TToolButton;
    ToolButton4: TToolButton;
    TButton5: TToolButton;
    TButton6: TToolButton;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBComboBox1: TDBComboBox;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    ImageList1: TImageList;
    DataSource1: TDataSource;
    procedure TButton1Click(Sender: TObject);
    procedure TButton2Click(Sender: TObject);
    procedure TButton6Click(Sender: TObject);
    procedure TButton3Click(Sender: TObject);
    procedure TButton5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  cfra_product: Tcfra_product;

implementation

uses datam;

{$R *.dfm}

procedure Tcfra_product.TButton1Click(Sender: TObject);
begin
dm.ADO_product.Append;
  TButton5.Tag:=0;
  TButton1.Enabled:=false;
  TButton2.Enabled:=false;
  TButton3.Enabled:=false;
  TButton5.Enabled:=true;
  TButton6.Enabled:=true;
  DBEdit1.Enabled:=true;
  DBEdit2.Enabled:=true;
  DBEdit3.Enabled:=true;
  DBEdit4.Enabled:=true;
  DBEdit5.Enabled:=true;
  DBEdit6.Enabled:=true;
  DBCombobox1.Enabled:=true;
end;

procedure Tcfra_product.TButton2Click(Sender: TObject);
begin
  TButton5.Tag:=0;
  TButton1.Enabled:=false;
  TButton2.Enabled:=false;
  TButton3.Enabled:=false;
  TButton5.Enabled:=true;
  TButton6.Enabled:=true;
  DBEdit1.Enabled:=true;
  DBEdit2.Enabled:=true;
  DBEdit3.Enabled:=true;
  DBEdit4.Enabled:=true;
  DBEdit5.Enabled:=true;
  DBEdit6.Enabled:=true;
  DBCombobox1.Enabled:=true;
end;

procedure Tcfra_product.TButton6Click(Sender: TObject);
begin
dm.ADO_product.Cancel;
 TButton1.Enabled:=true;
  TButton2.Enabled:=true;
  TButton3.Enabled:=true;
  TButton5.Enabled:=false;
  TButton6.Enabled:=false;
  DBEdit1.Enabled:=false;
  DBEdit2.Enabled:=false;
  DBEdit3.Enabled:=false;
  DBEdit4.Enabled:=false;
  DBEdit5.Enabled:=false;
  DBEdit6.Enabled:=false;
  DBCombobox1.Enabled:=false;
end;

procedure Tcfra_product.TButton3Click(Sender: TObject);
var mes:string;
begin
mes:='是否要删除商品< '+dm.ADO_product.fieldbyname('prod_name').AsString +'>';
 if application.MessageBox(pchar(mes),pchar('等待确认')
    ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then
     begin
      dm.ADO_product.Delete;//删除顾客记录
     end;
end;

procedure Tcfra_product.TButton5Click(Sender: TObject);
begin
  if DBEdit2.Text='' then  //判断是否输入了商品编号
    begin
      Application.MessageBox(PChar('商品编号不能为空,请重新录入！')
      , PChar('提示'),MB_ICONEXCLAMATION);
      DBEdit2.SetFocus();
      exit;
     end;
   if DBEdit1.Text='' then  //判断是否输入了商品名称
    begin
      Application.MessageBox(PChar('商品名称不能为空,请重新录入！')
      , PChar('提示'),MB_ICONEXCLAMATION);
      DBEdit1.SetFocus();
      exit;
     end;
    if DBCombobox1.Text='' then  //判断是否输入了商品类型
    begin
      Application.MessageBox(PChar('商品类型不能为空,请重新录入！')
      , PChar('提示'),MB_ICONEXCLAMATION);
      DBCombobox1.SetFocus();
      exit;
     end;
  if TButton5.Tag=1 then dm.ADO_product.Edit;
  try
   dm.ADO_product.Post;
  except
    Application.MessageBox(PChar('商品编号重复，请重新输入！'), PChar('提示'),
      MB_ICONEXCLAMATION);
    DBEdit2.SetFocus();
    exit;
  end;
  TButton1.Enabled:=true;
  TButton2.Enabled:=true;
  TButton3.Enabled:=true;
  TButton5.Enabled:=false;
  TButton6.Enabled:=false;
  DBEdit1.Enabled:=false;
  DBEdit2.Enabled:=false;
  DBEdit3.Enabled:=false;
  DBEdit4.Enabled:=false;
  DBEdit5.Enabled:=false;
  DBEdit6.Enabled:=false;
  DBCombobox1.Enabled:=false;
  end;
procedure Tcfra_product.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text<>'' then
  begin
  if dm.ADO_product.Locate('prod_id',edit1.Text,[]) then
  else
  begin
  Application.MessageBox(PChar('对不起，没有此种商品！'), PChar('提示'), MB_ICONEXCLAMATION);
  edit1.Text:='';
  edit1.setfocus;
  end;
  end;
end;

end.