vendor_unit.pas

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

unit Vendor_Unit;

interface

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

type
  TfrmVendor = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label9: TLabel;
    Label3: TLabel;
    edtVendorID: TDBEdit;
    edtVendorName: TDBEdit;
    edtHandset: TDBEdit;
    edtLinkman: TDBEdit;
    edtVendorSpell: TDBEdit;
    edtRemark: TDBEdit;
    dbGrdVendorInfo: TDBGrid;
    Label6: TLabel;
    Label7: TLabel;
    edtFax: TDBEdit;
    edtTel: TDBEdit;
    ControlBar1: TControlBar;
    CoolBar2: TCoolBar;
    sbtnFirst: TSpeedButton;
    sbtnPrior: TSpeedButton;
    sbtnNext: TSpeedButton;
    sbtnLast: TSpeedButton;
    CoolBar3: TCoolBar;
    sbtnAdd: TSpeedButton;
    sbtnSave: TSpeedButton;
    Bevel1: TBevel;
    sbtnExit: TSpeedButton;
    sbtnDelete: TSpeedButton;
    sbtnCancel: TSpeedButton;
    procedure btnNextClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure edtVendorIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtVendorNameKeyPress(Sender: TObject; var Key: Char);
    procedure edtVendorSpellKeyPress(Sender: TObject; var Key: Char);
    procedure edtLinkmanKeyPress(Sender: TObject; var Key: Char);
    procedure edtHandsetKeyPress(Sender: TObject; var Key: Char);
    procedure edtTelKeyPress(Sender: TObject; var Key: Char);
    procedure edtFaxKeyPress(Sender: TObject; var Key: Char);
    procedure sbtnFirstClick(Sender: TObject);
    procedure sbtnPriorClick(Sender: TObject);
    procedure sbtnLastClick(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
  frmVendor: TfrmVendor;

implementation

uses DM_Unit;

{$R *.dfm}

procedure TfrmVendor.btnNextClick(Sender: TObject);
begin
  DM.DataSetNext(DM.sdsVerdor);
end;

procedure TfrmVendor.btnCancelClick(Sender: TObject);
begin
  DM.DataSetCancel(DM.sdsVerdor);
end;

procedure TfrmVendor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM.sdsVerdor.Close;
  Action:=caFree;
  frmVendor:=nil;
end;

procedure TfrmVendor.FormCreate(Sender: TObject);
begin
  DM.sdsVerdor.Open;
end;

procedure TfrmVendor.edtVendorIDKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then
  begin
    if trim(edtVendorID.text)='' then
    begin
      DM.OfferTypeID('select VendorID from WMS_Vendor where VendorID like ''GYS%'' ',InNo);
      edtVendorID.Text:='GYS00'+InNo;
      edtVendorName.SetFocus;
    end
    else
    begin
      edtVendorName.SetFocus;
    end;
  end;
end;

procedure TfrmVendor.edtVendorNameKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    edtVendorSpell.SetFocus;
end;

procedure TfrmVendor.edtVendorSpellKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    edtLinkman.SetFocus;
end;

procedure TfrmVendor.edtLinkmanKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtHandset.SetFocus;
end;

procedure TfrmVendor.edtHandsetKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtTel.SetFocus;
end;

procedure TfrmVendor.edtTelKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtFax.SetFocus;
end;

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

procedure TfrmVendor.sbtnFirstClick(Sender: TObject);
begin
  DM.DataSetFirst(DM.sdsVerdor);
end;

procedure TfrmVendor.sbtnPriorClick(Sender: TObject);
begin
  DM.DataSetPrior(DM.sdsVerdor);
end;

procedure TfrmVendor.sbtnLastClick(Sender: TObject);
begin
  DM.DataSetLast(DM.sdsVerdor);
end;

procedure TfrmVendor.sbtnAddClick(Sender: TObject);
begin
  DM.DataSetInsert(DM.sdsVerdor);
  edtVendorID.SetFocus;
end;

procedure TfrmVendor.sbtnSaveClick(Sender: TObject);
begin
  DM.DataSetSave(DM.sdsVerdor);  
end;

procedure TfrmVendor.sbtnDeleteClick(Sender: TObject);
begin
  DM.DataSetDelete(DM.sdsVerdor);
end;

procedure TfrmVendor.sbtnCancelClick(Sender: TObject);
begin
   DM.DataSetCancel(DM.sdsVerdor);
end;

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

end.