Дипломная работа: Автоматизация обработки заявок в центре коллективного пользования "ГЕОАНАЛИТИК" ИГГ УРО РАН

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

127

AssignFile(f1, 'name.txt'); //связали файловую переменную с файлом

Reset(f1);

Readln(f1, yourName); //читаем в s очередную строку

CloseFile(f1); //закрываем файл

LabeledEdit1.Text := yourName;

LabeledEdit1.Font.Color := clRed;

InputQuery('Ваше имя?', 'Укажите на чьем компьютере программа:',

yourName);

LabeledEdit1.Text := yourName;

LabeledEdit1.Font.Color := clDefault;

Rewrite(f1);

Write(f1, yourName);

CloseFile(f1); //закрываем файл

end;

procedure TForm1.Edit6Change(Sender: TObject);

begin

If(Edit6.Text = '') Then

begin

Label6.Font.Color:= clRed;

end

Else

begin

128

Label6.Font.Color:=clDefault;

end;

{ удалить имя }

procedure TForm1.FormDestroy(Sender: TObject);

var

url, html, who_now: String;

httpclient: TFPHTTPClient;

begin

who_now := LabeledEdit1.Text;

who_now := codText (who_now);

If (Edit6.Text <> '') Then // Введен ли номер экземпляра?

begin

url :=

web_module_link+'/mind/del_name_after_close.php?nomber='+Edit6.Text+'&name='

+who_now;

httpclient := TFPHttpClient.Create(Nil);

try

html := httpclient.Get(url);

except

Label5.Caption := 'Нет связи с главным сервером';

Label5.Font.Color := clMaroon;

Label7.Caption := 'Нет связи с главным сервером';

End;

finally

httpclient.Free;

end;

129

end;

procedure TForm1.get_usersClick(Sender: TObject);

Var

url, html, html1, s, who_now: String;

k1: Integer;

sl: TStringList;

httpclient: TFPHTTPClient;

begin

who_now := LabeledEdit1.Text;

who_now := codText (who_now);

If (Edit6.Text <> '') Then // Введен ли номер экземпляра?

begin

url :=

web_module_link+'/mind/time.php?nomber='+Edit6.Text+'&name='+who_now+'&int

erval='+Edit3.Text;

httpclient := TFPHttpClient.Create(Nil);

try

html := httpclient.Get(url);

except

Label5.Caption := 'Нет связи с главным сервером';

Label5.Font.Color := clMaroon;

Label7.Caption := 'Нет связи с главным сервером';

End;

finally

httpclient.Free;

end;

130

html1 := html;

//Delete (строка, нач поз, колво) - процедура

Delete (html, 1, 3); // удаление лишних 3 символов в начале полученой

строки

Memo2_whoNow.Lines.Clear;

Memo2_whoNow.Lines.Add(html); // добавление строки в Memo

{

sl := TStringList.Create;

try

sl.Text := html;

sl.Delimiter := '|';

ShowMessage('sl.Items = '+sl.Items);

finally

sl.Free;

end;

}

{

k1:=Pos('|', html);

{ k1:=Pos(<подстрока>,<строка>);

Найдено - k1 = <номер вхождения>

не найдено - k1 = 0 }

// s = Copy ('Строка',нач поз,колво) - копирование строк

s := Copy (html, 1, k1-1);

131

Delete (html, 1, k1); // удаление номера и | после него

ShowMessage ('длина строки: '+IntToStr(Length(html))+#13#10+'k1 :

'+IntToStr(k1));

k1:=Pos('|', html); // поз | полсле url

s := Copy (html, 1, k1-1);

Edit1.Text := s; // Получение url полем

Delete (html, 1, k1); // удаление url и | после него

k1:=Pos('|', html); // поз | полсле text_string

s := Copy (html, 1, k1-1);

Edit4.Text := s; // Получение text_string полем

Delete (html, 1, k1); // удаление text_string и | после него

Edit3.Text := html; // Получение интервал полем

If ( k1 <>0 ) Then

Begin

Label7.Caption := '"|" Получено успешно';

end; }

end

Else

end;

procedure TForm1.CBthrough_serverChange(Sender: TObject);

begin

if (CBthrough_server.Checked) then

Источник: https://baza.diplomsite.ru/previewfile/1871

Смотрите также:




Изложение содержания дела, по которому приняты судебные постановления
_1-тема-СтрМетал
_1966(~1
_files_materials_5053_prog.ntr
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27