p_bm.pas

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

unit p_bm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,p_mc, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
  dxDotNetCtrls, dxCore, dxButton, Buttons, XPMenu, adoDB, SUIButton;

type
  Tf_bm = class(Tf_mc)
    Page: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    bmid: TdxDNEdit;
    bmmc: TdxDNEdit;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    b_add: TBitBtn;
    b_edit: TBitBtn;
    b_exit: TBitBtn;
    b_save: TBitBtn;
    b_del: TBitBtn;
    b_cancel: TBitBtn;
    Bevel2: TBevel;
    Label3: TLabel;
    zwid: TdxDNEdit;
    zwmc: TdxDNEdit;
    Label4: TLabel;
    b_add1: TBitBtn;
    b_edit1: TBitBtn;
    b_save1: TBitBtn;
    b_del1: TBitBtn;
    b_cancel1: TBitBtn;
    b_exit1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure b_addClick(Sender: TObject);
    procedure b_editClick(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
    procedure b_cancelClick(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure bmmcKeyPress(Sender: TObject; var Key: Char);
    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 DBGrid2CellClick(Column: TColumn);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure zwmcKeyPress(Sender: TObject; var Key: Char);
    procedure PageChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_bm: Tf_bm;

implementation

uses p_dm;

{$R *.dfm}

procedure Tf_bm.FormCreate(Sender: TObject);
begin
  inherited;
  dm.T_BM.Open;
  dm.t_zw.Open;
end;

procedure Tf_bm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  dm.T_BM.Close;
  dm.t_zw.Close;
end;

procedure Tf_bm.DBGrid1DblClick(Sender: TObject);
begin
  inherited;
  b_edit.OnClick(self);
end;

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

procedure Tf_bm.b_editClick(Sender: TObject);
begin
  inherited;
  bmid.Text:=dm.T_BM['bmh'];
  bmmc.Text:=dm.T_BM['bmm'];
  dm.T_BM.Edit;
  bmmc.Enabled:=true;
  b_edit.Enabled:=false;
  b_save.Enabled:=true;
  b_add.Enabled:=false;
  b_cancel.Enabled:=true;
  bmmc.SetFocus;
end;
procedure Tf_bm.b_saveClick(Sender: TObject);
begin
  inherited;
  if trim(bmmc.Text)='' then
  begin
    application.MessageBox('请输入部门名称！','输入',mb_ok+mb_iconinformation);
    bmmc.SetFocus;
    exit;
  end;
  dm.T_BM['bmm']:=trim(bmmc.Text);
  dm.T_BM['bmh']:=trim(bmid.Text);
  dm.T_BM.Post;
  bmid.Text:='';
  bmmc.Text:='';
  bmmc.Enabled:=false;
  b_edit.Enabled:=true;
  b_save.Enabled:=false;
  b_add.Enabled:=true;
  b_cancel.Enabled:=false;
  b_add.SetFocus;
end;

procedure Tf_bm.b_exitClick(Sender: TObject);
begin
  inherited;
  dm.T_BM.Cancel;
  close;
end;

procedure Tf_bm.b_cancelClick(Sender: TObject);
begin
  inherited;
  dm.T_BM.Cancel;
  bmmc.Enabled:=false;
  b_edit.Enabled:=true;
  b_save.Enabled:=false;
  b_add.Enabled:=true;
  b_cancel.Enabled:=false;
end;

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

procedure Tf_bm.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  b_cancel.OnClick(self);
  bmid.Text:=dm.T_BM['bmh'];
  bmmc.Text:=dm.T_BM['bmm'];
end;

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

procedure Tf_bm.b_add1Click(Sender: TObject);
var
  id:integer;
  s:string;
begin
  inherited;
  with dm do
  begin
    if t_zw.RecordCount>0 then
    begin
      t_zw.Requery;
      t_zw.Last;
      id:=t_zw['zwh'];
    end else id:=0;
    s:=inttostr(id+1);
    if length(s)=1 then s:='0'+s;
    zwid.Text:=s;
    zwmc.Text:='';
    T_zw.Append;
  end;
  zwmc.Enabled:=true;
  b_edit1.Enabled:=false;
  b_save1.Enabled:=true;
  b_add1.Enabled:=false;
  b_cancel1.Enabled:=true;
  zwmc.SetFocus;
end;

procedure Tf_bm.b_edit1Click(Sender: TObject);
begin
  inherited;
  zwid.Text:=dm.T_zw['zwh'];
  zwmc.Text:=dm.T_zw['zwmc'];
  dm.T_zw.Edit;
  zwmc.Enabled:=true;
  b_edit1.Enabled:=false;
  b_save1.Enabled:=true;
  b_add1.Enabled:=false;
  b_cancel1.Enabled:=true;
  zwmc.SetFocus;
end;

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

procedure Tf_bm.b_save1Click(Sender: TObject);
begin
  inherited;
  if trim(zwmc.Text)='' then
  begin
    application.MessageBox('请输入职位名称！','输入',mb_ok+mb_iconinformation);
    zwmc.SetFocus;
    exit;
  end;
  dm.T_zw['zwmc']:=trim(zwmc.Text);
  dm.T_zw['zwh']:=trim(zwid.Text);
  dm.T_zw.Post;
  zwid.Text:='';
  zwmc.Text:='';
  zwmc.Enabled:=false;
  b_edit1.Enabled:=true;
  b_save1.Enabled:=false;
  b_add1.Enabled:=true;
  b_cancel1.Enabled:=false;
  b_add1.SetFocus;
end;

procedure Tf_bm.b_cancel1Click(Sender: TObject);
begin
  inherited;
  dm.T_zw.Cancel;
  zwmc.Enabled:=false;
  b_edit1.Enabled:=true;
  b_save1.Enabled:=false;
  b_add1.Enabled:=true;
  b_cancel1.Enabled:=false;
end;

procedure Tf_bm.b_exit1Click(Sender: TObject);
begin
  inherited;
  dm.T_zw.Cancel;
  close;
end;

procedure Tf_bm.DBGrid2CellClick(Column: TColumn);
begin
  inherited;
  b_cancel1.Onclick(self);
  zwid.Text:=dm.T_zw['zwh'];
  zwmc.Text:=dm.T_zw['zwmc'];
end;

procedure Tf_bm.DBGrid2DblClick(Sender: TObject);
begin
  inherited;
  b_edit1.OnClick(self);
end;

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

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

end.