u_classedit.~pas

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

unit u_ClassEdit;

interface

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

type
  TfrmClassEdit = 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 FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmClassEdit: TfrmClassEdit;

implementation

uses u_ClassMain, DataCtrl;

{$R *.dfm}

procedure TfrmClassEdit.FormShow(Sender: TObject);
begin
  edtName.Text := frmClassMain.qry.FieldValues['ClassName'];
  edtName.SetFocus;
end;

procedure TfrmClassEdit.btnOKClick(Sender: TObject);
var
  TempSql : String;
begin
  if edtName.Text = '' then
  begin
    ShowMessage('请输入类别名称');
    edtName.SetFocus;
    Exit;
  end;
  TempSql := 'update tb_GoodsClass set ClassName='+QuotedStr(edtName.Text)+' where ID='+IntToStr(frmClassMain.qry.FieldValues['ID']);
  if frmDataCtrl.Run_Sql(TempSql) then
  begin
    ShowMessage('数据修改成功');
    frmClassMain.qry.Close;
    frmClassMain.qry.Open;
    Close;
  end;
end;

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

procedure TfrmClassEdit.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmClassMain.qry.GotoBookmark(frmClassMain.BmkFlag);
end;

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

end.