addsale.~pas

delphi制作的图书管理系统

unit addSale;

interface

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

type
  TFrmaddSale = 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;   //判断否新增[True]，编辑[False]
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmaddSale: TFrmaddSale;

implementation

uses DataModuel;

{$R *.dfm}

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

  EdtID.Enabled:=True;
  EdtName.Enabled:=True;
  EdtID.Text:=DM.SaleTable['SalerID'];
  EdtName.Text:=DM.SaleTable['SalerName'];
  BtnEdit.Caption:='保存';
  AddEdit:=2;

end;

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

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

procedure TFrmaddSale.FormDestroy(Sender: TObject);
begin
  FrmAddsale:=nil;
end;

procedure TFrmaddSale.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.SaleTable.Locate('SalerID',Trim(EdtID.Text),[loCaseInsensitive]) then
       begin
         MessageDlg('销售员编号已经存在！',mtError,[mbOK],0);
         EdtID.SetFocus;
         exit;
       end;
    end;

    if AddEdit=1 then
      DM.SaleTable.Append
    else
      DM.SaleTable.Edit;
    DM.SaleTable['SalerID']:=Trim(EdtID.Text);
    DM.SaleTable['SalerName']:=Trim(EdtName.Text);
    DM.SaleTable.Post;

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



end;

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

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

end.