m_yglbsz.pas

餐饮管理：菜单录入打印菜单等

unit M_YGLBSZ;

interface

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

type
  TYGLBSZ = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBEdit2: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    Image1: TImage;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPrior1: TDataSetPrior;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    DBEdit1: TDBEdit;
    N2: TMenuItem;
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    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 N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YGLBSZ: TYGLBSZ;

implementation

uses MC_TLCYGLXT;

{$R *.DFM}

//添加数据
procedure TYGLBSZ.BitBtn5Click(Sender: TObject);
var a:integer;
begin
 if BitBtn5.Caption='添加' then
  begin
   TLCYGLXT.YGLBXXB.close;
   TLCYGLXT.YGLBXXB.open;
   If TLCYGLXT.YGLBXXB.RecordCount <> 0 Then
     begin
      a:=1;
      TLCYGLXT.YGLBXXB.Last;
      a:=a+TLCYGLXT.YGLBXXB.FieldByName('类别编号').AsInteger;
     End
   Else
     begin
      a:=1;
     end;
   BitBtn5.Caption:='取消';
   BitBtn6.Caption:='保存';
   bitBtn7.Enabled:=False;
   BitBtn8.enabled:=False;
   bitBtn1.Enabled:=False;
   BitBtn2.enabled:=False;
   bitBtn3.Enabled:=False;
   BitBtn4.enabled:=False;
   DBGrid1.Enabled:=False;
   DBEdit2.Enabled:=True;
   TLCYGLXT.YGLBXXB.Append;
   TLCYGLXT.YGLBXXB.FieldByName('类别编号').AsInteger:=a;
   DBEdit2.SetFocus;
  End
 Else
 begin
  BitBtn5.Caption:='添加';
  Bitbtn6.Caption:='修改';
  DBEdit2.Enabled:=False;
  BitBtn7.Enabled:=True;
  BitBtn8.Enabled:=True;
  BitBtn1.Enabled:=True;
  BitBtn2.Enabled:=True;
  BitBtn3.Enabled:=True;
  BitBtn4.Enabled:=True;
  DBGrid1.Enabled:=True;
  TLCYGLXT.YGLBXXB.Cancel;
 end;
end;
//修改数据
procedure TYGLBSZ.BitBtn6Click(Sender: TObject);
begin
 if BitBtn6.Caption='修改' then
 begin
  BitBtn5.Caption:='取消';
  Bitbtn6.Caption:='保存';
  bitBtn7.Enabled:=False;
  BitBtn8.Enabled:=False;
  BitBtn1.Enabled:=False;
  BitBtn2.Enabled:=False;
  BitBtn3.Enabled:=False;
  Bitbtn4.Enabled:=False;
  DBEdit2.Enabled:=True;
  DBGrid1.Enabled:=False;
  TLCYGLXT.YGLBXXB.Edit;
  DBEdit2.SetFocus;
 End
 Else
 begin
  if dbedit2.Text<>'' then   //Length(TLCYGLXT.YGLBXXB.FieldByname('类别名称').AsString)<>0 then
   begin
    BitBtn5.Caption:='添加';
    BitBtn6.Caption:='修改';
    BitBtn7.Enabled:=True;
    Bitbtn8.Enabled:=True;
    Bitbtn1.Enabled:=True;
    bitBtn2.Enabled:=True;
    BitBtn3.Enabled:=True;
    Bitbtn4.Enabled:=True;
    DBEdit2.Enabled:=False;
    DBGrid1.Enabled:=True;
    TLCYGLXT.YGLBXXB.Post;
    tlcyglxt.YGLBXXB.Close;
    tlcyglxt.YGLBXXB.Open;
    dbgrid1.Refresh;
   End
  Else
 begin
  ShowMessage('请输入类别名称');
  DBEdit2.SetFocus;
 end;
 end;
end;
//删除数据
procedure TYGLBSZ.BitBtn7Click(Sender: TObject);
begin
// TLCYGLXT.YGLBXXB.close;
// tlcyglxt.yglbxxb.open;
 If TLCYGLXT.YGLBXXB.RecordCount <> 1 Then
 begin
 if MessageDLG('确认删除［类别名称='+TLCYGLXT.YGLBXXB
   .FieldByname('类别名称').AsString+']的信息?'
   ,mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
   TLCYGLXT.YGLBXXB.Delete;
   TLCYGLXT.YGLBXXB.close;
   tlcyglxt.yglbxxb.open;
   dbgrid1.refresh;
  end;
 End
 Else
 begin
 ShowMessage('数据信息中必须有一个记录');
 end;
end;
//回车焦点移动到“修改”按钮
procedure TYGLBSZ.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then BitBtn6.SetFocus;
end;

procedure TYGLBSZ.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 If Bitbtn8.Enabled = False Then
 begin
  ShowMessage('请保存数据');
  Abort;
 end;
end;
//关闭窗体
procedure TYGLBSZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 TLCYGLXT.YGLBXXB.Close;
 YGLBSZ.Release;
 YGLBSZ:=Nil;
end;
//退出
procedure TYGLBSZ.BitBtn8Click(Sender: TObject);
begin
 Close;
end;

procedure TYGLBSZ.N1Click(Sender: TObject);
begin
 dbedit1.Visible:=true;
 tlcyglxt.YGLBXXB.Insert;
// bitbtn5.Enabled:=false;
// bitbtn6.Enabled:=false;
// bitbtn7.Enabled:=false;
// bitbtn8.Enabled:=false;
 n2.Enabled:=true;
// dbedit1.SetFocus;
end;

procedure TYGLBSZ.N2Click(Sender: TObject);
begin
 if (dbedit1.Text <>'') and (dbedit2.Text <>'') then
  begin
   tlcyglxt.YGLBXXB.Post;
   dbedit1.Visible:=false;
   n2.Enabled:=false;
//   bitbtn5.Enabled:=true;
//   bitbtn6.Enabled:=true;
//   bitbtn7.Enabled:=true;
//   bitbtn8.Enabled:=true;

  end
 else
  begin
   showmessage('编号和名称都不能为空，请检查...');
   dbedit1.SetFocus;
  end;
end;

end.