Правила сохранения результатов вычислений в удаленной БД с помощью SQL

Оператор UPDATE обновляет столбцы в соответствии с их новыми значениями в строках существующей таблицы.

UPDATE [LOW_PRIORITY] [IGNORE] tbl_name

SET col_name1=expr1 [, col_name2=expr2...]

[WHERE where_definition]

[ORDER BY...]

[LIMIT rows]

или

UPDATE [LOW_PRIORITY] [IGNORE] tbl_name [, tbl_name...]

SET col_name1=expr1 [, col_name2=expr2...]

[WHERE where_definition]

В выражении SET указывается, какие именно столбцы следует модифицировать и какие величины должны быть в них установлены. В выражении WHERE, если оно присутствует, задается, какие строки подлежат обновлению. В остальных случаях обновляются все строки. Если задано выражение ORDER BY, то строки будут обновляться в указанном в нем порядке.

Если указывается ключевое слово LOW_PRIORITY, то выполнение данной команды UPDATE задерживается до тех пор, пока другие клиенты не завершат чтение этой таблицы.

Если указывается ключевое слово IGNORE, то команда обновления не будет прервана, даже если при обновлении возникнет ошибка дублирования ключей. Строки, из-за которых возникают конфликтные ситуации, обновлены не будут.

Если доступ к столбцу из указанного выражения осуществляется по аргументу tbl_name, то команда UPDATE использует для этого столбца его текущее значение.

Если столбец устанавливается в его текущее значение, то MySQL замечает это и не обновляет его. Команда UPDATE возвращает количество фактически измененных строк.

3.6 Правила оформления в формате *.docx путем экспорта данных из созданного приложения по предложенной форме и правила вывода на удаленный принтер

В формат *.docx, используя Delphi, можно экспортировать различные данные.

Есть два замечательных способа добывать информацию об интерфейсе Word:

1. Для того чтобы узнать, как что-то сделать из Delphi в Word-e надо в Word-е зайти в меню Сервис/Макрос/Начать запись... Потом сделать в Word-e то, что надо сделать из Delphi и закончить запись макроса. И наконец Сервис/Макрос/Макросы...выбираем записанный...Изменить и смотрим, как он устроен. После этого первод синтаксиса VBA в синтаксис Delphi осуществляется просто и непринужденно.

2. Еще одним хорошим инструментом получения знаний являются компоненты типа TWordApplication. Кидаем его на форму, в любом операторе набираем WordApplication1., нажимаем ctrl+пробел и внимательно читаем. Смысл доступных функций и свойств обычно понятен интуитивно.

Еще есть полезные объекты selection – выбранная область и range – диапазон, а так-же функция select – выбрать.

Правила вывода на удаленный принтер:

Для печати документа достаточно использовать две команды WordBasic —процедуру просмотра FilePrintPreview и процедуру печати документа FilePrint. Последнюю процедуру можно вызывать без аргументов или с аргументами, например для задания числа копий печати.

Примеры использования данных процедур в приложениях Delphi:

Печать документов Word

procedure TForml.Buttonl7Click(Sender: TObject);

begin

WB.FilePrintPreview;

end;

procedure TForml.Buttonl6Click(Sender: TObject);

begin

WB.FilePrint;

end;

В процедуре для печати вместо команды FilePrint можно использовать команду FilePrintDefault или команду FilePrint(c:integer), где с — количество печатаемых копий. Для предварительного просмотра печати также можно использовать команду FilePrintPreviewFullScreen, которая разворачивает окно предварительного просмотра печати во весь экран. Для просмотра в окне нескольких печатаемых страниц применяется команда FilePrintPreviewPages(p:integer), где р — количество одновременно отображаемых страниц в одном окне. Следующий пример программного кода иллюстрирует использование данных функций.

Печать документов Word

procedure TForml.Buttonl6Click(Sender: TObject);

begin

WB.FilePrint(2);

end;

procedure TForml.Buttonl7Click(Sender: TObject);

begin

WB.FilePrintPreviewPages(2);

end;

 

Приложение

Код программы:

unit Unit1;

 

interface

 

uses

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

Dialogs, StdCtrls, ComCtrls, Grids, DBGrids, XPMan, DBCtrls, DB, ADODB,

Mask, ExtCtrls, ZAbstractTable,

ZDataset, ZConnection, ZAbstractRODataset, ZAbstractDataset;

 

type

TForm1 = class(TForm)

Label8: TLabel;

Label9: TLabel;

ScrollBox1: TScrollBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

StaticText1: TStaticText;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Familia: TDBEdit;

Imia: TDBEdit;

Otchestvo: TDBEdit;

Grazhdanstvo: TDBEdit;

Nacional: TDBEdit;

DataSource1: TDataSource;

Pol: TDBComboBox;

SocPol: TDBComboBox;

Index: TDBEdit;

Kray: TDBEdit;

Oblast: TDBEdit;

NaselPunkt: TDBEdit;

Ulica: TDBEdit;

Dom: TDBEdit;

