fmitemu.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit FMItemU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FMSingleU, ExtCtrls, Grids, DBGrids, Menus, DB, ADODB, StdCtrls,
  Buttons, Mask, DBCtrls, dxdbtrel;

type
  TFMItem = class(TFMSingle)
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    dbfProductName: TDBEdit;
    Label3: TLabel;
    dbfSpec: TDBEdit;
    Label4: TLabel;
    dbfSaleUnit: TDBEdit;
    Label5: TLabel;
    dbfStockUp: TDBEdit;
    Label6: TLabel;
    dbfStockDown: TDBEdit;
    Label7: TLabel;
    dbfSellPrice: TDBEdit;
    Label8: TLabel;
    dbfWholePrice: TDBEdit;
    Label9: TLabel;
    dbfBuyPrice: TDBEdit;
    dsClass: TDataSource;
    dsState: TDataSource;
    cdsClass: TADODataSet;
    cdsState: TADODataSet;
    cdsMainfClassName: TStringField;
    cdsMainfStateName: TStringField;
    Label10: TLabel;
    Label11: TLabel;
    dbfState: TDBLookupComboBox;
    cdsMainfProductId: TSmallintField;
    cdsMainfProductNo: TWideStringField;
    cdsMainfProductName: TWideStringField;
    cdsMainfSpec: TWideStringField;
    cdsMainfSaleUnit: TWideStringField;
    cdsMainfClass: TWideStringField;
    cdsMainfStockUp: TSmallintField;
    cdsMainfStockDown: TSmallintField;
    cdsMainfSellPrice: TFloatField;
    cdsMainfWholePrice: TFloatField;
    cdsMainfBuyPrice: TFloatField;
    cdsMainfState: TSmallintField;
    cdsMainfFFU: TWideStringField;
    dbfProductNo: TDBEdit;
    dxfClass: TdxDBLookupTreeView;
    procedure cdsMainNewRecord(DataSet: TDataSet);
    procedure btnQueryClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
     function DelCheck:boolean ; override ;
  end;

var
  FMItem: TFMItem;

implementation

{$R *.dfm}

function TFMItem.DelCheck:boolean;
begin
   result :=false ;
   aErrMsg :='产品资料不能删除.';
end ;


procedure TFMItem.cdsMainNewRecord(DataSet: TDataSet);
begin
  inherited;
  cdsMain.FieldByName('fProductId').AsString :=GetNextId('ts_item','fProductId');
  cdsMain.FieldByName('fStockUp').AsFloat :=1;
  cdsMain.FieldByName('fStockDown').AsFloat :=1;
  cdsMain.FieldByName('fSellPrice').AsFloat :=0;
  cdsMain.FieldByName('fWholePrice').AsFloat :=0;
  cdsMain.FieldByName('fBuyPrice').AsFloat :=0;
  cdsMain.FieldByName('fState').AsInteger  :=1;
  dbfProductNo.ReadOnly :=false ;
  dbfProductNo.SetFocus ;
end;

procedure TFMItem.btnQueryClick(Sender: TObject);
begin
  PTableName :='ts_item';
  inherited;
end;

procedure TFMItem.btnModifyClick(Sender: TObject);
begin
  inherited;
  dbfProductNo.ReadOnly :=true ;
  dbfProductName.SetFocus ;
end;

procedure TFMItem.FormCreate(Sender: TObject);
begin
  PAddType :=1 ;
  inherited;
  cdsState.Active :=false ;cdsState.Active :=true ;
  cdsClass.Active :=false ;cdsClass.Active :=true ;
end;

procedure TFMItem.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  cdsClass.Active :=false ;cdsClass.Active :=false ;
end;

end.