uy_yyt_login.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit uy_yyt_login;

interface

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

type
  Ty_yyt_login = class(TForm)
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    rq: TEdit;
    sj: TEdit;
    yylx: TComboBox;
    BitBtn2: TBitBtn;
    Image1: TImage;
    t_yylx: TTable;
    yylxBH: TStringField;
    yylxYylx: TStringField;
    yylxSJ1: TDateTimeField;
    yylxSJ2: TDateTimeField;
    yylxD_yn: TBooleanField;
    d_yylx: TDataSource;
    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);
  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
 hide;
 close;
 main.Refresh;
 g_wait.show;
 g_wait.Update;
 s_yylx:=copy(yylx.text,1,1);
 if y_yyt=NIL then y_yyt:=Ty_yyt.Create(self);
 y_yyt.Caption:='恒邦餐饮管理系统-营业台-'+copy(yylx.text,3,length(yylx.text)-3);
 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
 Release;
 y_yyt_login:=NIL;
end;

end.