gl_enter_moreaccountbookh.pas

一个MRPII系统源代码版本

unit Gl_Enter_MoreAccountBookH;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Entry_Head, Menus, Db, ActnList, AdODB, Grids, DBGridEh, StdCtrls,
  ExtCtrls, ComCtrls, ToolWin;

Type
  TFrm_Gl_Enter_MoreAccountBookH = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadAccountBookCode: TStringField;
    AdoQry_HeadkmCode: TStringField;
    AdoQry_HeadkmName: TStringField;
    AdoQry_HeadAccountBookName: TStringField;
    procedure Act_DeleteExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private

    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Gl_Enter_MoreAccountBookH: TFrm_Gl_Enter_MoreAccountBookH;

implementation

uses Gl_Enter_MoreAccountBook, Sys_Global;

{$R *.DFM}

{ TFrm_Gl_Enter_ForeignCurrencyRateH }

procedure TFrm_Gl_Enter_MoreAccountBookH.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
Application.ProcessMessages;
  inherited;
  SelectFromSql:=' select AccountBookCode,   '
                 +'        AccountBookName,   '
                 +'        Gl_MoreAccountBook.kmCode, '
                 +'        Gl_AccountSubject.kmName   '
                 +' from Gl_MoreAccountBook           '
                 +' left join Gl_AccountSubject on Gl_MoreAccountBook.kmCode=Gl_AccountSubject.kmCode  ';
  OrderByFields:=' AccountBookCode ';
  GetData;
  Frm_Entry_Body:=TFrm_Gl_Enter_MoreAccountBook.Create(Application);
end;

procedure TFrm_Gl_Enter_MoreAccountBookH.Act_DeleteExecute(
  Sender: TObject);
var sqltext:string;
begin
  if(not AdoQry_Head.IsEmpty)and
    (DispInfo(' 真的删除当前记录吗？ ',2)='y')then
  begin
    try
      DbConnect.beginTrans;
      sqltext:=' select * from  Gl_MoreAccountBookLine '
                            +'     Where   AccountBookCode='''+AdoQry_Head.fieldbyname('AccountBookCode').AsString+''' ' ;
      Executesql(AdoQry_tmp,sqltext,0);
      while not AdoQry_tmp.Eof do
       begin
        saveMoreAccountBookLineHistory(dbconnect,AdoQry_tmp.fieldbyname('AccountBookCode').asstring,AdoQry_tmp.fieldbyname('kmCode').asstring,userCode,2);
        AdoQry_tmp.Next;
       end;
      sqltext:= ' Delete Gl_MoreAccountBookLine '
                            +'     Where   AccountBookCode='''+AdoQry_Head.fieldbyname('AccountBookCode').AsString+''' ' ;
      Executesql(AdoQry_tmp,sqltext,1);
      saveMoreAccountBookHistory(dbconnect,AdoQry_Head.fieldbyname('AccountBookCode').asstring,userCode,2);
      
      sqltext := ' Delete Gl_MoreAccountBook '
                            +'     Where   AccountBookCode='''+AdoQry_Head.fieldbyname('AccountBookCode').AsString+''' ' ;
      Executesql(AdoQry_tmp,sqltext,1);
      DbConnect.CommitTrans;
      AdoQry_Head.Delete;

    except
      DbConnect.RollBackTrans ;
      DispInfo(' 无法删除当前记录，可能已经被其他数据表引用！',1);
      Abort;
    end;
  end;
end;


procedure TFrm_Gl_Enter_MoreAccountBookH.FormDestroy(Sender: TObject);
begin
  inherited;
 Frm_Gl_Enter_MoreAccountBookH:=nil;
end;

end.