dept.pas

集成酒店桑拿食管管理的完整程序

unit dept;

interface

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

type
  Tdeptform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  deptform: Tdeptform;
  procedure butset;
  Procedure butunset;

implementation
uses dataproc;

{$R *.DFM}

procedure butset;
begin
with deptform do
   begin
   button1.Enabled:=false;
   button2.enabled:=false;
   button3.Enabled:=false;
   button4.enabled:=true;
   button5.enabled:=true;
   end
end;

Procedure butunset;
begin
with deptform do
   begin
   button1.Enabled:=true;
   button2.enabled:=true;
   button3.Enabled:=true;
   button4.enabled:=false;
   button5.enabled:=false;
   end
end;



procedure Tdeptform.Button1Click(Sender: TObject);
begin
  butset;
  dbnavigator1.BtnClick(nbinsert);
end;

procedure Tdeptform.Button2Click(Sender: TObject);
begin
  if messagedlg('确实删除吗？',mtInformation,[mbyes,mbno],1)=mryes then
     dbnavigator1.BtnClick(nbdelete);
end;

procedure Tdeptform.Button3Click(Sender: TObject);
begin
  butset;
  dbnavigator1.BtnClick(nbedit);
end;

procedure Tdeptform.Button4Click(Sender: TObject);
begin
  try
    dbnavigator1.BtnClick(nbpost);
    query1.Active:=false;
    query1.active:=true;
    chinesegrid(dbgrid1);
    butunset;
  except
    showmessage('编号已存在');
    dbedit1.SetFocus ;
  end;
end;

procedure Tdeptform.Button5Click(Sender: TObject);
begin
  try
    butunset;
    dbnavigator1.BtnClick(nbcancel);
    dbnavigator1.BtnClick(nbrefresh);
    query1.Active:=false;
    query1.active:=true;
    chinesegrid(dbgrid1);
  except
  end;
end;

procedure Tdeptform.Button6Click(Sender: TObject);
begin
  deptform.close
end;

procedure Tdeptform.FormCreate(Sender: TObject);
begin
    query1.Active :=false;
    query1.sql.clear;
    query1.sql.add('select * from dept');
    query1.Prepare;
    query1.Open;
    chinesegrid(dbgrid1);
    query1.Active :=true;
    butunset;
end;

procedure Tdeptform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     selectnext(activecontrol,true,true);
end;

procedure Tdeptform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  query1.free;
end;

end.