fmsupplieru.pas

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

unit FMSupplierU;

interface

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

type
  TFMSupplier = class(TFMSingle)
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Label1: TLabel;
    dbfSupNo: TDBEdit;
    Label2: TLabel;
    dbfSupName: TDBEdit;
    Label3: TLabel;
    dbfCorporate: TDBEdit;
    Label4: TLabel;
    dbfLinkMan: TDBEdit;
    Label5: TLabel;
    dbfTelNo: TDBEdit;
    Label6: TLabel;
    dbfFaxNo: TDBEdit;
    Label7: TLabel;
    dbfOfficeAdd: TDBEdit;
    Label8: TLabel;
    dbfZipCode: TDBEdit;
    Label9: TLabel;
    dbfEmail: TDBEdit;
    cdsMainfSupId: TSmallintField;
    cdsMainfSupNo: TWideStringField;
    cdsMainfSupName: TWideStringField;
    cdsMainfCorporate: TWideStringField;
    cdsMainfLinkMan: TWideStringField;
    cdsMainfTelNo: TWideStringField;
    cdsMainfFaxNo: TWideStringField;
    cdsMainfOfficeAdd: TWideStringField;
    cdsMainfZipCode: TWideStringField;
    cdsMainfEmail: TWideStringField;
    cdsMainfState: TSmallintField;
    cdsMainfFFU: TWideStringField;
    dsState: TDataSource;
    cdsState: TADODataSet;
    cdsMainfStateName: TStringField;
    Label10: TLabel;
    dbfState: TDBLookupComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnQueryClick(Sender: TObject);
    procedure cdsMainNewRecord(DataSet: TDataSet);
    procedure btnModifyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function DelCheck:boolean ; override ;
  end;

var
  FMSupplier: TFMSupplier;

implementation

{$R *.dfm}

function TFMSupplier.DelCheck:boolean;
begin
  result :=true ;
  QrySQL.Active :=false ;
  QrySQL.SQL.Text :='select count(*) from ts_receive_head where fSupNo='+#39+cdsMain.FieldByName('fSupNo').AsString+#39;
  QrySQL.Active :=true ;
  if QrySQL.Fields[0].AsInteger >0 then
    begin
      result :=false ;
      aErrMsg :='已经有该厂商的验收单,不能删除.';
    end ;
end ;

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

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

procedure TFMSupplier.btnQueryClick(Sender: TObject);
begin
  PTableName :='ts_supplier';
  inherited;
end;

procedure TFMSupplier.cdsMainNewRecord(DataSet: TDataSet);
begin
  inherited;
  cdsMain.FieldByName('fSupId').AsString :=GetNextId('ts_supplier','fSupId');
  cdsMain.FieldByName('fState').AsString :='1';
  dbfSupNo.ReadOnly :=false ;
  dbfSupNo.SetFocus ;
end;

procedure TFMSupplier.btnModifyClick(Sender: TObject);
begin
  inherited;
  dbfSupNo.ReadOnly :=true ;
  dbfSupName.SetFocus ;
end;

end.