Kvartira: TDBEdit;

Telephon: TDBEdit;

KontTelephon: TDBEdit;

FormObuch: TDBComboBox;

Lgot: TDBEdit;

DocLgot: TDBEdit;

Label25: TLabel;

Armia: TDBComboBox;

Label26: TLabel;

VoenBilet: TDBEdit;

Label27: TLabel;

Data: TDBEdit;

DBGrid1: TDBGrid;

Okonchil: TDBEdit;

StaticText16: TStaticText;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label33: TLabel;

Seria: TDBEdit;

Label34: TLabel;

Nomer: TDBEdit;

Label35: TLabel;

SredBall: TDBEdit;

Label37: TLabel;

TrudStazh: TDBEdit;

Label40: TLabel;

Label42: TLabel;

StaticText17: TStaticText;

StaticText18: TStaticText;

Label43: TLabel;

Label45: TLabel;

Label49: TLabel;

DolzhnostOtca: TDBEdit;

FamiliaOtca: TDBEdit;

Label50: TLabel;

Label52: TLabel;

Obrazovanie: TDBComboBox;

Forma: TDBComboBox;

Iazk: TDBComboBox;

StaticText19: TStaticText;

Obshezhitie: TDBComboBox;

Label41: TLabel;

Label58: TLabel;

ImiaOtca: TDBEdit;

Label59: TLabel;

OtchestvoOtca: TDBEdit;

Label61: TLabel;

MestoOtca: TDBEdit;

Label44: TLabel;

TelephonOtca: TDBEdit;

Label46: TLabel;

Label47: TLabel;

FamiliaMam: TDBEdit;

ImiaMam: TDBEdit;

Label48: TLabel;

Label62: TLabel;

OtchestoMam: TDBEdit;

TelephonMam: TDBEdit;

Label65: TLabel;

Label64: TLabel;

DolzhnostMam: TDBEdit;

MestoMam: TDBEdit;

Label63: TLabel;

Mnogodetnaia: TDBComboBox;

SemeinoePolozhenie: TDBComboBox;

StaticText20: TStaticText;

PervoeVsshee: TDBComboBox;

StaticText21: TStaticText;

StaticText22: TStaticText;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

StaticText23: TStaticText;

CheckBox3: TCheckBox;

StaticText24: TStaticText;

StaticText25: TStaticText;

Label24: TLabel;

DBGrid10: TDBGrid;

DataSource10: TDataSource;

DBGrid11: TDBGrid;

DataSource11: TDataSource;

NomerStrahovogo: TDBEdit;

Label32: TLabel;

Pasport: TDBEdit;

Button2: TButton;

DataSource2: TDataSource;

DataSource3: TDataSource;

Button1: TButton;

Timer1: TTimer;

ZConnection1: TZConnection;

zZaiavlenie: TZTable;

zOtec: TZTable;

zMat: TZTable;

procedure FormObuchChange(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure PolChange(Sender: TObject);

procedure ArmiaChange(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

i: integer;

puti: string;

host: string = 'localhost';

 

implementation

 

uses Unit2,Unit3;

 

{$R *.dfm}

 

procedure TForm1.FormObuchChange(Sender: TObject);

begin

If FormObuch.ItemIndex=6 then //доступ к полям связанным с вне конкурсной формой обучения

begin

Label21.Visible:=true;

Label22.Visible:=true;

Lgot.Visible:=true;

DocLgot.Visible:=true;

end

else

begin

Label21.Visible:=false;

Label22.Visible:=false;

Lgot.Visible:=false;

DocLgot.Visible:=false;

end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

DBGrid1.DataSource.DataSet.Post;

DBGrid10.DataSource.DataSet.Post;

DBGrid11.DataSource.DataSet.Post;

form1.Visible:=false;

form2.Visible:=true;

end;

 

procedure TForm1.PolChange(Sender: TObject);

begin

Case Pol.ItemIndex of

0: begin

SemeinoePolozhenie.Items.Strings[0]:='Холост';

SemeinoePolozhenie.Items.Strings[1]:='Женат';

end;

1: begin

SemeinoePolozhenie.Items.Strings[0]:='Не замужем';

SemeinoePolozhenie.Items.Strings[1]:='Замужем';

end;

end;

end;

 

procedure TForm1.ArmiaChange(Sender: TObject);

begin

If (Armia.ItemIndex=0) or (Armia.ItemIndex=3) then

begin

Label26.Visible:=true;

VoenBilet.Visible:=true;

end

else

begin

Label26.Visible:=false;

VoenBilet.Visible:=false;

end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

if length(paramstr(1))>0 then host:=paramstr(1);

 

timer1.Enabled:=true;

GetDir(0,Puti);

 

form1.ZConnection1.disconnect;

form1.ZConnection1.hostname:=host;

form1.ZConnection1.connect;

 

zZaiavlenie.Active:=true;

zMat.Active:=true;

zOtec.Active:=true;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Timer1.Enabled:=false;

form1.Visible:=false;

form2.Show;

end;

 

end.