womanwh.pas

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

unit womanwh;

interface

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

type
  Twoman = class(TForm)
    Label1: TLabel;
    manjg: TEdit;
    Label2: TLabel;
    hdno: TMaskEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    q1: TQuery;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label3: TLabel;
    csprice: TMaskEdit;
    q2: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  woman: Twoman;

implementation
uses dataproc;

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

procedure formini;
begin
with woman do
  begin
  hdno.Text :='';
  button1.enabled:=true;
  button2.enabled:=true;
  button3.enabled:=true;
  button4.enabled:=false;
  button5.enabled:=false;
  if hdno.enabled=false then
     hdno.enabled:=true;
  end
end;

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


procedure Twoman.FormCreate(Sender: TObject);
var
  aa:array [0..1] of string;
begin
  getvalue(aa,'select womansanprice,sancsprice from syssetup');
  manjg.Text :=aa[0];
  csprice.Text :=aa[1];
  q1.active:=false;
  q1.sql.clear;
  q1.sql.add('select * from womansan ');
  q1.prepare;
  q1.open;
  chinesegrid(dbgrid1);
  q1.active:=true;
  formini;
end;

procedure Twoman.Button6Click(Sender: TObject);
begin
  woman.Close;
end;

procedure Twoman.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   q1.Free;
   q2.free;
end;

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

procedure Twoman.Button2Click(Sender: TObject);
begin
  but:='2';
  if q1.RecordCount >0 then
     begin
     hdno.text:=q1.fieldbyname('roomno').asstring;
     oldroomno:=trim(hdno.text);
     formunini;
     end
  else
     showmessage('无记录');
end;

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

procedure Twoman.Button3Click(Sender: TObject);
begin
  but:='3';
  if q1.RecordCount >0 then
     begin
     hdno.text:=q1.fieldbyname('roomno').asstring;
     oldroomno:=trim(hdno.text);
     if q1.FieldByName ('status').asstring='1' then
        begin
        showmessage('此手号正在使用');
        exit;
        end;
     formunini;
     hdno.Enabled :=false;
     end
  else
     showmessage('无记录');
end;

procedure Twoman.Button4Click(Sender: TObject);
begin
   if length(trim(hdno.text))=0 then
      begin
      showmessage('房间编号不能为空');
      hdno.SetFocus ;
      exit;
      end;
   if but='1' then
      try
         q2.Active :=false;
         q2.sql.Add('insert into womansan  values(:proomno,:pstatus)');
         q2.ParamByName ('proomno').asstring:=trim(hdno.text);
         q2.ParamByName ('pstatus').asstring:='0';
         q2.Prepare;
         q2.ExecSQL;
         q1.active:=false;
         q1.Active :=true;
         chinesegrid(dbgrid1);
         formini;
      except
         showmessage('编号已存在');
         hdno.SetFocus ;
      end;
   if but='2' then
      try
         q2.Active :=false;
         q2.sql.clear;
         q2.sql.add('update womansan set roomno=:proomno where roomno=:poldroomno');
         q2.ParamByName ('proomno').asstring:=trim(hdno.text);
         q2.ParamByName ('poldroomno').asstring:=oldroomno;
         q2.Prepare;
         q2.ExecSQL;
         q1.Active :=false;
         q1.Active :=true;
         chinesegrid(dbgrid1);
         formini;
      except
         showmessage('编号已存在');
         hdno.SetFocus ;
      end;
   if but='3' then
      try
         if messagedlg('确实删除吗?',mtWarning,[mbyes,mbno],1)=mryes then
            begin
            q2.Active :=false;
            q2.sql.add('delete womansan where roomno=:proomno');
            q2.ParamByName ('proomno').asstring:=oldroomno;
            q2.Prepare;
            q2.ExecSQL;
            q1.Active :=false;
            q1.Active :=true;
            chinesegrid(dbgrid1);
            end;
      finally
         formini;
      end;

end;

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

end.