gl_enter_cashway.pas

一个MRPII系统源代码版本

unit Gl_Enter_CashWay;

Interface

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

Type
  TFrm_Gl_Enter_CashWay = Class(TFrm_Base_Outer)
    AdoQry_MainCredencedate: TDateTimeField;
    AdoQry_MainCredenceType: TIntegerField;
    AdoQry_MainkmCode: TStringField;
    AdoQry_MainkmName: TStringField;
    AdoQry_MaindebitAmount: TFloatField;
    AdoQry_MaincreditAmount: TFloatField;
    AdoQry_MaindocketName: TStringField;
    AdoQry_MainCredenceid: TAutoIncField;
    AdoQry_MainGl_Credencelineno: TIntegerField;
    AdoQry_MainCashWay: TStringField;
    AdoQry_MainprojectName: TStringField;
    AdoQry_MainCredenceno: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    cashkmCode:string;
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    function SetDeleteSql:String;Override;
    { Public declarations }
  end;

var
  Frm_Gl_Enter_CashWay: TFrm_Gl_Enter_CashWay;

implementation
uses Gl_Enter_CashWay_D,Sys_Global;
{$R *.DFM}

{ TFrm_Ar_Enter_Gathering }

procedure TFrm_Gl_Enter_CashWay.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  Application.ProcessMessages;
  extendCaption:=False;
  cashkmCode:='';
  Inherited;
  Executesql(AdoQry_tmp,'select kmCode from Gl_AccountSubject where kmName=''现金''',0);
  cashkmCode:=AdoQry_tmp.fieldbyname('kmCode').asstring;
  selectfromsql:='select Credencedate,     '
                 +'        Gl_Credence.Credenceid,   '
                 +'        Gl_Credence.Credenceno,   '
                 +'        CredenceType,    '
                 +'        CashWay,         '
                 +'        Gl_CashReport.projectName, '
                 +'        Gl_Credenceline.Gl_Credencelineno,'
                 +'        Gl_Credenceline.kmCode,       '
                 +'        kmName,          '
                 +'        debitAmount,     '
                 +'        creditAmount,    '
                 +'        docketName       '
                 +' from  Gl_Credenceline  '
                 +' join Gl_Credence on Gl_CredenceLine.Credenceid=Gl_Credence.CredenceId '
                 +' Left Join Gl_AccountSubject on Gl_CredenceLine.KmCode=Gl_AccountSubject.KmCode '
                 +' Left Join Gl_CashReport on Gl_CredenceLine.CashWay=Gl_CashReport.projectCode ';
  conditionuserDefine:=' Gl_Credenceline.kmCode='+quotedstr(cashkmCode);
{  selectfromsql:='select Credencedate,     '
                 +'        Gl_Credence.Credenceid,   '
                 +'        Gl_Credence.Credenceno,   '
                 +'        CredenceType,    '
                 +'        CashWay,         '
                 +'        Gl_CashReport.projectName, '
                 +'        Gl_Credenceline.Gl_Credencelineno,'
                 +'        Gl_Credenceline.kmCode,       '
                 +'        kmName,          '
                 +'        debitAmount,     '
                 +'        creditAmount,    '
                 +'        docketName       '
                 +' from  Gl_Credence ,Gl_Credenceline ,Gl_AccountSubject  ';
  conditionuserDefine:='  Gl_Credence.Credenceid=Gl_Credenceline.Credenceid  '
                 +'   and Gl_Credenceline.kmCode=Gl_AccountSubject.kmCode       '
                 +'   and Gl_CashReport.projectCode=Gl_Credenceline.CashWay       '
                 +'   and Gl_Credenceline.kmCode='+quotedstr(cashkmCode);}

  //condition:='   Gl_Credenceline.CashWay is null ';
  AdoQry_Main.Connection:=AdOConnection;
  Orderbyfields:='Credencedate,Credenceno';
  getdata;
  Frm_Sys_Detail:=TFrm_Gl_Enter_CashWay_D.Create(Application);
end;

procedure TFrm_Gl_Enter_CashWay.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Gl_Enter_CashWay:=nil;
end;

function TFrm_Gl_Enter_CashWay.SetDeleteSql: String;
begin
  Result:='';
end;

end.