materialinfo_unit.pas

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

unit MaterialInfo_Unit;

interface

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

type
  TfrmMaterialInfo = class(TForm)
    dbGrdMaterialInfo: TDBGrid;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Label1: TLabel;
    edt_MaterialID: TDBEdit;
    Label2: TLabel;
    edt_MaterialName: TDBEdit;
    edtMaterialSpecs: TDBEdit;
    Label5: TLabel;
    edtMaterialUnit: TDBEdit;
    Label6: TLabel;
    edtMaterialPrice: TDBEdit;
    edtMaterialModel: TDBEdit;
    Label4: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label3: TLabel;
    edtMaterialSpell: TDBEdit;
    edtMaterialType: TDBEdit;
    edtRemark: TDBEdit;
    Label10: TLabel;
    ControlBar1: TControlBar;
    CoolBar2: TCoolBar;
    sbtnFirst: TSpeedButton;
    sbtnPrior: TSpeedButton;
    sbtnNext: TSpeedButton;
    sbtnLast: TSpeedButton;
    CoolBar3: TCoolBar;
    sbtnAdd: TSpeedButton;
    sbtnSave: TSpeedButton;
    Bevel1: TBevel;
    sbtnExit: TSpeedButton;
    sbtnDelete: TSpeedButton;
    sbtnCancal: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSaveClick(Sender: TObject);
    procedure edt_MaterialIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edt_MaterialIDKeyPress(Sender: TObject; var Key: Char);
    procedure edt_MaterialNameKeyPress(Sender: TObject; var Key: Char);
    procedure edtMaterialSpellKeyPress(Sender: TObject; var Key: Char);
    procedure edtMaterialModelKeyPress(Sender: TObject; var Key: Char);
    procedure edtMaterialSpecsKeyPress(Sender: TObject; var Key: Char);
    procedure edtMaterialPriceKeyPress(Sender: TObject; var Key: Char);
    procedure edtMaterialUnitKeyPress(Sender: TObject; var Key: Char);
    procedure edtMaterialTypeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure sbtnFirstClick(Sender: TObject);
    procedure sbtnPriorClick(Sender: TObject);
    procedure sbtnLastClick(Sender: TObject);
    procedure sbtnNextClick(Sender: TObject);
    procedure sbtnAddClick(Sender: TObject);
    procedure sbtnSaveClick(Sender: TObject);
    procedure sbtnDeleteClick(Sender: TObject);
    procedure sbtnCancalClick(Sender: TObject);
    procedure sbtnExitClick(Sender: TObject);
  private
    InNo:string;                    //类型编号
    ACoulmnName,ACoulmnID,ACode,AName:string;
  public
    { Public declarations }
  end;

var
  frmMaterialInfo: TfrmMaterialInfo;

implementation

uses DM_Unit, SpellInputUnit;

{$R *.dfm}

procedure TfrmMaterialInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DM.sdsMaterialInfo.Close;
  Action:=caFree;
  frmMaterialInfo:=nil;
end;

procedure TfrmMaterialInfo.btnSaveClick(Sender: TObject);
begin
  DM.DataSetSave(DM.sdsMaterialInfo);
end;

procedure TfrmMaterialInfo.edt_MaterialIDKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_RETURN then
  begin
    if trim(edt_MaterialID.text)='' then
    begin
      if DM.sdsMaterialInfo.State <> dsInsert then
        DM.DataSetInsert(DM.sdsMaterialInfo);
      DM.OfferTypeID('select MATERIALID from WMS_MaterialInfo',InNo);
      edt_MaterialID.text:='WP00'+InNo;
      edt_MaterialName.setfocus;
    end
    else
    begin
      edt_MaterialName.setfocus;
    end;
  end;
end;

procedure TfrmMaterialInfo.FormCreate(Sender: TObject);
begin
  DM.sdsMaterialInfo.Open;
end;

procedure TfrmMaterialInfo.FormShow(Sender: TObject);
begin
  edt_MaterialID.SetFocus;
end;

procedure TfrmMaterialInfo.edt_MaterialIDKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key =#13 then
    edt_MaterialName.SetFocus;
end;

procedure TfrmMaterialInfo.edt_MaterialNameKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key =#13 then
    edtMaterialSpell.SetFocus;
end;

procedure TfrmMaterialInfo.edtMaterialSpellKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key =#13 then
    edtMaterialModel.SetFocus;
end;

procedure TfrmMaterialInfo.edtMaterialModelKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key =#13 then
    edtMaterialSpecs.SetFocus;
end;

procedure TfrmMaterialInfo.edtMaterialSpecsKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key =#13 then
    edtMaterialType.SetFocus;
end;

procedure TfrmMaterialInfo.edtMaterialPriceKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key =#13 then
    edtMaterialUnit.SetFocus;
end;

procedure TfrmMaterialInfo.edtMaterialUnitKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key =#13 then
    edtRemark.SetFocus;
end;

procedure TfrmMaterialInfo.edtMaterialTypeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_SPACE then
  begin
    frmSpellInput.showFormData('WMS_MaterialType','MaterialType','MaterialTypeID',ACode,AName);   //
    edtMaterialType.Text:=AName;
    edtMaterialPrice.SetFocus;
  end;
end;

procedure TfrmMaterialInfo.sbtnFirstClick(Sender: TObject);
begin
  DM.DataSetFirst(DM.sdsMaterialInfo);
end;

procedure TfrmMaterialInfo.sbtnPriorClick(Sender: TObject);
begin
  DM.DataSetPrior(DM.sdsMaterialInfo);
end;

procedure TfrmMaterialInfo.sbtnLastClick(Sender: TObject);
begin
  DM.DataSetLast(DM.sdsMaterialInfo);
end;

procedure TfrmMaterialInfo.sbtnNextClick(Sender: TObject);
begin
  DM.DataSetNext(DM.sdsMaterialInfo);
end;

procedure TfrmMaterialInfo.sbtnAddClick(Sender: TObject);
begin
  DM.DataSetInsert(DM.sdsMaterialInfo);
  edt_MaterialID.SetFocus;
end;

procedure TfrmMaterialInfo.sbtnSaveClick(Sender: TObject);
begin
  DM.DataSetSave(DM.sdsMaterialInfo);
end;

procedure TfrmMaterialInfo.sbtnDeleteClick(Sender: TObject);
begin
  DM.DataSetDelete(DM.sdsMaterialInfo);
end;

procedure TfrmMaterialInfo.sbtnCancalClick(Sender: TObject);
begin
  DM.DataSetCancel(DM.sdsMaterialInfo);
end;

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

end.