gz.pas

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

unit gz;

interface

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

type
  Tgzform = class(TForm)
    Label1: TLabel;
    gzh: TMaskEdit;
    Label2: TLabel;
    gzmc: TMaskEdit;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    Query2: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzform: Tgzform;

implementation
uses dataproc;

{$R *.DFM}
var
  but,oldbh:string;

procedure formini;
begin
with gzform do
  begin
  query1.active:=false;
  query1.Active :=true;
  chinesegrid(dbgrid1);
  gzh.Text :='';
  gzmc.text:='';
  if gzh.Enabled =false then
     gzh.Enabled :=true;
  if gzmc.Enabled =false then
     gzmc.Enabled :=true;
  button1.Enabled :=true;
  button2.Enabled :=true;
  button3.Enabled :=true;
  button4.Enabled :=false;
  button5.Enabled :=false;
  end
end;

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

procedure datatoctr;
begin
with gzform do
  begin
  query1.Active :=true;
  if query1.RecordCount >0 then
     begin
     gzh.text:=query1.FieldByName ('gzno').asstring;
     gzmc.text:=query1.FieldByName ('gzname').asstring;
     oldbh:=trim(gzh.text);
     if but='3' then
        begin
        gzh.Enabled :=false;
        gzmc.Enabled :=false;
        end;
     formunini;
     end
  else
     showmessage('无任何挂帐单位');
  end
end;

procedure Tgzform.Button1Click(Sender: TObject);
begin
  but:='1';
  formunini;
end;

procedure Tgzform.FormCreate(Sender: TObject);
begin
  query1.Active :=false;
  query1.sql.clear;
  query1.sql.add('select * from gzdbf ');
  query1.Prepare;
  query1.open;
  chinesegrid(dbgrid1);
  formini;
end;

procedure Tgzform.Button2Click(Sender: TObject);
begin
  but:='2';
  datatoctr;
end;

procedure Tgzform.Button3Click(Sender: TObject);
begin
  but:='3';
  datatoctr;
end;

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

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

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

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

procedure Tgzform.Button4Click(Sender: TObject);
begin
  if length(trim(gzh.text))=0 then
     begin
     showmessage('挂帐编号不能为空');
     gzh.SetFocus ;
     exit;
     end;
  if length(trim(gzmc.text))=0 then
     begin
     showmessage('挂帐名称不能为空');
     gzmc.SetFocus ;
     exit;
     end;
  if but='1' then
     try
        query2.Active :=false;
        query2.sql.clear;
        query2.sql.add('insert into gzdbf values(:pgzno,:pgzname,0,0)');
        query2.ParamByName ('pgzno').asstring:=trim(gzh.text);
        query2.ParamByName ('pgzname').asstring:=trim(gzmc.text);
        query2.Prepare;
        query2.execsql;
        formini;
     except
        showmessage('挂帐编号已存在');
     end;
  if but='2' then
     try
        query2.active :=false;
        query2.sql.clear;
        query2.sql.add('update gzdbf set gzno=:pgzno,gzname=:pgzname where gzno=:poldgzno');
        query2.ParamByName ('pgzno').asstring:=trim(gzh.text);
        query2.ParamByName ('pgzname').asstring:=trim(gzmc.text);
        query2.ParamByName ('poldgzno').asstring:=oldbh;
        query2.Prepare;
        query2.ExecSQL ;
        formini;
     except
        showmessage('挂帐编号已存在');
     end;
  if but='3' then
    if but='3' then
       try
          if messagedlg('确实删除吗？',mtWarning,[mbyes,mbno],1)=mryes then
             begin
             query2.Active :=false;
             query2.sql.clear;
             query2.sql.Add('delete gzdbf where gzno=:poldgzno');
             query2.ParamByName ('poldgzno').asstring:=oldbh;
             query2.Prepare;
             query2.ExecSQL ;
             end
       finally
          formini;
       end;
end;

end.