salebz_unit.~pas

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

unit SALEBZ_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrlsEh, StdCtrls, Mask, Grids, DBGridEh, ImgList, ComCtrls,
  ToolWin,db;

type
  TSALEBZ_Form = class(TForm)
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    ToolButton11: TToolButton;
    tbbtnPrior: TToolButton;
    ToolButton4: TToolButton;
    tbbtnNext: TToolButton;
    tbbtnLast: TToolButton;
    ToolButton5: TToolButton;
    ToolButton23: TToolButton;
    tbbtnSearch: TToolButton;
    ilSmall: TImageList;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    DBEditEh1: TDBEditEh;
    DBEditEh2: TDBEditEh;
    DBEditEh3: TDBEditEh;
    DBEditEh4: TDBEditEh;
    DBEditEh5: TDBEditEh;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    DBEditEh6: TDBEditEh;
    Edit1: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tbbtnSearchClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tbbtnPriorClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure tbbtnNextClick(Sender: TObject);
    procedure tbbtnLastClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBEditEh3Change(Sender: TObject);
    procedure DBEditEh4Change(Sender: TObject);
  private
    procedure BS(i:integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SALEBZ_Form: TSALEBZ_Form;

implementation

uses DMUnit, U_CheckRights;

{$R *.dfm}

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

procedure TSALEBZ_Form.tbbtnSearchClick(Sender: TObject);
begin
Close;
end;

procedure TSALEBZ_Form.FormCreate(Sender: TObject);
begin
with DM.LCBASE_ADOQ do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM LCBASE');
  Open;
end;
while not DM.LCBASE_ADOQ.Eof do
begin
  Combobox1.Items.Add(DM.LCBASE_ADOQ.FieldbyName('LC_CARNO').AsString);
  DM.LCBASE_ADOQ.Next;
end;
with DM.CLASS_ADOQ do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM CLASS_ITEM');
  Open;
end;
while not DM.CLASS_ADOQ.Eof do
begin
  Combobox2.Items.Add(DM.CLASS_ADOQ.FieldbyName('CLASS_NAME').AsString);
  DM.CLASS_ADOQ.Next;
end;
with DM.SCJSZQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM SCJSZ_ITEM');
  OPEN;
end;
while not DM.SCJSZQry.Eof do
begin
  Combobox3.Items.Add(DM.SCJSZQry.FieldbyName('SCJ_SCJNO').AsString);
  DM.SCJSZQry.Next;
end;
with DM.SALE_ADOQ do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT TOP 0 * FROM SALE');
  open;
end;
end;

procedure TSALEBZ_Form.tbbtnPriorClick(Sender: TObject);
begin
  if DM.SALE_ADOQ.State in [DSBROWSE] then
     DM.SALE_ADOQ.Append;
     BS(0);
end;

procedure TSALEBZ_Form.ToolButton4Click(Sender: TObject);
begin
  if DM.SALE_ADOQ.RecordCount<=0 then Exit;
  if DM.SALE_ADOQ.State in [DSBROWSE] then
     DM.SALE_ADOQ.Edit;
     BS(0);
end;

procedure TSALEBZ_Form.tbbtnNextClick(Sender: TObject);
begin
  if DM.SALE_ADOQ.RecordCount<=0 then Exit;
  if Application.MessageBox('是否确认删除该销售数据？', '提示',
     MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDYES then
     DM.SALE_ADOQ.Delete;
end;

procedure TSALEBZ_Form.tbbtnLastClick(Sender: TObject);
begin
  if (Combobox1.ItemIndex<0) or (Combobox2.ItemIndex<0) Then Exit;
  if DM.SALE_ADOQ.State in [DSINSERT,DSeDIT] Then
  DM.SALE_ADOQ.FieldByName('ITEM_CARNO').AsString:=Combobox1.Text;
  DM.SALE_ADOQ.FieldByName('ITEM_BZ').AsString:=Combobox2.Text;
  DM.SALE_ADOQ.FieldByName('ITEM_CSJNO').AsString:=Combobox3.Text;
  DM.SALE_ADOQ.FieldByName('ITEM_SJDM').AsString:='A003';
  DM.SALE_ADOQ.FieldByName('ITEM_TIME').AsDateTime:=DBDateTimeEditEh1.Value;
  DM.SALE_ADOQ.FieldByName('ITEM_DATE').AsDateTime:=DBDateTimeEditEh2.Value;
  DM.SALE_ADOQ.FieldByName('ITEM_MEN').AsString:=DBEditEh6.Text;
  dm.SALE_ADOQ.Post;
  bs(1);
end;

procedure TSALEBZ_Form.ToolButton5Click(Sender: TObject);
begin
  DM.SALE_ADOQ.Cancel;
  BS(1);
end;

procedure TSALEBZ_Form.BS(i: integer);
begin
  if i=0 then
  begin
    Combobox1.Enabled:=True;
    Combobox2.Enabled:=True;
    Combobox3.Enabled:=True;
    DBEditEh1.Enabled:=True;
    DBEditEh2.Enabled:=True;
    DBEditEh3.Enabled:=True;
    DBEditEh4.Enabled:=True;
    DBEditEh5.Enabled:=True;
    DBEditEh6.Enabled:=True;
    DBDateTimeEditEh1.Enabled:=True;
    DBDateTimeEditEh2.Enabled:=True;
  end;
  if i=1 then
  begin
    Combobox1.Enabled:=false;
    Combobox2.Enabled:=false;
    Combobox3.Enabled:=false;
    DBEditEh1.Enabled:=false;
    DBEditEh2.Enabled:=false;
    DBEditEh3.Enabled:=false;
    DBEditEh4.Enabled:=false;
    DBEditEh5.Enabled:=false;
    DBEditEh6.Enabled:=false;
    DBDateTimeEditEh1.Enabled:=false;
    DBDateTimeEditEh2.Enabled:=false;
  end;
end;

procedure TSALEBZ_Form.FormShow(Sender: TObject);
begin
  tbbtnPrior.Enabled:=CheckRights('销售单编制','新建');
  ToolButton4.Enabled:=CheckRights('销售单编制','修改');
  tbbtnNext.Enabled:=CheckRights('销售单编制','删除');
  tbbtnLast.Enabled:=CheckRights('销售单编制','保存');
  ToolButton5.Enabled:=CheckRights('销售单编制','撤销');
end;

procedure TSALEBZ_Form.DBEditEh3Change(Sender: TObject);
begin
  if (trim(DBEditEh4.Text)<>'') and (trim(DBEditEh3.Text)<>'') then
     DBEditEh5.Text:=Currtostr(strtoint(DBEditEh3.Text)*Strtoint(DBEditEh4.Text));
end;

procedure TSALEBZ_Form.DBEditEh4Change(Sender: TObject);
begin
  if (trim(DBEditEh4.Text)<>'') and (trim(DBEditEh3.Text)<>'') then
     DBEditEh5.Text:=Currtostr(strtoint(DBEditEh3.Text)*Strtoint(DBEditEh4.Text));
end;

end.