untotherreceipt.pas

用delphi编写的数据库管理软件

unit untOtherReceipt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseEdit, MSNPopUp, FR_DSet, FR_DBSet, FR_Class, Menus, DB,
  DBClient, ActnList, Grids, DBGridEh, StdCtrls, Mask, wwdbedit, ExtCtrls,
  FR_Desgn, wwdblook, DBCtrlsEh;

type
  TfrmOtherReceipt = class(TfrmBaseEdit)
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    Label6: TLabel;
    wwDBEdit3: TwwDBEdit;
    Label8: TLabel;
    Label12: TLabel;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBEdit6: TwwDBEdit;
    Label13: TLabel;
    Label9: TLabel;
    wwDBEdit4: TwwDBEdit;
    Label3: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label4: TLabel;
    wwDBLookupCombo3: TwwDBLookupCombo;
    Label7: TLabel;
    wwDBLookupCombo4: TwwDBLookupCombo;
    CDShandle: TClientDataSet;
    CDShandlefName: TWideStringField;
    CDShandlefCode: TWideStringField;
    CDShandlefID: TAutoIncField;
    CDShandlefDeptCode: TWideStringField;
    CDShandlefDriveID: TWideStringField;
    CDShandlefSex: TWideStringField;
    CDShandlefPosition: TWideStringField;
    CDShandlefAddress: TWideStringField;
    CDShandlefEmail: TWideStringField;
    CDShandlefTel: TWideStringField;
    CDShandlefMobile: TWideStringField;
    CDShandlefBP: TWideStringField;
    CDShandlefDegree: TWideStringField;
    CDShandlefCollege: TWideStringField;
    CDShandlefBirthAddress: TWideStringField;
    CDShandlefBirthday: TDateTimeField;
    CDShandlefInTime: TDateTimeField;
    CDShandlefOutTime: TDateTimeField;
    CDShandlefMoney: TBCDField;
    CDShandlefStatus: TBooleanField;
    CDShandlefNotes: TWideStringField;
    CDShandlefPicture: TWideStringField;
    CDStype: TClientDataSet;
    CDSObject: TClientDataSet;
    CDSaccount: TClientDataSet;
    CDStypefid: TAutoIncField;
    CDStypefcode: TWideStringField;
    CDStypefname: TWideStringField;
    CDStypefaccounts: TWideStringField;
    CDStypefmaxquota: TBCDField;
    CDSObjectfid: TAutoIncField;
    CDSObjectfCode: TWideStringField;
    CDSObjectfName: TWideStringField;
    CDSObjectfReceiptType: TWideStringField;
    CDSaccountfid: TAutoIncField;
    CDSaccountfcode: TWideStringField;
    CDSaccountfname: TWideStringField;
    CDSaccountftype: TWideStringField;
    CDSaccountfaccounts: TWideStringField;
    CDSaccountfbank: TWideStringField;
    CDSaccountfcreadate: TDateTimeField;
    CDSaccountfinitamount: TBCDField;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CDSBaseinfoBeforePost(DataSet: TDataSet);
    procedure CDSBaseinfoAfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOtherReceipt: TfrmOtherReceipt;

implementation

uses Global, DataProcess;

{$R *.dfm}

procedure TfrmOtherReceipt.FormDestroy(Sender: TObject);
begin
  inherited;
  frmOtherReceipt:=nil;
end;

procedure TfrmOtherReceipt.FormCreate(Sender: TObject);
begin
  inherited;
    iFunctionID:=42;
    MainTable:='tOtherReceipt';
    MainView:='vOtherReceipt';
    KeyField:='fid';
    ReportName:='frOtherReceipt.frf';
end;

procedure TfrmOtherReceipt.acNewExecute(Sender: TObject);
begin
  inherited;
wwDBEdit3.SetFocus; 
end;

procedure TfrmOtherReceipt.FormShow(Sender: TObject);
begin
  inherited;
  GetSqlData(CDShandle,'tEmployee','fid','fid>0',20);
  GetsqlData(CDStype,'tReceiptPayType','fid','fid>0',20);
  GetsqlData(CDSObject,'tReceiptType','fid',' fReceiptType = '+vartosql('收入类型'),20);
  GetsqlData(CDSAccount,'tCash','fid','fid>0',20);  
end;

procedure TfrmOtherReceipt.CDSBaseinfoBeforePost(DataSet: TDataSet);
begin
  inherited;
with CDSBaseinfo do
begin
if VarisNUll(FieldValues['fsource']) then
   Raise Exception.Create('来源不能为空 ！');
if VarisNUll(FieldValues['fdate']) then
   Raise Exception.Create('收款时间不能为空 ！');
if VarisNUll(FieldValues['famount']) then
   Raise Exception.Create('收款金额不能为空 ！');
if VarisNUll(FieldValues['fhandle']) then
   Raise Exception.Create('经手人不能为空 ！');
end;
end;

procedure TfrmOtherReceipt.CDSBaseinfoAfterPost(DataSet: TDataSet);
begin
  inherited;
if FormStatus = 'Add' then
  WriteBalance(1,8,CDSBaseinfo.fieldbyname('fno').AsString,self.Caption,
                  0,
                  CDSBaseinfo.fieldbyname('fRemark').AsString+'--其它收款',
                  0,
                  0,
                  0,
                  CDSBaseinfo.FieldByName('famount').AsFloat,
                  0,
                  0,
                  0,
                  0,
                  0);
if FormStatus = 'Edit' then
  WriteBalance(2,8,CDSBaseinfo.fieldbyname('fno').AsString,self.Caption,
                  0,
                  CDSBaseinfo.fieldbyname('fRemark').AsString+'--其它收款',
                  0,
                  0,
                  0,
                  CDSBaseinfo.FieldByName('famount').AsFloat,
                  0,
                  0,
                  0,
                  0,
                  0);
end;

end.