uxsrbcx1.pas

相关的销售服务管理行业的一个软件

unit Uxsrbcx1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FindFrameFrm, Db, ADODB, ActnList, Grids, DBGridEh, StdCtrls, Buttons,
  ComCtrls, jpeg, ExtCtrls;

type
  TFindFrameForm1 = class(TFindFrameForm)
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FindFrameForm1: TFindFrameForm1;

implementation

uses Ufunction, Umain;

{$R *.DFM}

procedure TFindFrameForm1.FormShow(Sender: TObject);
begin
  inherited;
Seek(DBGridEh1,'s_qrdetail', '600','xs_rbd','location='+''''+'d'+'''');
end;

procedure TFindFrameForm1.FormActivate(Sender: TObject);
begin
  inherited;
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
  
end;

procedure TFindFrameForm1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  findframeform1:=nil;
  action:=cafree;
end;

end.