posmachine.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit PosMachine;

interface

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

type
  TPosMachineForm = class(TForm)
    clbUser: TCoolBar;
    tlbFunction: TToolBar;
    tbNew: TToolButton;
    tbEdit: TToolButton;
    tbDel: TToolButton;
    ToolButton1: TToolButton;
    tbClose: TToolButton;
    tbSave: TToolButton;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    procedure tbCloseClick(Sender: TObject);
    procedure tbNewClick(Sender: TObject);
    procedure tbEditClick(Sender: TObject);
    procedure tbDelClick(Sender: TObject);
    procedure tbSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PosMachineForm: TPosMachineForm;

implementation

uses datamodule1, Unitmb;


{$R *.dfm}

procedure TPosMachineForm.tbCloseClick(Sender: TObject);
begin
  DataE2.tblposmch.Close;
  close;
end;

procedure TPosMachineForm.tbNewClick(Sender: TObject);
begin
  DBGridEh1.ReadOnly:=false;
  DBGridEh1.Repaint;
  with DataE2.tblposmch do
  begin
    Append;
    FieldByName('FolioId').AsInteger:=0;
    FieldByName('FolioLast').AsInteger:=0;
    FieldByName('printer').AsInteger:=0;
    FieldByName('cashbox').AsInteger:=0;
  end;
  tbSave.Enabled:=true;
end;

procedure TPosMachineForm.tbEditClick(Sender: TObject);
begin
  DBGridEh1.ReadOnly:=false;
  DataE2.tblposmch.Edit;
  tbSave.Enabled:=true;
end;

procedure TPosMachineForm.tbDelClick(Sender: TObject);
begin
  DBGridEh1.ReadOnly:=false;
  DBGridEh1.Repaint;
  if DataE2.tblposmch.FieldByName('FolioId').AsInteger=0 then
  begin
    if application.MessageBox('是否真的删除?','确认',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
      DataE2.tblposmch.Delete;
      tbSave.Enabled:=true;
  end else application.MessageBox('该资料已发生了业务关系，不能删除。','确认',MB_OK+MB_ICONQUESTION)
end;

procedure TPosMachineForm.tbSaveClick(Sender: TObject);
begin
  DBGridEh1.ReadOnly:=true;
  DBGridEh1.Repaint;
  DataE2.tblposmch.post;
  tbSave.Enabled:=false;
end;

procedure TPosMachineForm.FormShow(Sender: TObject);
begin
  DataE2.tblposmch.Close;
  DataE2.tblposmch.Open;
  DBGridEh1.ReadOnly:=true;
  DBGridEh1.Repaint;
end;

end.