usubject.pas

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

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.