unitsetupform.pas

手机批发商进销存管理

unit UnitSetupForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, Grids, DBGrids, DB, ADODB, StdCtrls, Mask, DBCtrls,
  Buttons, ExtCtrls, DBActns, ActnList;

type
  TSetupForm = class(TForm)
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ActionList1: TActionList;
    DataSetCancel1: TDataSetCancel;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetInsert1: TDataSetInsert;
    DataSetPost1: TDataSetPost;
    ADODataSet1GoodsOwner: TWideStringField;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    PanelInput: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ADODataSet1BeforeDelete(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UnitDM;

{$R *.dfm}

procedure TSetupForm.FormCreate(Sender: TObject);
begin
  ADODataSet1.Open;
end;

procedure TSetupForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADODataSet1.Close;
  Action := caFree;
end;

procedure TSetupForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=27 then Close;
end;

procedure TSetupForm.ADODataSet1BeforeDelete(DataSet: TDataSet);
var
  GoodsOwner: string;
begin
  if not ADODataSet1.Active then
  begin
    Abort;
    Exit;
  end;
  if ADODataSet1.IsEmpty then
  begin
    Abort;
    Exit;
  end;
  GoodsOwner := ADODataSet1.FieldByName('GoodsOwner').AsString;
  if GoodsOwner='' then
  begin
    Abort;
    Exit;
  end;  
  try
    DM1.ADOQuery1.Close;
    DM1.ADOQuery1.SQL.Text := 'select GoodsNo from Tab_Goods where GoodsOwner=''' + GoodsOwner + ''' ';
    DM1.ADOQuery1.Open;
    if DM1.ADOQuery1.RecordCount>0 then
    begin
      Application.MessageBox('已经录入该柜台的数据，不能更改!如要更改，请先删除该柜台的数据!', '提示', MB_OK + MB_ICONINFORMATION);
      Abort;
      Exit;
    end;
    DM1.GetGoodsOwner;
  finally
    DM1.ADOQuery1.Close;
  end;
end;

end.