ufrm_workstation.pas

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

//  *******************************************
//  *    Program name: ufrm_workstation_d     *
//  *    AUTHOR      : Guo xuliang 郭许良     *
//  *    Date        : 2005/05/15             *
//  *    Purpose     : 模板使用范例双档单头   *
//  *******************************************

{
************************************
Program name:mpss_workstation
Author      :Guo xuliang
Purpose     :工段維護
Date        :2003/04/18
************************************
工段單據頭維護(master)
}
unit ufrm_workstation;

interface

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

type
  Tfrm_workstation = class(Tfrm_level4_2)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label2: TLabel;
    f01: TDBEdit;
    f03: TDBEdit;
    f04: TDBEdit;
    f05: TDBRadioGroup;
    f06: TDBEdit;
    f07: TDBEdit;
    f08: TDBEdit;
    cret: TDBEdit;
    memo: TDBEdit;
    Label10: TLabel;
    acti: TDBText;
    dbc_f02: TdxDBGridColumn;
    dbc_begintime: TdxDBGridColumn;
    dbc_endtime: TdxDBGridColumn;
    dbc_f05: TdxDBGridColumn;
    dbc_memo: TdxDBGridColumn;
    qy_detailF01: TStringField;
    qy_detailF02: TFloatField;
    qy_detailF03: TFloatField;
    qy_detailF04: TFloatField;
    qy_detailF05: TFloatField;
    qy_detailMEMO: TStringField;
    qy_detailACTI: TStringField;
    qy_detailOWUS: TStringField;
    qy_detailGRUP: TStringField;
    qy_detailCRET: TDateTimeField;
    qy_detailMODU: TStringField;
    qy_detailMODT: TDateTimeField;
    qy_detailbegintime: TStringField;
    qy_detailendtime: TStringField;
    dbc_d_sn: TdxDBGridColumn;
    qy_detailD_SN: TFloatField;
    procedure qy_detailCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  protected
    procedure set_Focus;        override;  //設置焦點
    procedure chg_canwrite;     override;  //設置關鍵字為可寫
    procedure chg_Readonly;     override;  //設置關鍵字為唯讀    
    function  chk_save:boolean; override;  //保存前的檢查
    function  chk_conf:boolean; override;  //確認前的檢查
    procedure call_detail;      override;  //調用單身維護
  public
    { Public declarations }
  end;

var
  frm_workstation: Tfrm_workstation;

implementation
uses udm,uglobal_var,uglobal_fun, ufrm_workstation_d;
{$R *.dfm}
procedure Tfrm_workstation.set_Focus;
begin
  if f01.Enabled then
     f01.SetFocus
  else if f03.Enabled then f03.SetFocus;
end;

procedure Tfrm_workstation.chg_canwrite;
begin
  f01.Enabled:=true;
  f01.Tag:=1;
end;

procedure Tfrm_workstation.chg_Readonly;
begin
  f01.Enabled:=false;
  f01.Tag:=2;
end;

//工段名稱不能為空
function Tfrm_workstation.chk_save;
begin
  result:=true;
  if TRIM(qy_master.FieldByName('F03').AsString)='' then
    begin
      u_error:='工段名稱不能為空';
      result:=false;
    end;
end;

//計價方式﹐標準﹐對內﹐對外成本不能位空