ucosttype.pas

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

unit ucosttype;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub1, dxExEdtr, ImgList, ActnList, Menus, DB, ComCtrls,
  ToolWin, StdCtrls, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls,
  dxDBTLCl, dxGrClms, Mask, DBCtrls, Tabs;

type
  Tfmcosttype = class(Tfmpub1)
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    DBGrid1CostType: TdxDBGridMaskColumn;
    DBGrid1TypeLabel: TdxDBGridMaskColumn;
    DBGrid1TypeName: TdxDBGridMaskColumn;
    DBGrid1CategoryID: TdxDBGridMaskColumn;
    DBGrid1CategoryName: TdxDBGridMaskColumn;
    DBGrid1Enabled: TdxDBGridCheckColumn;
    DBGrid1Balance: TdxDBGridCheckColumn;
    DBGrid1CostRate: TdxDBGridMaskColumn;
    DBGrid1Remark: TdxDBGridMaskColumn;
    DBGrid1Creater: TdxDBGridMaskColumn;
    DBGrid1CreateDate: TdxDBGridDateColumn;
    DBGrid1Updater: TdxDBGridMaskColumn;
    DBGrid1UpdateDate: TdxDBGridDateColumn;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    TypeTabSet: TTabSet;
    Label7: TLabel;
    DBEdit4: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    procedure AAddExecute(Sender: TObject);
    procedure ADeleteExecute(Sender: TObject);
    procedure TypeTabSetChange(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure ACopyAddExecute(Sender: TObject);
    procedure ASaveAddExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmcosttype: Tfmcosttype;

implementation

uses udmbase;

{$R *.dfm}

procedure Tfmcosttype.AAddExecute(Sender: TObject);
begin
  //inherited;

end;

procedure Tfmcosttype.ADeleteExecute(Sender: TObject);
begin
  //inherited;

end;

procedure Tfmcosttype.TypeTabSetChange(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  Case NewTab of
    0:DMBase.CCostType.Filter:='Enabled<>False';
    1:DMBase.CCostType.Filter:='Enabled=False';
  End;
end;

procedure Tfmcosttype.FormCreate(Sender: TObject);
begin
  inherited;
  DMBase.CCostType.Filter:='Enabled<>False';
  DMBase.CCostType.Filtered:=True;
end;

procedure Tfmcosttype.ACopyAddExecute(Sender: TObject);
begin
  //inherited;
end;

procedure Tfmcosttype.ASaveAddExecute(Sender: TObject);
begin
  //inherited;
end;

end.