gl_qry_credence.pas

一个MRPII系统源代码版本

unit Gl_Qry_Credence;

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_Qry_Credence = Class(TFrm_Base_Outer)
    AdoQry_MainCredenceDate: TDateTimeField;
    AdoQry_MainCredenceid: TAutoIncField;
    AdoQry_MainCharacterNo: TStringField;
    AdoQry_MainkmCode: TStringField;
    AdoQry_MainkmName: TStringField;
    AdoQry_MainDebitAmount: TFloatField;
    AdoQry_MainCreditAmount: TFloatField;
    AdoQry_MaInBillAmount: TIntegerField;
    AdoQry_MainCreateEmployeeCode: TStringField;
    AdoQry_MaincreateEmployeeName: TStringField;
    AdoQry_MainCashierEmployeeCode: TStringField;
    AdoQry_MainCashierEmployeeName: TStringField;
    AdoQry_MainTallyEmployeeCode: TStringField;
    AdoQry_MainTallyEmployeeName: TStringField;
    AdoQry_MainAssessorEmployeeCode: TStringField;
    AdoQry_MainAssessorEmployeeName: TStringField;
    AdoQry_MainDocketName: TStringField;
    AdoQry_MainFCurrencyRate: TFloatField;
    AdoQry_MainFDebitAmount: TFloatField;
    AdoQry_MainFCreditAmount: TFloatField;
    AdoQry_MainAmount: TFloatField;
    AdoQry_MainPrice: TFloatField;
    AdoQry_MainDepArtCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainPersonEmployeeCode: TStringField;
    AdoQry_MainPersonEmployeeName: TStringField;
    AdoQry_MaincustomerCode: TStringField;
    AdoQry_MaincustomerName: TStringField;
    AdoQry_MaInvendorCode: TStringField;
    AdoQry_MaInvendorName: TStringField;
    AdoQry_MainBalanceTypeCode: TStringField;
    AdoQry_MainBalanceTypeName: TStringField;
    AdoQry_MaInBillNo: TStringField;
    AdoQry_MainCredenceno: TStringField;
    procedure Act_FilterExecute(Sender: TObject);
    procedure Act_LookExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Gl_Qry_Credence: TFrm_Gl_Qry_Credence;

implementation

uses Gl_Enter_Credence;



{$R *.DFM}

{ TFrm_Gl_Qry_Credence }

procedure TFrm_Gl_Qry_Credence.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSQL:='select * from Vw_Gl_Qry_Credence';
  OrderByFields:='CredenceDate, CredenceNo';
  Lbl_Condition.Caption:='(全部)';
  Lbl_Order.Caption:='记帐日期/凭证号';
  GetData;
end;

procedure TFrm_Gl_Qry_Credence.Act_FilterExecute(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to DBGridEh.Columns.Count-1 do
    DBGridEh.Columns[i].Field.Origin:='Vw_Gl_Qry_Credence';
  inherited;                                                    
end;

procedure TFrm_Gl_Qry_Credence.Act_LookExecute(Sender: TObject);
begin
  inherited;
  with AdoQry_Tmp do
  begin
    Close;
    Sql.clear;
    Sql.Add(' Select Convert(Integer,0) As CheckFlag,Gl_Credence.*,Gl_CredenceType.CharacterName,Gl_CredenceType.CharacterCode+''-''+Convert(varchAr,Gl_Credence.CredenceNo) As Gl_CredenceCodeNo,');
    Sql.Add(' A.EmployeeName As CreateEmployeeName,Gl_CredenceType.CharacterCode,');
    Sql.Add(' Gl_Credence.CreateEmployeeCode+'' ''+A.EmployeeName As CreateEmployeeFlag,');
    Sql.Add(' B.EmployeeName As CashierEmployeeName,Gl_Credence.CashierEmployeeCode+'' ''+B.EmployeeName As CashierFlag,');
    Sql.Add(' C.EmployeeName As TallyEmployeeName,Gl_Credence.TallyEmployeeCode+'' ''+C.EmployeeName As TallyerFlag,');
    Sql.Add(' D.EmployeeName As AssessorEmployeeName,Gl_Credence.AssessorEmployeeCode+'' ''+D.EmployeeName As AssessorFlag');
    Sql.Add(' From Gl_Credence');
    Sql.Add(' Join Gl_CredenceType');
    Sql.Add(' On Gl_Credence.CharacterNo = Gl_CredenceType.CharacterNo');
    Sql.Add(' Left Join Employee A');
    Sql.Add(' On Gl_Credence.CreateEmployeeCode = A.EmployeeCode');
    Sql.Add(' Left Join Employee B');
    Sql.Add(' On Gl_Credence.CashierEmployeeCode = B.EmployeeCode');
    Sql.Add(' Left Join Employee C');
    Sql.Add(' On Gl_Credence.TallyEmployeeCode = C.EmployeeCode');
    Sql.Add(' Left Join Employee D');
    Sql.Add(' On Gl_Credence.AssessorEmployeeCode = D.EmployeeCode');
    sql.Add(' where Credenceid='+quotedstr(AdoQry_Main.fieldbyname('Credenceid').asstring));
    open;
  end;
  If Frm_Gl_Enter_Credence=nil then
  begin
    Frm_Gl_Enter_Credence:=TFrm_Gl_Enter_Credence.Create(Application);
    Frm_Gl_Enter_Credence.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
    Frm_Gl_Enter_Credence.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
    Frm_Gl_Enter_Credence.InitForm(DBConnect,'Query',AdoQry_tmp);
  end;
  Frm_Gl_Enter_Credence.ShowModal;
end;

end.