ucategory.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 93 行

unit ucategory;
          
interface

uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub1, Menus, ImgList, DB, jpeg, StdCtrls,
  ExtCtrls, ComCtrls, Buttons, Mask, DBCtrls, dxtree,
  dxdbtree, dxdbtrel, DBClient, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  ActnList, dxExEdtr,ToolWin, dxDBTLCl, dxGrClms;

type                                            
  TfmCategory = class(Tfmpub1)
    dxDBTreeView1: TdxDBTreeView;
    Splitter1: TSplitter;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DataSource2: TDataSource;
    dxDBLookupTreeView1: TdxDBLookupTreeView;
    DBMemo1: TDBMemo;
    DBGrid1CategoryID: TdxDBGridMaskColumn;
    DBGrid1CategoryName: TdxDBGridMaskColumn;
    DBGrid1ParentID: TdxDBGridMaskColumn;
    DBGrid1Remark: TdxDBGridMaskColumn;
    DBGrid1Creater: TdxDBGridMaskColumn;
    DBGrid1CreateDate: TdxDBGridDateColumn;
    DBGrid1Updater: TdxDBGridMaskColumn;
    DBGrid1UpdateDate: TdxDBGridDateColumn;
    procedure FormCreate(Sender: TObject);
    procedure spddelClick(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure AAddExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmCategory: TfmCategory;

implementation

uses SherryLib, udmbase, udata;

{$R *.dfm}

procedure TfmCategory.FormCreate(Sender: TObject);
begin
  if DSMain.DataSet=Nil then
  DSMain.DataSet:=DMBase.CCategory;
  if DataSource2.DataSet=nil then
  DataSource2.DataSet:=DMBase.CCategory1;
  //OpenData(DataSource2);
  inherited;
  Dbgrid1.KeyField:='CategoryID';
  dxDBTreeView1.FullExpand;
end;

procedure TfmCategory.spddelClick(Sender: TObject);
begin
  if dxDBTreeView1.Selected.HasChildren then
  Warn('要想删除该材料分类请先删除其所有的子分类！  ')
  else inherited;
end;

procedure TfmCategory.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  //if not (key in [#8,'0'..'9','A'..'Z']) then key:=#0;
end;

procedure TfmCategory.AAddExecute(Sender: TObject);
var father:Variant;
begin
  father:=DMBase.CCategory['CategoryID'];
  inherited;
  DMBase.CCategory['ParentID']:=father;
end;

procedure TfmCategory.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  //CloseData(DataSource2);
end;

end.