u_classadd.~pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_ClassAdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TfrmClassAdd = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    btnOK: TButton;
    btnClose: TButton;
    edtName: TEdit;
    procedure FormShow(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmClassAdd: TfrmClassAdd;

implementation

uses u_DataCtrl, u_ClassMain;

{$R *.dfm}

procedure TfrmClassAdd.FormShow(Sender: TObject);
begin
  edtName.Clear;
  edtName.SetFocus;
end;

procedure TfrmClassAdd.btnOKClick(Sender: TObject);
var
  TempSql : String;
begin
  if edtName.Text = '' then
  begin
    ShowMessage('请输入商品类别');
    edtName.SetFocus;
    Exit;
  end;
  TempSql := 'insert tb_GoodsClass(ClassName) values('+QuotedStr(edtName.Text)+')';
  if frmDataCtrl.Run_Sql(TempSql) then
  begin
    ShowMessage('数据添加成功');
    frmClassMain.qry.Close;
    frmClassMain.qry.Open;
    frmClassMain.qry.Last;
    frmClassMain.btnEdit.Enabled   := True;
    frmClassMain.btnDelete.Enabled := True;
    edtName.Clear;
  end;
end;

procedure TfrmClassAdd.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmClassAdd.edtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
    btnOK.SetFocus;
end;

end.