ar_enter_startbalance.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 75 行

unit Ar_Enter_StArtBalance;

Interface

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

Type
  TFrm_Ar_Enter_StArtBalance = Class(TFrm_Base_Outer)
    AdoQry_MaincustomerCode: TStringField;
    AdoQry_MaincustomerName: TStringField;
    AdoQry_MainBalanceYearMonth: TStringField;
    AdoQry_MainInvoiceAmount: TFloatField;
    AdoQry_MainNoInvoiceAmount: TFloatField;
    AdoQry_MainremArk: TStringField;
    AdoQry_MainBalanceid: TAutoIncField;
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
     function SetDeleteSql:String;Override;
  end;

var
  Frm_Ar_Enter_StArtBalance: TFrm_Ar_Enter_StArtBalance;

implementation
uses Ar_Enter_StArtBalance_D;
{$R *.DFM}

{ TFrm_Mrp_Enter_MsItemAssign }

procedure TFrm_Ar_Enter_StArtBalance.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
Application.ProcessMessages;
Inherited;
selectfromsql:='select  sa_ArBalance.Balanceid,sa_ArBalance.customerCode,     '
         +'        customer.customerName,        '
         +'        BalanceYearMonth,             '
        +'        InvoiceAmount,                '
         +'        NoInvoiceAmount,              '
         +'        remArk                         '
         +' from sa_ArBalance                    '
       +' join customer on sa_ArBalance.customerCode=customer.customerCode';
AdoQry_Main.Connection:=AdOConnection;
getdata;
Frm_Sys_Detail:=TFrm_Ar_Enter_StArtBalance_D.Create(Application);
end;

procedure TFrm_Ar_Enter_StArtBalance.FormDestroy(Sender: TObject);
begin
  inherited;
   Frm_Ar_Enter_StArtBalance:=nil;
end;

function TFrm_Ar_Enter_StArtBalance.SetDeleteSql: String;
begin
  Result:='delete from sa_ArBalance where BalanceYearMonth='+quotedstr(AdoQry_Main.fieldbyname('BalanceYearMonth').asstring)
         +'  and customerCode='+quotedstr(AdoQry_Main.fieldbyname('customerCode').asstring);
end;

procedure TFrm_Ar_Enter_StArtBalance.FormShow(Sender: TObject);
begin
  inherited;
ExtendCaption:=False;
end;

end.