ap_subap.pas

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

unit Ap_SubAp;
//         
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_Ap_SubAp = Class(TFrm_Base_Outer)
    AdoQry_MainSubApCode: TStringField;
    AdoQry_MainSubApName: TStringField;
    AdoQry_MainbeginDay: TIntegerField;
    AdoQry_MainendDay: TIntegerField;
    procedure FormDestroy(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
    procedure Act_DeleteExecute(Sender: TObject);
    procedure DBGridEhDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initform(AdOConnection:TAdOConnection;ReadOnly:boolean);Override;
    function SetDeleteSql:String;Override;
  end;

var
  Frm_Ap_SubAp: TFrm_Ap_SubAp;

implementation
uses Ap_SubAp_D;
{$R *.DFM}

procedure TFrm_Ap_SubAp.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_SubAp:=nil;
end;

procedure TFrm_Ap_SubAp.initform(AdOConnection: TAdOConnection;
  ReadOnly: boolean);
begin
  inherited;
  SelectFromSQL:='select * from SubAp';
  OrderByFields:='SubApCode';
  GetData;
  Frm_Sys_Detail:=TFrm_Ap_SubAp_D.Create(Application);
end;

function TFrm_Ap_SubAp.SetDeleteSql: String;
begin
  Result:='delete from SubAp ' ;
end;

procedure TFrm_Ap_SubAp.DataSourceDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  Pnl_Hint.Caption:='提示：共计有'+inttostr(AdoQry_Main.recordCount)+'记录';
end;

procedure TFrm_Ap_SubAp.Act_DeleteExecute(Sender: TObject);
begin
  inherited;
  GetData;
end;

procedure TFrm_Ap_SubAp.DBGridEhDblClick(Sender: TObject);
begin
//  inherited;
end;

end.