addpurchaser.~pas

delphi制作的图书管理系统

unit AddPurchaser;

interface

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

type
  TFrmAddPurchaser = class(TForm)
    GrpBoxPurchaseInfo: TGroupBox;
    DBGridPurInfo: TDBGrid;
    LblID: TLabel;
    LblName: TLabel;
    BtnEdt: TButton;
    BtnEdit: TButton;
    BtnDelete: TButton;
    BtnExit: TButton;
    EdtID: TEdit;
    EdtName: TEdit;
    procedure BtnEdtClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
  private
    AddEdit:shortInt;        //判别是编辑还是新增
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAddPurchaser: TFrmAddPurchaser;

implementation

uses DataModuel;

{$R *.dfm}

procedure TFrmAddPurchaser.BtnEdtClick(Sender: TObject);
begin
  if DM.AddPurhcaserTable.RecordCount=0 then
  begin
     MessageDlg('当前没有信息可能编辑!',mtError,[mbOK],0);
     exit;
  end;

  EdtID.Enabled:=True;
  EdtName.Enabled:=True;
  EdtID.Text:=DM.AddPurhcaserTable['PurchaserID'];
  EdtName.Text:=DM.AddPurhcaserTable['PurchaserName'];
  BtnEdit.Caption:='保存';
  AddEdit:=2;
end;

procedure TFrmAddPurchaser.BtnExitClick(Sender: TObject);
begin
  close;
end;

procedure TFrmAddPurchaser.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFrmAddPurchaser.FormDestroy(Sender: TObject);
begin
  FrmAddPurchaser:=nil;
end;

procedure TFrmAddPurchaser.BtnEditClick(Sender: TObject);
begin

  if Trim(BtnEdit.Caption)='新增' then
  begin
     EdtID.Text:='';
     EdtName.Text:='';
     BtnEdit.Caption:='保存';
     AddEdit:=1;
     EdtID.Enabled:=True;
     EdtName.Enabled:=True;
     exit;
  end;


  if Trim(BtnEdit.Caption)='保存' then
  begin

    if EdtID.Text='' then
    begin
        MessageDlg('采购员编号不能为空!',mtError,[mbOK],0);
        exit;
    end;
    if EdtName.Text='' then
    begin
        MessageDlg('采购员姓名不能为空!',mtError,[mbOK],0);
        exit;
    end;
    if AddEdit=1 then
    begin
       if DM.AddPurhcaserTable.Locate('PurchaserID',Trim(EdtID.Text),[loCaseInsensitive]) then
       begin
         MessageDlg('采购员编号已经存在！',mtError,[mbOK],0);
         EdtID.SetFocus;
         exit;
       end;
    end;

    if AddEdit=1 then
      DM.AddPurhcaserTable.Append
    else
      DM.AddPurhcaserTable.Edit;
    DM.AddPurhcaserTable['PurchaserID']:=Trim(EdtID.Text);
    DM.AddPurhcaserTable['PurchaserName']:=Trim(EdtName.Text);
    DM.AddPurhcaserTable.Post;

    EdtID.Text:='';
    EdtName.Text:='';
    BtnEdit.Caption:='新增';
    EdtID.Enabled:=False;
    EdtName.Enabled:=False;
    DM.AddPurhcaserTable.Active:=False;
    DM.AddPurhcaserTable.Active:=True;
    MessageDlg('信息保存成功！',mtInformation,[mbOk],0);
  end;

end;

procedure TFrmAddPurchaser.FormCreate(Sender: TObject);
begin
  DM.AddPurhcaserTable.Active:=True;
  EdtID.Enabled:=False;
  EdtName.Enabled:=False;
end;

procedure TFrmAddPurchaser.BtnDeleteClick(Sender: TObject);
begin
  if DM.AddPurhcaserTable.RecordCount=0 then
     exit;
  if Application.MessageBox('要删除当前记录吗？','提示',MB_ICONQUESTION or MB_YESNO )=IDYES then
     DM.AddPurhcaserTable.Delete;
end;

end.