groupcx.pas

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

unit groupcx;

interface

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

type
  Tgroupform = class(TForm)
    Label1: TLabel;
    hdno: TMaskEdit;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    q1: TQuery;
    man: TRadioButton;
    woman: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure hdnoExit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure manClick(Sender: TObject);
    procedure womanClick(Sender: TObject);
    procedure hdnoEnter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  groupform: Tgroupform;

implementation
uses dataproc;

{$R *.DFM}
var
  acc,lsex:string;
  recnum:integer;

procedure seeother;
var
  aa:array [0..1] of string;
begin
with groupform do
  begin
  if recnum>1 then
     begin
     if man.Checked =true then
        lsex:='1';
     if woman.Checked =true then
        lsex:='0';
     aa[0]:='';
     getvalue(aa,'select accno from nowin where (handno='''+trim(hdno.text)+''' and sex='''+trim(lsex)+''')');
     acc:=aa[0];
     end;
  q1.Active :=false;
  q1.sql.clear;
  q1.sql.add('select handno,s.sexname,begtime from nowin,lssex s where ((accno=:paccno) and (nowin.sex=s.sex)) ');
  q1.ParamByName('paccno').asstring:=trim(acc);
  q1.Prepare;
  q1.open;
  chinesegrid(dbgrid1);
  q1.Active :=true;
  end
end;


procedure Tgroupform.FormCreate(Sender: TObject);
begin
   hdno.text:='';
end;

procedure Tgroupform.hdnoExit(Sender: TObject);
begin
  if length(trim(hdno.Text))>0 then
     begin
     q1.active:=false;
     q1.sql.clear;
     q1.sql.add('select accno,sex from nowin where handno=:phandno');
     q1.ParamByName ('phandno').asstring:=trim(hdno.text);
     q1.Prepare;
     q1.open;
     q1.active:=true;
     recnum:=q1.RecordCount ;
     if recnum =0 then
        begin
        q1.Active :=false;
        showmessage('此手号未登记');
        hdno.setfocus;
        exit;
        end;
     if recnum =1 then
        begin
        acc:=q1.fieldbyname('accno').asstring;
        lsex:=q1.fieldbyname('sex').asstring;
        if  trim(lsex)='2' then
            begin
            man.Checked :=false;
            woman.checked:=false;
            end;
        if  trim(lsex)='1' then
            man.Checked :=true;
        if  trim(lsex)='0' then
            woman.Checked :=true;
        end;
        seeother;
     if recnum >1 then
        begin
        man.Enabled :=true;
        woman.enabled:=true;
        man.checked:=true;
        man.SetFocus ;
        end;
    end;
end;

procedure Tgroupform.Button1Click(Sender: TObject);
begin
  groupform.Close;
end;

procedure Tgroupform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=1 then help(2);
     if xt=0 then help(4);
  end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     groupform.Close;
end;

procedure Tgroupform.manClick(Sender: TObject);
begin
  seeother;
end;

procedure Tgroupform.womanClick(Sender: TObject);
begin
  seeother;
end;

procedure Tgroupform.hdnoEnter(Sender: TObject);
begin
   man.Enabled :=false;
   woman.Enabled :=false;
end;

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

end.