materialtype_unit.pas

来自「仓库管理」· PAS 代码 · 共 121 行

unit MaterialType_Unit;

interface

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

type
  TfrmMaterialType = class(TForm)
    dbgrdMaterial: TDBGrid;
    StatusBar1: TStatusBar;
    ControlBar1: TControlBar;
    CoolBar1: TCoolBar;
    sbtnAdd: TSpeedButton;
    sbtnSave: TSpeedButton;
    Bevel1: TBevel;
    sbtnExit: TSpeedButton;
    sbtnDelete: TSpeedButton;
    sbtnCancel: TSpeedButton;
    Panel1: TPanel;
    Label1: TLabel;
    dbedtTypeID: TDBEdit;
    Label2: TLabel;
    dbedtTypeName: TDBEdit;
    procedure btnInsertClick(Sender: TObject);
    procedure dbedtTypeIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure sbtnAddClick(Sender: TObject);
    procedure sbtnSaveClick(Sender: TObject);
    procedure sbtnDeleteClick(Sender: TObject);
    procedure sbtnCancelClick(Sender: TObject);
    procedure sbtnExitClick(Sender: TObject);
  private
    InNo:string;                    //类型编号
  public
    { Public declarations }
  end;

var
  frmMaterialType: TfrmMaterialType;

implementation

uses DM_Unit;

{$R *.dfm}

procedure TfrmMaterialType.btnInsertClick(Sender: TObject);
begin
  DM.DataSetInsert(DM.sdsMaterialType);
  dbedtTypeID.SetFocus;
end;

procedure TfrmMaterialType.dbedtTypeIDKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_RETURN then
  begin
    if trim(dbedtTypeID.text)='' then
    begin
      DM.OfferTypeID('select MaterialTypeID from WMS_MaterialType order by MaterialTypeID desc ',InNo);
      dbedtTypeID.text:='00'+InNo;
      dbedtTypeName.setfocus;
    end
    else
    begin
      dbedtTypeName.setfocus;
    end;
  end;
end;

procedure TfrmMaterialType.FormCreate(Sender: TObject);
begin
  DM.sdsMaterialType.Open;
end;

procedure TfrmMaterialType.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DM.sdsMaterialType.Close;
end;

procedure TfrmMaterialType.FormShow(Sender: TObject);
begin
  dbedtTypeID.SetFocus;
end;

procedure TfrmMaterialType.sbtnAddClick(Sender: TObject);
begin
  DM.DataSetInsert(DM.sdsMaterialType);
  dbedtTypeID.SetFocus;
end;

procedure TfrmMaterialType.sbtnSaveClick(Sender: TObject);
begin
  DM.DataSetSave(DM.sdsMaterialType);
end;

procedure TfrmMaterialType.sbtnDeleteClick(Sender: TObject);
begin
  if MessageDlg('确定删除此记录吗?', mtWarning, [mbOk, mbCancel], 0) = IDOK then
    DM.DataSetDelete(DM.sdsMaterialType);
end;

procedure TfrmMaterialType.sbtnCancelClick(Sender: TObject);
begin
  DM.DataSetCancel(DM.sdsMaterialType);
end;

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

end.