djfsunit.pas

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

unit djfsunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ExtCtrls, StdCtrls, Spin;

type
  Tdjfsform = class(TForm)
    Label1: TLabel;
    zdrmno: TEdit;
    Button1: TButton;
    Button2: TButton;
    Bevel1: TBevel;
    q1: TQuery;
    rmmoney: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    jzfsname: TComboBox;
    jzfs: TComboBox;
    md: TCheckBox;
    mxf: TCheckBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure zdrmnoDblClick(Sender: TObject);
    procedure zdrmnoExit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  djfsform: Tdjfsform;

implementation

uses dataproc, xgft;

{$R *.DFM}
 var  acc:string;
procedure Tdjfsform.FormCreate(Sender: TObject);
begin
comadd1(jzfsname,jzfs,2,'select name,code from mode ');
   zdrmno.text:='';  rmmoney.Text:='0';
   edit1.Text:='';
end;

procedure Tdjfsform.Button1Click(Sender: TObject);
begin
  if messagedlg('转换方式正确吗？',mtInformation, [mbYes, mbNo], 0) = mrno then
      exit;
  if length(trim(acc))>0 then
     begin
        q1.Active :=false;
        q1.sql.clear;
       // if trim(jzfs.Items[jzfsname.ItemIndex])='06' then
       // q1.sql.add('update nowin set ismff=:pmff,ismxf=:pmxf,jzfs=:pjzfs  where (accno=:acc)');
        q1.sql.add('update nowin set ismff=:pmff,ismxf=:pmxf,ismd=:pmd,jzfs=:pjzfs  where (accno=:acc)');
        q1.parambyname('pmff').asboolean:=CheckBox1.Checked;
        q1.parambyname('pmxf').asboolean:=CheckBox2.Checked;
        if  trim(jzfs.Items[jzfsname.ItemIndex])='05' then
        q1.parambyname('pmd').asstring:='1' else
        q1.parambyname('pmd').asstring:='0' ;
        q1.ParamByName ('acc').asstring:=trim(acc);
        q1.ParamByName ('pjzfs').asstring:=trim(jzfs.Items[jzfsname.ItemIndex]);
        q1.Prepare;
        q1.ExecSQL;

        q1.Active :=false;
        q1.sql.clear;
      if  (trim(jzfs.Items[jzfsname.ItemIndex])='01') or (trim(jzfs.Items[jzfsname.ItemIndex])='02') or (trim(jzfs.Items[jzfsname.ItemIndex])='04') or (trim(jzfs.Items[jzfsname.ItemIndex])='06') or (copy(trim(jzfs.Items[jzfsname.ItemIndex]),2,1)='3') then
        q1.sql.add('update room1 set status=1  where roomno in  (select roomno from nowin where accno=:acc)') else
        q1.sql.add('update room1 set status=4  where roomno in  (select roomno from nowin where accno=:acc)');
        q1.ParamByName ('acc').asstring:=trim(acc);
        q1.Prepare;
        q1.ExecSQL;

        showmessage('转换成功');
        zdrmno.text:='';
        zdrmno.setfocus;
     end;
end;

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

procedure Tdjfsform.zdrmnoDblClick(Sender: TObject);
begin
  Application.CreateForm(Txgftform, xgftform);
  xgftform.Caption:='';
  xgftform.Button2.Visible:=false;
  xgftform.Timer1.Free;
  xgftform.showmodal;
  zdrmno.text:=xgftform.xgrmno.Text;
  xgftform.Free;
  activecontrol:=Button1;

end;

procedure Tdjfsform.zdrmnoExit(Sender: TObject);
var j:integer;
begin
 if trim(zdrmno.Text)<>'' then
 begin
  q1.Active:=false;
  q1.SQL.Clear;
  q1.SQL.Add('select accno,jzfs,ismff,ismxf from nowin  where roomno='''+trim(zdrmno.Text)+'''');
  q1.Prepare;
  q1.Open;
  acc:=trim(q1.Fields[0].asstring);
  if q1.Fields[2].AsBoolean then md.Checked:=true else
  md.Checked:=false;
  if q1.Fields[3].AsBoolean then mxf.Checked:=true else
  mxf.Checked:=false;
  for j:=0 to jzfsname.Items.Count do
  if  jzfs.Items[j]=trim(q1.Fields[1].asstring) then
  begin
   jzfs.ItemIndex:=j;
   Edit1.Text:=jzfsname.Items[j];
  end; 
  end; 

end;

procedure Tdjfsform.Button2Click(Sender: TObject);
begin
close;
end;

end.