kaitai.pas

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

unit kaitai;

interface

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

type
  TFrmKaiTai = class(TForm)
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edzhanghao: TEdit;
    Label2: TLabel;
    Edguestcount: TEdit;
    Label6: TLabel;
    Edguestname: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edguestmemo: TEdit;
    BtnKaiTai: TSpeedButton;
    BtnCancel: TSpeedButton;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Edguesttime: TDateTimePicker;
    UpDown1: TUpDown;
    procedure FormShow(Sender: TObject);
    procedure BtnKaiTaiClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    deskid:integer;
    ReturnValue:integer;
  end;

var
  FrmKaiTai: TFrmKaiTai;

implementation
   uses dbmodule;
{$R *.dfm}

procedure TFrmKaiTai.FormShow(Sender: TObject);
begin
  if not dm.Qfangtai.Active then
     dm.Qfangtai.Open ;
  if dm.Qfangtai.Active then
    begin
      dm.Qfangtai.Locate('fangtaiid',deskid,[loCaseInsensitive]);
      if dm.Qfangtai.FieldByName('statusid').AsInteger=2 then
       begin
        EdGuestName.Text:=dm.Qfangtai.FieldValues['customer'];
        EdGuestCount.Text:=inttostr(dm.Qfangtai.FieldValues['Gustcount']);
        EdGuestName.ReadOnly:=True;
       end
      else
       begin
         EdGuestName.Text:='';
        EdGuestCount.Text:='0';
        EdGuestName.ReadOnly:=False;
       end;
    end;
  EdGuestTime.Time:=time();
  EdGuestTime.Date:=date();
  EdZhangHao.Text :=dm.CreateZhangHao();
  ReturnValue:=0;
end;

procedure TFrmKaiTai.BtnKaiTaiClick(Sender: TObject);
begin
  if EdGuestName.Text='' then
    begin
      application.MessageBox('顾客名称必须填写。','提示',mb_ok);
      abort;
    end;
  if length(trim(EdGuestcount.Text))>0 then
    try
      if strtoint(trim(EdGuestcount.Text))=0 then
        begin
          application.MessageBox('顾客人数必须大于零。','提示',mb_ok);
          abort;
        end
    except
      application.MessageBox('输入不合法，请用数字。','提示',mb_ok);
      abort;
    end
  else
    begin
       application.MessageBox('顾客人数必须大于零。','提示',mb_ok);
      abort;
    end;
  if not dm.Qfangtai.Active then
    dm.Qfangtai.Open;
  if dm.Qfangtai.Active then
    begin
     try
      dm.Qfangtai.Locate('fangtaiid',deskid,[loCaseInsensitive]);
      dm.Qfangtai.Edit ;
      dm.Qfangtai.FieldValues['zhanghao']:=EdZhangHao.Text;
      dm.Qfangtai.FieldValues['customer']:=EdGuestName.Text;
      dm.Qfangtai.FieldValues['Gustcount']:=strtoint(EdGuestCount.Text);
      dm.Qfangtai.FieldValues['Gusttime']:=EdGuestTime.DateTime;
      dm.Qfangtai.FieldValues['GustMemo']:=EdGuestMemo.Text;
      dm.Qfangtai.FieldValues['statusid']:=1;
      dm.Qfangtai.Post;
      dm.SaveWorkLog(now(),dm.opratename,'开台操作成功。');
      ReturnValue:=1;
      self.Close ;
     except
       application.MessageBox('操作错误，请与开发商联系。','提示',mb_ok);
     end;
    end;
end;

procedure TFrmKaiTai.BtnCancelClick(Sender: TObject);
begin
  self.Close;
end;

end.