yuding.pas

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

unit yuding;

interface

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

type
  TFrmyuding = class(TForm)
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    EdGuestName: TEdit;
    Label2: TLabel;
    EdGuestCount: TEdit;
    Label6: TLabel;
    EdGuestTele: TEdit;
    Label7: TLabel;
    yudingdate: TDateTimePicker;
    yudingtime: TDateTimePicker;
    Panel1: TPanel;
    BtnEnter: TSpeedButton;
    BtnCancel: TSpeedButton;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    UpDown1: TUpDown;
    procedure FormShow(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure BtnEnterClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    deskid:integer;
  end;

var
  Frmyuding: TFrmyuding;

implementation
    uses dbmodule;
{$R *.dfm}

procedure TFrmyuding.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]);
    end;
  EdGuestname.Text:='';
  EdGuestCount.Text:='';
  EdGuestTele.Text:='';
  yudingdate.Date:=date();
  yudingtime.Time:=Time();
end;

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

procedure TFrmyuding.BtnEnterClick(Sender: TObject);
begin
  if Trim(EdGuestname.Text)='' then
    begin
      application.MessageBox('顾客名称不能为空！','提示',mb_ok);
      exit;
    end;
  if Trim(EdGuestCount.Text)='0' then
    begin
      application.MessageBox('顾客数量不能为零！','提示',mb_ok);
      exit;
    end;
  if Trim(EdGuestTele.Text)='' then
    begin
      application.MessageBox('顾客联系方式不能为空！','提示',mb_ok);
      exit;
    end;
  if dm.Qfangtai.Active then
    begin
      dm.Qfangtai.Edit;
      dm.Qfangtai.FieldByName('customer').AsString:=EdGuestname.Text;
      dm.Qfangtai.FieldByName('customertele').AsString:=EdGuestTele.Text;
      dm.Qfangtai.FieldByName('customerdate').AsDateTime:=strtodatetime(datetostr(yudingdate.Date)+' '+timetostr(yudingtime.Time));
      dm.Qfangtai.FieldByName('Gustcount').AsInteger:=strtoint(EdGuestCount.Text);
      dm.Qfangtai.FieldByName('statusid').AsInteger:=2;
      try
       dm.Qfangtai.Post;
       dm.SaveWorkLog(now(),dm.opratename,'预定操作成功。');
       self.Close;
      except
      end;
    end;
end;

end.