reciveunit.pas

本软件专门用于管理餐饮行业的点菜单、加菜单酒水单等重要票据的领用及回收情况

unit reciveunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, StdCtrls, SUIEdit, SUIComboBox, DB, DBTables,
  ExtCtrls, SUIForm, Grids, DBGrids;

type
  Treciveform = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    Shape1: TShape;
    DataSource1: TDataSource;
    Query1: TQuery;
    numberlb: TsuiComboBox;
    Label3: TLabel;
    Label4: TLabel;
    numberidedit: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    Query1Lsid: TFloatField;
    Query1Numberid: TStringField;
    Query1Numbertype: TStringField;
    Query1Hxbz: TStringField;
    Query1Djdate: TDateField;
    Query1Lypername: TStringField;
    GroupBox1: TGroupBox;
    CHECKA: TsuiCheckBox;
    CHECKB: TsuiCheckBox;
    Query1A: TBooleanField;
    Query1B: TBooleanField;
    Shape2: TShape;
    procedure numberlbDropDown(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure numberideditKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  reciveform: Treciveform;

implementation

uses typeunit, personunit;

{$R *.dfm}

procedure Treciveform.numberlbDropDown(Sender: TObject);
begin
  if typeform.Table1.Active=true then
     typeform.Table1.Close;
     typeform.Table1.Open;
     typeform.Table1.First;
     numberlb.Items.Clear;
     while not typeform.Table1.Eof do
     begin
       numberlb.Items.Add(typeform.Table1.fieldbyname('typename').AsString);
       typeform.Table1.Next;
     end;

end;

procedure Treciveform.suiButton1Click(Sender: TObject);
begin
if query1.Active=true then
   query1.Close;
if ((numberidedit.Text <>'') and (numberlb.Text<>'')) and ((checka.Checked)  or (checkb.Checked))  then
     begin
        query1.SQL.Clear;
        query1.SQL.Add('select * from libnumber');
        query1.SQL.Add(' where numbertype=:param0');
        query1.SQL.Add(' and numberid=:param1');
        Query1.Prepare;
        Query1.Params[0].AsString:=trim(numberlb.Text);
        query1.Params[1].AsString:=trim(numberidedit.Text);
        query1.Open;
        if query1.RecordCount=1 then
           if query1.FieldByName('hxbz').AsString='1' then
                begin
                   query1.Edit;
                   if checka.Checked then
                      query1.FieldByName('A').AsBoolean:=true;
                   if checkb.Checked then
                      query1.FieldByName('B').AsBoolean:=true;
                   if query1.FieldByName('A').AsBoolean=true and query1.FieldByName('B').AsBoolean=true then
                      query1.FieldByName('hxbz').AsString:='0';
                   query1.Post;
                   showmessage('回收当前票据成功！');
                end
               else
                begin
                  messagedlg('该号码已经回收！',mterror, [mbok], 0);
               end
      else
          showMessage('没有该票据号码！');
    end
else
     showmessage('没有填写完整!');
end;



procedure Treciveform.suiButton2Click(Sender: TObject);
begin
  close;
end;

procedure Treciveform.numberideditKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     begin
       suiButton1Click(Sender);
       numberidedit.Text:='';
     end;

end;
end.