mc_fjbmsz.pas

异洲酒店管理系统

unit MC_FJBMSZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBActns, ActnList, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls, Grids,
  DBGrids;

type
  TCYBMSZ = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    DBText1: TDBText;
    Panel1: TPanel;
    Image1: TImage;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPrior1: TDataSetPrior;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CYBMSZ: TCYBMSZ;

implementation

uses MC_TLCYGLXT;

{$R *.DFM}

procedure TCYBMSZ.BitBtn5Click(Sender: TObject);  //添加或取消添加（修改）
var a:integer;
begin
 if BitBtn5.Caption='添加' then    //添加部门
 begin
  TLCYGLXT.FJTHBMB.Refresh;
  If TLCYGLXT.FJTHBMB.RecordCount <> 0 Then   //数据表不为空
  begin
   a:=1;
   TLCYGLXT.FJTHBMB.Last;   //移到记录最后一条
   a:=a+TLCYGLXT.FJTHBMB.FieldByName('部门编号').AsInteger;
  End
  Else
  begin
   a:=1;
  end;
  BitBtn5.Caption:='取消';
  BitBtn6.Caption:='保存';
  bitBtn7.Enabled:=False;
  BitBtn8.enabled:=False;
  DBGrid1.Enabled:=False;
  DBEdit2.Enabled:=True;
  TLCYGLXT.FJTHBMB.Append;    //增加一条新记录
  TLCYGLXT.FJTHBMB.FieldByName('部门编号').AsInteger:=a;   //设定部门编号
  DBEdit2.SetFocus;
 End
 Else      //取消添加（修改 ）
 begin
  BitBtn5.Caption:='添加';
  Bitbtn6.Caption:='修改';
  DBEdit2.Enabled:=False;
  BitBtn7.Enabled:=True;
  BitBtn8.Enabled:=True;
  DBGrid1.Enabled:=True;
  TLCYGLXT.FJTHBMB.Cancel;   //取消操作
 end;
end;

procedure TCYBMSZ.BitBtn6Click(Sender: TObject); //修改数据或保存数据
begin
 if BitBtn6.Caption='修改' then     //修改数据
 begin
  BitBtn5.Caption:='取消';
  Bitbtn6.Caption:='保存';
  bitBtn7.Enabled:=False;
  BitBtn8.Enabled:=False;
  DBEdit2.Enabled:=True;
  DBGrid1.Enabled:=False;
  TLCYGLXT.FJTHBMB.Edit;    //处于编辑状态
  DBEdit2.SetFocus;
 End
 Else   //保存数据
 begin
  if Length(TLCYGLXT.FJTHBMB.FieldByname('部门名称').AsString)<>0 then
  begin
   BitBtn5.Caption:='添加';
   BitBtn6.Caption:='修改';
   BitBtn7.Enabled:=True;
   Bitbtn8.Enabled:=True;
   DBEdit2.Enabled:=False;
   DBGrid1.Enabled:=True;
   TLCYGLXT.FJTHBMB.Post; //保存
  End
  Else
   begin
    ShowMessage('请输入类别名称');
    DBEdit2.SetFocus;
   end;
 end;
end;

procedure TCYBMSZ.BitBtn7Click(Sender: TObject);  //删除数据
begin
 TLCYGLXT.FJTHBMB.Refresh;
 If TLCYGLXT.FJTHBMB.RecordCount <> 1 Then
 begin
 if MessageDLG('确认删除［部门名称='+TLCYGLXT.FJTHBMB.FieldByname('部门名称').AsString+']的信息?'
  ,mtCustom,[mbYes,mbNO],0)=mrYes then   //确认删除
  begin
   TLCYGLXT.FJTHBMB.Delete;    //删除数据
   TLCYGLXT.FJTHBMB.Refresh;   //刷新
  end;
 End
 Else
 begin
  ShowMessage('数据信息中必须有一个记录');
 end;
end;

procedure TCYBMSZ.FormShow(Sender: TObject);
begin
  ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE);
  CYBMSZ.Refresh;
  GroupBox1.Refresh;
  DBGRid1.RefResh;
  Panel1.Refresh;
end;

procedure TCYBMSZ.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then BitBtn6.SetFocus;   //焦点移到“修改”按钮
end;

procedure TCYBMSZ.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If BitBtn8.Enabled = False Then    //数据处于添加或修改
 begin
  ShowMessage('请保存数据');
  Abort;
 end;
end;
procedure TCYBMSZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE+AW_HIDE);
 TLCYGLXT.FJTHBMB.Close;
 CYBMSZ.Release;   //释放窗体
 CYBMSZ:=Nil;
end;
//退出
procedure TCYBMSZ.BitBtn8Click(Sender: TObject);
begin
 Close;    //退出部门设置
end;
end.