ufrm_basicmaterial.~pas

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

{
************************************
Program name:mpss_Material
Author      :Guo xuliang
Purpose     :材質維護
Date        :2003/04/17
************************************
}

unit ufrm_BasicMaterial;

interface

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

type
  Tfrm_BasicMaterial = class(Tfrm_level4_1)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    F01: TDBEdit;
    F02: TDBEdit;
    F03: TDBEdit;
    F04: TDBEdit;
    F06: TDBEdit;
    MEMO: TDBEdit;
    Label9: TLabel;
    CRET: TDBEdit;
    Label10: TLabel;
    ACTI: TDBText;
    F05: TDBComboBox;
    F07: TDBComboBox;
    qy_masterF01: TStringField;
    qy_masterF02: TStringField;
    qy_masterF03: TFloatField;
    qy_masterF04: TFloatField;
    qy_masterF05: TStringField;
    qy_masterF06: TFloatField;
    qy_masterF07: TStringField;
    qy_masterMEMO: 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;
    dbGridF04: TdxDBGridMaskColumn;
    dbGridF05: TdxDBGridMaskColumn;
    dbGridF06: TdxDBGridMaskColumn;
    dbGridF07: TdxDBGridMaskColumn;
    dbc_acti: TdxDBGridMaskColumn;
    dbGridOWUS: TdxDBGridMaskColumn;
    dbGridGRUP: TdxDBGridMaskColumn;
    dbGridCRET: TdxDBGridDateColumn;
    dbGridMODU: TdxDBGridMaskColumn;
    dbGridMODT: TdxDBGridDateColumn;
    procedure FormCreate(Sender: TObject);
    procedure dbGridCustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
  private
    { Private declarations }
  protected
    function  chk_save:boolean; override;        //保存前的檢查
    function  chk_conf:boolean; override;        //確認前的檢查
    procedure set_Focus;        override;        //設置焦點    
  public
    { Public declarations }
  end;

var
  frm_BasicMaterial: Tfrm_BasicMaterial;

implementation
uses udm,uglobal_fun,uglobal_var;
{$R *.dfm}

procedure Tfrm_BasicMaterial.set_Focus;
begin
  if f01.Visible then    f01.SetFocus;
end;

function Tfrm_BasicMaterial.chk_save;
begin
  result:=true;
  if qy_master.FieldByName('F02').AsString='' then
     begin
       u_error:='材質名稱為空';
       result:=false;
     end;
end;

//在確認前檢查密度和單價必須輸入
function Tfrm_BasicMaterial.chk_conf;
begin
  result:=true;
  if qy_master.FieldByName('F04').AsFloat<=0 then
    begin
      u_error:='請輸入密度';
      result:=false;
    end;
  if qy_master.FieldByName('F06').AsFloat<=0 then
    begin
      u_error:='請輸入單價';
      result:=false;
    end;
end;
procedure Tfrm_BasicMaterial.FormCreate(Sender: TObject);
begin
  inherited;
{  with dm.pub1  do
    begin
    //添加材料性能﹐代碼  1
      //g_sqlstr:='SELECT * FROM T_DEPT WHERE F02=1';
      g_sqlstr:='SELECT * FROM T_PARAMETER WHERE F01=1';
      close;
      sql.Clear;
      sql.Add(g_sqlstr);
      open;
      F05.Items.Add('');
      while not eof do
        begin
          F05.Items.Add(fieldbyname('F02').AsString);
          next;
        end;
    //添加熱處理方式﹐代碼 2
      //g_sqlstr:='SELECT * FROM T_DEPT WHERE F02=2';
      g_sqlstr:='SELECT * FROM T_PARAMETER WHERE F01=2';
      close;
      sql.Clear;
      sql.Add(g_sqlstr);
      open;
      F07.items.Add('');
      while not eof do
        begin
          F07.Items.Add(fieldbyname('F02').AsString);
          next;
        end;
    end;
}    
end;

procedure Tfrm_BasicMaterial.dbGridCustomDraw(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
var
  Value: Variant;
begin
  //inherited;
  if ANode.HasChildren then  Exit;
  if not ASelected and (AColumn =dbc_acti) then
    begin
      Value := ANode.Values[AColumn.Index];
      if not VarIsNull(Value) then
        begin
          if Value ='Y' then
            AColor := clYellow
          else
            AColor := clRed;
        end;
    end;
end;

end.