p_yh.pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

unit p_yh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,p_mc, StdCtrls, Buttons, dxDotNetCtrls, ExtCtrls, Grids, DBGrids;

type
  Tf_yh = class(Tf_mc)
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    yhid: TdxDNEdit;
    Label1: TLabel;
    yhmc: TdxDNEdit;
    Label2: TLabel;
    b_add: TBitBtn;
    b_edit: TBitBtn;
    b_save: TBitBtn;
    b_del: TBitBtn;
    b_cancel: TBitBtn;
    b_exit: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure b_addClick(Sender: TObject);
    procedure b_editClick(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure b_cancelClick(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
    procedure yhmcKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_yh: Tf_yh;

implementation

uses p_dm;
{$R *.dfm}

procedure Tf_yh.FormCreate(Sender: TObject);
begin
  dm.T_YH.Open;
end;

procedure Tf_yh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.T_YH.Close;
end;

procedure Tf_yh.DBGrid1CellClick(Column: TColumn);
begin
  with dm do
  begin
    yhid.Text:= t_yh['yhh'];
    yhmc.Text:=t_yh['yhm'];
    b_cancel.OnClick(self);
  end;
end;

procedure Tf_yh.b_addClick(Sender: TObject);
var
  id:integer;
  s:string;
begin
  inherited;
  with dm do
  begin
    if t_yh.RecordCount>0 then
    begin
      t_yh.Requery;
      t_yh.Last;
      id:=t_yh['yhh'];
    end else id:=0;
    s:=inttostr(id+1);
    if length(s)=1 then s:='0'+s;
    yhid.Text:=s;
    yhmc.Text:='';
    T_yh.Append;
  end;
  yhmc.Enabled:=true;
  b_edit.Enabled:=false;
  b_save.Enabled:=true;
  b_add.Enabled:=false;
  b_cancel.Enabled:=true;
  yhmc.SetFocus;
end;

procedure Tf_yh.b_editClick(Sender: TObject);
begin
  yhid.Text:=dm.T_yh['yhh'];
  yhmc.Text:=dm.T_yh['yhm'];
  dm.T_yh.Edit;
  yhmc.Enabled:=true;
  b_edit.Enabled:=false;
  b_save.Enabled:=true;
  b_add.Enabled:=false;
  b_cancel.Enabled:=true;
  yhmc.SetFocus;
end;

procedure Tf_yh.b_delClick(Sender: TObject);
var
 y:integer;
begin
  inherited;
  y:=application.MessageBox('确认删除该记录吗？','删除',mb_yesno+mb_iconquestion);
  if y=idno then exit;
  dm.T_yh.Delete;
  yhmc.Enabled:=false;
  b_edit.Enabled:=true;
  b_save.Enabled:=false;
  b_add.Enabled:=true;
  b_cancel.Enabled:=false;
end;


procedure Tf_yh.b_saveClick(Sender: TObject);
begin
  if trim(yhmc.Text)='' then
  begin
    application.MessageBox('请输入部门名称！','输入',mb_ok+mb_iconinformation);
    yhmc.SetFocus;
    exit;
  end;
  dm.T_yh['yhm']:=trim(yhmc.Text);
  dm.T_yh['yhh']:=trim(yhid.Text);
  dm.T_yh.Post;
  yhid.Text:='';
  yhmc.Text:='';
  yhmc.Enabled:=false;
  b_edit.Enabled:=true;
  b_save.Enabled:=false;
  b_add.Enabled:=true;
  b_cancel.Enabled:=false;
  b_add.SetFocus;
end;

procedure Tf_yh.b_cancelClick(Sender: TObject);
begin
  dm.T_yh.Cancel;
  yhmc.Enabled:=false;
  b_edit.Enabled:=true;
  b_save.Enabled:=false;
  b_add.Enabled:=true;
  b_cancel.Enabled:=false;
end;

procedure Tf_yh.b_exitClick(Sender: TObject);
begin
  dm.T_yh.Cancel;
  close;
end;

procedure Tf_yh.yhmcKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    b_save.SetFocus;
  end;
end;

end.