uspjbxx_z.pas

delphi 开发的完整的仓库管理系统（带数据库）

unit USPJBXX_Z;

interface

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

type
  TSPJBXX_Z = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SPJBXX_Z: TSPJBXX_Z;

implementation

uses UDM, UMAIN, USPJBXX;

{$R *.dfm}

procedure TSPJBXX_Z.SpeedButton3Click(Sender: TObject);
begin
  Close;
end;

procedure TSPJBXX_Z.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TSPJBXX,SPJBXX);
  SPJBXX.GetAll;  
  ActionCD:='M';
  SPJBXX.ShowModal;
  SPJBXX.Free;
end;

procedure TSPJBXX_Z.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM.QSPXX.Close;
  DM.DSOSPXX.Close;
end;

procedure TSPJBXX_Z.FormCreate(Sender: TObject);
begin                             //创建窗体时，打开数据库
  with DM.QSPXX do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 商品基本信息');
    open;
  end;
  dm.DSOSPXX.Open;
end;

procedure TSPJBXX_Z.SpeedButton2Click(Sender: TObject);
begin
  if DM.QSPXX.RecordCount=0 then         //判断数据库内是否有数据
  begin
    Application.MessageBox('已无记录可删除!','提示',0+MB_ICONINFORMATION);
    exit;
  end;
  if DM.DSOSPXX.IsEmpty then
    exit;
  if ID_YES=application.MessageBox('确实要删除这条记录吗？','提示',MB_YESNO) then
  begin
    DM.DSOSPXX.Delete;
  end;
end;

procedure TSPJBXX_Z.DBGrid1DblClick(Sender: TObject);
begin
  Application.CreateForm(TSPJBXX,SPJBXX);
  SPJBXX.GetAll;  
  ActionCD:='M';
  SPJBXX.ShowModal;
  SPJBXX.Free;
end;

end.