jsz_unit.~pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit JSZ_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, ToolWin, ComCtrls, Grids,
  DBGridEh, ExtCtrls;

type
  TJSZM_Form = class(TForm)
    Splitter1: TSplitter;
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    DBGridEh2: TDBGridEh;
    ScrollBox2: TScrollBox;
    Panel2: TPanel;
    DBGridEh3: TDBGridEh;
    CoolBar1: TCoolBar;
    ScrollBox3: TScrollBox;
    BitBtn3: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn1: TBitBtn;
    UPADOQ: TADOQuery;
    Panel3: TPanel;
    Label1: TLabel;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JSZM_Form: TJSZM_Form;

implementation

uses DMUnit, U_CheckRights;

{$R *.dfm}

procedure TJSZM_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure TJSZM_Form.FormDestroy(Sender: TObject);
begin
  JSZM_Form:=nil;
end;

procedure TJSZM_Form.BitBtn10Click(Sender: TObject);
begin
Close;
end;

procedure TJSZM_Form.FormCreate(Sender: TObject);
begin
  with DM.JSZM_ADOQ do
  begin
    Close;
    Open;
  end;
  with DM.JSZP_ADOT do
  begin
    Close;
    OPen;
  end;
end;

procedure TJSZM_Form.BitBtn6Click(Sender: TObject);
begin
  DM.JSZM_ADOQ.First;
end;

procedure TJSZM_Form.BitBtn7Click(Sender: TObject);
begin
  DM.JSZM_ADOQ.prior;
end;

procedure TJSZM_Form.BitBtn8Click(Sender: TObject);
begin
  DM.JSZM_ADOQ.Next;
end;

procedure TJSZM_Form.BitBtn9Click(Sender: TObject);
begin
  DM.JSZM_ADOQ.Last;
end;

procedure TJSZM_Form.BitBtn3Click(Sender: TObject);
begin
  with DM.JSZM_ADOQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM JSZ_M ');
    Open;
  end;
  with DM.JSZP_ADOT do
  begin
    Close;
    OPen;
  end;
end;

procedure TJSZM_Form.BitBtn1Click(Sender: TObject);
var
  HZ:String;
begin
    HZ:= InputBox('请输入汇总编号', '编号99', '');
  if Trim(HZ)='' Then
    begin
      Showmessage('汇总编号不能为空');
      Exit;
    end;
  Try
    if DM.ADOC.InTransaction then DM.ADOC.RollbackTrans;
    DM.ADOC.BeginTrans;
      DM.JSZM_ADOQ.First;
      while not DM.JSZM_ADOQ.Eof do
      begin
        if DM.JSZM_ADOQ.FieldByName('JSZ_HX').AsBoolean then
        with UPADOQ do
        begin
          Close;
          SQL.Clear;
          SQL.Add('UPDATE JSZ_M SET JSZ_HZ='''+HZ+''' WHERE JSZ_NO='''+DM.JSZM_ADOQ.FIELDbyName('JSZ_NO').asstring+'''');
          UPADOQ.ExecSQL;
        end;
        DM.JSZM_ADOQ.Next;
      end;
    DM.ADOC.CommitTrans;
    DM.JSZM_ADOQ.Refresh;
  Except
    DM.ADOC.RollbackTrans;
  end;
end;

procedure TJSZM_Form.BitBtn2Click(Sender: TObject);
begin
  with DM.JSZM_ADOQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM JSZ_M WHERE JSZ_HX=0');
    Open;
  end;
end;

procedure TJSZM_Form.FormShow(Sender: TObject);
begin
  BitBtn6.Enabled:=CheckRights('接上组管理','最前');
  BitBtn7.Enabled:=CheckRights('接上组管理','向前');
  BitBtn8.Enabled:=CheckRights('接上组管理','向后');
  BitBtn9.Enabled:=CheckRights('接上组管理','最后');
  BitBtn3.Enabled:=CheckRights('接上组管理','刷新');
  BitBtn1.Enabled:=CheckRights('接上组管理','汇总');
end;

end.