uy_yyt_login.pas

一个针对酒店大堂管理的delphi应用管理软件

unit uy_yyt_login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Db, DBTables, se_controls, KsSkinForms,
  DBCtrls;

type
  Ty_yyt_login = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    t_yylx: TTable;
    yylxBH: TStringField;
    yylxYylx: TStringField;
    yylxSJ1: TDateTimeField;
    yylxSJ2: TDateTimeField;
    yylxD_yn: TBooleanField;
    d_yylx: TDataSource;
    yylx: TComboBox;
    Label2: TLabel;
    Label5: TLabel;
    sj: TEdit;
    rq: TEdit;
    Label1: TLabel;
    Image1: TImage;
    SeSkinForm1: TSeSkinForm;
    DataSource1: TDataSource;
    Table1: TTable;
    DBLookupComboBox1: TDBLookupComboBox;
    Table1BH: TStringField;
    Table1Tcyy: TStringField;
    Table1id: TAutoIncField;
    Table1d_yn: TBooleanField;
    Table1tname: TStringField;
    Label3: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table1CalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yyt_login: Ty_yyt_login;
  s_yd_sj1,s_yd_sj2:string;    //起始营业时间，结束营业时间
implementation

uses u_main, uy_yyt, ug_wait;

{$R *.DFM}
procedure Ty_yyt_login.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then selectnext(activecontrol,true,true);
end;

procedure Ty_yyt_login.FormShow(Sender: TObject);
var
 i:integer;
 s_sj1,s_sj2:string;
begin
 if not t_yylx.Active then t_yylx.Active:=true;
 rq.text:=formatdatetime('yyyy.mm.dd',date());
 sj.text:=formatdatetime('hh.mm',time());
 with t_yylx do    //要改动
  begin
   first;
   yylx.items.clear;
   for i:=0 to recordcount-1 do
    begin
     yylx.Items.Add(fieldbyname('bh').asstring+'.'+fieldbyname('yylx').asstring);
     if (formatdatetime('hh.mm',FieldByName('sj1').asdatetime)<=sj.text) and (sj.text<=formatdatetime('hh.mm',FieldByName('sj2').asdatetime)) then
      begin
       yylx.text:=fieldbyname('bh').asstring+'.'+FieldByName('yylx').asstring;
       s_yd_sj1:=formatdatetime('hh.mm',FieldByName('sj1').asdatetime);
       s_yd_sj2:=formatdatetime('hh.mm',FieldByName('sj2').asdatetime);
      end;
     if formatdatetime('hh.mm',FieldByName('sj1').asdatetime)>formatdatetime('hh.mm',FieldByName('sj2').asdatetime) then
      begin
       s_sj1:=formatdatetime('hh.mm',FieldByName('sj1').asdatetime);
       s_sj2:=formatdatetime('hh.mm',FieldByName('sj2').asdatetime);
      end;
     next;
    end;
  end;
 if trim(s_yd_sj1)='' then
  begin
   if sj.text>=s_sj2 then
     begin
      s_yd_sj1:=s_sj1;
      s_yd_sj2:='23.59';
     end
    else
     begin
      s_yd_sj1:='00.00';
      s_yd_sj2:=s_sj2;
     end;
    yylx.text:='4.夜宵'; 
  end;    
 yylx.setfocus;
end;

procedure Ty_yyt_login.BitBtn1Click(Sender: TObject);
begin
if DBLookupComboBox1.Text='' then
  begin
  showmessage('请选择收银台');
  exit;
  end;
 hide;
 close;
 main.Refresh;
 s_skth:=table1.fieldbyname('bh').value;       //收银台号
 g_wait.show;
 g_wait.Update;
 s_yylx:=copy(yylx.text,1,1);
 y_yyt:=Ty_yyt.Create(self);
 y_yyt.Caption:='阳光管理软件系统－餐饮-营业台:'+s_skth+' 营业班次:'+yylx.text;
 y_yyt.showmodal;
end;

procedure Ty_yyt_login.BitBtn2Click(Sender: TObject);
begin
  close;
end;

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

procedure Ty_yyt_login.Table1CalcFields(DataSet: TDataSet);
begin
dataset.fieldbyname('tname').value:=dataset.fieldbyname('bh').value+'-'+dataset.fieldbyname('tcyy').value
end;

end.