u_inoutclassadd.~pas

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

unit u_InOutClassAdd;

interface

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

type
  TfrmInOutClassAdd = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    edtName: TEdit;
    btnOk: TBitBtn;
    btnClose: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInOutClassAdd: TfrmInOutClassAdd;

implementation

uses u_DataCtrl, u_InOutClass;

{$R *.dfm}

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

procedure TfrmInOutClassAdd.btnOkClick(Sender: TObject);
var
  TempSql : String;
begin
  if edtName.Text = '' then
  begin
    Application.MessageBox('请输入费用资料','警告',MB_OK);
    edtName.SetFocus;
    Exit;
  end;
  TempSql := 'insert tb_InOutClass(ClassName) values('+QuotedStr(edtName.Text)+')';
  if frmDataCtrl.Run_Sql(TempSql) then
  begin
    Application.MessageBox('添加数据成功','警告',MB_OK);
    edtName.Clear;
    frmInOutClass.qry.Close;
    frmInOutClass.qry.Open;
    frmInOutClass.qry.Last;
    frmInOutClass.btnEdit.Enabled   := True;
    frmInOutClass.btnDelete.Enabled := True;
  end;
end;

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

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

end.