stk_enter_checkinvbillh.pas

一个MRPII系统源代码版本

unit Stk_Enter_CheckInvBillH;

Interface

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

Type
  TFrm_Stk_Enter_CheckInvBillH = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadInvBillNo: TStringField;
    AdoQry_HeadDeptCode: TStringField;
    AdoQry_HeadInvBillDate: TDateTimeField;
    AdoQry_HeadWhCode: TStringField;
    AdoQry_HeadWhPositionCode: TStringField;
    AdoQry_HeadCheckEmployeeCode: TStringField;
    AdoQry_HeadIsPassEmplyee: TIntegerField;
    AdoQry_HeadPassEmployeeCode: TStringField;
    AdoQry_HeadInAccountDate: TDateTimeField;
    AdoQry_HeadInvBillNo_In: TStringField;
    AdoQry_HeadRemArk: TStringField;
    AdoQry_HeadTmpField: TIntegerField;
    AdoQry_HeadCreateEmployeeCode: TStringField;
    AdoQry_HeadCreateDate: TDateTimeField;
    AdoQry_HeadEdItEmployeeCode: TStringField;
    AdoQry_HeadEditDate: TDateTimeField;
    AdoQry_HeadDeptName: TStringField;
    AdoQry_HeadwhName: TStringField;
    AdoQry_HeadWhPositionName: TStringField;
    AdoQry_HeadchEmployeeName: TStringField;
    AdoQry_HeadpsEmployeeName: TStringField;
    AdoQry_HeadCREmployeeName: TStringField;
    AdoQry_HeadedTEmployeeName: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure Act_ModifyExecute(Sender: TObject);
    procedure Act_DeleteExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function SetDeleteSql:String;Override;
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);OverRide;    
  end;

var
  Frm_Stk_Enter_CheckInvBillH: TFrm_Stk_Enter_CheckInvBillH;

implementation

uses Stk_Enter_CheckInvBill, Sys_Global;

{$R *.DFM}

{ TFrm_Stk_Enter_CheckInvBillH }

procedure TFrm_Stk_Enter_CheckInvBillH.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Inv_CheckInvBill.*,'+
                        ' Dept.DeptName, '+
                        ' Warehouse.whName,'+
                        ' WhPosition.WhPositionName,'+
                        ' chEmployee.EmployeeName as chEmployeeName,'+
                        ' psEmployee.EmployeeName as psEmployeeName,'+
                        ' CREmployee.EmployeeName as CREmployeeName,'+
                        ' edTEmployee.EmployeeName as edTEmployeeName'+
                 ' from Inv_CheckInvBill '+
                 ' left join Dept  on Inv_CheckInvBill.DeptCode=Dept.DeptCode '+
                 ' left join Warehouse on Inv_CheckInvBill.whCode=Warehouse.whCode '+
                 ' left join WhPosition '+
                      ' on Inv_CheckInvBill.WhPositionCode=WhPosition.WhPositionCode '+
                 ' left join (select * from Employee) chEmployee '+
                      ' on Inv_CheckInvBill.CheckEmployeeCode=chEmployee.EmployeeCode '+
                 ' left join (select * from Employee) PsEmployee '+
                      ' on Inv_CheckInvBill.PassEmployeeCode=PsEmployee.EmployeeCode '+
                 ' left join (select * from Employee) CREmployee '+
                      ' on Inv_CheckInvBill.CreateEmployeeCode=CrEmployee.EmployeeCode'+
                 ' left join (select * from Employee) edTEmployee '+
                      ' on Inv_CheckInvBill.EdItEmployeeCode=edTEmployee.EmployeeCode';
  OrderByFields:='InvBillNo';
  GetData;
  Frm_Entry_Body:=TFrm_Stk_Enter_CheckInvBill.Create(Self);
end;

procedure TFrm_Stk_Enter_CheckInvBillH.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Stk_Enter_CheckInvBillH:=nil;
end;

procedure TFrm_Stk_Enter_CheckInvBillH.Act_ModifyExecute(Sender: TObject);
begin
  if AdoQry_Head.fieldbyname('IsPassEmplyee').asinteger=1 then
  begin
    DispInfo('此盘点单已批准不能修改！',3);
    abort;
  end;
  inherited;
end;

procedure TFrm_Stk_Enter_CheckInvBillH.Act_DeleteExecute(Sender: TObject);
begin
  if AdoQry_Head.fieldbyname('IsPassEmplyee').asinteger=1 then
  begin
    DispInfo('此盘点单已批准不能删除',3);
    abort;
  end;
  inherited;
  dbconnect.beginTrans;
  try
    Executesql(AdoQry_tmp,'delete Inv_CheckInvBillline where InvBillNo='''+AdoQry_Head.fieldbyname('InvBillNo').asstring+''''
        + '  delete Inv_CheckInvBill where InvBillNo='''+AdoQry_Head.fieldbyname('InvBillNo').asstring+'''',1);
    dbconnect.CommitTrans ;
    AdoQry_Head.Delete;
  except
    dbconnect.RollBackTrans ;
    DispInfo(' 删除失败！',3);
    abort;
  end;

end;

function TFrm_Stk_Enter_CheckInvBillH.SetDeleteSql: String;
begin

end;

end.