ufrm_payment.~pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

//  **********************************
//  *    Program name: frm_payment   *
//  *    AUTHOR      : Guo xuliang   *
//  *    Name        :郭许良　　　　 *
//  *    Name        :尝砛▆         *
//  *    Date        : 2005/05/25    *
//  **********************************
unit ufrm_payment;

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, DBCtrls, StdCtrls,
  Mask, dxDBTLCl, dxGrClms;

type
  Tfrm_payment = class(Tfrm_level4_1)
    Label1: TLabel;
    F01: TDBEdit;
    Label2: TLabel;
    F02: TDBEdit;
    Label3: TLabel;
    Label10: TLabel;
    ACTI: TDBText;
    za05: TDBRadioGroup;
    qy_masterF01: TStringField;
    qy_masterF02: TStringField;
    qy_masterF03: TStringField;
    qy_masterACTI: TStringField;
    qy_masterOWUS: TStringField;
    qy_masterGRUP: TStringField;
    qy_masterCRET: TDateTimeField;
    qy_masterMODU: TStringField;
    qy_masterMODT: TDateTimeField;
    dbGridF01: TdxDBGridMaskColumn;
    dbGridF02: TdxDBGridMaskColumn;
    dbGridF03: TdxDBGridMaskColumn;
    dbGridACTI: TdxDBGridMaskColumn;
    dbGridOWUS: TdxDBGridMaskColumn;
    dbGridGRUP: TdxDBGridMaskColumn;
    dbGridCRET: TdxDBGridDateColumn;
    dbGridMODU: TdxDBGridMaskColumn;
    dbGridMODT: TdxDBGridDateColumn;
  private
    { Private declarations }
  protected
    function  chk_save:boolean; override;        //保存前的檢查
    function  chk_conf:boolean; override;        //確認前的檢查
    procedure set_Focus;        override;        //設置焦點
  public
    { Public declarations }
  end;

var
  frm_payment: Tfrm_payment;

implementation

{$R *.dfm}

{ Tfrm_payment }

function Tfrm_payment.chk_conf: boolean;
begin
  result:=true;
end;

function Tfrm_payment.chk_save: boolean;
begin
  result:=true;
  if qy_master.FieldByName('F02').AsString='' then
     begin
       u_error:='付款方式代号为空!';
       result:=false;
     end;
end;

procedure Tfrm_payment.set_Focus;
begin
  inherited;
  if f01.Visible then    f01.SetFocus;
end;

end.