usubject.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit uSubject;

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

type
  TfmSubject = class(Tfmpub1)
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Button1: TButton;
    Splitter1: TSplitter;
    dxDBTreeView1: TdxDBTreeView;
    DataSource2: TDataSource;
    CSubject: TClientDataSet;
    ImageList2: TImageList;
    dxDBLookupTreeView1: TdxDBLookupTreeView;
    GroupBox2: TGroupBox;
    DBCheckBox1: TDBCheckBox;
    DBRadioGroup1: TDBRadioGroup;
    DBGrid1AC_ID: TdxDBGridMaskColumn;
    DBGrid1AC_Name: TdxDBGridMaskColumn;
    DBGrid1Parent: TdxDBGridMaskColumn;
    DBGrid1Flag: TdxDBGridCheckColumn;
    DBGrid1Remark: TdxDBGridMaskColumn;
    DBGrid1Debit: TdxDBGridMaskColumn;
    DBGrid1Credit: TdxDBGridMaskColumn;
    DBGrid1Creater: TdxDBGridMaskColumn;
    DBGrid1CreateDate: TdxDBGridDateColumn;
    DBGrid1Updater: TdxDBGridMaskColumn;
    DBGrid1UpdateDate: TdxDBGridDateColumn;
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxDBTreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure SpdRefreshClick(Sender: TObject);
    procedure DBCheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSubject: TfmSubject;

implementation

uses SherryLib, udmbase;

{$R *.dfm}

procedure TfmSubject.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in [#8,'0'..'9']) then key:=#0;
end;

procedure TfmSubject.FormCreate(Sender: TObject);
begin
  DMBase.Csubject.Params.ParamValues['@AC_ID']:='%';
  DMBase.Csubject.Active:=True;
  inherited;
  CSubject.Data:=DMBase.CSubject.Data;
  CSubject.AddIndex('NewIndex','AC_ID',[ixDescending,ixPrimary]);
  CSubject.IndexDefs.Update;
  CSubject.IndexName:='NewIndex';
  CSubject.AppendRecord([nil,'','所有科目',null, Null, Null, Null, Null]);
end;

procedure TfmSubject.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CSubject.Active:=False;
  inherited;
end;

procedure TfmSubject.dxDBTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  inherited;
  DMBase.Csubject.DisableControls;
  DMBase.Csubject.Active:=False;
  DMBase.Csubject.Params.ParamValues['@AC_ID']:=Csubject.Fieldbyname('AC_ID').AsString+'%';
  DMBase.Csubject.Active:=True;
  DMBase.Csubject.EnableControls;
end;

procedure TfmSubject.SpdRefreshClick(Sender: TObject);
begin
  {CFiscal_subject.Active:=False;
  CFiscal_subject.Data:=DM.CFiscal_Subject.Data;
  CFiscal_subject.AppendRecord([nil,'','所有科目',null, Null, Null, Null, Null]);
  CFiscal_subject.Active:=True; }
  inherited;
end;

procedure TfmSubject.DBCheckBox1Click(Sender: TObject);
begin
  inherited;
  GroupBox2.Enabled:=DBCheckBox1.Checked;
  DMBase.CSubject.Edit;
  if not DBCheckBox1.Checked then
    DBEdit5.Field.Clear;
end;

end.