c_product.pas

《delphi数据库设计与实例开发》随书光盘

unit c_product;

interface

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

type
  Tcfrm_product = class(TForm)
    ToolBar1: TToolBar;
    TButton1: TToolButton;
    TButton2: TToolButton;
    TButton3: TToolButton;
    ToolButton4: TToolButton;
    TButton5: TToolButton;
    TButton6: TToolButton;
    ToolButton7: TToolButton;
    DBNavigator1: TDBNavigator;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Panel2: TPanel;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label6: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    ImageList1: TImageList;
    procedure TButton1Click(Sender: TObject);
    procedure TButton2Click(Sender: TObject);
    procedure TButton3Click(Sender: TObject);
    procedure TButton5Click(Sender: TObject);
    procedure TButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure spsl;
  end;

var
  cfrm_product: Tcfrm_product;
  productcount:integer;

implementation

uses datam, publicvar;

{$R *.dfm}
procedure Tcfrm_product.spsl;
begin
  productcount:=dm.ADO_product.RecordCount;
  StatusBar1.Panels[0].text:='当前的商品总数为：'+inttostr(productcount);
end;

procedure Tcfrm_product.TButton1Click(Sender: TObject);
begin
  dm.ADO_depot.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;
  DBEdit4.Enabled:=true;
  DBEdit5.Enabled:=true;
end;

procedure Tcfrm_product.TButton2Click(Sender: TObject);
begin
TButton5.Tag:=1;
  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;
end;

procedure Tcfrm_product.TButton3Click(Sender: TObject);
var productid,mes:string;
begin
 productid:=dm.ADO_product.fieldbyname('ProductID').asstring;
 dm.ado_storage.open;
 dm.ado_storage.first;
 if dm.ado_storage.locate('ProductID',productid,[]) then
  begin
      mes:='商品： <'+dm.ADO_product.fieldbyname('ProductName').AsString
           +'> 已有库存信息，不能删除！';
      application.MessageBox(pchar(mes),pchar('提示')
       ,+MB_ICONQUESTION);
       dm.ado_storage.close;
      exit;
  end;
   mes:='是否要删除商品< '+dm.ADO_product.fieldbyname('ProductName').AsString +'>';
 if application.MessageBox(pchar(mes),pchar('等待确认')
    ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then
     begin
      dm.ADO_product.Delete;//删除仓库信息
     end;
    spsl;
end;


procedure Tcfrm_product.TButton5Click(Sender: TObject);
begin
if DBEdit1.Text='' then  //判断是否输入了商品名称
    begin
      Application.MessageBox(PChar('商品名称不能为空,请重新录入！')
      , PChar('提示'),MB_ICONEXCLAMATION);
      DBEdit1.SetFocus();
      exit;
     end;
  if TButton5.Tag=1 then dm.ADO_product.Edit;
  try
   dm.ADO_product.Post;
  except
    Application.MessageBox(PChar('输入信息有错误！'), PChar('提示'),
      MB_ICONEXCLAMATION);
    DBEdit1.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;
  spsl;
end;

procedure Tcfrm_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;
end;

procedure Tcfrm_product.FormCreate(Sender: TObject);
begin
 dm.ADO_product.Open;
 dm.ADO_product.First;
 Statusbar1.Panels[1].Text:='当前用户：'+username;
 spsl;
end;

procedure Tcfrm_product.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
dm.ADO_product.Close;
release;
end;

end.