xm_qx.pas

结于初学者来说这对数据库是一个很好的例子

unit xm_qx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DB, DBTables;

type
  TForm13 = class(TForm)
    Q_zj: TQuery;
    Label1: TLabel;
    Q_qx: TQuery;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label10: TLabel;
    qxsl: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    Label11: TLabel;
    Label12: TLabel;
    Q_splb2: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses mainmenu;

{$R *.dfm}

procedure TForm13.Button2Click(Sender: TObject);
begin
 close;
end;

procedure TForm13.Button1Click(Sender: TObject);
 var RestCount:integer;
begin
 if (length(trim(qxsl.Text))=0) or (StrToInt(trim(qxsl.Text))>StrToInt(label8.Caption)) then
  begin
   MessageDlg('您输入错误，请重新输入！',mtError,[mbok],0);
   end
  else
   begin
//更改数量
  Q_qx.Close;
  Q_qx.SQL.Clear;
  Q_qx.SQL.Add('select * from Sn_DinList where HandNo='''+label10.Caption+'''');
  Q_qx.SQL.Add('and MenuName='''+label6.Caption+'''');
  Q_qx.Open;
  Q_qx.Edit;
  Q_qx['Quantity']:=Q_qx['Quantity']-StrToInt(trim(qxsl.Text));
  Q_qx.Post;
  Q_qx.SQL.Clear;
  Q_qx.SQL.Add('delete from Sn_DinList where Quantity<=0');
  q_qx.ExecSQL;
//判断是否是钟点房，如果是则置Sn_Menu中zt=0
   Q_splb2.SQL.Clear;
   Q_splb2.SQL.Add('select * from Sn_Menu where MenuNo='''+label5.Caption+'''');
   Q_splb2.Open;
   if strpos(pchar(Q_splb2.FieldByName('menuname').AsString),pchar('钟点房'))<>nil then
     begin
       Q_splb2.Edit;
       Q_splb2['zt']:=0;
       Q_splb2.Post;
     end;
//判断商品如果允许库存则库存增加相应的减少数量
  Q_zj.sql.clear;
  Q_zj.sql.add('select * from Sn_Menu where MenuNo='''+label5.caption+'''');
  Q_zj.open;
  if  Q_zj['kc']='是' then
   begin
     Q_zj.close;
     Q_zj.sql.clear;
     Q_zj.sql.add('select * from Sn_kucun where MenuNo='''+label5.caption+'''');
     Q_zj.open;
     RestCount:=Q_zj.FieldbyName('sl').asinteger+StrToInt(Trim(qxsl.text));
     Q_zj.edit;
     Q_zj['sl']:=RestCount;
     Q_zj.post;
     Q_zj.close;
   end;
//结束 
  form2.Q_DinList.Active:=False;
  form2.Q_DinList.Active:=true;
  Form13.Close;
  end;

end;

end.