ufrm_vendor.pas

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

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

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_vendor = class(Tfrm_level4_1)
    Label1: TLabel;
    F01: TDBEdit;
    Label2: TLabel;
    F02: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    F04: TDBEdit;
    Label5: TLabel;
    F10: TDBComboBox;
    Label6: TLabel;
    F06: TDBEdit;
    Label7: TLabel;
    Label9: TLabel;
    F08: TDBEdit;
    Label8: TLabel;
    F09: TDBEdit;
    Label10: TLabel;
    ACTI: TDBText;
    Label11: TLabel;
    F07: TDBEdit;
    F05: TDBEdit;
    F03: TDBEdit;
    dbGridF01: TdxDBGridMaskColumn;
    dbGridF02: TdxDBGridMaskColumn;
    dbGridF03: TdxDBGridMaskColumn;
    dbGridF04: TdxDBGridMaskColumn;
    dbGridF05: TdxDBGridMaskColumn;
    dbGridF06: TdxDBGridMaskColumn;
    dbGridF07: TdxDBGridMaskColumn;
    dbGridF08: TdxDBGridMaskColumn;
    dbGridF09: TdxDBGridMaskColumn;
    dbGridF10: TdxDBGridMaskColumn;
    dbGridACTI: TdxDBGridMaskColumn;
    dbGridOWUS: TdxDBGridMaskColumn;
    dbGridGRUP: TdxDBGridMaskColumn;
    dbGridCRET: TdxDBGridDateColumn;
    dbGridMODU: TdxDBGridMaskColumn;
    dbGridMODT: TdxDBGridDateColumn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    function  chk_save:boolean; override;        //保存前的檢查
    function  chk_conf:boolean; override;        //確認前的檢查
    procedure set_Focus;        override;        //設置焦點    
  public
    { Public declarations }
  end;

var
  frm_vendor: Tfrm_vendor;

implementation

uses udm,uglobal_fun,uglobal_var;

{$R *.dfm}

{ Tfrm_vendor }

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

function Tfrm_vendor.chk_save: boolean;
begin
  result:=true;
  if qy_master.FieldByName('F02').AsString='' then
     begin
       u_error:='供应商简称为空!';
       result:=false;
     end;
end;

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

procedure Tfrm_vendor.FormCreate(Sender: TObject);
begin
  inherited;
  with dm.pub1  do
    begin
    //添加材料性能﹐代碼  1
      g_sqlstr:='SELECT F01 FROM T_PAYMENTTERM WHERE ACTI=''Y''';
      close;
      sql.Clear;
      sql.Add(g_sqlstr);
      open;
      F10.Items.Add('');
      while not eof do
        begin
          F10.Items.Add(fieldbyname('F01').AsString);
          next;
        end;
    end;
end;

end.