yumanage.pas

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

unit yumanage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;

type
  TFrmyumanage = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    startdate: TDateTimePicker;
    Label2: TLabel;
    enddate: TDateTimePicker;
    Btnquery: TSpeedButton;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    BtnAdd: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    myQuery: TADOQuery;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Label3: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnqueryClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmyumanage: TFrmyumanage;

implementation
   uses dbmodule,yudingquery,inputhao,main,opratecomand;
{$R *.dfm}

procedure TFrmyumanage.FormShow(Sender: TObject);
begin
  startdate.Date:=date();
  enddate.Date:=date();
  edit1.Text:='';
  if myquery.Active then
    myquery.Close;
  myquery.SQL.Clear;
  myquery.SQL.Add('select * from Q_guestyuding ');
  myquery.SQL.Add('where  guestdate between '+'#'+datetostr(date())+' 00:00:00#'+' and '+'#'+datetostr(date())+' 23:59:50#');
  myquery.Open;
end;

procedure TFrmyumanage.BtnAddClick(Sender: TObject);
begin
  if myquery.Active then
    myquery.Close;
  if not Assigned(Frmaddyuding) then
        Application.CreateForm(TFrmaddyuding,Frmaddyuding);
  Frmaddyuding.ShowModal;
  if not myquery.Active then
    myquery.Open;
end;

procedure TFrmyumanage.BtnqueryClick(Sender: TObject);
begin
 if myquery.Active then
    myquery.Close;
  myquery.SQL.Clear;
  myquery.SQL.Add('select * from Q_guestyuding ');
  if trim(edit1.Text)='' then
     myquery.SQL.Add('where  guestdate between '+'#'+datetostr(startdate.Date)+' 00:00:00#'+' and '+'#'+datetostr(enddate.Date)+' 23:59:50#')
  else
     myquery.SQL.Add('where guestname like '+''''+'%'+edit1.Text+'%'+'''');
  myquery.Open;
end;

procedure TFrmyumanage.SpeedButton4Click(Sender: TObject);
begin
  self.Close;
end;

procedure TFrmyumanage.SpeedButton3Click(Sender: TObject);
begin
  if myquery.Active then
    begin
    if application.MessageBox('你确定删除所选记录吗？','提示',mb_okcancel)=IDOK then
      begin
        myquery.Delete;
        if myquery.Eof then
          myquery.Close;
      end;
    end;
end;

procedure TFrmyumanage.SpeedButton5Click(Sender: TObject);
var
  Ldeskid:integer;
begin
if (myquery.Active) and (not myquery.Eof ) then
 begin
    if not Assigned(Frminputhao) then
         Application.CreateForm(TFrminputhao,Frminputhao);
      Frminputhao.ShowModal;
      Ldeskid:=Frminputhao.deskid;
      if dm.Qfangtai.Active then
        begin
          if dm.Qfangtai.Locate('fangtaiid',Ldeskid,[loCaseInsensitive]) then
            begin
              if dm.Qfangtai.FieldByName('statusid').AsInteger=0 then
                 begin
                   dm.Qfangtai.Edit ;
                   dm.Qfangtai.FieldValues['zhanghao']:=dm.CreateZhangHao;
                   dm.Qfangtai.FieldValues['Gustcount']:=InputIntBox('数值对话框','请输入顾客人数：');
                   dm.Qfangtai.FieldValues['Gusttime']:=now();
                   dm.Qfangtai.FieldValues['GustMemo']:=myquery.FieldValues['guestmemo'];
                   dm.Qfangtai.FieldValues['statusid']:=1;
                   dm.Qfangtai.Post;
                   dm.SaveWorkLog(now(),dm.opratename,'由预定转开台操作成功。');
                   myquery.Delete;
                   frmmain.createdeskview;
                   self.Close;
                 end
              else
                 begin
                   application.MessageBox('所选房台不是空台！','提示',mb_ok);
                 end;
            end;
        end;
 end;
end;

end.