wareinfo_unit.pas

仓库管理系统 貌似是ACCESS的数据库

unit WareInfo_Unit;

interface

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

type
  TfrmWareInfo = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label9: TLabel;
    Label3: TLabel;
    edtWarehouseID: TDBEdit;
    edtWarehouseName: TDBEdit;
    edtWarehouseMan: TDBEdit;
    edtWarehouseAddr: TDBEdit;
    edtWarehouseSpell: TDBEdit;
    edtRemark: TDBEdit;
    dbGrdMaterialInfo: TDBGrid;
    ControlBar1: TControlBar;
    CoolBar2: TCoolBar;
    sbtnFirst: TSpeedButton;
    sbtnPrior: TSpeedButton;
    sbtnNext: TSpeedButton;
    sbtnLast: TSpeedButton;
    CoolBar3: TCoolBar;
    sbtnAdd: TSpeedButton;
    sbtnSave: TSpeedButton;
    Bevel1: TBevel;
    sbtnExit: TSpeedButton;
    sbtnDelete: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure sbtnFirstClick(Sender: TObject);
    procedure sbtnPriorClick(Sender: TObject);
    procedure sbtnNextClick(Sender: TObject);
    procedure sbtnLastClick(Sender: TObject);
    procedure sbtnAddClick(Sender: TObject);
    procedure sbtnSaveClick(Sender: TObject);
    procedure sbtnDeleteClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure sbtnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmWareInfo: TfrmWareInfo;

implementation

uses DM_Unit;

{$R *.dfm}

procedure TfrmWareInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DM.sdsWareInfo.Close;
  Action:=caFree;
  frmWareInfo:=nil;
end;

procedure TfrmWareInfo.FormCreate(Sender: TObject);
begin
  DM.sdsWareInfo.Open;
end;

procedure TfrmWareInfo.sbtnFirstClick(Sender: TObject);
begin
  DM.DataSetFirst(DM.sdsWareInfo);
end;

procedure TfrmWareInfo.sbtnPriorClick(Sender: TObject);
begin
  DM.DataSetPrior(DM.sdsWareInfo);
end;

procedure TfrmWareInfo.sbtnNextClick(Sender: TObject);
begin
  DM.DataSetNext(DM.sdsWareInfo);
end;

procedure TfrmWareInfo.sbtnLastClick(Sender: TObject);
begin
  DM.DataSetLast(DM.sdsWareInfo);
end;

procedure TfrmWareInfo.sbtnAddClick(Sender: TObject);
begin
  DM.DataSetInsert(DM.sdsWareInfo);
end;

procedure TfrmWareInfo.sbtnSaveClick(Sender: TObject);
begin
  DM.DataSetSave(DM.sdsWareInfo);
end;

procedure TfrmWareInfo.sbtnDeleteClick(Sender: TObject);
begin
  DM.DataSetDelete(DM.sdsWareInfo);
end;

procedure TfrmWareInfo.SpeedButton1Click(Sender: TObject);
begin
  DM.DataSetCancel(DM.sdsWareInfo);
end;

procedure TfrmWareInfo.sbtnExitClick(Sender: TObject);
begin
  Close;
end;

end.