tcmxxz.pas

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· PAS 代码 · 共 119 行

unit tcmxxz;

interface

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

type
  TtcmxForm = class(TForm)
    Label1: TLabel;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    Label3: TLabel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    UpdateSQL1: TUpdateSQL;
    DataSource2: TDataSource;
    Query1bh: TStringField;
    Query1lbbm: TStringField;
    Query1mc: TStringField;
    Query1ywmc: TStringField;
    Query1gg: TStringField;
    Query1dj: TFloatField;
    Query1tcbz: TBooleanField;
    Query1zt: TBooleanField;
    Query1sfkj: TBooleanField;
    Query1zkdl: TBooleanField;
    Query1zkl: TIntegerField;
    Query1fwfdl: TBooleanField;
    Query1fwfl: TIntegerField;
    Query1shuilu: TIntegerField;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tcmxForm: TtcmxForm;
  lbbm:array[0..20] of string;
implementation

uses cdwh;

{$R *.dfm}

procedure TtcmxForm.DBGrid1DblClick(Sender: TObject);
begin
    if Query2.Locate('pcbh',query1bh.AsString,[]) then
    begin
     Query2.Edit;
     Query2.FieldByName('sl').AsInteger:=Query2.FieldByName('sl').AsInteger+1;
     Query2.Post;
    end
    else
    begin
     Query2.Append;
     Query2.FieldByName('zcbh').Value:=gjsswhForm.query1bh.Value;
     Query2.FieldByName('pcbh').Value:=query1bh.Value;
     Query2.FieldByName('sl').AsInteger:=1;
     Query2.Post;
    end;
     Query2.ApplyUpdates;
end;

procedure TtcmxForm.DBGrid2DblClick(Sender: TObject);
begin
     if Query2.FieldByName('sl').AsInteger >=1 then
     begin
        Query2.Edit;
        Query2.FieldByName('sl').AsInteger:=gjsswhForm.Query2.FieldByName('sl').AsInteger - 1;
        Query2.Post;
     end
     else Query2.Delete;
     Query2.ApplyUpdates;
end;

procedure TtcmxForm.FormActivate(Sender: TObject);
begin
     query1.Open;
     query2.ParamByName('cs').AsString:=gjsswhForm.query1bh.Value;
     query2.Open;
end;

procedure TtcmxForm.ComboBox1Change(Sender: TObject);
begin
       query1.Filtered:=false;
       query1.Filtered:=true;
end;

procedure TtcmxForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     query1.Close;
     query2.ApplyUpdates;
     query2.Close;
end;

procedure TtcmxForm.Query1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
     if combobox1.Text='' then accept:=true
     else
     begin
       accept:=dataset.FieldByName('lbbm').AsString=lbbm[combobox1.ItemIndex];
     end;
end;

end.