p_spfl.pas

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

unit p_spfl;

interface

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

type
  Tf_spfl = class(Tf_mc)
    Page: TPageControl;
    TabSheet1: TTabSheet;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    spflh: TdxDNEdit;
    spflm: TdxDNEdit;
    b_add: TBitBtn;
    b_edit: TBitBtn;
    b_exit: TBitBtn;
    b_save: TBitBtn;
    b_del: TBitBtn;
    b_cancel: TBitBtn;
    TabSheet2: TTabSheet;
    Bevel2: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    DBGrid2: TDBGrid;
    spxhh: TdxDNEdit;
    spxhm: TdxDNEdit;
    b_add1: TBitBtn;
    b_edit1: TBitBtn;
    b_save1: TBitBtn;
    b_del1: TBitBtn;
    b_cancel1: TBitBtn;
    b_exit1: TBitBtn;
    procedure b_add1Click(Sender: TObject);
    procedure b_edit1Click(Sender: TObject);
    procedure b_del1Click(Sender: TObject);
    procedure b_save1Click(Sender: TObject);
    procedure b_cancel1Click(Sender: TObject);
    procedure b_exit1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    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 spflmKeyPress(Sender: TObject; var Key: Char);
    procedure spxhmKeyPress(Sender: TObject; var Key: Char);
    procedure PageChange(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_spfl: Tf_spfl;

implementation

uses p_dm,db;
{$R *.dfm}

procedure Tf_spfl.b_add1Click(Sender: TObject);
var
  id:integer;
  s:string;
begin
  inherited;
  with dm do
  begin
    if t_spxh.RecordCount>0 then
    begin
      t_spxh.Requery;
      t_spxh.Last;
      id:=t_spxh['xhh'];
    end else id:=0;
    s:=inttostr(id+1);
    if length(s)=1 then s:='0'+s;
    spxhh.Text:=s;
    spxhm.Text:='';
    T_spxh.Append;
  end;
  spxhm.Enabled:=true;
  b_edit1.Enabled:=false;
  b_save1.Enabled:=true;
  b_add1.Enabled:=false;
  b_cancel1.Enabled:=true;
  spxhm.SetFocus;
end;


procedure Tf_spfl.b_edit1Click(Sender: TObject);
begin
  inherited;
  spxhh.Text:=dm.T_spxh['xhh'];
  spxhm.Text:=dm.T_spxh['xhm'];
  dm.T_spxh.Edit;
  spxhm.Enabled:=true;
  b_edit1.Enabled:=false;
  b_save1.Enabled:=true;
  b_add1.Enabled:=false;
  b_cancel1.Enabled:=true;
  spxhm.SetFocus;
end;

procedure Tf_spfl.b_del1Click(Sender: TObject);
var
 y:integer;
begin
  inherited;
  y:=application.MessageBox('确认删除该记录吗？','删除',mb_yesno+mb_iconquestion);
  if y=idno then exit;
  dm.T_spxh.Delete;
  spxhm.Enabled:=false;
  b_edit1.Enabled:=true;
  b_save1.Enabled:=false;
  b_add1.Enabled:=true;
  b_cancel1.Enabled:=false;
end;

procedure Tf_spfl.b_save1Click(Sender: TObject);
begin
  inherited;
  if trim(spxhm.Text)='' then
  begin
    application.MessageBox('请输入型号名称！','输入',mb_ok+mb_iconinformation);
    spxhm.SetFocus;
    exit;
  end;
  dm.T_spxh['xhm']:=trim(spxhm.Text);
  dm.T_spxh['xhh']:=trim(spxhh.Text);
  dm.T_spxh.Post;
  spxhh.Text:='';
  spxhm.Text:='';
  spxhm.Enabled:=false;
  b_edit1.Enabled:=true;
  b_save1.Enabled:=false;
  b_add1.Enabled:=true;
  b_cancel1.Enabled:=false;
  b_add1.SetFocus;
end;

procedure Tf_spfl.b_cancel1Click(Sender: TObject);
begin
  inherited;
  dm.T_spxh.Cancel;
  spxhm.Enabled:=false;
  b_edit1.Enabled:=true;
  b_save1.Enabled:=false;
  b_add1.Enabled:=true;
  b_cancel1.Enabled:=false;
end;

procedure Tf_spfl.b_exit1Click(Sender: TObject);
begin
  inherited;
  dm.T_spfl.Cancel;
  dm.T_SPXH.Cancel;
  close;
end;

procedure Tf_spfl.FormCreate(Sender: TObject);
begin
  inherited;
  dm.T_spfl.Open;
  dm.t_spxh.Open;
end;

procedure Tf_spfl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  dm.T_spfl.Close;
  dm.t_spxh.Close;
end;

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


procedure Tf_spfl.b_editClick(Sender: TObject);
begin
  inherited;
  spflh.Text:=dm.T_spfl['spflh'];
  spflm.Text:=dm.T_spfl['spflm'];
  dm.T_spfl.Edit;
  spflm.Enabled:=true;
  b_edit.Enabled:=false;
  b_save.Enabled:=true;
  b_add.Enabled:=false;
  b_cancel.Enabled:=true;
  spflm.SetFocus;
end;

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


procedure Tf_spfl.b_saveClick(Sender: TObject);
begin
  inherited;
  if trim(spflm.Text)='' then
  begin
    application.MessageBox('请输入分类名称！','输入',mb_ok+mb_iconinformation);
    spflm.SetFocus;
    exit;
  end;
  dm.T_spfl['spflm']:=trim(spflm.Text);
  dm.T_spfl['spflh']:=trim(spflh.Text);
  dm.T_spfl.Post;
  spflh.Text:='';
  spflm.Text:='';
  spflm.Enabled:=false;
  b_edit.Enabled:=true;
  b_save.Enabled:=false;
  b_add.Enabled:=true;
  b_cancel.Enabled:=false;
  b_add.SetFocus;
end;

procedure Tf_spfl.b_cancelClick(Sender: TObject);
begin
  inherited;
  dm.T_spfl.Cancel;
  spflm.Enabled:=false;
  b_edit.Enabled:=true;
  b_save.Enabled:=false;
  b_add.Enabled:=true;
  b_cancel.Enabled:=false;
end;

procedure Tf_spfl.b_exitClick(Sender: TObject);
begin
  inherited;
  dm.T_spfl.Cancel;
  dm.T_SPXH.Cancel;
  close;
end;

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

procedure Tf_spfl.spxhmKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
  begin
    key:=#0;
    b_save1.SetFocus;
  end;
end;

procedure Tf_spfl.PageChange(Sender: TObject);
begin
  inherited;
  b_cancel1.Onclick(self);
  b_cancel.Onclick(self);
end;

procedure Tf_spfl.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  b_cancel.Onclick(self);
  spflh.Text:=dm.T_SPFL['spflh'];
  spflm.Text:=dm.T_SPFL['spflm'];
end;

procedure Tf_spfl.DBGrid2CellClick(Column: TColumn);
begin
  inherited;
  b_cancel1.Onclick(self);
  spxhh.Text:=dm.T_SPxh['xhh'];
  spxhm.Text:=dm.T_SPxh['xhm'];
end;

end.