singlemodelform.pas

实达企业在线EOL源码

unit SingleModelForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RootForm, SingleBillFrame, SingleFrame, Db, ExtCtrls,
  StdCtrls;

type
  TSingleModelFrm = class(TRootFrm)
    SingleFrame1: TSingleFrame;
    dsMast: TDataSource;
    SingleBillFrame1: TSingleBillFrame;
    Panel2: TPanel;
    procedure FormShow(Sender: TObject);
    procedure dsMastStateChange(Sender: TObject);
    procedure SingleBillFrame1BtnNewClick(Sender: TObject);
    procedure SingleBillFrame1BtnDeleteClick(Sender: TObject);
    procedure SingleBillFrame1BtnSaveClick(Sender: TObject);
    procedure SingleBillFrame1BtnCancelClick(Sender: TObject);
    procedure SingleBillFrame1BtnExitClick(Sender: TObject);
    procedure SingleBillFrame1BtnFirstClick(Sender: TObject);
    procedure SingleBillFrame1BtnPriorClick(Sender: TObject);
    procedure SingleBillFrame1BtnNextClick(Sender: TObject);
    procedure SingleBillFrame1BtnLastClick(Sender: TObject);
    procedure SingleBillFrame1BtnSearchClick(Sender: TObject);
    procedure SingleBillFrame1BtnHelpClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FDataChanged: Boolean;
  public
    { Public declarations }
    property DataChanged: Boolean read FDataChanged default False;
  end;

var
  SingleModelFrm: TSingleModelFrm;

implementation

{$R *.DFM}

procedure TSingleModelFrm.FormShow(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.DataSource := dsMast;
  FDataChanged := False;
  if self.BorderStyle = bsNone then
  begin
    Panel2.Left := 32;
    Panel2.Top := 70;
    Panel2.Width := Width - Panel2.Left - 36;
    Panel2.Height := Height - Panel2.Top - 40
  end;
end;

procedure TSingleModelFrm.dsMastStateChange(Sender: TObject);
begin
  inherited;
  if dsMast.Dataset = nil then Exit;
  SingleBillFrame1.BtnSave.Enabled := dsMast.Dataset.State in [dsInsert,dsEdit];
  SingleBillFrame1.BtnCancel.Enabled := dsMast.Dataset.State in [dsInsert,dsEdit];
  SingleBillFrame1.BtnNew.Enabled := not (dsMast.Dataset.State in [dsInsert,dsEdit]);
  SingleBillFrame1.BtnDelete.Enabled := not (dsMast.Dataset.State in [dsInsert,dsEdit]);
end;


procedure TSingleModelFrm.SingleBillFrame1BtnExitClick(Sender: TObject);
var
  SaveChanged : Boolean;
begin
  SaveChanged := SingleBillFrame1.ProcessExit;
  FDataChanged := FDataChanged or SaveChanged;
  Close;
end;

procedure TSingleModelFrm.SingleBillFrame1BtnFirstClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnFirstClick(Sender);
  FDataChanged := True;
end;

procedure TSingleModelFrm.SingleBillFrame1BtnPriorClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnPriorClick(Sender);
  FDataChanged := True;
end;

procedure TSingleModelFrm.SingleBillFrame1BtnNextClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnNextClick(Sender);
  FDataChanged := True;
end;

procedure TSingleModelFrm.SingleBillFrame1BtnLastClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnLastClick(Sender);
  FDataChanged := True;
end;

procedure TSingleModelFrm.SingleBillFrame1BtnSearchClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnSearchClick(Sender);
end;

procedure TSingleModelFrm.SingleBillFrame1BtnNewClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnNewClick(Sender);
end;

procedure TSingleModelFrm.SingleBillFrame1BtnDeleteClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnDeleteClick(Sender);
  FDataChanged := True;
end;

procedure TSingleModelFrm.SingleBillFrame1BtnSaveClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnSaveClick(Sender);
  FDataChanged := True;
end;

procedure TSingleModelFrm.SingleBillFrame1BtnCancelClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnCancelClick(Sender);
end;

procedure TSingleModelFrm.SingleBillFrame1BtnHelpClick(Sender: TObject);
begin
  inherited;
  SingleBillFrame1.BtnHelpClick(Sender);
end;

procedure TSingleModelFrm.FormCreate(Sender: TObject);
begin
  inherited;
//  GetImageFromDLL(EOL_RESOURCEDLL,BACK_IMAGE,SingleFrame1.Image1);
end;

end.