frame_utradebase.pas

来自「企业信息管理系统程序框架」· PAS 代码 · 共 57 行

unit frame_uTradeBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frame_uBase, ComCtrls, ToolWin, ImgList, ExtCtrls,db,frame_utilfunc,
  dcfdes, dcddes;

type
  Tframe_frmTradeBase = class(Tframe_frmBase)
    stat: TStatusBar;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    requestForm: TForm; // 调用窗体
    tradeId: String ; // 交易ID
    TradeName: String; // 交易名称
    TradeRight: String; // 交易权限
  end;

var
  frame_frmTradeBase: Tframe_frmTradeBase;

implementation

{$R *.dfm}

procedure Tframe_frmTradeBase.FormShow(Sender: TObject);
begin
  inherited;
  caption:=TradeName;
end;

procedure Tframe_frmTradeBase.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
  i:integer;
begin
  for i:=0 to Self.ComponentCount-1 do
  begin
   if Self.Components[i] is tdatasource then
   begin
     if (Self.Components[i] as TDataSource).DataSet.State in [dsedit,dsinsert] then
     begin
       canclose:= querydlg('数据已经修改，确定要退出吗?',True);
     end;
   end;
  end;
  inherited;
end;

end.