Обновление формы (инициализация нового запроса)

unit KassaSSPhoto;
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, OracleData, Oracle, ExtCtrls, StdCtrls, ComCtrls, kbmMemTable, JPEG, DBTables;
 
type
  TfmKassaSSPhoto = class(TForm)
    odsFill: TOracleDataSet;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    Timer1: TTimer;
    grp2: TGroupBox;
    img1: TImage;
    lst1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure lst1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender:TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
 
  private
    { Private declarations }
  public
    procedure  ChangeList;
    procedure recount;
    function maxNumphoto: Integer;
    { Public declarations }
  end;
 
var
  frmKassaSSPhoto: TfmKassaSSPhoto;
  rn_: extended;
  mtPhoto: TkbmMemTable;
 
implementation
 
uses General,kassass;
 
{$R *.dfm}
 
procedure TfmKassaSSPhoto.FormCreate(Sender: TObject);
begin
  mtPhoto := TkbmMemTable.Create(nil);
  mtPhoto.FieldDefs.Add('rn', ftFloat);
  mtPhoto.FieldDefs.Add('nomen', ftFloat);
  mtPhoto.FieldDefs.Add('data', ftBlob);
  mtPhoto.FieldDefs.Add('photonum', ftFloat);
  mtPhoto.FieldDefs.Add('isdel', ftFloat);
  mtPhoto.IndexDefs.Add('ind1', 'photonum', []);
  mtPhoto.Open;
  with odsFill do
    try
      SetVariable('nomen', rn_);
      close;
      Open;
      mtPhoto.LoadFromDataSet(odsFill, [mtcpoAppend]);
      if recordcount > 0 then
      begin
        lst1.Items.Clear;
        while not odsFill.Eof do
        begin
          if FieldValues['photonum'] <> null then
            lst1.Items.Add(FieldValues['photonum']);
          Next;
        end;
        lst1.ItemIndex := 0;
        ChangeList;
      end;
      //mtPhoto.SaveToFile('c:\fff.txt',[mtfSaveData]);
    except
      on E: Exception do
      begin
        PlayWav('Error');
        MessageDlg('Не удалось открыть запись !' + ErrorCut(chr(13) + E.message), mtError, [mbOK], 0);
      end;
    end;
      if odsFill.RecordCount > 0 then
        showmodal;
  begin
    KeyPreview:=true;
  end;
end;
 
procedure TfmKassaSSPhoto.lst1Click(Sender: TObject);
begin
  ChangeList;
end;
 
procedure TfmKassaSSPhoto.ChangeList;
var
  S: TStream;
  jgp: TJPEGImage;
  num: Extended;
begin
  num := lst1.ItemIndex + 1;
  mtPhoto.IndexName := 'ind1';
  if mtPhoto.FindKey([num]) then
    while (not mtPhoto.Eof) and (mtPhoto.FieldByName('photonum').AsFloat = num) do
    begin
      jgp := TJPEGImage.Create;
      S := mtPhoto.CreateBlobStream(mtPhoto.FieldByName('data'), bmRead);
      jgp.LoadFromStream(S);
      Img1.Picture.Assign(jgp);
      S.Free;
      jgp.Free;
      mtPhoto.Next;
    end;
end;
function TfmKassaSSPhoto.maxNumphoto: Integer;
var
  i, i0: Integer;
begin
  i0 := 0;
  if lst1.Items.Count > 0 then
  begin
    i0 := StrToInt(lst1.Items[0]);
    for i := 0 to lst1.count - 1 do
    begin
      if i0 <= StrToInt(lst1.Items[i]) then
        i0 := StrToInt(lst1.Items[i]);
    end;
  end;
  Result := i0;
end;
 
procedure TfmKassaSSPhoto.recount;
var
  i, i0: Integer;
begin
  i := 1;
  mtPhoto.First;
  while not mtPhoto.Eof do
  begin
    if mtPhoto.FieldByName('isdel').AsFloat = 0 then
    begin
      mtPhoto.Edit;
      mtPhoto.FieldByName('photonum').AsFloat := i;
      mtPhoto.Post;
      inc(i);
    end;
    mtPhoto.Next;
  end;
end;
 
procedure TfmKassaSSPhoto.FormShow(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer1.Enabled:=true;
end;
 
procedure TfmKassaSSPhoto.Timer1Timer(Sender:TObject);
begin
Close;
end;
 
procedure TfmKassaSSPhoto.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Close;
end;
 
procedure TfmKassaSSPhoto.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 34 then close;
end;
end.