fmcustomeru.pas

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

unit FMCustomerU;

interface

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

type
  TFMCustomer = class(TFMSingle)
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Label1: TLabel;
    dbfCustNo: TDBEdit;
    Label2: TLabel;
    dbfCustName: 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;
    dsState: TDataSource;
    cdsState: TADODataSet;
    Label10: TLabel;
    dbfState: TDBLookupComboBox;
    cdsMainfCustId: TSmallintField;
    cdsMainfCustNo: TWideStringField;
    cdsMainfCustName: TWideStringField;
    cdsMainfCorporate: TWideStringField;
    cdsMainfLinkMan: TWideStringField;
    cdsMainfTelNo: TWideStringField;
    cdsMainfFaxNo: TWideStringField;
    cdsMainfOfficeAdd: TWideStringField;
    cdsMainfZipCode: TWideStringField;
    cdsMainfEmail: TWideStringField;
    cdsMainfState: TSmallintField;
    cdsMainfFFU: TWideStringField;
    cdsMainfStateName: TStringField;
    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
  FMCustomer: TFMCustomer;

implementation

{$R *.dfm}

function TFMCustomer.DelCheck:boolean;
begin
  result :=true ;
  QrySQL.Active :=false ;
  QrySQL.SQL.Text :='select count(*) from ts_sale_head where fCustNo='+#39+cdsMain.FieldByName('fCustNo').AsString+#39;
  QrySQL.Active :=true ;
  if QrySQL.Fields[0].AsInteger >0 then
    begin
      result :=false ;
      aErrMsg :='已经有该客户的领料单,不能删除.';
    end ;
end ;

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

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

procedure TFMCustomer.btnQueryClick(Sender: TObject);
begin
  PTableName :='ts_customer';
  inherited;
end;

procedure TFMCustomer.cdsMainNewRecord(DataSet: TDataSet);
begin
  inherited;
  cdsMain.FieldByName('fCustId').AsString :=GetNextId('ts_customer','fCustId');
  cdsMain.FieldByName('fState').AsString :='1';
  dbfCustNo.ReadOnly :=false ;
  dbfCustNo.SetFocus ;
end;

procedure TFMCustomer.btnModifyClick(Sender: TObject);
begin
  inherited;
  dbfCustNo.ReadOnly :=true ;
  dbfCustName.SetFocus ;
end;

end.