u_inoutclassedit.pas

来自「河南师范大学餐饮进销存软件,只要控制库存的数据。」· PAS 代码 · 共 76 行

unit u_InOutClassEdit;

interface

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

type
  TfrmInOutClassEdit = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    edtName: TEdit;
    btnOk: TBitBtn;
    btnClose: TBitBtn;
    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
  frmInOutClassEdit: TfrmInOutClassEdit;

implementation

uses u_InOutClass, u_DataCtrl;

{$R *.dfm}

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

procedure TfrmInOutClassEdit.btnOkClick(Sender: TObject);
var
  TempSql : String;
begin
  if edtName.Text = '' then
  begin
    Application.MessageBox('请输入费用资料','警告',MB_OK);
    edtName.SetFocus;
    Exit;
  end;
  TempSql := 'update tb_InOutClass set ClassName='+QuotedStr(edtName.Text)+' where ID='+IntToStr(frmInOutClass.qry.FieldValues['ID']);
  if frmDataCtrl.Run_Sql(TempSql) then
  begin
    Application.MessageBox('数据修改成功','警告',MB_OK);
    frmInOutClass.qry.Close;
    frmInOutClass.qry.Open;
    frmInOutClass.qry.GotoBookmark(frmInOutClass.BmkFlag);
    Close;
  end;
end;

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

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

end.