Файл: Проектирование реализации операций бизнес- процесса «Движение библиотечного фонда».pdf

HTMLStr.SaveToFile({'c:\1.html'}path);

HTMLStr.Free;

Form1.Table1.Filtered:=false;

ShellExecute(Application.MainForm.Handle,PChar('open'),PChar({'c:\1.html'}path),nil,nil,SW_SHOWNORMAL);

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,unit1, Mask,DB, DBTables, ComCtrls,ShellAPI;

type

TForm3 = class(TForm)

Button1: TButton;

MaskEdit1: TMaskEdit;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

MaskEdit3: TMaskEdit;

MaskEdit2: TMaskEdit;

Label5: TLabel;

MaskEdit4: TMaskEdit;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin //Добавление еще одной взятой книги к списку

//взятых ранее

if (trim(Edit1.Text)<>'') and (trim(MaskEdit1.Text)='') then

begin

if Form1.Table1.Locate('Title',trim(Edit1.Text),[])=true then

MaskEdit1.Text:=trim(Form1.Table1.FieldByName('Number').AsString)

else MessageDlg('Книга с таким названием не существует!',mtError,[mbOK],0);

end;

if trim(MaskEdit1.Text)='' then Abort;

if Form1.Table1.Locate('Number',trim(MaskEdit1.Text),[])=false then

begin

MessageDlg('Книга с таким номером не существует!',mtError,[mbOK],0);

Abort;

end;

Form1.Table3.IndexName:='';

Form1.Table3.IndexFieldNames:='';

Form1.Table3.MasterFields:='';

Form1.Table3.First;

if Form1.Table3.Locate('Number',trim(MaskEdit1.Text),[])=true then

begin

MessageDlg('Книга с таким номером уже внесена!',mtError,[mbOK],0);

Form1.Table3.IndexName:='qqq';

Form1.Table3.IndexFieldNames:='Number_R';

Form1.Table3.MasterFields:='Number';

Abort;

end;

Form1.Table3.IndexName:='qqq';

Form1.Table3.IndexFieldNames:='Number_R';

Form1.Table3.MasterFields:='Number';

if {(MaskEdit3.Text=' . . ') or} (MaskEdit2.Text=' . . ') then

begin

MessageDlg('Введите дату!',mtError,[mbOK],0);

Abort;

end;

{if MaskEdit3.Text=' . . ' then} MaskEdit3.Text:=datetostr(Date);

try

{strtodate(trim(MaskEdit3.Text));}

strtodate(trim(MaskEdit2.Text));

except

MessageDlg('Неверный ввод даты!',mtError,[mbOK],0);

Abort;

end;

Form1.Table1.Locate('Number',trim(MaskEdit1.Text),[]);

Edit1.Text:=Form1.Table1.FieldByName('Title').AsString;

Form1.Table3.Insert;

Form1.Table3.FieldByName('Number').AsInteger:=strtoint(trim(MaskEdit1.Text));

Form1.Table3.FieldByName('Title').AsString:=trim(Edit1.Text);

Form1.Table3.FieldByName('Date_out').AsString :=trim(MaskEdit3.Text);

Form1.Table3.FieldByName('Date_return').AsString:=trim(MaskEdit2.Text);

{Form1.Table3.FieldByName('Fine').AsInteger:=strtoint(trim(MaskEdit4.Text));}

Form1.Table3.Post;

end;

procedure TForm3.Button2Click(Sender: TObject);

var i2,t,i3:integer;HTMLStr: TStringList;

n_r: array [1..100000] of integer;

path:string;

begin //Сохранение в файл и вывод на экран

//всех читателей которые должны сдать книги в

//определенную дату

t:=-10;

i3:=1;

if (MaskEdit2.Text=' . . ') then

begin

MessageDlg('Введите дату!',mtError,[mbOK],0);

Abort;

end;

try

strtodate(trim(MaskEdit2.Text));

except

MessageDlg('Неверный ввод даты!',mtError,[mbOK],0);

Abort;

end;

Form1.Table3.IndexName:=''; //

Form1.Table3.IndexFieldNames:='';

Form1.Table3.MasterFields:='';

{Form1.Table3.FilterOptions:=[foCaseInsensitive];}

Form1.Table3.Filter:='Date_return='''+{QuotedStr(MaskEdit2.Text)}MaskEdit2.Text+'''';