bcsetup.pas

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

unit BcSetup;

interface

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

type
  Tbcsetupform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    bgtime: TMaskEdit;
    Label3: TLabel;
    edtime: TMaskEdit;
    name: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    bcqu: TQuery;
    DataSource1: TDataSource;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    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 bgtimeExit(Sender: TObject);
    procedure edtimeExit(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bcsetupform: Tbcsetupform;

implementation
uses dataproc;
{$R *.DFM}
var
  But:integer;
  Oldname:string;

procedure formini;
begin
with bcsetupform do
   begin
   bcqu.Active :=false;
   bcqu.Active :=true;
   chinesegrid(dbgrid1);
   name.text:='';
   bgtime.text:='';
   edtime.text:='';
   button1.Enabled :=true;
   if bcqu.RecordCount >0 then
      begin
      button2.Enabled :=true;
      button3.Enabled :=true;
      end
   else
      begin
      button2.Enabled :=false;
      button3.Enabled :=false;
      end;
   button4.Enabled :=false;
   button5.Enabled :=false;
   if name.Enabled =false then
      begin
      name.Enabled :=true;
      bgtime.Enabled :=true;
      edtime.Enabled:=true;
      end;
   end;
end;

procedure formunini;
begin
with bcsetupform do
   begin
   button1.Enabled :=false;
   button2.Enabled :=false;
   button3.Enabled :=false;
   button4.Enabled :=true;
   button5.Enabled :=true;
   end;
end;

procedure Tbcsetupform.edtimeExit(Sender: TObject);
var
  sj:Ttime;
begin
  try
    sj:=strtotime(trim(edtime.text));
  except
    showmessage('时间错误');
    edtime.SetFocus ;
  end;
end;

procedure Tbcsetupform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     perform(cm_dialogkey,vk_tab,0);
end;

procedure Tbcsetupform.FormCreate(Sender: TObject);
begin
  formini;
end;

procedure Tbcsetupform.Button1Click(Sender: TObject);
begin
  but:=1;
  name.SetFocus ;
  formunini;
end;

procedure Tbcsetupform.Button2Click(Sender: TObject);
begin
   but:=2;
   name.text:=bcqu.fieldbyname('bcname').asstring;
   oldname:=trim(bcqu.fieldbyname('bcname').asstring);
   bgtime.text:=bcqu.fieldbyname('bcbegtime').asstring;
   edtime.text:=bcqu.fieldbyname('bcendtime').asstring;
   name.SetFocus ;
   formunini;
end;

procedure Tbcsetupform.Button3Click(Sender: TObject);
begin
   but:=3;
   name.text:=bcqu.fieldbyname('bcname').asstring;
   oldname:=trim(bcqu.fieldbyname('bcname').asstring);
   bgtime.text:=bcqu.fieldbyname('bcbegtime').asstring;
   edtime.text:=bcqu.fieldbyname('bcendtime').asstring;
   name.Enabled :=false;
   bgtime.Enabled :=false;
   edtime.Enabled :=false;
   formunini;
end;

procedure Tbcsetupform.Button4Click(Sender: TObject);
var
  lsquery:Tquery;
  ss:string;
begin
  if length(trim(name.text))=0 then
     begin
     showmessage('班次名称不能为空');
     name.SetFocus ;
     exit;
     end;
  Lsquery:=Tquery.Create (self);
  lsquery.DatabaseName :=bcqu.DatabaseName ;
  lsquery.sql.clear;
  if but=1 then
     begin
     ss:='增加成功';
     lsquery.sql.add('insert into bc values(:pbcname,:pbcbegtime,:pbcendtime)');
     lsquery.ParamByName ('pbcname').asstring:=trim(name.text);
     lsquery.ParamByName ('pbcbegtime').asstring:=trim(bgtime.text);
     lsquery.ParamByName ('pbcendtime').asstring:=trim(edtime.text);
     end;
  if but=2 then
     begin
     ss:='修改成功';
     lsquery.sql.add('update bc set bcname=:pbcname,bcbegtime=:pbcbegtime,bcendtime=:pbcendtime where bcname=:poldname');
     lsquery.ParamByName ('pbcname').asstring:=trim(name.text);
     lsquery.ParamByName ('pbcbegtime').asstring:=trim(bgtime.text);
     lsquery.ParamByName ('pbcendtime').asstring:=trim(edtime.text);
     lsquery.ParamByName ('poldname').asstring:=trim(oldname);
     end;
  if but=3 then
     begin
     ss:='删除成功';
     lsquery.sql.add('delete Bc where bcname=:poldname');
     lsquery.ParamByName ('poldname').asstring:=trim(oldname);
     end;
  try
     try
       lsquery.Prepare;
       lsquery.ExecSQL ;
     finally
       lsquery.free;
     end;
  except
     showmessage(trim(name.text)+'  班次已存在');
     name.SetFocus ;
     exit;
  end;
  showmessage(ss);
  formini;
end;


procedure Tbcsetupform.Button5Click(Sender: TObject);
begin
  formini;
end;

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

procedure Tbcsetupform.bgtimeExit(Sender: TObject);
var
  sj:Ttime;
begin
  try
    sj:=strtotime(trim(bgtime.text));
  except
    showmessage('时间错误');
    bgtime.SetFocus ;
  end;  
end;

procedure Tbcsetupform.FormDestroy(Sender: TObject);
begin
  bcqu.free;
end;

procedure Tbcsetupform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   action:=cafree;

end;

end.