pm_fakepc_h.pas

一个MRPII系统源代码版本

unit Pm_FakePc_H;

Interface

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

Type
  TFrm_Pm_FakePc_H = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadFakePcno: TStringField;
    AdoQry_HeadVendorCode: TStringField;
    AdoQry_HeadVendorName: TStringField;
    AdoQry_Headtaxrate: TIntegerField;
    AdoQry_Headhastax: TIntegerField;
    AdoQry_Headpcdate: TDateTimeField;
    AdoQry_Headsignlocation: TStringField;
    AdoQry_HeadpcType: TIntegerField;
    AdoQry_Headpcno: TStringField;
    AdoQry_Headterm1: TStringField;
    AdoQry_Headterm2: TStringField;
    AdoQry_Headterm3: TStringField;
    AdoQry_Headterm4: TStringField;
    AdoQry_Headterm5: TStringField;
    AdoQry_Headterm6: TStringField;
    AdoQry_Headterm7: TStringField;
    AdoQry_Headterm8: TStringField;
    AdoQry_Headterm9: TStringField;
    AdoQry_Headterm10: TStringField;
    procedure Act_DeleteExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Pm_FakePc_H: TFrm_Pm_FakePc_H;

implementation

{$R *.DFM}
uses Pm_FakePc_B,Sys_Global;

procedure TFrm_Pm_FakePc_H.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
var
  tmp_Date:string;
begin
  inherited;
  SelectFromSQL:=
    ' select '+
        'FakePc.FakePcno,'+
        'FakePc.VendorCode,'+
        'Vendor.VendorName,'+
        'FakePc.taxrate,'+
        'FakePc.hastax,'+
        'FakePc.pcdate,'+
        'FakePc.signlocation,'+
        'FakePc.pcType,'+
        'FakePc.pcno,'+
        'FakePc.term1,'+
        'FakePc.term2,'+
        'FakePc.term3,'+
        'FakePc.term4,'+
        'FakePc.term5,'+
        'FakePc.term6,'+
        'FakePc.term7,'+
        'FakePc.term8,'+
        'FakePc.term9,'+
        'FakePc.term10 '+
      ' from FakePc '+
        ' join Vendor on FakePc.VendorCode=Vendor.VendorCode ';
  //当前日期的前6个月
  DateSeparator:='.';
  Shortdateformat:='yyyy.mm.dd';
  tmp_Date:=datetostr(incMonth(strtodate(LoginDate),-6));
  condition:=' FakePc.pcdate>='''+tmp_Date+'''';
  OrderByFields:='VendorName,FakePcno';
  lbl_Order.Caption:='供应商标识，合同号';
  getdata;

  Frm_Entry_Body:=TFrm_Pm_FakePc_B.Create(Self);
end;

procedure TFrm_Pm_FakePc_H.Act_DeleteExecute(Sender: TObject);
begin
  inherited;
  if not AdoQry_Head.IsEmpty then
  begin
    if DispInfo('删除整份合同吗？',2)='y' then
    begin
      AdoQry_Head.Connection.beginTrans;
      try
      AdoQry_tmp.Close;
      AdoQry_tmp.sql.clear;
      AdoQry_tmp.sql.text:=
         ' delete from FakePcline where FakePcno='''+AdoQry_Head.fieldbyname('FakePcno').asstring+''''+
         ' delete from FakePc where FakePcno='''+AdoQry_Head.fieldbyname('FakePcno').asstring+'''';
      AdoQry_tmp.execsql;
      AdoQry_Head.Connection.CommitTrans;
      AdoQry_Head.Delete;
      except
        begin
          AdoQry_Head.Connection.RollBackTrans;
          DispInfo('删除失败，请稍后再试！',1);
        end;
      end;
    end;
  end;
end;

end.