ufrm_customer.pas

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· PAS 代码 · 共 108 行

unit Ufrm_customer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ufrm_level4_1, dxExEdtr, DB, DBTables, Menus, ImgList, dxCntner,
  dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, ToolWin, StdCtrls, Mask,
  DBCtrls, dxDBTLCl, dxGrClms,udm ,uglobal_var ;

type
  Tfrm_customer = class(Tfrm_level4_1)
    qy_masterCUSTNO: TStringField;
    qy_masterSHORTNAME: TStringField;
    qy_masterFULLNAME: TStringField;
    qy_masterCUSTTYPE: TStringField;
    qy_masterREGION: TStringField;
    qy_masterADDRESS: TStringField;
    qy_masterTEL: TStringField;
    qy_masterFAX: TStringField;
    qy_masterACTI: TStringField;
    qy_masterOWUS: TStringField;
    qy_masterGRUP: TStringField;
    qy_masterCRET: TDateTimeField;
    qy_masterMODU: TStringField;
    qy_masterMODT: TDateTimeField;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    dbGridCUSTNO: TdxDBGridMaskColumn;
    dbGridSHORTNAME: TdxDBGridMaskColumn;
    dbGridFULLNAME: TdxDBGridMaskColumn;
    dbGridCUSTTYPE: TdxDBGridMaskColumn;
    dbGridREGION: TdxDBGridMaskColumn;
    dbGridADDRESS: TdxDBGridMaskColumn;
    dbGridTEL: TdxDBGridMaskColumn;
    dbGridFAX: TdxDBGridMaskColumn;
    dbGridACTI: TdxDBGridMaskColumn;
    dbGridOWUS: TdxDBGridMaskColumn;
    dbGridGRUP: TdxDBGridMaskColumn;
    dbGridCRET: TdxDBGridDateColumn;
    dbGridMODU: TdxDBGridMaskColumn;
    dbGridMODT: TdxDBGridDateColumn;
    procedure tbAddClick(Sender: TObject);
  private
    { Private declarations }
  protected
    function  chk_save:boolean; override;
//    function  chk_conf:boolean; override;
  public
    { Public declarations }
  end;

var
  frm_customer: Tfrm_customer;

implementation

{$R *.dfm}

function Tfrm_customer.chk_save ;
begin
  result := true ;
  if qy_master.FieldByName('CUSTNO').AsString='' then
  begin
    u_error := ' 客戶編號為不能為空! ' ;
    result := false; 
  end;

  dm.pub1.Close; dm.pub1.SQL.Clear;
  g_sqlstr :=' SELECT CUSTNO FROM T_CUSTOMER WHERE CUSTNO = '''+ qy_master.FieldByName('CUSTNO').AsString + '''' ;
  dm.pub1.SQL.Add(g_sqlstr);
  try
    dm.pub1.Open;
  except
     ;
  end ;
//  qy_master.State in [dsInsert ]
  if dm.pub1.RecordCount=1 then
  begin
   u_error := '資料重複,請檢查客戶編號資料!' ;
   result := false ;
  end;
end;

procedure Tfrm_customer.tbAddClick(Sender: TObject);
begin
  inherited;
  dbedit1.SetFocus;
end;

end.