daedsubject.pas

详细的ERP设计资料

unit DAEdSubject;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WSStandardEdit, StdCtrls, ExtCtrls, DB, ADODB, DBCtrls, Mask;

type
  TDAEdSubjectForm = class(TWSStandardEditForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    aqrDASubject: TADOQuery;
    DBComboBox1: TDBComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBComboBox2: TDBComboBox;
    DataSource1: TDataSource;
    dsMSCurrency: TDataSource;
    aqrDASubjectID: TAutoIncField;
    aqrDASubjectSubCode: TStringField;
    aqrDASubjectSubTypeID: TIntegerField;
    aqrDASubjectName: TStringField;
    aqrDASubjectDebitCredit: TStringField;
    aqrDASubjectCurrencyID: TIntegerField;
    aqrDASubjectRelativeTable: TStringField;
    aqrDASubjectRelativeID: TIntegerField;
    aqrDASubjectCreateDate: TDateTimeField;
    aqrDASubjectCreateUserID: TIntegerField;
    aqrDASubjectRecordState: TStringField;
    aqrDASubjectDetailFlag: TStringField;
    aqrDASubjectLocked: TStringField;
    aqrDASubjectHSWB: TStringField;
    aqrDASubjectMONEYID: TIntegerField;
    aqrDASubjectEXCHANGE: TStringField;
    aqrDASubjectHSQTY: TStringField;
    aqrDASubjectUNIT: TStringField;
    aqrDASubjectHSDEPT: TStringField;
    aqrDASubjectHSEMP: TStringField;
    aqrDASubjectHSITEM: TStringField;
    aqrDASubjectPAYTYPE: TSmallintField;
    aqrDASubjectATTRFLAG: TIntegerField;
    aqrDASubjectSPECIALCODE: TIntegerField;
    aqrDASubjectSYSUSE: TStringField;
    aqrDASubjectHELPCODE: TStringField;
    aqrDASubjectSIGNFLAG: TStringField;
    procedure OKButtonClick(Sender: TObject);
    procedure aqrDASubjectBeforePost(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    function Enter: Boolean; override;
    function EnterNew(var Params: Variant): Boolean;
    function Edit(const Params: Variant): Boolean; override;
  end;

implementation

uses CommonDM, WSSecurity,DABrAccountCode;

{$R *.dfm}

function TDAEdSubjectForm.Edit(const Params: Variant): Boolean;
begin
  with aqrDASubject do
  begin
    close;
    sql.Text := 'select * from DASubject where ID=' +
      Format('%s', [VarToStr(Params)]);
    open;
    first;
    Edit;
  end;
  Result := ShowModal = mrOK;
end;

function TDAEdSubjectForm.Enter: Boolean;
begin
  with aqrDASubject do
  begin
    close;
    sql.Text := 'select * from DASubject where 1=0';
    open;
    Append;
  end;
  Result := ShowModal = mrOK;
end;

function TDAEdSubjectForm.EnterNew(var Params: Variant): Boolean;
begin
  with aqrDASubject do
  begin
    close;
    sql.Text := 'select * from DASubject where 1=0';
    open;
    Append;
    FieldByName('SubCode').AsString := Params;
  end;
  Result := ShowModal = mrOK;
  if Result then
    Params := aqrDASubject.FieldByName('ID').Value;
end;

procedure TDAEdSubjectForm.OKButtonClick(Sender: TObject);
begin
  inherited;
  aqrDASubject.Post;
  ModalResult := mrOk;
end;

procedure TDAEdSubjectForm.aqrDASubjectBeforePost(
  DataSet: TDataSet);
begin
  inherited;
  if aqrDASubject.State = dsinsert then
  begin
    aqrDASubject.FieldByName('CreateUserID').AsInteger := Guarder.UserID;
  end;
end;

procedure TDAEdSubjectForm.FormCreate(Sender: TObject);
begin
  inherited;
  with CommonData.adsMSCurrency do
  begin
    Close;
    Open;
    Filtered := False;
    Filter := 'RecordState<>' + QuotedStr('删除');
    Filtered := True;
  end;
end;

procedure TDAEdSubjectForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
//var AccountPageID:integer;
begin
  inherited;
  {AccountPageID :=5;
  if DAEdAccountCodeForm.aqrDAAccountCode.FieldByName('BusinessType').AsString='资产类'
     then AccountPageID :=0;
  if DAEdAccountCodeForm.aqrDAAccountCode.FieldByName('BusinessType').AsString='负债类'
     then AccountPageID :=1;
  if DAEdAccountCodeForm.aqrDAAccountCode.FieldByName('BusinessType').AsString='权益类'
     then AccountPageID :=2;
  if DAEdAccountCodeForm.aqrDAAccountCode.FieldByName('BusinessType').AsString='损益类'
     then AccountPageID :=3;
  if DAEdAccountCodeForm.aqrDAAccountCode.FieldByName('BusinessType').AsString='费用成本类'
     then AccountPageID :=4;
  //表外科目类
  case AccountPageID of
    0:DABrAccountCodeForm.PageControl.ActivePageIndex :=0;
    1:DABrAccountCodeForm.PageControl.ActivePageIndex :=1;
    2:DABrAccountCodeForm.PageControl.ActivePageIndex :=2;
    3:DABrAccountCodeForm.PageControl.ActivePageIndex :=3;
    4:DABrAccountCodeForm.PageControl.ActivePageIndex :=4;
    5:DABrAccountCodeForm.PageControl.ActivePageIndex :=5;
  end;    }

end;

end.